CLQOV.MAC;2/AU/-BF=CLQOV.MAC;1
\
-2,2
	.IDENT	/01.1/
-4,4
; COPYRIGHT (C) 1976, 1977
-26
;
; MODIFIED BY:
;
;	EB056 -- 1)  CORRECT DOUBLE PRECISION ARITHMETIC IN ABTIM
;		 2)  CORRECTLY DISPLAY A RESCHEDULE INTERVAL OF 24H
;		 3)  DO NOT DISPLAY DATE AS 00-MM-YY
;
%
-224,,/; EB056/
;	(SP) - RETURN ADDRESS
;	2(SP) - SCRATCH
-227,227,/; EB056/
;	R0 - REMAINDER OF (R1,R2) / (UNITS PER INTERVAL)
-229,,/; EB056/
;	(SP) - R0
-247,247,/; EB056/
	SBC	R1		; ADJUST HIGH PART OF TIME
-267,267,/; EB056/
	BNE	32$		; NONSENSICAL DAY?
	INC	R1		; IT IS REALLY THE FIRST OF MONTH
32$:	CALL	NUMCVT		; CONVERT NUMBER TO DECIMAL
-322,,/; EB056/
	CMP	#-6,R4		; ABOUT TO FALL OFF END OF UNITS TABLE?
	BEQ	20$		; YES, MUST BE RSI=24H
/