ACNT.MAC;2=[15,10]ACNT.VGN;1/AU
\
-2,2
	.IDENT	/02.0XA/
-94
;	JGD16	21-MAY-79 ADD ACCOUNT NUMBER FOR RSX11M
;			  AND SESSION IDENTIFIER.  THE LATTER
;			  I AM NOT SURE WHAT TO DO WITH, BUT
;			  THE FORMER WILL BE USED FOR SYSTEM
;			  WIDE ACCOUNT PROFILEING.
;
;	JGD18	07-SEP-79 MAKE ACNT A BIT MORE INTELLIGENT
;			  IF TERMINAL BUFFER>=130. USE WIDE
;			  LISTING FORMAT.
;
%
-164,164,/; JGD16/
-166,168,/; JGD16/
-219,219,/; JGD16/
-222,222,/; JGD16/
-246,,/; JGD18/
WIDFLG:	.WORD	1		; IF SET PRINT ON TI: ONE ACNT PER LINE
-363,,/; JGD18/
	CMP	U.CW4(R0),#130.	; IS TI:'S BUFFER SMALLER THAN 132.
	BGE	24$		; IF GE YES, DON'T CLR WIDFLG
	CLR	WIDFLG		; FORCE PRINTING AS IF 80 COLLUMNS WIDE
24$:				; REF LABLE
-481,481,/; JGD16/
-486,486,/; JGD16/
-521,521,/; JGD16/
-524,524,/; JGD16/
-681,681,/; JGD16/
-694,694,/; JGD16/
-1675,1675,/; JGD16/
-1726,1726,/; JGD16/
-1785,1785,/; JGD16/
-1788,1788,/; JGD16/
-1790,1790,/; JGD16/
-1793,1793,/; JGD16/
-1883,1883,/; JGD16/
-1889,1889,/; JGD16/
-/LPFLAG/,,
-/10$/,,/; JGD18/
	TST	WIDFLG		; PRINT A WIDE LISTING TO TI:?
	BNE	10$		; WRITE WIDE LISTING
-1901,1901,/; JGD16/
-1912,1912,/; JGD16/
-/LPFLAG/,,
-/13$/,,/; JGD18/
	TST	WIDFLG		; PRINT A WIDE LISTING TO TI:?
	BNE	13$		; IF NE, YES
/