Z80 D V2.1     :' :' Z80 D V2.1:':' M VEVERKA:' 25.4.1987:'9 "P ? ";A$:BASE("$"A$)% BASE BASEBASE  . "Z80 D V2.1 () 1987 MV S   "INICI"  0 "======================================="  /  "S ? ";A$:"";:PC("$"A$)* PC PCPC*4 KE$"" BASE BASEBASEPC > ZHA$AD$": "HD$( (HD$))IN$( (IN$))OP$(@(OP$))";"ZN$RA$2WCC"---------------------------------------"\ KE$: KE$"": >f KE$"S": $p "W ( S = )";z KE$: KE$"" z "": ();: "" KE$"S": >  PPPC: "HEX16":AD$HH$HD$"":ZN$"":HL$"HL" "READINST" TY  TY  ]TY(RL) , < , , Z , d , x , , , , , , , d , x , , ]TY@(RL) , , , , , , J ,  , , , , , , , J ,   I MI RIXX(I)    L  IN$X1$(I)" OP$X2$(I): "KODPAR":O1$OP$"$ OP$X3$(I): "KODPAR":O2$OP$ . O2$"" O1$""O1$O1$","8 OP$O1$O2$B L :'B "V :'IF RI=$ED THEN SOUND 30,200` RI RI j RI r t RI 7~ PPRI: "HEX8": "I ";H$;" !": " :'P =$ RI HL$"IX" : HL$"IY" "READINST":D(PCBASE) PPD:"HEX8":D$H$ RI6 "CTIBYT"a RG$(@)"("HL$"+"D$")":RG$()"H"(HL$,):RG$( )"L"(HL$,)/ D1$()HL$:D2$()HL$:FX V ((OP$,)"(I" (OP$,)"+"D$")") RI6 RI "CTIBYT"l FX:RG$(@)"(HL)":D1$()"HL":D2$()"HL":HL$"HL":RG$()"H":RG$( )"L" ::'U IN$"LD" OP$RG$(R2)","RG$(R1)* OP$"(HL),(HL)" IN$"HALT":OP$""  IN$AI$(R2)( OP$RG$(R1)(- R2 R2OP$"A,"OP$2 < IN$"LD": "CTIWORD"F OP$D1$(R3)","HH$P Z IN$"INC":OP$D1$(R3):d IN$"INC"n OP$RG$(R2):x IN$"DEC": n  IN$"LD": "CTIBYT" OP$RG$(R2)","H$ $ IN$"ADD":OP$HL$","D1$(R3): IN$"DEC":OP$D1$(R3): IN$"JP":  IN$"CALL":  IN$"RET":OP$CO$(R2): "CTIWORD" OP$CO$(R2)","HH$ : IN$"POP":   IN$"PUSH" OP$D2$(R3)  R2@ @ " IN$"EXEC": "CTIBYT" , OP$H$6 @ IN$"RST":OP$RS$(R2):J IN$AI$(R2)T "CTIBYT":OP$"A,"H$4^ R2 R2 OP$"A,"H$ : OP$H$h %r :' #| FX "CTIBYT":R3R1:R1@ "READINST" FX R3R1:R1@P TY IN$BT$(TY):OP$(R2)","RG$(R1) : IN$RO$(R2):OP$RG$(R1)+ R3@ FX OP$OP$","RG$(R3) RI6  :' ED "READINST" TY ^ TY RL & , N , v , , , , , , & , N , , , , , ,  I ` FD(I)RI    "DEFB" IN$Z1$(I):OP$Z2$(I) & IN$"IN" 0 R2@ OP$"F,(C)":: OP$RG$(R2)",(C)"D N IN$"OUT"X R2@ "DEFB"b OP$"(C),"RG$(R2)l v IN$"SBC" OP$"HL,"D1$(R3)  IN$"ADC": IN$"LD") "CTIWORD":OP$"("HH$"),"D1$(R3) IN$"LD") "CTIWORD":OP$D1$(R3)",("HH$")"  B,C,D,E,H,L,(HL),A$ ADD,ADC,SUB,SBC,AND,XOR,OR,CP NZ,Z,NC,C,PO,PE,P,M 00,08,10,18,20,28,30,38 BC,DE,HL,SP BC,DE,HL,AF$ RLC,RRC,RL,RR,SLA,SRA,SLIA,SRL "",BIT,RES,SET* $44,NEG,""4 $45,RETN,""> $4D,RETI,""H $67,RRD,""R $6F,RLD,""\ $46,IM,0f $56,IM,1p $5E,IM,2z $47,LD,"I,A" $57,LD,"A,I" $4F,LD,"R,A" $5F,LD,"A,R" $A0,LDI ,"" $A1,CPI,"" $A2,INI,"" $A3,OUTI,"" $B0,LDIR,"" $B1,CPIR,"" $B2,INIR,"" $B3,OTIR,"" $A8,LDD ,"" $A9,CPD,""$AA,IND,""$AB,OUTD,""$B8,LDDR,""$$B9,CPDR,"".$BA,INDR,""8$BB,OTDR,"")B FD(`),Z1$(`),Z2$(`)L I `V FD(I),Z1$(I),Z2$(I)`jMI%t XX(MI),X1$(MI),X2$(MI),X3$(MI)~ I MI" XX(I),X1$(I),X2$(I),X3$(I) "INICI"f RG$(`),AI$(`),CO$(`),RS$(`),D1$(@),D2$(@),RO$(`),BT$(@)I`:RG$(I):I`:AI$(I):I`:CO$(I):I`:RS$(I):I@:D1$(I):I@:D2$(I):I`:RO$(I):I@:BT$(I):  B$00,NOP,"",""$02,LD,(BC),A($12,LD,(DE),A2$0A,LD,A,(BC)<$1A,LD,A,(DE)F$07,RLCA,"",""P$17,RLA ,"",""Z$0F,RRCA,"",""d$1F,RRA ,"",""n$27,DAA,"",""x$37,SCF,"",""$2F,CPL,"",""$3F,CCF,"",""$10,DJNZ,/R,""$20,JR,NZ,/R$30,JR,NC,/R$18,JR,/R,""$28,JR,Z,/R$38,JR,C,/R$22,LD,/W(,/H$32,LD,/W(,A$2A,LD,/H,/W($3A,LD,A,/W($C3,JP,/W,""$D3,OUT,/B(,A$E3,EX,(SP),/H$F3,DI,"","""$C9,RET,"","",$D9,EXX,"",""6$E9,JP,/HJ,""@$F9,LD,SP,/HJ$DB,IN,A,/B(T$EB,EX,DE,/H^$FB,EI,"",""h$08,EX,AF,"AF'"r$CD,CALL,/W,""|:'V 8 HEXA  "HEX8"H$(PP)  (H$) H$"0"H$:'V 16  "HEX16"HH$(PP)) (HH$) HH$"0"HH$: :'R  "RELADR" "CTIBYT" PP~ PPPP PPPCPP "HEX16":'C & "READINST"0 "CTIBYT":RIPP:R1RI `DR2(RIR1) `NR3(RI) @XTY(RI) @bRLRI plRH(RI) p+qCC(RI RI RI RI)v:'C , PC "CTIBYT" PP(PCBASE):PCPC  "HEX8"HD$HD$H$0 PP ZN$ZN$"." : ZN$ZN$(PP) :'C PC "CTIWORD" "CTIBYT":P5PP "CTIBYT":PPPPP5 "HEX16" "KODPAR" (OP$,)"/" 8 P1$(OP$,,):P2$(OP$,@,)P1$"B""CTIBYT":OP$H$ P1$"R""RELADR":OP$HH$ *P1$"W""CTIWORD":OP$HH$;4P1$"H" OP$D1$(): P2$"J" OP$"("HL$")" > P2$"(" OP$"("OP$")"H p "DEFB"z:' OP$"":IN$"DEFB"" I (HD$) " OP$OP$(HD$,I,)","OP$(OP$,(OP$))AA@:O1$PB$(