Routine: XUTMTEIO

Information

XUTMTEIO ;SEA/RDS - TaskMan: Toolkit, Edit I/O Device ; ;

Source file <XUTMTEIO.m>

Package	Total	Call Graph
Kernel	1	(,HOME)^%ZIS
VA FileMan	1	^DIR

Name	Comments	DBIA/ICR reference
ASK	;determine whether task should have an io device
EDIT	;edit task's io device
HELP	;EDIT--?-help for first prompt
HELP2	;EDIT--??-help for first prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: ASK+7
Function Call: WRITE	Prompt: !,"Tasks can not open virtual terminals.",$C(7),! Line Location: EDIT+7
Function Call: WRITE	Prompt: !!?5,"Answer must be YES or NO." Line Location: HELP+1
Function Call: WRITE	Prompt: !!?5,"Answer whether this task requires an io device." Line Location: HELP2+1
Routine Call	%ZIS Line Location: EDIT+4
Routine Call	%ZIS Line Location: EDIT+7
Routine Call	DIR Line Location: ASK+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	EDIT+5
^%ZIS(14.6 - [#14.6]	EDIT+13

Name	Line Occurrences
EDIT	EDIT+7

Name	Field # of Occurrence
^(0	EDIT+5

Name	Field # of Occurrence
>> %ZIS	EDIT+1*
>> %ZIS("A"	EDIT+2*
>> %ZIS("B"	EDIT+3*
>> DIR("?"	ASK+4*
>> DIR("??"	ASK+5*
>> DIR("A"	ASK+2*
>> DIR("B"	ASK+3*
>> DIR(0	ASK+1*
>> DIRUT	ASK+8, EDIT+6*
>> DTOUT	ASK+7
IO("DOC"	EDIT+8
IO("HFSIO"	EDIT+10
>> IOCPU	EDIT+12
IOM	EDIT+8
ION	EDIT+5
>> IOPAR	EDIT+11
>> IOS	EDIT+5
IOSL	EDIT+8
IOST	EDIT+8
>> IOT	EDIT+7
>> POP	EDIT+5
U	ASK+3, EDIT+3, EDIT+5, EDIT+8, EDIT+9, EDIT+10, EDIT+13
>> X	EDIT+13*
>> XUTMUCI	ASK+10, EDIT+13
>> Y	ASK+9, EDIT+13*
>> ZTCPU	ASK+10, EDIT+12, EDIT+13
>> ZTIO	ASK+10, EDIT+5, EDIT+6, EDIT+8
>> ZTSK(0	EDIT+13
>> ZTSK(2	ASK+3, ASK+9, EDIT+3, EDIT+8, EDIT+9, EDIT+10
>> ZTSK(25	ASK+9, EDIT+9, EDIT+11*