SRDROT.MAC;2/AU/-BF=SRDROT.MAC;1
\
-2,2
	.IDENT	/04.01/
-6
;	HLC001 -- FIX BUG ON SYSTEMS WITH EXTEND TASK AND NO DYNAMIC
;		  CHECKPOINT ALLOCATION.
;
%
-34,,/;HLC001/
	MOV	DIRIC$,R1	; R1 = LAST INCREMENT
	BEQ	10$		; IF EQ, WE ARE AT INITIAL SIZE
	CLR	DIRIC$		; SAY WE ARE BACK TO INITIAL SIZE
	NEG	R1		; INDICATE DECREASE SIZE
	EXRG$S	R1		; GO BACK TO ORIGINAL SIZE
	BCC	10$		; IF CC, ALL OK
	HALT			; ABORT TASK
10$:
/