Retro1.org codex

*DECK, OSCEXIT
          IDENT  OSCEXIT
          ENTRY  OSCEXIT
          EXT    RJMAIN 
          SST 
*#
*1DC  OSCEXIT 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        OSCEXIT             F. E. FEUILLE       75/09/02 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS ROUTINE MAKES AN -SFCALL- TO TERMINATE SYSTEM-CONTROL-
*        POINT STATUS AND CLEARS RA.SSID. 
* 
*     3. METHOD USED. 
*          MAKE AN -SFCALL- 
* 
*     4. ENTRY PARAMETERS.  NONE
* 
*     5. EXIT  PARAMETERS.  NONE
* 
*     6. COMDECKS CALLED.  NONE 
* 
*     7. ROUTINES CALLED. 
*          SFCALL            SYSTEM-CONTROL-POINT MACRO 
* 
*     8. DAYFILE MESSAGES.  NONE
* 
*        W A R N I N G - THIS PROGRAM IS LOADED WITH XENDNAM.  THE SUM
*                        OF THE SIZES OF XENDNAM, OSCEXIT, AND XTERMST
*                        SHOULD NOT EXCEED SIZE OF THE PRIMARY OVERLAY
*CALL OPSIZE
* 
*#
 OSCE1    VFD    6/0,12/0,36/0,6/SF.EXIT
 OSCEXIT  SUBR   =           ENTRY/EXIT 
          SFCALL OSCE1,R     EXIT SYSTEM CONTROL POINT STATUS 
          EQ     OSCEXITX    RETURN 
          END