10 ' LST8085
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,"8085.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"