.TITLE	CDACLQ
;
; MODIFICATION:
;
;	2.04A -- PRINT TIME CORRECTLY (MONSANTO PATCH)
;
	.IDENT	/2.04A/

	.PSECT

.BLK.	= .

.	= .BLK.+1030

	CALL	PAT1			;CALL FIRST PATCH
	NOP				;
	NOP				;

.	= .BLK.+1136

	CALL	PAT2			;CALL SECOND PATCH

	.PSECT	PAT

PAT1:	MOV	R2,-(SP)		;SAVE R2
	MOV	$TKPS,R3		;GET ADDRESS OF TICKS
	TRAP	0			;GET TICS PER SECOND
	MOV	R2,R0			; MOVE TO R0
	MOV	(SP)+,R2		;RESTORE R2
	RETURN

PAT2:	CALL	$DDIV			;GET NUMBER OF HOURS
	MOV	R0,R4			;REMANINDER IS MINUTES
	RETURN

	.END