Retro1.org codex

*DECK NP$DMB
          IDENT  NP$DMB 
          ENTRY  NP$DMB 
*#
*         NP$DMB DUMP FIELD LENGTH TO ZZZZDMB FILE
* 
*         CALL NP$DMB(DUMPID,ECS) 
* 
*         ENTRY  DUMPID - ID NUMBER FOR THE DUMP
*                ECS - NOT ZERO CAUSE ECS TO BE DUMPED ALSO 
* 
*         EXIT   NONE.
* 
* 
*#
 NP$DMB   SUBR   =
          SA2    X1          DUMP ID
          SA3    A1+1        BOOLEAN ECS PARAM ADDRESS
          SA3    X3          ECS FLAG 
          SYSTEM DMB,R,X2,X3
          EQ     NP$DMB 
          END 
 
          IDENT  NP$DATE
          ENTRY  NP$DATE
          TITLE  NP$DATE - OBTAIN DATE. 
          COMMENT   OBTAIN DATE.
 NP$DATE  SPACE  4,10 
*#
*         NP$DATE - OBTAIN DATE.
* 
*         CALL NP$DATE (STATUS) 
* 
*         ENTRY  NONE 
* 
*         EXIT   (STATUS) = DATE
*         60/ * YY/MM/DD.*
* 
*         NP$DATE (STATUS);     (SYMPL CALL)
* 
*         EXIT  - STATUS, A CHARACTER ITEM TO CONTAIN THE TIME
 
*#
 
 NP$DATE  SUBR   =
*CALL NETDATE 
          EQ     NP$DATEX 
 
          END 
          IDENT  NP$MSG 
          ENTRY  NP$MSG 
          TITLE  NP$MSG  - SEND MESSAGE.
          COMMENT   SEND MESSAGE. 
 NP$MSG   SPACE  4,10 
*#
*         NP$MSG - SEND MESSAGE.
* 
*         CALL NP$MSG  (TEXT,OPTION)
* 
*         ENTRY  (TEXT) = MESSAGE ARRAY, TERMINATED BY ZERO BYTE
*                (OPTION) = 0, SEND MESSAGE TO SYSTEM DAYFILE,
*                              LOCAL JOB DAYFILE, AND A AND B DISPLAYS
*                         = 1, SEND MESSAGE TO LINE 1 OF CONTROL POINT
*                         = 2, SEND MESSAGE TO LINE 2 OF CONTROL POINT
*                         = 3, SEND MESSAGE TO USER DAYFILE AND LINE
*                              1 OF CONTROL POINT 
*                         = 4, SEND MESSAGE TO ERROR LOG DAYFILE
*                         = 5, SEND MESSAGE TO ACCOUNT DAYFILE
*                         = 6, SAME AS 0
*                         = 7, SAME AS 3
*                         = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE
* 
*         NP$MSG (TEXT,OPTION);  ( SYMPL CALL ) 
* 
*         ENTRY - TEXT, AN ARRAY WITH THE TEXT IN IT, OR AN ITEM
*                       WITH TEXT IN IT 
*                 OPTION, AN ITEM CONTAINING ONE OF THE OPTIONS 
 
*#
 
 
 
 NP$MSG   SUBR   =
*CALL NETMSG
 OUT      EQ     NP$MSGX
 
          END 
*CALL NP$READ 
*CALL NP$ROUT 
          IDENT  NP$RTIM
          ENTRY  NP$RTIM
          TITLE  NP$RTIM - ACCUMULATED REAL TIME SINCE DEADSTART
*IF DEF,IMS 
*#
*1DC NP$RTIM
* 
*     1. SUBROUTINE NAME     AUTHOR              DATE 
*        NP$RTIM             S. KRULEVITCH       78/11/21 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THIS ROUTINE RETURNS THE REAL TIME SINCE DEADSTART IN
*        MILLISECONDS AND SECONDS. COMMON DECK NP$RTIM IS SHARED WITH 
*        THE MACREL ROUTINE IN NAMLIB.
* 
*     3. METHOD USED
*        SYMPL CALL:  NP$RTIM(STAT);
* 
*     4. ENTRY PARAMETER
*        STAT - AN ADDRESS TO RECEIVE THE TIME
* 
*     5. EXIT PARAMETER 
*        STAT - REAL TIME 
*               24/SECONDS,36/MILLISECONDS
* 
*     6. COMMON DECKS CALLED
*        NP$RTIM
* 
*     7. MACROS CALLED
*        RTIME - REAL TIME SINCE DEADSTART
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*#
*ENDIF
 NP$RTIM  SUBR   =
*CALL NP$RTIM 
          EQ     NP$RTIMX 
          END 
*CALL NP$RWD
*CALL NP$SLOF 
          IDENT  NP$TIM 
          ENTRY  NP$TIM 
          TITLE  NP$TIM - ACCUMULATED CENTRAL PROCESSOR TIME. 
          COMMENT   ACCUMULATED CENTRAL PROCESSOR TIME. 
 NP$TIM   SPACE  4,10 
*#
*         NP$TIM - ACCUMULATED CENTRAL PROCESSOR TIME.
* 
*         CALL NP$TIM(STAT) 
* 
*         ENTRY  (STAT) = ADDRESS TO RECEIVE THE CPU TIME 
* 
*         EXIT   (STAT) = CPU TIME
*         24/0, 24/CPSECS, 12/MLSECS
* 
*         NP$TIM(STAT);          (SYMPL CALL) 
* 
*         ENTRY - STAT,AN ITEM TO RECEIVE THE CPU TIME
*#
 NP$TIM   SUBR   =
*CALL NETTIM
          EQ     NP$TIMX
          END 
 
          IDENT  NP$WRTO
          ENTRY  NP$WRTO
          TITLE  NP$WRTO - WRITES ONE WORD TO FILE
          COMMENT  WRITES ONE WORD TO FILE
*IF DEF,IMS 
*#
*1DC NP$WRTO
* 
*     1. SUBROUTINE NAME     AUTHOR              DATE 
*        NP$WRTO             S. KRULEVITCH       78/12/04 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THIS ROUTINE WRITES ONE WORD TO THE CIRCULAR IO BUFFER.
* 
*     3. METHOD USED
*        COMMON DECK NP$WRTO IS SHARED WITH THE MACREL ROUTINE IN NAMLIB. 
*        SYMPL CALL:  NP$WRTO(FILE,WORD); 
* 
*     4. ENTRY PARAMETERS 
*        FILE - FIRST WORD OF THE FET 
*        WORD - WORD TO BE TRANSFERRED
* 
*     5. EXIT PARAMETERS
*        NONE 
* 
*     6. COMMON DECKS CALLED
*        NP$WRTO
* 
*     7. DAYFILE MESSAGES 
*        NONE 
* 
*#
*ENDIF
 NP$WRTO  SUBR   =
          MX4    5           MASK FOR ABNORMAL TERMINATION FIELD IN FET 
          SA2    X1          X2 = FIRST WORD OF FET 
          LX4    9+5         SHIFT MASK TO POSITION OF ABNORMAL TERM FLD
          BX5    X4*X2       EXTRACT ABNORMAL TERMINATION FIELD FROM FET
          NZ     X5,NP$WRTOX IF I/O ERROR HAS OCCURRED ON FILE
 
*CALL NP$WRTO 
          EQ     NP$WRTOX 
          END 
 
          IDENT  NP$WRTR
          ENTRY  NP$WRTR
          TITLE  NP$WRTR - WRITE END OF RECORD. 
          COMMENT   WRITE END OF RECORD.
 NP$WRTR  SPACE  4,10 
*#
*1DC NP$WRTR
* 
*         1. SUBROUTINE      AUTHOR              DATE 
*            NP$WRTR         E. GEE              86/01/28 
* 
*         2. FUNCTIONAL DESCRIPTION.
*            WRITE END OF RECORD TO FILE. 
* 
*            SYMPL CALL:  NP$WRTR(FILE,LEVEL);
* 
*                         WHERE FILE  = FIRST WORD ADDRESS OF THE FET 
*                               LEVEL = END OF RECORD LEVEL NUMBER
* 
*         3. METHOD USED. 
*            IF I/O ERROR HAS OCCURRED, 
*              RETURN.
*            ELSE (NO I/O ERROR ON FILE), 
*              EXECUTE WRITER NOS MACRO.
* 
*         4. ENTRY PARAMETERS.
*            A1              ADDRESS OF PARAMETER LIST CONTAINING INPUT 
*                            PARAMETERS 
* 
*         5. EXIT PARAMETERS. 
*            NONE.
* 
*         6. COMMON DECKS CALLED. 
*            NETWRTR         COMPASS CODE TO EXECUTE WRITER MACRO 
* 
*         7. SUBROUTINES AND MACROS CALLED. 
*            WRITER          WRITE END OF RECORD NOS MACRO
* 
*         8. DAYFILE MESSAGES.
*            NONE.
* 
*#
 
 NP$WRTR  SUBR   =
          MX4    5           MASK FOR ABNORMAL TERMINATION FIELD IN FET 
          SA2    X1          X2 = FIRST WORD OF FET 
          LX4    9+5         SHIFT MASK TO POSITION OF ABNORMAL TERM FLD
          BX5    X4*X2       EXTRACT ABNORMAL TERMINATION FIELD FROM FET
          NZ     X5,NP$WRTRX IF I/O ERROR HAS OCCURRED ON FILE
*CALL NETWRTR 
          EQ     NP$WRTRX 
 
          END 
          IDENT  NP$WRTW
          ENTRY  NP$WRTW
          TITLE  NP$WRTW - WRITE DATA FROM WORKING BUFFER.
          COMMENT   WRITE DATA FROM WORKING BUFFER. 
 NP$WRTW  SPACE  4,10 
*#
*1DC NP$WRTW
* 
*         1. SUBROUTINE      AUTHOR              DATE 
*            NP$WRTW         E. GEE              86/01/28 
* 
*         2. FUNCTIONAL DESCRIPTION.
*            WRITE DATA TO CIO BUFFER FROM WORKING STORAGE AREA 
* 
*            SYMPL CALL:  NP$WRTW(FILE,BUF,N);
* 
*                         WHERE FILE = FIRST WORD ADDRESS OF THE FET
*                               BUF  = ADDRESS OF WORKING STORAGE AREA
*                               N    = NO OF WORDS TO COPY TO CIO BUF 
* 
*         3. METHOD USED. 
*            IF I/O ERROR HAS OCCURRED, 
*              RETURN.
*            ELSE (NO I/O ERROR ON FILE), 
*              EXECUTE WRITEW NOS MACRO.
* 
*         4. ENTRY PARAMETERS.
*            A1              ADDRESS OF PARAMETER LIST CONTAINING INPUT 
*                            PARAMETERS 
* 
*         5. EXIT PARAMETERS. 
*            NONE.
* 
*         6. COMMON DECKS CALLED. 
*            NETWRTW         COMPASS CODE TO EXECUTE WRITEW MACRO 
* 
*         7. SUBROUTINES AND MACROS CALLED. 
*            WRITEW          WRITE DATA TO CIO BUF FROM WSA 
* 
*         8. DAYFILE MESSAGES.
*            NONE.
* 
*#
 
 NP$WRTW  SUBR   =
          MX4    5           MASK FOR ABNORMAL TERMINATION FIELD IN FET 
          SA2    X1          X2 = FIRST WORD OF FET 
          LX4    9+5         SHIFT MASK TO POSITION OF ABNORMAL TERM FLD
          BX5    X4*X2       EXTRACT ABNORMAL TERMINATION FIELD FROM FET
          NZ     X5,NP$WRTWX IF I/O ERROR HAS OCCURRED ON FILE
 
*CALL NETWRTW 
          EQ     NP$WRTWX 
 
          END 
          IDENT  NP$XCDD
          B1=1
          LIST   F
          TITLE  NP$XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
          COMMENT   CONVERT INTEGER TO DECIMAL DISPLAY CODE.
 NP$XCDD  SPACE  4,10 
*#
*         NP$XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
* 
*         HOLLERITH = NP$XCDD (INTEGER) 
* 
*         XX = NP$XCDD(YY);     (SYMPL CALL)
* 
*         ENTRY - YY, AN ITEM THAT CONTAINS THE INTEGER TO BE CONVERTED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
*#
 
 NP$XCDD  SUBR   =           ENTRY/EXIT 
*CALL NETXCDD 
 
          END