Routine: DICE4

Information

DICE4 ;SFISC/GFT-TRIGGER LOGIC ;26NOV2004

Source file <DICE4.m>

Package	Total	Call Graph
VA Fileman	3	OLD^DICE2 YN^DICN ^DICOMP

Package	Total	Caller Graph
VA Fileman	2	DICE2 DICE7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SORRY, CAN'T DO THIS WHEN 'LAYGO' ALLOWED" Line Location: F+3
Function Call: WRITE	Prompt: !!,"DO YOU WANT TO MAKE THE "_DCOND_" CONDITIONAL" Line Location: R+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: R+2
Function Call: WRITE	Prompt: ! Line Location: R+2
Function Call: WRITE	Prompt: !,D_^(Y)_"// " Line Location: R+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: R+3
Function Call: WRITE	Prompt: !,D Line Location: R+3
Function Call: WRITE	Prompt: !,"ENTER A TRUTH-VALUED 'COMPUTED-FIELD' EXPRESSION ",!?4,"(PERHAPS INVOLVING '"_DOLD_"')" Line Location: X+0
Function Call: WRITE	Prompt: $C(7),"??" Line Location: X+2

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("DICE"	DICE4+4, F+2, P, P+1, R+2, X+1*

Name	Field # of Occurrence
^(	R+2, X+1*
^("DIC"	F+4*

Name	Field # of Occurrence
>> %	SET, SET+1, SET+2, COND, R, X+1
>> A	DICE4+3, F+4, COND
D	P+1!, R*, R+2, R+3
>> DA	DICE4+4, F+1, CC+1*
>> DB	F+1*, F+2, P, P+1
DCOND	F+3*, COND+1, R!
DCOND(0	X+1*
>> DE	DICE4+4, COND, COND+1*, COND+2
>> DENEW	DICE4+3
>> DHI	F+3, F+4, P, SET*, SET+2
>> DI	F+3, R+1
>> DICOMP	R*
DICOMPX	F+3, R!*
DICOMPX(	F+3!
DICOMPX("Y(0)"	R+1*
DICOMPX(1	R+1*
>> DIK	DICE4+4, F+1, F+2, P, P+1, CC+1, R+1, X+1
>> DIN	DICE4+3
>> DL	R+1
>> DLAY	F+3
>> DLOC	SET, PIECE
>> DNEW	F+3
>> DOLD	X
>> DREF	DICE4+3
>> DSUB	DICE4+3, SET, PIECE
DTAG	DICE4+3, DICE4+4, P+1!
DTIME	R+2, R+3
>> DTOUT	R+2, R+3
>> J(	F+4
>> N	COND
U	F+3, R+1, R+2, R+3, X+1
>> X	DICE4+3, DICE4+4, F+2, F+3, P, P+1, SET, SET+1, SET+2, PIECE* , COND+1, COND+2, R+2, R+3, X, X+1
>> X(	X+1!
>> Y	F+2, R+2, X+1