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