100 OPEN2,8,1,"0:COLORIZER.1024"
110 SYS700
120 ;
130 *=$033C
140 .OPT O2
150 ;
160 CHAR1 .BYTE 1
170 CHAR2 .BYTE 2
180 CHAR3 .BYTE 3
190 ;
200 COLOR1 .BYTE 1
210 COLOR2 .BYTE 2
220 COLOR3 .BYTE 6
230 ;
240 SRC = $FB
250 DEST = $FD
260 ;
270 SCREEN = $0400
280 COLORMEM = $D800
290 ;
300 LDA #$FF ;
310 STA SRC ;
320 STA DEST ;
330 LDA #>(SCREEN-1) ;
340 STA SRC+1 ;
350 LDA #>(COLORMEM-1) ;
360 STA DEST+1 ;
370 LDX #4 ;
380 ;
390 MAINLOOP LDY #250 ;
400 ;
410 ML2 LDA (SRC),Y ;
420 CMP CHAR1 ;
430 BNE ML3 ;
440 LDA COLOR1 ;
450 BPL SAVCOLOR ;
460 ;
470 ML3 CMP CHAR2 ;
480 BNE ML4 ;
490 LDA COLOR2 ;
500 BPL SAVCOLOR ;
510 ;
520 ML4 CMP CHAR3 ;
530 BNE ML5 ;
540 LDA COLOR3 ;
550 ;
560 SAVCOLOR STA (DEST),Y ;
570 ;
580 ML5 DEY ;
590 BNE ML2 ;
600 ;
610 CLC ;
620 LDA #250 ;
630 ADC SRC ;
640 STA SRC ;
650 BCC NC1 ;
660 INC SRC+1 ;
670 CLC ;
680 ;
690 NC1 LDA #250 ;
700 ADC DEST ;
710 STA DEST ;
720 BCC NC2 ;
730 INC DEST+1 ;
740 ;
750 NC2 DEX ;
760 BEQ FINISH ;
770 JMP MAINLOOP ;
780 ;
790 FINISH RTS ;