IMD 1.16: 5/06/2007 18:08:08 64822-12005 Rev. 1.05 6809 C Compiler 2 of 2  D #?DGC} 4%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%HN64822-12005 6809 C COMPILER SRS ABSOLUTE S-64822-12005-1 0202 DESIGNER IZAGMA ALONSO 105 HEWLETT PACKARD                            ! " !#"$  #%$&  %'&(  ')(*  )+*,  +-,.  -/.0  /102  1324  3546  5768 798: 9;:< ;=<> =?>@ ?A@B ACBB database HP GG  Hl68XXHP HH  ~xRealLIBC6809 `p  ~xDerrorsC6809 qq  ~xZerrorsC6809 rr  ~LIB_6809 C6809 IS  ~ssmmtmp5 HP(hp)rr  DLIB_6809C6809 T_  ~ sCQ}AD C_LIBS_6809 Rev. 1.05 43  l68XX:HP :0004H  LIB_6809 :C6809 :0003H  DLIB_6809:C6809 :0003H  RealLIB:C6809 :0003H  Derrors:C6809 :000CH  Zerrors:C6809 :000CH  nJ&)D[b V 6RH!/-Address out of range  6 Address out of range  V 6!n&xHEAPS2 C6809 A6Hl68XXHP6809 co l 1&MASTERLINK dMEMERR dDISPOSE"  _O2  @KDZequ ~ '' 0@&    0  'u!P 'R_O"T' T&@f~} 03BR# "" !0 P & !P'l0S %\"0 0T& _O_Oh}6C2_O 03B006ARMARKE%E9AEMARKEF#" MCDZneq #JVL' 0 '@ 0@ JRRELEASE 9AMARK aRELEASEFERELEASE  ARK {&xHEAPS1 C6809 A6:5Hl68XXHP6809 co l &MASTERLINK dMEMERR a]" $ _O0<!0 0_O_O 0 3B0\]RINITHEAPVV9EINITHEAPV&W"00Ŀ&DZugeq8wȂ /DZugtr.:Ȃ  DZequ 6 ''0T& _O 0 9V6 " "_O  B{ DZneq #{'K0 3B#H  H ' T&  J I  '!_O T& {[ 9Ah"e& !%'   9A}" !P'0$&# 0 &@']&#0 3B1"0 -}K" 03B1"0 h _O"K9!KHf"$&$&_O$$0&"$WH"'$"$HRDISPOSE  9EDISPOSE c"1.0P0& ! -}T & H-e0TH$0_2O(*" ,-*00ȥcDZulesC}-2!2''*P0& !"- *( * ",-' *00R&,*.,(&B *B*({\}}H*00@33%H m*.",(&+" *0 *0 0*3B 00)*(" *0*.0w};00*f&*(T& -B!** ;ARNEW 999vINITHEAP aDISPOSEf!NEWAENEW 9^NITH&xMASTER C6809 A6Hl68XXHP-ΐ- l & MASTERLINK   &xARRAY_ C6809 A6fHl68XXHP-ΐ- l &dZintmulaARRAY_ Tv42|dKJ agcdbDag9jj0ggjd&b'ccOeegg jb&ga29g@g9v &XMBequC6809 A6 Hl68XXHP-ΐ- l E&dCOMPB_ DTRUE_dFALSE_ AMBequ) 4&1 &XSTequC6809 A6.Hl68XXHP-ΐ- l X&dCOMPB_ DTRUE_dFALSE_  ACHequASTequ[ 845402b944O&3 '&T8 &XMBgeqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBgeq' 4%0 &XSTgeqC6809 A6?Hl68XXHP-ΐ- l L&dCOMPB_ DTRUE_dFALSE_  ACHgeqASTgeqW J45402b944O4a/ a''3 2b% -}J &XMBgtrC6809 A6 Hl68XXHP-ΐ- l H&dCOMPB_ DTRUE_dFALSE_ AMBgtr( 4#. &XSTgtrC6809 A6?Hl68XXHP-ΐ- l [ &dCOMPB_ DTRUE_dFALSE_  ACHgtrASTgtrY J45402b944O4a/ a''3 2b# /}J &XMBleqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBleq, 4"- &XSTleqC6809 A6AHl68XXHP-ΐ- l L&&dCOMPB_ DTRUE_dFALSE_  ACHleqASTleqa K45402b944O4a/ a' ' 2b"L K.0]K &XMBlesC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBles. 4$/ &XSTlesC6809 A6AHl68XXHP-ΐ- l L(&dCOMPB_ DTRUE_dFALSE_  ACHlesASTlese K45402b944O4a/ a' ' 2b$,0]K &XMBneqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBneq. 4'2 &XSTneqC6809 A6.Hl68XXHP-ΐ- l L&dCOMPB_ DTRUE_dFALSE_  ACHneqASTneqe 845402b944O&3 ''U8 &xPARAM_ C6809 A6Hl68XXHP-ΐ- l &aPARAM_ C$41f45&52409 $ &xRENTRY_C6809 A6XHl68XXHP-ΐ- l X&aRENTRY_TSe4o'0& 0e1 1e52a0CS24P2'2b4@3b1"Z'Z&0b9e &xVPARAM_C6809 A6Hl68XXHP-ΐ- l &aVPARAM_Q9d1f45&9 &VRENTRY_ C6809 Hl68XXHP-ΐ- l &VRENTRY_ jCS2045 &SETmbLEQ C6809 Hl68XXHP-ΐ- l & DTRUE_dFALSE_ 4 SETmbLEQ p'44P4C& 5@' 5V5Pp' &SETmbDIF C6809 Hl68XXHP-ΐ- l ML &SETmbDIF t4q4C5' 5 &SETmbINT C6809 Hl68XXHP-ΐ- l &SETmbINT y4q45&5 &SETmbUNI C6809 Hl68XXHP-ΐ- l &SETmbUNI y4q45' 5 &xSTACK_ C6809 A6Hl68XXHP-ΐ- l  &bSTACK_ [ &xINSETmbC6809 A67Hl68XXHP-ΐ- l :&Zbtoset8 aINSETmbbT>44DVDVDV0@/@ &_5555Ow> &xTOSETmbC6809 A64Hl68XXHP-ΐ- l D&Zbtoset8 dMBmove EMPTY_SET_ aTOSETmbc_:04c/ _cDVDVDVa.@5b: &EMPTY_SETC6809 Hl68XXHP-ΐ- l +& EMPTY_SET_ F &UX& &XENTRYC6809 A6Hl68XXHP-ΐ- l 2&DMAIN Z_END_PROGRAMdSTACK_  @4ۨ aEENTRY AENTRY6 &XEntryC6809 A6Hl68XXHP-ΐ- l  r&Dmain Z_END_PROGRAMdSTACK_  @4ۨaEEntry AEntryAentry&xMBmove C6809 A6Hl68XXHP-ΐ- l &aMBmove xR4Q45&5. &xSTmove C6809 A6Hl68XXHP-ΐ- l $& dMBmove STR_ERRORT aSTmove X$4Q4O#2a5P5 f$N M &ZBtoIadd C6809 Hl68XXHP-ΐ- l %&ZBtoIadd 4Q44b2c5 &ZBtoIsub C6809 Hl68XXHP-ΐ- l 7&ZBtoIsub 444b2c5 &ZuBtoIaddC6809 Hl68XXHP-ΐ- l (Z&ZuBtoIadd4Q4O4b2c5 &ZuBtoIsubC6809 Hl68XXHP-ΐ- l 9j&ZuBtoIsub)44O4b2c5 &Zbbounds C6809 Hl68XXHP-ΐ- l DI& RANGE_ERROR- Zbbounds 44,2a/2a5 + &Zbinset16C6809 Hl68XXHP-ΐ- l z&Zbtoset16Zbinset16%4bc&_5 55&% &Zbinset8 C6809 Hl68XXHP-ΐ- l `&Zbtoset8 Zbinset8 "04a&_5 55E" &Zwinset16C6809 Hl68XXHP-ΐ- l &Zwtoset16Zwinset16%4ab&_5555% &Zwtoset16C6809 Hl68XXHP-ΐ- l &Zbtoset8 Zwtoset16 @4. 5L5x  &Zbtoset16C6809 Hl68XXHP-ΐ- l s&dZwshiftZbtoset16045 &Zbtoset8 C6809 Hl68XXHP-ΐ- l [&dZbshiftZbtoset8 045 &xZbshiftC6809 A6Hl68XXHP-ΐ- l s&aZbshiftON4-' HZ' D\' 5 &Zbrotate C6809 Hl68XXHP-ΐ- l )m&Zbrotate &4. 'D$\' HZ' 5R& &Zbyteadd C6809 Hl68XXHP-ΐ- l -@&Zbyteadd  445  &Zbytediv C6809 Hl68XXHP-ΐ- l B&Zbytediv 2}42zooAojo'u.A @ll'd.APllX% VA% @X  XT@j&@F@%*}PF$@ 2f5 &Zbytemul C6809 1Hl68XXHP-ΐ- l Az&Zbytemul 1844'*@l'*Pl=F% CS 2b58 &Zbyteneg C6809 Hl68XXHP-ΐ- l =?&Zbyteneg Zbyteabs Z} ,P9{  &Zbytesub C6809 Hl68XXHP-ΐ- l  =S&Zbytesub -445 &8ZccC6809 A6 Hl68XXHP-ΐ- l YX& DTRUE_dFALSE_ 4 !Zcc4% &XZequ C6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZequ 4' &XZgeq C6809 A6 Hl68XXHP-ΐ- l j& DTRUE_dFALSE_ 4 AZgeq 4- &XZgtr C6809 A6 Hl68XXHP-ΐ- l k& DTRUE_dFALSE_ 4 AZgtr 4/ &xZintaddC6809 A6Hl68XXHP-ΐ- l P O H&aZintadd 445  &xZintdivC6809 A6Hl68XXHP-ΐ- l &aZintdiv}42yooAoo@,l' '} ,`gCS9lXI% FVA%AXI XI}?@DV@j&F$H%  @2g52b9ZN? &xZintmulC6809 A6Hl68XXHP-ΐ- l &aZintmul}42ybodoc'o@ '@a .`dCS9@ =e =dd$lc@=dd$lcA=ccHec%x}{ 2g52b9 &Zdintmul C6809 Hl68XXHP-ΐ- l =&Zdintmul -}42ybodoc'o@ '@a .`dCS9@ =e =dd$lc@=dd$lcA=ccHec%x}{ 2g52b9 &xZintnegC6809 A6 Hl68XXHP-ΐ- l ]& aZintnegaZintabsFA ,CS@9F[ &Zdintneg C6809 Hl68XXHP-ΐ- l 9@&Zdintneg ) CS9  &xZintsubC6809 A6 Hl68XXHP-ΐ- l [&aZintsub445 &XZleq C6809 A6 Hl68XXHP-ΐ- l o& DTRUE_dFALSE_ 4 AZleq 4/ &XZles C6809 A6 QPHl68XXHP-ΐ- l q& DTRUE_dFALSE_ 4 AZles 4- &XZneq C6809 A6 Hl68XXHP-ΐ- l q& DTRUE_dFALSE_ 4 AZneq 4& &ZubboundsC6809 Hl68XXHP-ΐ- l B& RANGE_ERROR- Zubbounds34$2a#2a5  &ZubyteaddC6809 Hl68XXHP-ΐ- l I{&Zubyteadd9 445  &ZubytedivC6809 _Hl68XXHP-ΐ- l N&Zubytediv? ^42|oo@'G'ElX% V% X@ @XATj& 2d5=^ &ZubytemulC6809 Hl68XXHP-ΐ- l Z&ZubytemulK  4=5,  &ZubytesubC6809 Hl68XXHP-ΐ- l Z&ZubytesubK 49  &XZugeqC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZugeq44% &XZugtrC6809 A6 Hl68XXHP-ΐ- l {& DTRUE_dFALSE_ 4 AZugtr+54# &Zuintadd C6809 Hl68XXHP-ΐ- l :B&Zuintadd * 445  &Zuintdiv C6809 {Hl68XXHP-ΐ- l O&Zuintdiv ?t42yooAo'Y'AWlXI% FV@%@XIA @XI@DVj@&@D 2g5Ot &Zuintmul C6809 bHl68XXR QHP-ΐ- l N&Zuintmul >c42xoboc'HA'@=d=cc$lb=cc$lb@=bbdb 2h5c &ZduintmulC6809 bHl68XXHP-ΐ- l H&Zduintmul9c42xoboc'HA'@=d=cc$lb=cc$lb@=bbdb 2h5c &Zuintsub C6809 Hl68XXHP-ΐ- l JV&Zuintsub :445 &XZuleqC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZuleq94# &XZulesC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZules;4% &ZuwboundsC6809 Hl68XXHP-ΐ- l B& RANGE_ERROR- Zuwbounds3# 4"40@%9 &Zwbounds C6809 Hl68XXHP-ΐ- l YG& RANGE_ERROR- Zwbounds I 4.40@-9 &ZstchbounC6809 %Hl68XXHP-ΐ- l ?&RANGE_ERRORSTR_ERRORa Zstchbounds .4&O4#2b4@$2b5. &xZwshiftC6809 A6Hl68XXHP-ΐ- l |&aZwshift#4'*DV0&'XI0&5{# &Zwrotate C6809 $Hl68XXHP-ΐ- l >x&Zwrotate .,4'* DV$0' XI0' 5, &xZerrorsC680SR9 A6L Hl68XXHP-ΐ- l & aZerrorsCASE_ERROR !aMEMERR 3RANGE_ERROR,STR_ERRORG [4e 55""9  4 5  B q[  &xFALSE_ C6809 A6Hl68XXHP-ΐ- l &aFALSE_ T _59  &XTRUE_C6809 A6Hl68XXHP-ΐ- l )&ATRUE_  59Q  &xCOMPB_ C6809 A6Hl68XXHP-ΐ- l &aCOMPB_ _4P4& 5& 2b5 &Z_END_PROC6809 Hl68XXHP-ΐ- l & Z_END_PROGRAM#  " *XSWI_1C6809 A6Hl68XXHP-ΐ- l H~*DSWI_1 *XSWI_2C6809 A6Hl68XXHP-ΐ- l Hs*DSWI_2 *XSWI_3C6809 A6Hl68XXHP-ΐ- l Hp*DSWI_3 &END_DATA_C6809 Hl68XXHP-ΐ- l(DATA) END_DATA_ B&END_DATA_ R &xHEAPS2 C6809 A6Hl68XXHP6809 co l B&MASTERLINK dMEMERR dDISPOSE"SR_OF2PP@)DZequ ~RUU''P0@& R P0P R'u!PP'R_O"JLLT'LJ TF&LFJH@uv~} L0F3BR# L""FJHP!0PP &R !PF'l0S %\"0NFS0NTH& _ON_O}6CH2V_O 0V3B00@6ARMARKE%E9AEMARKW*X#" QDZneq #JhL' 0 '@ 0@ JRRELEASE 9AMARK aRELEASEXERELEASE 5ARK {&xHEAPS1 C6809 A6oHl68XXHP6809 co l &MASTERLINK dMEMERR a]"WY $ _O0<W![0 Y[0_O_O [[0 [3B0[]RINITHEAPVV9EINITHEAP\&]"00o&DZugeq8}Ȃ DZugtr.:Ȃ_DZequ 6''0T& _O 0 9x6 "xzs"_OuwsG DZneq #{w||'Kx0s3B#HsuHs'uT& xzxuUTsxw w'!_OxuT& x{fzxu9A}"e& !%'   9A}"!P'0$&# 0 &@']&#0 3B1"0 }K= 03B1"0}_O"K9NKH"$_O0]H'0HRDISPOSE Ͱ-9 EDISPOSE Ӱ&c"1hjP0& ! g}T & HgejTH$j_2Obd" fgd0jcDZulesC}6gl!l''dP0& !"g db d "fg' d0jR&,dhfb&B dBdbR}}Hd0j@mm%H mdh"fb&+" dj d0 0d3B 0j)db" djdh0};(jjd&dbT& gB!dd ;ARNEW aa9INITHEAP aDISPOSE!NEWAENEW n^NITH&xMASTER C6809 A6Hl68XXHP-ΐ- l & MASTERLINK   &xARRAY_ C6809 A6fHl68XXHP-ΐ- l &dZintmulaARRAY_ Tv42|dV U agcdbDag9jj0ggjd&b'ccOeegg jb&ga29g@g9v &XMBequC6809 A6 Hl68XXHP-ΐ- l E&dCOMPB_ DTRUE_dFALSE_ AMBequ) 4&1 &XSTequC6809 A6.Hl68XXHP-ΐ- l X&dCOMPB_ DTRUE_dFALSE_  ACHequASTequ[ 845402b944O&3 '&T8 &XMBgeqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBgeq' 4%0 &XSTgeqC6809 A6?Hl68XXHP-ΐ- l L&dCOMPB_ DTRUE_dFALSE_  ACHgeqASTgeqW J45402b944O4a/ a''3 2b% -}J &XMBgtrC6809 A6 Hl68XXHP-ΐ- l H&dCOMPB_ DTRUE_dFALSE_ AMBgtr( 4#. &XSTgtrC6809 A6?Hl68XXHP-ΐ- l [ &dCOMPB_ DTRUE_dFALSE_  ACHgtrASTgtrY J45402b944O4a/ a''3 2b# /}J &XMBleqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBleq, 4"- &XSTleqC6809 A6AHl68XXHP-ΐ- l L&&dCOMPB_ DTRUE_dFALSE_  ACHleqASTleqa K45402b944O4a/ a' ' 2b"WV.0]K &XMBlesC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBles. 4$/ &XSTlesC6809 A6AHl68XXHP-ΐ- l L(&dCOMPB_ DTRUE_dFALSE_  ACHlesASTlese K45402b944O4a/ a' ' 2b$,0]K &XMBneqC6809 A6 Hl68XXHP-ΐ- l 9&dCOMPB_ DTRUE_dFALSE_ AMBneq. 4'2 &XSTneqC6809 A6.Hl68XXHP-ΐ- l L&dCOMPB_ DTRUE_dFALSE_  ACHneqASTneqe 845402b944O&3 ''U8 &xPARAM_ C6809 A6Hl68XXHP-ΐ- l &aPARAM_ C$41f45&52409 $ &xRENTRY_C6809 A6XHl68XXHP-ΐ- l X&aRENTRY_TSe4o'0& 0e1 1e52a0CS24P2'2b4@3b1"Z'Z&0b9e &xVPARAM_C6809 A6Hl68XXHP-ΐ- l &aVPARAM_Q9d1f45&9 &VRENTRY_ C6809 Hl68XXHP-ΐ- l &VRENTRY_ jCS2045 &SETmbLEQ C6809 Hl68XXHP-ΐ- l & DTRUE_dFALSE_ 4 SETmbLEQ p'44P4C& 5@' 5V5Pp' &SETmbDIF C6809 Hl68XXHP-ΐ- l X W &SETmbDIF t4q4C5' 5 &SETmbINT C6809 Hl68XXHP-ΐ- l &SETmbINT y4q45&5 &SETmbUNI C6809 Hl68XXHP-ΐ- l &SETmbUNI y4q45' 5 &xSTACK_ C6809 A6Hl68XXHP-ΐ- l  &aSTACK_ Z &xINSETmbC6809 A67Hl68XXHP-ΐ- l :&Zbtoset8 aINSETmbbT>44DVDVDV0@/@ &_5555Ow> &xTOSETmbC6809 A64Hl68XXHP-ΐ- l D&Zbtoset8 dMBmove EMPTY_SET_ aTOSETmbc_:04c/ _cDVDVDVa.@5b: &EMPTY_SETC6809 Hl68XXHP-ΐ- l +& EMPTY_SET_ F &UX& &XENTRYC6809 A6Hl68XXHP-ΐ- l 2&DMAIN Z_END_PROGRAMdSTACK_  @4ۨ aEENTRY AENTRY6 &XEntryC6809 A6Hl68XXHP-ΐ- l  r&Dmain Z_END_PROGRAMdSTACK_  @4ۨaEEntry AEntryAentry&xMBmove C6809 A6Hl68XXHP-ΐ- l &aMBmove xR4Q45&5. &xSTmove C6809 A6Hl68XXHP-ΐ- l $& dMBmove STR_ERRORT aSTmove X$4Q4O#2a5P5 f$YX &ZBtoIadd C6809 Hl68XXHP-ΐ- l %&ZBtoIadd 4Q44b2c5 &ZBtoIsub C6809 Hl68XXHP-ΐ- l 7&ZBtoIsub 444b2c5 &ZuBtoIaddC6809 Hl68XXHP-ΐ- l (Z&ZuBtoIadd4Q4O4b2c5 &ZuBtoIsubC6809 Hl68XXHP-ΐ- l 9j&ZuBtoIsub)44O4b2c5 &Zbbounds C6809 Hl68XXHP-ΐ- l DI& RANGE_ERROR- Zbbounds 44,2a/2a5 + &Zbinset16C6809 Hl68XXHP-ΐ- l z&Zbtoset16Zbinset16%4bc&_5 55&% &Zbinset8 C6809 Hl68XXHP-ΐ- l `&Zbtoset8 Zbinset8 "04a&_5 55E" &Zwinset16C6809 Hl68XXHP-ΐ- l &Zwtoset16Zwinset16%4ab&_5555% &Zwtoset16C6809 Hl68XXHP-ΐ- l &Zbtoset8 Zwtoset16 @4. 5L5x  &Zbtoset16C6809 Hl68XXHP-ΐ- l s&dZwshiftZbtoset16045 &Zbtoset8 C6809 Hl68XXHP-ΐ- l [&dZbshiftZbtoset8 045 &xZbshiftC6809 A6Hl68XXHP-ΐ- l s&aZbshiftZ Y4-' HZ' D\' 5 &Zbrotate C6809 Hl68XXHP-ΐ- l )m&Zbrotate &4. 'D$\' HZ' 5R& &Zbyteadd C6809 Hl68XXHP-ΐ- l -T&OVERFLOW MZbyteadd 44(2a5 &Zbytediv C6809 Hl68XXHP-ΐ- l B&OVERFLOWPULL4UNDERFLOWPULL2 DIV_BY_ZERO_BYTٴZbytediv 2|42|ooAooj'w*A @ll'*PllX% V% X@ @XATj&F-|"%PF$@ 2d52b9W" &Zbytemul C6809 <Hl68XXHP-ΐ- l A&OVERFLOWPULL3UNDERFLOWPULL1 LZbytemul 1C44*@l*Pl=5F%CSC.0-2a52b5"8C &Zbyteneg C6809 Hl68XXHP-ΐ- l  =T&OVERFLOW MZbyteneg Zbyteabs Z},P(2 a9[ &Zbytesub C6809 Hl68XXHP-ΐ- l =c&OVERFLOW MZbytesub -4(093 &8ZccC6809 A6 Hl68XXHP-ΐ- l YX& DTRUE_dFALSE_ 4 !Zcc4% &XZequ C6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZequ 4' &XZgeq C6809 A6 Hl68XXHP-ΐ- l j& DTRUE_dFALSE_ 4 AZgeq 4- &XZgtr C6809 A6 [ZHl68XXHP-ΐ- l k& DTRUE_dFALSE_ 4 AZgtr 4/ &xZintaddC6809 A6Hl68XXHP-ΐ- l ]&OVERFLOW MaZintadd44(2a5 &xZintdivC6809 A6Hl68XXHP-ΐ- l "&OVERFLOWPULL1DIV_BY_ZERO_INTgaZintdiv}42{ooAoojoA',l@C' ,leCS9lXI% FVA%XI XI]}=@DVj@&F$F0-% 2e52d9= &xZintmulC6809 A6Hl68XXHP-ΐ- l &aZintmul}42ybodoc'o@ '@a .`dCS9@ =e =dd$lc@=dd$lcA=ccHec%x}{ 2g52b9 &Zdintmul C6809 Hl68XXHP-ΐ- l >&OVERFLOWPULL2UNDERFLOWPULL3 KZdintmul -}42|4oboah'@hf'f *lbCS9 @=c=bb$la @=bb$Ala=aaaFc%#"E}Mx%CS &-. &C- 2e52d9M &xZintnegC6809 A6 Hl68XXHP-ΐ- l k&OVERFLOW M aZintnegaZintabsFA ,CS@9F[ &Zdintneg C6809 Hl68XXHP-ΐ- l \ [9T&OVERFLOW MZdintneg )CS(9 &xZintsubC6809 A6Hl68XXHP-ΐ- l q&OVERFLOW MaZintsub440(2a5 &XZleq C6809 A6 Hl68XXHP-ΐ- l o& DTRUE_dFALSE_ 4 AZleq 4/ &XZles C6809 A6 Hl68XXHP-ΐ- l q& DTRUE_dFALSE_ 4 AZles 4- &XZneq C6809 A6 Hl68XXHP-ΐ- l q& DTRUE_dFALSE_ 4 AZneq 4& &ZubboundsC6809 Hl68XXHP-ΐ- l B& RANGE_ERROR- Zubbounds34$2a#2a5  &ZubyteaddC6809 Hl68XXHP-ΐ- l I&OVERFLOW MZubyteadd944$2a5 &ZubytedivC6809 eHl68XXHP-ΐ- l N& DIV_BY_ZERO_BYTKi Zubytediv? d42|oo@'M'lX% V% X X@TAj&A 2d5kd &ZubytemulC6809 Hl68XXHP-ΐ- l Z&OVERFLOW MZubytemulK 4=#2a5 &ZubytesubC6809 Hl68XXHP-ΐ- l Z&OVERFLOW MZubytesubK4$2a9q &XZugeqC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZugeq44% &XZugtrC6809 A6 Hl68XXHP-ΐ- l {& DTRUE_dFALSE_ 4 AZugtr+5]\4# &Zuintadd C6809 Hl68XXHP-ΐ- l :W&OVERFLOW MZuintadd *44(2a5 &Zuintdiv C6809 {Hl68XXHP-- l O& DIV_BY_ZERO_INT@p Zuintdiv ?v42{ooAo'Y'lXI% FV@%@XIA @XI@DVj@&@@ 2e52b9^uv &Zuintmul C6809 bHl68XXHP-ΐ- l N&Zuintmul >c42xoboc'HA'@=d=cc$lb=cc$lb@=bbdb 2h5c &ZduintmulC6809 iHl68XXHP-ΐ- l I & OVERFLOWPULL2 Zduintmul9k42zocob'LA'D=d=cc$lb=cc$lb@=bbdb& D2f52b9k &Zuintsub C6809 Hl68XXHP-ΐ- l Jk&OVERFLOW MZuintsub :440$2a5 &XZuleqC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZuleq94# &XZulesC6809 A6 Hl68XXHP-ΐ- l l& DTRUE_dFALSE_ 4 AZules;4% &ZuwboundsC6809 Hl68XXHP-ΐ- l  B& RANGE_ERROR- Zuwbounds3# 4"40@%9 &Zwbounds C6809 Hl68XXHP-ΐ- l YG& RANGE_ERROR- Zwbounds I 4.^ ]40@-9 &ZstchbounC6809 %Hl68XXHP-ΐ- l ?&RANGE_ERRORSTR_ERRORa Zstchbounds .4&O4#2b4@$2b5. &xZwshiftC6809 A6Hl68XXHP-ΐ- l |&aZwshift#4'*DV0&'XI0&5{# &Zwrotate C6809 $Hl68XXHP-ΐ- l  >x&Zwrotate .,4'* DV$0' XI0' 5, &xDerrorsC6809 A6Hl68XXHP-ΐ- l &waDerrorsOVERFLOW -OVERFLOWPULL1OVERFLOWPULL2OVERFLOWPULL3#OVERFLOWPULL4)UNDERFLOWUNDERFLOWPULL1 UNDERFLOWPULL2 UNDERFLOWPULL3 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-ΐ- l &aFALSE_ T _59  &XTRUE_C6809 A6Hl68XXHP-ΐ- l )&ATRUE_  59Q  &xCOMPB_ C6809 A6Hl68XXHP-ΐ- l &aCOMPB_ _4P4& 5& 2b5 &Z_END_PROC6809 Hl68XXHP-ΐ- l & Z_END_PROGRAM# _^ " *XSWI_1C6809 A6Hl68XXHP-ΐ- l H~*DSWI_1 *XSWI_2C6809 A6Hl68XXHP-ΐ- l Hs*DSWI_2 *XSWI_3C6809 A6Hl68XXHP-ΐ- l Hp*DSWI_3 &END_PROG_C6809 Hl68XXHP-ΐ- l(PROG) END_DATA_ ]&END_DATA_ ^ &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) 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_ABb aS } 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 cbLong 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-ΐ- hLong 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 Od cNLY_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 13ed  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 1f e3oc\'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 gf 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  &h g  &  &  #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  ih13 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 SCLEARmanj it 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_MkjULREAL_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 l kSZERO_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 &XSSUBSFL6809Hl68XXHP-ΐ- hShort real pack/unpackD&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-ΐ- hGeneric real compare w&9SLSRmant REAL__TEST SCOPYrealIS_n mINVALID 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# &XSCOMPFL6809WHl68XXHP-ΐ- hShort real compare 4&`SLSRmant dEQU_NO SCOPYrealSHORT_BIN_PARS INVALID_OP REAL__COMP dGTR_NO SZERO_UPmant dLES_NO SLSLmant SADDC_UPmant SCLEARmant dNEQ_NO dGEQ_NO dLEQ_NO y` SHORTREAL_COMP 9 3'] 2g9;REAL_EQU y1'_998TREAL_NEQ !z!1& 7?REAL_LEQ ++1'+ 7REAL_LES 771+ 8REAL_GEQ AA1* 8REAL_GTR KK1' 9 &xSUTILS FL6809A6t Hl68XXHP JxShort real parameter p&BUNPACK_SHORTREAPACK_SHORTREAL SLSRmant SCOPYrealSZERO_UPmant SLSLmant SADDC_UPmant dINVALIDSCLEARmant #TB'D4@2)'e4@c@ge5B' SHORT_BIN_PARS (r (('%#0b0%1#1 9"( SHORT_UN_PARSI I'#0b%109J SHORT_NO_UNPACK^ ^'#0b9 PACK_resultj j!39 &XMSUBSFL6809A6Hl68XXHP JwMore subroutines )[&dINVALID=3 RESULT_IS_ZERO q 1|o '9 RESULT_IS_INF A  1oo )9 RESULT_IS_ONES 1bo oo9 IS_INVALID *$ *9 RESULT_IS_NaN1r 11onKo )9SCOPYrealB%B4(H&F$D"B*J59%SLSLmant __h'i&i%i$i#i"i!i9SLSRmant ppdf!f"f#f$f%f&f'9{ SCLEARmant R^ oo!o"o#o$o%o&o'9 SZERO_UPmant 'mB&mC&mD&mE&mF& mG&mH&mI9' SADDC_UPmant >4 9.> &xRERRORSFL6809Hl68XXHP-ΐ- h TQ&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 p oaddress 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   ovUNDERFLOWPULL1 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?$ vbZ_ACC_AGET_ADDRESSaZerrorsbZ_ACC_BbZ_REG_XbZ_REG_UZ_CC_FLAGS Z_CALLER_H Z_CALLER_L "END LOAD_REGSCASE_ERROR !Z_ERR_CASE )RANGE_ERROR,Z_ERR_RANGE0aMEMERR 3Z_ERR_HEAP DSTR_ERRORGZ_ERR_STRING Isvrt sutv uwvx wyxz y{z| {}|~ }~    ! ! " "