gistfile1.txt

LEA #$7000,A7

PIAINIT:
    MOVE.B #%00000111,$10084
    ;Second PIA
    CLR.B $10086
    MOVE.B #$F,$10082
    MOVE.B #%00000111,$10086
    MOVE.B #00,$10082

    MOVE.L #COUNT_UP,$68
    MOVE.L #ON_SHOW,$74

    AND.W #$F8FF,SR

MAIN:
    BRA MAIN

COUNT_UP:
    CMP.B #0,$10082
    CMP.B #$0F,D0
    BEQ ENDCOUNT
    ADD.B #1,D0
ENDCOUNT
    RTE

ON_SHOW:
    CMP.B #0,$10080
    MOVE.B D0,$10082
    CLR.B D0
    RTE