*=$5800
.binary "War_and_Pace.prg",2
*=$1000
jsr $5800
jsr $e544
sei ; turn off interrupts
lda #$7f
ldx #$01
sta $dc0d ; Turn off CIA 1 interrupts
sta $dd0d ; Turn off CIA 2 interrupts
stx $d01a ; Turn on raster interrupts
lda #$1b
sta $d011 ; Clear high bit of $d012, set text mode
lda #<irq ; low part of address of interrupt handler code
ldx #>irq ; high part of address of interrupt handler code
ldy #$80 ; line to trigger interrupt
sta $0314 ; store in interrupt vector
stx $0315
sty $d012
cli
ldx #$00
nextchar
lda text,x
jsr $ffd2
inx
cpx #16
bne nextchar
loop
jmp loop
irq
jsr $5806
ldx #$00
jsr soft
asl $d019
pla
tay
pla
tax
pla
rti ; return from interrupt
text
.text "IRQ MUSIC PLAYER"
soft
stx $d016
inx
cpx #$08
bne soft
rts