Routine: ZTMONH1

Package	Total	Call Graph
Kernel	2	^ZTMON ^ZTMT
VA FileMan	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY
PRINT	;Subroutine--Print A Task
OUT	;Tag for breaking FOR scope to exit early
SCHED	;Display Schedule List
WAIT	;Display Waiting Lists
W0	;WAIT Subroutine--Extending IO Loop
WAIT1	;Display One Waiting List
W1	;WAIT1 Subroutine--Extending Loop
W2	;WAIT1--prompt user for a device
W3	;W2--?? help for device selection
WCNT	;W3--count tasks waiting for each device

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"The Schedule List is empty." Line Location: SCHED+3
Function Call: WRITE	Prompt: ! Line Location: SCHED+4
Function Call: WRITE	Prompt: !!,"The Device Waiting Lists are empty." Line Location: WAIT+3
Function Call: WRITE	Prompt: ! Line Location: WAIT+4
Function Call: WRITE	Prompt: ! Line Location: W1+3
Function Call: WRITE	Prompt: $C(7) Line Location: W2+7
Function Call: WRITE	Prompt: !!?5,"These are the devices with waiting tasks:",! Line Location: W3+2
Function Call: WRITE	Prompt: !?5,ZT2 Line Location: W3+3
Function Call: WRITE	Prompt: ?40,ZTC," task",$S(ZTC=1:"",1:"s") Line Location: W3+3
Routine Call	DIR Line Location: PRINT+2 SCHED+4 WAIT+4 W2+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH(	SCHED+2, W3+3, WCNT+1
^%ZTSCH("IO"	WAIT+2, W1+2

Name	Field # of Occurrence
DIR	SCHED+1~, WAIT+1~, WAIT1+1~, W2+6!
DIR("?"	W2+3, W2+4
DIR("??"	W2+5*
DIR("A"	SCHED+4, WAIT+4, W2+2*
DIR(0	PRINT+2, SCHED+4, WAIT+4, W2+1
DIRUT	SCHED+1~, WAIT+1~, WAIT1+1~, W2+8
DTOUT	PRINT+2, SCHED+1~, WAIT+1~, WAIT1+1~, W2+7
DUOUT	PRINT+2, SCHED+1~, WAIT+1~, WAIT1+1~
IOF	PRINT+1, PRINT+2
U	W2+9
X	PRINT+2, SCHED+1~, SCHED+2, WAIT+1~, WAIT+2, W0+1, WAIT1+1~, WAIT1+2, W1+2, W1+3
>> Y	W2+9
>> Y(0	W2+9
ZT	SCHED+1~, SCHED+2, WAIT+1~, WAIT+2, WAIT1+1~, WAIT1+2, W1+2, W3+1~, W3+3, WCNT+1
ZT1	SCHED+1~, SCHED+2, WAIT+1~, WAIT+2, WAIT1+1~, WAIT1+2, W1+2, W3+1~, W3+3, WCNT+1
ZT2	WAIT+1~, WAIT+2, WAIT1+1~, W1+2, W3+1~, W3+3*, WCNT+1
ZT3	WAIT+1~, WAIT+2, W0+1, WAIT1+1~, W1+2, W3+1~, WCNT+1*
ZT4	W3+1~, WCNT+1*
ZTC	PRINT+1, PRINT+3, SCHED+1~, SCHED+2, SCHED+3, SCHED+4, WAIT+1~, WAIT+3, WAIT+4, W0+1* , WAIT1+1~, W1+1, W1+2, W1+3, W3+1~, W3+3, WCNT+1*
ZTF	PRINT+1, PRINT+2, SCHED+1~, WAIT+1~, WAIT1+1~, W1+1
ZTH	PRINT+1, SCHED+1~, WAIT+1~, WAIT1+1~, W1+1*
ZTIO	WAIT1+1~, WAIT1+2, W2+9*
ZTION	WAIT1+1~, WAIT1+2, W1+1, W1+3, W2+8, W2+9
ZTMT	PRINT+1~, PRINT+2*
ZTMT(0	PRINT+2*
ZTS	PRINT+2, SCHED+1~, SCHED+2, WAIT+1~, W0+1, WAIT1+1~, W1+2*
ZTSK	PRINT+1~