1 na emulatorze:
run $600
org $600
st sei ; disable IRQ
inc $d40e ; disable NMI
lda #$03 ; A reg=3
sta $d21f ; init POKEY #1
sta $d210 ; init POKEY #2
ldx #$00 ; X reg=0
stx $d211 ; set freq of channel #1
inx ; X reg=1
stx $d21e ; enable TIMER1 IRQ
ldx $d40b ; wait for scan line #0
bne *-3
stx $d219 ; start POKEY TIMERS
w ldx $d40b ; check current scan line
bmi ext ; when >128 and no IRQ is present second POKEY detected! EXIT!
lda #$01 ; check POKEY TIMER1 IRQ status
bit $d20e
bne w ; when no IRQ is present... loopback!
; if IRQ is present, it means no second pokey detected!
; X reg have zero value
ext lda $10 ; restore IRQ mask
sta $d20e
dec $d40e ; enable NMI
cli ; enable IRQ
txa ; X to A
dta 2
rts ; exitZwracam uwagę, że $d40b może być blisko przekręcenia na 1 na początku wywołania tej procedury,
więc jedynka może też wystąpić na ataraku w ułamku procenta przypadków.