Routine: INHVA8

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;exit module
EN	;Main entry point
ENQUE	;Taskman entry point
WRITE	;output a line
HEADER	;output header in local array HDR(x)
ENUSE	;User input
HSET	;set up header

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Sorry, unable to find device..." Line Location: ENUSE+8
Function Call: READ	Prompt: "Press <RETURN> to continue " Formatting: ! Timeout: DTIME Variable: A Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,@HDR(A) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,@DATA Line Location: WRITE+2
Routine Call	%ZIS Line Location: ENUSE+6 ENUSE+8 QUIT+2

Name	Line Occurrences (* Changed, ! Killed)
^INTHU("C"	ENQUE+6

Name	Line Occurrences
HEADER	ENQUE+3, WRITE+1
HSET	ENQUE+3
QUIT	ENUSE+4, ENUSE+6, ENUSE+8, ENUSE+9, ENQUE+9
WRITE	ENQUE+6

Name	Field # of Occurrence
>> %	HSET+2
%ZIS	EN+2~, ENUSE+6, ENUSE+8, QUIT+2*
%ZIS("A"	ENUSE+6*
%ZIS("B"	ENUSE+6*
A	EN+2~, HEADER+1~, HEADER+2, HEADER+4
>> CMES	ENQUE+6*
COUNT	EN+2~, ENQUE+5, ENQUE+6
>> CUR	ENQUE+5, ENQUE+6
DATA	EN+2~, ENQUE+6, ENQUE+8, WRITE+2
DTIME	HEADER+2
EXIT	EN+2~, ENQUE+2, ENQUE+6, HEADER+2, WRITE+2
HDR	EN+2~, HSET+1!
HDR(	HEADER+4, HSET+4*
HDR(1	HSET+2*
HDR(3	HSET+3*
HDR(4	HSET+5*
>> INPRE	ENUSE+2*, ENUSE+4, ENQUE+5, ENQUE+6
>> INPREL	ENQUE+5*, ENQUE+6
IO	ENUSE+8, ENUSE+9, HEADER+2, HEADER+4, QUIT+2
IO("Q"	HEADER+2, QUIT+2!
IO(0	ENUSE+8, ENUSE+9, HEADER+2
IOF	HEADER+3
IOM	ENUSE+7, HSET+5
ION	ENUSE+7
IOP	ENUSE+6!, ENUSE+7, ENUSE+9, QUIT+2!
IOSL	ENUSE+7, WRITE+1
IOST	ENUSE+7, HEADER+2
>> LAST	ENQUE+5, ENQUE+6
LOOP	EN+2~
>> MES	ENQUE+5, ENQUE+6
PAGE	EN+2~, ENQUE+2, HEADER+2, HEADER+3, WRITE+1
POP	ENUSE+6, ENUSE+8, QUIT+2!
U	EN+3*, ENUSE+4, HEADER+2
X	EN+2~, ENUSE+10*
>> Y	HSET+2*
ZTDESC	EN+2~, ENUSE+9*
ZTIO	EN+2~, ENUSE+9*
ZTRTN	EN+2~, ENUSE+9*
ZTSAVE	EN+2~
ZTSAVE(	ENUSE+10*