Retro1.org codex

*DECK NP$GJO
*IF DEF,XFR 
          IDENT  NP$GJO 
 
          ENTRY  NP$GJO 
          SST 
 OPL      XTEXT  COMCMAC
 
**        NP$GJO - GET JOB ORIGIN FROM O.S. 
* 
*         L.T. NGUYEN        84/04/11.
 
 
**        NP$GJO RETURNS JOB ORIGIN TO NETXFR.
 
*         CALL FORMAT 
*                 NP$GJO(ORIGIN)
* 
*         ENTRY - NONE. 
* 
* 
*         EXIT   ORIGIN = JOB ORIGIN FROM O.S.
* 
*         USES   A - 1,2,5,6. 
*                B - 1. 
*                X - 1,2,4,5,6,7. 
* 
* 
*         MACROS GETJO. 
 
 NP$GJO   DATA   0           ENTRY/EXIT 
          GETJO  RESPW
          MX0    42 
          SA2    RESPW
          BX7    -X0*X2 
          SA7    X1          RESPONSE TO CALLER 
          EQ     NP$GJO      RETURN 
 
 RESPW    BSSZ   1           INFORMATION RETURN AREA
          END 
 
*ENDIF