Routine: XTRCMP

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$LOOK^XPDI1 $$DTIME^XUP
VA Fileman	2	$$GET1^DIQ ^DIR
MailMan	1	^XMPC

Package	Total	Caller Graph
Kernel	1	XUPR-RTN-TAPE-CMP

Entry Points

Name	Comments	DBIA/ICR reference
A	;Compare two routines in account
QUIT
DIN
END
TEST(X)	;Test if Routine is on Disk
TIN	;Read one routine from tape
XPD	;Compair a KIDS install to Disk
KIN(RN)	;KIDS routine in
LOAD(X)	;Load Routine from Disk, Line count in XCNP.
XPDDO(XPDST)	;Do the KIDS compare
TAPE	;Read a tape and compare to disk.
RSEL
CMP(S1)	;
EXIT
LINE
CHECK	;

External References

Name	Field # of Occurrence
^%ZIS	A+6, TAPE+5, TAPE+8, XPD+6
HOME^%ZIS	A+9
^%ZISC	CHECK+5, EXIT+1, XPD+8
^%ZTLOAD	A+9
$$GET1^DIQ	XPD+4
^DIR	RSEL+1, TAPE+7
^XMPC	CHECK+4, CMP+3
$$LOOK^XPDI1	XPD+3
$$DTIME^XUP	A+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Compares two routines" Line Location: A+4
Function Call: WRITE	Prompt: !,"Loading Routines." Line Location: A+7
Function Call: WRITE	Prompt: @IOF,!,RTN1,?(IOM\2),RTN2 Line Location: CHECK+3
Function Call: WRITE	Prompt: ! Line Location: CHECK+4
Function Call: WRITE	Prompt: !,"Routine ",X," missing." Line Location: TEST+1
Function Call: WRITE	Prompt: !,X Line Location: LINE+0
Function Call: WRITE	Prompt: !!,"Compares routines from tape/file with what's on disk." Line Location: TAPE+4
Function Call: READ	Timeout: 10,Y:10 Variable: X Line Location: TAPE+6
Function Call: WRITE	Prompt: !!,"Tape header",!,X,!,Y Line Location: TAPE+6
Function Call: WRITE	Prompt: !,"Compare of routines from file (",XTAPE,") and disk",! Line Location: TAPE+9
Function Call: WRITE	Prompt: !,"DONE" Line Location: TAPE+11
Function Call: READ	Timeout: 10 Variable: RTN1 Line Location: TIN+2
Function Call: READ	Timeout: 10 Variable: X Line Location: TIN+8
Function Call: WRITE	Prompt: !,"Routine ",X," not on disk" Line Location: DIN+0
Function Call: WRITE	Prompt: !,"Routine ",RTN1,!?3,S1,?IOM\2+3,"Disk" Line Location: CMP+1
Function Call: WRITE	Prompt: !,"Compare of routines from KIDS ",XPDNM,", and disk",! Line Location: XPDDO+2
Routine Call	%ZIS Line Location: A+9
Routine Call	DIR Line Location: RSEL+1 TAPE+7
Routine Call	%ZIS Line Location: A+6 TAPE+5 TAPE+8 XPD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XPD(9.7 - [#9.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	LOAD+1
^%ZOSF("TEST"	TEST+1, DIN
^TMP($J	QUIT!, EXIT+2!, TIN+7!, TIN+8, DIN+1!, CMP+2, KIN+1!, KIN+2*
^XTMP("XPDI"	KIN+1, XPDDO+3

Label References

Name	Line Occurrences
CHECK	A+7
CMP	TAPE+10, XPDDO+5
DIN	TAPE+10, XPDDO+5
EXIT	TAPE+7, TAPE+8
KIN	XPDDO+5
LINE	CHECK+4, DIN, CMP+3
LOAD	CHECK+1, CHECK+2, DIN+1
QUIT	A+5, A+6, A+10, CHECK+6
RSEL	A+5
TIN	TAPE+10
XPDDO	XPD+7

Naked Globals

Name	Field # of Occurrence
^(	XPDDO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	A+2~, TAPE+2~, XPD+3*
%1	A+2~, TAPE+2~
%2	A+2~, TAPE+2~
%3	A+2~, TAPE+2~
%4	A+2~, TAPE+2~
%DEBUG	A+1~, CMP+2
%H	A+2~, TAPE+2~
%N	A+1~, TAPE+1~, XPD+1~, XPDDO+1~
%T	A+2~, TAPE+2~
%Y	A+2~, TAPE+2~
%ZIS	A+1~, A+6, TAPE+5, TAPE+8, XPD+6
%ZIS("A"	TAPE+5, TAPE+8
B	A+2~, TAPE+2~
C	A+2~, TAPE+2~
D	A+2~, TAPE+2~
DIF	A+1~, CHECK+1, CHECK+2, TAPE+1~, DIN+1*
DIR	A+1~, RSEL+1!, TAPE+1~, TAPE+7!
DIR("?"	RSEL*
DIR("A"	A+5, TAPE+7
DIR("B"	TAPE+7*
DIR(0	RSEL, TAPE+7
DIRUT	A+1~, A+5, TAPE+1~, TAPE+7
DTIME	A+3*
DUZ	A+3
E	A+2~, TAPE+2~
F	A+2~, CHECK+2, TAPE+2~, DIN+1, XPD+1~, XPDDO+1~, XPDDO+5*
G	A+2~, TAPE+2~
H	A+2~, TAPE+2~
I	A+2~, TAPE+2~, TAPE+5, EXIT, TIN+1~, TIN+4, TIN+5, TIN+8, TIN+9, CMP+2* , KIN+2*, KIN+3
IO	CHECK+3, TAPE+5, TAPE+8, TAPE+9, TAPE+11, EXIT, TIN+9, DIN, CMP+1, XPDDO+2
IO("Q"	A+7
IO(0	TAPE+6, TAPE+8
IOF	CHECK+3
IOM	CHECK+3, LINE, CMP+1
>> IOS	A+3
J	A+2~, TAPE+2~
K	A+2~, TAPE+2~
L	A+2~, TAPE+2~
M	A+2~, TAPE+2~
N	A+2~, TAPE+2~
O	A+2~, CHECK+1, TAPE+2~, TIN+9, KIN+3*, XPD+1~, XPDDO+1~
P	A+2~, TAPE+2~
>> POP	A+6, TAPE+5, TAPE+8, XPD+6
Q	A+2~, TAPE+2~
R	A+2~, TAPE+2~, KIN+1*, KIN+2
RN	KIN~, KIN+1, KIN+3
RTN1	A+1~, A+5, CHECK+1, CHECK+3, TAPE+1~, TIN+2, TIN+4, TIN+5, TIN+6, TIN+9 , CMP+1, XPD+1~, XPDDO+1~, XPDDO+3, XPDDO+4, XPDDO+5
RTN2	A+1~, A+5*, CHECK+2, CHECK+3, TAPE+1~, XPD+1~, XPDDO+1~
S	A+2~, TAPE+2~
S1	CMP~, CMP+1
T	A+2~, TAPE+2~
U	A+2~, A+3, TAPE+2~, TAPE+3
V	A+2~, TAPE+2~
W	A+2~, TAPE+2~
X	A+2~, A+5, LOAD~, TEST~, TEST+1!, LINE, TAPE+2~, TAPE+6, TAPE+10, TIN+6* , TIN+8, TIN+9, DIN!, DIN+1, KIN+3, XPDDO+1~, XPDDO+3, XPDDO+4, XPDDO+5
X1	TAPE+1~, TAPE+10*
XCNP	A+1~, CHECK+1, CHECK+2, LOAD+1*, TAPE+1~, DIN+1, XPD+1~, XPDDO+1~, XPDDO+5
>> XPDNM	XPD+4*, XPDDO+2
>> XPDQUIT	XPD+5
XPDST	KIN+1, XPD+3*, XPD+4, XPD+5, XPD+7, XPDDO~, XPDDO+3
XTAPE	TAPE+1~, TAPE+5*, TAPE+6, TAPE+9, EXIT, TIN+2
XTAPE(	TAPE+5*, EXIT
XTEND	A+1~, END*
Y	A+2~, TAPE+2~, TAPE+6*, TAPE+7
Z	A+2~, TAPE+2~
ZTDESC	A+1~, A+8*
ZTRTN	A+1~, A+8*
ZTSAVE	A+1~
ZTSAVE("RTN1"	A+8*
ZTSAVE("RTN2"	A+8*

Customize PDF page

Package: Toolkit

Routine: XTRCMP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: