OU:ACNT.MAC;2=IN:[15,10]ACNT.VGN;1/AU:72.
\
-2,2
	.IDENT	/4.0X/
-/SA224/
;
;	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.
;
;	JGD25	10-SEP-80 PRINT HEADER AT TOP IF LIST IS AT
;			  TERMINAL INSTEAD OF LP:
;
%
-/MS4:/
-/R$$MPL/,.,/; JGD16/
-/.IFF/,/.ENDC/,/; JGD16/
-/SYDEV:/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/LPFLAG/+1,,/; JGD18/
WIDFLG:	.WORD	1		; IF SET PRINT ON TI: ONE ACNT PER LINE
-/23$:/
-/MOV	T.UCB(R0),R0/,,/; 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
-/ADD:/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/10$:/
-/COPNAM/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/MODIFY:/
-/35$:/
-/COPNAM/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/LIST:/
-/32$:/
-/BEQ	33$/,.,/; JGD25/
	BNE	322$		; NO, BUT PRINT HEADER
-/GETNAM:/
-/50$:/
-/R$$MPL/,.,/; JGD16/
-/GETACN:/
-/30$:/
-/.ENDC/,.,/; JGD16/
-/COPNAM:/
-/RETURN/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/FORMAC:/
-/8$:/
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/TST	LPFLAG/,,
-/BNE	10$/,,/; JGD18/
	TST	WIDFLG		; PRINT A WIDE LISTING TO TI:?
	BNE	10$		; WRITE WIDE LISTING
-/R$$MPL/,.,/; JGD16/
-/.ENDC/,.,/; JGD16/
-/TST	LPFLAG/,,
-/BPL	13$/,,/; JGD18/
	TST	WIDFLG		; PRINT A WIDE LISTING TO TI:?
	BNE	13$		; IF NE, YES
/