.TITLE	$SECNDS
	.IDENT	/F4P07N/
;
; MODIFICATIONS:
;	NAPC -	FIX BUG WHEN GETTING SMALL TIME DIFFERENCES.
;
F0=%0
	.PSECT	$$OTSI
I=.
.=I+76
	BR	PATCH
RET:	BLE	1$
.=I+106
1$:
.=I+122
PATCH:	CMPD	#-1.0,F0	;ALLOW FOR ROUND OFF ERROR
	CFCC
	BR	RET
.=I
	.END