Routine: XMPG

Information

XMPG ;(WASH ISC)/THM/CAP-PackMan Global List/Load ;10/07/2003 12:16

Source file <XMPG.m>

Package	Total	Call Graph
MailMan	3	NEW^XMP INIT^XMVVITAE (ADDRNSND,CRE8XMZ)^XMXSEND
Kernel	2	(,HOME)^%ZIS ^%ZISC

Name	Comments	DBIA/ICR reference
LOAD	;LOAD GLOBAL INTO MESSAGE DEFINED IN <DIE>
EN
GP
K
MOVE	;MOVE GLOBAL INTO MESSAGE
POP
N	;GET NAME OF GLOBAL
S
R
ENT	;LOAD UP GLOBAL ENTRY POINT FROM OUTSIDE ROUTINES ; Input: ; DUZ Sender's DUZ ; XMSUB Message subject ; XMY Recipient array ; XMTEXT String of open global roots separated by semicolon ; Output: ; XMZ Message number ; XMMG Error message, if error ; Kills: ; XMY	ICR #10071 Status: Active Usage: Supported
L1
PUSH
SET
DISK
N1

Name	Line Occurrences
Function Call: WRITE	Prompt: " Loading..." Line Location: L1+1
Function Call: READ	Prompt: "Global: " Formatting: ! Timeout: DTIME Variable: %G Line Location: N+1
Function Call: WRITE	Prompt: !,"MUST BEGIN WITH % OR LETTER" Line Location: N+4
Function Call: WRITE	Prompt: !,"DO NOT END GLOBAL REFERENCE WITH ')'" Line Location: N+7
Function Call: WRITE	Prompt: $C(7),!,"EACH SUBSCRIPT MUST HAVE A VALUE" Line Location: N+8
Function Call: WRITE	Prompt: $C(7),!,"Invalid entry ! Please enter the EXACT values of the subscripts." Line Location: N+9
Function Call: WRITE	Prompt: !,"GLOBAL NAME MUST BEGIN WITH '%' OR LETTER" Line Location: N1+0
Routine Call	%ZIS Line Location: XMPG+14
Routine Call	%ZIS Line Location: XMPG+11

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XMERR"	ENT+12!, ENT+20, ENT+21!, ENT+33!
^XMB(3.9 - [#3.9]	ENT+31

Name	Field # of Occurrence
%	K!
%0	EN, DISK, K!
%1	XMPG+10, EN+1, K!, %+1
%2	XMPG+10, DISK+3, K!, %+2
%D	K!, SET, MOVE+1, MOVE+2
%G	R, EN, EN+1, DISK, DISK+3, PUSH, POP, K!, L1, GP* , GP+1, N+1, N+2, N+4, N+5, N+6, N+7, N+8, N+9, N1* , ENT+26*, ENT+27, MOVE+1, MOVE+2
%GQ	K!
%T	DISK*, K!
D	EN+1, DISK, DISK+3, K!
>> DIE	LOAD+1, L1, SET, ENT+24, MOVE+3*
>> DIF	LOAD+1, ENT+24
DTIME	N+1
I	EN!, S, DISK, DISK+1, DISK+2, DISK+3, PUSH, POP, K!, N+1* , N+2, N+3, N+4, N+5, N+8, N+9
I(	PUSH*, POP
IO	XMPG+13, R
IO(0	XMPG+13, N+1
>> J	DISK+1, N+8, N+9*
K	R, K!, L1, N+1, N+4, N+7, N+8, N+9, N1
POP	XMPG+11, K!
Q	EN*, S, DISK+1, K!
R	EN!, PUSH, POP, K!, GP
R(	PUSH*, POP
U	L1, MOVE+3
XCNP	LOAD+1, L1, SET, ENT+29!, MOVE+3
XMDF	ENT+11~, ENT+13*
>> XMDUZ	ENT+32
XMERR	ENT+12!, ENT+19, ENT+21!, ENT+33!
XMINSTR	ENT+11~, ENT+32
XMINSTR("ADDR	FLAGS" , ENT+14*
XMMG	ENT+12!, ENT+17, ENT+20
XMPIECE	ENT+11~, ENT+25*, ENT+26
>> XMSUB	ENT+18
>> XMTEXT	ENT+25, ENT+26
XMV	ENT+11~
XMV("ERROR"	ENT+16, ENT+17
XMY	ENT+32, ENT+34!
>> XMZ	ENT+18, ENT+31, ENT+32