;Chapter 6 Example 6-1
;Modified and Tested by David Munguia

#include "C:\Reg9s12.H"  
      
	ORG	$2000
COUNT 	EQU   $1200
      	LDAA  #$5
      	STAA  COUNT
      	LDX   #$1201
      	LDAA  #'P'
B1    	STAA  1,X+
      	;INX
      	DEC   COUNT
      	BNE   B1
      	END