home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D06.D64 / source@ (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  126 lines
  1. 1000 !
  2. 1010 ! ASSEMBLE AND TYPE SYS 49152 !
  3. 1020 ! BY ANDY PANDY, DECEMBER '89 !
  4. 1021 ! THIS SOURCE IS PRETTY LAME !
  5. 1030 !
  6. 1040 *=49152
  7. 1050 !
  8. 1060 JSR INIT
  9. 1070 JSR E(null)TRIP
  10. 1080 !
  11. 1090 SETIRQ !
  12. 1100 SEI
  13. 1110 LDA #$7F
  14. 1120 STA $DC0D
  15. 1130 LDA $DC0D
  16. 1140 LDA #$1B
  17. 1150 STA $D011
  18. 1160 LDA #$32
  19. 1170 STA $D012
  20. 1180 LDA #<IRQ
  21. 1190 STA $314
  22. 1200 LDA #>IRQ
  23. 1210 STA $315
  24. 1220 LDA #1
  25. 1230 STA $D019
  26. 1240 STA $D01A
  27. 1250 CLI
  28. 1260 RTS
  29. 1270 !
  30. 1280 !
  31. 1290 COLTAB= $CE00
  32. 1300 DELTAB= $CF00
  33. 1310 !
  34. 1320 IRQ !
  35. 1330 LDX #$D
  36. 1340 I1 DEX
  37. 1350 BNE I1
  38. 1360 I2 LDY DELTAB,X
  39. 1370 LDA COLTAB,X
  40. 1380 I3 DEY
  41. 1390 BNE I3
  42. 1400 STA $D016
  43. 1410 STA $D016
  44. 1420 INX
  45. 1430 CPX #$42
  46. 1440 BNE I2
  47. 1450 LDX #8
  48. 1460 I4 DEX
  49. 1470 BNE I4
  50. 1480 !
  51. 1490 JSR WAVE
  52. 1491 !
  53. 1500 LDA #1
  54. 1510 STA $D019
  55. 1520 JMP $EA31
  56. 1530 !
  57. 1540 INIT !
  58. 1550 LDX #0
  59. 1560 IN0 LDY #0
  60. 1570 IN1 LDA DTAB,Y
  61. 1580 STA DELTAB,X
  62. 1590 INX
  63. 1600 INY
  64. 1610 CPY #8
  65. 1620 BCC IN1
  66. 1630 CPX #$80
  67. 1640 BCC IN0
  68. 1650 RTS
  69. 1660 !
  70. 1670 DTAB BYT 8,8,8,8,8,8,8,1
  71. 1680 !
  72. 1690 WAVETAB !
  73. 1700 BYT 219,219,219,219,219,219,219
  74. 1710 BYT 218,217,217,216,216,216,217,217,218,219,220,221,221,222,222,222
  75. 1720 BYT 221,221,220,219,219
  76. 1730 BYT 219,219,219,219,219,219,219
  77. 1740 BYT 219,219,219,219,219,219,219
  78. 1750 !
  79. 1760 W1 BYT 00
  80. 1770 WCOUNT BYT 2
  81. 1780 !
  82. 1790 WAVE !
  83. 1800 !
  84. 1810 DEC WCOUNT
  85. 1820 LDA WCOUNT ! THIS SLOWS THE WAVE
  86. 1830 BEQ YES !    DOWN.
  87. 1840 RTS
  88. 1850 YES !
  89. 1860 LDA #2 ! <- ALTER FOR SPEED !!
  90. 1870 STA WCOUNT
  91. 1880 !
  92. 1890 LDX #0
  93. 1900 WW !
  94. 1910 LDA COLTAB+1,X ! ROTATE THE TABLE
  95. 1920 STA COLTAB,X !   ROUND AND ROUND !
  96. 1930 INX
  97. 1940 CPX #80
  98. 1950 BNE WW
  99. 1960 !
  100. 1970 INC W1
  101. 1980 LDA W1
  102. 1990 CMP #41
  103. 2000 BNE NO16
  104. 2010 LDA #0
  105. 2020 STA W1
  106. 2030 NO16 !
  107. 2040 TAX
  108. 2050 LDA WAVETAB,X ! POP THE VALUE IN
  109. 2060 STA COLTAB+78 ! THE TABLE !
  110. 2070 RTS
  111. 2080 !
  112. 2090 E(null)TRIP !
  113. 2100 LDA #<TEXT
  114. 2110 LDY #>TEXT
  115. 2120 LDX #0
  116. 2130 JSR $AB1E
  117. 2140 RTS
  118. 2150 !
  119. 2160 TEXT !
  120. 2170 BYT "[147]"
  121. 2180 BYT "           [176][192][192][174] [176][192][192][201] [192][192][192][201] [201]  [201]          "
  122. 2190 BYT "           [221]  [221] [221]  [221]    [221] [221]  [221]          "
  123. 2200 BYT "           [171][192][192][179] [221]  [221] [221]  [221] [202][192][192][179]          "
  124. 2210 BYT "           [221]  [221] [221]  [221] [221]  [221]    [221]          "
  125. 2220 BYT "           [221]  [221] [221]  [221] [202][192][192][203] [192][192][192][203]          ",0
  126.