XUSTERM2 ;SFISC/RWF - USER TERMINATE, PACKAGE FILE RUN ;9/7/94 16:23
Source file <XUSTERM2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
A | ;FOR v8 only, loop thru package file and do clean-up routines.
|
|
T2(XU1,DA) | ;Set trap and call one with DA=IFN of user.
|
|
TX | ||
B | ;Call XQOR to handle protocall.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("ERRTN" | TX |
^%ZOSF("TEST" | T2+3 |
^%ZOSF("TRAP" | T2+3, B+2 |
^DIC(9.4 - [#9.4] | A+2 |