home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / colorizer.s (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  999b  |  71 lines
  1. 100 open2,8,1,"0:colorizer.1024"
  2. 110 sys700
  3. 120 ;
  4. 130 *=$033c
  5. 140 .opt o2
  6. 150 ;
  7. 160 char1 .byte 1
  8. 170 char2 .byte 2
  9. 180 char3 .byte 3
  10. 190 ;
  11. 200 color1 .byte 1
  12. 210 color2 .byte 2
  13. 220 color3 .byte 6
  14. 230 ;
  15. 240 src = $fb
  16. 250 dest = $fd
  17. 260 ;
  18. 270 screen = $0400
  19. 280 colormem = $d800
  20. 290 ;
  21. 300 lda #$ff ;
  22. 310 sta src ;
  23. 320 sta dest ;
  24. 330 lda #>(screen-1) ;
  25. 340 sta src+1 ;
  26. 350 lda #>(colormem-1) ;
  27. 360 sta dest+1 ;
  28. 370 ldx #4 ;
  29. 380 ;
  30. 390 mainloop ldy #250 ;
  31. 400 ;
  32. 410 ml2 lda (src),y ;
  33. 420 cmp char1 ;
  34. 430 bne ml3 ;
  35. 440 lda color1 ;
  36. 450 bpl savcolor ;
  37. 460 ;
  38. 470 ml3 cmp char2 ;
  39. 480 bne ml4 ;
  40. 490 lda color2 ;
  41. 500 bpl savcolor ;
  42. 510 ;
  43. 520 ml4 cmp char3 ;
  44. 530 bne ml5 ;
  45. 540 lda color3 ;
  46. 550 ;
  47. 560 savcolor sta (dest),y ;
  48. 570 ;
  49. 580 ml5 dey ;
  50. 590 bne ml2 ;
  51. 600 ;
  52. 610 clc ;
  53. 620 lda #250 ;
  54. 630 adc src ;
  55. 640 sta src ;
  56. 650 bcc nc1 ;
  57. 660 inc src+1 ;
  58. 670 clc ;
  59. 680 ;
  60. 690 nc1 lda #250 ;
  61. 700 adc dest ;
  62. 710 sta dest ;
  63. 720 bcc nc2 ;
  64. 730 inc dest+1 ;
  65. 740 ;
  66. 750 nc2 dex ;
  67. 760 beq finish ;
  68. 770 jmp mainloop ;
  69. 780 ;
  70. 790 finish rts ;
  71.