Retro1.org codex

*DECK NP$CSYS 
          IDENT  NP$CSYS
          SST 
 
          ENTRY  NP$CSYS
 
          TITLE  NP$CSYS - RA+1 CALL FROM SYMPL 
**        NP$CSYS - RA+1 CALL PROCESSOR FOR SYMPL PROCEEDURES 
* 
*         L. T. NGUYEN       83/03/18 
          SPACE  4
**        THIS ROUTINE PUTS INTO RA+1 A REQUEST FOR A PP
*         ROUTINE AS FORMATTED BY THE CALLING ROUTINE.
* 
*         ENTRY - (A1) IS THE PARAMETER LIST ADDRESS
* 
*         PARAMETER LIST FORMAT 
*                ADDRESS OF RA+1 REQUEST
* 
*         PROCESSING - GET REQUEST AND STORE IT IN RA+1 
* 
*         EXIT - NONE 
* 
*         USES
*                A - 2,6
*                X - 2,6
* 
*         CALLS - SYS=
          SPACE  4
 NP$CSYS  SUBR
          SA2    X1          REQUEST IN X2
          BX6    X2 
          RJ     =XSYS= 
          EQ     NP$CSYSX    RETURN 
 
          END