Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64b-sb - 10,7/who/whoprt.mac
There are 4 other files named whoprt.mac in the archive. Click here to see a list.
	TITLE	WHOPRT -- PRINT ROUTINES FOR WHO

	SEARCH	WHOMAC

	$SETUP	(WHOPRT)

Comment |

This module contains some of the small mode specific routines for
summary and performance, and the general formatted output routines
that use the database build by the users /FORMAT switch, or defaulted
by one of the switches /VFAST, /FAST, /NORMAL, /SLOW.

|
;               TABLE OF CONTENTS FOR WHOPRT
;
;
;                        SECTION                                   PAGE
;    1. Printing routines
;         1.1   PRTMOD - Print a formated line....................   3
;    2. Print routines
;         2.1   INFACT - Print the account string.................   4
;         2.2   INFIPC - Print IPCF information...................   4
;         2.3   INFBAT - Print batch/galaxy information...........   4
;         2.4   INFDEF - Print defaults information...............   4
;         2.5   INFTIM - Print Login/Reset time information.......   4
;         2.6   INFCOR - Print core limits........................   4
;         2.7   INFSPL - Print spool information..................   5
;         2.8   INFCAP - Print the capabilities...................   6
;         2.9   INFPRV - Print the privileges.....................   6
;         2.10  PRTPRV - Print the privileges.....................   7
;         2.11  INFWSC - Print the wait state code................   8
;         2.12  INFTTY - Print TTY parameters.....................  10
;    3. TABLES....................................................  11
;    4. Printing routines
;         4.1   Character handling and justification..............  14
;    5. Performance routines
;         5.1   JOBPRF - Print JOB mode performance statistics....  15
;         5.2   LINPRF - Print LINE mode performance statistics...  16
;         5.3   NODPRF - Print NODE mode performance statistics...  17
;         5.4   USRPRF - Print USER mode performance statistics...  18
;         5.5   TNN - Type a fractional number....................  19
;    6. END.......................................................  20
	SUBTTL	Printing routines -- PRTMOD - Print a formated line

PRTMOD::PUSHJ	P,DOACTION##		;PROCESS ACTIONS
	TLNE	F,(FL.LOGIN!FL.WHOSRV)	;WE LOGGED IN OR A SERVER?
	JRST	PRTM.1			;YES
	MOVNI	T1,1			;-1 FOR OUR TERMINAL
	PUSHJ	P,UTRMNO##		;GET OUR LINE NUMBER
	  SETZM	S.PRINT##		;NO TYPEOUT IF DETACHED
PRTM.1:	SKIPN	S.PRINT##		;SEE IF /PRINT:NO
	  POPJ	P,			;YES--RETURN
	AOSN	TTLFLG			;NEED A TITLE?
	PUSHJ	P,PRTTTL		;YES
	MOVE	T1,.FZPFM##(I)		;POINT TO STANDARD FORMAT ARGS
	PUSHJ	P,PRTFMT		;PRINT THE FORMATED INFO
	SKIPLE	.FZPRF##(I)		;SEE IF WANTED PERFORMANCE INFO
	 PUSHJ	P,@PRFXXX##(M)		;DISPATCH FOR /PERFORMANCE
	PUSHJ	P,.SAVE2##		;SAVE P2
	SKIPE	P1,.FZINF##(I)		;GET /INFORMATION
	 SKIPL	P2,INFXXX(M)		;SEE IF /INFORMATION ROUTINES
	  POPJ	P,			;NO
PRTM.2:	TDNE	P1,(P2)			;THIS KEYWORD GIVEN?
	 PUSHJ	P,@1(P2)		;YES--DISPATCH
	AOBJN	P2,.+1			;ADVANCE
	AOBJN	P2,PRTM.2		;LOOP FOR ALL
	PJRST	.TCRLF##		;CRLF AND RETURN

DEFINE INFJOB,<
	X	NAM,NAME
	X	ACT,ACCOUNT
	X	TMP,TMPCOR
	X	PRV,PRIVILEGE
	X	CAP,CAPABILITY
	X	SPL,SPOOL
	X	WCH,WATCH
	X	IPC,IPCF
	X	BAT,BATCH
	X	DEF,DEFAULT
	X	ORG,ORIGIN
	X	PTH,PATH	
	X	JSL,JSL
	X	LNM,LOGICAL
	X	TIM,TIME
	X	COR,CORE
	X	WSC,<WSCODE,STATE>
	X	CHN,CHANNEL
	X	DDB,<DDB,SIZE,MTA>
>

DEFINE INFLIN,<
	X	TTY,TTY
>

DEFINE INFNOD,<
>

DEFINE	INFSTR,<
>

DEFINE	INFUNI,<
>

;Generate dispatch macro
DEFINE	X(DSP,KEY),<
	GLOB	INF'DSP
	KEYS==0
	IRP KEY,<
		KEYS==KEYS!IFM'KEY##
	>;END IRP KEY
	EXP	KEYS,INF'DSP
>;END DEFINE X

;Generate tables for each mode
DEFINE XX(MOD,ABR,MAP,TXT,ERR),<
	T'ABR'I: INF'ABR
	L'ABR'I==.-T'ABR'I
>;END DEFINE XX

	MODES

;Generate pointers to each table
DEFINE XX(MOD,ABR,MAP,TXT,ERR),<XWD -L'ABR'I,T'ABR'I>

INFXXX:	MODES
	SUBTTL	Printing routines -- PRTTTL - Print a title


PRTTTL:	SKPYES	S.TITLES##		;WANT TITLES?
	POPJ	P,			;NO
	MOVE	T1,TTLTAB##(M)		;GET TABLE ADDRESS FOR THIS MODE
	SKIPG	T2,.FZFMT##(I)		;GET FORMAT TYPE (FAST, SLOW, ETC.)
	MOVEI	T2,%NORMAL##		;DEFAULT TO NORMAL
	TLNE	T2,777777		;WORD COUNT PRESENT?
	POPJ	P,			;YES--THEN /FORMAT SPECIFIED
	ADDI	T1,-1(T2)		;INDEX INTO MODE SPECIFIC TABLE
	MOVE	T1,@0(T1)		;GET ADDRESS OF TITLE TEXT
	PUSHJ	P,.TSTRG##		;TYPE IT
	PJRST	.TCRLF##		;END LINE AND RETURN
	SUBTTL	Print routines -- INFACT - Print the account string

INFACT:	MOVE	T1,[LACTNORMAL##,,FACTNORMAL##]
	PJRST	PRTFMT			;NO

	SUBTTL	Print routines -- INFIPC - Print IPCF information

INFIPC:	MOVE	T1,[LIPCFNORMAL##,,FIPCFNORMAL##];GET ADDRESS OF FORMAT
	PJRST	PRTFMT


	SUBTTL	Print routines -- INFBAT - Print batch/galaxy information

INFBAT:	MOVE	T1,[LBATNORMAL##,,FBATNORMAL##];GET ADDRESS OF FORMAT
	PJRST	PRTFMT


	SUBTTL	Print routines -- INFDEF - Print defaults information

INFDEF:	MOVE	T1,[LDEFNORMAL##,,FDEFNORMAL##]
	PJRST	PRTFMT


	SUBTTL	Print routines -- INFTIM - Print Login/Reset time information

INFTIM:	MOVE	T1,[LTIMNORMAL##,,FTIMNORMAL##]
	PJRST	PRTFMT


	SUBTTL	Print routines -- INFCOR - Print core limits

INFCOR:	MOVE	T1,[LCORNORMAL##,,FCORNORMAL##]
	PJRST	PRTFMT
	SUBTTL	Print routines -- INFSPL - Print spool information

INFSPL:	PUSHJ	P,.SAVE2##		;SAVE P2
	PUSHJ	P,JB$SPL##		;GET SPOOL WORD
	MOVE	P1,T1			;SAVE
	MOVEI	T1,5			;SPACE OVER
	PUSHJ	P,.TSPAN##		;..
	TXNE	P1,JS.DFR		;DEFERED?
	 SKIPA	T1,[[ASCIZ/Defered spooling: /]];YES
	  MOVEI	T1,[ASCIZ/Spooling: /]	;NO
	PUSHJ	P,.TSTRG##		;TYPE
	TXNN	P1,JS.PAL		;ANY DEVICES?
	 JRST	PRTS.4			;NO
	MOVSI	P2,-SPLLEN		;LENGTH OF TABLE
	TRZ	F,FR.COMMA		;CLEAR FLAG
PRTS.1:	TDNN	P1,SPLBIT(P2)		;SPOOLED?
	 JRST	PRTS.2			;NO
	MOVEI	T1,[ASCIZ/, /]		;DELIMITER
	TROE	F,FR.COMMA		;FLAG/TEST COMMA NEEDED
	 PUSHJ	P,.TSTRG##		;YES
	MOVE	T1,SPLDEV(P2)		;YES--GET DEVICE
	PUSHJ	P,.TDEVN##		;TYPE
	MOVE	T1,SPLDEV(P2)		;GET DEVICE
	CAME	T1,[SIXBIT/CDR/]	;CDR?
	 JRST	PRTS.2			;NO
	HLLZ	T1,P1			;YES--GET NAME
	PUSHJ	P,.TSIXN##		;TYPE CDR NAME
PRTS.2:	AOBJN	P2,PRTS.1		;LOOP FOR ALL
	JRST	PRTS.3			;AND CHECK UNSPOOLING

PRTS.4:	$TYPE	<none>			;NOTHING SPOOLED
PRTS.3:	PUSHJ	P,JB$PRV##		;GET PRIVS
	TXNN	T1,JP.NSP		;UNSPOOLING?
	 PJRST	.TCRLF##		;NO
	$TYPEL	< (unspooling allowed)>
	POPJ	P,			;AND RETURN

DEFINE SPOOLS,<
	XLIST
	X	CDR,JS.PCR
	X	CDP,JS.PCP
	X	PTP,JS.PPT
	X	PLT,JS.PPL
	X	LPT,JS.PLP
	LIST
>;END DEFINE SPOOLS

ALLSPL==0

DEFINE X(DEV,BIT),<
	ALLSPL==ALLSPL!BIT
	EXP	BIT
>;END DEFINE X

SPLBIT:	SPOOLS
SPLLEN==.-SPLBIT
IFN JS.PAL-ALLSPL,<PRINTX ? SPOOL table missing some device definitions>

DEFINE X(DEV,BIT),<EXP SIXBIT/DEV/>

SPLDEV:	SPOOLS
	SUBTTL	Print routines -- INFGOP - Print GALAXY operator information

INFGOP:	PUSHJ	P,JB$GOP##		;GET OPERATOR CODE
	PUSH	P,T1			;SAVE CODE
	MOVEI	T1,5			;SPACE OVER
	PUSHJ	P,.TSPAN##		;..
	$TYPE	<GALAXY operator:>
	POP	P,T1			;RESTORE CODE
	PUSHJ	P,TGOP##		;TYPE GALAXY OPERATOR TEXT
	PJRST	.TCRLF##		;TYPE A CRLF AND RETURN
	SUBTTL	Print routines -- INFWCH - Print watch information

INFWCH:	PUSHJ	P,.SAVE2##		;SAVE P2
	PUSHJ	P,JB$WCH##		;GET WATCH BITS
	MOVE	P1,T1			;SAVE
	MOVEI	T1,5			;SPACE OVER
	PUSHJ	P,.TSPAN##		;..
	$TYPE	<Watch:>
	TXNN	P1,JW.WAL		;ANY WATCH BITS
	 JRST	PRTW.4			;NO
	MOVSI	P2,-WCHLEN		;LENGTH OF TABLE
PRTW.1:	TDNN	P1,WCHBIT(P2)		;WATCH?
	 JRST	PRTW.2			;NO
	PUSHJ	P,.TSPAC##		;SPACE
	MOVE	T1,WCHTXT(P2)		;GET TEXT
	PUSHJ	P,.TSTRG##		;TYPE WATCH NAME
PRTW.2:	AOBJN	P2,PRTW.1		;LOOP FOR ALL
	JRST	PRTW.3			;AND PRINT MESSAGE SETTING

PRTW.4:	$TYPE	< none>			;NOTHING WatchED
PRTW.3:	$TYPE	<  Message:>
	TXNN	P1,JW.WMS		;ANY MESSAGE BITS?
	 JRST	PRTW.7			;NO
	MOVSI	P2,-MSGLEN		;LENGTH OF TABLE
PRTW.5:	TDNN	P1,MSGBIT(P2)		;MESSAGE?
	 JRST	PRTW.6			;NO
	PUSHJ	P,.TSPAC##		;SPACE
	MOVE	T1,MSGTXT(P2)		;GET TEXT
	PUSHJ	P,.TSTRG##		;TYPE MESSAGE NAME
PRTW.6:	AOBJN	P2,PRTW.5		;LOOP FOR ALL
	PJRST	.TCRLF##		;CRLF AND RETURN

PRTW.7:	$TYPEL	< default>
	POPJ	P,

DEFINE WATCHS,<
	XLIST
	X	CONTEXTS,JW.WCX
	X	DAY,JW.WDY
	X	RUN,JW.WRN
	X	WAIT,JW.WWT
	X	READS,JW.WDR
	X	WRITES,JW.WDW
	X	VERSION,JW.WVR
	X	MTA,JW.WMT
	X	FILE,JW.WFI
	LIST
>;END DEFINE WATCHS

ALLWCH==0

DEFINE X(TXT,BIT),<
	ALLWCH==ALLWCH!BIT
	EXP	BIT
>;END DEFINE X

WCHBIT:	WATCHS
WCHLEN==.-WCHBIT
IFN JW.WAL-ALLWCH,<PRINTX ? WATCH table missing some bit definitions>

DEFINE X(TXT,BIT),<EXP [ASCIZ/TXT/]>

WCHTXT:	WATCHS

DEFINE MESSAGES,<
	X	PREFIX,JW.WPR
	X	FIRST,JW.WFL
	X	CONTINUATION,JW.WCN
>

DEFINE X(TXT,BIT),<EXP BIT>

MSGBIT:	MESSAGES
MSGLEN==.-MSGBIT

DEFINE X(TXT,BIT),<EXP [ASCIZ/TXT/]>

MSGTXT:	MESSAGES
	SUBTTL	Print routines -- INFCAP - Print the capabilities

INFCAP:	PUSHJ	P,JB$CAP##		;GET CAPABILITIES
	MOVEI	T2,[ASCIZ/     Capabilities:/]	;LOAD HEADER TEXT
	PJRST	PRTPRV			;AND PRINT THEM



	SUBTTL	Print routines -- INFPRV - Print the privileges

INFPRV:	PUSHJ	P,JB$PRV##		;GET PRIV WORD
	MOVEI	T2,[ASCIZ/     Privileges:/]	;LOAD HEADER TEXT
	PJRST	PRTPRV			;PRINT THEM
	SUBTTL	Print routines -- PRTPRV - Print the privileges

;Call:
;	T1/ privs
;	T2/ addr of header text

PRTPRV::PUSHJ	P,.SAVE1##		;SAVE P1
	MOVE	P1,T1			;SAVE PRIV
	MOVEI	T1,(T2)			;COPY TEXT
	PUSHJ	P,.TSTRG##		;TYPE IT
	PUSHJ	P,.TSPAC##
	MOVE	T1,P1
	PUSHJ	P,.TXWDW##
	PUSHJ	P,.TCRLF##		;CRLF
	MOVEI	T1,[ASCIZ/      DEC: /]	;HEADER
	MOVE	T2,P1			;BITS
	MOVE	T3,[-DECLEN,,DECTAB]	;POINTER
	PUSHJ	P,PRTBIT		;PRINT THE BITS
IFN FTIPC!FTTUFTS,<
	MOVEI	T1,[ASCIZ/      Local: /];HEADER
	MOVE	T2,P1			;BITS
	MOVE	T3,[-LOCLEN,,LOCTAB]	;POINTER
	PUSHJ	P,PRTBIT		;PRINT THE BITS
>;END IFN FTIPC!FTTUFTS
	POPJ	P,			;AND RETURN

;Subroutine PRTBIT - Print strings for bit names
;Call:
;	T1/ addr of header text
;	T2/ priv bits
;	T3/ AOBJN pointer to table of descriptions

PRTBIT:	PUSHJ	P,.TSTRG##		;TYPE HEADER
	PUSHJ	P,.SAVE2##
	DMOVE	P1,T2			;SAVE WORD, TABLE POINTER
PRTB.L:	TDNN	P1,(P2)			;THIS PRIV ON?
	 JRST	PRTB.E			;NO
	HRRZ	T1,1(P2)		;YES--GET TEXT
	PUSHJ	P,.TSTRG##		;TYPE
	HLRZ	T1,1(P2)		;SEE IF DISPATCH NEEDED
	CAIE	T1,0			;IS IT?
	 PUSHJ	P,(T1)			;YES--DISPATCH
	PUSHJ	P,.TSPAC##		;SPACE OVER
PRTB.E:	ADD	P2,[1,,1]		;ADVANCE TO NEXT SET
	AOBJN	P2,PRTB.L		;LOOP FOR ALL
	PJRST	.TCRLF##		;CRLF AND RETURN


PV$HPQ:	PUSHJ	P,.TCOLN##		;TYPE :
	LOAD	T1,P1,JP.HPQ		;GET HPQ VALUE
	PJRST	.TDECW##		;TYPE AND RETURN

PV$DPR:	PUSHJ	P,.TCOLN##		;TYPE :
	LOAD	T1,P1,JP.DPR		;GET DSKPRI VALUE
	PJRST	.TDECW##		;TYPE AND RETURN
	SUBTTL	Print routines -- INFWSC - Print the wait state code

INFWSC:	MOVEI	T1,5			;SAVE OVER
	PUSHJ	P,.TSPAN##		;...
	MOVEI	T1,[ASCIZ/State: /]
	PUSHJ	P,.TSTRG##
	PUSHJ	P,JB$WSC##		;GET THE CODE
	PUSHJ	P,.SAVE1##		;SAVE
	MOVE	P1,T1			;SAVE CODE
	MOVEI	T1,[ASCIZ/Actively /]
	LDB	T2,[POINT 6,P1,17]	;GET ACTIVELY RUNNING
	CAIN	T2,'*'			;IS IT?
	 PUSHJ	P,.TSTRG##		;YES!
	LDB	T1,[POINT 12,P1,11]	;GET RUN CODE
	PUSHJ	P,STAIDX##		;GET INDEX INTO STATES TABLE
	 SKIPA	T1,[ [ASCIZ/Unknown!!/] ];NOT FOUND
	MOVE	T1,STATXT##(T1)		;GET TEXT
	PUSHJ	P,.TSTRG##		;TYPE
	LDB	T1,[POINT 12,P1,29]	;GET SWAPPED CODE
	JUMPE	T1,INFW.1		;RETURN IF NONE
	PUSHJ	P,STAIDX##		;GET INDEX
	 JRST	INFW.1			;NOT KNOWN!
	PUSH	P,T1			;SAVE T1
	MOVEI	T1,[ASCIZ/, /]		;ADDITIONAL TEXT
	PUSHJ	P,.TSTRG##		;TYPE
	MOVEI	T1,[ASCIZ/Being /]
	LDB	T2,[POINT 6,P1,35]	;GET Being SWAPPING
	CAIN	T2,'*'			;IS IT?
	 PUSHJ	P,.TSTRG##		;YES!
	POP	P,T1			;RESTORE T1
	MOVE	T1,STATXT##(T1)		;GET TEXT
	PUSHJ	P,.TSTRG##		;TYPE
INFW.1:	PJRST	.TCRLF##		;CRLF AND RETURN
;X(BIT,TXT,TYP) is
;	
;	BIT	value of bit
;	TXT	ASCII text to type if BIT is on
;	TYP	+ if dispatch to PV$'TXT to type extra stuff

DEFINE DECS,<
	XLIST
	X	JP.IPC,	IPCF
	X	JP.DPR,	DPR	,+
	X	JP.MET,	METER
	X	JP.POK,	POKE
	X	JP.CCC,	CPU
	X	JP.HPQ,	HPQ	,+
	X	JP.NSP,	USPL
	X	JP.ENQ,	ENQ
	X	JP.RTT,	RTTRP
	X	JP.LCK,	LOCK
	X	JP.TRP,	TRPSET
	X	JP.SPA,	SPY
	X	JP.SPM,	MSPY
	LIST
>

DEFINE X(BIT,TXT,TYP),<
	EXP	BIT
	IFNB <TYP>,<XWD PV$'TXT,[ASCIZ/TXT/]>
	IFB <TYP>,<EXP [ASCIZ/TXT/]>
>;END DEFINE X

DECTAB:	DECS
DECLEN==.-DECTAB


IFN FTIPC,<

DEFINE LOCS,<
	XLIST
	X	JP.NEX,	NETEXAM
	X	JP.CPN,	CHGPPN
    IFN FTMDC,<
	X	JP.MPV, SETP
	X	JP.SPG, PRGRUN
    >
	LIST
>

>;END IFN FTIPC


IFN FTTUFTS,<

DEFINE LOCS,<
	XLIST
	X	JP.NAM,	NAME
	X	JP.CPP,	PPASS
	X	JP.CSP,	SPASS
	X	JP.MAI,	MAIL
	X	JP.SFD,	SFD
	X	JP.COM,	COMBO
	X	JP.MAG,	MAGTPE
	LIST
>

>;END IFN FTTUFTS

IFN FTIPC!FTTUFTS,<

LOCTAB:	LOCS
LOCLEN==.-LOCTAB

>;END IFN FTIPC!FTTUFTS
	SUBTTL	Print routines -- INFNAM - Print name requirements

INFNAM:	CAIE	M,M%JOB##		;JOB MODE?
	POPJ	P,			;NO
	$TYPE	<     User name: >	;DISPLAY TEXT
	PUSHJ	P,JB$NAM##		;GET USER NAME
	PUSH	P,1(T1)			;SAVE WORD 2
	MOVE	T1,0(T1)		;GET FIRST WORD
	PUSHJ	P,.TSIXS##		;TYPE WITH SPACES
	POP	P,T1			;GET WORD 2
	PUSHJ	P,.TSIXS##		;DITTO
	PJRST	.TCRLF##		;FINISH WITH A CRLF
	SUBTTL	Print routines -- INFTTY - Print TTY parameters

INFTTY:	PUSHJ	P,.SAVE4##			;SAVE SOME AC'S
	MOVEI	T1,CHRDIR			;CHAR STICKER
	PUSHJ	P,.TYOCH##			;TELL SCAN
	PUSH	P,T1				;SAVE OLD
	MOVSI	P1,-LN$TRM			;GET LENGTH OF TABLE
	MOVEI	P2,1				;CLEAR COLUMN COUNTER
	MOVEI	T1,^D5
	PUSHJ	P,.TSPAN##
LINP.1:	MOVEI	L,0				;CLEAR COUTNER
	PUSHJ	P,@TRMLOD(P1)			;LOAD THE FIELD
	PUSHJ	P,@TRMPRT(P1)			;PRINT THE FIELD
	MOVEI	T1,^D16				;TAB STOP
	SUB	T1,L				;MINUS WHAT WE DID
	PUSHJ	P,.TSPAN##			;SPACE OVER
	CAIN	P2,^D4				;TIME FOR CRLF?
	 PUSHJ	P,[MOVEI P2,0			;YES--CLEAR COUNTER
		   PUSHJ P,.TCRLF##		;CRLF
		   MOVEI T1,^D5	
		   PJRST .TSPAN##]
	ADDI	P2,1				;ADVANCE COUNTER
	AOBJN	P1,LINP.1			;LOOP FOR ALL FIELDS
	CAIE	P2,0				;JUST DO CRLF?
	 PUSHJ	P,.TCRLF##			;NO--TYPE ONE NOW
	PUSHJ	P,.TCRLF##			;START A NEW LINE
	POP	P,.TOUTZ##			;RESTORE TYPER
	POPJ	P,				;AND RETURN
	SUBTTL	TABLES

DEFINE	TRMS,<
	X	274,<2741>	,TYES
	X	ALT,<Altmode>	,TNO
	X	APL,<APL>	,TYES
	X	ACR,<AutoCRLF>	,TACRLF
	X	BLK,<Blanks>	,TNO
	X	HPS,<Column:>	,TDECW
	X	NFC,<CRLF>	,TNO
	X	DBK,<Debreak>	,TYES
	X	DIS,<Display>	,TYES
	X	LCP,<Echo>	,TECHO
	X	FLC,<Fill:>	,TDECW
	X	FRM,<Form>	,TYES
	X	SND,<Gag>	,TNO
	X	HLF,<HDX>	,TYES
	X	LCT,<LC>	,TNO
	X	PCT,<Lines:>	,TDECW
	X	PAG,<Page>	,TPAGE
	X	RSP,<RCVspeed:>	,TSPEED
	X	RMT,<Remote>	,TYES
	X	RTC,<RTcomp>	,TYES	;;**;
	X	SLV,<Slave>	,TYES
	X	TAB,<Tabs>	,TYES
	X	TAP,<Tape>	,TYES
	X	TDY,<Tidy>	,TYES
	X	TRM,<Type:>	,TSIXN
	X	WID,<Width:>	,TDECW
	X	TSP,<XMTspeed:>	,TSPEED
>

DEFINE X(TRM,TXT,PRT),<EXP LT$'TRM##>

TRMLOD:	TRMS
LN$TRM==.-TRMLOD

DEFINE X(TRM,TXT,PRT),<EXP PRT>

TRMPRT:	TRMS

DEFINE X(TRM,TXT,PRT),<EXP [ASCIZ/TXT/]>

TRMTXT:TRMS
TYES:	JUMPE	T1,NO.1
	JRST	YES.1
TNO:	JUMPN	T1,NO.1
YES.1:	HRRZ	T1,TRMTXT(P1)
	PJRST	.TSTRG##
NO.1:	$TYPE	<No>
	HRRZ	T1,TRMTXT(P1)
	PJRST	.TSTRG##

TDECW:	PUSH	P,T1
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	POP	P,T1
	PJRST	.TDECW##

TSIXN:	PUSH	P,T1
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	POP	P,T1
	PJRST	.TSIXN##

TECHO:	JUMPN	T1,TNO
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	PUSHJ	P,LT$DEM##
	JUMPE	T1,.POPJ##
	$TYPE	<:DEFER>
	POPJ	P,

TSPEED:	PUSH	P,T1
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	POP	P,T1
	HRRZ	T1,SPETAB##(T1)
	PJRST	.TDECW##

TPAGE:	JUMPE	T1,TYES
	PUSHJ	P,LT$PSZ##
	JUMPE	T1,TNO
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	PUSHJ	P,.TCOLN##
	PUSHJ	P,LT$PSZ##
	PJRST	.TDECW##

TACRLF:	JUMPE	T1,TYES
	PUSH	P,T1
	HRRZ	T1,TRMTXT(P1)
	PUSHJ	P,.TSTRG##
	PUSHJ	P,.TCOLN##
	POP	P,T1
	PJRST	.TDECW##
PRTFMT::PUSHJ	P,.SAVE4##		;SAVE P1-P4
	MOVEI	P2,(T1)			;SAVE ADDRESS
	HLRZ	P3,T1			;SAVE LENGTH

DOARG:	MOVEI	L,0			;AND CLEAR COUNTER THIS FIELD
	TRZ	F,FR.ABORT		;CLEAR ABORTED FLAG
	MOVE	T1,[POINT 7,FMTBUF]	;POINT TO FORMAT BLOCK
	MOVEM	T1,FMTPTR		;STORE
	MOVEI	T1,BUFCHR		;GET CHAR STICKER
	MOVE	T2,.FMFMT(P2)		;GET FORMAT BITS
	TXNE	T2,FM.STR		;A STRING?
	 MOVEI	T1,BUFCNT		;YES--COUNT ALL CHARS
	PUSHJ	P,.TYOCH##		;TELL SCAN
	PUSH	P,T1			;SAVE THE OLD
	XCT	.FMLOD(P2)		;GET VALUE TO TYPEOUT
	LOAD	T2,.FMFMT(P2),FM.PRT	;GET ROUTINE TO PRINT
	PUSHJ	P,(T2)			;CALL IT
	MOVE	P1,S.DFORMAT##		;GET FORMAT TYPE
	MOVE	T1,.FMFMT(P2)		;GET FORMAT BITS
	TXNN	T1,FM.USR		;USER SPECIFY?
	 CAIN	P1,FORDEFAULT##		;OR DEFAULT USED?
	  LOAD	P1,.FMFMT(P2),FM.FMT	;YES--LOAD DEFAULT
	LOAD	T1,.FMFMT(P2),FM.WID	;GET WIDTH
	SUBI	T1,(L)			;MINUS WHAT WE DID
	JUMPLE	T1,DOAR.1		;NO FILL IF NO ROOM
	CAIN	P1,FORFLOAT##		;IF FLOATING
	 JRST	DOAR.1			; NO FILL
	CAIN	P1,FORBLANK##		;IF BLANK
	 JUMPE	L,DOAR.1		; AND NO CHARS YET->NO FILL
	MOVEI	T2,CHRDIR		;COUNT AND OUTPUT
	MOVEM	T2,.TOUTZ##		;TELL SCAN
	LOAD	T2,.FMFMT(P2),FM.JUS	;GET JUSTIFY
	PUSHJ	P,@[.POPJ##		;LEFT
		    JCENTER		;CENTER
		    .TSPAN##](T2)	;RIGHT
DOAR.1:	MOVEI	T1,0			;GET A NULL
	PUSHJ	P,FMTCHR		;END THE STRING
	POP	P,.TOUTZ##		;RESTORE TYPER
	MOVEI	T1,FMTBUF		;POINT TO FORMAT BUFFER
	PUSHJ	P,.TSTRG##		;TYPE STRING
	CAIE	P1,FORFLOAT##		;IF FLOATING
	 CAIN	P1,FORBLANK##		;OR IF BLANK
	  JUMPE	L,DOAR.5		; AND NO CHARS YET->NO FILL
	CAIN	P3,1			;SEE IF LAST ARG
	 JRST	DOAR.5			;YES--NO FILL
	LOAD	T1,.FMFMT(P2),FM.WID	;GET WIDTH AGAIN
	SUBI	T1,(L)			;MINUS WHAT WE DID
	CAIN	P1,FORFLOAT##		;IF FLOATING
	 LOAD	T1,.FMFMT(P2),FM.SPC	; GET SPACES TO SEPARATE
	PUSHJ	P,.TSPAN##		;SPACE OVER
DOAR.5:	ADDI	P2,.FMLEN		;ADVANCE TO NEXT SPEC
	TRNN	F,FR.ABORT		;UNLESS ABORTED
	 SOJG	P3,DOARG		;ADVANCE TO TO ARG
	PJRST	.TCRLF##		;CRLF AND RETURN
	SUBTTL	Printing routines -- Character handling and justification

JCENTER:LSH	T1,-1			;DIVIDE BY 2
	PJRST	.TSPAN##		;ABD SPACE OVER THAT MANY

BUFCNT:	AOJA	L,FMTCHR		;COUNT AND STORE CHAR
BUFCHR:	CAIN	T1," "			;A SPACE?
	  JUMPE	L,.POPJ##		;YES--RETURN IF NOT SIGNIFICANT
	ADDI	L,1			;COUNT CHARS
					;AND FALL INTO FMTCHR

FMTCHR:	IDPB	T1,FMTPTR		;STORE THE CHAR
	POPJ	P,			;AND RETURN

CHRDIR::AOJA	L,CHRLST##		;COUNT AND OUTPUT CHAR
	SUBTTL	Performance routines -- JOBPRF - Print JOB mode statistics

JOBPRF::SKPYES	.FZPRF##(I)		;WANT PERFORMANCE STUFF?
	  POPJ	P,			;NO--RETURN
	PUSHJ	P,.SAVE3##		;SAVE P1-P3
	PUSHJ	P,JB$TIM##		;GET RUNTIME
	MOVE	P1,T1			;INTO P1
	PUSHJ	P,JB$IJL##		;GET LOGGED IN TIME
	MOVE	P2,T1			;INTO P2
	MUL	P2,[^D24*^D60*^D60*^D1000];MAKE MILLSECONDS
	ASHC	P2,^D17			;POSITION
	$TYPE	<     DSK/E:>
	PUSHJ	P,JB$DBR##		;GET DISK READS
	PUSH	P,T1			;SAVE
	PUSHJ	P,JB$DBW##		;GET DISK WRITES
	POP	P,T2			;RESTORE READS
	ADD	T1,T2			;GET TOTAL
	IMULI	T1,^D1000		;CONVERT TO DISK-BLOCKS/MILLISECOND
	PUSH	P,T1			;SAVE A MOMENT
	MOVE	T2,P2			;GET ELAPSED TIME
	PUSHJ	P,TNN			;TYPE
	$TYPE	<  DSK/C:>
	POP	P,T1			;GET TOTAL READS+WRITES
	MOVE	T2,P1			;GET CPU TIME
	PUSHJ	P,TNN			;TYPE
	$TYPE	<  UUOS/E:>
	PUSHJ	P,JB$UUC##		;GET UUOS
	IMULI	T1,^D1000		;CONVERT TO UUOS/MILLISECOND
	MOVE	T2,P2			;GET ELAPSED TIME
	PUSHJ	P,TNN			;TYPE
	$TYPE	<  UUOS/C:>
	PUSHJ	P,JB$UUC##		;GET UUOS
	IMULI	T1,^D1000		;CONVERT TO UUOS/MILLISECOND
	MOVE	T2,P1			;GET CPU TIME
	PUSHJ	P,TNN			;TYPE
	$TYPE	<  CPU/E:>
	MOVE	T1,P1			;GET CPU TIME
	IMULI	T1,^D100		;HUNDREDS FOR PERCENT
	MOVE	T2,P2			;GET ELAPSED TIME
	PUSHJ	P,TNN
	$TYPEL	<%>
	POPJ	P,

	SUBTTL	Performance routines -- LINPRF - Print LINE mode statistics

LINPRF::SKPYES	.FZPRF##(I)		;SEE IF /PERF
	 POPJ	P,			;NO
	PUSHJ	P,.SAVE3##		;SAVE P1-P3
	PUSHJ	P,XB$UPT##		;GET UPTIME
	MOVE	P1,T1			;POSITION
	IDIVI	P1,^D1000		;MAKE SECONDS
	MOVE	P2,P1			;GET SECONDS
	IDIVI	P2,^D60			;MAKE MINUTES
	$TYPE	<     O/I:>		;GET TEXT
	PUSHJ	P,LB$ICT##		;GET INPUT CHAR COUNT
	PUSH	P,T1			;SAVE
	PUSHJ	P,LB$OCT##		;GET OUTPUT CHAR COUNT
	POP	P,T2			;RESTORE SCALED INPUT COUNT
	PUSHJ	P,TNN			;TYPE
	$TYPE	<  OCC/E:>		;GET TEXT
	PUSHJ	P,LB$OCT##
	MOVE	T2,P1
	PUSHJ	P,TNN
	$TYPE	<  ICC/E:>
	PUSHJ	P,LB$ICT##
	MOVE	T2,P1
	PUSHJ	P,TNN
	$TYPE	<  CMD/EM:>
	PUSHJ	P,LB$CMD##
	MOVE	T2,P2
	PUSHJ	P,TNN
	$TYPE	<  BRK/EM:>
	PUSHJ	P,LB$BCC##
	MOVE	T2,P2
	PUSHJ	P,TNN
	PJRST	.TCRLF##
	SUBTTL	Performance routines -- NODPRF - Print NODE mode statistics

NODPRF::POPJ	P,			;NONE FOR NOW
	SUBTTL	Performance routines -- STRPRF - Print STRUCTURE mode statistics

STRPRF::POPJ	P,			;NONE FOR NOW
	SUBTTL	Performance routines -- UNIPRF - Print UNIT mode statistics

UNIPRF::PUSHJ	P,.SAVE2		;SAVE SOME ACS
	$TYPE	<     Cached:>
	PUSHJ	P,UB$CBK##		;GET BLOCKS CACHED
	MOVE	P1,T1			;SAVE
	LSH	T1,7			;CONVERT TO WORDS
	PUSHJ	P,.TBLOK##		;TYPE AS NNNB
	JUMPE	P1,.TCRLF##		;DONE IF NO BLOCKS CACHED

UNIPR1:	PUSHJ	P,UB$CRH##		;GET CACHED READ HITS
	MOVE	P1,T1			;SAVE
	PUSHJ	P,UB$CRC##		;GET CACHED READ CALLS
	SKIPN	P2,T1			;SAVE
	JRST	UNIPR2			;THERE ARE NONE
	$TYPE	<   Rd H/C:>
	MOVE	T1,P1			;GET READ HITS
	PUSHJ	P,.TDECW##		;TYPE NUMBER
	MOVEI	T1,"/"			;TYPE
	PUSHJ	P,.TCHAR##		; SEPARATOR
	MOVE	T1,P2			;GET READ CALLS
	PUSHJ	P,.TDECW##		;TYPE NUMBER
	MOVEI	T1,"="			;TYPE
	PUSHJ	P,.TCHAR##		; SEPARATOR
	DMOVE	T1,P1			;GET ARGS
	IMULI	T1,^D100		;SCALE
	PUSHJ	P,TNN			;TYPE FRACTION
	MOVEI	T1,"%"			;GET TERMINATOR
	PUSHJ	P,.TCHAR##		;TYPE IT

UNIPR2:	PUSHJ	P,UB$CWH##		;GET CACHED WRITE HITS
	MOVE	P1,T1			;SAVE
	PUSHJ	P,UB$CWC##		;GET CACHED WRITE CALLS
	SKIPN	P2,T1			;SAVE
	PJRST	.TCRLF##		;THERE ARE NONE
	$TYPE	<   Wt H/C:>
	MOVE	T1,P1			;GET WRITE HITS
	PUSHJ	P,.TDECW##		;TYPE NUMBER
	MOVEI	T1,"/"			;TYPE
	PUSHJ	P,.TCHAR##		; SEPARATOR
	MOVE	T1,P2			;GET WRITE CALLS
	PUSHJ	P,.TDECW##		;TYPE NUMBER
	MOVEI	T1,"="			;TYPE
	PUSHJ	P,.TCHAR##		; SEPARATOR
	DMOVE	T1,P1			;GET ARGS
	IMULI	T1,^D100		;SCALE
	PUSHJ	P,TNN			;TYPE FRACTION
	MOVEI	T1,"%"			;GET FINAL TERMINATOR
	PUSHJ	P,.TCHAR##		;TYPE IT
	PJRST	.TCRLF##		;RETURN
	SUBTTL	Performance routines -- TNN - Type a fractional number
;CALL:
;	T1=NUMERATOR
;	T2=DENOMETER
;	PUSHJ	P,TNN
;types NNN, NN.N or N.NN based on size of number

TNN::	PUSHJ	P,.SAVE3##		;SAVE P3
	MOVE	P3,T2			;SAVE DIVISOR
	IDIV	T1,T2			;DIVIDE
	DMOVE	P1,T1			;SAVE INTEGER PART, REMAINDER
	PUSHJ	P,.TDECW##		;TYPE INTEGER PART
	CAILE	P1,^D99			;NNN form?
	 POPJ	P,			;YES--RETURN
	PUSHJ	P,.TDOT##		;NO--TYPE DECIMAL
	CAILE	P1,^D9			;N.NN form?
	 JRST	TNN.N			;NO--NN.N
	MOVE	T1,P2			;YES--GET REMAINDER BACK
	IMULI	T1,^D100		;SHIFT TO GET HUNDREDTHS DECIMAL
	IDIV	T1,P3			;DIVIDE BY ORIGINAL DIVISOR
	MOVEI	T2,"0"			;ZERO FILL
	PJRST	.TDEC2##		;TYPE NN AND RETURN

TNN.N:	MOVE	T1,P2			;GET REMAINDER BACK
	IMULI	T1,^D10			;SHIFT TO GET TENTHS DECIMAL
	IDIV	T1,P3			;DIVIDE BY ORIGINAL DIVISORT
	PJRST	.TDECW##		;TYPE N AND RETURN
	SUBTTL	END

	$LOW

TTLFLG::BLOCK	1
FMTPTR:	BLOCK	1
FMTBUF:	BLOCK	^D132/5+1

	END