Raster Split Screen

120
169,127
141,13,220
169,1 lda #1
141,26,208
169,3
133,251
173,112,192
141,18,208
169,24
141,17,208
173,20,3
141,110,192
173,21,3
141,111,192
169,50
141,20,3
169,192
141,21,3
169,192
141,22,3
88
96

173,25,208
141,25,208
41,1
240,43
198,251
16,4
169,2
133,251
166,251
189,115,192
141,33,208
189,118,192
141,17,208
189,121,192
141,22,208
189,124,192
141,24,208
189,112,192
141,18,208
138
240,6
104
168
104
170
104
64
76,49,234

49264
49267
49270
49273
49276

sei
lda #127
sta 56333 ;Interrupt Control register (timer)
lda #1
sta 53274 ;IRQ Mask register (enable interrupt)
lda #3
sta 251
lda 49264
sta 53266 ;Read current raster line
lda #24 ;#0011000 – bit (one), 3,4
sta 53265
lda 788
sta 49262
lda 789
sta 49263
lda #50
sta 788
lda #192
sta 789
cli
rts

lda 53273 ;VIC Interrupt flag register
sta 53273
and #1
beq
dec 251 ;decrement zero page low byte
bpl
lda #2
sta 251 ;store in zero page low byte
ldx 251
lda 49267,x ;
sta 53281
lda 49270,x
sta 53265
lda 49273,x
sta 53270
lda 49276,x
sta 53272
lda 49264,x
sta 53266
txa
beq
pla
tay
pla
tax
pla
rti
jmp 59953

byte 49,170,129
byte 0,6,0
byte 59,27,59
byte 24,8,8
byte 24,20,24