ATLOV.MAC;2/-BF/AU:72.=[12,10]ATLOV.VGN;1
-,,/;*RVT01/
-/.IDENT/
	.IDENT	/03.06A/
-/BFX/
;
;	RVT01	1/22/81	SHOW T.STAT & T.ST2 FOR ACT
;
-/ATLNXT:/
-/BPL	20$/
	MOV	(R5)+,R1	; PRINT T.STAT
	MOV	#STABLE,R2	; STATUS TABLE ADDRESS
	MOV	#16.,R3		; COUNT OF BITS TO DO
	CALL	STATUS		; PRINT OUT STATUS FLAG NAMES
	MOV	(R5)+,R1	; GET T.ST2
	TST	R1		; IS T2.AST SET? (SIGN BIT!)
	BMI	22$		; IF MI YES--AST IN PROGRESS
	BIC	#STPA!SPNA!WFRA,R1 ; NO--CLEAR BITS WHICH ARE NONSENSE NOW
22$:	MOV	#16.,R3		; SET BIT COUNT
	CALL	STATUS		; DECODE AND PRINT
-/FILNXT:/
-/5$:/
;
7$:	MOV	T.STAT(R5),(R3)+
	MOV	T.ST2(R5),(R3)+
	JMP	100$

-/#4,/,.
	MOV	#8.,R1		; ACT TAKES 4 WORDS
-/BMI	5$/,.
	BMI	7$		; IF MI YES--DONE WITH THIS TASK (ALMOST)
/