; piaprom.asm

        cpu "65c02.tbl"
        hof "mot8"

        LDA     #00H
        STA     0401H
        LDA     #0FH
        STA     0400H
        LDA     #04H
        STA     0401H
DATA:   LDA     0400H
        LSR     A
        LSR     A
        LSR     A
        LSR     A
        STA     0400H
        JMP     DATA