home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol023 / lsttdl.bas < prev    next >
BASIC Source File  |  1984-04-29  |  3KB  |  194 lines
  1. 10 ' TDL
  2. 20 '
  3. 30 DEFINT A-G
  4. 40 DEFSTR N-Z
  5. 50 DIM S(136)
  6. 60 DIM T(30)
  7. 70 '
  8. 80 ALEN=9
  9. 90 ZCOM=";"
  10. 100 ZLAB=":"
  11. 110 ZBYTE="DB"
  12. 120 ZEXT=".SRC"
  13. 130 AZIL=2
  14. 140 '
  15. 150 ' opcodes
  16. 160 '
  17. 170 S(0)=ZCOM+"---"
  18. 180 S(1)="ACI"
  19. 190 S(2)="ADC"
  20. 200 S(3)="ADD"
  21. 210 S(4)="ADI"
  22. 220 S(5)="ANA"
  23. 230 S(6)="ANI"
  24. 240 S(7)="CALL"
  25. 250 S(8)="CC"
  26. 260 S(9)="CM"
  27. 270 S(10)="CMA"
  28. 280 S(11)="CMC"
  29. 290 S(12)="CMP"
  30. 300 S(13)="CNC"
  31. 310 S(14)="CNZ"
  32. 320 S(15)="CP"
  33. 330 S(16)="CPE"
  34. 340 S(17)="CPI"
  35. 350 S(18)="CPO"
  36. 360 S(19)="CZ"
  37. 370 S(20)="DAA"
  38. 380 S(21)="DAD"
  39. 390 S(22)="DCR"
  40. 400 S(23)="DCX"
  41. 410 S(24)="DI"
  42. 420 S(25)="EI"
  43. 430 S(26)="HLT"
  44. 440 S(27)="IN"
  45. 450 S(28)="INR"
  46. 460 S(29)="INX"
  47. 470 S(30)="JC"
  48. 480 S(31)="JM"
  49. 490 S(32)="JMP"
  50. 500 S(33)="JNC"
  51. 510 S(34)="JNZ"
  52. 520 S(35)="JP"
  53. 530 S(36)="JPE"
  54. 540 S(37)="JPO"
  55. 550 S(38)="JZ"
  56. 560 S(39)="LDA"
  57. 570 S(40)="LDAX"
  58. 580 S(41)="LHLD"
  59. 590 S(42)="LXI"
  60. 600 S(43)="MOV"
  61. 610 S(44)="MVI"
  62. 620 S(45)="NOP"
  63. 630 S(46)="ORA"
  64. 640 S(47)="ORI"
  65. 650 S(48)="OUT"
  66. 660 S(49)="PCHL"
  67. 670 S(50)="POP"
  68. 680 S(51)="PUSH"
  69. 690 S(52)="RAL"
  70. 700 S(53)="RAR"
  71. 710 S(54)="RC"
  72. 720 S(55)="RET"
  73. 730 S(56)="RIM"
  74. 740 S(57)="RLC"
  75. 750 S(58)="RM"
  76. 760 S(59)="RNC"
  77. 770 S(60)="RNZ"
  78. 780 S(61)="RP"
  79. 790 S(62)="RPE"
  80. 800 S(63)="RPO"
  81. 810 S(64)="RRC"
  82. 820 S(65)="RST"
  83. 830 S(66)="RZ"
  84. 840 S(67)="SBB"
  85. 850 S(68)="SBI"
  86. 860 S(69)="SHLD"
  87. 870 S(70)="SIM"
  88. 880 S(71)="SPHL"
  89. 890 S(72)="STA"
  90. 900 S(73)="STAX"
  91. 910 S(74)="STC"
  92. 920 S(75)="SUB"
  93. 930 S(76)="SUI"
  94. 940 S(77)="XCHG"
  95. 950 S(78)="XRA"
  96. 960 S(79)="XRI"
  97. 970 S(80)="XTHL"
  98. 980 S(81)="JR"
  99. 990 S(82)="JRNZ"
  100. 1000 S(83)="JRZ"
  101. 1010 S(84)="JRNC"
  102. 1020 S(85)="JRC"
  103. 1030 S(86)="DJNZ"
  104. 1040 S(87)="EXAF"
  105. 1050 S(88)="RLCR"
  106. 1060 S(89)="RRCR"
  107. 1070 S(90)="RLAR"
  108. 1080 S(91)="RRAR"
  109. 1090 S(92)="SLAR"
  110. 1100 S(93)="SRAR"
  111. 1110 S(94)="SRLR"
  112. 1120 S(95)="BIT"
  113. 1130 S(96)="RES"
  114. 1140 S(97)="BSET"
  115. 1150 S(98)="EXX"
  116. 1160 S(99)="DADC"
  117. 1170 S(100)="DSBC"
  118. 1180 S(101)="IM0"
  119. 1190 S(102)="IM1"
  120. 1200 S(103)="IM2"
  121. 1210 S(104)="INP"
  122. 1220 S(105)="LDAI"
  123. 1230 S(106)="LDAR"
  124. 1240 S(107)="LBCD"
  125. 1250 S(108)="LDED"
  126. 1260 S(109)="LSPD"
  127. 1270 S(110)="NEG"
  128. 1280 S(111)="OUTP"
  129. 1290 S(112)="RETI"
  130. 1300 S(113)="RETN"
  131. 1310 S(114)="RLD"
  132. 1320 S(115)="RRD"
  133. 1330 S(116)="SBCD"
  134. 1340 S(117)="SDED"
  135. 1350 S(118)="SSPD"
  136. 1360 S(119)="STAI"
  137. 1370 S(120)="STAR"
  138. 1380 S(121)="LDI"
  139. 1390 S(122)="CCI"
  140. 1400 S(123)="INI"
  141. 1410 S(124)="OUTI"
  142. 1420 S(125)="LDD"
  143. 1430 S(126)="CCD"
  144. 1440 S(127)="IND"
  145. 1450 S(128)="OUTD"
  146. 1460 S(129)="LDIR"
  147. 1470 S(130)="CCIR"
  148. 1480 S(131)="INIR"
  149. 1490 S(132)="OUTIR"
  150. 1500 S(133)="LDDR"
  151. 1510 S(134)="CCDR"
  152. 1520 S(135)="INDR"
  153. 1530 S(136)="OUTDR"
  154. 1540 '
  155. 1550 ' operands
  156. 1560 '
  157. 1570 T(0)=""
  158. 1580 T(1)="N"
  159. 1590 T(2)="NN"
  160. 1600 T(3)=""
  161. 1610 T(4)="DISP"
  162. 1620 T(5)="B"
  163. 1630 T(6)="C"
  164. 1640 T(7)="D"
  165. 1650 T(8)="E"
  166. 1660 T(9)="H"
  167. 1670 T(10)="L"
  168. 1680 T(11)="M"
  169. 1690 T(12)="A"
  170. 1700 T(13)="SP"
  171. 1710 T(14)="PSW"
  172. 1720 T(15)="0"
  173. 1730 T(16)="1"
  174. 1740 T(17)="2"
  175. 1750 T(18)="3"
  176. 1760 T(19)="4"
  177. 1770 T(20)="5"
  178. 1780 T(21)="6"
  179. 1790 T(22)="7"
  180. 1800 '
  181. 1810 OPEN "O",1,"TDL.LST"
  182. 1820 PRINT #1,ALEN
  183. 1830 PRINT #1,ZCOM
  184. 1840 PRINT #1,ZLAB
  185. 1850 PRINT #1,ZBYTE
  186. 1860 PRINT #1,ZEXT
  187. 1870 PRINT #1,AZIL
  188. 1880 A=136:PRINT#1,A
  189. 1890 FOR B=0 TO A:PRINT#1,S(B):NEXT B
  190. 1900 A=22:PRINT#1,A
  191. 1910 FOR B=0 TO A:PRINT#1,T(B):NEXT B
  192. 1920 CLOSE 1
  193. 1930 PRINT "END OF LIST LOAD"
  194.