10 ' LSTINTEL 20 ' 30 DEFINT A-G:DEFSTR N-Z:DIM S(80):DIM T(22) 40 ' 50 ALEN=3 60 ZCOM=";" 70 ZLAB=":" 80 ZBYTE="DB" 90 ZEXT=".ASM" 100 AZIL=0 110 ' 120 ' opcodes 130 ' 140 S(0)=ZCOM+"---" 150 S(1)="ACI" 160 S(2)="ADC" 170 S(3)="ADD" 180 S(4)="ADI" 190 S(5)="ANA" 200 S(6)="ANI" 210 S(7)="CALL" 220 S(8)="CC" 230 S(9)="CM" 240 S(10)="CMA" 250 S(11)="CMC" 260 S(12)="CMP" 270 S(13)="CNC" 280 S(14)="CNZ" 290 S(15)="CP" 300 S(16)="CPE" 310 S(17)="CPI" 320 S(18)="CPO" 330 S(19)="CZ" 340 S(20)="DAA" 350 S(21)="DAD" 360 S(22)="DCR" 370 S(23)="DCX" 380 S(24)="DI" 390 S(25)="EI" 400 S(26)="HLT" 410 S(27)="IN" 420 S(28)="INR" 430 S(29)="INX" 440 S(30)="JC" 450 S(31)="JM" 460 S(32)="JMP" 470 S(33)="JNC" 480 S(34)="JNZ" 490 S(35)="JP" 500 S(36)="JPE" 510 S(37)="JPO" 520 S(38)="JZ" 530 S(39)="LDA" 540 S(40)="LDAX" 550 S(41)="LHLD" 560 S(42)="LXI" 570 S(43)="MOV" 580 S(44)="MVI" 590 S(45)="NOP" 600 S(46)="ORA" 610 S(47)="ORI" 620 S(48)="OUT" 630 S(49)="PCHL" 640 S(50)="POP" 650 S(51)="PUSH" 660 S(52)="RAL" 670 S(53)="RAR" 680 S(54)="RC" 690 S(55)="RET" 700 S(56)="RIM" 710 S(57)="RLC" 720 S(58)="RM" 730 S(59)="RNC" 740 S(60)="RNZ" 750 S(61)="RP" 760 S(62)="RPE" 770 S(63)="RPO" 780 S(64)="RRC" 790 S(65)="RST" 800 S(66)="RZ" 810 S(67)="SBB" 820 S(68)="SBI" 830 S(69)="SHLD" 840 S(70)="SIM" 850 S(71)="SPHL" 860 S(72)="STA" 870 S(73)="STAX" 880 S(74)="STC" 890 S(75)="SUB" 900 S(76)="SUI" 910 S(77)="XCHG" 920 S(78)="XRA" 930 S(79)="XRI" 940 S(80)="XTHL" 950 ' 960 ' operands 970 ' 980 T(0)="" 990 T(1)="N" 1000 T(2)="NN" 1010 T(3)="" 1020 T(4)="" 1030 T(5)="B" 1040 T(6)="C" 1050 T(7)="D" 1060 T(8)="E" 1070 T(9)="H" 1080 T(10)="L" 1090 T(11)="M" 1100 T(12)="A" 1110 T(13)="SP" 1120 T(14)="PSW" 1130 T(15)="0" 1140 T(16)="1" 1150 T(17)="2" 1160 T(18)="3" 1170 T(19)="4" 1180 T(20)="5" 1190 T(21)="6" 1200 T(22)="7" 1210 ' 1220 OPEN "O",1,"INTEL.LST" 1230 PRINT #1,ALEN 1240 PRINT #1,ZCOM 1250 PRINT #1,ZLAB 1260 PRINT #1,ZBYTE 1270 PRINT #1,ZEXT 1280 PRINT #1,AZIL 1290 A=80:PRINT#1,A 1300 FOR B=0 TO A:PRINT#1,S(B):NEXT B 1310 A=22:PRINT#1,A 1320 FOR B=0 TO A:PRINT#1,T(B):NEXT B 1330 CLOSE 1 1340 PRINT "END OF LIST LOAD"