        TITLE   GENERAL PURPOSE ROUTINES

        CODE

* convert A to 2 ascii chars (A:B)

CASC	TAB
	LSRA
	LSRA
	LSRA
	LSRA
	ORAA	#'0'
	CMPA	#'9'
	BLE	CA10
	ADDA	#7
CA10	ANDB	#$0F
	ORAB	#'0'
	CMPB	#'9'
	BLE	CA20
	ADDB	#7
CA20	RTS

* prepare the transmission buffer

CONVERT LDAA    AN0
        JSR     CASC
        STD     SCIXB
        RTS
