Retro1.org codex

*DECK NP$OSIF 
          IDENT  NP$OSIF
*IF DEF,IMS 
*#                                                                       NAMA614
*1DC  NP$OSIF 
*                                                                        NAMA614
*     1. PROC NAME         AUTHOR               DATE                     NAMA614
*         NP$OSIF          S.KRULEVITCH          77/05/23 
*                                                                        NAMA614
*     2. FUNCTIONAL DESCRIPTION                                          NAMA614
*        FORMATS A CALL TO SYS= WHICH CANNOT BE CALLED FROM A SYMPL      NAMA614
*        ROUTINE.                                                        NAMA614
*                                                                        NAMA614
*     3. METHOD USED                                                     NAMA614
*        (NOT APPLICABLE)                                                NAMA614
*                                                                        NAMA614
*     4. ENTRY CONDITIONS                                                NAMA614
*        SSCALL WORD IS PICKED-UP FROM A SYMPL CALL SEQUENCE             NAMA614
*                                                                        NAMA614
*     5. EXIT CONDITIONS                                                 NAMA614
*        NONE                                                            NAMA614
*                                                                        NAMA614
*     6. COMDECKS CALLED                                                 NAMA614
*        NP$CRT 
*                                                                        NAMA614
*     7. ROUTINES CALLED                                                 NAMA614
*        SYS=                                                            NAMA614
*                                                                        NAMA614
*     8. DAYFILE MESSAGES                                                NAMA614
*        NONE                                                            NAMA614
*#                                                                       NAMA614
*ENDIF
*CALL NP$CRT
          ENTRY  NP$OSIF
          ENTRY  NETRA
          EXT    SYS= 
          IPARAMS 
          SYSCOM
          SST 
OPL       XTEXT  COMSPRD
 OPL      XTEXT  COMSSSD     NOS SUBSYSTEM ID COMDECK 
          IFC    EQ,*"OS.NAME"*SCOPE *
 SSID     EQU    1
          ELSE
*IF,-DEF,MSS
 SSID     EQU    NMSI        NAM SUBSYSTEM ID VALUE 
*ENDIF
*IF,DEF,MSS      FOR CDC INTERNAL USE ONLY
 SSID     EQU    MFSI        MSS SUBSYSTEM ID VALUE 
*ENDIF           FOR CDC INTERNAL USE ONLY
          ENDIF 
* 
*         ABSTRACT           THIS SUBROUTINE CALLS SYSTEM ROUTINE 
*                            SYS= TO ISSUE AN RA+1 REQUEST AND
*                            STORES A COPY OF THE REQUEST AT NETRA. 
* 
*         PARAMETERS: 
*                INPUT       A1 CONTAINS ADDRESS OF A PARAMETER LIST
*                            PARAMETER LIST CONTAINS ADDRESS OF REQUEST 
*                OUTPUT      NONE 
* 
NP$OSIF   DATA   0
          SA1    A1          FETCH A(PLIST) 
          SA1    X1          FETCH REQUEST
          BX6    X1          MOVE REQUEST TO X6 
          SA6    NETRA       SAVE REQUEST 
          RJ     SYS=        CALL SYS= TO ISSUE RA+1 REQUEST IN X6
          SA1    XJPR        CHECK CEJ/MEJ ENABLED SWITCH 
          MI     X1,NP$OS2   BRANCH IF CEJ/MEJ ENABLED
 
*         CEJ/MEJ DISABLED
 
          MX1    18 
 NP$OS1   SA2    1           READ RA+1 WORD 
          BX2    X1*X2
          NZ     X2,NP$OS1   LOOP UNTIL RA+1 CALL ACCEPTED
 
 NP$OS2   BSS    0
          EQ     NP$OSIF     RETURN 
* 
NETRA     BSSZ   1                                                      001900
* 
          EJECT 
 
          ENTRY  SS$ID       NIP SCP IDENT
 SS$ID    VFD    42/0,18/SSID 
* 
          END                                                           002000