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