IMD 1.16: 5/06/2007 17:19:13 64813-12007 Rev. 2410A 6809 Pascal Compiler 2 of 2  D #?DGC} ;4#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'#'N64813-12007 PASC_COMP_6809 SRS ABSOLUTE S-64813-12007-1 RVA 0202 DESIGNER IZAGMA ALONSO 2410 HEWLETT PACKARD     n\eee&H"0L} LaRcreat С9  AcreataEcreat жF   &XUOPENIO6809MIO &Hl68XXHP6809 co P+ &XdCA_INFOCA_PTR_ARRAY FD_ARRAY DerrnoRS232_RECV_OPENRS232_READ_INDEPARSE_NAME SET_RS_ADDRdFIND_FDFIND_A_DISC_CA SIO_WAIT SIOF_CHANGE Dcreat  =?>@ ?A@B ACBB database HP GG A AHl68XXHP HH % %xRealLIBC6809 aq % %xDerrorsC6809 __ $ $xZerrorsC6809 `` $ $LIB_6809 C6809 T^ $ $xPIOLIB C6809 r % %xSIMLIB C6809  % %ssmmtmp4 HP(hp) A ADLIB_6809C6809 IS $ $ C6}AD PASCAL_LIBS_6809 24 Jan 1984 70  l68XX:HP :0004H  DLIB_6809:C6809 :0003H  LIB_6809 :C6809 :0003H  Derrors:C6809 :000CH  Zerrors:C6809 :000CH  RealLIB:C6809 :0003H  PIOLIB :C6809 :0003H  SIMLIB :C6809 :0003H  nJ&)D[b V 6RH!/-Address out of range  6 Address out of range  V 6!n&xHEAPS2 C6809 A6Hl68XXHP6809 co  &MASTERLINK dMEMERR dDISPOSE"YX_OL2VV@GDZequ ~X[[''V0@& X V0V X'{!QV'W PVR!RR'R !P LR"&RLPh~}NR0L3B#H RLPNV0@V&X|L'@l0 %L\TL0Y0 !TNP& _OT@k};_ONC2\_O0 \3B00;ARMARKK+K9AEMARK]0^#" QDZneq #JnL' 0 '@ 0@ JRRELEASE 9AMARK aRELEASE^ERELEASE AARK {&xHEAPS1 C6809 A6gHl68XXHP6809 co  +&MASTERLINK dMEMERR a]"WY $ _O0<W![0 Y[0_O_O [[0 [3B0[]RINITHEAPVV9EINITHEAP\$]"00GZ$DZugeq8{ȂDZugtr.:ȂWDZequ 6''0T& _O 0 9p6 "tvo"_OqsoG DZneq #}sxx'Kt0o3B#HoqHo'qT& tvtJ Iqots s'tq&H! tv } g tq9( Ay"e& !%'   9ǴA}"|~y!Py'0 Iy|&HB{!|0|y&{@{{']&#y0y3B |1"0 y|g}F:|0|3By1"0y""~y~| !_OyyyO9,FH"$_O0]H'0zHRDISPOSE Ű%9EDISPOSE ˰c"1`bP0& ! _}T & H_ebTH$b_2OZ\" ^_\0bcDZulesC}._d!d''\P0& !"_ \Z \ "^_' \0bR&,\`^Z&B \B\Z}}H\0b@ee%H m\`"^Z&+" \b \0 0\3B 0b)\Z" \b\`0}; bb\&\ZT& _B!\\ u;ARNEW YY9INITHEAP aDISPOSE!NEWAENEW f^iNITH&xMASTER C6809 A6Hl68XXHP  & MASTERLINK   &xARRAY_ C6809 A6fHl68XXHP  &dZintmulaARRAY_ Tv42|d aKJgcdbDag9jj0ggjd&b'ccOeegg jb&ga29g@g9v &XMBequC6809 A6 Hl68XXHP  A&dCOMPB_ DTRUE_dFALSE_ AMBequ) 4&1 &XSTequC6809 A6.Hl68XXHP  S&dCOMPB_ DTRUE_dFALSE_  ACHequASTequ[ 845402b944O&3 '&T8 &XMBgeqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBgeq' 4%0 &XSTgeqC6809 A6?Hl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHgeqASTgeqW J45402b944O4a/ a''3 2b% -}J &XMBgtrC6809 A6 Hl68XXHP  D&dCOMPB_ DTRUE_dFALSE_ AMBgtr( 4#. &XSTgtrC6809 A6?Hl68XXHP  V&dCOMPB_ DTRUE_dFALSE_  ACHgtrASTgtrY J45402b944O4a/ a''3 2b# /}J &XMBleqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBleq, 4"- &XSTleqC6809 A6AHl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHleqASTleqa K45402b944O4a/ a' ' 2b".L K0]K &XMBlesC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBles. 4$/ &XSTlesC6809 A6AHl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHlesASTlese K45402b944O4a/ a' ' 2b$,0]K &XMBneqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBneq. 4'2 &XSTneqC6809 A6.Hl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHneqASTneqe 845402b944O&3 ''U8 &xPARAM_ C6809 A6Hl68XXHP  &aPARAM_ C$41f45&52409 $ &xRENTRY_C6809 A6XHl68XXHP  &aRENTRY_TSe4o'0& 0e1 1e52a0CS24P2'2b4@3b1"Z'Z&0b9e &xVPARAM_C6809 A6Hl68XXHP  &aVPARAM_Q9d1f45&9 &VRENTRY_ C6809 Hl68XXHP  ޱ&VRENTRY_ jCS2045 &SETmbLEQ C6809 Hl68XXHP  & DTRUE_dFALSE_ 4 SETmbLEQ p'44P4C& 5@' 5V5Pp' &SETmbDIF C6809 Hl68XXHP  ML&SETmbDIF t4q4C5' 5 &SETmbINT C6809 Hl68XXHP  &SETmbINT y4q45&5 &SETmbUNI C6809 Hl68XXHP  &SETmbUNI y4q45' 5 &xSTACK_ C6809 A6Hl68XXHP  z&aSTACK_ Z &xINSETmbC6809 A67Hl68XXHP  &Zbtoset8 aINSETmbbT>44DVDVDV0@/@ &_5555Ow> &xTOSETmbC6809 A64Hl68XXHP  &Zbtoset8 dMBmove EMPTY_SET_ aTOSETmbc_:04c/ _cDVDVDVa.@5b: &EMPTY_SETC6809 Hl68XXHP  & EMPTY_SET_ F &UX& &XENTRYC6809 A6Hl68XXHP  .s&DMAIN Z_END_PROGRAMdSTACK_  @4ۨ aEENTRY AENTRY6 &XEntryC6809 A6Hl68XXHP   n&Dmain Z_END_PROGRAMdSTACK_  @4ۨaEEntry AEntryAentry&xMBmove C6809 A6Hl68XXHP  &aMBmove xR4Q45&5. &xSTmove C6809 A6Hl68XXHP  & dMBmove STR_ERRORT aSTmove X$4Q4O#2a5P5 f$ &N MZBtoIadd C6809 Hl68XXHP  &ZBtoIadd 4Q44b2c5 &ZBtoIsub C6809 Hl68XXHP  &ZBtoIsub 444b2c5 &ZuBtoIaddC6809 Hl68XXHP  $&ZuBtoIadd4Q4O4b2c5 &ZuBtoIsubC6809 Hl68XXHP  5+&ZuBtoIsub)44O4b2c5 &Zbbounds C6809 Hl68XXHP  @ & RANGE_ERROR- Zbbounds 44,2a/2a5 + &Zbinset16C6809 Hl68XXHP  ;&Zbtoset16Zbinset16%4bc&_5 55&% &Zbinset8 C6809 Hl68XXHP  !&Zbtoset8 Zbinset8 "04a&_5 55E" &Zwinset16C6809 Hl68XXHP   @&Zwtoset16Zwinset16%4ab&_5555% &Zwtoset16C6809 Hl68XXHP  I&Zbtoset8 Zwtoset16 @4. 5L5x  &Zbtoset16C6809 Hl68XXHP  4&dZwshiftZbtoset16045 &Zbtoset8 C6809 Hl68XXHP  &dZbshiftZbtoset8 045 &xZbshiftC6809 A6Hl68XXHP  4&aZbshift4ON-' HZ' D\' 5 &Zbrotate C6809 Hl68XXHP  %.&Zbrotate &4. 'D$\' HZ' 5R& &Zbyteadd C6809 Hl68XXHP  )&OVERFLOW MZbyteadd 44(2a5 &Zbytediv C6809 Hl68XXHP  >&OVERFLOWPULL4UNDERFLOWPULL2 DIV_BY_ZERO_BYTٴZbytediv 2|42|ooAooj'w*A @ll'*PllX% V% X@ @XATj&F-|"%PF$@ 2d52b9W" &Zbytemul C6809 <Hl68XXHP  =Q&OVERFLOWPULL3UNDERFLOWPULL1 LZbytemul 1C44*@l*Pl=5F%CSC.0-2a52b5"8C &Zbyteneg C6809 Hl68XXHP  9&OVERFLOW MZbyteneg Zbyteabs Z},P(2 a9[ &Zbytesub C6809 Hl68XXHP  9%&OVERFLOW MZbytesub -440(2a5 &8ZccC6809 A6 Hl68XXHP  U& DTRUE_dFALSE_ 4 !Zcc4% &XZequ C6809 A6 Hl68XXHP  hn& DTRUE_dFALSE_ 4 AZequ 4' &XZgeq C6809 A6 Hl68XXHP  fb& DTRUE_dFALSE_ 4 AZgeq 4- &XZgtr C6809 A6 P OHl68XXHP  gq& DTRUE_dFALSE_ 4 AZgtr 4/ &xZintaddC6809 A6Hl68XXHP  &OVERFLOW MaZintadd44(2a5 &xZintdivC6809 A6Hl68XXHP  &OVERFLOWPULL1DIV_BY_ZERO_INTgaZintdiv}42{ooAoojoA',l@C' ,leCS9lXI% FVA%XI XI]}=@DVj@&F$F0-% 2e52d9= &xZintmulC6809 A6Hl68XXHP  &OVERFLOWPULL2UNDERFLOWPULL3 KaZintmul}42|4oboah'@hf'f *lbCS9 @=c=bb$la @=bb$Ala=aaaFc%#"E}Mx%CS &-. &C- 2e52d9M &xZintnegC6809 A6Hl68XXHP  .&OVERFLOW M aZintnegaZintabsFA , CS@ (2a9GG &xZintsubC6809 A6Hl68XXHP  -&OVERFLOW MaZintsub440(2a5 &XZleq C6809 A6 Hl68XXHP   kc& DTRUE_dFALSE_ 4 AZleq 4/ &XZles C6809 A6 Hl68XXHP  mc& DTRUE_dFALSE_ 4 AZles 4-QP &XZneq C6809 A6 Hl68XXHP  mc& DTRUE_dFALSE_ 4 AZneq 4& &ZubboundsC6809 Hl68XXHP  >d& RANGE_ERROR- Zubbounds34$2a#2a5  &ZubyteaddC6809 Hl68XXHP  EK&OVERFLOW MZubyteadd944$2a5 &ZubytedivC6809 eHl68XXHP  J& DIV_BY_ZERO_BYTKi Zubytediv? d42|oo@'M'lX% V% X X@TAj&A 2d5kd &ZubytemulC6809 Hl68XXHP  Va&OVERFLOW MZubytemulK 4=#2a5 &ZubytesubC6809 Hl68XXHP  V\&OVERFLOW MZubytesubK44$2a5| &XZugeqC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZugeq44% &XZugtrC6809 A6 Hl68XXHP  w& DTRUE_dFALSE_ 4 AZugtr+54# &Zuintadd C6809 Hl68XXHP  6&OVERFLOW MZuintadd *44$2a5 &Zuintdiv C6809 {Hl68XXHP  K& DIV_BY_ZERO_INT@p Zuintdiv ?v42{ooAo'Y'lXI% FV@%@XIA @XI@DVj@&@@ 2e52b9^uvR Q &Zuintmul C6809 iHl68XXHP  J~& OVERFLOWPULL2 Zuintmul >k42zocob'LA'D=d=cc$lb=cc$lb@=bbdb& D2f52b9k &Zuintsub C6809 Hl68XXHP  F&&OVERFLOW MZuintsub :440$2a5 &XZuleqC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZuleq94# &XZulesC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZules;4% &ZuwboundsC6809 Hl68XXHP  >t& RANGE_ERROR- Zuwbounds3# 4"40@%9 &Zwbounds C6809 Hl68XXHP  U& RANGE_ERROR- Zwbounds I 4.40@-9 &ZstchbounC6809 %Hl68XXHP  ;{&RANGE_ERRORSTR_ERRORa Zstchbounds .4&O4#2b4@$2b5. &xZwshiftC6809 A6Hl68XXHP  >&aZwshift#4'*DV0&'XI0&5{# &Zwrotate C6809 $Hl68XXHP  ::&Zwrotate .,4'* DV$0' XI0' 5, &xDerrorsC6809 A6Hl68XXHP  &waDerrorsOVERFLOW -OVERFLOWPULL1OVERFLOWPULL2OVERFLOWPULL3#OVERFLOWPULL4)UNDERFLOWUNDERFLOWPULL1 UNDERFLOWPULL2 USRNDERFLOWPULL3 DIV_BY_ZERO_INTRDIV_BY_ZERO_BYTXCASE_ERROR jCOMPB_RANGE_ERRuRANGE_ERRORzJw#aMEMERR SET_CONVERSION_GET_ADDRESS4LOAD_REGSESTR_ERROR #~2b5 2d5 2f5"1A 2e5 2f5 2b5 2d5  4e5"5 92e5 2d5 m~Lk 5Pǀ 45 8 B L &xFALSE_ C6809 A6Hl68XXHP  i&aFALSE_ T _59  &XTRUE_C6809 A6Hl68XXHP  %&ATRUE_  59Q  &xCOMPB_ C6809 A6Hl68XXHP  t&aCOMPB_ _4P4& 5& 2b5 &Z_END_PROC6809 Hl68XXHP  & Z_END_PROGRAM#  " *XSWI_1C6809 A6Hl68XXHP  D?*DSWI_1 *XSWI_2C6809 A6Hl68XXHP  D4*DSWI_2 *XSWI_3C6809 A6Hl68XXHP  D1*DSWI_3 &END_DATA_C6809 Hl68XXHP  &END_DATA_ R &xHEAPS2 C6809 A6Hl68XXHP6809 co  n&MASTERLINK dMEMERR dDISPOSE"  _O2  @KDZequ ~ '' 0@&    0  '{!Q 'W  !R' ! R"&D~}03B#H  0@ & |'@l0 %L\0 0 !P& _O@^:};_OC2_O0 3B00U;ARMARKK+K9AEMARKKL#" MIDZneq #J\L' 0 '@ 0@ JRRELEASE 9AMARK aRELEASELERELEASE ARK {&xHEAPS1 C6809 A625Hl68XXHP6809 co  &MASTERLINK dMEMERR a]" $ _O0<!0 0_O_O 0 3B0\]RINITHEAPVV9EINITHEAPV$W"00E$DZugeq8uȂ -DZugtr.:Ȃ  DZequ 6 ''0T& _O 0 9V6 " "_O  By DZneq #}'K0 3B#H  H ' T& UT   ' &H! "} \  9& Ad"e& !%'   9A}" !P'0 I&HB!0&@']&#03B 1"0 q}F03B1"0"" d  !_OO95FH^"$&$&_O$$0&"$WH"'$"$|HRDISPOSE 9EDISPOSE c"1.0P0& ! -}T & H-e0TH$0_2O(*" ,-*00ȝcDZulesC}-2!2''*P0& !"- *( * ",-' *00R&,*.,(&B *B*({T}}H*00@33%H m*.",(&+" *0 *0 0*3B 00)*(" *0*.0w};00*^&*(T& -B!** ;ARNEW 119nINITHEAP aDISPOSE^!NEWAENEW 1]NITH&xMASTER C6809 A6Hl68XXHP  q& MASTERLINK   &xARRAY_ C6809 A6fHl68XXHP  &dZintmulaARRAY_ Tv42|d aV UgcdbDag9jj0ggjd&b'ccOeegg jb&ga29g@g9v &XMBequC6809 A6 Hl68XXHP  A&dCOMPB_ DTRUE_dFALSE_ AMBequ) 4&1 &XSTequC6809 A6.Hl68XXHP  S&dCOMPB_ DTRUE_dFALSE_  ACHequASTequ[ 845402b944O&3 '&T8 &XMBgeqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBgeq' 4%0 &XSTgeqC6809 A6?Hl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHgeqASTgeqW J45402b944O4a/ a''3 2b% -}J &XMBgtrC6809 A6 Hl68XXHP  D&dCOMPB_ DTRUE_dFALSE_ AMBgtr( 4#. &XSTgtrC6809 A6?Hl68XXHP  V&dCOMPB_ DTRUE_dFALSE_  ACHgtrASTgtrY J45402b944O4a/ a''3 2b# /}J &XMBleqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBleq, 4"- &XSTleqC6809 A6AHl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHleqASTleqa K45402b944O4a/ a' ' 2b".WV0]K &XMBlesC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBles. 4$/ &XSTlesC6809 A6AHl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHlesASTlese K45402b944O4a/ a' ' 2b$,0]K &XMBneqC6809 A6 Hl68XXHP  5&dCOMPB_ DTRUE_dFALSE_ AMBneq. 4'2 &XSTneqC6809 A6.Hl68XXHP  G&dCOMPB_ DTRUE_dFALSE_  ACHneqASTneqe 845402b944O&3 ''U8 &xPARAM_ C6809 A6Hl68XXHP  &aPARAM_ C$41f45&52409 $ &xRENTRY_C6809 A6XHl68XXHP  &aRENTRY_TSe4o'0& 0e1 1e52a0CS24P2'2b4@3b1"Z'Z&0b9e &xVPARAM_C6809 A6Hl68XXHP  &aVPARAM_Q9d1f45&9 &VRENTRY_ C6809 Hl68XXHP  ޱ&VRENTRY_ jCS2045 &SETmbLEQ C6809 Hl68XXHP  & DTRUE_dFALSE_ 4 SETmbLEQ p'44P4C& 5@' 5V5Pp' &SETmbDIF C6809 Hl68XXHP  X W&SETmbDIF t4q4C5' 5 &SETmbINT C6809 Hl68XXHP  &SETmbINT y4q45&5 &SETmbUNI C6809 Hl68XXHP  &SETmbUNI y4q45' 5 &xSTACK_ C6809 A6Hl68XXHP  p&bSTACK_ [ &xINSETmbC6809 A67Hl68XXHP  &Zbtoset8 aINSETmbbT>44DVDVDV0@/@ &_5555Ow> &xTOSETmbC6809 A64Hl68XXHP  &Zbtoset8 dMBmove EMPTY_SET_ aTOSETmbc_:04c/ _cDVDVDVa.@5b: &EMPTY_SETC6809 Hl68XXHP  & EMPTY_SET_ F &UX& &XENTRYC6809 A6Hl68XXHP  .s&DMAIN Z_END_PROGRAMdSTACK_  @4ۨ aEENTRY AENTRY6 &XEntryC6809 A6Hl68XXHP   n&Dmain Z_END_PROGRAMdSTACK_  @4ۨaEEntry AEntryAentry&xMBmove C6809 A6Hl68XXHP  &aMBmove xR4Q45&5. &xSTmove C6809 A6Hl68XXHP  & dMBmove STR_ERRORT aSTmove X$4Q4O#2a5P5 f$ &YXZBtoIadd C6809 Hl68XXHP  &ZBtoIadd 4Q44b2c5 &ZBtoIsub C6809 Hl68XXHP  &ZBtoIsub 444b2c5 &ZuBtoIaddC6809 Hl68XXHP  $&ZuBtoIadd4Q4O4b2c5 &ZuBtoIsubC6809 Hl68XXHP  5+&ZuBtoIsub)44O4b2c5 &Zbbounds C6809 Hl68XXHP  @ & RANGE_ERROR- Zbbounds 44,2a/2a5 + &Zbinset16C6809 Hl68XXHP  ;&Zbtoset16Zbinset16%4bc&_5 55&% &Zbinset8 C6809 Hl68XXHP  !&Zbtoset8 Zbinset8 "04a&_5 55E" &Zwinset16C6809 Hl68XXHP   @&Zwtoset16Zwinset16%4ab&_5555% &Zwtoset16C6809 Hl68XXHP  I&Zbtoset8 Zwtoset16 @4. 5L5x  &Zbtoset16C6809 Hl68XXHP  4&dZwshiftZbtoset16045 &Zbtoset8 C6809 Hl68XXHP  &dZbshiftZbtoset8 045 &xZbshiftC6809 A6Hl68XXHP  4&aZbshift4Z Y-' HZ' D\' 5 &Zbrotate C6809 Hl68XXHP  %.&Zbrotate &4. 'D$\' HZ' 5R& &Zbyteadd C6809 Hl68XXHP  )&Zbyteadd  445  &Zbytediv C6809 Hl68XXHP  >&Zbytediv 2}42zooAojo'u.A @ll'd.APllX% VA% @X  XT@j&@F@%*}PF$@ 2f5 &Zbytemul C6809 1Hl68XXHP  =;&Zbytemul 1844'*@l'*Pl=F% CS 2b58 &Zbyteneg C6809 Hl68XXHP  9&Zbyteneg Zbyteabs Z} ,P9{  &Zbytesub C6809 Hl68XXHP  9&Zbytesub -445 &8ZccC6809 A6 Hl68XXHP  U& DTRUE_dFALSE_ 4 !Zcc4% &XZequ C6809 A6 Hl68XXHP  hn& DTRUE_dFALSE_ 4 AZequ 4' &XZgeq C6809 A6 Hl68XXHP  fb& DTRUE_dFALSE_ 4 AZgeq 4- &XZgtr C6809 A6 Hl68XXHP  gq& DTRUE_dFALSE_ 4 AZgtr 4/ &xZintaddC6809 A6Hl68XXHP  [Z &aZintadd 445  &xZintdivC6809 A6Hl68XXHP  &aZintdiv}42yooAoo@,l' '} ,`gCS9lXI% FVA%AXI XI}?@DV@j&F$H%  @2g52b9ZN? &xZintmulC6809 A6Hl68XXHP  &aZintmul}42ybodoc'o@ '@a .`dCS9@ =e =dd$lc@=dd$lcA=ccHec%x}{ 2g52b9 &xZintnegC6809 A6 Hl68XXHP  & aZintnegaZintabsFA ,CS@9F[ &xZintsubC6809 A6 Hl68XXHP  &aZintsub445 &XZleq C6809 A6 Hl68XXHP  kc& DTRUE_dFALSE_ 4 AZleq 4/ &XZles C6809 A6 Hl68XXHP  mc& DTRUE_dFALSE_ 4 AZles 4- &XZneq C6809 A6 Hl68XXHP  mc& DTRUE_dFALSE_ 4 AZneq 4& &ZubboundsC6809 Hl68XXHP  >d& RANGE_ERROR- Zubbounds34$2a#2a5  &ZubyteaddC6809 Hl68XXHP  E<&Zubyt\ [eadd9 445  &ZubytedivC6809 _Hl68XXHP  J&Zubytediv? ^42|oo@'G'ElX% V% X@ @XATj& 2d5=^ &ZubytemulC6809 Hl68XXHP  VN&ZubytemulK  4=5,  &ZubytesubC6809 Hl68XXHP  VM&ZubytesubK 445  &XZugeqC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZugeq44% &XZugtrC6809 A6 Hl68XXHP  w& DTRUE_dFALSE_ 4 AZugtr+54# &Zuintadd C6809 Hl68XXHP  6&Zuintadd * 445  &Zuintdiv C6809 {Hl68XXHP  K{&Zuintdiv ?t42yooAo'Y'AWlXI% FV@%@XIA @XI@DVj@&@D 2g5Ot &Zuintmul C6809 bHl68XXHP  Jn&Zuintmul >c42xoboc'HA'@=d=cc$lb=cc$lb@=bbdb 2h5c &Zuintsub C6809 Hl68XXHP  F&Zuintsub :445 &XZuleqC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZuleq94#]\ &XZulesC6809 A6 Hl68XXHP  h& DTRUE_dFALSE_ 4 AZules;4% &ZuwboundsC6809 Hl68XXHP  >t& RANGE_ERROR- Zuwbounds3# 4"40@%9 &Zwbounds C6809 Hl68XXHP  U& RANGE_ERROR- Zwbounds I 4.40@-9 &ZstchbounC6809 %Hl68XXHP  ;{&RANGE_ERRORSTR_ERRORa Zstchbounds .4&O4#2b4@$2b5. &xZwshiftC6809 A6Hl68XXHP  >&aZwshift#4'*DV0&'XI0&5{# &Zwrotate C6809 $Hl68XXHP  ::&Zwrotate .,4'* DV$0' XI0' 5, &xZerrorsC6809 A6UHl68XXHP  w& aZerrorsCASE_ERROR !aMEMERR 3RANGE_ERROR,STR_ERRORG [4eS T5R5""LMNP9LM  4S L5  B 5[UY &xFALSE_ C6809 A6Hl68XXHP  i&aFALSE_ T _59  &XTRUE_C6809 A6Hl68XXHP  %&ATRUE_  59Q  &xCOMPB_ C6809 A6Hl68XXHP  t&aCOMPB_ _4P4& 5& 2b5 &Z_END_PROC6809 Hl68XXHP  & Z_END_PRO^ ]GRAM#  " *XSWI_1C6809 A6Hl68XXHP  D?*DSWI_1 *XSWI_2C6809 A6Hl68XXHP  D4*DSWI_2 *XSWI_3C6809 A6Hl68XXHP  D1*DSWI_3 &END_DATA_C6809 Hl68XXHP  &END_DATA_ ]vUNDERFLOWPULL1 aDerrorsUNDERFLOWPULL2 UNDERFLOWPULL3 UNDERFLOWZ_ERR_UNDERFLOWOVERFLOWPULL1OVERFLOWPULL2OVERFLOWPULL3#OVERFLOWPULL4)OVERFLOW -Z_ERR_OVERFLOW 1GET_ADDRESS4LOAD_REGSEDIV_BY_ZERO_INTRvvDIV_BY_ZERO_BYTXDIV_BY_ZERO\Z_ERR_DIV_BY_0 gCASE_ERROR jZ_ERR_CASE rCOMPB_RANGE_ERRuRANGE_ERRORzZ_ERR_RANGE~aMEMERR Z_ERR_HEAP SET_CONVERSION_Z_ERR_SET_CONV STR_ERRORZ_ERR_STRING aZ_ACC_AaZ_ACC_BXv$aZ_REG_XaZ_REG_UZ_CC_FLAGS Z_CALLER_H Z_CALLER_L !END?$ vGET_ADDRESSaZerrorsLOAD_REGSCASE_ERROR !Z_ERR_CASE )RANGE_ERROR,Z_ERR_RANGE0aMEMERR 3Z_ERR_HEAP DSTR_ERRORGZ_ERR_STRING IaZ_ACC_ALaZ_ACC_BMaZ_REG_XNaZ_REG_UPZ_CC_FLAGS RZ_CALLER_H SZ_CALLER_L T!ENDUv&XCABS FL6809A6 Hl68XXHP  & LONGREAL_ABS !ABSc0fd91 &xCARCTANFL6809A6 Hl68XXHP  l& LONGREAL_AT aARCTAN U0fd91 &XCCOS FL6809A6 Hl68XXHP  & LONGREAL_COS !COSp0fd91 &XCEXP FL6809A6 Hl68XXHP  & LONGREAL_EXP  !EXPy0fd91 &XCLOG FL6809A6 Hl68XXHP  & LONGREAL_LN !LN on0fd91 &XCSIN FL6809A6 Hl68XXHP  '& LONGREAL_SIN !SINj0fd91 &XCSQRTFL6809A6 Hl68XXHP   +& LONGREAL_SQRT5 ASQRT 0fd91 &XLATANFL6809A6Hl68XXHP Long real arctan(X) &<LONGREAL_NOLONG_UN_PARS PACK_LONGresultSZERO_UPmant dATAN_NOSADDC_UPmant REAL__AT SCLEARmant U< LONGREAL_AT 032g9  &XLCOS FL6809A6Hl68XXHP LLong real cos(X) &<LONGREAL_NOLONG_UN_PARS dCOS_NO PACK_LONGresultSZERO_UPmant SADDC_UPmant SCLEARmant REAL__COS]< LONGREAL_COS  032g9  &XLSIN FL6809A6Hl68XXHP Long real sin(X) &<LONGREAL_NOLONG_UN_PARS dSIN_NO PACK_LONGresultSZERO_UPmant SADDC_UPmant SCLEARmant REAL__SINQ< LONGREAL_SIN 032g9  &XLLOG FL6809A6Hl68XXHP Long real ln(X) b a &;LONGREAL_NOLONG_UN_PARS REAL__LN PACK_LONGresultSZERO_UPmant DLN_NOSADDC_UPmant SCLEARmant n; LONGREAL_LN 032g9  &XLEXP FL6809A6Hl68XXHP Long real e to the x &<LONGREAL_NOLONG_UN_PARS dEXP_NO PACK_LONGresultSZERO_UPmant SADDC_UPmant SCLEARmant REAL__EXPo< LONGREAL_EXP  032g9  &XLSQRTFL6809A6 Hl68XXHP Long real squareroot &OLONGREAL_NO LONG_UN_PARS SLSRmant SCOPYrealdSQRT_NO PACK_LONGresultSZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant REAL__SQRT IO LONGREAL_SQRT3 032g9r &XLDIV FL6809A6Hl68XXHP Long real divide &<LONGREAL_NOREAL__DIVPACK_LONGresultSZERO_UPmant LONG_BIN_PARSSADDC_UPmant SCLEARmant dDIV_NO ;< LONGREAL_DIV 032g9r &XLMUL FL6809A6Hl68XXHP Long real multiply \&<LONGREAL_NOdMUL_NO PACK_LONGresultSZERO_UPmant LONG_BIN_PARSSADDC_UPmant SCLEARmant REAL__MULS< LONGREAL_MUL  032g9  &XLADD FL6809A6+ Hl68XXHP Long real add/subtract&SLONGREAL_NO SLSRmant dSUB_NO SCOPYrealPACK_LONGresultSZERO_UPmant dADD_NO SLSLmant LONG_BIN_PARSSADDC_UPmant SCLEARmant REAL__ADDpS LONGREAL_ADD n 03O ? LONGREAL_SUB  & 03' 2g9Y{& &XLABS FL6809A6+ Hl68XXHP Long real absolute ]&@LONGREAL_NOSLSRmant SCOPYrealdABS_NO SZERO_UPmant LONG_NO_UNPACK SLSLmant SADDC_UPmant SCLEARmant d@ LONGREAL_ABcbS } 403%!A!B"D$F&2g9Nj4 &XLNEG FL6809A6+ Hl68XXHP Long real negate $&@LONGREAL_NOSLSRmant SCOPYrealdNEG_NO SZERO_UPmant LONG_NO_UNPACK SLSLmant SADDC_UPmant SCLEARmant g@ LONGREAL_NEG ~ 403%A!!B"D$F&2g9No4 &XLCOMPFL6809A6oHl68XXHP I>Long real compare ;^&fLONGREAL_NO SLSRmant dEQU_NO SCOPYrealINVALID_OP REAL__COMP dGTR_NO SZERO_UPmant dLES_NO SLSLmant LONG_BIN_PARSSADDC_UPmant SCLEARmant dNEQ_NO dGEQ_NO dLEQ_NO 'Pf LONGREAL_COMPz- 3'] 2g9A LONGREAL_EQU  03'_99> LONGREAL_NEQ % %03& < LONGREAL_LEQ 3& 303'+ =b LONGREAL_LES C6 C03+ = LONGREAL_GEQ QD Q03* > LONGREAL_GTR _a _03' ?> &xLFLOAT FL6809A63 Hl68XXHP Long real float 4&QFLOAT_NO LONGREAL_NO SLSRmant SCOPYrealREAL__FLOATPACK_LONGresultSZERO_UPmant LONG_NO_UNPACK SLSLmant SADDC_UPmant SCLEARmant PQ LONGREAL_FLOAT ; =03%&M&!ooAoBoCoDoEoFoG 02g9[= &xLROUND FL6809A6 Hl68XXHP Long real round @&QLONGREAL_NO UNPACK_LONGREALSLSRmant ROUND_NO SCOPYrealSZERO_UPmant LONG_NO_UNPACK SLSLmant SADDC_UPmant SCLEARmant REAL__ROUNDTQ LONGREAL_ROUND K '03 %1!2g90' &xLTRUNC FL6809A6 Hl68XXHP d cLong real trunc G&QLONGREAL_NO UNPACK_LONGREALSLSRmant SCOPYrealSZERO_UPmant LONG_NO_UNPACK SLSLmant SADDC_UPmant SCLEARmant REAL__TRUNCTRUNC_NO VQ LONGREAL_TRUNC N '03 %1!2g90' &CONTRACT FL68090 Hl68XXHP JtLong real->Short real &JLONG_UN_PARS SLSRmant PACK_ONLYresultSCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant CONTRACT_NO PACK_resultJ REAL_CONTRACTz, 63)'13&  2g9j6 &xEXTEND FL6809A60 Hl68XXHP JuShort real->Long real &KSLSRmant SCOPYrealPACK_LONGresultSZERO_UPmant PACK_ONLYlongreSLSLmant SADDC_UPmant SHORT_UN_PARSSCLEARmant EXTEND_NO K REAL_EXTEND 63)'13&  2g9gc6 &XLSUBSFL6809A6Hl68XXHP JvLong real pack/unpack &9SLSRmant SCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant NORMALIZESCLEARmant REAL_OVERFLOW99PACK_LONGREALONLY_PACK_LONGR~ V@,F'FHH$,lG&(lF&$lE& lD&lC&lB&fBfCfDfEfFfGfHlA&lHHoI @B* B O_XIXIXI~1oXIJ4 31BB5 !C"E$G&91 UNPACK_LONGREAL i*AGVGVGVGVB#D%F'A"o)3#1B0BB@&lA&l 'BB9Ei &xLUTILS FL6809A6 Hl68XXHP JvLong real parameter pa&NPACK_LONGREALUNPACK_LONGREAL SLSRmant SCOPYrealSZERO_UPmant OedNLY_PACK_SHORTSLSLmant SADDC_UPmant SCLEARmant ONLY_PACK_LONGRN'4@2)'e4@cge5' LONG_BIN_PARS!X (!'%#0b0%1#1 9$( LONG_UN_PARS BM B'#0b%109K LONG_NO_UNPACK W W'#0b9 PACK_LONGresultc[; c!39 PACK_ONLYlongremWC m!39 PACK_ONLYresultw\` w!39o &XSATANFL6809A6Hl68XXHP Short real arctan(X) &tSLSRmant REAL__TEST SCOPYreal$ONERESULT_IS_ZERO REAL__DIVIS_INVALID SZERO_UPmant PI_HALVESdATAN_NO TWO_POINT_FOUR POINT_FOUR SLSLmant SADDC_UPmant SHORT_UN_PARSSCLEARmant REAL__ADDkFt]RESULT_IS_NaN REAL__MULPI_FOURTHS PACK_resultATAN_CONST1ATAN_CONST2ATAN_CONST3ATAN_CONST4ATAN_CONST5ATAN_CONST6ATAN_CONST7ATAN_CONST8ATAN_CONST9R]SHORTREAL_AT aREAL_AT032g9AAREAL__AT e{3&M'+ocoa@,*/00&0&0&0#lc :'la 3,/${}~&&&" 4o mc'@13   317ma&07 3 313 K 013S}{1K3 01313V13 013K1K3 3 013 3 01K3013 l{zY13  3 1K3 13 13f e  3 1K3 13 13  3 1V3Xz{ 13 13V1K3 3  13 13 3 1K3 13 13  3 ؿ{}01K3 13 13  3 1V3 13 mc' 0 3 ma'0 313 r_}5 9 &XATANCFL6809A6Hl68XXHP Arctan constants & POINT_FOUR ? y TWO_POINT_FOUR 6X  y2B PI_FOURTHS - ڢ!h42PI_HALVES!!ڢ!h42 ATAN_CONST1,) ,.RC ATAN_CONST27) 7pzL58g ATAN_CONST3B) B\w,@D ATAN_CONST4M* M$I' ATAN_CONST5X* Xk.V ATAN_CONST6c* c.RCZ ATAN_CONST7n** nӛ7~ ATAN_CONST8y*6 y[iQF ATAN_CONST9*B u@* &XSCOS FL6809A6zHl68XXHP LShort real cos(X) w&vSLSRmant REAL__TEST SCOPYrealRESULT_IS_ONE dCOS_NO IS_INVALID dREDUCE SZERO_UPmant SIN_APPROX COS_APPROX SLSLmant FOUR_PITHS SADDC_UPmant SHORT_UN_PARSSCLEARmant RESULT_IS_NaN REAL__MUL Wv PACK_resultK SHORTREAL_COSREAL_COS G32g9@AREAL__COSy3&M'+@0,o 03 1gf3oc\'cc4130Z' 5 9y &XSSIN FL6809A6vHl68XXHP Short real sin(X) &wSLSRmant dSIN_NO REAL__TEST SCOPYrealRESULT_IS_ZERO IS_INVALID dREDUCE SZERO_UPmant SIN_APPROX COS_APPROX SLSLmant FOUR_PITHS SADDC_UPmant SHORT_UN_PARSSCLEARmant RESULT_IS_NaNREAL__MUL w PACK_result M SHORTREAL_SINREAL_SIN L32g9CAREAL__SINt3&M'+@0, 4o 3 133'54 13' 5 9:t &xSINCOS FL6809A6Hl68XXHP N SIN and COS common y&uSLSRmant SCOPYrealREAL__DIVSIN_CONST1 SIN_CONST2 SIN_CONST3 SIN_CONST4 SIN_CONST5 SIN_CONST6 SIN_CONST7 SZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant REAL__ADDREAL__MULCOS_CONST1 Tu,COS_CONST2 COS_CONST3 COS_CONST4 COS_CONST5 COS_CONST6 COS_CONST7 , SIN_APPROX D }13V 13 13K1K3 3 13 3 1K3  133  131}}m3 1K3003 1313 1V3103V10K33 13 1033}M 13 1K3 13 3 13 1V3 9vM COS_APPROX K } 13 13K1K3  3 13 h g 3 1K3  133  13 13 1K)}}3003 13103V10K3 3 13 103 3 13 1K31 }.3 03 13 1V309(r. &xSINCOSCFL6809A6Hl68XXHP Sin and cos constants )& FOUR_PITHS : nND)4z SIN_CONST1   @wZ SIN_CONST2  X@_ SIN_CONST3 ! ! m2C; SIN_CONST4 , ,: SIN_CONST5 7! 7e SIN_CONST6 B" Bf<u SIN_CONST7 M# M@ur COS_CONST1 X# Xe! COS_CONST2 c% c3hN COS_CONST3 n& n Am @m  COS_CONST4 y' y8$8| COS_CONST5 (! eM COS_CONST6 ), Wc`C COS_CONST7 *7 ѱ<LJq &XSLOG FL6809A6Hl68XXHP  Short real ln(X) &uSLSRmant REAL__TEST SCOPYrealdLOG_TWO$ONEREAL__FLOATREAL__DIV IS_INVALID SZERO_UPmant DLN_NOLOG_CONST1 LOG_CONST2 LOG_CONST3 LOG_CONST4 LOG_CONST5 LOG_CONST6 SLSLmant SADDC_UPmant lu2SHORT_UN_PARSROOT_TWO SCLEARmant REAL__ADD RESULT_IS_NaN REAL__MUL PACK_result\2SHORTREAL_LN aREAL_LN532g9@AREAL__LN p}3&M'+ m +c  &ih  &  &  #ld&lcc 3 103K}}}  1313K3  13V103103 13K1K3 03 1303 1K3 ^}}1303 13013 1V3013V1K3 3 013 013 3 }}W 13 1 K313  3  13 1 V3c&]&513V0 c103 3 13]}01V3 9 &XSEXP FL6809A6rHl68XXHP Short real e to the x ɜ&xSLSRmant dEXP_NO REAL__TEST SCOPYrealRESULT_IS_INFdLOG_TWORESULT_IS_ONE RESULT_IS_ZERO REAL__DIVIS_INVALID dREDUCE P_CONST0 P_CONST1 SZERO_UPmant P_CONST2 ONE_HALF SLSLmant SADDC_UPmant x6SHORT_UN_PARSNORMALIZE SCLEARmant Q_CONST0 Q_CONST1 REAL__ADDREAL__MULPACK_result@6SHORTREAL_EXPREAL_EXP O32g9AREAL__EXPʙ}3 &M'+/ m + 3 013l&l dc1313V 13 13Kd}|~013 3 013 3 01K3 130 3 130131V3 01K3T|{13K  3  j i13 13  3  13 1 K3  13  13C{%U 3 cl&l39X% &xREDUCE FL6809A6Hl68XXHP Reduce real L&9SLSRmant SCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant REAL__ADDREAL_OVERFLOW+9aREDUCE @~ 13 @? 1/1 , 1 m *CP&L4xY~=p/1 @,m *l &l 1 59c= &xRCONST FL6809A6Hl68XXHP Real Constants 9&ONE_HALF J*P_CONST0 b  ;N;P_CONST1 nZXP_CONST2 "y"0MRkQQ_CONST0 --Q_CONST1 88 -˹haLOG_TWOCg{Cry!ONENoN*ROOT_TWO YY3d LOG_CONST1 d# d}d LOG_CONST2 o% o17Ps LOG_CONST3 z& zck=) LOG_CONST4 ' }o LOG_CONST5 (* k< LOG_CONST6 )5 )~U &XSSQRTFL6809A6Hl68XXHP Short real squareroot &hSLSRmant REAL__TEST SCOPYrealdSQRT_NO RESULT_IS_ZERO REAL__DIV IS_INVALID SZERO_UPmant SLSLmant SADDC_UPmant SHORT_UN_PARSNORMALIZE SCLEARmankjt REAL__ADD PACK_result"hSHORTREAL_SQRT REAL_SQRT32g9@ REAL__SQRT 7 }3&M'+ m +1 36 G F  AjA10 3+136313}~|0 &j J 03 mA'7+ &,- &$/&1&3& 5& @yrB~ 01 39  &XSDIV FL6809A61Hl68XXHP Short real divide e;&lSLSRmant REAL__TEST SCOPYrealRESULT_IS_INF SHORT_BIN_PARS INVALID_OP RESULT_IS_ZERO IS_INVALID SZERO_UPmant SLSLmant SADDC_UPmant NORMALIZESCLEARmant dDIV_NO PACK_resultNlSHORTREAL_DIVREAL_DIV E~32g9  9CREAL__DIV~3& 43 5'M' +3'0]']0'' 139 m + 1 l&l 1_4?/1$~~  &"&&&%l f"m*_?, Yl1l0 1 =^~D 91lU0539!D &XSMUL FL6809A6 Hl68XXHP SShort real multiply `&dSLSRmant REAL__TEST SCOPYrealSHORT_BIN_PARS INVALID_OP RESULT_IS_ZERO dMUL_NO IS_INVALID SZERO_UPmant SLSLmant SADDC_UPmant NORMALIZE SCLEARmant PACK_resultS dSHORTREAL_Ml kULREAL_MUL P32g9  9CREAL__MULǦ}3& 43 5'M' +0' '] ''@]'0'1 391391 4@5f}}fffffff '< 4 41 0Z&5$ffffW}ffff l&l3 9 &XSADD FL6809A6qHl68XXHP Short real add/subtracG&iSLSRmant  dSUB_NO REAL__TEST SCOPYrealSHORT_BIN_PARS INVALID_OP RESULT_IS_ZERO IS_INVALID SZERO_UPmant dADD_NO SLSLmant SADDC_UPmant NORMALIZESCLEARmant PACK_result iSHORTREAL_ADDREAL_ADD +d3O ?REAL_SUB r  3'02g9tt REAL__ADD#}#3& 43 5'M' +0 ' ]' ''01 391039 .'%l&l01 ' l &g}} l 1   &]   %@l&lffffffi}}ff g &&& & #13 1 3)I (H'G&F%E$D#C"B18}h * 39 ] &XSABS FL6809A6Hl68XXHP Short real absolute r&9SLSRmant SCOPYrealdABS_NO mlSZERO_UPmant SLSLmant SADDC_UPmant SHORT_NO_UNPACKSCLEARmant \9SHORTREAL_ABSREAL_ABS 8q'3%!A!B"2g9G' &XSNEG FL6809A6Hl68XXHP Short real negate S*&9SLSRmant SCOPYrealdNEG_NO SZERO_UPmant SLSLmant SADDC_UPmant SHORT_NO_UNPACKSCLEARmant _9SHORTREAL_NEGREAL_NEG m&9m&4m&/m&*m*@/&m 'm 'CP&Lm&9l Z &XSUBS FL6809Hl68XXHP L(Generic real subroutin&3SLSRmant SCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant REAL_OVERFLOWq3 REAL__TEST + M)&*B&"mC&mD&mE&mF&mG&mH& mI& rO_&O 9{MNORMALIZEAIJqA4 &),  K'5mB+1B ), )01B '/ lA&l1B 05q &XSSUBSFL6809A6Hl68XXHP NShort real pack/unpack&9SLSRmant SCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant NORMALIZESCLEARmant REAL_OVERFLOW99PACK_SHORTREAL ONLY_PACK_SHORT ~ M@,<'=EEDDCCBB$fBfCfDfElA&loEoFoGoHo I oAB* B O_TFJB!C~n"9 UNPACK_SHORTREAq Jq*AXI!oT"B#o%o&o'o(o@)&l!&l '""9NJ &XCOMP FL6809Hl68XXHP I8Generic real compare vL&9SLSRmant REAL__TEST SCOPYrealIS_onINVALID SZERO_UPmant SLSLmant SADDC_UPmant SCLEARmant G9 REAL__COMP 1 }3& 43 5'M' +0& C ]'+ '1 3J*&6' $A' ""B&$D&&F&(H& _9-}l # " mJ'P9# &XSCOMPFL6809A6WHl68XXHP I4 9.> &xRERRORSFL6809A6Hl68XXHP  }&5SLSRmant SCOPYrealdSTmove SZERO_UPmant dMBmove SLSLmant SADDC_UPmant SCLEARmant 5aINVALIDREAL_OVERFLOWINVALID_OP }4p 4p!5e/e, (#e1"B'' ' '\}jo &$D $D&"Ff3e Og c54DDDD5DDDD 9 #7909t:jABREAK՞!29&pzaSQRT_NOaSIN_NO aCOS_NO aATAN_NOALN_NOaEXP_NO ߁TRUNC_NO ROUND_NO aADD_NO aNEG_NO aSUB_NO aMUL_NO aDIV_NO aEQU_NO aNEQ_NO aLEQ_NO aGEQ_NO aLES_NO aGTR_NO aABS_NO FLOAT_NO EXTEND_NOCONTRACT_NO'iz LONGREAL_NO } "&*.26:>BFJNRW__/Real error INVALID  /Real err}~Aor OVERFLOW 7routine called by user from qpaddress xxxxH. REAL_ LONGRE%~|AL_SQRTSIN COS AT LN EXP TRUNCROUNDADD NEG SUB MUL DIV EQU NEQ LEQ GEQ LES GTR ABS FLOATEXTEND CONTRACT| MONITOR_MESSAGEERROR_MESSAGEERROR_STATUS bMESSAGE }No error  }}j  }8 8 &xSTACK_ CC6809A6 Hl68XXHP  &bSTACK_ y   p &xPAPPENDIO6809Hl68XXHP6809 co P& &MBACK_PTR_ARRAY $IORPiocheck LINESIZE PAD_ODD_RECORDSDopen Dcreatseek_rec Passociate dPerror FIRST_WORD_EQUA Psavereturn M ! # dPARAM_ Fǧ  & 0 _2U,  0 _2!]gDZles # h@ DZgeq }q@'Ă( 0XI0  0o 0o  0  0o 0 0 0 0<o 0=a"}2v3@ YdMBmove {cn 4@" 0>  0?o 0@_O 0BPo ') %P,1 XWDn$ZccVWH'  0=   @,Ā  0VRPappend  ]9 aPappendEPappend  VARIABLE &xPBUFVARIO6809KHl68XXHP6809 co P' j~&$IORPiocheck FIB_IS_VALID DPlookPsavereturnC'"## #y'DZequ . L''0J 1.RPbufvar J/J9 aPbufvarEPbufvar J bufv&xPCLOSE IO6809 Hl68XXHP6809 co P( x&?BACK_PTR_ARRAY $IORPiocheck FIB_IS_VALID FIRST_WORD_EQUAdPerror Dclosedunlink dPputln Psavereturn c?K&##"25'sr 0>3E0!@ (KDZgtr IDH '  T' X I0_O2v3@ IdMBmove {_* 4@'H0 T' +*aRPclose<9 aPclose aEPclose+~ PURGE>  &XPEOF IO6809O NHl68XXHP6809 co P) [&$IORPiocheck FIB_IS_VALID DPlookPsavereturnCS"22##R'#0' "2!0 SARPeofMlM9 APeof AEPeofM> eof ˘&XPEOLNIO6809O UHl68XXHP6809 co P* aJ&#$IORPiocheck FIB_IS_VALID DPlookdPerror Psavereturn #Z"2#"25'' 0'# 0? @֜ZaRPeoln TT9 APeolnaEPeoln T eoln&XPGET IO6809O 09Hl68XXHP6809 co P- &#$IORPiocheck FIB_IS_VALID DPlookdPerror Psavereturn #'"## #zM'DZequ r H'gԀ'L0@'Ā40 'H!0'H00@orARPget9 APget AEPget get ێ&xPINPUT IO6809QHl68XXHP6809 co P-  C&BINPUTNPUT&PLINEPOS IO6809i Hl68XXHP6809 co P/ &$IORPiocheck FIB_IS_VALID dPerror Psavereturnp"0_O"2##t sR'90@3A" 0 0?'D pRPlineposhyh9Plinepos EPlineposhPline&xPMAXPOSIO6809NHl68XXHP6809 co P1 r&$$IORdPbound Piocheck dPerror FIB_IS_VALID Psavereturnr.$R"3"2##R'03E'1 RRPmaxpos MM9 aPmaxposEPmaxpos M͜ maxp&XPOPENIO6809O \Hl68XXHP6809 co P2 em&<BACK_PTR_ARRAY $IORPiocheck Dopen DcreatDclosePassociate dPerror FIRST_WORD_EQUAPsavereturn << ! # dPARAM_ F}̌  &( 0 _2U,E  0 _2U2-(U - 0 M}_ȄѳDZles # @ DZgeq }@'Ă  0XI0  0o 0o  0o 0 0 0 0 0<o 0=>}S2v3@ 1dMBmove {a= 4@" 0>  0?o 0@_O 0BoO=aRPopen RR9 APopenaEPopen R SVARIABLE &xPOUTPUTIO6809QHl68XXHP6809 co P3 &bOUTPUT \UTPU&POVERPRINIO6809ZHl68XXHP6809 co P4 &%$IORPiocheck FIB_IS_VALID dPerror overprintPsavereturn %["2ut3#R '80'"5P'20@_@O ;[ RPoverprintY Y9Poverprint EPoverprintYover&XPPAGEIO6809O 09ZHl68XXHP6809 co P5 {&#$IORPiocheck FIB_IS_VALID dPerror Dpage Psavereturn#["23#R '80'"5P'20@_@O ;[aRPpage YxY9 APpageaEPpage Y page&PPOSITIONIO6809M Hl68XXHP6809 co P6 &$IORPiocheck dPerror FIB_IS_VALID PsavereturnT"0_O"2##R'03A@/T RPposition L L9PpositionEPposition Lxposi&xPPROMPTIO680909PHl68XXHP6809 co P7 &$$IORPiocheck FIB_IS_VALID dPerror dprompt PsavereturnP$P"23#R '.0'5P'10PRPprompt O&O9 aPpromptEPprompt Oר prom&XPPUT IO6809O % Hl68XXHP6809 co P8 u &?dPbound WRITE_REC_LEN$IORPiocheck PAD_ODD_RECORDSFIB_IS_VALID dPerror Pputtext DwritePsavereturn ?'"## #~Y'DZequ e H'Ԁ'0'0>#' 05-0=@ eDZgtr #R ' 0"WL#$Zcc |H'0v uJ0  _O0J0e &0 3H020o 0o88| ARPput$\$9a APput AEPput$.4 put &PRD_CHAR IO6809\Hl68XXHP6809 co P9 &,$IORPiocheck FIB_IS_VALID dPerror Plook_text Pget_textPsavereturn ,_"22"25'. 0'###&1 ;_ RPread_char[ [9Pread_char EPread_char[/read&xPRD_INTIO680909Hl68XXHP6809 co P: &/$IORPiocheck FIB_IS_VALID dPerror Plook_text Pget_look_text Psavereturn`/J"2  0#_O"" 5 '_ 0#'L" JDZequ eD H '  H& - +' H&0jeDZugeq>Ȁ9>DZuleq DUH'09 'n0HUDZgtr  Ȅ4Ȅ4DZles #Ȕ'H@ 0dZintmul E0Ȃ""2jP2'R!'  % EdZintneg $q@ @$ RPread_integer o 9Pread_integerEPread_integer 1read&PRD_LONG IO6809 Hlwv68XXHP6809 co P; e&$IORPiocheck dPerror PsavereturnPrd_floatN%&##2#% RPread_longrealL 9\Pread_longreal EPread_longrealg%read&PRD_REAL IO68095Hl68XXHP6809 co P< &$IORPiocheck dPerror PsavereturnPrd_floatN-&##2#" l- REAL_CONTRACT}3 &Ȅ ϳdMBmove {Z29 RPread_real4 49qPread_real EPread_real45read&xPRD_STRIO680909 Hl68XXHP6809 co P= &/$IORPiocheck FIB_IS_VALID dPerror Plook_text Pget_look_text Psavereturn`/]&" 23 "# R'w 0P"'d_O2  0? 3]DZles #VȌ  :DZequ Gd@ ' 0 0 @ G RPread_string0o 9Pread_string EPread_stringiread&xPRD_UNSIO680909] Hl68XXHP6809 co P> &/$IORPiocheck FIB_IS_VALID dPerror Plook_text Pget_look_text Psavereturn`/M"2  0#_O"_O #R'( R0'2  MDZequ OF H '  H&+& &0i[ODZugeq>Ȁ 9)DZuleq DKH '0 9   '^0 x wKDZugtr .A5ȄȔ'H@ 5Zuintmul AMȂO"2Pz'2!1 TM RPread_unsigned\ \9Pread_unsigned EPread_unsigned\qkread&xPREADLNIO6809 Hl68XXHP6809 co P? &5$IORPiocheck FIB_IS_VALID dPerror Plook_text Pget_look_text Pget_textPsavereturn 5P"22##R'XR0'E2 0?PDZequ 9IH' H& @WQ9RPreadln  29 aPreadlnEPreadln  read&xPRESET IO6809 Hl68XXHP6809 co P? &4BACK_PTR_ARRAY $IORPiocheck Dopen Passociate dPerror FIRST_WORD_EQUAPsavereturn4 ! # dPARAM_ FǦ  & 0 __@GDZles #HȄDZgeq }T@'Ă 0XI0  0o 0 0o  0  0o 0 0 0<o 0=^{}2v3@ ΗdMBmove {_= 4@" 0>  0?o 0@_O 0Bo=aRPreset}9B aPreset aEPreset8 VARIABLEX &PREWRITE IO6809  Hl68XXHP6809 co P@ u&4BACK_PTR_ARRAY $IORPiocheck DcreatPassociate dPyxerror FIRST_WORD_EQUAPsavereturnO4 ! # dPARAM_ FČ  & 0 _@,CDZles #DȄDZgeq }P@'Ă 0XI0  0o 0o  0  0o 0 0 0 0<o 0=\y}2v3@ ΏdMBmove {_= 4@" 0>  0?o 0@_O 0Bo=RPrewrite 9>Prewrite EPrewriteXVARIABLET &XPSEEKIO6809O 09 Hl68XXHP6809 co PA &*$IORPiocheck dPbound dPerror PsavereturnFIB_IS_VALID seek_rec *C&##25"'03E"' CDZleq !? ZDZgeq }H@ ' Ād0o03$=  %P1,' 0 0o"0oP1' T} @aRPseek ̓9  APseekaEPseek ͝, seek&PSTROPEN IO6809WHl68XXHP6809 co PA ,& BACK_PTR_ARRAY N ! #~ dPARAM_ F{Ȉ   (0 0o 0o 0 0 0<o 0>  0@  0B 0D{r  0F  0HL RPstringopen 6" 9PstringopenbSTRfile EPsz ytringopen stri&PWRITELN IO6809DHl68XXHP6809 co PC &$$IORPiocheck FIB_IS_VALID dPerror dPputln Psavereturn2$G"22##R'R0' 10*GRPwritelnC%JC9Pwriteln EPwritelnCZwrit&PWR_CHAR IO6809 Hl68XXHP6809 co PC &2$IORPiocheck FIB_IS_VALID dPerror Pputtext Plinefit Pputblanks Psavereturn%y2^"b22##R'b0R#'O0R&:#0^DZequ ZȄHDZneq #.fH'0J102X. RPwrite_char 3 9Pwrite_charEPwrite_char owrit&xPWR_INTIO6809093 Hl68XXHP6809 co PE &2$IORPiocheck FIB_IS_VALID dPerror Pputtext Plinefit Pputblanks Psavereturn%y2C&"23"#R'0R', |CdZintneg,AH|0@ ',Zuintdiv BAg0!2 P!&R",|0-ADZgtr ȄҵDZgeq RH' "3&L RDZequ ;H'0 J3# z 1K; RPwrite_integer2 29oPwrite_integer EPwrite_integer2awrit&PWR_LON{zG IO6809=Hl68XXHP6809 co PF &$IORPiocheck dPerror PsavereturnPwrite_float  !# dPARAM_ F3̌  4v2x3@ 3dMBmove {Z2 4@ RPwrite_longrea< <9yPwrite_longrealEPwrite_longrea<writ&PWR_REAL IO6809FHl68XXHP6809 co PG &$IORPiocheck dPerror PsavereturnPwrite_float  ! # dPARAM_ F̌ Ȁ  REAL_EXTEND &4v 2x3@u&dMBmove {[; 4@Z RPwrite_real E) E9Pwrite_realEPwrite_real E*writ&xPWR_STRIO680909 Hl68XXHP6809 co PG ]&2$IORPiocheck FIB_IS_VALID dPerror Pputtext Plinefit Pputblanks Psavereturn%y2}&" 23 "# R' 0R'OT&H,H&R@}{DZleq ! DZequ AH '# 0 J3#!  10UA RPwrite_string ˽ 9Pwrite_stringEPwrite_string writ&xPWR_UNSIO680909 Hl68XXHP6809 co PI ֣&2$IORPiocheck FIB_IS_VALID dPerror Pputtext Plinefit Pputblanks Psavereturn%y2Q&" 23"#  R'0R"' |  " 0 QZuintdiv B)L0!2 | {P!& )DZgtr qȄDZgeq R}H' "  3&L    iRDZequ ;H'0 J 3#  z 1J; RPwrite_unsigneK 9;Pwrite_unsignedEPwrite_unsigne|writ&ASSOCIATEIO6809 Hl68XXHP6809 co P"  &BACK_PTR_ARRAY $IORFIB_IS_VALID Dclose?X"3P' XI00_O0 o HOaXDZleq !PH'  0 nDZequ siȄ 'HTZ1/H1 TH-00 03 , 0 0os RPassociateܳ- 9Passociate EPassociateSOasso&FIRST_EQ IO6809 Hl68XXHP6809 co P# +& ! # dPARAM_ F*O_O"0 *DZequ *ȈDZleq !66@'0 0@ >[6DZles #fȈ ћDZneq #tH'MacDZugeq;ȀzDZuleqAMH' 0H0 ΀-MDSTequ 8 U RFIRST_WORD_EQU)X 9FIRST_WORD_EQUAEFIRST_WORD_EQU4IRST&PRD}|_FLOATIO6809Hl68XXHP6809 co P: &"$IORdPerror FIB_IS_VALID Plook_text Pget_look_text W"  >0#@ DZugeq;Ȁ>9IDZuleqAȌ]DZequ H':@6nDZneq #05Ȁ>0@'0T66.P,0 LONGREAL_MUL  c">  LONGREAL_FLOAT G "s"0#&  )" LONGREAL_SUB  Ɉ, LONGREAL_ADD r H;'|8>L9v""$?FdMBmove {a|Ȅ,_O486;:L?LGLOLWL_LgLoQ||;LwLH'D0H'1Ȁ>> H'> H&> -<>+)|}H<' >@>.&;> >E >L>eȈ> l'>6}g' -=> +=' >>0>9 '.4.H>O #gdZintmul%H04> =' 4%dZintneg.4&H:&"84%4.DZles #Ȁ=4dZintabs!~ }4_.969!dZwshift(ɔ 64.Y='&?94`(dARRAY_ W#!Ș ,̀,m LONGREAL_DIV  R1Ĉ #?94`2& ,#",46"49/ %z9 <' "$,sR LONGREAL_NEG  8|Ĉ  ,$L@ @$8 RPrd_float  9Prd_floatEPrd_float h^@$@Y@ACAy7FnM8O?ZwH02uOs<^ &PWR_FLOATIO6809 Hl68XXHP6809 co PE C&%$IORdPerror Pputtext Plinefit Pputblanks FIB_IS_VALID d%!"e,!" 9!!"e  /!"  9!<" w0Jw94 N!w$L dPARAM_ F Uw'>w0'+ DZles #'sȄ@'Ĉy/' LONGREAL_LES  Ȉ, y@ LONGREAL_ABS Ȁ M LONGREAL_EQU /. +_O΄/|9/dMBmove {_}Ȅ7Ȅ?ȄGȄOȄWȄ_ȄgȄoQ_.""%}M+'F/%4`dARRAY_ WbȘ̀ h% LONGREAL_MUL  Frȍ'H H~IK/%4` 9F LONGREAL_GEQ  (Ԙ'*/%4`  ( LONGREAL_DIV  %H%/ %M'.=%DZequ -' qkDZgeq }Ȕ--'J,"! @!<_H))N}|)_OH!+'  ̌y.D  !!΄)_O%)T/9W$!&/%4`#"`T|&%%t)v*   ׇ& LONGREAL_ADD r {"ȍ  'I.  H+-' H!,""'2w #'w%,'-{M{FH<.''@wD0<.]%@%&.<' ɝF LONGREAL_TRUNC c @ '0<'f LONGREAL_FLOAT Q Ɉ   LONGREAL_SUB  GɈ  @%/H % -'@oE<T,-<@+<!GdZintabsEȅ &@@d.dZintdivNZ 0<d   0<  00!<0bN RPwrite_float* 9Pwrite_float NEPwrite_float|Iw?@$@Y@  ACAy7FnM8O?ZwH02uOs<@ow &PERR_6809IO6809 Hl68XXHP6809 co P+ Q& $IORPiocheck FEmessagePreturn_addr FILE_abort j %Q /"09r#5'f#a_dSTmove _72 2_.@A \0 r7dZwshift5b " " /z 0I5aRPerror+9 aPerror aEPerror? r` I/O error  00File IO routine called by user from address xxxxHr &PRD_TEXT IO6809Hl68XXHP6809 co P=  &$IORDPlookdPerror B9 0 0o0B'0H 3@}u9 RPget_text 1l 19n EPget_text 1_ 2"20^ DZequ "K@'Ā 0J 4" RPlook_texti i9 EPlook_texti Oj"   0 #0o  0 00P'1   0J  O RPget_look_text 9!Pget_textPlook_text 2Pget_look_text jEPget_look_text!get_&XPLOOKIO6809O 09uHl68XXHP6809 co P0  &<dPbound LINESIZE LINE_MARKER_MODLINE_MARKER_CHAREAD_REC_LEN $IORPAD_ODD_RECORDSdPerror Dread <`  0'd_O  0'? 0>'! 0B'  0F O 0@  Z`DZgtr ] 0@!~DZleq !}n@' Āo 0?o 0FO 0@  & 0J  0?  0J 3@ 1F01 0H:E}8  3@ 0? '  0@_O 00?oR&8DZequ { 0<R' 0J  0?  0H<o 0 <o 0J 3<  T, H~T&@ 0<'({vH& 0J  0? 0<o  04 0J 'H 0J  0?vDZneq #p 0 0?'2  0#%''  0  0@ 3 @0 0WZp$Zcc }cH'  0 J 0<o 0<"b  2 U,I 0<L'  0L}}" "" 0J0  0 0='W  0#"R' 0}*Q  0 3H0 0o#]*aRPlook tt9 APlookaEPlook t look&PWR_TEXT IO6809% Hl68XXHP6809 co PH &.LINESIZE LINE_MARKER_MODLINE_MARK  ER_CHAWRITE_REC_LEN$IORdPerror Dwrite. #&WDZneq #0O_DZequ D̀6P2' 0o0o0@_ O_OxQDaRPputlnXX9aEPputlnX4Y 0HB'0FOH0@"  P4DZgtr 0@! DZleq !}Ȁ 0@ 3D  '@ t 0@3F30J0F O0@  /H0F 3>}} @0 0@3@00H3@HZ0@5"-0R&<0J_5R&0@3S}+@0 0o0 o_O[+RPputtext59EPputtext5H" ,0 0@'H  HRPlinefit 9)EPlinefit ;"!P-'0J "&Y , P; RPputblanks$ $9a!aPputln Pputtext YPlinefit Pputblanks EPputblanks$e!putl&xPUTILS IO680909GHl68XXHP6809 co PB Ž&BACK_PTR_ARRAY $IORs"(DZgeq   ΠDZleq !#H' XI09#DZequ  7ȀΫ RFIB_IS_VALID?}t ?9| EFIB_IS_VALID?}g @25 RIORESULTFF9FIB_IS_VALID IORESULT @EIORESULTF >IB_I&xINITIALIO680909}=Hl68XXHP6809 co P$ &DcloseFIB_IS_VALID K .4 ! 56_O 2<"-XI0_O,| K RPinit_pascal_iDb D9 EPinit_pascal_iDU =ER-/ XI0 'H2  ,| Խ"= RPshutdown_pasc|ж |9mPinit_pascal_ioPshutdown_pascaEBACK_PTR_ARRAY bPbound .READ_REC_LEN 0WRITE_REC_LEN2LINE_MARKER_MOD4LINE_MARKER_CHA5LINESIZE 6Preturn_addr 8"IOR:Piocheck ;PAD_ODD_RECORDS5%dARRAY_ W H'0%OXI0W DZneq #*b@''&%$%%% <*DZugtr .D&''$[> RFIND_A_DISC_CA 9 EFIND_A_DISC_CA K"*,R -$))\*0,)3),|) **(x&K RSIOF_CHANGE פ 9 ESIOF_CHANGE פ V"224.400".2002.012.0o! 2.0oV RSET_RS_ADDR % %9b-PARSE_NAME aFIND_FDFIND_A_DISC_CA *SIOF_CHANGESET_RS_ADDRESET_RS_ADDR %"-}&keyboarddisplayprinterrs232relocabsolutelistingemul_comlink_comtracepromdatasourceasmb_dbasm,^}.b_symlink_symcomp_symcomp_dbp. &xUCLOSE IO6809O  Hl68XXHP6809 co P' &,dCA_INFOCA_PTR_ARRAY FD_ARRAY DerrnoRS232_RECV_OPENSIO_WAIT Dwrite, _ OGkDZgtr Ȅ КDZgeq dD ' ĀhXI0L & HJOXI 0 -:"XI0 fdDZequ Ȇ sDZneq #5H ',| L'O4` +B5dARRAY_ W|0'@_2! `R&,# '2# H;6|q41'$% "SOXIn*,,,,,,O4`0 oXI00 1P&_O"pqaRclose 9 AcloseaEclose    &xUCREAT IO6809O # Hl68XXHP6809 co P) &KdCA_INFOCA_PTR_ARRAY FD_ARRAY DerrnoRS232_MODE_BYTEPARSE_NAME SET_RS_ADDRdFIND_FDFIND_A_DISC_CA SIO_WAIT SIOF_CHANGE K}"_O4vΘ 4`'L, H|XI!0->!& P&Ƒ}A~@OXI!0Q1& 2O4`>AdARRAY_ W* 'H2*DZequ }"H"'0@0 0o"5R&]07# T&;(DT}|W ((   0(  0&   0o 0_O 0@@|| & LLO4`#" OXI0U&h 0 0 0@|}AU&*  0o 0_O 0@ 0@D%" OXI" "