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.