100 SYS 700 ;PAL 64 110 .OPT OO 120 ; "SPLIT" 130 ; IRQ DRIVEN MULTI-COLOUR 140 ; HI-RES/TEXT SCREEN 150 ; BY ZOLTAN HUNT, 1988 160 ; 170 SPLIT =* 180 SEI 190 LDA #
MAIN 220 STA $0315 230 LDA #$81 240 STA $D01A 250 LDA #$1B 260 STA $D011 270 LDA #$7F 280 STA $DC0D 290 CLI 300 RTS 310 ; 320 MAIN =* 330 PHA: TYA 340 PHA: TXA 350 PHA ;SAVE A,X,Y 360 LDA #1 370 STA $D019 380 LDA IRQSELC 390 CMP #1 400 BEQ IRQEND 410 LDA $D012 420 CMP #60 430 BCC TOPIRQ 440 LDA 53272 ;SET UP FOR TEXT MODE 450 AND #247 460 STA 53272 470 LDA 53265 480 AND #223 490 STA 53265 500 LDA #2 510 STA $D012 520 LDA 53270 530 AND #239 540 STA 53270 550 LDA IRQTWCOL 560 STA 53281 570 JMP IRQEND 580 ; 590 TOPIRQ =* ;SET UP FOR HIRES MODE 600 LDA 53272 610 ORA #8 620 STA 53272 630 LDA 53265 640 ORA #32 650 STA 53265 660 LDA 53270 670 ORA #16 680 STA 53270 690 LDA SPLIN ;SPLIT TEXT LINE 700 ASL: ASL: ASL ;CONVERT TO RASTER 710 ADC #50 720 STA $D012 730 ; 740 IRQEND =* 750 LDA $DC0D 760 LSR A 770 BCC IRQ2END 780 PLA: TAX 790 PLA: TAY 800 PLA 810 JMP $EA31 820 ; 830 IRQ2END =* 840 PLA: TAX 850 PLA: TAY 860 PLA 870 JMP $FEBC 880 ; 890 IRQTWCOL .BYTE 3 900 IRQSELC .BYTE 0 ;HI/TEXT (1)=TEXT 910 SPLIN .BYTE 20 ;SPLIT TEXT LINE