org $9047
start equ *
    mva #0  ^28
;    mva #3  ^2f
    mva #$a2    ^23

p1  mva nuty1   ^22
    inc p1+1
    sne
    mva <nuty1  p1+1
    sta $2c4
    ldx #$f
p2  ldy inst0,x
    mva nuty0,x ^20
    tya
    asl @
    asl @
    sta $2c6

p3  mva inst,y  ^21
    eor #$80
    cmp:rne $d40b
    lsr $d010
    bcc *+4
    lda #$21
    sta $d400
    lda:rpl ^4b

:4  dey
    bpl p3
    dex
    bpl p2
    bmi p1  !

i1  equ 44
i2  equ 45
i4_b    equ 46
i4_a    equ 47
inst    dta $a0,$a1,$a1,$a1
    dta $a0,$a1,$a1,$a1
    dta $a0,$a1,$a1,$a1
    dta $a0,$a1,$a1,$a1
    dta $a0,$a1,$a1,$a2
    dta $a0,$a1,$a1,$a2
    dta $a1,$a2,$a1,$a2
    dta $a1,$a2,$a1,$a3
    dta $a2,$a3,$a1,$a4
    dta $a3,$a4,$a1,$a5
    dta $a7,$a7,$a1,$a7
    dta $a6,$a6,$a1,$a6
inst0   dta i2,i2,i1,i2
    dta i1,i2,i1,i4_b
    dta i4_a,i1,i2,i1
    dta i1,i2,i1,i1
nuty0   dta $79,$6b,$90,$5f
    dta $90,$55,$90,$50
    dta $50,$90,$47,$6b
    dta $90,$5f,$90,$90
nuty1   dta 0,0,0,0
    dta $13,$14,$1a,$1d
    dta $27,$2a,$35,$3c
    dta $50,$55,$6b,$79
    dta $a2,$ab,$d8,$f3
dl  equ *
    dta b($47),a(text)
    dta b($47),a(text+12)
    dta $70,$70,$70,$70,$70
    dta 7
    dta b($41)
text    equ *
    dta d'TAQUART zupa    '*
    dta d'  vasco dupa'
    dta d'CHODZCIE NA PIWO'

    org $22f
    dta b(0)
    dta a(dl)

    end