ÿÿP‹ :�é*********************r‹ :�é* Disassembler *”‹ :�é* (ver. 1) *¶‹ :�é* 1984.5 by EM *Ø‹ :�é*********************ô‹èÿÕ ,,,":" ¡ 1,0,0 Œò® AóZ : • ¨ ‰ d *Œü‡ OBJ0$,OPC0$,OBJ1$ : ‰ âZŒ„ "00 07 0F 17 1F 27 2F 37 3F 76 D9 F3 FB "—Œ„ "NOP RLCARRCARLA RRA DAA CPL SCF CCF HLT EXX DI EI "ºŒ„ "08 10 18 20 28 30 38 2A 22"úŒ$:�é********************************************************�.:�é******* IX+d,IY+d *********0�8J$ðJ$ : � tc�B‹ CDï Ý N$ðÿ“(CDó) :¢ N$ð"+"òÿƒ(ÿ“(CD),)i�LŽŒ�V:�é*********xxxxH*************Ÿ�`� t : N$ðCD$Â�j:�é******* PEEK 1 ************:Žt‹ Z$ð"m" Ý CD$ðÿš(ÿ—(A)) :¢ I!ðáA!(A)óáA!(OA) : ‹ ÿ…(I!õ)ôðI! Ý Á #,I!õò : CD$ðÿš(ÿ•(RC$)) :¢ CD$ðÿš(ÿ•(RC2$))­Ž~CDðÿ”("&h"òCD$) : CD$ðÿ‚("0"òCD$,) : OJ$ðOJ$òCD$ : ‹ CDñ ø CDï ß ø CDð  Ý PT$ðPT$ò"." :¢ PT$ðPT$òÿ–(CD)»ŽˆAðAò : ŽÝŽ’:�é******** PEEK 2 **********�œ� t : CUðCDý ü  : CL1ðCD ü  : CL2ðCL1 ÷  : Ž8�¦:�é******* HL->IX,IY ********B�°CMðr�º‹ XYñï ÷ CUð Ý ÿƒ(OJ$,CM)ðáXY$(XY) : XYðx�Ä޾�Î:�é**************************************************************á�Ø:�é********* DEF FN **********�☠áSP$(OJ$)ðÿ�(OJ$òÿ˜(),)(�ì˜ áXY$(XY)ðÿƒ("HLIXIY",XYôò,)O�ö˜ áRR$(CU)ðÿƒ("BCDEHLSP",CUôò,)w�˜ áRR2$(CU)ðÿƒ("BCDEHLAF",CUôò,)¤� ˜ áR1$(CU,CL)ðÿƒ("BCDEHL(A",CUôòCLò,)â�˜ áA$(CU,CL)ðÿƒ("ADDADCSUBSBCANDXOROR CP ",CUôòCLôò,)ý�˜ áA!(A)ðAó(Añ)ô‘‘(˜ áAD$(A)ðÿ‚("000"òÿš(A),)@‘2:�é******* initialize ********j‘<‘ Þ) "Disassembler ver. 1"; :ÿÕ ,®‘F… "Object-filespec or Memory(M/m)";Z$ : KCð : DP$ð" " : AEð ÿÿבP ‹ Z$ð"M" ø Z$ð"m" Ý Z$ð"m" : ‰ x’Z Æ Z$ : ¿ "r",#,Z$, : À #, AS RC$, AS RC2$ : ‘U’d… "Offset address";A$ : ‹ A$ð"" Ý OAð  :¢ OAðÿ”("&h"òÿ�(A$,))¢’n AðOA : AE!ðáA!(OA)òÿ±()ôó : ´ò AE!ïÿ : AE!ðAE!ó‘ : µ : AEðAE!Ó’x… "Print-filespec";P$ : ‹ P$ð"" Ý P$ð"scrn:"ô’‚ ÿÕ , : ¿"o",#,P$ : ÿÕ ,“Œ:�é********* command *********Y“–Í : ‘ ç "OBJ-& <&-&>";Z$,áAD$(OA),áAD$(AE) : ‘ "PRN-";P$Ö“ ‘ Þ ) æ( ,"*") : ‘ " Continue(space) or End(E/e)" Þ) "or Address (A/a)" Þ) "or Count (C/c)" Þ) "or Dump (D/d)"$”ªÎ , : ‘ áAD$(A);"-";áAD$(AE) : Î , : ‘ ç "#####";KC : Î , :‘ DP$D”´Î , : ‘ ÿ–(); : K$ð…$()g”¾‹ K$ð"E" ø K$ð"e" Ý ÿÕ ,, : �=•È‹ K$ð"A" ø K$ð"a" Ý …;"Address";A$ : Aðÿ”("&h"òÿ�(A$,)) : Iðè(A$,"-") : AEðó(Iñï)ôÿ”("&h"òÿƒ(A$,Iò,))ó(Ið)ôAE : ‹ Z$ð"m" Ý ª :¢ IðáA!(A)ñáA!(OA) : AðóIôOAó(Ið)ôA : Á #,ÿ…((áA!(A)óáA!(OA))õ)ò : ‰ ª¼•Ò‹ K$ð"C" ø K$ð"c" Ý AE!ðó : ´ò AE!ñ ø AE!ïÿ : …;"Count";K$ : AE!ðó(K$ð"#")ôÿó(K$ñï"#")ô(ÿ”(K$)) : µ : KCðAE! : ‰ ªÿ•Ü‹ K$ð"D" ø K$ð"d" Ý DP$ðÿ–(ó(DP$ð"*")ô ó(DP$ð" ")ô*) : ‰ ª3–æ‹ K$ðÿ–( ) Ý ÿÕ , : K$ð…$() : ÿÕ , : ‰ ¾G–ð‹ K$ñï" " Ý ´„–ú:�é*****************************************************¬–‘ "** working **"; : CTðKC : ÿÕ ,¹–´ò CTñïÝ– XYð : OJ$ð"" : PT$ð"" : AAðA-—" ‹ DP$ð"*" Ý ‚ Ið Ü  : � t : OJ$ðOJ$ò" " : ƒ : OJ$ðOJ$ò" "òPT$ : ‰ �w—, � œ : ‹ XYð Ý ‹ CDð Ý Ý XYð : ‰ , :¢ ‹ CDð ý Ý XYð : ‰ ,×6 Kðè(OBJ0$,CD$) : ‹ K Ý KðKý : OJ$ðáSP$(OJ$)òÿƒ(OPC0$,Kôò,) :‰ †â—@ ‹ CDð í Ý � ¦ : ‰ †˜J ‹ CDð Ë Ý � L : ‰ †)˜T ‹ CDï ? ÷ CDñ € Ý �  : ‰ †Q˜^ ‹ CDï  ÷ CDñ À Ý � Ô : ‰ †p˜h ‹ CDï ¿ Ý � ä : ‰ †|˜r � ¡˜| :�é********** print **********´˜† ‹ XY Ý � ¤™� ‘#, : ‘#,ÿ‚("000"òÿš(AA),);" ";OJ$; :CTðCTó : ‹ áA!(A)ïáA!(AE) Ý CT𙚵 : ÿÕ , : ‰ ª?™¤OJ ðáSP$(OJ)ò"' "òPT$ò" '" : Ž‚™®:�é***********************************************************¥™¸:�é********* 00H-3FH *********î™ÂKðè(OBJ1$,CD$) : ‹ K Ý • Kýò ‰ b,l,”,ž,¨,²,¼,Æ,К̕ CL2 ‰ Ö,à,ô,,0,:¨šÖ‹ CL1ð Ý � ` : OJ$ðáSP$(OJ$)ò"LD "òáRR$(CU)ò","òCD$òN$ò"H" : ‰ ° :¢ OJ$ðáSP$(OJ$)ò"ADD "òáXY$(XY)ò","òáRR$(CU) :CMð :� º : XYð : Ž›à‹ CUð Ý � ` : ‹ CL1ð Ý OJ$ðáSP$(OJ$)ò"LD ("òCD$òN$ò"H),A" : Ž :¢ OJ$ðáSP$(OJ$)ò"LD A,("òCD$òN$ò"H)" : Ž…›ê‹ CL1ð Ý OJ$ðáSP$(OJ$)ò"LD ("òáRR$(CU)ò"),A" : Ž :¢ OJ$ðáSP$(OJ$)ò"LD A,("òáRR$(CU)ò")" : ŽÄ›ô‹ CL1ð Ý OJ$ðáSP$(OJ$)ò"INC " :¢ OJ$ðáSP$(OJ$)ò"DEC "â›þ OJ$ðOJ$òáRR$(CU) : ‰ °ú›J$ð"INC " : Cð 4œ OJ$ðáSP$(OJ$)òJ$òáR1$(CU,CL1ý)ƒœ ‹ CDðC Ý OJ$ðOJ$òáXY$(XY) : ‹ XY Ý � 8 : OJ$ðJ$òN$ò")" : ÿƒ(OJ$,)ðCD$ : XYð :¢ OJ$ðOJ$ò")"Šœ& Žªœ0J$ð"DEC " : Cð 5 : ‰ Ìœ:CðCD : YXðXY : ‹ XYð Ý � tôœD J$ð"LD " : CDðC : Cð 6 : � '�N ‹ YX Ý J$ðOJ$ : � t :OJ$ðJ$ : ÿƒ(OJ$,)ðCD$D�X OJ$ðOJ$ò","òCD$ò"H" : Ži�bOJ$ðáSP$(OJ$)ò"EX AF,AF'" : Žy�lJ$ð"DJNZ "—�v � t : OJ$ðáSP$(OJ$)òJ$ô�€ ‹ CDñ€ Ý OJ$ðOJ$òÿ‚("000"òÿš(AòCD),)ò"H" :¢ OJ$ðOJ$òÿ‚("000"òÿš(áA!(A)òCDó),)ò"H"û�Š Žž”J$ð"JR " : ‰ v/žžJ$ð"JR NZ,": ‰ vIž¨J$ð"JR Z," : ‰ vcž²J$ð"JR NC,": ‰ v}ž¼J$ð"JR C," : ‰ vÄžÆ� ` : OJ$ðáSP$(OJ$)ò"LD "òáXY$(XY)ò",("òCD$òN$ò"H)" : XYð :Ž ŸÐ� ` : OJ$ðáSP$(OJ$)ò"LD ("òCD$òN$ò"H),"òáXY$(XY) : XYð : Ž,ŸÚ:�é********* C0H-FFH *********ZŸä• CL2ò ‰ î, ,4,H,„,Ž,¢,ÀjŸîJ$ð"RET "ÝŸø OJ$ðáSP$(OJ$)òJ$òÿƒ("NZZ NCC POPEP M ",CUôò(CL1ý)ôò,) : ‹ CUð ø (CL1ï)÷(CUñï) Ý OJ$ðÿ�(OJ$,ÿ’(OJ$)ó)äŸ Ž  ‹ CL1ð Ý OJ$ðáSP$(OJ$)ò"POP "òáRR2$(CU) : ‰ °A  ‹ CUð Ý OJ$ðáSP$(OJ$)ò"RET" : Ž   ‹ CUð Ý OJ$ðáSP$(OJ$)ò"JP ("òáXY$(XY)ò")" : XYð : ޲ * OJ$ðáSP$(OJ$)ò"LD SP,"òáXY$(XY) : XYð : ŽÊ 4� ` : J$ð"JP "ò > � ø : OJ$ðOJ$ò","òCD$òN$ò"H" : Ž¡H‹ CL1ð Ý pA¡R ‹ CUð Ý � ` : OJ$ðáSP$(OJ$)ò"JP "òCD$òN$ò"H" : Ž}¡\ ‹ CUð Ý � t : OJ$ðáSP$(OJ$)ò"OUT ("òCD$ò"H),A": ŽÁ¡f OJ$ðáSP$(OJ$)ò"EX (SP),"òáXY$(XY) : XYð : Žý¡p‹ CUð Ý � t : OJ$ðáSP$(OJ$)ò"IN A,("òCD$ò"H)" : Ž!¢z OJ$ðáSP$(OJ$)ò"EX DE,HL" :ŽA¢„� ` : J$ð"CALL " : ‰ >~¢Ž‹ CL1ð Ý � ` : OJ$ðáSP$(OJ$)ò"CALL "òCD$òN$ò"H" : ެ¢˜ OJ$ðáSP$(OJ$)ò"PUSH "òáRR2$(CU) : ‰ °Ú¢¢� t : OJ$ðáSP$(OJ$)òáA$(CU,CL1ý)ò" "£¬ ‹ CUð ø (CUð ÷ CL1ð) Ý OJ$ðOJ$ò"A,"£¶ OJ$ðOJ$òCD$ò"H" :ŽX£ÀOJ$ðáSP$(OJ$)ò"RST "òÿ“(CU)òÿƒ(ÿ“(CL1ó),)ò"H" : Ž{£Ê:�é********* 80H-BFH *********¡£ÔOJ$ðáSP$(OJ$)òáA$(CU,CL1ý)ò" "Í£Þ ‹ CUð ø (CUð ÷ CL1ï) Ý OJ$ðOJ$ò"A,"æ£è OJ$ðOJ$òáR1$(,CL2)ø£ò ‹ CL2ñï Ý ŽS¤ü OJ$ðOJ$òáXY$(XY) : ‹ XY Ý � 8 : OJ$ðJ$òN$ò")" : ÿƒ(OJ$,)ðCD$ : XYð :¢ OJ$ðOJ$ò")"Z¤ Ž}¤ :�é********* 40H-7FH *********§¤ OJ$ðáSP$(OJ$)ò"LD "òáR1$(CU,CL1ý)ä$ ‹ CUð ÷ CL1ñ Ý � üà¤. OJ$ðOJ$ò","òáR1$(,CL2)ø¤8 ‹ CL2ð Ý ü :¢ Ž¥B :�é*********** CBH ***********<¥L � œ : ‹ XY Ý � B : � œP¥V ‹ CDï ? Ý ’ š¥` OJ$ðáSP$(OJ$)òÿƒ("RLCRRCRL RR SLASRA SRL",CUôò(CL1ý)ôò,)ò" "´¥j ‹ CUð ÷ CL1ñ Ý ¤Í¥t OJ$ðOJ$òáR1$(,CL2)¦~ ‹ CL2ð Ý OJ$ðOJ$òáXY$(XY) : ‹ XY Ý OJ$ðOJ$òN$ò")" : XYð :¢ OJ$ðOJ$ò")""¦ˆ Ž‘¦’ OJ$ðáSP$(OJ$)òÿƒ("BITRESSET",(CDýH40ó)ôò,)ò" "òÿƒ("01234567",CUôòCL1ýò,)ò" "òáR1$(,CL2) :‰ ~ ´¦œ :�é*********** EDH ***********ó¦¦ � œ : ‹ CDï ? ÷ CDñ € Ý Î :¢ ‹ CDñ   ø CDï ¿ Ý ¤§° ‹ CL2ï Ý ¤J§º OJ$ðáSP$(OJ$)òÿƒ("LDCPINOU",CL2ôò,) : ‹ CL2ð Ý OJ$ðOJ$ò"T"�§Ä OJ$ðOJ$òÿƒ("I D IRDR",(CUó)ôò(CL1ý)ôò,) : Ž©§Î • CL2 ‰ ì , , ,2 ,< ,F ,P ¼§Ø ‹ CDð p Ý ¤ñ§â OJ$ðáSP$(OJ$)ò"IN "òáR1$(CU,CL1ý)ò",(C)" :Ž¨ì ‹ CDð q Ý ¤9¨ö OJ$ðáSP$(OJ$)ò"OUT (C),"òáR1$(CU,CL1ý) :Ž|¨ OJ$ðáSP$(OJ$)òÿƒ("SBCADC",(CL1ý)ôò,)ò" HL,"òáRR$(CU) : Ž�¨ ‹ CUð Ý ¤±¨ � ` : OJ$ðáSP$(OJ$)ò"LD "æ¨ ‹ CL1ð Ý OJ$ðOJ$ò"("òCD$òN$ò"H),"òáRR$(CU) : Ž©( OJ$ðOJ$òáRR$(CU)ò",("òCD$òN$ò"H)" : Ž?©2 ‹ CDð D Ý OJ$ðáSP$(OJ$)ò"NEG" : Ž :¢ ¤}©< ‹ CUð Ý OJ$ðáSP$(OJ$)ò"RET"òÿƒ("NI",CL1ýò,) :Ž :¢ ¤Ø©F ‹ CUñ Ý ‹ CDð N Ý ¤ :¢ OJ$ðáSP$(OJ$)ò"IM "òÿƒ("0 12",CUôòCL1ýò,) : Ž :¢ ¤fªP ‹ CUñ Ý OJ$ðáSP$(OJ$)ò"LD "òÿƒ("I,AR,AA,IA,R",CUôò(CL1ý)ôò,) : Ž :¢ ‹ CUð Ý OJ$ðáSP$(OJ$)òÿƒ("RRDRLD",(CL1ý)ôò,) : Ž :¢ ¤‰ªZ :�é********** error **********¨ªd ‹ äðZ Ý © Fên ‹ äð‚ Ý ÿÕ ,:© xÞªx ‹ äðt Ý AðOA:I!ð:©úª‚ ‹ äðˆ Ý Aðó�:© ƒ«Œ • ¨ ‰ +«– :�é*************************** äð‚ Ý ÿÕ ,:© xÞªx ‹ äðt Ý AðOA:I!ð:©úª‚ ‹ äðˆ Ý Aðó�:© ƒ«Œ • ¨ ‰ +«– :�é***************************