*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