Kod: Zaznacz cały
*=$801
//2019 sys2061
.byte $0b,$08,$e3,$07,$9e,$32,$30,$36,$31,$00,$00,$00
ldx #$0
skok_01:
lda text,x
cmp #$ff
beq skok_02
jsr $ffd2
inx
jmp skok_01
text:
.byte $d
.text "WITAM PONOWNIE PO 20 LATACH!!!"
.byte $ff
skok_02:
lda $0286
ldx #0
skok_03:
sta $d800,x
sta $d900,x
sta $da00,x
sta $dae8,x
inx
bne skok_03
sei
jsr $1000
lda #<irq_01
sta $0314
lda #>irq_01
sta $0315
ldy #$0
sty $dc0e
iny
sty $d01a
lda $d011
sta $d011
lda #$fa
sta $d012
cli
jmp *
irq_01:
ldx $d020
ldy $d021
lda $d011
pha //zapisz ma stos $d011
and #%11110111
sta $d011
stx $d021
tya //przesuń $d021 do A
pha //zapisz na stos
dec $d020
jsr $1003
inc $d020
pla //przywołaj wartość $d021
tay //przesuń do Y
pla //przywołaj $d011
sta $d011
tya //przesuń A do Y
pha //wrzuć na stos
irq_01b:
lda $d011
and #$80
cmp #$0
bne irq_01b
pla //wywołaj A z $d021
ldx #$32
irq_01a:
cpx $d012
bne irq_01a
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
sta $d021
dec $d019
lda $dc0d
pla
tay
pla
tax
pla
rti
*=$ffe "Music"
.import binary "D:\C64\Demo_2019\muzyka.prg"