home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol023 / sigmv023.ark / LSTZIOG.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  148 lines
  1. 10 ' LSTZILOG
  2. 20 '
  3. 30 DEFINT A-G:DEFSTR N-Z:DIM S(67):DIM T(48)
  4. 40 '
  5. 50 ALEN=9
  6. 60 ZCOM=";"
  7. 70 ZLAB=":"
  8. 80 ZBYTE="DB"
  9. 90 ZEXT=".MAC"
  10. 100 AZIL=1
  11. 110 '
  12. 120 ' OPCODES
  13. 130 '
  14. 140 S(0)=ZCOM+"---"
  15. 150 S(1)="ADC"
  16. 160 S(2)="ADD"
  17. 170 S(3)="AND"
  18. 180 S(4)="BIT"
  19. 190 S(5)="CALL"
  20. 200 S(6)="CCF"
  21. 210 S(7)="CP"
  22. 220 S(8)="CPD"
  23. 230 S(9)="CPDR"
  24. 240 S(10)="CPI"
  25. 250 S(11)="CPIR"
  26. 260 S(12)="CPL"
  27. 270 S(13)="DAA"
  28. 280 S(14)="DEC"
  29. 290 S(15)="DI"
  30. 300 S(16)="DJNZ"
  31. 310 S(17)="EI"
  32. 320 S(18)="EX"
  33. 330 S(19)="EXX"
  34. 340 S(20)="HALT"
  35. 350 S(21)="IM"
  36. 360 S(22)="IN"
  37. 370 S(23)="INC
  38. 380 S(24)="IND"
  39. 390 S(25)="INDR"
  40. 400 S(26)="INI"
  41. 410 S(27)="INIR"
  42. 420 S(28)="JP"
  43. 430 S(29)="JR"
  44. 440 S(30)="LD"
  45. 450 S(31)="LDD"
  46. 460 S(32)="LDDR"
  47. 470 S(33)="LDI"
  48. 480 S(34)="LDIR"
  49. 490 S(35)="NEG"
  50. 500 S(36)="NOP"
  51. 510 S(37)="OR"
  52. 520 S(38)="OTDR"
  53. 530 S(39)="OTIR"
  54. 540 S(40)="OUT"
  55. 550 S(41)="OUTD"
  56. 560 S(42)="OUTI"
  57. 570 S(43)="POP"
  58. 580 S(44)="PUSH"
  59. 590 S(45)="RES"
  60. 600 S(46)="RET"
  61. 610 S(47)="RETI"
  62. 620 S(48)="RETN"
  63. 630 S(49)="RL"
  64. 640 S(50)="RLA"
  65. 650 S(51)="RLC"
  66. 660 S(52)="RLCA"
  67. 670 S(53)="RLD"
  68. 680 S(54)="RR"
  69. 690 S(55)="RRA"
  70. 700 S(56)="RRC"
  71. 710 S(57)="RRCA"
  72. 720 S(58)="RRD"
  73. 730 S(59)="RST"
  74. 740 S(60)="SBC"
  75. 750 S(61)="SCF"
  76. 760 S(62)="SET"
  77. 770 S(63)="SLA"
  78. 780 S(64)="SRA"
  79. 790 S(65)="SRL"
  80. 800 S(66)="SUB"
  81. 810 S(67)="XOR"
  82. 820 '
  83. 830 REM - OPERANDS
  84. 840 '
  85. 850 T(0)=""
  86. 860 T(1)="N"
  87. 870 T(2)="NN"
  88. 880 T(3)="(NN)"
  89. 890 T(4)="DISP"
  90. 900 T(5)="B"
  91. 910 T(6)="C"
  92. 920 T(7)="D"
  93. 930 T(8)="E"
  94. 940 T(9)="H"
  95. 950 T(10)="L"
  96. 960 T(11)="(HL)"
  97. 970 T(12)="A"
  98. 980 T(13)="BC"
  99. 990 T(14)="DE"
  100. 1000 T(15)="HL"
  101. 1010 T(16)="SP"
  102. 1020 T(17)="(BC)"
  103. 1030 T(18)="DE"
  104. 1040 T(19)="I"
  105. 1050 T(20)="R"
  106. 1060 T(21)="AF'"
  107. 1070 T(22)="AF"
  108. 1080 T(23)="(C)"
  109. 1090 T(24)="(SP)"
  110. 1100 T(25)="0"
  111. 1110 T(26)="1"
  112. 1120 T(27)="2"
  113. 1130 T(28)="3"
  114. 1140 T(29)="4"
  115. 1150 T(30)="5"
  116. 1160 T(31)="6"
  117. 1170 T(32)="7"
  118. 1180 T(33)="0"
  119. 1190 T(34)="8"
  120. 1200 T(35)="10H"
  121. 1210 T(36)="18H"
  122. 1220 T(37)="20H"
  123. 1230 T(38)="28H"
  124. 1240 T(39)="30H"
  125. 1250 T(40)="38H"
  126. 1260 T(41)="NZ"
  127. 1270 T(42)="Z"
  128. 1280 T(43)="NC"
  129. 1290 T(44)="C"
  130. 1300 T(45)="PO"
  131. 1310 T(46)="PE"
  132. 1320 T(47)="P"
  133. 1330 T(48)="M"
  134. 1340 '
  135. 1350 OPEN "O",1,"ZILOG.LST"
  136. 1360 PRINT #1,ALEN
  137. 1370 PRINT #1,ZCOM
  138. 1380 PRINT #1,ZLAB
  139. 1390 PRINT #1,ZBYTE
  140. 1400 PRINT #1,ZEXT
  141. 1410 PRINT #1,AZIL
  142. 1420 A=67:PRINT#1,A
  143. 1430 FOR B=0 TO A:PRINT#1,S(B):NEXT B
  144. 1440 A=48:PRINT#1,A
  145. 1450 FOR B=0 TO A:PRINT#1,T(B):NEXT B
  146. 1460 CLOSE 1
  147. 1470 PRINT "END OF LIST LOAD"
  148.