home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D01.D64 / rasters2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  86 lines
  1. 1000 ! FLD COLOUR BARS....
  2. 1010 !
  3. 1020 !
  4. 1030 *=49152
  5. 1040 !
  6. 1050 JSR SETIRQ ! SET IRQ'S
  7. 1060 RTS        ! AND RETURN !
  8. 1070 !
  9. 1080 SETIRQ !
  10. 1090 SEI
  11. 1100 LDA #$7F
  12. 1110 STA $DC0D
  13. 1120 LDA $DC0D
  14. 1130 LDA #$1B
  15. 1140 STA $D011
  16. 1150 LDA #$32   ! <- SET THIS NUMBER
  17. 1160 STA $D012  !    TO THE FIRST LINE
  18. 1170 LDA #<IRQ  !    YOU WANT YOUR
  19. 1180 STA $314   !    COLOURS TO START.
  20. 1190 LDA #>IRQ
  21. 1200 STA $315
  22. 1210 LDA #1
  23. 1220 STA $D019
  24. 1230 STA $D01A
  25. 1240 LDA $D016
  26. 1250 AND #$F0
  27. 1260 STA $D016
  28. 1270 CLI
  29. 1280 RTS
  30. 1290 !
  31. 1300 MAX=$88       ! MAX.COLOURED LINES
  32. 1310 COLTAB=$C600 !<COLOUR TABLE ADDRESS
  33. 1320 !
  34. 1330 IRQ !
  35. 1340 LDX #$D   !<GET IN EXACTLY THE
  36. 1350 D1 DEX    ! RIGHT PLACE TO START!
  37. 1360 BNE D1
  38. 1370 !
  39. 1380 LDX #0
  40. 1390 I1 LDA $D012    !<GET RASTER LINE
  41. 1400 LDY COLTAB,X    !<GET COLOUR
  42. 1410 I2 CMP $D012    !<ARE WE STILL ON
  43. 1420 BEQ I2          ! SAME RAS LINE?
  44. 1430 STY $D020       !<STORE COLOUR IN
  45. 1440 STY $D021       ! SCREEN & BORDER
  46. 1450 AND #$07        !<DO THE FLD
  47. 1460 ORA #$10        ! TRICK !
  48. 1470 STA $D011       !<AND STORE IT.
  49. 1480 INX             !
  50. 1490 CPX #MAX        !<FINISHED?
  51. 1500 BNE I1          !
  52. 1510 !
  53. 1520 LDA #1          !<RESET IRQ
  54. 1530 STA $D019
  55. 1540 JMP $EA31       !<AND RETURN...
  56. 1550 !
  57. 1560 !
  58. 1570 !  FLD SINGLE PIXEL COLOUR-BARS
  59. 1580 !  ----------------------------
  60. 1590 !
  61. 1600 ! -TO USE THIS PROGRAM,YOU HAVE TO
  62. 1610 ! FIRST ASSEMBLE IT,START IT WITH
  63. 1620 ! SYS 49152,AND THEN EITHER POKE
  64. 1630 ! FROM BASIC,OR USE A MONITOR TO
  65. 1640 ! PUT THE COLOUR VALUES INTO THE
  66. 1650 ! TABLE FROM $C600-$C600+MAX.
  67. 1660 ! EG. 0 FOR BLACK,1 FOR WHITE ETC
  68. 1670 !
  69. 1680 ! -(C) ANDY PARTRIDGE AND CDU!
  70. 1690 !
  71. 1700 *=$C600 ! EXAMPLE COLOURS...
  72. 1710 !
  73. 1720 BYT 6,0,6,2,0,6,2,4,0,6,2,4,$A,0
  74. 1730 BYT 6,2,4,$A,7,0,6,2,4,$A,7,1
  75. 1740 BYT 7,$A,4,2,6,0,7,$A,4,2,6,0
  76. 1750 BYT $A,4,2,6,0,4,2,6,0,2,6,0,6,0
  77. 1760 !
  78. 1770 BYT 0,9,5,5,5,13,0,5,13,13,13,1,0
  79. 1780 BYT 13,1,1,1,13,0,1,13,13,13,5,0
  80. 1790 BYT 13,5,5,5,9,0,0
  81. 1800 !
  82. 1810 BYT 9,0,9,2,0,9,2,8,0,9,2,8,$A,0
  83. 1820 BYT 9,2,8,$A,7,0,9,2,8,$A,7,1
  84. 1830 BYT 7,$A,8,2,9,0,7,$A,8,2,9,0
  85. 1840 BYT $A,8,2,9,0,8,2,9,0,2,9,0,9,0
  86.