Table of Contents

NP$CSYS

Table Of Contents

  • [00007] NP$CSYS - RA+1 CALL FROM SYMPL
  • [00008] RA+1 CALL PROCESSOR FOR SYMPL PROCEEDURES

Source Code

NP$CSYS.txt 
  1. *DECK NP$CSYS 
  2.           IDENT  NP$CSYS
  3.           SST 
  4.  
  5.           ENTRY  NP$CSYS
  6.  
  7.           TITLE  NP$CSYS - RA+1 CALL FROM SYMPL 
  8. **        NP$CSYS - RA+1 CALL PROCESSOR FOR SYMPL PROCEEDURES 
  9. * 
  10. *         L. T. NGUYEN       83/03/18 
  11.           SPACE  4
  12. **        THIS ROUTINE PUTS INTO RA+1 A REQUEST FOR A PP
  13. *         ROUTINE AS FORMATTED BY THE CALLING ROUTINE.
  14. * 
  15. *         ENTRY - (A1) IS THE PARAMETER LIST ADDRESS
  16. * 
  17. *         PARAMETER LIST FORMAT 
  18. *                ADDRESS OF RA+1 REQUEST
  19. * 
  20. *         PROCESSING - GET REQUEST AND STORE IT IN RA+1 
  21. * 
  22. *         EXIT - NONE 
  23. * 
  24. *         USES
  25. *                A - 2,6
  26. *                X - 2,6
  27. * 
  28. *         CALLS - SYS=
  29.           SPACE  4
  30.  NP$CSYS  SUBR
  31.           SA2    X1          REQUEST IN X2
  32.           BX6    X2 
  33.           RJ     =XSYS= 
  34.           EQ     NP$CSYSX    RETURN 
  35.  
  36.           END