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

        ORG     	$2000
R1      EQU     	$1000
        LDX     	#$1200
        LDAA    	#25     ;Set Counter
        STAA    	R1
        LDD     	#0
OVER    STD		0,X
        INX
        INX
        DEC     	R1
        BNE     	OVER
        END