ATPAGE.MAC/-BF/AU:72.=ATPAGE.MAC;-1
\
-2,2
	.IDENT	/V01.0R/
-35
; RJDK OCT 81 make correctly display M+ tasks as out of mem
;	Even if PCB exists
;
; Version 1.0R
%
-147,147,/;RJDK/
OUT:	.ASCII	/<OUT> /		; OUT OF MEMORY STRING
-197,198,/;RJDK/
	BEQ	17$		; BR if not in memory (nil PCB)
	BIT	#PS.OUT,P.STAT(R2) ; Now check Out flag
	BEQ	20$		; Ok - actually in memory
17$:	CLR 	(R5)+		; ELSE INDICATE OUT OF MEMORY
-290,294,/;RJDK/
	MOV	(R4)+,R3	; Get address to store task length
	BEQ	130$		; BR if not to be displayed
	MVN	#OUT,R3,OUTLEN	; Store out of memory string
/