SAVSUB.MAC;2/AU=SAVSUB.OLD;1/-BF
\
-2,2
	.IDENT	/4.11N/
-99
;	NAPC	CORRECT MEMORY SIZE CALCULATION
;		REMOVE OFF-LINE MESSAGES
;		MODIFY 11/70 MEMORY CSR TABLE
;
%
-130,131,/;NAPC/
-403,415,/;NAPC/
TSTD1:	CLR	R2			; CLEAR FOR BISB
-427,428,/;NAPC/
-430,431,/;NAPC/
-439,448,/;NAPC/
-461,469,/;NAPC/
; MARK DEVICE AS OFFLINE
;
SETOFF:	BISB	#US.OFL,U.STS(R4)	;SET DEVICE OFFLINE
-505,510,/;NAPC/
-592,592,/;NAPC/
30$:	CMP	#141000,R2	; END OF 256 WORD SEGMENT
-596,596,/;NAPC/
40$:	ADD	#10,R0		; POINT TO NEXT SEGMENT
/