SRDOPR.MAC;2/AU/-BF=SRDOPR.MAC;1
\
-2,2
	.IDENT	/04.01/
-16
;
; MODIFICATIONS:
;
;	HLC001 -- FIX BUG ON SYSTEMS WITH EXTEND TASK AND NO DYNAMMIC
;		  CHECKPOINT ALLOCATION.
;
%
-41,41,/;HLC001/
-42,,/;HLC001/
	ADD	#77,R1		; ROUND UP TO NEXT
	BIC	#77,R1		; NEXT MULTIPLE OF 64
-47,,/;HLC001/
	TST	R1		; DO WE ALREADY HAVE ENOUGH
	BMI	40$		; IF MI, YES - JUST GO DO IT
-50,51,/;HLC001/
-53,,/;HLC001/
	MOV	R0,DIRIC$	; SAVE INCREMENT
/