unit strng;
interface
type tRegCod=
(rF,rA,rB,rC,rD,rE,rH,rL,rAF,rBC,rDE,rHL,rI,rR,rIX,rIY,rSP,rPC);
const sRegCod:array[rF..rPC]of string[2]=
(' F',' A',' B',' C',' D',' E',' H',' L','AF','BC','DE','HL',' I',' R','IX','IY','SP','PC');
type tIfCod=
(ifC,ifNC,ifZ,ifNZ,ifP,ifM,ifPE,ifPO);
const sIfCod:array[ifC..ifPO]of string[2]=
(' C','NC',' Z','NZ',' P',' M','PE','PO');
sLD:string[3]='LD ';
sEX:string[3]='EX ';
sEXX:string[4]='EXX ';
sADD:string[4]='ADD ';
sINC:string[4]='INC ';
sADC:string[4]='ADC ';
sSUB:string[4]='SUB ';
sDEC:string[4]='DEC ';
sSBC:string[4]='SBC ';
sCP:string[3]='CP ';
sAND:string[4]='AND ';
sOR:string[3]='OR ';
sXOR:string[4]='XOR ';
sJP:string[3]='JP ';
sJR:string[3]='JR ';
sDJNZ:string[5]='DJNZ ';
sPUSH:string[5]='PUSH ';
sPOP:string[4]='POP ';
sRST:string[4]='RST ';
sCALL:string[5]='CALL ';
sRET:string[4]='RET ';
sSRL:string[4]='SRL ';
sSRA:string[4]='SRA ';
sSLA:string[4]='SLA ';
sRL:string[3]='RL ';
sRR:string[3]='RR ';
sRLC:string[4]='RLC ';
sRRC:string[4]='RRC ';
sRLA:string[4]='RLA ';
sRRA:string[4]='RRA ';
sRLCA:string[5]='RLCA ';
sRRCA:string[5]='RRCA ';
sRLD:string[4]='RLD ';
sRRD:string[4]='RRD ';
sSET:string[4]='SET ';
sRES:string[4]='RES ';
sBIT:string[4]='BIT ';
sLDIR:string[5]='LDIR ';
sLDDR:string[5]='LDDR ';
sLDI:string[4]='LDI ';
sLDD:string[4]='LDD ';
sCPIR:string[5]='CPIR ';
sCPDR:string[5]='CPDR ';
sCPI:string[4]='CPI ';
sCPD:string[4]='CPD ';
sIN:string[3]='IN ';
sINIR:string[5]='INIR ';
sINDR:string[5]='INDR ';
sINI:string[4]='INI ';
sIND:string[4]='IND ';
sOUT:string[4]='OUT ';
sOTIR:string[5]='OTIR ';
sOTDR:string[5]='OTDR ';
sOUTI:string[5]='OUTI ';
sOUTD:string[5]='OUTD ';
sEI:string[3]='EI ';
sDI:string[3]='DI ';
sIM:string[3]='IM ';
sNOP:string[4]='NOP ';
sCPL:string[4]='CPL ';
sNEG:string[4]='NEG ';
sSCF:string[4]='SCF ';
sCCF:string[4]='CCF ';
sHALT:string[5]='HALT ';
sDAA:string[4]='DAA ';
sZpt:string[1]=',';
sRwn:string[1]='=';
sScob1:string[1]='(';
sScob2:string[1]=')';
s0:string[2]='0,';
s1:string[2]='1,';
s2:string[2]='2,';
s3:string[2]='3,';
s4:string[2]='4,';
s5:string[2]='5,';
s6:string[2]='6,';
s7:string[2]='7,';
implementation
end.