XQSTCK ;Luke/SEA - Stack utilities ;3/11/94 13:50 [ 07/30/94 10:48 PM ]
Source file <XQSTCK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PUSH(XQY,XQPSM,XQY0) | ;Add an option to the stack
|
|
| POP | ;Pop one level on the stack
|
|
| P1 | ||
| XACT | ;Execute Exit Actions and Headers: input X=option number, no output.
|
|
| PM | ;Put primary menu in stack position 1
|
|
| PM1 | ;Put primary menu in some other stack position
|
|
| GET | ;Get the Primary Menu Option and set XQY0,XQDIC,XQPSM
|
|
| NOPM | ;This user has no primary menu
|
|
| NODUZ | ;There is no user connected with this process
|
|
| NOXUTL | ;No ^XUTL("XQO","P"_XQPM) on this system
|
|
| FAIL | ;Absolute and utter failure
|
|
| OUT | ;Exit point for all subroutines
|
