;Page 127 Program 1, Clear 1-byte at a time
;Modified and Tested By David Munguia

        ORG     $2000
R1      EQU     $1200
        LDX     #$1200
        LDAA    #50     ;Set Counter
        STAA    R1
        CLRA
OVER    STAA    0,X
        INX
        DEC     R1
        BNE     OVER
        END