Table of Contents

NP$OSIF

Table Of Contents

Source Code

NP$OSIF.txt 
  1. *DECK NP$OSIF 
  2.           IDENT  NP$OSIF
  3. *IF DEF,IMS 
  4. *#                                                                       NAMA614
  5. *1DC  NP$OSIF 
  6. *                                                                        NAMA614
  7. *     1. PROC NAME         AUTHOR               DATE                     NAMA614
  8. *         NP$OSIF          S.KRULEVITCH          77/05/23 
  9. *                                                                        NAMA614
  10. *     2. FUNCTIONAL DESCRIPTION                                          NAMA614
  11. *        FORMATS A CALL TO SYS= WHICH CANNOT BE CALLED FROM A SYMPL      NAMA614
  12. *        ROUTINE.                                                        NAMA614
  13. *                                                                        NAMA614
  14. *     3. METHOD USED                                                     NAMA614
  15. *        (NOT APPLICABLE)                                                NAMA614
  16. *                                                                        NAMA614
  17. *     4. ENTRY CONDITIONS                                                NAMA614
  18. *        SSCALL WORD IS PICKED-UP FROM A SYMPL CALL SEQUENCE             NAMA614
  19. *                                                                        NAMA614
  20. *     5. EXIT CONDITIONS                                                 NAMA614
  21. *        NONE                                                            NAMA614
  22. *                                                                        NAMA614
  23. *     6. COMDECKS CALLED                                                 NAMA614
  24. *        NP$CRT 
  25. *                                                                        NAMA614
  26. *     7. ROUTINES CALLED                                                 NAMA614
  27. *        SYS=                                                            NAMA614
  28. *                                                                        NAMA614
  29. *     8. DAYFILE MESSAGES                                                NAMA614
  30. *        NONE                                                            NAMA614
  31. *#                                                                       NAMA614
  32. *ENDIF
  33. *CALL NP$CRT
  34.           ENTRY  NP$OSIF
  35.           ENTRY  NETRA
  36.           EXT    SYS= 
  37.           IPARAMS 
  38.           SYSCOM
  39.           SST 
  40. OPL       XTEXT  COMSPRD
  41.  OPL      XTEXT  COMSSSD     NOS SUBSYSTEM ID COMDECK 
  42.           IFC    EQ,*"OS.NAME"*SCOPE *
  43.  SSID     EQU    1
  44.           ELSE
  45. *IF,-DEF,MSS
  46.  SSID     EQU    NMSI        NAM SUBSYSTEM ID VALUE 
  47. *ENDIF
  48. *IF,DEF,MSS      FOR CDC INTERNAL USE ONLY
  49.  SSID     EQU    MFSI        MSS SUBSYSTEM ID VALUE 
  50. *ENDIF           FOR CDC INTERNAL USE ONLY
  51.           ENDIF 
  52. * 
  53. *         ABSTRACT           THIS SUBROUTINE CALLS SYSTEM ROUTINE 
  54. *                            SYS= TO ISSUE AN RA+1 REQUEST AND
  55. *                            STORES A COPY OF THE REQUEST AT NETRA. 
  56. * 
  57. *         PARAMETERS: 
  58. *                INPUT       A1 CONTAINS ADDRESS OF A PARAMETER LIST
  59. *                            PARAMETER LIST CONTAINS ADDRESS OF REQUEST 
  60. *                OUTPUT      NONE 
  61. * 
  62. NP$OSIF   DATA   0
  63.           SA1    A1          FETCH A(PLIST) 
  64.           SA1    X1          FETCH REQUEST
  65.           BX6    X1          MOVE REQUEST TO X6 
  66.           SA6    NETRA       SAVE REQUEST 
  67.           RJ     SYS=        CALL SYS= TO ISSUE RA+1 REQUEST IN X6
  68.           SA1    XJPR        CHECK CEJ/MEJ ENABLED SWITCH 
  69.           MI     X1,NP$OS2   BRANCH IF CEJ/MEJ ENABLED
  70.  
  71. *         CEJ/MEJ DISABLED
  72.  
  73.           MX1    18 
  74.  NP$OS1   SA2    1           READ RA+1 WORD 
  75.           BX2    X1*X2
  76.           NZ     X2,NP$OS1   LOOP UNTIL RA+1 CALL ACCEPTED
  77.  
  78.  NP$OS2   BSS    0
  79.           EQ     NP$OSIF     RETURN 
  80. * 
  81. NETRA     BSSZ   1                                                      001900
  82. * 
  83.           EJECT 
  84.  
  85.           ENTRY  SS$ID       NIP SCP IDENT
  86.  SS$ID    VFD    42/0,18/SSID 
  87. * 
  88.           END                                                           002000