home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #6 / Commodore_Disk_User_Vol.3_6_1990_-.d64 / source@ (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  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.