IMD 1.16: 5/06/2007 17:24:41 64810-12009 Rev. 2420A 8080/8085 Pascal Compiler 2 of 2  D #?DGC} k4""""""""""""""""""""N64810-12009 PASCAL COMP 8080/8085 SRS ABSOLUTE S-64810-12009-1 RVA 0202 DESIGNER G. BOURQUE 2420 HEWLETT PACKARD                            ! " !#"$  #%$&  %'&(  ')(*  )+*,  +-,.  -/.0  /102  1324  3546  5768 798: 9;:< ;=<> =?>@ ?A@B ACBB database HP GG m ml8085_Z80HP HH A AhDerrorsHP QQ A AhZerrorsHP YY B Bssmmtmp3 HP(hp)YY m mhLIB8085HP RX B BDLIB8085 HP IP A A ZCj}AD PASCAL_LIBS_8085 5 Mar 1984 18  l8085_Z80:HP :0004H  DLIB8085 :HP :0003H  Derrors:HP :000CH  LIB8085:HP :0003H  Zerrors:HP :000CH  c?(+.14;E V V 6 6 6 y 6  y 6RH!/- yAddress out of range c&hDHEAPS2HP5 A6% l8085_Z80HP HEAPS2 Pascal &1dMEMERR dDISPOSEMASTERLINK dZintsubdZintequdZintneqdZintlesdZintgeqdPARAM_ [:1v"2!D6!"*" :*^#0V!Gʈa*####^2#V!P$!6^ *####^#"V":*^#Vc-vyn"!""*^#V"!* ""~**"*"È*##*##N#F^#V`i*"*"*y####^#VL"ʉ"!6a* ##L^#V! ʌ*"*"0**s#r*!s#r*2 K*s#rT*s8qUR#r*0 *s#r*"*^#V! s#r*##L^#V! *^#V#s#rPUu"3*""*0*Gʀ^#"V"* ####^#V""*"!##"#9!#PnuAMARK ARMARKAEMARKaRELEASERRELEASE ERELEASE $$Z &hDHEAPS HP5 A6 l8085_Z80HP HEAPS Pascal &6dMEMERR MASTERLINK dZintsubdZintequdZintneqdZintleqdZintlesdZintgeqdZintgtrdPARAM_ h^6}"2*! #!3"~}*""*@*s#r *##*s#r*####s#r*@^#V!s#r*##^#V!*^}t#Vs#Pr z"2 * *s#r*^#V*N#F^#V0 * PY G!GJ IN#F`i#*@"s#r*^#Vz^#V*s#r T+u"2*!^#V"!"I"!6:! *G ##*##N#F^#V"`ih* "^#V""*"**\Vue|s#r* *s#r**s#r! 6.:ˆ@*s#r#"***s#rÈ **sP#rsCea"239*9^#V*;ʀ ^#V*9s#r2*9^#V"=*=^#V# *;&"=*;^#V *=s#r@ a?"239*;"^#V"=*= 2##*=N#F *9N#F` i!?6"*9^#V*9N#F^#V *=Ȓ!?6$!?6:?%nUwH*9^#V*=##N#F^#V *=##s#r*9*=s#r" *=##*9^#V^#VN#F *9^#V s#r;=?9;!sMw" "=/*=^#!V"=RP]@"2* Y"@*s#r *##*s#r*ͨ?T˜]z"3y*##v!6J*L^#V!ʎ$w!6ÈLJ*ʂ"!"0*^#V"$!6!6*##^#V*zy!G~J*^#V!28:x!"6G*""^#V"":!u*##^#V*2 ** s#r!6!2*y| *^#V*s #rKJ*^#V*s#rr!**##N#F`iȂI**$s#r!6****s#r*^#V *^#V|rs#r*##^0#V**^#Vs#rF*^#V*s#r**"*^#V^2#V*"*"@r* "^#V!͒r-Vhx!H6r*^#V"J-0aDISPOSE@RDISPOSE EDISPOSE INITHEAP RINITHEAP}EINITHEAP!NEWARNEW uAENEW /0 &HNEQM HP5 A6l8085_Z80HP  $& dEQUMB_ dEQUMW_  aNEQMW_ aNEQMB_ ! 0=<  &hEQUMW_ HP5 A6 l8085_Z80HP  <&dEQUMB_ baEQUMW_ _)08\ &hEQUMB_ HP5 A6l8085_Z80HP  3&aEQUMB_ ^! # x< ! &hZintequHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintequz{ &hZintneqHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintneqz{s &hZintgtrHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintgtr( } À ^( &hZintgeqHP5 A6#l8085_Z80HP   & dCFALSE DCTRUE) aZintgeq+ } + &hZintlesHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZinL Ktles( { À ^( &hZintleqHP5 A6#l8085_Z80HP  & dCFALSE DCTRUE) aZintleq+ { + &Zbyteleq HP5 l8085_Z80HP  E&DCTRUEZbyteles Zbyteleq m0   ?V &Zbytegeq HP5 l8085_Z80HP  @& dCFALSE DCTRUE) Zbytegtr Zbytegeq b  5  &(CTFHP5 A63l8085_Z80HP  K& ACTRUEaCFALSE # <0  &hZbshiftHP5 A6*l8085_Z80HP  &Zbytemod ,aZbshift6Ҁ&)=}g}l,}6 &Zbshiftc HP5 l8085_Z80HP  %&Zbytemod ,Zbshiftc ( g}l- g }l,}.( &hZbtointHP5 A6 l8085_Z80HP  &aZbtoint o&&ɇ &hZwshiftHP5 A6%l8085_Z80HP   &Zbytemod ,aZwshift/"" !)=€|7?g}o<Ҵ/ &Zwshiftc HP5 l8085_Z80HP  :&Zbytemod ,Zwshiftc *&) ,=}|g}o<€ɗ& &Dbytediv HP5 nl8085_Z80HP  C&ERR_DIVBY0 ERR_OVERFLOW ӏZbytediv Zbytemod i\} ML#$_=/<g.R}l3333/<_>3 >/<g. R|/<eo|/<3333>) e33,=€U} g_}ɋ  &Dbytemul HP5 Wl8085_Z80HP  A&ERR_UNDERFLOWERR_OVERFLOW a Zbytemul Zbytesqr Roh "_<B 33/<_6 #B/<033/<o/<o%e.>)L=G}o h &hDintdivHP5 A6l8085_Z80HP  /&ERR_DIVBY0 ERR_OVERFLOW dZint1C dZintnegJ aZintdivaZintmodwW }"J|Q3333 #0.#|+C|Q###60#DM!>))e# s33H}m=\m 330_< &hARRAY_ HP5 A6Vl8085_Z80HP  ~&dZintmulaARRAY_ Te^#V#~##^#V#^#VG{x'#^#V^#V#^#V#^#VN #F#=O+7e &hARRAYN_HP5 A6l8085_Z80HP  &dZintmulaARRAYN_CM{^#V#N#Fy€!x!#^#VN#F#V##^#V# N#F#!9^44{#V G4^#V ^#Vi` !9{w#z w=iÀ2!pN{Mj 9~ w$o!9~4!9N#F# y!9^#V! 9s#r !9M &COMPARESTHP5 %l8085_Z80HP  N M t&COMPARESTl-G #~O# ! €< 7ɑ- &HDset2HP5 A6]l8085_Z80HP  z\&Zbtoset8 dERR_SETZbinset8 A Zbinset16Zwinset16Zbtoset16Zwtoset16@Zwtoset8 M$ p# l0z{#""!90g33 o30} |V}0hp &HDset1HP5 A68l8085_Z80HP  z3&dERR_SET[BZbtoset8 Zbinset8 Zwinset8 +N# !_~3*3 @ )<"){ N &HZset4HP5 A6l8085_Z80HP  z6&Zset16intZset16leqZset16geq " |}<$5" &HZset3HP5 A6l8085_Z80HP  z4&dZint1C Zset16intZset16uni Zset16dif$r"|g}o|g}o2<" &hDintmulHP5 A6l8085_Z80HP  )&ERR_UNDERFLOWERR_OVERFLOW dZint1C % aZintmulaZintsqrze }" V]00z3333"#O]#?z0#3333##-! >){_z}k Wt t=dT]% &HRECURHP5 A6Pl8085_Z80HP  -^& dMOVEB_ dZintneg aRENTRY_aREXIT_ ' ^i`N#Fi`933 ###V+^+V+^!9V+^`iN#F`i! 9 q#p#qON#p!90ɓ^ &hRPARAM_HP5 A67l8085_Z80HP  &dMOVEB_ dPARAM_ dZintnegEaRPARAM_Q5A]T9!V+^ !9^#VMD!9!r+s++ɣ)A &hMOVEB_ HP5 A6 l8085_Z80HP  0&aMOVEB_ Uy~# $  &hMOVEW_ HP5 A6l8085_Z80HP  M&dMOVEB_ X aMOVEW_ U`i)DMҌ0 ɓN &hDintabsHP5 A6Kl8085_Z80HP  &ERR_UNDERFLOWERR_OVERFLOW a aZintabsaZintnegaZint1C BaZintaddaZintsub:!Y>+B33|D4x4  33B#À|/g}/oHY &Dbyteabs HP5 =l8085_Z80HP  <&ERR_UNDERFLOWERR_OVERFLOW a Zbyteabs Zbyteneg Zbyteadd Zbytesub 3JI/<#33GOx,x,xy33}/<oiI &hDerrorsHP5 A6l8085_Z80HP  H&dPARAM_ F2ERR_OVERFLOW ERR_UNDERFLOWERR_DIVBY0 aERR_SET CASEERROR_ GaMEMERR NZ_END_PROGRAMb2{(>!>!>!> !7_W """MT"]T"+++"*(7;?CeJ"#e^ZM1{/`b"""!"! "+++"0/ &hPARAM_ HP5 A6dl8085_Z80HP  &aPARAM_ Ct o g^#VP O#{^#V#^#V Bs#r#+‚8>À g ow#+ \`M,ft &hDMASTERHP5 A6l8085_Z80HP (PROG) MASTERLINK Ք& MASTERLINK   &HDEND HP5 A6l8085_Z80HP (PROG) END_DATA_ -!&END_DATA_ &hDstack HP5 A6l8085_Z80HP (PROG) STACK_ (128) &aSTACK_ X OwERR_OVERFLOW ERR_UNDERFLOWERR_DIVBY0 aERR_SET GENERALERROR Z_ERR_OVERFLOW 7AERROR7Z_ERR_UNDERFLOW;Z_ERR_DIV_BY_0 ?Z_ERR_SETCCASEERROR_ GZ_ERR_CASE JaMEMERR NZ_ERR_HEAP ZaDOPEVEC^Z_END_PROGRAMbaGETREGSewHERR_ADDR Z_ZCALLER_LZ_ERR_FUTURE Z_ZCALLER_HZ_PSW_FLAGSaZ_REG_AaZ_REG_CaZ_REG_BaZ_REG_EaZ_REG_DaZ_REG_LaZ_REG_HH &hLHEAPS2HP5 A6  l8085_Z80HP HEAPS2 Pascal &1dMEMERR dDISPOSEMASTERLINK dZintsubdZintequdZintneqdZintlesdZintgeqdPARAM_ [:1v"2!D6!"*"  :* ^#0V!Gʈa* ####^2#V!P$!6^ * ####^#"V" :* ^#VUvyn"!""*^#V"!* ""~**"*"È*##*##N#F^#V`i*"*"*y ####^#VL" ʉ"!6a* ##L^#V! ʌ*" *"0**s#r* !s#r*2 K* s#rT*s,UR#r*0 *s#r*"*^#V! s#r*##L^#V! *^#V#s#rP,Uu"3*""*0*Gʀ^#"V"* ####^#V""*"##"9P\uAMARK ARMARKAEMARKaRELEASERRELEASE ERELEASE  $ &hLHEAPS HP5 A6Y0 l8085_Z80HP HEAPS Pascal &6dMEMERR MASTERLINK dZintsubdZintequdZintneqdZintleqdZintlesdZintgeqdZintgtrdPARAM_ h^6}"2*! #!3"~}*""*@*s#r *##*s#r*####s#r*@^#V!s#r*##^#V!*^m}t#Vs#Pr z"2* *s#r*^#V*N#F^#V0 *PY G!GSRN#F`i#*@"s#r*^#Vz^#V*s#r T*u"2 * !^#V"!"I"!6:! *G ##* ##N#F^#V"`i^* "^#V""*"x* * Iuers#r* * s#r* *s#r! 6$:ˆ@* s#r#"** * s#rÈ ** sP#rcSea"2 *^#V*ʀ ^#V*s#r*^#V"*^#V# *"*^#V *s#r@a&"2*"^#V"* ##*N#F *N#F` ih!6"*^#V*N#F^#V *Ȓ!6$!6: KmwH*^#V*##N#F^#V *##s#r**s#r"*##*^#V^#VN#F *^#V s#r&!SVw" "*^#!V"9Pt] "2q *" 9"@"* s#r * ##*"s#r $*$pͨ& $ $Th]zw"3S&*##P!/6$*L^#V!ʎ$Q!/6ÈL$*(ʂ"(!"*0*^#V",$!.6!/6*,##^#V*("zy!/G~$*,^#V!28R!"/6!*,"*"^#V",":.!/O*,##^#V*(2 y*&* ,s#r!.6!2**j;Oy|[ *,^#V*s #rT Sv*,^#V**s#rL!*(*,##N#F`iȂ#*&*,$s#r!.6***,*(*s#r*,^#V *^#V|rs#r*,##^0#V*(*^#Vs#r *,^#V**s#r*,*(",*&^#V^2#V*("(*" ,(L*, "*^#V!Nr-0BR!/H6L*,^#V",$E-0aDISPOSE RDISPOSE pEDISPOSE vINITHEAP RINITHEAP}EINITHEAP!NEWwARNEW OAENEW XG0 &HNEQM HP5 A6l8085_Z80HP  $& dEQUMB_ dEQUMW_  aNEQMW_ aNEQMB_ ! 0=<  &hEQUMW_ HP5 A6 l8085_Z80HP  <&dEQUMB_ baEQUMW_ _)08\ &hEQUMB_ HP5 A6l8085_Z80HP  3&aEQUMB_ ^! # x< ! &hZintequHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintequz{ &hZintneqHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintneqz{s &hZintgtrHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZintgtr( } À ^( &hZintgeqHP5 A6#l8085_Z80HP   & dCFALSE DCTRUE) aZintgeq+ } + &hZintlesHP5 A6 l8085_Z80HP  & dCFALSE DCTRUE) aZinUTtles( { À ^( &hZintleqHP5 A6#l8085_Z80HP  & dCFALSE DCTRUE) aZintleq+ { + &Zbyteleq HP5 l8085_Z80HP  E&DCTRUEZbyteles Zbyteleq m0   ?V &Zbytegeq HP5 l8085_Z80HP  @& dCFALSE DCTRUE) Zbytegtr Zbytegeq b  5  &(CTFHP5 A63l8085_Z80HP  K& ACTRUEaCFALSE # <0  &hZbshiftHP5 A6*l8085_Z80HP  &Zbytemod ,aZbshift6Ҁ&)=}g}l,}6 &Zbshiftc HP5 l8085_Z80HP  %&Zbytemod ,Zbshiftc ( g}l- g }l,}.( &hZbtointHP5 A6 l8085_Z80HP  &aZbtoint o&&ɇ &hZwshiftHP5 A6%l8085_Z80HP   &Zbytemod ,aZwshift/"" !)=€|7?g}o<Ҵ/ &Zwshiftc HP5 l8085_Z80HP  :&Zbytemod ,Zwshiftc *&) ,=}|g}o<€ɗ& &Zbytediv HP5 Tl8085_Z80HP  B&Zbytediv Zbytemod M\f_%/V U<g.6}l/<_/ <g.6|/<eo|/<>) I33,=€9Cg}lWf &Zbytemul HP5 Dl8085_Z80HP  A&Zbytemul Zbytesqr =oS _'-/"<_!-/</<oÀ /<oe. >)7= 2}oWS &hZintdivHP5 A6`l8085_Z80HP  &dZintneg aZintdivaZintmod[W o "06 *# 6Ì ÌDM!>))I# W33=@Q :co &hARRAY_ HP5 A6Vl8085_Z80HP  ~&dZintmulaARRAY_ Te^#V#~##^#V#^#VG{x'#^#V^#V#^#V#^#VN #F#=O+7e &hARRAYN_HP5 A6l8085_Z80HP  &dZintmulaARRAYN_CM{^#V#N#Fy€!x!#^#VN#F#V##^#V# N#F#!9^44{#V G4^#V ^#Vi` !9{w#z w=iÀ2!pN{Mj 9~ w$o!9~4!9N#F# y!9^#V! 9s#r !9M &COMPARESTHP5 %l8085_Z80HP  t&COMPARESTl-G #~O# ! €< 7ɑ- &HZset2HP5 A6>l8085_Z80HP  zR&Zbtoset8 Zbinset8  Zbinset16Zwinset16Zbtoset16Zwtoset163ZWVwtoset8 : M# l0z{!-֌go}} GM &HZset1HP5 A6.l8085_Z80HP   z?&Zbtoset8 Zbinset8 Zwinset8 !B! _~  @ʀ< {bB &HZset4HP5 A6l8085_Z80HP   z6&Zset16intZset16leqZset16geq " |}<$5" &HZset3HP5 A6l8085_Z80HP  z4&dZint1C Zset16intZset16uni Zset16dif$r"|g}o|g}o2<" &hZintmulHP5 A6dl8085_Z80HP  #& dZint1C dZintneg, aZintmulaZintsqr_e s "<B06͌Bz/0##  "!>){_zW Y Y= IT]Ks &HRECURHP5 A6Pl8085_Z80HP  -^& dMOVEB_ dZintneg aRENTRY_aREXIT_ ' ^i`N#Fi`933 ###V+^+V+^!9V+^`iN#F`i! 9 q#p#q#p!90ɓ^ &hRPARAM_HP5 A67l8085_Z80HP  &dMOVEB_ dPARAM_ dZintnegEaRPARAM_Q5A]T9!V+^ !9^#VMD!9!r+s++ɣ)A &hMOVEB_ HP5 A6 l8085_Z80HP  0&aMOVEB_ Uy~# $  &hMOVEW_ HP5 A6l80X W85_Z80HP  M&dMOVEB_ X aMOVEW_ U`i)DMҌ0 ɓN &hZintabsHP5 A6l8085_Z80HP  &aZintabsaZintnegaZint1C aZintaddaZintsub #>+>|/g}/o Ɏ# &Zbyteabs HP5 l8085_Z80HP  <&Zbyteabs Zbyteneg Zbyteadd Zbytesub /< &hZerrorsHP5 A6 l8085_Z80HP  ^&dPARAM_ F2ERR_OVERFLOW ERR_UNDERFLOWERR_DIVBY0 aERR_SET CASEERROR_ GaMEMERR NZ_END_PROGRAMb2{(>!>!>!> !7_W """MT"]T" +++"*(7;?CeJ"#e^ZL{/`b" ""!"! "+++"0/  &hPARAM_ HP5 A6dl8085_Z80HP  &aPARAM_ Ct o g^#V#{^#V#^#V Bs#r#+‚8>À g ow#+ \`M,ft &hLMASTERHP5 A6l8085_Z80HP (DATA) MASTERLINK & MASTERLINK   &HZEND HP5 A6l8085_Z80HP (DATA) END_DATA_ 0&END_DATA_ &hZstack HP5 A6l8085_Z80HP (DATA) STACK_ (128) &bSTACK_ Y uERR_ADDR ERR_OVERFLOW Z_ZCALLER_LZ_ERR_FUTURE ERR_UNDERFLOWZ_ZCALLER_HZ_PSW_FLAGSbZ_REG_AbZ_REG_CERR_DIVBY0 bZ_REG_BbZ_REG_EaERR_SET bZ_REG_D bZ_REG_L bZ_REG_H GENERALERROR Z_ERR_OVERFLOW 7uJAERROR7Z_ERR_UNDERFLOW;Z_ERR_DIV_BY_0 ?Z_ERR_SETCCASEERROR_ GZ_ERR_CASE JaMEMERR NZ_ERR_HEAP ZaDOPEVEC^Z_END_PROGRAMbaGETREGSe J Y[Z\ []\^ ]_^` _a`b acbd cedf egfh gihj ikjl kmln monp oqpr qsrt sutv uwvx wyxz y{z| {}|~ }~    ! ! " "