home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / prob1b (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.7 KB  |  101 lines

  1. 1000 *=$C000
  2. 1010 SEI
  3. 1020 JSR INIT
  4. 1030 LDA #$7F
  5. 1040 STA $DC0D
  6. 1050 LDA $DC0D
  7. 1060 LDA #$1B
  8. 1070 STA $D011
  9. 1080 LDA #$32
  10. 1090 STA $D012
  11. 1100 LDA #<IRQ
  12. 1110 STA $0314
  13. 1120 LDA #>IRQ
  14. 1130 STA $0315
  15. 1140 LDA #$01
  16. 1150 STA $D019
  17. 1160 STA $D01A
  18. 1170 CLI
  19. 1180 LOOP JMP LOOP
  20. 1190 ;
  21. 1200 IRQ LDX #$0C
  22. 1210 L1 DEX
  23. 1220 BNE L1
  24. 1230 L2 LDY DELTAB,X
  25. 1240 LDA COLTAB,X
  26. 1250 L3 DEY
  27. 1260 BNE L3
  28. 1270 STA $D020
  29. 1280 STA $D021
  30. 1290 INX
  31. 1300 CPX #$C7
  32. 1310 BNE L2
  33. 1320 JSR COLOURS
  34. 1330 LDX CTR
  35. 1340 LDY SINUS,X
  36. 1350 LDX #$00
  37. 1360 L4 LDA BARCOL,X
  38. 1370 STA COLTAB,Y
  39. 1380 INX
  40. 1390 INY
  41. 1400 CPX #$09
  42. 1410 BNE L4
  43. 1420 INC CTR
  44. 1430 LDA #$01
  45. 1440 STA $D019
  46. 1450 JMP $EA31
  47. 1460 CTR BYT $00
  48. 1470 INIT JSR $E544
  49. 1480 LDA #$00
  50. 1490 STA $D015
  51. 1500 LDX #$00
  52. 1510 L5 LDY #$00
  53. 1520 L6 LDA DTAB,Y
  54. 1530 STA DELTAB,X
  55. 1540 INX
  56. 1550 INY
  57. 1560 CPY #$08
  58. 1570 BNE L6
  59. 1580 CPX #$C7
  60. 1590 BCC L5
  61. 1600 COLOURS LDX #$00
  62. 1610 L7 LDA STOREDCOLS,X
  63. 1620 STA COLTAB,X
  64. 1630 INX
  65. 1640 CPX #$C7
  66. 1650 BNE L7
  67. 1660 RTS
  68. 1670 *=$C100
  69. 1680 DELTAB ;
  70. 1690 *=$C200
  71. 1700 SINUS BYT $5F,$61,$63,$65,$68,$6A,$6C,$6F,$71,$73,$76,$78,$7A,$7C,$7F,$81
  72. 1710 BYT $83,$85,$87,$89,$8B,$8D,$8F,$91,$93,$95,$97,$99,$9B,$9D,$9E,$A0
  73. 1720 BYT $A2,$A3,$A5,$A6,$A8,$A9,$AB,$AC,$AD,$AF,$B0,$B1,$B2,$B3,$B4,$B5
  74. 1730 BYT $B6,$B7,$B8,$B9,$B9,$BA,$BB,$BB,$BC,$BC,$BC,$BD,$BD,$BD,$BD,$BD
  75. 1740 BYT $BD,$BD,$BD,$BD,$BD,$BD,$BC,$BC,$BC,$BB,$BB,$BA,$B9,$B9,$B8,$B7
  76. 1750 BYT $B6,$B5,$B4,$B3,$B2,$B1,$B0,$AF,$AD,$AC,$AB,$A9,$A8,$A6,$A5,$A3
  77. 1760 BYT $A2,$A0,$9E,$9D,$9B,$99,$97,$95,$93,$91,$8F,$8D,$8B,$89,$87,$85
  78. 1770 BYT $83,$81,$7F,$7C,$7A,$78,$76,$73,$71,$6F,$6C,$6A,$68,$65,$63,$61
  79. 1780 BYT $5F,$5C,$5A,$58,$55,$53,$51,$4E,$4C,$4A,$47,$45,$43,$41,$3E,$3C
  80. 1790 BYT $3A,$38,$36,$34,$32,$30,$2E,$2C,$2A,$28,$26,$24,$22,$20,$1F,$1D
  81. 1800 BYT $1B,$1A,$18,$17,$15,$14,$12,$11,$10,$0E,$0D,$0C,$0B,$0A,$09,$08
  82. 1810 BYT $07,$06,$05,$04,$04,$03,$02,$02,$01,$01,$01,$00,$00,$00,$00,$00
  83. 1820 BYT $00,$00,$00,$00,$00,$00,$01,$01,$01,$02,$02,$03,$04,$04,$05,$06
  84. 1830 BYT $07,$08,$09,$0A,$0B,$0C,$0D,$0E,$10,$11,$12,$14,$15,$17,$18,$1A
  85. 1840 BYT $1B,$1D,$1F,$20,$22,$24,$26,$28,$2A,$2C,$2E,$30,$32,$34,$36,$38
  86. 1850 BYT $3A,$3C,$3E,$41,$43,$45,$47,$4A,$4C,$4E,$51,$53,$55,$58,$5A,$5C
  87. 1860 *=$C300
  88. 1870 COLTAB ;
  89. 1880 *=$C400
  90. 1890 STOREDCOLS ;
  91. 1900 BYT 0,9,2,10,2,9,0,6,6,14,14,3,3,1,1,15,12,11,0,11,12,15,1,7,7,8,8,2,2
  92. 1910 BYT 0,11,0,0,11,12,15,1,1,13,5,9,0,3,3,0,9,5,5,13,13,13,1,15,12,15,12,15
  93. 1920 BYT 1,13,13,13,5,5,9,0,5,13,5,0,1,1,3,14,6,3,6,3,6,14,3,1,1,15,7,15,7,15,7
  94. 1930 BYT 15,7,15,2,0,9,5,0,6,14,3,0,11,12,15,1,15,12,11,0,3,14,6,0,5,9,0,2,0,0
  95. 1940 BYT 9,8,9,8,7,1,7,8,9,8,9,0,11,11,12,12,15,15,1,0,6,14,3,1,3,14,6,0,1,15
  96. 1950 BYT 15,12,12,11,11,0,9,2,9,2,10,10,2,9,2,9,5,0,13,13,0,7,7,15,7,15,7,7
  97. 1960 BYT 0,13,13,0,5,0,6,3,6,3,7,6,3,7,1,7,3,6,7,3,6,3,0
  98. 1970 *=$C500
  99. 1980 BARCOL BYT 0,1,1,5,13,5,1,1,0
  100. 1990 DTAB BYT 8,8,8,8,8,8,8,1
  101.