Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ZTP1

Package: Kernel

Routine: ZTP1


Information

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

Source Information

Source file <ZTP1.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls