00033A 1 78 sei ; disable int while changing vector
00033B 1 A9 45 lda #<scr1
00033D 1 85 90 sta IRQVECT
00033F 1 A9 03 lda #>scr1
000341 1 85 91 sta IRQVECT+1 ; scr1 is new IRQ vector
000343 1 58 cli ; done, re-enable IRQ
000344 1 60 rts
000345 1
000345 1 scr1:
000345 1 A9 0C lda #12
000347 1 8D 80 E8 sta 59520
00034A 1 A9 04 lda #4 ; select 2nd screen page
00034C 1 8D 81 E8 sta 59521
00034F 1 A9 56 lda #<scr2
000351 1 85 90 sta IRQVECT ; go to scr2 next time
000353 1 4C 55 E4 jmp ROMIRQ ; continue at original vector
000356 1
000356 1 scr2:
000356 1 A9 0C lda #12
000358 1 8D 80 E8 sta 59520
00035B 1 A9 00 lda #0 ; select 1st screen page
00035D 1 8D 81 E8 sta 59521
000360 1 A9 45 lda #<scr1
000362 1 85 90 sta IRQVECT ; go to scr2 next time
000364 1 4C 55 E4 jmp ROMIRQ ; continue at original vector