;
;				HRAS.MAC
;
;  A SUBROUTINE TO CONVERT HR AND MINUTE TO ASCII CHARACTERS WITH A COLON
;  BETWEEN THEM.
;
        .TITLE  HRAS
        .GLOBL  HRAS
HRAS::	MOV	@2(R5),R1	; GET HOUR
	MOV	6(R5),R3	; STARTING POSITION OF ASCII CHARACTERS
	MOV	#1,R2		; NO ZEROE SUPRESSION
	MOV	#TEM,R0		; TEMPORARILY STORE HERE
	CALL	$CBDMG
	MOVB	TEM+3,(R3)+	; THIS IS TENS'S DIGIT
	MOVB	TEM+4,(R3)+	; MOVE ONE'S DIGIT
	MOVB	#72,(R3)+	; PLACE A COLON THERE
	MOV	#1,R2		; GET READY TO CONVERT MINUTE
	MOV	@4(R5),R1
	MOV	#TEM,R0
	CALL	$CBDMG
	MOVB	TEM+3,(R3)+	; MOVE TEN'S DIGIT OF MINUTE
	MOVB	TEM+4,(R3)+	; MOVE ONE'S DIGIT
	RETURN			; SHOULD BE DONE
TEM:	.BLKB	5		; TEMPORARY STORAGE
	.EVEN
;
;			ASHR.MAC
;
;  CONVERTS TIME EXPRESSED AS ASCII CHARACTERS TO HOUR AND MINUTES
;
ASHR::	MOV	6(R5),R0	; STARTING ADDRESS OF TIME
	CALL	$CDTB		; CONVERT HOUR TO BINARY
	MOV	R1,@2(R5)
;	INC	R0		; ASSUME THERE IS A COLON THERE
	CALL	$CDTB		; CONVERT MIN TO BINARY
	MOV	R1,@4(R5)
	RETURN
	.END