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 ªmˆl8085_Z80HP HH ªA ªAhDerrorsHP QQ ªA ªAhZerrorsHP YY ªB ªBˆssmmtmp3 HP(hp)YY ªm ªmhLIB8085HP RX ªB ªBˆDLIB8085 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 ‡Œ€ÿÿ€6Rÿ€H!/- yAddress out of range cÿÿÿÿÿÿÿÿ&hDHEAPS2HP5 A6% ˆl8085_Z80HP Ÿ´HEAPS2 Pascal ¼‰&1dMEMERR dDISPOSE¤MASTERLINK dZintsubdZintequdZintneqdZintlesdZintgeqdPARAM_ [:1v"2�œ� Í!�®DŒ6!"�¢*"‰ �¬:�®î*�¬^#0V!G͠ʈ�a*�¬####^2#V!ÍÊ�P$â!�®6Í�šÃ�^ *�¬####^#"Vë"�¬Ã�:�®€·Â�ú*�¬^#Vc-vyn"!Í�Ê�Û"�¦€ë"�¨*�¨^#V"!Í�Ê�š*�¨ ˆ"�¦ë"�¨Ã�~*„È�¢ÍÊ�µ*ˆˆ�¨"�¢*�¦"�¤Ãˆ�Û*�¢##ë*�¨##N#Fë^#ÈV`iÍÊ�Û*ˆˆ�¨"�¢*�¦"�¤*¶¨yÜ€�¬####^#VLë"�¬Íʉ"�÷!�®6Ã�a*�¢ Í�Ê�™##L^#V! Í�ÊŒˆ�”*"�ª*�¢"È0*� ë*ës#r*�ª!ës#r*�¤2 ÍÊ�K*�ªs#„rÃ�T*�¤s8qUR#r*ë0 *s#r*"ˆ�¯*�¯^#V! ës#r*�¯##L^#V!Í�å *�¯^#Vá#ës#rÃ�™Í€P�›ÉþÿЬUu±"3��Í*""�*�Í�0ë*�GÍ� Ê€�äë^#"Vë"�Ã�À*� Í�Ê�####^#Vë""*�"�!##"�#9ˆÍ��!�#Ã�ÍàP�ÉnuAMARK ARMARK™AEMARK°aRELEASE±�RRELEASE �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#Váës#PrÉ z‹"2�� Í�*� ë*�ës#r*€�^#V*�N#Fë^#Vë0 ë*� Í�PY GÍ !GÍÂ�°Â�ëJ IN#F`iÍ�#ˆÊ�íÍ�*�@"s#rÃ�*�^#Vë¬zø€^#V*�s#r TÃ�ŸÉþÿ+u"2�Ó�ÙÍ�*�Û!^#Vë"�Ý!"I"�ß!�á6:�áî! *�ÝGÍ  Ê� ##ë*�Ù##N#Fë^#V"`iÍÊ�h*�Ý "�ß^#Vë"�Ý"Ã��*�ßÍ�"Ê�‚*�Ûë*�Ùë\Vue|ˆs#rÃ��*�ßë *�Ùës#r*�Ùë*�Ýës#r!’ �á6Ã�.:�á·Âˆ@�Ò*�Ùs#r#"*�ßÍ�Ê�Ç*�Ûë*�Ùës#rÈ �Ò*�ßë*�ÙësP#rÉsCeaâ"2�3�9Í�*�9Œ^#V*�;Í�Ê€ �^#V*�9s#€rÃ�2*�9^#V€ë"�=*�=^#V# *�;ÍÊ�&ë"ˆ€�=Ã�*�;^#V *�=s#rÉ@ ¯a?"2�3�9Í�*�;"^#Vë"�=*�= ÍÊ�2##ë*�=ëN#Fë ë*�9N#F` ‰iÍ�Ê��!�?6"Ã�¬*�9^#V*�9N#Fë^#Vë ë*�=ÍÈ’�Ê�§!�?6Ã�¬$’!�?6:�?þÊ�%nUw´H€þÂ�æ*�9^#V*�=##N#Fë^#Vë ë *�=##s#r*‚�9ë*�=ës#r"Ã� *�=##å*€�9^#Vë^#VáN#Fë å*�9^#V áës#rÍ�â�;‰¡�=Í�?�9�;!sMw" "�=Ã�/*�=^#!Vë"�=Ã�RÉPþÿ�Ÿ]@"2�‘�—Í�*�™ ÍÊ�Yë"ˆ@�™*�—s#r *�—##ë*�™ë¨s#rÍ�‹�—�›*„È�›ÍÊ��ͨ¨�?�—�›Í��—�›ÉTËœ]z�"3�y�Í�*�#Í�Ê�¿Í‰#�v!�ˆ6Ã�J*�L^#V!Í�ÊŽ$�ÛÍ�w!�ˆ6ÈL�J*��ÍÊ‚�ëë"��!"�ƒ0*�^#Vë"�…$’!�‡6!�ˆ6*�…##^#V*��ÍËzyÈ!�ˆG~î Êˆ�J*�…^#V!28Í�Ê�:Í�x!’"�ˆ6Ã�G*�…"�ƒ"^#Vë"�…Ã�":�‡!�ˆ¶Â�u*€�…##^#V*��2 Í�Ê�Ÿ*�ë*€ �…ës#r!�‡6!2*�ƒÍ�Ê��€ƒy|� *�…^#V*�s #rÃ�KJœ*�…^#V*�ƒs#rÃ�r!*��ë*�…##N#F`iÍÈ‚�Ê�I*�ë*�…$ës#r!�‡6*„È�ƒÍ�Ê�*‚�…ë*��ë*�€s#r*�…^#V Õ*�^#VáëáÁ|rñ€s#r*�…##^0#V*��Íå*À�^#Váëˆs#rÃ�F*�…^#V*�ƒs#r*‚�…ë*��"�…*€�^#Vë^2#V*��Í"��*"Í�@�…��Ã�r*�… "�ƒ^#V!Í’úr-VÈâ�Ê�hÍ�x!�ˆH€6Ã�r*�…^#V€ë"�…Ã�JÉþÿ�Ž-0aDISPOSE@�RDISPOSE ��EDISPOSE œ�INITHEAP �RINITHEAP}�EINITHEAPŠ!NEW�ARNEW uAENEW ˆë/0 &HNEQM HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¶ $ó& dEQUMB_ dEQUMW_ Ä aNEQMW_ aNEQMB_ ¦! 0Í=ȯ<ÉÍÈ�Ã�þ  &hEQUMW_ HP5 A6 ˆl8085_Z80HP‘�ñ Ÿ³ °<&dEQUMB_ baEQUMW_ _ÅåÅá)åÁá0ÍÁÉ8\ &hEQUMB_ HP5 A6ˆl8085_Z80HP‘�ñ Ÿ³ °3&aEQUMB_ ^þ!åÕžÂ� # x±Â�¯<ÁÑáɯÃ� À! &hZintequHP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¸ Ò& dCFALSE DCTRUE)Ö aZintequ°¤z¼Â�{½Ê¯Éû &hZintneqHP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¸ õ×& dCFALSE DCTRUE)Ö aZintneq¤©z¼Â{½Â¯É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Á&DCTRUEíÞ�Zbyteles �Zbyteleq mŒ0½Ò� ­ò¯É ­ú¯É½Ê Ã�?V &ˆZbytegeq HP5 ˆl8085_Z80HP‘�ñ Ÿ· @Ã& dCFALSE DCTRUE)Ö �Zbytegtr �Zbytegeq b�  ƒ½Ê�Ú� ­ò¯­ú¯É½ÊÈÃ�ã5  &(CTFHP5 A6…3ˆl8085_Z80HP‘�ñ Ÿ± Kà& ACTRUEaCFALSE #Ö ¯<ɯÉ0  &hZbshiftHP5 A6*ˆl8085_Z80HP‘�ñ Ÿ· ãö&„Zbytemod ,ËaZbshift’¬6ˆåþÚ�þÿùÒ€�¯áÉ·Ê�&)=Â�}áÉ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 nˆl8085_Z80HP‘�ñ Ÿ± C&¤ERR_DIVBY0 ÄERR_OVERFLOW Ó��Zbytediv �Zbytemod i\ó} åÕMLÅõ·ú€#�$_¯…ú�=ʈ/<g.Í�R}l33ÁÑ33É‚/<_>ÿ€»Â�3 À>ÿÿ½Ê�¯…úŒ�Ê/<g. Í�R|/<eo|/<33ÁÑ33Éë>õ)å Ò�e33,ñ=€�UÉáÃ…} gˆ�_Í�}É‹ß  &ˆDbytemul HP5 Wˆl8085_Z80HP‘�ñ Ÿ± Aõ&ÄERR_UNDERFLOWÄERR_OVERFLOW a �Zbytemul �Zbytesqr Roêh åÕÅõ·ú€"�_¯…ú�<Í�B ·úÑÑÑ33É/<_¯…ú�6 #Í�B/<Ê�0ò�ÑÑÑ33É/<oÃ�/<oÃ�%‚e.>)Ò�L=Â�G}Éåo Ã�h &hDintdivHP5 A6ƒˆl8085_Z80HP‘�ñ Ÿ² ú/&¤ERR_DIVBY0 ÄERR_OVERFLOW dZint1C dZintnegJ aZintdivaZintmodwW´ }åÕÅõ¯‚ú�"¯„ú�JÌ�|Í�QëñÁ3333É ëÍ�#믂ò€0�.#|µÊ�+¯ˆ„ú�CÌ�|Í�QÍÃ#ëÍÃ�Í�Â#Ã�Í�#Ã�60Í�#DM!>€õ)ë)ëÒ�e€#å Ò�s33Hƒ}mñ=Â�\ÉáÃ�m Í�ëɵÀ330Ã_< &hARRAY_ HP5 A6Vˆl8085_Z80HP‘�ñ Ÿ± ¥~&dZintmul·¥aARRAY_ TeáÕÅõ^#V#åë~##^#V#ãÕ^#VG{²xÂ�'#^#Våë^#Vá#ãã^#V#Áåë^#VáãÅN #F#ÅãÍÁ€Ñ=Ê�OÑÅåëÃ�+ÑñÁãëãÉ7€e &hARRAYN_HP5 A6«ˆl8085_Z80HP‘�ñ Ÿ± •&dZintmul·¥aARRAYN_CM{ãÕÅõ^#V#N#FõÕy·Â€€�!x·Â�!#^#VåëN#FáÑñ#åëV#Õ#^#V#ë åëN#F#å!9^44õ{¾#V Ú�G4ë^#Vë ^#Vi`Íë !9{†w#z Žwñ=Ê�iáÀ�2!pN{Mj€ 9~Öá… Ò�w$oë!9~4!9¾Ê�“áëN#F#ë €åÃ�y!9^#V! 9s#rÑ !9ùÁëÑÉëÄM &ˆCOMPARESTHP5 %ˆl8085_Z80HP‘�ñ Ÿ± N M Öt&�COMPARESTÆl-‚G·Â� ¾Â�#€É~·Ê�O# ¾ÀÊ�! €�¯<É È7É‘�- &HDset2HP5 A6]ˆl8085_Z80HP‘�ñ Ÿ³ z\&„Zbtoset8 dERR_SET„Zbinset8 Aä �Zbinset16�Zwinset16�Zbtoset16�Zwtoset16@�Zwtoset8 MÖ$ p# þÚÖål0ÍáÉz·Â�Õ{Í�ÑɯÉ#åÕÅõþÒ""!þÚ�9Ö0Í�gñÁÑ33 ÉÍ�oÃ�3åÕ0Åõ¯¼Â}Àƒ� |·Â�V}Ã�0åÕÅõÃhp &HDset1HP5 A68ˆl8085_Z80HP‘�ñ Ÿ² z3&dERR_SET[B�Zbtoset8 �Zbinset8 �Zwinset8 +åµN#åÕÅõþÒ €!�_~3*3ÁÑáɪˆ @€Í�¥ Ê�)¯<ɯɯ"²Â�){þÚ�¯É N &HZset4HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¹ z6&„Zset16intÑ�Zset16leq�Zset16geq ¬" åÍ|ºÂ�}»Ê�á¯Éᯀ<ÉëÍ�ëÉ$5" &HZset3HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¸ z4&dZint1C …�Zset16int�Zset16uni �Zset16dif$r"õ|¢g}£oñÉõ|²g}³o2ñÉÍ�ÍÃ�<" &hDintmulHP5 A6ˆl8085_Z80HP‘�ñ Ÿ² )&ÄERR_UNDERFLOWÄERR_OVERFLOW dZint1C æ% aZintmulaZintsqrzeÊ }åÕÅõ¯‚ú�" ¯„ú�VÍ�]¯„00úz³ÂñÁ3333ÉëÍ"#믄ú�OÍ�]#¯„ò�?þ€Â�¯…Â�z³Â�0Í#ñÁ3333ÉÍ#Ã�ÍÂ#Ã�-åÁ! >õ){_z€”}k WÒ�t Ò�tñ=Â�dÉT]Ã�% &HRECURHP5 A6Pˆl8085_Z80HP‘�ñ Ÿ· -^& dMOVEB_ dZintnegÿ§ aRENTRY_aREXIT_ '£˜ ^i`N#Fi`ÍÀ9ù33 Õ###V+^+ÕV€+^Õ!9V+^ëÃ�å`iN#F`iãåõ!€ 9 Áq#p#ÁqON#pÁ!90Í�ÑÁùñáÅÕÉ“·^ &hRPARAM_HP5 A67ˆl8085_Z80HP‘�ñ Ÿ· ¢Ž&dMOVEB_ dPARAM_ dZintnegE¸aRPARAM_Q5AÀÕ]TÍ9ùÕë!V+^ Õ!9ëÍ�ë^#VáãMD!ƒ9Íë!Ñr+s++ùÉ£)A &hMOVEB_ HP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¶ ¦0&aMOVEB_ Uy°È~# Ã�$  &hMOVEW_ HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¶ ¦M&dMOVEB_ X aMOVEW_ Uå`i)DMáÒŒ0�Í ÍÉ“N &hDintabsHP5 A6Kˆl8085_Z80HP‘�ñ Ÿ² òï&ÄERR_UNDERFLOWÄERR_OVERFLOW a aZintabsaZintnegaZint1C BaZintaddaZintsub:!Y¯„ðåÕÅõ>‚€¼Â�¯½Ê�+Í�BñÁÑ33ÉåÕÅõ|Dªú�4x¬ò�4¯ À€úÃ�ñÁÑ 33ÉåÍ�B#À�õ|/g}/oñÉHáY &ˆDbyteabs HP5 =ˆl8085_Z80HP‘�ñ Ÿ± <È&ÄERR_UNDERFLOWÄERR_OVERFLOW a �Zbyteabs �Zbyteneg �Zbyteadd �Zbytesub 3¦JI·ðåÕÅõ/<#þ€Ê�33ÁÑáÉåÕÅõG…€Ox­ú�,x©ò€Ì�,x·úÃ�y33ÁÑáÉåõ}/<oñÃ�ÇiI &hDerrorsHP5 A6“ˆl8085_Z80HP‘�ñ Ÿ² ýH&dPARAM_ F2ÁERR_OVERFLOW ÁERR_UNDERFLOW¡ERR_DIVBY0 aERR_SET ¡CASEERROR_ GaMEMERR NÁZ_END_PROGRAMbÒÄ2{(¢>!>!>ˆ€!> !�7_¯W "�‡á"�‹åñá"��MTá"��€]Tá"�‘ã++‚+"�‰*�‡ãÉ(¢Ã�7Ã�;Ã�?ˆ¢Ã�CÍ�eÃ�J"#Í�e�^�ŒÍŠÃ�ZM1{/`ˆ€Ã�b"�‘õá"ˆ"�‹!"��! "��áãå+++"�‰áãé0±/“— &hPARAM_ HP5 A6dˆl8085_Z80HP‘�ñ Ÿ· ””&aPARAM_ Ctáãå o gãÕ^#VP O#å{²Â�á^#V#åë^#V Ò�Báãs#r#Ñã+¯¼Â‚�8½Ê�>ãåëÀ� áëãéáãåg oãw#ã+¯½ ‚Â�\¼Ê�`ãÃ�MáÃ�,fŸt &hDMASTERHP5 A6ˆl8085_Z80HP‘�ñ Ÿ¶(PROG) MASTERLINK Õ”& ¡MASTERLINK ¡ €€ &HDEND HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¹(PROG) END_DATA_ -!&�END_DATA_±‚ &hDstack HP5 A6€ˆl8085_Z80HP‘�ñ Ÿ¹(PROG) STACK_ (128) î&aSTACK_ €X�€„ OÿÿÿÿwÁERR_OVERFLOW ÁERR_UNDERFLOW¡ERR_DIVBY0 aERR_SET ÁGENERALERROR áZ_ERR_OVERFLOW 7AERROR7áZ_ERR_UNDERFLOW;áZ_ERR_DIV_BY_0 ?�Z_ERR_SETC¡CASEERROR_ G¡Z_ERR_CASE JaMEMERR N¡Z_ERR_HEAP ZaDOPEVEC^ÁZ_END_PROGRAMbaGETREGSe€€wH�ERR_ADDR ‡¡Z_ZCALLER_L‰ÁZ_ERR_FUTURE ‰¡Z_ZCALLER_HŠ¡Z_PSW_FLAGS‹aZ_REG_AŒaZ_REG_C�aZ_REG_BŽaZ_REG_E�aZ_REG_D�aZ_REG_L‘aZ_REG_H’óHÿÿÿÿ ÿÿ&hLHEAPS2HP5 A6  ˆl8085_Z80HP Ÿ´HEAPS2 Pascal ¼‘&1dMEMERR dDISPOSE¤MASTERLINK dZintsubdZintequdZintneqdZintlesdZintgeqdPARAM_ [:1v"2�œÍ!DŒ6!"*"‰  :î* ^#0V!G͠ʈ�a* ####^2#V!ÍÊ�P$â!6Í�šÃ�^ * ####^#"Vë" Ã�:€·Â�ú* ^#VU­vyn"!Í�Ê�Û"€ë"*^#V"!Í�Ê�š* ˆ"ë"Ã�~*„ÈÍÊ�µ*ˆˆ"*"È�Û*##ë*##N#Fë^#ÈV`iÍÊ�Û*ˆˆ"*"*£ˆyÜ€ ####^#VLë" Íʉ"�÷!6Ã�a* Í�Ê�™##L^#V! Í�ÊŒˆ�”*" *"È0*ë*ës#r* !ës#r*2 ÍÊ�K* s#„rÃ�T*s,UR#r*ë0 *s#r*"ˆ*^#V! ës#r*##L^#V!Í�å *^#Vá#ës#rÃ�™Í€P�›Éþÿ†,Uu "3�Í*""*Í�0ë*GÍ� Ê€�Óë^#"Vë"Ã�¯* Í�Ê�####^#Vë""*"##"9ˆÍ�Ã�ÍàP�É\ˆuAMARK ARMARK™AEMARKŸaRELEASE �RRELEASE �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#Váës#PrÉ z…"2�Í�* ë*�ës#r*€^#V*N#Fë^#Vë0 ë*Í�PY GÍ !GÍÂ�°Â�þëSRN#F`iÍ�#ˆÊ�çÍ�ÿ*@"s#rÃ�û*^#VëÞzò€^#V*s#r TÃ�™Éþÿ*…u"2�É Í�* !^#Vë"!"I"!6:î! *GÍ  Ê�–##ë* ##N#Fë^#V"`iÍÊ�^* "^#Vë""Ã�“*Í�"Ê�x* ë* ëIÈuerˆs#rÃ�ƒ*ë * ës#r* ë*ës#r!’ 6Ã�$:·Âˆ@�È* s#r#"*Í�Ê�½* ë* ës#rÈ �È*ë* ësP#rÉcSeaÏ"2� Í�*Œ^#V*Í�Ê€ �ó^#V*s#€rÃ�*^#V€ë"*^#V# *ÍÊ�ë"ˆ€Ã�ý*^#V *s#rÉ@øa&"2�Í�*"^#Vë"* ÍÊ�##ë*ëN#Fë ë*N#F` ‰iÍ�Ê�h!6"Ã�“*^#V*N#Fë^#Vë ë*ÍÈ’�Ê�Ž!6Ã�“$’!6:þÊ� Kmw›H€þÂ�Í*^#V*##N#Fë^#Vë ë *##s#r*‚ë*ës#r"Ã�ó*##å*€^#Vë^#VáN#Fë å*^#V áës#rÍ�ω¡Í�&!SVw" "Ã�*^#!Vë"Ã�9ÉPþÿˆt] "2�q Í�*" ÍÊ�9ë"ˆ@"* s#r * ##ë*"ë¨s#rÍ�… $*„È$ÍÊ�pͨ¨�& $Í� $ÉT¤h]zw"3�S&Í�*�#Í�Ê�™Í‰#�P!/6Ã�$*�L^#V!Í�ÊŽ$�µÍ�Q!/6ÈL�$*(ÍÊ‚�Åë"(!"*0*�^#Vë",$’!.6!/6*,##^#V*(ÍÝ"zyëÈ!/G~î Êˆ�$*,^#V!28Í�Ê�Í�R!’"/6Ã�!*,"*"^#Vë",Ã�ß":.!/¶Â�O*€,##^#V*(2 Í�Ê�y*&ë*€ ,ës#r!.6!2**Í�Ê�j;Oy|[ *,^#V*�s #rÃ�T Sv*,^#V**s#rÃ�L!*(ë*,##N#F`iÍÈ‚�Ê�#*&ë*,$ës#r!.6*„È*Í�Ê�í*‚,ë*(ë*�€s#r*,^#V Õ*�^#Váë¦×|rË€s#r*,##^0#V*(Íå*À�^#Váëˆs#rÃ� *,^#V**s#r*‚,ë*(",*€&^#Vë^2#V*(Í"(*"Í� ,(Ã�L*, "*^#V!ÍNŠr-0Èâ�Ê�BÍ�R!/H€6Ã�L*,^#V€ë",Ã�$ÉþÿŽE-0aDISPOSE �RDISPOSE p�EDISPOSE v�INITHEAP �RINITHEAP}�EINITHEAP„!NEWwARNEW OAENEW XêG0 &HNEQM HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¶ $ó& dEQUMB_ dEQUMW_ Ä aNEQMW_ aNEQMB_ ¦! 0Í=ȯ<ÉÍÈ�Ã�þ  &hEQUMW_ HP5 A6 ˆl8085_Z80HP‘�ñ Ÿ³ °<&dEQUMB_ baEQUMW_ _ÅåÅá)åÁá0ÍÁÉ8\ &hEQUMB_ HP5 A6ˆl8085_Z80HP‘�ñ Ÿ³ °3&aEQUMB_ ^þ!åÕžÂ� # x±Â�¯<ÁÑáɯÃ� À! &hZintequHP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¸ Ò& dCFALSE DCTRUE)Ö aZintequ°¤z¼Â�{½Ê¯Éû &hZintneqHP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¸ õ×& dCFALSE DCTRUE)Ö aZintneq¤©z¼Â{½Â¯É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Á&DCTRUEíÞ�Zbyteles �Zbyteleq mŒ0½Ò� ­ò¯É ­ú¯É½Ê Ã�?V &ˆZbytegeq HP5 ˆl8085_Z80HP‘�ñ Ÿ· @Ã& dCFALSE DCTRUE)Ö �Zbytegtr �Zbytegeq b�  ƒ½Ê�Ú� ­ò¯­ú¯É½ÊÈÃ�ã5  &(CTFHP5 A6…3ˆl8085_Z80HP‘�ñ Ÿ± Kà& ACTRUEaCFALSE #Ö ¯<ɯÉ0  &hZbshiftHP5 A6*ˆl8085_Z80HP‘�ñ Ÿ· ãö&„Zbytemod ,ËaZbshift’¬6ˆåþÚ�þÿùÒ€�¯áÉ·Ê�&)=Â�}áÉ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 Tˆl8085_Z80HP‘�ñ Ÿ± Bú&�Zbytediv �Zbytemod M\×fÕÅ·ú�_¯…ú�%/V U<g.ˆÍ�6}lÁÑÉ/<_¯…ú�/ <g.Í�6|/<eo|/<ÁÑÉë>õ)å Ò�I33,ñ=€ˆ�9ÉáÃ�CÍ�g}lÉWƒf &ˆZbytemul HP5 Dˆl8085_Z80HP‘�ñ Ÿ± Aö&�Zbytemul �Zbytesqr =oÕS Õ·ú�_¯€…ú�'Í�-ÑÉ/"<_¯…ú�!Í�-/<ÑÉ/<oÀ � /<oÃ�e.ˆ >)Ò�7= Â�2}ÉåoÍ�áÉWíS &hZintdivHP5 A6`ˆl8085_Z80HP‘�ñ Ÿ² ú&dZintneg§¡ aZintdivaZintmod[W˜ o õů‚ú�¯„"ú�0Í�6ëÁñÉ ëÍ믄ú�*# Í�6ÍëÍÃŒŒ�ÍÃ� ÍÃŒ�ÍDM!>€õ)ë)ëÒ�I€#å Ò�W33ñ=Â�@ÉáÃ�Q Í�ëÉ:co &hARRAY_ HP5 A6Vˆl8085_Z80HP‘�ñ Ÿ± ¥~&dZintmul·¥aARRAY_ TeáÕÅõ^#V#åë~##^#V#ãÕ^#VG{²xÂ�'#^#Våë^#Vá#ãã^#V#Áåë^#VáãÅN #F#ÅãÍÁ€Ñ=Ê�OÑÅåëÃ�+ÑñÁãëãÉ7€e &hARRAYN_HP5 A6«ˆl8085_Z80HP‘�ñ Ÿ± •&dZintmul·¥aARRAYN_CM{ãÕÅõ^#V#N#FõÕy·Â€€�!x·Â�!#^#VåëN#FáÑñ#åëV#Õ#^#V#ë åëN#F#å!9^44õ{¾#V Ú�G4ë^#Vë ^#Vi`Íë !9{†w#z Žwñ=Ê�iáÀ�2!pN{Mj€ 9~Öá… Ò�w$oë!9~4!9¾Ê�“áëN#F#ë €åÃ�y!9^#V! 9s#rÑ !9ùÁëÑÉëÄM &ˆCOMPARESTHP5 %ˆl8085_Z80HP‘�ñ Ÿ± Öt&�COMPARESTÆl-‚G·Â� ¾Â�#€É~·Ê�O# ¾ÀÊ�! €�¯<É È7É‘�- &HZset2HP5 A6>ˆl8085_Z80HP‘�ñ Ÿ³ zR&„Zbtoset8 „Zbinset8 æ¤ �Zbinset16�Zwinset16�Zbtoset16�Zwtoset163�ZWVwtoset8 :Ö M# þÚÖål0ÍáÉz·Â�Õ{Í�ÑɯɈõ!þÚ�-ÖŒÍ�gñÉÍ�oñÉõ}Í�ñÉ}Ã� GM &HZset1HP5 A6.ˆl8085_Z80HP‘�ñ Ÿ³  z?&�Zbtoset8 �Zbinset8 �Zwinset8 !å¡BÕå!� _ª~áÑɪ  @€Í�¥Ê€�¯<ɯɯ² ˆÂ�{þÚ�¯ÉbB &HZset4HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¹  z6&„Zset16intÑ�Zset16leq�Zset16geq ¬" åÍ|ºÂ�}»Ê�á¯Éᯀ<ÉëÍ�ëÉ$5" &HZset3HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¸ z4&dZint1C …�Zset16int�Zset16uni �Zset16dif$r"õ|¢g}£oñÉõ|²g}³o2ñÉÍ�ÍÃ�<" &hZintmulHP5 A6dˆl8085_Z80HP‘�ñ Ÿ² #& dZint1C dZintneg,» aZintmulaZintsqr_e¯ s õů‚ú�¯„"ú�<Í�BÁñÉë0Í믄ú�6ÍŒ�BÍëz³Ê�/0ŒÍ�ëÃ�Íë##Ã�ÍÃ� Í "Ã�åÁ!>õ){_zW €Ò�Y Ò�Yñ= Â�IÉT]Ã�ÂKs &HRECURHP5 A6Pˆl8085_Z80HP‘�ñ Ÿ· -^& dMOVEB_ dZintnegÿ§ aRENTRY_aREXIT_ '£˜ ^i`N#Fi`ÍÀ9ù33 Õ###V+^+ÕV€+^Õ!9V+^ëÃ�å`iN#F`iãåõ!€ 9 Áq#p#Áq#pÁ!90Í�ÑÁùñáÅÕÉ“·^ &hRPARAM_HP5 A67ˆl8085_Z80HP‘�ñ Ÿ· ¢Ž&dMOVEB_ dPARAM_ dZintnegE¸aRPARAM_Q5AÀÕ]TÍ9ùÕë!V+^ Õ!9ëÍ�ë^#VáãMD!ƒ9Íë!Ñr+s++ùÉ£)A &hMOVEB_ HP5 A6 ˆl8085_Z80HP‘�ñ Ÿ¶ ¦0&aMOVEB_ Uy°È~# Ã�$  &hMOVEW_ HP5 A6ˆl80X W85_Z80HP‘�ñ Ÿ¶ ¦M&dMOVEB_ X aMOVEW_ Uå`i)DMáÒŒ0�Í ÍÉ“N &hZintabsHP5 A6ˆl8085_Z80HP‘�ñ Ÿ² òÒ&aZintabsaZintnegaZint1C aZintaddaZintsub ·# õ¯„ò�>õ+€>õ|/g}/o ñÉÉÍ�ÉŽ# &ˆZbyteabs HP5 ˆl8085_Z80HP‘�ñ Ÿ± <¨&�Zbyteabs �Zbyteneg �Zbyteadd �Zbytesub ¦·ð/<Ʌɕɋ &hZerrorsHP5 A6‡ ˆl8085_Z80HP‘�ñ Ÿ² ý^&dPARAM_ F2ÁERR_OVERFLOW ÁERR_UNDERFLOW¡ERR_DIVBY0 aERR_SET ¡CASEERROR_ GaMEMERR NÁZ_END_PROGRAMbÒÄ2{(¢>!>!>ˆ€!> !�7_¯W "á"åñá"MTá"€]Tá" ã++‚+"*ãÉ(¢Ã�7Ã�;Ã�?ˆ¢Ã�CÍ�eÃ�J"#Í�e�^ÍŠÃ�ZLù{/`ˆ€Ã�b" õá"ˆ"!"! "áãå+++"áãé0Ž/  &hPARAM_ HP5 A6dˆl8085_Z80HP‘�ñ Ÿ· ””&aPARAM_ Ctáãå o gãÕ^#V#å{²Â�á^#V#åë^#V Ò�Báãs#r#Ñã+¯¼Â‚�8½Ê�>ãåëÀ� áëãéáãåg oãw#ã+¯½ ‚Â�\¼Ê�`ãÃ�MáÃ�,fŸt &hLMASTERHP5 A6ˆl8085_Z80HP‘�ñ Ÿ¶(DATA) MASTERLINK ¾•& ¢MASTERLINK ¡ €€ &HZEND HP5 A6ˆl8085_Z80HP‘�ñ Ÿ¹(DATA) END_DATA_ 0&‚END_DATA_²‚ &hZstack HP5 A6€ˆl8085_Z80HP‘�ñ Ÿ¹(DATA) STACK_ (128) öý&bSTACK_ €Y�€… ÿÿÿÿu‚ERR_ADDR ÁERR_OVERFLOW ¢Z_ZCALLER_LÂZ_ERR_FUTURE ÁERR_UNDERFLOW¢Z_ZCALLER_H¢Z_PSW_FLAGSbZ_REG_AbZ_REG_C¡ERR_DIVBY0 bZ_REG_BbZ_REG_EaERR_SET bZ_REG_D bZ_REG_L bZ_REG_H ÁGENERALERROR áZ_ERR_OVERFLOW 7„uJAERROR7áZ_ERR_UNDERFLOW;áZ_ERR_DIV_BY_0 ?�Z_ERR_SETC¡CASEERROR_ G¡Z_ERR_CASE JaMEMERR N¡Z_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| {}|~ }~€  �€‚  �ƒ‚„! ƒ…„†! …‡††" "