;Example 5-30 page 181
;HCS12 Microcontroller and Embedded Systems ( Mazidi/Causey )
;Dragon12-Plus Trainer
;Tester: David Munguia

#include "C:\Reg9s12.H"

BCD_VAL EQU     $79
H_ASC   EQU     $1200
L_ASC   EQU     $1201
        ORG     $2000
        LDAA	#BCD_VAL
        ANDA 	#$0F
        ORAA 	#$30
        STAA 	L_ASC
        LDAA 	#BCD_VAL
        ANDA 	#$F0
        LSRA
        LSRA
        LSRA
        LSRA
        ORAA  	#$30
        STAA 	H_ASC
	END