Routine: KLASSTU

Information

KLASSTU ;GLRISC/PDW NEW STUSMAN STUDENT;DEC 18,1990@13:54:58 [ 12/13/94 8:02 AM ]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC DQ^DICQ DT^DICRW ^DIE
ClassMan	2	(STUFF,SXRAY,XRAY,XX)^KLASDIA (,PURGE,VIEW)^KLASSTU1
Kernel	1	^%ZIS

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
ClassMan	3	KLAS KLASSTU KLASSTU1

Entry Points

Name	Comments	DBIA/ICR reference
XRAY
RMES	;
SCAN	;
STOP1
STUFF
CTRL
STOP
ST
PURGE
RELEASE
XX
DLOOP	;
INST
KEY	;
ASK	;D HOME^%ZIS
EXIT
GRAB
SXRAY
LOOP	;
CON

External References

Name	Field # of Occurrence
^%ZIS	KLASSTU+2, KLASSTU+4
^DIC	INST, INST+1, INST+3
DQ^DICQ	INST
DT^DICRW	KLASSTU+2
^DIE	INST+2, INST+4, EXIT, STOP+1
STUFF^KLASDIA	STUFF
SXRAY^KLASDIA	SXRAY
XRAY^KLASDIA	XRAY
XX^KLASDIA	XX
^KLASSTU1	CTRL+2
PURGE^KLASSTU1	PURGE
VIEW^KLASSTU1	LOOP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"YOU ARE ON DEVICE ",$I Line Location: ASK+1
Function Call: WRITE	Prompt: !!,?15,">>>>> To EXIT the class enter '^' <<<<<",! Line Location: ST+0
Function Call: WRITE	Prompt: @IOF Line Location: ST+0
Function Call: WRITE	Prompt: " ",$C(8) Line Location: LOOP+4
Function Call: READ	Timeout: 0 Variable: *Z Line Location: LOOP+6
Function Call: WRITE	Prompt: !,"^",!,"LEAVING THE CLASS",! Line Location: LOOP+6
Function Call: WRITE	Prompt: B(K) Line Location: SCAN+2
Function Call: READ	Timeout: TK Variable: Z#200 Line Location: KEY+1
Function Call: READ	Timeout: 10 Variable: *Z Line Location: CTRL+0
Function Call: WRITE	Prompt: @IOF," \| CTRL-",$C(CTRL+64)," \| " Line Location: CTRL+0
Function Call: READ	Prompt: "Enter the new command character ? " Formatting: ! Timeout: 30 Variable: *X Line Location: CTRL+1
Function Call: WRITE	Prompt: !,"COMMAND CHARACTER IS NOW >>CTRL-",$C(64+CTRL),"<<",!,">>ON LINE MODE<<-------",! Line Location: CTRL+1
Function Call: WRITE	Prompt: " \| CTRL-",$C(Z+64)," \| ",! Line Location: CTRL+3
Function Call: WRITE	Prompt: !!,"YOU HAVE BEEN GIVEN COMMAND - GO FOR IT !",!," to send 'CTRL-x' use 'CRTL-A' followed by 'x'",!! Line Location: GRAB+0
Function Call: WRITE	Prompt: !,"to change the Command Character use 'CTRL-A' followed by '#'",!! Line Location: GRAB+1
Function Call: READ	Timeout: 0 Variable: Z Line Location: GRAB+2
Function Call: WRITE	Prompt: !!,"SORRY COMMAND HAS BEEN TAKEN AWAY",! Line Location: RELEASE+0
Function Call: WRITE	Prompt: !!,"YOU HAVE BEEN EXITED FROM THE CLASS",! Line Location: STOP+0
Routine Call	DIE Line Location: INST+2 INST+4 EXIT STOP+1
Routine Call	DIC Line Location: INST INST+1 INST+3
Routine Call	%ZIS Line Location: KLASSTU+2 KLASSTU+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^KLAS(1200 - [#1200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	CTRL+1, GRAB+2
^%ZOSF("EON"	CTRL+1
^%ZOSF("RM"	CON, STOP1+1
^%ZOSF("TRMRD"	CON
^%ZOSF("TYPE-AHEAD"	KLASSTU+3, ST+1
^KLAS(1200 - [#1200]	INST+1, LOOP+1, LOOP+2, LOOP+3, LOOP+4, SCAN+1, DLOOP+1, KEY+3, CTRL+4, RMES+1 , GRAB+2*
^KLAS(1200.4 - [#1200.4]	INST+3

Label References

Name	Line Occurrences
CTRL	KEY+1
DLOOP	SCAN+1, DLOOP+1
EXIT	LOOP+6
GRAB	RMES+1
KEY	LOOP+5
LOOP	LOOP+1, LOOP+7, LOOP+9, LOOP+10, CTRL, RMES+1
PURGE	LOOP+4
RELEASE	RMES+1
RMES	LOOP+3
SCAN	LOOP+9, LOOP+10
STOP	INST
STOP1	INST+1

Naked Globals

Name	Field # of Occurrence
^(	RMES+1!
^("EOFF"	CON
^("EON"	STOP1+1
^("TRMOFF"	STOP1+1
^("TRMON"	CON
^("TYPE-AHEAD"	CON
^(0	INST+1, INST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	STOP1!
B(	SCAN+1*, SCAN+2
C	STOP1!
CC	CON, KEY+3, CTRL+1, STOP1!
CLNUM	INST+1*, INST+3, STOP+1, STOP1!
CTRL	INST+5, CON, KEY+1, CTRL, CTRL+1*, STOP1!
D	INST*!
DA	INST+2, INST+4, EXIT, STOP+1, STOP1!
DA(1	INST+1, INST+3, EXIT*
DIC	INST!, INST+1, INST+2!, INST+3!*, INST+4, STOP1!
DIC("A"	INST+1*
DIC("S"	INST+1*
DIC(0	INST, INST+1, INST+3*
DIE	INST+2, INST+4, EXIT, STOP+1, STOP1!
DINUM	STOP1!
DR	INST+2!, INST+4, EXIT, STOP+1, STOP1!
DZ	INST*!
IO	ASK+1, INST+2
IO(0	ST, KEY+1, CTRL
IOF	ASK+1, ST, CTRL
IOM	STOP1+1
>> IOP	KLASSTU+2, KLASSTU+4
JOB	INST+1*, LOOP+1, LOOP+2, LOOP+3, LOOP+4, SCAN+1, DLOOP+1, KEY+3, CTRL+4, RMES+1 , GRAB+2, EXIT, STOP1!
K	INST+5, SCAN+1, SCAN+2*, STOP1!
KEY	ST+1, LOOP+5, LOOP+6, LOOP+7, DLOOP+1, GRAB+2, RELEASE*, STOP1!
KLDIF	LOOP+9, LOOP+10, SCAN+1, SCAN+2, SCAN+3, STOP1!
KLEN	CON, SCAN+2, STOP1!
KLMCNT	LOOP+2*, LOOP+7, LOOP+8, LOOP+9, STOP1!
KLNS	STOP1!
KLNSC	STOP1!
KLSTMC	ST+1, KEY+3, CTRL+4, GRAB+2, STOP1!
KLWCNT	ST+1, LOOP+7, LOOP+8, LOOP+9, LOOP+10, SCAN+1, SCAN+3*, DLOOP+1, STOP1!
KLZZ	STOP1!
LIMIT	ST+1*, LOOP+8, LOOP+10, KEY+3, CTRL+4, STOP1!
M	STOP1!
MS	INST+5*, STOP1!
MSG	RMES+1*!, STOP1!
NAME	INST+2*, INST+4, EXIT, STOP1!
OPEX	STOP1!
SLNUM	INST+4*, STOP+1, STOP1!
STUDA	INST+2*, LOOP+3, RMES+1, EXIT, STOP1!
T1	ST+1*, LOOP+7, STOP1!
TC	STOP1!
TCK	CON, KEY+1, STOP1!
TK	CON, KEY+1, KEY+2*, STOP1!
TL	ST+1, LOOP+4, SCAN+3, KEY+2, KEY+3, STOP1!
TMC	CON*, KEY+1, STOP1!
TYPE	ST+1*, LOOP+7, STOP1!
U	KLASSTU+2*
X	INST+3, CON, CTRL+1, STOP1!, STOP1+1
X2	ST+1*, STOP1!
XON	CON*, STOP1!
Y	INST, INST+1, INST+2, INST+4, KEY+1, STOP1!
Y(0	INST+1, INST+2
Z	LOOP+6, KEY+1, KEY+2, KEY+3, CTRL, CTRL+1, CTRL+2, CTRL+3, CTRL+4, GRAB+2* , STOP1!

Customize PDF page

Package: ClassMan

Routine: KLASSTU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: