include(`common.m4')

        LDA # 1
        STA a VIA1_DDRA

        LDA # 1
        STA a VIA2_DDRA

loop:   LDA # 1
        STA a VIA1_PORTA

        LDA # 0
        STA a VIA2_PORTA

        LDA # 0
        STA a VIA1_PORTA

        LDA # 1
        STA a VIA2_PORTA

        BRA r :loop