10 ' LSTZILOG 20 ' 30 DEFINT A-G:DEFSTR N-Z:DIM S(67):DIM T(48) 40 ' 50 ALEN=9 60 ZCOM=";" 70 ZLAB=":" 80 ZBYTE="DB" 90 ZEXT=".MAC" 100 AZIL=1 110 ' 120 ' OPCODES 130 ' 140 S(0)=ZCOM+"---" 150 S(1)="ADC" 160 S(2)="ADD" 170 S(3)="AND" 180 S(4)="BIT" 190 S(5)="CALL" 200 S(6)="CCF" 210 S(7)="CP" 220 S(8)="CPD" 230 S(9)="CPDR" 240 S(10)="CPI" 250 S(11)="CPIR" 260 S(12)="CPL" 270 S(13)="DAA" 280 S(14)="DEC" 290 S(15)="DI" 300 S(16)="DJNZ" 310 S(17)="EI" 320 S(18)="EX" 330 S(19)="EXX" 340 S(20)="HALT" 350 S(21)="IM" 360 S(22)="IN" 370 S(23)="INC 380 S(24)="IND" 390 S(25)="INDR" 400 S(26)="INI" 410 S(27)="INIR" 420 S(28)="JP" 430 S(29)="JR" 440 S(30)="LD" 450 S(31)="LDD" 460 S(32)="LDDR" 470 S(33)="LDI" 480 S(34)="LDIR" 490 S(35)="NEG" 500 S(36)="NOP" 510 S(37)="OR" 520 S(38)="OTDR" 530 S(39)="OTIR" 540 S(40)="OUT" 550 S(41)="OUTD" 560 S(42)="OUTI" 570 S(43)="POP" 580 S(44)="PUSH" 590 S(45)="RES" 600 S(46)="RET" 610 S(47)="RETI" 620 S(48)="RETN" 630 S(49)="RL" 640 S(50)="RLA" 650 S(51)="RLC" 660 S(52)="RLCA" 670 S(53)="RLD" 680 S(54)="RR" 690 S(55)="RRA" 700 S(56)="RRC" 710 S(57)="RRCA" 720 S(58)="RRD" 730 S(59)="RST" 740 S(60)="SBC" 750 S(61)="SCF" 760 S(62)="SET" 770 S(63)="SLA" 780 S(64)="SRA" 790 S(65)="SRL" 800 S(66)="SUB" 810 S(67)="XOR" 820 ' 830 REM - OPERANDS 840 ' 850 T(0)="" 860 T(1)="N" 870 T(2)="NN" 880 T(3)="(NN)" 890 T(4)="DISP" 900 T(5)="B" 910 T(6)="C" 920 T(7)="D" 930 T(8)="E" 940 T(9)="H" 950 T(10)="L" 960 T(11)="(HL)" 970 T(12)="A" 980 T(13)="BC" 990 T(14)="DE" 1000 T(15)="HL" 1010 T(16)="SP" 1020 T(17)="(BC)" 1030 T(18)="DE" 1040 T(19)="I" 1050 T(20)="R" 1060 T(21)="AF'" 1070 T(22)="AF" 1080 T(23)="(C)" 1090 T(24)="(SP)" 1100 T(25)="0" 1110 T(26)="1" 1120 T(27)="2" 1130 T(28)="3" 1140 T(29)="4" 1150 T(30)="5" 1160 T(31)="6" 1170 T(32)="7" 1180 T(33)="0" 1190 T(34)="8" 1200 T(35)="10H" 1210 T(36)="18H" 1220 T(37)="20H" 1230 T(38)="28H" 1240 T(39)="30H" 1250 T(40)="38H" 1260 T(41)="NZ" 1270 T(42)="Z" 1280 T(43)="NC" 1290 T(44)="C" 1300 T(45)="PO" 1310 T(46)="PE" 1320 T(47)="P" 1330 T(48)="M" 1340 ' 1350 OPEN "O",1,"ZILOG.LST" 1360 PRINT #1,ALEN 1370 PRINT #1,ZCOM 1380 PRINT #1,ZLAB 1390 PRINT #1,ZBYTE 1400 PRINT #1,ZEXT 1410 PRINT #1,AZIL 1420 A=67:PRINT#1,A 1430 FOR B=0 TO A:PRINT#1,S(B):NEXT B 1440 A=48:PRINT#1,A 1450 FOR B=0 TO A:PRINT#1,T(B):NEXT B 1460 CLOSE 1 1470 PRINT "END OF LIST LOAD"