P :*********************r :* Disassembler * :* (ver. 1) * :* 1984.5 by EM *؋ :********************* ,,,":" 1,0,0  AZ : 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 *********08J$J$ : tcB CD N$(CD) : N$"+"((CD),)iLV:*********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)AA : ݎ:******** PEEK 2 ********** t : CUCD  : CL1CD  : CL2CL1  : 8:******* HL->IX,IY ********BCMr XY CU (OJ$,CM)XY$(XY) : XYx:**************************************************************:********* DEF FN ********** SP$(OJ$)(OJ$(),)( XY$(XY)("HLIXIY",XY,)O RR$(CU)("BCDEHLSP",CU,)w RR2$(CU)("BCDEHLAF",CU,)  R1$(CU,CL)("BCDEHL(A",CUCL,) A$(CU,CL)("ADDADCSUBSBCANDXOROR CP ",CUCL,) 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" : xZ Z$ : "r",#,Z$, : #, AS RC$, AS RC2$ : Ud "Offset address";A$ : A$"" OA  : OA("&h"(A$,))n AOA : AE!A!(OA)() : AE! : AE!AE! : : AEAE!Ӓ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"  : IA!(A)A!(OA) : AIOA(I)A : #,((A!(A)A!(OA))) :  K$"C" K$"c" AE! : AE! AE! : ;"Count";K$ : AE!(K$"#")(K$"#")((K$)) : : KCAE! :  K$"D" K$"d" DP$((DP$"*") (DP$" ")*) : 3 K$( ) , : K$$() : , : G K$" " :***************************************************** "** working **"; : CTKC : , CTݖ XY : OJ$"" : PT$"" : AAA-" DP$"*" I  : t : OJ$OJ$" " : : OJ$OJ$" "PT$ : w,  : XY CD XY : , : CD XY : ,×6 K(OBJ0$,CD$) : K KK : OJ$SP$(OJ$)(OPC0$,K,) : @ CD  : J CD L : )T CD ? CD  : Q^ CD  CD  : ph CD  : |r | :********** print ********** XY  #, : #,("000"(AA),);" ";OJ$; :CTCT : 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) CDC OJ$OJ$XY$(XY) : XY 8 : OJ$J$N$")" : (OJ$,)CD$ : XY : OJ$OJ$")"& 0J$"DEC " : C 5 : ̜:CCD : YXXY : XY tD J$"LD " : CDC : C 6 : 'N YX J$OJ$ : t :OJ$J$ : (OJ$,)CD$DX OJ$OJ$","CD$"H" : ibOJ$SP$(OJ$)"EX AF,AF'" : ylJ$"DJNZ "v t : OJ$SP$(OJ$)J$ CD OJ$OJ$("000"(ACD),)"H" : OJ$OJ$("000"(A!(A)CD),)"H" J$"JR " : v/J$"JR NZ,": vIJ$"JR Z," : vcJ$"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,,,,jJ$"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 pAR 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" :XOJ$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 ***********