Routine: ZTP1

Information

%ZTP1 ;SF/RWF - Prints 1ST lines in Name, Date, Patch or Size order ;08/18/09 16:25

Source file <ZTP1.m>

Name	Comments	DBIA/ICR reference
A
A1	;
A2
A3
DQ	;Taskman entry point
ALPHA	;By name
SIZE	;Sort by routine size
LOAD(X,R)	;Load routine
KEEP(IX1,IX2,IX4)	;
LIST	;All 3 sorts come here to print the list.
KIL
L2	;Write one
WR(STR)	;Write line w/ wrap
WAIT	;Wait at end of page
HED
DATE	;Sort by date
DTF(L)	;Find the date
PATCH	;Sort by first patch number
SIZE2(CCNT)	; Return size in bytes of routine in ^TMP($J)
BUILD	;
POST	;POST-INIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PRINTS FIRST LINES",!! Line Location: A+0
Function Call: WRITE	Prompt: !,"Include line (2), Include lines 2&(3), (N)one: ",ZTP2,"//" Line Location: A3+0
Function Call: WRITE	Prompt: RN," ",Y,?$X\19+1*19 Line Location: SIZE+3
Function Call: WRITE	Prompt: ! Condition for execution: $X>66 Line Location: SIZE+3
Function Call: WRITE	Prompt: !!?14,ZP," ROUTINES",! Line Location: LIST+11
Function Call: WRITE	Prompt: RN,?10 Line Location: L2+4
Function Call: WRITE	Prompt: $J(S,5),"/",LI(4),?20," - " Condition for execution: ZTP1="S" Line Location: L2+4
Function Call: WRITE	Prompt: ?%X Line Location: L2+5
Function Call: WRITE	Prompt: ?%X Line Location: L2+5
Function Call: WRITE	Prompt: !,?%1 Line Location: WR+3
Function Call: READ	Formatting: ! Prompt: "Enter Return to continue " Variable: X Timeout: DTIME Line Location: WAIT+1
Function Call: WRITE	Prompt: @IOF,!?12,HED,! Line Location: HED+0
Function Call: WRITE	Prompt: ?10,HED(1),! Condition for execution: ZTP1="S" Line Location: HED+0
Function Call: WRITE	Prompt: RN," ",X,?$X\19+1*19 Line Location: DATE+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>66 Line Location: DATE+4
Function Call: WRITE	Prompt: !,"No BUILD file to work from." Line Location: BUILD+2
Function Call: WRITE	Prompt: !,"No routines in this build." Line Location: BUILD+5