*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