cdc:nos2.source:opl871:mac1
Table of Contents
MAC1
Table Of Contents
- [00005] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- [00009] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- [00026] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- [00058] MACREL. - UNDEFINED MACRO PROCESSOR.
- [00078] MACREL= - ILLEGAL ARGUMENT PROCESSOR.
- [00113] ABORT - ABORT JOB / ENDRUN - END CENTRAL PROGRAM.
- [00151] BKSP - BACKSPACE 1 LOGICAL RECORD.
- [00189] BKSPRU - BACKSPACE PHYSICAL RECORDS.
- [00233] CHECKPT - TAKE CHECKPOINT DUMP.
- [00273] CLOCK - OBTAIN TIME OF DAY.
- [00308] CLOSE - CLOSE FILE.
- [00403] CLOSER - CLOSE REEL.
- [00487] CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
- [00519] DATE - OBTAIN DATE.
- [00553] EDATE - EDIT DATE FROM PACKED FORMAT.
- [00590] ETIME - EDIT TIME FROM PACKED FORMAT.
- [00627] EVICT - RELEASE FILE SPACE.
- [00665] FILINFO - FILE INFORMATION.
- [00702] GETJN - GET JOB SEQUENCE NUMBER.
- [00730] JDATE - OBTAIN JULIAN DATE.
- [00765] MACHID - GET TWO CHARACTER MACHINE *ID*.
- [00794] MEMORY - REQUEST MEMORY.
- [00883] MESSAGE - SEND MESSAGE.
- [00936] MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS.
- [00977] MOVEI - MOVE A BLOCK OF CM WORDS.
- [01023] OPEN - OPEN FILE FOR PROCESSING.
- [01185] PDATE - RETURN PACK DATE AND TIME.
- [01214] PFD - PERMANENT FILE REQUEST DELAYS.
- [01285] POSMF - POSITION MULTI-FILE SET.
- [01324] READ - READ FILE TO *CIO* BUFFER.
- [01362] READC - READ CODED LINE IN *C* FORMAT.
- [01414] READCW - READ FILE NON-STOP WITH CONTROL WORDS.
- [01460] READEI - READ FILE TO END OF INFORMATION.
- [01497] READH - READ CODED LINE IN *H* FORMAT.
- [01548] READLS - READ FILE WITH LIST.
- [01586] READN - READ FILE NON-STOP FOR TAPES.
- [01623] READNS - READ FILE NON-STOP (READ TO EOF).
- [01661] READO - READ ONE WORD.
- [01706] READS - READ CODED LINE TO CHARACTER BUFFER.
- [01759] READSKP - READ FILE AND SKIP.
- [01808] READW - READ DATA TO WORKING BUFFER.
- [01859] RECALL - PLACE PROGRAM IN RECALL STATUS.
- [01897] RENAME - RENAME ASSIGNED FILE.
- [01935] REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
- [01964] REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
- [02005] RETURN - RETURN FILE TO SYSTEM.
- [02049] REWIND - REWIND FILE.
- [02087] REWRITE - REWRITE DATA FROM *CIO* BUFFER.
- [02126] REWRITF - REWRITE END OF FILE.
- [02165] REWRITR - REWRITE END OF RECORD.
- [02204] ROLLOUT - ROLLOUT THE JOB.
- [02234] ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
- [02272] RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
- [02310] RPHRLS - READ PRUS WITH LIST.
- [02348] RTIME - OBTAIN REAL TIME CLOCK READING.
- [02385] SETJCI - SET JOB CONTROL INFORMATION.
- [02433] SKIPB - SKIP RECORDS BACKWARDS.
- [02474] SKIPEI - SKIP TO END OF INFORMATION.
- [02512] SKIPF - SKIP RECORDS FORWARD.
- [02554] SKIPFB - SKIP FILES BACKWARD.
- [02597] SKIPFF - SKIP FILES FORWARD.
- [02639] SYSTEM - REQUEST SYSTEM FUNCTION.
- [02683] TIME - OBTAIN ACCUMULATED CPU TIME.
- [02717] UNLOAD - UNLOAD FILE.
- [02755] VERSION - RETURN THE OPERATING SYSTEM VERSION NAME.
- [02791] WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
- [02829] WRITE - WRITE DATA FROM *CIO* BUFFER.
- [02867] WRITEC - WRITE CODED LINE IN *C* FORMAT.
- [02902] WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
- [02941] WRITEF - WRITE END OF FILE.
- [02979] WRITEH - WRITE CODED LINE IN *H* FORMAT.
- [03019] WRITEN - WRITE FILE NON-STOP FOR TAPES.
- [03058] WRITEO - WRITE ONE WORD.
- [03093] WRITER - WRITE END OF RECORD.
- [03131] WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
- [03171] WRITEW - WRITE DATA FROM WORKING BUFFER.
- [03216] XARG - CRACK CONTROL STATEMENT PARAMETERS.
- [03276] XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
- [03310] XCFD - CONVERT INTEGER TO F10.3 FORMAT.
- [03343] XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
- [03397] XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
- [03430] XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
- [03484] XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE.
- [03526] XREL - COMMON DECK INTERFACE ROUTINES.
- [03530] XREL - COMMON DECK INTERFACE ROUTINES.
- [03539] XREL. - UNDEFINED COMMON DECK PROCESSOR.
- [03560] XREL= - ILLEGAL ARGUMENT PROCESSOR.
- [03595] XSFN - SPACE FILL NAME.
- [03631] XSFW - SPACE FILL WORD.
- [03707] XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
- [03748] XZAP - *Z* ARGUMENT PROCESSOR.
Source Code
- MAC1.txt
- IDENT MACREL
- SYSCOM B1
- ENTRY MACREL.
- ENTRY MACREL=
- TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- *COMMENT SYSTEM MACRO INTERFACE ROUTINES.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MACREL SPACE 4,10
- ** MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- *
- * T. R. RAMSEY. 76/08/08.
- * M. D. PICKARD 77/03/14.
- * J. D. BRANHAM. 78/09/12.
- *
- MACREL SPACE 4,10
- ** *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT
- * PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
- * AND THE SYSTEM MACROS.
- *
- * *FORTRAN* CALLING SEQUENCES ARE SHOWN IN EACH MODULE ALONG
- * WITH OTHER PERTINENT INFORMATION, E.G., ENTRY, EXIT.
- *
- * ALSO *SYMPL* CALLING SEQUENCES ARE SHOWN IN EACH MODULE
- * ALONG WITH THE APPROPRIATE *SYMPL* DATA TYPES NEEDED
- * FOR ENTRY/EXIT.
- TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES.
- MACREL SPACE 4,10
- ** *MACREL* MODULES TRANSLATE PARAMETERS IN HIGHER LEVEL
- * LANGUAGE CALLING SEQUENCES INTO MACRO CALLING SEQUENCES.
- * *FORTRAN* CALLING SEQUENCES MENTIONED ARE EQUIVALENT TO
- * COBOL (ENTER USING), *SYMPL*, ETC.
- *
- * ENTRY *FORTRAN* CALL AND FUNCTION REFERENCE CALLING
- * SEQUENCES USE THE ACTUAL PARAMETER LIST, CALL BY
- * REFERENCE CALLING SEQUENCE WHERE -
- * (A1) = FWA OF PARAMETER ADDRESS LIST.
- * ((A1)) = FIRST PARAMETER
- * ((A1+1)) = SECOND PARAMETER
- * . .
- * . .
- * . .
- * ((A1+N)) = N-TH PARAMETER
- * ((A1+N+1)) = 0 (ZERO) (NOMINALLY)
- * (X1) = FIRST PARAMETER
- *
- * EXIT (X6) = FUNCTION RESULT.
- * (X7) = SECOND WORD OF TWO WORD RESULT, E.G., COMPLEX.
- *
- * NEEDS EACH MODULE CONTAINS A CALL TO A MACRO WHOSE NAME IS
- * THE SAME AS THE MODULE (EXCEPT WHERE NOTED). THESE
- * MACROS ARE DEFINED IN *PSSTEXT* AND *NOSTEXT*.
- *
- * NOTE B1 IS SET TO ONE UPON ENTRY TO EACH MODULE
- *
- * OTHER *MACREL* IS A COLLECTION OF RELOCATABLE MODULES
- * COMBINED INTO ONE *MODIFY* DECK ENTITY NAMED *LIB*.
- MACREL. SPACE 4,10
- ** MACREL. - UNDEFINED MACRO PROCESSOR.
- *
- * ENTRY (X1) = MACRO NAME IN 0L FORMAT.
- *
- * USES X - 6.
- * A - 6.
- * B - 1.
- *
- * MACROS ABORT, MESSAGE.
- MACREL. SUBR ENTRY/EXIT
- SB1 1
- BX6 X1
- SA6 MACA+3
- MESSAGE MACA,LOCAL,R
- ABORT
- MACA DATA C* MACREL - UNDEFINED MACRO - FILL-IN.*
- MACREL= SPACE 4,10
- ** MACREL= - ILLEGAL ARGUMENT PROCESSOR.
- *
- * ENTRY (X1) = MACRO NAME IN 0L FORMAT.
- * (X2) = THE ILLEGAL ARGUMENT.
- *
- * USES X - 0, 1, 2, 6.
- * A - 6.
- * B - 1.
- *
- * CALLS SFW.
- *
- * MACROS ABORT, MESSAGE.
- MACREL= SUBR ENTRY/EXIT
- SB1 1
- BX0 X2 SAVE SECOND ARGUMENT
- LX1 -6
- SX2 1R-
- BX1 X1+X2
- RJ =XSFW
- BX1 X0
- SA6 MACB
- RJ =XSFW
- SA6 MACB+3
- MESSAGE MACB,LOCAL,R
- ABORT
- MACB DATA C* FILL-IN - ILLEGAL ARGUMENT >FILL-IT-IN<.*
- END
- IDENT ABEND
- ENTRY ABORT
- ENTRY ENDRUN
- SYSCOM B1
- TITLE ABORT - ABORT JOB / ENDRUN - END CENTRAL PROGRAM.
- *COMMENT ABORT/ENDRUN.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- ABORT SPACE 4,10
- *** ABORT - ABORT JOB.
- *
- * CALL ABORT
- *
- * ABORT; (*SYMPL* CALL)
- *
- * USES B - 1.
- *
- * MACROS ABORT.
- ABORT SUBR ENTRY/EXIT
- SB1 1
- ABORT
- ENDRUN SPACE 4,10
- *** ENDRUN - END CENTRAL PROGRAM.
- *
- * CALL ENDRUN.
- *
- * ENDRUN; (*SYMPL* CALL)
- *
- * USES B - 1.
- *
- * NOTE - A *STOP;* IN *SYMPL* DOES THE SAME THING.
- ENDRUN SUBR ENTRY/EXIT
- SB1 1
- ENDRUN
- END
- IDENT BKSP
- ENTRY BKSP
- SYSCOM B1
- TITLE BKSP - BACKSPACE 1 LOGICAL RECORD.
- *COMMENT BACKSPACE 1 LOGICAL RECORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- BKSP SPACE 4,10
- *** BKSP - BACKSPACE 1 LOGICAL RECORD.
- *
- * CALL BKSP (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * BKSP(FILE,R); ( *SYMPL* CALL )
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS BKSP.
- BKSP SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF RECALL
- SA2 X2 RECALL VALUE
- NZ X2,BKS1 IF RECALL
- BKSP X1
- EQ BKSPX
- BKS1 BKSP X1,R
- EQ BKSPX
- END
- IDENT BKSPRU
- ENTRY BKSPRU
- SYSCOM B1
- TITLE BKSPRU - BACKSPACE PHYSICAL RECORDS.
- *COMMENT BACKSPACE PHYSICAL RECORDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- BKSPRU SPACE 4,10
- *** BKSPRU - BACKSPACE PHYSICAL RECORDS.
- *
- * CALL BKSPRU (FILE,N,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (N) = NUMBER OF RECORDS.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * BKSPRU(FILE,N,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (N) = AN ITEM CONTAINING THE NUMBER OF PRU*S TO
- * BACKSPACE
- * (R) = RECALL,IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS BKSPRU.
- *
- BKSPRU SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF N
- SA2 A3+B1 GET RECALL PARAMETER
- SA3 X3 N
- SA2 X2
- NZ X2,BKP1 IF RECALL REQUESTED
- BKSPRU X1,X3
- EQ BKSPRUX
- BKP1 BKSPRU X1,X3,R
- EQ BKSPRUX
- END
- IDENT CHECKPT
- ENTRY CHECKPT
- SYSCOM B1
- TITLE CHECKPT - TAKE CHECKPOINT DUMP.
- *COMMENT TAKE CHECKPOINT DUMP.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- CHECKPT SPACE 4,10
- *** CHECKPT - TAKE CHECKPOINT DUMP.
- *
- * CALL CHECKPT (LIST,OPTION)
- *
- * ENTRY (LIST) = LIST OF FILE PROCESSING SPECIFICATIONS.
- * (OPTION) = 0, PROCESS ALL FILES.
- * = OTHER, PROCESS ONLY THE SPECIFIED FILES.
- *
- * CHECKPT(LIST,OPTION); (*SYMPL* CALL)
- *
- * ENTRY LIST, AN ARRAY THAT CONTAINS A LIST OF FILE
- * PROCESSING SPECIFICATIONS.
- * OPTION, AN ITEM THAT CONTAINS THE OPTION.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS CHECKPT.
- CHECKPT SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF OPTION
- SA2 X2 OPTION
- ZR X2,CHE1 IF ALL FILES TO BE PROCESSED
- CHECKPT X1,OPTION
- EQ CHECKPTX
- CHE1 CHECKPT X1
- EQ CHECKPTX
- END
- IDENT CLOCK
- ENTRY CLOCK
- SYSCOM B1
- TITLE CLOCK - OBTAIN TIME OF DAY.
- *COMMENT OBTAIN TIME OF DAY.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- CLOCK SPACE 4,10
- *** CLOCK - OBTAIN TIME OF DAY.
- *
- * CALL CLOCK (STATUS)
- *
- * EXIT (STATUS) = TIME OF DAY.
- *T 60/ * HH.MM.SS.*
- *
- * CLOCK(STATUS); (*SYMPL* CALL)
- *
- * EXIT STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE
- * CLOCK READING.
- *
- * USES X - 1, 5, 6.
- * A - 1.
- * B - 1.
- *
- * MACROS CLOCK.
- CLOCK SUBR ENTRY/EXIT
- SB1 1
- BX5 X1
- CLOCK X1
- SA1 X5
- BX6 X1 RETURN TIME OF DAY AS FUNCTION RESULT
- EQ CLOCKX
- END
- IDENT CLOSE
- ENTRY CLOSE
- SYSCOM B1
- TITLE CLOSE - CLOSE FILE.
- *COMMENT CLOSE FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- CLOSE SPACE 4,10
- *** CLOSE - CLOSE FILE.
- *
- * CALL CLOSE (FILE,OPTION,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (OPTION) = 0, CLOSE WITH REWIND.
- * = 2HNR, CLOSE WITHOUT REWIND.
- * = 6HRETURN, CLOSE WITH REWIND, RETURN.
- * = 6HREWIND, CLOSE WITH REWIND.
- * = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * CLOSE(FILE,OPTION,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
- * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
- * FILL, OR A BINARY 0.
- * NR (NO REWIND).
- * RETURN.
- * REWIND (SAME AS 0).
- * UNLOAD.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
- *
- * USES X - 2, 3, 4.
- * A - 2, 3, 4.
- * B - 1.
- *
- * CALLS MACREL.
- *
- * MACROS CLOSE.
- CLOSE SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF OPTION
- SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER
- SA2 X2 OPTION
- SA3 X3 RECALL OPTION
- ZR X2,CLO1 IF REWIND
- NO
- SA4 =0HNR
- BX4 X2-X4
- ZR X4,CLO2 IF NR
- SA4 =0HRETURN
- BX4 X2-X4
- ZR X4,CLO6 IF RETURN
- SA4 =0HREWIND
- BX4 X2-X4
- ZR X4,CLO1 IF REWIND
- SA4 =0HUNLOAD
- BX4 X2-X4
- ZR X4,CLO8 IF UNLOAD
- SA1 =0LCLOSE
- RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
- EQ CLOSEX
- CLO1 NZ X3,CLO5 IF RECALL
- CLOSE X1
- EQ CLOSEX
- CLO2 NZ X3,CLO6 IF RECALL
- CLOSE X1,NR
- EQ CLOSEX
- CLO3 NZ X3,CLO7 IF RECALL
- CLOSE X1,RETURN
- EQ CLOSEX
- CLO4 NZ X3,CLO8 IF RECALL
- CLOSE X1,UNLOAD
- EQ CLOSEX
- CLO5 CLOSE X1,,R
- EQ CLOSEX
- CLO6 CLOSE X1,NR,R
- EQ CLOSEX
- CLO7 CLOSE X1,RETURN,R
- EQ CLOSEX
- CLO8 CLOSE X1,UNLOAD,R
- EQ CLOSEX
- END
- IDENT CLOSER
- ENTRY CLOSER
- SYSCOM B1
- TITLE CLOSER - CLOSE REEL.
- *COMMENT CLOSE REEL.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- CLOSER SPACE 4,10
- *** CLOSER - CLOSER REEL.
- *
- * CALL CLOSER (FILE,OPTION,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (OPTION) = 0, CLOSE WITH REWIND.
- * = 2HNR, CLOSE WITHOUT REWIND.
- * = 6HREWIND, CLOSE WITH REWIND.
- * = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * CLOSER(FILE,OPTION,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * OPTION, AN ITEM THE CONTAINS ONE OF THE FOLLOWING
- * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
- * FILL, OR A BINARY 0.
- * NR (NO REWIND).
- * REWIND (SAME AS 0).
- * UNLOAD.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * EXIT TO ARGUMENT ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
- *
- * USES X - 1, 2, 3, 4.
- * A - 1, 2, 3, 4.
- * B - 1.
- *
- * CALLS MACREL.
- *
- * MACROS CLOSER.
- CLOSER SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF OPTION
- SA3 A2+B1 GET RECALL PARAMETER ADDRESS
- SA2 X2 OPTION
- SA3 X3 GET RECALL VALUE
- ZR X2,CLO1 IF REWIND
- NO
- SA4 =0HNR
- BX4 X2-X4
- ZR X4,CLO2 IF NR
- SA4 =0HREWIND
- BX4 X2-X4
- ZR X4,CLO1 IF REWIND
- SA4 =0HUNLOAD
- BX4 X2-X4
- ZR X4,CLO3 IF UNLOAD
- SA1 =0LCLOSER
- RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
- EQ CLOSERX
- CLO1 NZ X3,CLO4 IF RECALL
- CLOSER X1
- EQ CLOSERX
- CLO2 NZ X3,CLO5 IF RECALL
- CLOSER X1,NR
- EQ CLOSERX
- CLO3 NZ X3,CLO6 IF RECALL
- CLOSER X1,UNLOAD
- EQ CLOSERX
- CLO4 CLOSER X1,,R
- EQ CLOSERX
- CLO5 CLOSER X1,NR,R
- EQ CLOSERX
- CLO6 CLOSER X1,UNLOAD,R
- EQ CLOSERX
- END
- IDENT CONSOLE
- ENTRY CONSOLE
- SYSCOM B1
- TITLE CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
- *COMMENT COMMUNICATE WITH THE *K* AND *L* DISPLAY.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- CONSOLE SPACE 4,10
- *** CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
- *
- * CALL CONSOLE (ADDR)
- *
- * CONSOLE(ADDR); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = ADDRESS OF CONSOLE PARAMETER WORD.
- * IF (ADDR) = 0, CONSOLE OPERATIONS ARE TERMINATED.
- *T, 6/0,18/IB,18/RB,18/LB
- * IB = KEYBOARD BUFFER ADDRESS.
- * RB = ADDRESS OF FORMATTED BUFFER FOR RIGHT SCREEN.
- * LB = ADDRESS OF FORMATTED BUFFER FOR LEFT SCREEN.
- *
- * USES B - 1.
- *
- * MACROS CONSOLE.
- CONSOLE BSS 0
- CONSL SUBR ENTRY/EXIT
- SB1 1
- CONSOLE X1
- EQ CONSLX EXIT
- END
- IDENT DATE
- ENTRY DATE
- SYSCOM B1
- TITLE DATE - OBTAIN DATE.
- *COMMENT OBTAIN DATE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- DATE SPACE 4,10
- *** DATE - OBTAIN DATE.
- *
- * CALL DATE (STATUS)
- *
- * EXIT (STATUS) = DATE.
- *T 60/ * YY/MM/DD.*
- *
- * DATE(STATUS); (*SYMPL* CALL)
- *
- * EXIT (STATUS), A CHARACTER ITEM CONTAINING THE TIME.
- *
- * USES X - 1, 5, 6.
- * A - 1.
- * B - 1.
- *
- * MACROS DATE.
- DATE SUBR ENTRY/EXIT
- SB1 1
- BX5 X1
- DATE X1
- SA1 X5
- BX6 X1 RETURN DATE AS FUNCTION RESULT
- EQ DATEX
- END
- IDENT EDATE
- ENTRY EDATE
- SYSCOM B1
- TITLE EDATE - EDIT DATE FROM PACKED FORMAT.
- *COMMENT EDIT DATE FROM PACKED FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- EDATE SPACE 4,15
- *** EDATE - EDIT DATE FROM PACKED FORMAT.
- *
- * STAT = EDATE(PKDT)
- *
- * STAT = EDATE(PKDT); (*SYMPL* CALL)
- *
- * ENTRY (PKDT) = PACKED DATE IN LOWER 18 BITS.
- *
- * EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
- * EDITED DATE IN THE FOLLOWING
- * FORMAT -
- * * YY/MM/DD.*.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * MACROS EDATE.
- EDATE SUBR ENTRY/EXIT
- SB1 1
- SA1 X1 GET PACKED DATE
- EDATE X1
- EQ EDATEX RETURN
- *CALL COMCCDD
- *CALL COMCEDT
- END
- IDENT ETIME
- ENTRY ETIME
- SYSCOM B1
- TITLE ETIME - EDIT TIME FROM PACKED FORMAT.
- *COMMENT EDIT TIME FROM PACKED FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- ETIME SPACE 4,15
- *** ETIME - EDIT TIME FROM PACKED FORMAT.
- *
- * STAT = ETIME(PKTM)
- *
- * STAT = ETIME(PKTM); (*SYMPL* CALL)
- *
- * ENTRY (PKTM) = PACKED TIME IN LOWER 18 BITS.
- *
- * EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
- * EDITED TIME IN THE FOLLOWING
- * FORMAT -
- * * HH.MM.SS.*.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * MACROS ETIME.
- ETIME SUBR ENTRY/EXIT
- SB1 1
- SA1 X1 GET PACKED TIME
- ETIME X1
- EQ ETIMEX RETURN
- *CALL COMCCDD
- *CALL COMCEDT
- END
- IDENT EVICT
- ENTRY EVICT
- SYSCOM B1
- TITLE EVICT - RELEASE FILE SPACE.
- *COMMENT RELEASE FILE SPACE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- EVICT SPACE 4,10
- *** EVICT - RELEASE FILE SPACE.
- *
- * CALL EVICT (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * EVICT(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS EVICT.
- EVICT SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1
- SA2 X2 RECALL VALUE
- NZ X2,EVT1 IF RECALL ON
- EVICT X1
- EQ EVICTX
- EVT1 EVICT X1,R
- EQ EVICTX
- END
- IDENT FILINFO
- ENTRY FILINFO
- SYSCOM B1
- TITLE FILINFO - FILE INFORMATION.
- COMMENT 82/11/15. FILE INFORMATION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** FILINFO - FILE INFORMATION.
- *
- * CALL FILINFO(PAR) *FORTRAN*
- *
- * FILINFO(PAR); *SYMPL*
- *
- * ENTRY (PAR) = FIVE WORD PARAMETER BLOCK.
- * THE FIRST WORD MUST HAVE THE
- * FOLLOWING FORMAT :
- *
- * VFD 42/LFN, 6/LEN, 11/0, 1/1
- *
- * WHERE
- *
- * LFN FILE NAME, LEFT JUSTIFIED, 0 FILLED.
- * LEN MUST BE AT LEAST 5 WORDS.
- *
- * EXIT INFORMATION ABOUT THE FILE IS RETURNED IN THE
- * PARAMETER BLOCK (SEE NOS VERS. 2, VOL. 4).
- *
- * USE B - 1.
- *
- * MACRO FILINFO.
- FILINFO SUBR ENTRY/EXIT
- SB1 1
- FILINFO X1
- EQ FILINFOX RETURN
- END
- IDENT GETJN
- ENTRY GETJN
- SYSCOM 1
- TITLE GETJN - GET JOB SEQUENCE NUMBER.
- *COMMENT GET JOB SEQUENCE NUMBER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- GETJN SPACE 4,10
- *** GETJN - GET JOB SEQUENCE NUMBER.
- *
- * CALL GETJN(ADDR)
- *
- * GETJN(ADDR)
- *
- * ENTRY (ADDR) = ADDRESS TO RECIEVE JOB SEQUENCE NUMBER.
- *
- * EXIT ((ADDR)) = JOB SEQUENCE NUMBER.
- *
- * USES B - 1.
- *
- * MACROS GETJN.
- GETJN SUBR ENTRY/EXIT
- SB1 1
- GETJN X1
- EQ GETJNX EXIT
- END
- IDENT JDATE
- ENTRY JDATE
- SYSCOM B1
- TITLE JDATE - OBTAIN JULIAN DATE.
- *COMMENT OBTAIN JULIAN DATE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- JDATE SPACE 4,10
- *** JDATE - OBTAIN JULIAN DATE.
- *
- * CALL JDATE (STATUS)
- *
- * EXIT (STATUS) = JULIAN DATE.
- *T 30/ 0, 30/ *YYDDD*
- *
- * JDATE(STATUS); (*SYMPL* CALL)
- *
- * EXIT STATUS, A CHARACTER ITEM TO CONTAIN JULIAN
- * DATE ON EXIT.
- *
- * USES X - 1, 5, 6.
- * A - 1.
- * B - 1.
- *
- * MACROS JDATE.
- JDATE SUBR ENTRY/EXIT
- SB1 1
- BX5 X1
- JDATE X1
- SA1 X5
- BX6 X1 RETURN JULIAN DATE AS FUNCTION RESULT
- EQ JDATEX
- END
- IDENT MACHID
- ENTRY MACHID
- SYSCOM 1
- TITLE MACHID - GET TWO CHARACTER MACHINE *ID*.
- *COMMENT GET TWO CHARACTER MACHINE *ID*.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MACHID SPACE 4,10
- *** MACHID - GET TWO CHARACTER MACHINE *ID*.
- *
- * CALL MACHID (ADDR)
- *
- * MACHID(ADDR); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = ADDRESS TO RECEIVE MACHINE *ID*.
- *
- * EXIT ((ADDR)) = MACHINE *ID*.
- *
- * USES B - 1.
- *
- * MACROS MACHID.
- MACHID SUBR ENTRY/EXIT
- SB1 1
- MACHID X1
- EQ MACHIDX EXIT
- END
- IDENT MEMORY
- ENTRY MEMORY
- SYSCOM B1
- TITLE MEMORY - REQUEST MEMORY.
- *COMMENT REQUEST MEMORY.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MEMORY SPACE 4,10
- *** MEMORY - REQUEST MEMORY.
- *
- * CALL MEMORY(TYPE,STATUS,R,NA)
- *
- * ENTRY (TYPE) = 2HCM OR 3HSCM OR 3HECS OR 3HLCM.
- * (STATUS) = 30/N,30/0 N=AMOUNT REQUESTED.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- * (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
- * IF THE REQUESTED MEMORY IS NOT AVAILABLE.
- * IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
- * THE CURRENT FIELD LENGTH IS RETURNED IN
- * BITS 59-30 OF *STATUS*.
- *
- * MEMORY(TYPE,STATUS,R,NA); (*SYMPL* CALL)
- *
- * ENTRY TYPE, AN ITEM CONTAINING A *CM* OR *SCM*, LEFT
- * JUSTIFIED, BLANK FILLED.
- * STATUS, AN ITEM CONTAINING THE MEMORY REQUEST
- * STATUS WORD.
- * THE FORMAT OF MEMORY REQUEST STATUS WORD IS
- *T 30/VALUE, 26/0, 3/RESERVED, 1/COMPLETE BIT.
- * (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
- * (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
- * IF THE REQUESTED MEMORY IS NOT AVAILABLE.
- * IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
- * THE CURRENT FIELD LENGTH IS RETURNED IN
- * BITS 59-30 OF *STATUS*.
- *
- * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
- * IF N = 0, CURRENT AMOUNT ASSIGNED IS RETURNED IN
- * BITS 59-30 OF STATUS WORD.
- *
- * USES X - 1, 2, 3, 4, 5.
- * A - 1, 2, 3, 4, 5.
- * B - 1, 2.
- *
- * CALLS MACREL.
- *
- * MACROS MEMORY.
- MEMORY SUBR ENTRY/EXIT
- SB1 1
- SA2 X1 TYPE
- SA1 A1+B1 ADDRESS OF STATUS WORD
- SA3 A1+B1 GET RECALL PARAMETER
- SA5 X3
- SB2 X5
- SA5 A3+B1 GET NO ABORT OPTION
- SA3 =0HCM
- SA4 =0HSCM
- BX3 X2-X3
- BX4 X2-X4
- SA5 X5
- BX4 X3*X4
- ZR X4,MEM1 IF CM OR SCM
- SA3 =0HECS
- SA4 =0HLCM
- BX3 X2-X3
- BX4 X2-X4
- BX4 X3*X4
- ZR X4,MEM2 IF ECS OR LCM
- BX2 X1
- SA1 =0LMEMORY
- RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
- EQ MEMORYX
- MEM1 ZR B2,MEM3 IF NO RECALL
- MEMORY CM,X1,R,,X5
- EQ MEMORYX
- MEM2 ZR B2,MEM4 IF NO RECALL
- MEMORY ECS,X1,R,,X5
- EQ MEMORYX
- MEM3 MEMORY CM,X1,,,X5
- EQ MEMORYX
- MEM4 MEMORY ECS,X1,,,X5
- EQ MEMORYX
- END
- IDENT MESSAGE
- ENTRY MESSAGE
- SYSCOM B1
- TITLE MESSAGE - SEND MESSAGE.
- *COMMENT SEND MESSAGE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MESSAGE SPACE 4,10
- *** MESSAGE - SEND MESSAGE.
- *
- * CALL MESSAGE (TEXT,OPTION,R)
- *
- * 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.
- * = 9, SEND MESSAGE TO BINARY MAINTENANCE LOG.
- * = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE.
- *
- * MESSAGE(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.
- *
- * USES X - 2, 3, 4.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS MESSAGE.
- MESSAGE SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF OPTION
- SA2 X2 OPTION
- SA3 =0HLOCAL
- BX4 X2-X3
- ZR X4,MES1 IF LOCAL
- MESSAGE X1,X2,R
- EQ MESSAGEX
- MES1 MESSAGE X1,LOCAL,R
- EQ MESSAGEX
- END
- IDENT MOVE
- ENTRY MOVE
- SYSCOM B1
- TITLE MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS.
- *COMMENT MOVE BLOCK OF CENTRAL MEMORY WORDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MOVE SPACE 4,10
- *** MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS, DIRECT ADDRESSING.
- *
- * CALL MOVE (COUNT,FROM,TO)
- *
- * ENTRY (COUNT) = COUNT OF WORDS TO MOVE.
- * (FROM) = FIRST WORD OF THE *FROM* BLOCK.
- * (TO) = FIRST WORD OF THE *TO* BLOCK.
- *
- * MOVE(COUNT,FROM,TO); (*SYMPL* CALL)
- *
- * ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
- * MOVE.
- * FROM, AN ARRAY TO MOVE FROM.
- * TO, AN ARRAY TO MOVE TO.
- *
- * USES X - 1, 2, 3.
- * A - 1, 2, 3.
- * B - 1.
- *
- * MACROS MOVE.
- MOVE SUBR ENTRY/EXIT
- SB1 1 (B1) = 1
- SA2 A1+B1 (X2) = FROM FWA
- SA3 A2+B1 (X3) = TO FWA
- SA1 X1 (X1) = COUNT
- SX2 X2
- SX3 X3 CLEAR UPPER BITS
- SX1 X1
- MOVE X1,X2,X3 MOVE DATA
- EQ MOVEX RETURN
- END
- IDENT MOVEI
- ENTRY MOVEI
- SYSCOM B1
- TITLE MOVEI - MOVE A BLOCK OF CM WORDS.
- *COMMENT MOVE A BLOCK OF CM WORDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- MOVEI SPACE 4,10
- *** MOVEI - MOVE BLOCK OF CENTRAL MEMORY WORDS, INDIRECT ADDRESS.
- *
- * CALL MOVEI (COUNT,LOC(FROM),LOC(TO))
- *
- * ENTRY (COUNT) = COUNT OF WORDS TO MOVE.
- * (FROM) = FIRST WORD OF THE *FROM* BLOCK.
- * (TO) = FIRST WORD OF THE *TO* BLOCK.
- * LOC = LOCATION OF.
- *
- * MOVEI(COUNT,FROM,TO); (*SYMPL* CALL)
- *
- * ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
- * MOVE.
- * FROM, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
- * MOVE FROM, OR A LOC OF AN ARRAY.
- * TO, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
- * MOVE TO, OR A LOC OF AN ARRAY.
- *
- * USES X - 1, 2, 3.
- * A - 1, 2, 3.
- * B - 1.
- *
- * MACROS MOVE.
- MOVEI SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 (X2) = LOC (FROM FWA)
- SA3 A2+B1 (X3) = LOC (TO FWA)
- SA1 X1 (X1) = COUNT
- SA2 X2 (X2) = FROM FWA
- SA3 X3 (X3) = TO FWA
- SX1 X1
- SX2 X2 CLEAR UPPER BITS
- SX3 X3
- MOVE X1,X2,X3 MOVE DATA
- EQ MOVEIX RETURN
- END
- IDENT OPEN
- ENTRY OPEN
- SYSCOM B1
- TITLE OPEN - OPEN FILE FOR PROCESSING.
- *COMMENT OPEN FILE FOR PROCESSING.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- OPEN SPACE 4,10
- *** OPEN - OPEN FILE FOR PROCESSING.
- *
- * CALL OPEN (FILE,OPTION,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (OPTION) = 0, SAME AS ALTER.
- * = 5HALTER.
- * = 7HALTERNR.
- * = 2HNR.
- * = 4HREAD.
- * = 6HREADNR.
- * = 4HREEL.
- * = 6HREELNR.
- * = 5HWRITE.
- * = 7HWRITENR.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * OPEN(FILE,OPTION,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
- * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
- * FILL WITH BINARY 0.
- * ALTER.
- * ALTERNR (ALTER, NO REWIND).
- * NR (NO REWIND).
- * READ.
- * READNR (READ, NO REWIND).
- * REEL.
- * REELNR (REEL, NO REWIND).
- * WRITE.
- * WRITENR (WRITE, NO REWIND).
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
- *
- * USES X - 1, 2, 3, 4, 5, 6.
- * A - 1, 2, 3, 4, 5.
- * B - 1.
- *
- * CALLS MACREL.
- *
- * MACROS OPEN.
- OPEN SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 ADDRESS OF OPTION
- SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER
- SA2 X2+ OPTION
- SA3 X3
- BX6 X3
- ZR X2,OPE1 IF NO OPTION
- SA3 =0HALTER
- SA4 =0HALTERNR
- SA5 =0HNR
- BX3 X2-X3
- BX4 X2-X4
- ZR X3,OPE2 IF ALTER
- BX5 X2-X5
- ZR X4,OPE3 IF ALTERNR
- ZR X5,OPE4 IF NR
- SA3 =0HREAD
- SA4 =0HREADNR
- SA5 =0HREEL
- BX3 X2-X3
- BX4 X2-X4
- ZR X3,OPE5 IF READ
- BX5 X2-X5
- ZR X4,OPE6 IF READNR
- ZR X5,OPE7 IF REEL
- SA3 =0HREELNR
- SA4 =0HWRITE
- SA5 =0HWRITENR
- BX3 X2-X3
- BX4 X2-X4
- ZR X3,OPE8 IF REELNR
- BX5 X2-X5
- ZR X4,OPE9 IF WRITE
- ZR X5,OPE10 IF WRITENR
- SA1 =0LOPEN
- RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
- EQ OPENX
- OPE1 NZ X6,OPE11 IF RECALL
- OPEN X1
- EQ OPENX
- OPE2 NZ X6,OPE12 IF RECALL
- OPEN X1,ALTER
- EQ OPENX
- OPE3 NZ X6,OPE13 IF RECALL
- OPEN X1,ALTERNR
- EQ OPENX
- OPE4 NZ X6,OPE14 IF RECALL
- OPEN X1,NR
- EQ OPENX
- OPE5 NZ X6,OPE15 IF RECALL
- OPEN X1,READ
- EQ OPENX
- OPE6 NZ X6,OPE16 IF RECALL
- OPEN X1,READNR
- EQ OPENX
- OPE7 NZ X6,OPE17 IF RECALL
- OPEN X1,REEL
- EQ OPENX
- OPE8 NZ X6,OPE18 IF RECALL
- OPEN X1,REELNR
- EQ OPENX
- OPE9 NZ X6,OPE19 IF RECALL
- OPEN X1,WRITE
- EQ OPENX
- OPE10 NZ X6,OPE20 IF RECALL
- OPEN X1,WRITENR
- EQ OPENX
- OPE11 OPEN X1,,R
- EQ OPENX
- OPE12 OPEN X1,ALTER,R
- EQ OPENX
- OPE13 OPEN X1,ALTERNR,R
- EQ OPENX
- OPE14 OPEN X1,NR,R
- EQ OPENX
- OPE15 OPEN X1,READ,R
- EQ OPENX
- OPE16 OPEN X1,READNR,R
- EQ OPENX
- OPE17 OPEN X1,REEL,R
- EQ OPENX
- OPE18 OPEN X1,REELNR,R
- EQ OPENX
- OPE19 OPEN X1,WRITE,R
- EQ OPENX
- OPE20 OPEN X1,WRITENR,R
- EQ OPENX
- END
- IDENT PDATE
- ENTRY PDATE
- SYSCOM B1
- TITLE PDATE - RETURN PACK DATE AND TIME.
- *COMMENT RETURN PACK DATE AND TIME.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- PDATE SPACE 4,10
- *** PDATE - RETURN PACK DATE AND TIME.
- *
- * CALL PDATE (STAT)
- *
- * PDATE(STAT); (*SYMPL* CALL)
- *
- * ENTRY (STAT) = ADDRESS TO RECEIVE THE PACK DATE.
- *
- * EXIT (STAT) =
- *T, 24/0,6/YY, 6/MO, 6/DD, 6/HH, 6/MM, 6/SS (YY = YEAR - 1970)
- *
- * USES B - 1.
- *
- * MACROS PDATE.
- PDATE SUBR ENTRY/EXIT
- SB1 1
- PDATE X1
- EQ PDATEX EXIT
- END
- IDENT PFD
- ENTRY PFD
- SYSCOM B1
- TITLE PFD - PERMANENT FILE REQUEST DELAYS.
- *COMMENT MAC1 - PERMANENT FILE REQUEST DELAYS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- *CALL COMCMAC
- *CALL COMAPFS
- *CALL COMSPFM
- PFD SPACE 4,30
- *** PFD - PERMANENT FILE REQUEST DELAYS.
- *
- * *PFD* IS AN INTERFACE TO THE *PF* ROUTINES IN *CPUREL*.
- * WHEN THE *PF* ROUTINES ARE CALLED WITH THE USER PROCESSING
- * OPTION SELECTED, SEVERAL ERROR CODES MAY BE RETURNED BY
- * *PFM* WHICH ARE TEMPORARY CONDITIONS. *PFD* WILL REISSUE
- * THE *PF* CALL FOLLOWING A DELAY UNTIL THE REQUEST IS COMPLETE
- * OR SOME OTHER RESPONSE IS RETURNED FOR THE FOLLOWING ERRORS.
- *
- * * PF UTILITY ACTIVE.*
- * * INTERLOCK NOT AVAILABLE.*
- * * FNT FULL.*
- * * PFM EXCESS ACTIVITY.*
- *
- * *SYMPL* CALL -
- *
- * PFD(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0);
- *
- * REFER TO THE *PF* ROUTINE DOCUMENTATION FOR A DESCRIPTION
- * OF THE PARAMETERS (SEE FTN 5 REFERENCE MANUAL, 60481300).
- *
- * NOTE - THE STATUS WORD *PFSTAT* DEFINED IN *COMAPFS*
- * MUST BE USED WITH THE *RC* KEYWORD AS THE RETURN CODE
- * PARAMETER.
- *
- * USES X - 1, 2, 6.
- * A - 1, 2, 6.
- * B - 2.
- *
- * CALLS PF.
- *
- * MACROS RECALL.
- PFD SUBR ENTRY/EXIT
- SX6 A1 SAVE PARAMETER LIST ADDRESS
- SA6 PFDA
- BX6 X6-X6 CLEAR *PF* RETURN CODE
- SA6 PFSTAT
- PFD1 RJ =XPF
- SA2 PFSTAT CHECK *PF* RETURN CODE
- ZR X2,PFDX IF NO ERROR
- SB2 X2-/ERRMSG/PFA
- ZR B2,PFD2 IF DELAY REQUIRED
- SB2 X2-/ERRMSG/INA
- ZR B2,PFD2 IF DELAY REQUIRED
- SB2 X2-/ERRMSG/FTF
- ZR B2,PFD2 IF DELAY REQUIRED
- SB2 X2-/ERRMSG/PEA
- ZR B2,PFD2 IF DELAY REQUIRED
- EQ PFDX RETURN
- PFD2 RECALL
- SA1 PFDA
- SA1 X1+
- EQ PFD1 REISSUE *PF* CALL
- PFDA BSS 1 PARAMETER LIST ADDRESS
- END
- IDENT POSMF
- ENTRY POSMF
- SYSCOM B1
- TITLE POSMF - POSITION MULTI-FILE SET.
- *COMMENT POSITION MULTI-FILE SET.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- POSMF SPACE 4,10
- *** POSMF - POSITION MULTI-FILE SET.
- * LABELED MULTI-FILE MAGNETIC TAPE ONLY.
- *
- * CALL POSMF (MFILNAM,R)
- *
- * ENTRY (MFILNAM) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * POSMF(MFILNAM,R); (*SYMPL* CALL)
- *
- * ENTRY MFILNAM, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS POSMF.
- POSMF SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,POF1 IF RECALL
- POSMF X1
- EQ POSMFX
- POF1 POSMF X1,R
- EQ POSMFX
- END
- IDENT READ
- ENTRY READ
- SYSCOM B1
- TITLE READ - READ FILE TO *CIO* BUFFER.
- *COMMENT READ FILE TO *CIO* BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READ SPACE 4,10
- *** READ - READ FILE TO *CIO* BUFFER.
- *
- * CALL READ (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READ(FILE); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS READ.
- READ SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RED1 IF RECALL
- READ X1
- EQ READX
- RED1 READ X1,R
- EQ READX
- END
- IDENT READC
- ENTRY READC
- SYSCOM B1
- TITLE READC - READ CODED LINE IN *C* FORMAT.
- *COMMENT READ CODED LINE IN *C* FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READC SPACE 4,10
- *** READC - READ CODED LINE IN *C* FORMAT.
- *
- * CALL READC (FILE,BUF,N,STATUS)
- *
- * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * READC(FILE,BUF,N,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
- * IN *BUF*.
- *
- * EXIT (STATUS) = 0, TRANSFER COMPLETE.
- * = -1, END-OF-FILE DETECTED ON FILE.
- * = -2, END-OF-INFORMATION DETECTED ON FILE.
- * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
- * TRANSFER WAS COMPLETE.
- * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
- * WORKING BUFFER.
- *
- * USES X - 3, 4, 5, 6.
- * A - 3, 4, 5, 6.
- * B - 1.
- *
- * MACROS READC.
- READC SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
- SA4 X4 WORD COUNT
- READC X1,X3,X4
- BX6 X1
- SA6 X5
- EQ READCX
- END
- IDENT READCW
- ENTRY READCW
- SYSCOM B1
- TITLE READCW - READ FILE NON-STOP WITH CONTROL WORDS.
- *COMMENT READ FILE NON-STOP WITH CONTROL WORDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READCW SPACE 4,10
- *** READCW - READ FILE NON-STOP WITH CONTROL WORDS.
- *
- * CALL READCW (FILE,LEVEL,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (LEVEL) = RECORD LEVEL.
- * = 0, STOP AT END OF INFORMATION.
- * = 17B, STOP AT END OF FILE.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READCW(FILE,LEVEL,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * LEVEL, AN ITEM CONTAINING ONE OF THE FOLLOWING
- * VALUES.
- * 0, STOP AT EOI.
- * 17B, STOP AT EOF.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS READCW.
- READCW SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF LEVEL
- SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
- SA3 X3 LEVEL
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READCW X1,X3
- EQ READCWX
- RED1 READCW X1,X3,R
- EQ READCWX EXIT
- END
- IDENT READEI
- ENTRY READEI
- SYSCOM B1
- TITLE READEI - READ FILE TO END OF INFORMATION.
- *COMMENT READ FILE TO END OF INFORMATION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READEI SPACE 4,10
- *** READEI - READ FILE TO END OF INFORMATION.
- *
- * CALL READEI (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READEI(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS READEI.
- READEI SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READEI X1
- EQ READEIX
- RED1 READEI X1,R
- EQ READEIX
- END
- IDENT READH
- ENTRY READH
- SYSCOM B1
- TITLE READH - READ CODED LINE IN *H* FORMAT.
- *COMMENT READ CODED LINE IN *H* FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READH SPACE 4,10
- *** READH - READ CODED LINE IN *H* FORMAT.
- *
- * CALL READH (FILE,BUF,N,STATUS)
- *
- * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
- * FILLS TRAILING SPACES INTO THE WORKING BUFFER.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * READH(FILE,BUF,N,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
- *
- * EXIT (STATUS) = 0, TRANSFER COMPLETE
- * = -1, END-OF-FILE DETECTED ON FILE.
- * = -2, END-OF-INFORMATION DETECTED ON FILE.
- * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
- * TRANSFER WAS COMPLETE.
- * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
- * WORKING BUFFER.
- *
- * USES X - 3, 4, 5, 6.
- * A - 3, 4, 5, 6.
- * B - 1.
- *
- * MACROS READH.
- READH SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
- SA4 X4 WORD COUNT
- READH X1,X3,X4
- BX6 X1
- SA6 X5
- EQ READHX
- END
- IDENT READLS
- ENTRY READLS
- SYSCOM B1
- TITLE READLS - READ FILE WITH LIST.
- *COMMENT READ FILE WITH LIST.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READLS SPACE 4,10
- *** READLS - READ FILE WITH LIST.
- * MASS STORAGE FILES ONLY.
- *
- * CALL READLS (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READS(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS READLS.
- READLS SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READLS X1
- EQ READLSX
- RED1 READLS X1,R
- EQ READLSX
- END
- IDENT READN
- ENTRY READN
- TITLE READN - READ FILE NON-STOP FOR TAPES.
- *COMMENT READ FILE NON-STOP FOR TAPES.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READN SPACE 4,10
- *** READN - READ FILE NON-STOP FOR TAPES.
- * MAGNETIC TAPES IN S OR L FORMAT ONLY.
- *
- * CALL READN (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- *
- * READN(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS READN.
- READN SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READN X1
- EQ READNX
- RED1 READN X1,R
- EQ READNX
- END
- IDENT READNS
- ENTRY READNS
- SYSCOM B1
- TITLE READNS - READ FILE NON-STOP (READ TO EOF).
- *COMMENT READ FILE NON-STOP (READ TO EOF).
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READNS SPACE 4,10
- *** READNS - READ FILE NON-STOP (READ TO EOF).
- *
- * CALL READNS (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READNS(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS READNS.
- READNS SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READNS X1
- EQ READNSX
- RED1 READNS X1,R
- EQ READNSX EXIT
- END
- IDENT READO
- ENTRY READO
- SYSCOM B1
- TITLE READO - READ ONE WORD.
- *COMMENT READ ONE WORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READO SPACE 4,10
- *** READO - READ ONE WORD.
- *
- * CALL READO (FILE,WORD,STATUS)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- *
- * READO(FILE,WORD,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- *
- * EXIT (WORD) = WORD READ IF (STATUS) = 0.
- * (STATUS) = 0, TRANSFER COMPLETE.
- * = -1, END-OF-FILE DETECTED ON FILE.
- * = -2, END-OF-INFORMATION DETECTED ON FILE.
- * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
- * TRANSFER WAS COMPLETE.
- * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
- * WORKING BUFFER.
- *
- * USES X - 3, 5, 6, 7.
- * A - 3, 5, 6, 7.
- * B - 1.
- *
- * MACROS READO.
- READO SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF WORD
- SA5 A3+B1 (X5) = ADDRESS OF STATUS WORD
- BX0 X3
- READO X1
- SA6 X0 WORD READ
- BX7 X1 STATUS
- SA7 X5
- EQ READOX
- END
- IDENT READS
- ENTRY READS
- SYSCOM B1
- TITLE READS - READ CODED LINE TO CHARACTER BUFFER.
- *COMMENT READ CODED LINE TO CHARACTER BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READS SPACE 4,10
- *** READS - READ CODED LINE TO CHARACTER BUFFER.
- *
- * CALL READS (FILE,BUF,N,STATUS)
- *
- * UNPACKS WORDS AND STORES THEM IN THE WORKING BUFFER, ONE
- * CHARACTER/WORD, UNTIL THE END OF LINE BYTE (0000) IS SENSED.
- * FILLS THE WORKING BUFFER WITH SPACE CODES IF THE CODED LINE
- * TERMINATES BEFORE *N* CHARACTERS ARE STORED.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * READS(FILE,BUF,N,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
- *
- * EXIT (STATUS) = 0, TRANSFER COMPLETE
- * = -1, END-OF-FILE DETECTED ON FILE.
- * = -2, END-OF-INFORMATION DETECTED ON FILE.
- * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
- * TRANSFER WAS COMPLETE.
- * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
- * WORKING BUFFER.
- *
- * USES X - 3, 4, 5, 6.
- * A - 3, 4, 5, 6.
- * B - 1.
- *
- * MACROS READS.
- READS SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
- SA4 X4 WORD COUNT
- READS X1,X3,X4
- BX6 X1
- SA6 X5
- EQ READSX
- END
- IDENT READSKP
- ENTRY READSKP
- SYSCOM B1
- TITLE READSKP - READ FILE AND SKIP.
- *COMMENT READ FILE AND SKIP.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READSKP SPACE 4,10
- *** READSKP - READ FILE AND SKIP.
- *
- * CALL READSKP (FILE,LEVEL,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (LEVEL) = RECORD LEVEL.
- * = 0, SKIP TO END OF RECORD.
- * = 17B, SKIP TO END OF FILE.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * READSKP(FILE,LEVEL,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * LEVEL, AN ITEM THAT CONTAINS ONE OF THE FOLLOWING
- * VALUES.
- * 0, SKIP TO EOR.
- * 17B, SKIP TO EOF.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS READSKP.
- READSKP SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF LEVEL
- SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
- SA3 X3 LEVEL
- SA2 X2
- NZ X2,RED1 IF RECALL REQUESTED
- READSKP X1,X3
- EQ READSKPX
- RED1 READSKP X1,X3,R
- EQ READSKPX
- END
- IDENT READW
- ENTRY READW
- SYSCOM B1
- TITLE READW - READ DATA TO WORKING BUFFER.
- *COMMENT READ DATA TO WORKING BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- READW SPACE 4,10
- *** READW - READ DATA TO WORKING BUFFER.
- *
- * CALL READW (FILE,BUF,N,STATUS)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * EXIT (STATUS) = 0, TRANSFER COMPLETE.
- * = -1, END-OF-FILE DETECTED ON FILE.
- * = -2, END-OF-INFORMATION DETECTED ON FILE.
- * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
- * TRANSFER WAS COMPLETE.
- * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
- * WORKING BUFFER.
- *
- * READW(FILE,BUF,N,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
- *
- * EXIT STATUS, AN ITEM THAT WILL HAVE THE RESPONSE VALUE
- * PUT IN IT.
- *
- * USES X - 3, 4, 5, 6.
- * A - 3, 4, 5, 6.
- * B - 1.
- *
- * MACROS READW.
- READW SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
- SA4 X4 WORD COUNT
- READW X1,X3,X4
- BX6 X1
- SA6 X5
- EQ READWX
- END
- IDENT RECALL
- ENTRY RECALL
- SYSCOM B1
- TITLE RECALL - PLACE PROGRAM IN RECALL STATUS.
- *COMMENT PLACE PROGRAM IN RECALL STATUS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RECALL SPACE 4,10
- *** RECALL - PLACE PROGRAM IN RECALL STATUS.
- *
- * CALL RECALL (STATUS)
- *
- * ENTRY (STATUS) = 0, ONE SYSTEM PERIODIC RECALL IS ISSUED.
- * = OTHER, PROGRAM IS RECALLED WHEN
- * BIT 0 IS SET.
- *
- * RECALL(STATUS); (*SYMPL* CALL)
- *
- * ENTRY STATUS, AN ITEM CONTAINING 0 OR THE ADDRESS
- * OF THE WORD CONTAINING THE COMPLETION BIT.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS RECALL.
- RECALL SUBR ENTRY/EXIT
- SB1 1
- SA2 X1 STATUS WORD
- ZR X2,REC1 IF SINGLE RECALL
- RECALL X1 AUTO-RECALL
- EQ RECALLX
- REC1 RECALL
- EQ RECALLX
- END
- IDENT RENAME
- ENTRY RENAME
- SYSCOM B1
- TITLE RENAME - RENAME ASSIGNED FILE.
- *COMMENT RENAME ASSIGNED FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RENAME SPACE 4,10
- *** RENAME - RENAME ASSIGNED FILE.
- *
- * CALL RENAME (FILE,NFN)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
- * SEVEN CHARACTER MAXIMUM.
- *
- * RENAME(FILE,NFN); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
- * SEVEN CHARACTER MAXIMUM.
- *
- * USES X - 2, 6.
- * A - 2, 6.
- * B - 1.
- *
- * MACROS RENAME.
- RENAME SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET NEW FILE NAME
- SA2 X2
- BX6 X2
- SA6 X1+6 STORE NEW FILE NAME IN FET
- RENAME X1
- EQ RENAMEX RETURN
- END
- IDENT REQUEST
- ENTRY REQUEST
- SYSCOM B1
- TITLE REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
- *COMMENT REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- REQUEST SPACE 4,10
- *** REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
- *
- * CALL REQUEST (LIST)
- *
- * ENTRY SEE *NOS SYSTEM REFERENCE MANUAL*.
- *
- * REQUEST(LIST); (*SYMPL* CALL)
- *
- * ENTRY AN ARRAY CONTAINING A REQUEST LIST, SEE *NOS
- * REFERENCE MANUAL*.
- *
- * USES B - 1.
- *
- * MACROS REQUEST.
- REQUEST SUBR ENTRY/EXIT
- SB1 1
- REQUEST X1
- EQ REQUESTX
- END
- IDENT REQWEST
- ENTRY REQWEST
- SYSCOM B1
- TITLE REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
- *COMMENT MAC1 - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** REQWEST - REQUEST (015) AUTO ASSIGNMENT OF EQUIPMENT TO FILE.
- *
- * NOTE - *REQWEST* (*LFM* FUNCTION 015) IS SPELLED WITH A *W*
- * TO DISTINGUISH IT FROM *REQUEST* (*LFM* FUNCTION 014).
- *
- * *SYMPL* CALL -
- * REQWEST(FILE,M);
- *
- * ENTRY (FILE) = FET, (FET+1 BITS 59-48 CONTAIN DEVICE TYPE).
- * (M) = IF NON ZERO, DAYFILE MESSAGE INDICATING
- * DEVICE TO WHICH THE FILE IS ASSIGNED WILL BE
- * ISSUED BY *LFM*.
- * IF ZERO, NO DAYFILE MESSAGE WILL BE ISSUED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS REQUEST.
- REQWEST SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1
- SA2 X2
- ZR X2,REQW1 IF NO DAYFILE MESSAGE
- REQUEST X1,U
- EQ REQWESTX RETURN
- REQW1 REQUEST X1,U,N
- EQ REQWESTX RETURN
- END
- IDENT RETURN
- ENTRY RETURN
- ENTRY RETERN
- SYSCOM B1
- TITLE RETURN - RETURN FILE TO SYSTEM.
- *COMMENT RETURN FILE TO SYSTEM.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RETURN SPACE 4,10
- *** RETURN - RETURN FILE TO SYSTEM.
- *
- * CALL RETURN (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * RETERN(FILE,R); (*SYMPL* CALL)
- *
- * NOTE RETURN IS A RESERVED WORD IN *SYMPL*, A CALL TO
- * THE RETURN MACRO IN *SYMPL* MUST SPELL RETURN WITH
- * AN *E* INSTEAD OF A *U*.
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS RETURN.
- RETERN BSS 0 ENTRY FOR *SYMPL* ROUTINES
- RETURN SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RET1 IF RECALL REQUESTED
- RETURN X1
- EQ RETURNX
- RET1 RETURN X1,R
- EQ RETURNX
- END
- IDENT REWIND
- ENTRY REWIND
- SYSCOM B1
- TITLE REWIND - REWIND FILE.
- *COMMENT REWIND FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- REWIND SPACE 4,10
- *** REWIND - REWIND FILE.
- *
- * CALL REWIND (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * REWIND(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS REWIND.
- REWIND SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,REW1 IF RECALL REQUESTED
- REWIND X1
- EQ REWINDX
- REW1 REWIND X1,R
- EQ REWINDX
- END
- IDENT REWRITE
- ENTRY REWRITE
- SYSCOM B1
- TITLE REWRITE - REWRITE DATA FROM *CIO* BUFFER.
- *COMMENT REWRITE DATA FROM *CIO* BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- REWRITE SPACE 4,10
- *** REWRITE - REWITE DATA FROM *CIO* BUFFER.
- * MASS STORAGE FILES ONLY.
- *
- * CALL REWRITE (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * REWRITE(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS REWRITE.
- REWRITE SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,REW1 IF RECALL REQUESTED
- REWRITE X1
- EQ REWRITEX
- REW1 REWRITE X1,R
- EQ REWRITEX
- END
- IDENT REWRITF
- ENTRY REWRITF
- SYSCOM B1
- TITLE REWRITF - REWRITE END OF FILE.
- *COMMENT REWRITE END OF FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- REWRITF SPACE 4,10
- *** REWRITF - REWRITE END OF FILE.
- * MASS STORAGE FILES ONLY.
- *
- * CALL REWRITF (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * REWRITE(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS REWRITEF.
- REWRITF SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,REW1 IF RECALL REQUESTED
- REWRITEF X1
- EQ REWRITFX
- REW1 REWRITEF X1,R
- EQ REWRITFX
- END
- IDENT REWRITR
- ENTRY REWRITR
- SYSCOM B1
- TITLE REWRITR - REWRITE END OF RECORD.
- *COMMENT REWRITE END OF RECORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- REWRITR SPACE 4,10
- *** REWRITR - REWRITE END OF RECORD.
- * MASS STORAGE FILES ONLY.
- *
- * CALL REWRITR (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * REWRITR(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS REWRITER.
- REWRITR SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET ADDRESS OF RECALL PARAMETER
- SA2 X2
- NZ X2,REW1 IF RECALL PARAMETER REQUESTED
- REWRITER X1
- EQ REWRITRX
- REW1 REWRITER X1,R
- EQ REWRITRX
- END
- IDENT ROLLOUT
- ENTRY ROLLOUT
- SYSCOM B1
- TITLE ROLLOUT - ROLLOUT THE JOB.
- *COMMENT ROLLOUT THE JOB.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- ROLLOUT SPACE 4,10
- *** ROLLOUT - ROLLOUT THE JOB.
- *
- * CALL ROLLOUT (ADDR)
- *
- * ROLLOUT(ADDR); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = ADDRESS OF EVENT DEPENDENCIES.
- *T, 30/0,18/EVD,12/RTP
- * EVD = EVENT VALUE.
- * RTP = ROLLOUT TIME PERIOD.
- *
- * USES B - 1.
- *
- * MACROS ROLLOUT.
- ROLLOUT BSS 0
- ROLLT SUBR ENTRY/EXIT
- SB1 1
- ROLLOUT X1
- EQ ROLLTX EXIT
- END
- IDENT ROUTE
- ENTRY ROUTE
- SYSCOM B1
- TITLE ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
- *COMMENT ROUTE A FILE TO A SPECIFIC DISPOSITION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
- *
- * CALL ROUTE(ADDR,R)
- *
- * ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * ROUTE(ADDR,R); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 1, 2.
- * A - 1, 2.
- * B - 1.
- *
- * MACROS ROUTE.
- ROUTE SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,ROU1 IF RECALL PARAMETER
- ROUTE X1
- EQ ROUTEX EXIT
- ROU1 ROUTE X1,R
- EQ ROUTEX EXIT
- END
- IDENT RPHR
- ENTRY RPHR
- SYSCOM B1
- TITLE RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
- *COMMENT READ PHYSICAL RECORD TO *CIO* BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RPHR SPACE 4,10
- *** RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
- *
- * CALL RPHR (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * RPHR(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS RPHR.
- RPHR SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RPH1 IF RECALL REQUESTED
- RPHR X1
- EQ RPHRX
- RPH1 RPHR X1,R
- EQ RPHRX
- END
- IDENT RPHRLS
- ENTRY RPHRLS
- SYSCOM B1
- TITLE RPHRLS - READ PRUS WITH LIST.
- *COMMENT READ PRUS WITH LIST.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RPHRLS SPACE 4,10
- *** RPHRLS - READ PRUS WITH LIST.
- *
- * CALL RPHRLS (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * RPHRLS(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS RPHRLS.
- RPHRLS SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,RPH1 IF RECALL REQUESTED
- RPHRLS X1
- EQ RPHRLSX
- RPH1 RPHRLS X1,R
- EQ RPHRLSX
- END
- IDENT RTIME
- ENTRY RTIME
- SYSCOM B1
- TITLE RTIME - OBTAIN REAL TIME CLOCK READING.
- *COMMENT OBTAIN REAL TIME CLOCK READING.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- RTIME SPACE 4,10
- *** RTIME - OBTAIN REAL TIME CLOCK READING.
- *
- * CALL RTIME (STATUS)
- *
- * EXIT (STATUS) = RESPONSE.
- * RESPONSE =
- *T 24/ SECONDS,36/ MILLISECONDS
- * TIME IS SYSTEM SOFTWARE CLOCK TIME SINCE DEADSTART.
- *
- * RTIME(STATUS); (*SYMPL* CALL)
- *
- * EXIT STATUS, AN ITEM THAT WILL CONTAIN THE RTIME
- * STATUS WORD ON EXIT.
- *
- * USES X - 1, 6.
- * A - 1.
- * B - 1.
- *
- * MACROS RTIME.
- RTIME SUBR ENTRY/EXIT
- SB1 1
- BX5 X1
- RTIME X1
- SA1 X5
- BX6 X1 RETURN RESPONSE AS FUNCTION RESULT
- EQ RTIMEX
- END
- IDENT SETJCI
- ENTRY SETJCI
- SYSCOM B1
- TITLE SETJCI - SET JOB CONTROL INFORMATION.
- *COMMENT SET JOB CONTROL INFORMATION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SETJCI SPACE 4,25
- *** SETJCI - SET JOB CONTROL INFORMATION.
- *
- * CALL SETJCI(ADDR)
- *
- * ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING JOB
- * CONTROL INFORMATION.
- *
- * EXIT JOB CONTROL INFORMATION SET IN USER,S
- * CONTROL POINT AREA.
- *
- * SETJCI(ADDR); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING
- * JOB CONTROL INFORMATION.
- * THE FORMAT OF THE ARRAY IS-
- *T ADDR 6/EFG,18/REG,12/CCL,12/EM,6/SSW,6/0
- *T, 6/EF,18/R3,18/R2,18/R1
- * EFG = GLOBAL ERROR FLAG.
- * REG = GLOBAL REGISTER.
- * CCL = RESERVED FOR CCL USE.
- * EM = EXIT MODE (REFER TO *NOS* REFERENCE VOL. 2).
- * SSW = SENSE SWITCHES.
- * EF = LAST ERROR FLAG ENCOUNTERED.
- * R3 = JOB CONTROL REGISTER 3.
- * R2 = JOB CONTROL REGISTER 2.
- * R1 = JOB CONTROL REGISTER 1.
- *
- * EXIT JOB CONTROL INFORMATION SET IN USER,S
- * CONTROL POINT AREA.
- *
- * USES B - 1.
- *
- * MACROS SETJCI.
- SETJCI SUBR ENTRY/EXIT
- SB1 1
- SETJCI X1
- EQ SETJCIX RETURN
- END
- IDENT SKIPB
- ENTRY SKIPB
- SYSCOM B1
- TITLE SKIPB - SKIP RECORDS BACKWARDS.
- *COMMENT SKIP RECORDS BACKWARDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SKIPB SPACE 4,10
- *** SKIPB - SKIP RECORDS BACKWARDS.
- *
- * CALL SKIPB (FILE,N,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (N) = NUMBER OF RECORDS.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SKIPB(FILE,N,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS SKIPB.
- SKIPB SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF N
- SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
- SA3 X3 N
- SA2 X2
- NZ X2,SKI1 IF RECALL REQUESTED
- SKIPB X1,X3
- EQ SKIPBX
- SKI1 SKIPB X1,X3,R
- EQ SKIPBX
- END
- IDENT SKIPEI
- ENTRY SKIPEI
- SYSCOM B1
- TITLE SKIPEI - SKIP TO END OF INFORMATION.
- *COMMENT SKIP TO END OF INFORMATION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SKIPEI SPACE 4,10
- *** SKIPEI - SKIP TO END OF INFORMATION.
- *
- * CALL SKIPEI (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SKIPEI(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS SKIPEI.
- SKIPEI SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,SKI1 IF RECALL REQUESTED
- SKIPEI X1
- EQ SKIPEIX
- SKI1 SKIPEI X1,R
- EQ SKIPEIX
- END
- IDENT SKIPF
- ENTRY SKIPF
- SYSCOM B1
- TITLE SKIPF - SKIP RECORDS FORWARD.
- *COMMENT SKIP RECORDS FORWARD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SKIPF SPACE 4,10
- *** SKIPF - SKIP RECORDS FORWARD.
- *
- * CALL SKIPF (FILE,N,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (N) = NUMBER OF RECORDS.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SKIPF(FILE,N,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS SKIPF.
- SKIPF SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF N
- SA2 A3+B1 GET RECALL PARAMETER
- SA2 X2
- SA3 X3 N
- NZ X2,SKI1 IF RECALL REQUESTED
- SKIPF X1,X3
- EQ SKIPFX
- SKI1 SKIPF X1,X3,R
- EQ SKIPFX
- END
- IDENT SKIPFB
- ENTRY SKIPFB
- SYSCOM B1
- TITLE SKIPFB - SKIP FILES BACKWARD.
- *COMMENT SKIP FILES BACKWARD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SKIPFB SPACE 4,10
- *** SKIPFB - SKIP FILES BACKWARD.
- *
- * CALL SKIPFB (FILE,N,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (N) = NUMBER OF FILES.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SKIPFB(FILE,N,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * N, AN ITEM CONTAING THE NUMBER OF FILES TO SKIP.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS SKIPFB.
- SKIPFB SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF N
- SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
- SA3 X3 N
- SA2 X2
- NZ X2,SKI1 IF RECALL REQUESTED
- SKIPFB X1,X3
- EQ SKIPFBX
- SKI1 SKIPFB X1,X3,R
- EQ SKIPFBX
- END
- IDENT SKIPFF
- ENTRY SKIPFF
- SYSCOM B1
- TITLE SKIPFF - SKIP FILES FORWARD.
- *COMMENT SKIP FILES FORWARD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SKIPFF SPACE 4,10
- *** SKIPFF - SKIP FILES FORWARD.
- *
- * CALL SKIPFF (FILE,N,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (N) = NUMBER OF FILES
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SKIPFF(FILE,N,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF FILES TO SKIP.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2, 3.
- * A - 2, 3.
- * B - 1.
- *
- * MACROS SKIPFF.
- SKIPFF SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF N
- SA2 A3+B1 ADDRESS OF RECALL PARAMETER
- SA3 X3 N
- SA2 X2
- NZ X2,SKI1 IF RECALL REQUESTED
- SKIPFF X1,X3
- EQ SKIPFFX
- SKI1 SKIPFF X1,X3,R
- EQ SKIPFFX
- END
- IDENT SYSTEM
- ENTRY SYSTEM
- SYSCOM B1
- TITLE SYSTEM - REQUEST SYSTEM FUNCTION.
- *COMMENT REQUEST SYSTEM FUNCTION.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SYSTEM SPACE 4,10
- *** SYSTEM - REQUEST SYSTEM FUNCTION.
- *
- * CALL SYSTEM(ARGUMENT,R)
- *
- * ENTRY (ARGUMENT) = 3 CHARACTER SYSTEM REQUEST NAME,
- * INCLUDING OPTIONAL PARAMETERS.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * SYSTEM(ARGUMENTS,R); (*SYMPL* CALL)
- *
- * ENTRY ARGUMENTS, AN ITEM CONTAINING THE REQUEST ARGUMENT.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * EXIT DEPENDS ON CALL, SEE *NOS REFERENCE MANUAL*.
- *
- * USES X - 1, 2, 6.
- * A - 1, 2.
- * B - 1.
- *
- * MACROS SYSTEM.
- SYSTEM SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA1 X1
- BX6 X1 SYSTEM REQUEST
- SA2 X2
- ZR X2,SYS1 IF RECALL NOT REQUESTED
- MX2 1
- LX2 41
- BX6 X6+X2
- SYS1 BSS 0
- SYSTEM
- EQ SYSTEMX
- END
- IDENT TIME
- ENTRY TIME
- SYSCOM B1
- TITLE TIME - OBTAIN ACCUMULATED CPU TIME.
- *COMMENT OBTAIN ACCUMULATED CPU TIME.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- TIME SPACE 4,10
- *** TIME - OBTAIN ACCUMULATED CPU TIME.
- *
- * CALL TIME (STATUS)
- *
- * EXIT (STATUS) = RESPONSE
- * RESPONSE =
- *T 12/ 2000B,12/0,24/ SECONDS,12/ MILLISECONDS
- *
- * TIME(STATUS); (*SYMPL* CALL)
- *
- * EXIT (STATUS) = TIME STATUS WORD.
- *
- * USES X - 1, 5, 6.
- * A - 1.
- * B - 1.
- *
- * MACROS TIME.
- TIME SUBR ENTRY/EXIT
- SB1 1
- BX5 X1
- TIME X1
- SA1 X5
- BX6 X1 RETURN RESPONSE AS FUNCTION RESULT
- EQ TIMEX
- END
- IDENT UNLOAD
- ENTRY UNLOAD
- TITLE UNLOAD - UNLOAD FILE.
- *COMMENT UNLOAD FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- UNLOAD SPACE 4,10
- *** UNLOAD - UNLOAD FILE.
- *
- * CALL UNLOAD (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * UNLOAD(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS UNLOAD.
- UNLOAD SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,UNL1 IF RECALL REQUESTED
- UNLOAD X1
- EQ UNLOADX
- UNL1 UNLOAD X1,R
- EQ UNLOADX
- END
- IDENT VERSION
- ENTRY VERSION
- SYSCOM B1
- TITLE VERSION - RETURN THE OPERATING SYSTEM VERSION NAME.
- *COMMENT RETURN VERSION NAME.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- VERSION SPACE 4,10
- *** VERSION - RETURN THE VERSION NAME OF THE OPERATING SYSTEM.
- *
- * CALL VERSION (ADDR)
- *
- * VERSION(ADDR); (*SYMPL* CALL)
- *
- * ENTRY (ADDR) = ADDRESS TO RECEIVE VERSION NAME.
- *
- * EXIT (ADDR) = VERSION NAME.
- *
- * USES X - 2, 3, 6.
- * A - 2, 6.
- *
- * MACROS VERSION.
- VERSION BSS 0
- VERSIN SUBR ENTRY/EXIT
- MX3 42
- SA2 ADDR
- BX2 X3*X2
- BX6 X1+X2
- SA6 A2
- VERSION A2
- EQ VERSINX EXIT
- ADDR VFD 12/10,12/0,12/0,6/0,18/0
- END
- IDENT WPHR
- ENTRY WPHR
- SYSCOM B1
- TITLE WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
- *COMMENT WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WPHR SPACE 4,10
- *** WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
- *
- * CALL WPHR (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WPHR(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS WPHR.
- WPHR SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WPH1 IF RECALL REQUESTED
- WPHR X1
- EQ WPHRX
- WPH1 WPHR X1,R
- EQ WPHRX
- END
- IDENT WRITE
- ENTRY WRITE
- SYSCOM B1
- TITLE WRITE - WRITE DATA FROM *CIO* BUFFER.
- *COMMENT WRITE DATA FROM *CIO* BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITE SPACE 4,10
- *** WRITE - WRITE DATA FROM *CIO* BUFFER.
- *
- * CALL WRITE (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WRITE(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS WRITE.
- WRITE SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WRT1 IF RECALL PARAMETER REQUESTED
- WRITE X1
- EQ WRITEX
- WRT1 WRITE X1,R
- EQ WRITEX
- END
- IDENT WRITEC
- ENTRY WRITEC
- SYSCOM B1
- TITLE WRITEC - WRITE CODED LINE IN *C* FORMAT.
- *COMMENT WRITE CODED LINE IN *C* FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEC SPACE 4,10
- *** WRITEC - WRITE CODED LINE IN *C* FORMAT.
- *
- * CALL WRITEC (FILE,BUF)
- *
- * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- *
- * WRITEC(FILE,BUF); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- *
- * USES X - 3.
- * A - 3.
- * B - 1.
- *
- * MACROS WRITEC.
- WRITEC SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- WRITEC X1,X3
- EQ WRITECX
- END
- IDENT WRITECW
- ENTRY WRITECW
- SYSCOM B1
- TITLE WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
- *COMMENT WRITE FILE NON-STOP WITH CONTROL WORDS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITECW SPACE 4,10
- *** WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
- *
- * CALL WRITECW (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WRITECW(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- *
- * MACROS WRITECW.
- WRITECW SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WCW1 IF RECALL
- WRITECW X1
- EQ WRITECWX
- WCW1 WRITECW X1,R
- EQ WRITECWX EXIT
- END
- IDENT WRITEF
- ENTRY WRITEF
- SYSCOM B1
- TITLE WRITEF - WRITE END OF FILE.
- *COMMENT WRITE END OF FILE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEF SPACE 4,10
- *** WRITEF - WRITE END OF FILE.
- *
- * CALL WRITEF (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WRITEF(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS WRITEF.
- WRITEF SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WRT1 IF RECALL REQUESTED
- WRITEF X1
- EQ WRITEFX
- WRT1 WRITEF X1,R
- EQ WRITEFX
- END
- IDENT WRITEH
- ENTRY WRITEH
- SYSCOM B1
- TITLE WRITEH - WRITE CODED LINE IN *H* FORMAT.
- *COMMENT WRITE CODED LINE IN *H* FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEH SPACE 4,10
- *** WRITEH - WRITE CODED LINE IN *H* FORMAT.
- *
- * CALL WRITEH (FILE,BUF,N)
- *
- * TRANSFERS ONE LINE OF DATA. DELETES TRAILING SPACES.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * WRITEH(FILE,BUF,N); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
- * IN *BUF*.
- *
- * USES X - 3, 4.
- * A - 3, 4.
- * B - 1.
- *
- * MACROS WRITEH.
- WRITEH SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA4 X4 WORD COUNT
- WRITEH X1,X3,X4
- EQ WRITEHX
- END
- IDENT WRITEN
- ENTRY WRITEN
- SYSCOM B1
- TITLE WRITEN - WRITE FILE NON-STOP FOR TAPES.
- *COMMENT WRITE FILE NON-STOP FOR TAPES.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEN SPACE 4,10
- *** WRITEN - WRITE FILE NON-STOP FOR TAPES.
- * MAGNETIC TAPES IN S OR L FORMAT ONLY.
- *
- * CALL WRITEN (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WRITEN(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ENTRY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS WRITEN.
- WRITEN SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WRT1 IF RECALL REQUESTED
- WRITEN X1
- EQ WRITENX
- WRT1 WRITEN X1,R
- EQ WRITENX
- END
- IDENT WRITEO
- ENTRY WRITEO
- SYSCOM B1
- TITLE WRITEO - WRITE ONE WORD.
- *COMMENT WRITE ONE WORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEO SPACE 4,10
- *** WRITEO - WRITE ONE WORD.
- *
- * CALL WRITEO (FILE,WORD)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (WORD) = WORD TO BE TRANSFERRED.
- *
- * WRITEO(FILE,WORD); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * WORD, ITEM TO BE TRANSFERRED.
- *
- * USES X - 3, 6.
- * A - 3.
- * B - 1.
- *
- * MACROS WRITEO.
- WRITEO SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF WORD
- SA3 X3 WORD
- BX6 X3
- WRITEO X1
- EQ WRITEOX
- END
- IDENT WRITER
- ENTRY WRITER
- SYSCOM B1
- TITLE WRITER - WRITE END OF RECORD.
- *COMMENT WRITE END OF RECORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITER SPACE 4,10
- *** WRITER - WRITE END OF RECORD.
- *
- * CALL WRITER (FILE,R)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * WRITER(FILE,R); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
- *
- * USES X - 2.
- * A - 2.
- * B - 1.
- *
- * MACROS WRITER.
- WRITER SUBR ENTRY/EXIT
- SB1 1
- SA2 A1+B1 GET RECALL PARAMETER
- SA2 X2
- NZ X2,WRT1 IF RECALL REQUESTED
- WRITER X1
- EQ WRITERX
- WRT1 WRITER X1,R
- EQ WRITERX
- END
- IDENT WRITES
- ENTRY WRITES
- SYSCOM B1
- TITLE WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
- *COMMENT WRITE CODED LINE FROM CHARACTER BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITES SPACE 4,10
- *** WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
- *
- * CALL WRITES (FILE,BUF,N)
- *
- * PACKS CHARACTERS FROM THE WORKING BUFFER TEN CHARACTERS/WORD.
- * DELETES TRAILING SPACE CODES BEFORE PACKING CHARACTERS.
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- *
- * WRITES(FILE,BUF,N); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
- *
- * USES X - 3, 4.
- * A - 3, 4.
- * B - 1.
- *
- * MACROS WRITES.
- WRITES SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA4 X4 WORD COUNT
- WRITES X1,X3,X4
- EQ WRITESX
- END
- IDENT WRITEW
- ENTRY WRITEW
- SYSCOM B1
- TITLE WRITEW - WRITE DATA FROM WORKING BUFFER.
- *COMMENT WRITE DATA FROM WORKING BUFFER.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- WRITEW SPACE 4,10
- *** WRITEW - WRITE DATA FROM WORKING BUFFER.
- *
- * CALL WRITEW (FILE,BUF,N,STATUS)
- *
- * ENTRY (FILE) = FIRST WORD OF THE FET.
- * (BUF) = FIRST WORD OF THE WORKING BUFFER.
- * (N) = WORD COUNT OF THE WORKING BUFFER.
- * (STATUS) = RETURN STATUS, NE. 0 INDICATES AN ERROR.
- *
- * WRITEW(FILE,BUF,N,STATUS); (*SYMPL* CALL)
- *
- * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
- * BUF, AN ARRAY TO BE USED AS READ BUFFER.
- * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
- * STATUS, .NE. 0 INDICATES AN ERROR.
- *
- * USES X - 3, 4, 5, 6, 7.
- * A - 3, 4, 5, 6, 7.
- * B - 1.
- *
- * MACROS WRITEW.
- WRITEW SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 FWA OF WORKING BUFFER
- SA4 A3+B1 ADDRESS OF WORD COUNT
- SA5 A4+B1 STATUS RESULT ADDRESS
- SA4 X4 WORD COUNT
- WRITEW X1,X3,X4
- NZ B7,WRITEW1 IF AN ERROR
- BX7 X7-X7 CLEAR ERROR STATUS
- WRITEW1 SA7 X5 RETURN ERROR STATUS
- EQ WRITEWX
- END
- IDENT XARG
- LDSET PRESET=ZERO
- ENTRY XARG
- ENTRY SSJ=
- SYSCOM B1
- TITLE XARG - CRACK CONTROL STATEMENT PARAMETERS.
- *COMMENT CRACK CONTROL STATEMENT PARAMETERS.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- *CALL COMCMAC
- SSJ= EQU 0
- XARG SPACE 4,25
- *** XARG - CRACK CONTROL STATEMENT PARAMETERS.
- *
- * XARG(ARGLIST,OPTION,FLAG); (*SYMPL* CALL)
- *
- * ENTRY (ARGLIST) = ADDRESS OF ARGUMENT LIST.
- * (OPTION) = OPTION FOR SKIPING OVER PROGRAM NAME.
- * 0, SKIP OVER PROGRAM NAME.
- * ADDR, DO NOT SKIP OVER PROGRAM NAME.
- * *ADDR* IS THE FWA OF THE CONTROL
- * CARD BUFFER.
- *
- * EXIT CONTROL STATEMENT CRACKED.
- * (FLAG) = ERROR STATUS.
- * 0, NO ERROR.
- * -1, ARGUMENT ERROR.
- *
- * USES A - 1, 3, 4, 5, 6.
- * B - 1, 2, 3.
- * X - 1, 3, 4, 5, 6.
- *
- * CALLS ARM, POP, USB.
- XARG SUBR ENTRY/EXIT
- SB1 1
- SA3 A1+B1 ADDRESS OF *OPTION*
- SA5 A3+B1 SAVE ADDRESS OF *FLAG*
- SB2 X3 SET ADDRESS OF *OPTION*
- SA3 X3
- NZ X3,ARG1 IF OPTION IS *NO SKIP OVER PROGRAM NAME*
- SB2 CCDR SET ADDRESS OF CONTROL STATEMENT BUFFER
- ARG1 SA4 X1 ADDRESS OF ARGUMENT LIST
- RJ USB UNPACK CONTROL STATEMENT
- SA1 A6 ASSURE TERMINATION
- SX6 1R.
- SA6 X1+B1
- NZ X3,ARG2 IF *DO NOT SKIP OVER PROGRAM NAME*
- RJ POP SKIP OVER PROGRAM NAME
- ARG2 SB3 X4 CRACK THE PARAMETERS
- RJ ARM
- LX6 X1 SET UP ERROR STATUS IN *FLAG*
- SA6 X5
- EQ XARGX RETURN
- *CALL COMCARM
- *CALL COMCPOP
- *CALL COMCUSB
- END
- IDENT XCDD
- ENTRY XCDD
- SYSCOM B1
- TITLE XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
- *COMMENT CONVERT INTEGER TO DECIMAL DISPLAY CODE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XCDD SPACE 4,10
- *** XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
- *
- * HOLLERITH = XCDD (INTEGER)
- *
- * XX = XCDD(YY); (*SYMPL* CALL)
- *
- * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
- *
- * EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * CALLS COD.
- XCDD SUBR ENTRY/EXIT
- SB1 1
- SA1 X1+
- RJ CDD
- EQ XCDDX RETURN, RESULT IN X6
- *CALL COMCCDD CONVERT INTEGER TO DECIMAL DISPLAY CODE.
- END
- IDENT XCFD
- ENTRY XCFD
- ENTRY CFD
- SYSCOM B1
- TITLE XCFD - CONVERT INTEGER TO F10.3 FORMAT.
- *COMMENT CONVERT INTEGER TO F10.3 FORMAT.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XCFD SPACE 4,10
- *** XVFD - CONVERT INTEGER TO F10.3 FORMAT.
- *
- * HOLLERITH = XCFD (INTEGER).
- *
- * XX = XCFD(YY); (*SYMPL* CALL)
- *
- * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
- *
- * EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * CALLS CFD
- XCFD SUBR ENTRY/EXIT
- SB1 1
- SA1 X1+
- RJ =XCFD CONVERT
- EQ XCFDX RETURN, RESULT IN X6
- *CALL COMCCFD CONVERT INTEGER TO F10.3 FORMAT.
- END
- IDENT XCHD
- ENTRY XCHD
- SYSCOM B1
- TITLE XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
- *COMMENT CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
- *
- * CONVERT RIGHT MOST 40 BITS OF A BINARY WORD (10/4 BIT
- * HEX DIGITS) TO 10 HEXIDECIMAL DISPLAY CODE CHARACTERS
- * (LEFT ZEROES SUPPRESSED).
- *
- * XX = XCHD(YY); (*SYMPL* CALL)
- *
- * ENTRY XY, AN ITEM CONTAINING THE WORD TO BE CONVERTED.
- *
- * EXIT XX, HEX DISPLAY CODE EQUIVILENCE OF THE RIGHT MOST
- * 10 HEX DIGIT IN YY.
- *
- * USES X - 1, 2, 3, 4, 5, 6, 7.
- * A - 1, 4.
- * B - 1, 2, 3, 4, 5, 6, 7.
- XCHD SUBR ENTRY/EXIT
- SB1 1 SYSCOM B1
- SA4 XCHDA =1H
- SA1 X1 (X1) = HEXIDECIMAL INTEGER IN BINARY
- SB7 1R0 (B7) = CHARACTER ZERO
- MX2 -4 (X2) = DIGIT MASK
- SB3 6 (B3) = SHIFT COUNT FOR EACH CHARACTER
- SB6 1R (B6) = CHARACTER BLANK
- SB5 1R9 (B5) = CHARACTER 9
- SB2 -B3 INITIALIZE SHIFT COUNT
- SB4 B7-B6 (B4) = CONVERSION VALUE FOR NUMERIC
- XCHD1 BX7 -X2*X1 EXTRACT DIGIT
- SX5 X7+B7 ADD CHARACTER ZERO TO DIGIT
- SB2 B2+B3
- LX4 -6
- SX3 X7+B4 CONVERT DIGIT (W/BLANK BIAS)
- AX1 4 SHIFT OFF DIGIT FROM INPUT WORD
- SX5 X5-1R9 SEE IF CHARACTER GREATER THAT NINE
- NG X5,XCHD2 IF LESS THAN NINE
- ZR X5,XCHD2 IF EQUAL TO NINE
- SX3 X5-1R BIAS DIGIT BY CHARACTER BLANK INVERSE
- XCHD2 IX4 X4+X3 ADD DIGIT TO ASSEMBLY
- NZ X1,XCHD1 IF NOT A ZERO DIGIT
- LX6 X4,B2
- EQ XCHDX
- XCHDA CON 1H BLANK FILLED WORD
- END
- IDENT XCOD
- ENTRY XCOD
- SYSCOM B1
- TITLE XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
- *COMMENT CONVERT INTEGER TO OCTAL DISPLAY CODE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XCOD SPACE 4,10
- *** XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
- *
- * HOLLERITH = XCOD (INTEGER)
- *
- * XX = XCOD(YY); (*SYMPL* CALL)
- *
- * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
- *
- * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * CALLS COD.
- XCOD SUBR ENTRY/EXIT
- SB1 1
- SA1 X1+
- RJ COD
- EQ XCODX RETURN, RESULT IN X6
- *CALL COMCCOD CONVERT INTEGER TO OCTAL DISPLAY CODE.
- END
- IDENT XDXB
- ENTRY XDXB
- SYSCOM B1
- TITLE XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
- *COMMENT CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
- *
- * *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD
- * OF DISPLAY CODE DIGITS INTO BINARY.
- *
- * STAT = XDXB(OWORD,TYPE,NWORD); (*SYMPL* CALL)
- *
- * OWORD - AN ITEM THAT CONTAINS THE WORD
- * BE CONVERTED.
- * TYPE - CONVERSION TYPE.
- * - .GT. 0, CONVERSION IN DECIMAL.
- * - = 0, CONVERSION IN OCTAL.
- * NWORD - AN ITEM TO CONTAIN THE CONVERTED DIGITS.
- * STAT - = 0, NO ERROR.
- * - NON ZERO, ERROR IN ASSEMBLY.
- *
- * USES X - 2, 3, 5, 6.
- * A - 2, 3, 5, 6.
- * B - 1, 2, 7.
- *
- * CALLS DXB.
- XDXB SUBR ENTRY/EXIT
- SB1 1
- SA5 X1 (X5) = WORD
- SA2 A1+B1 ADDRESS OF TYPE IN X2
- SA3 X2
- SB7 X3 (B7) = TYPE
- SB2 10D DO TEN CHARACTERS
- MX6 -6
- DXB1 LX5 6
- BX2 -X6*X5
- SX2 X2-1R
- SB2 B2-B1
- NZ X2,DXB2 IF NOT A SPACE CHARACTER
- MX3 54
- BX5 X3*X5
- DXB2 NZ B2,DXB1 IF MORE CHARACTERS
- RJ =XDXB
- SA3 A2+B1
- SA6 X3 STORE CONVERTED DIGITS
- BX6 X4 PUT STATUS IN (X6)
- EQ XDXBX
- *CALL COMCDXB
- END
- IDENT XPRC
- ENTRY XPRC
- TITLE XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE.
- *COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SPACE 4,10
- *** XPRC - INTERFACE ROUTINE USED TO CALL A *SYMPL*
- * PROCEDURE, GIVEN THE ADDRESS OF THE PROCEDURE.
- *
- * XPRC(PADDR,P1,P2,...,PN); (*SYMPL* CALL)
- *
- * PADDR - ADDRESS OF PROCEDURE.
- * P1 - FIRST PARAMETER TO BE PASSED TO PROCEDURE.
- * ...
- * PN - N-TH PARAMETER TO BE PASSED TO PROCEDURE.
- *
- * USES X - 1, 2, 3, 4, 6, 7.
- * A - 1, 2, 6, 7.
- * B - 1, 2.
- XPRC SUBR ENTRY/EXIT
- SB1 1
- SA2 X1
- BX7 X2
- SA7 PRADR STORE PROCEDURE ADDRESS
- SA1 A1+B1
- MX3 1
- LX3 57
- SA2 PRADR
- SX4 PRC1
- SB2 X2
- LX4 30
- BX6 X3+X4
- SA6 X2
- JP B2+1
- PRC1 EQ XPRCX
- PRADR BSSZ 1 ADDRESS OF PROCEDURE TO CALL
- END
- IDENT XREL
- ENTRY XREL=
- ENTRY XREL.
- SYSCOM B1
- TITLE XREL - COMMON DECK INTERFACE ROUTINES.
- *COMMENT COMMON DECK INTERFACE ROUTINES.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XREL SPACE 4,10
- ** XREL - COMMON DECK INTERFACE ROUTINES.
- *
- * XREL IS A COLLECTION OF RELOCATABLE MODULES THAT
- * PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
- * AND THE STANDARD COMMON DECK ROUTINES THAT ARE NOT CALLED
- * BY SYSTEM MACROS.
- XREL SPACE 4,10
- LOCAL EQU 3
- XREL. SPACE 4,10
- ** XREL. - UNDEFINED COMMON DECK PROCESSOR.
- *
- * ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
- * LEFT JUSTIFIED.
- *
- * USES X - 6.
- * A - 6.
- * B - 1.
- *
- * MACROS ABORT, MESSAGE.
- XREL. SUBR ENTRY/EXIT
- SB1 1
- BX6 X1
- SA6 XREA+3
- MESSAGE XREA,LOCAL,R
- ABORT
- XREA DATA C* XREL - UNDEFINED ROUTINE - FILL-IN.*
- XREL= SPACE 4,10
- ** XREL= - ILLEGAL ARGUMENT PROCESSOR.
- *
- * ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
- * LEFT JUSTIFIED.
- * (X2) = ILLEGAL ARGUMENT.
- *
- * USES X - 0, 1, 2, 6.
- * A - 6.
- * B - 1.
- *
- * CALLS SFW.
- *
- * MACROS ABORT, MESSAGE.
- XREL= SUBR ENTRY/EXIT
- SB1 1
- BX0 X2 SAVE SECOND ARGUMENT
- LX1 -6
- SX2 1R-
- BX1 X1+X2
- RJ =XSFW
- BX1 X0
- SA6 XREB
- RJ =XSFW
- SA6 XREB+3
- MESSAGE XREB,LOCAL,R
- ABORT
- XREB DATA C* FILL-IN - ILLEGAL ARGUMENT .GT.FILL-IT-IN.LT..*
- END
- IDENT XSFN
- ENTRY XSFN
- SYSCOM B1
- TITLE XSFN - SPACE FILL NAME.
- *COMMENT SPACE FILL NAME.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XSFN SPACE 4,10
- *** XSFN - SPACE FILL NAME.
- *
- * HOLLERITH = XSFN (NAME)
- *
- * XX = XSFN(NAME); (*SYMPL* CALL)
- *
- * ENTRY NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED,
- * ZERO FILLED.
- *
- * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * CALLS SFN.
- XSFN SUBR ENTRY/EXIT
- SB1 1
- SA1 X1+
- RJ =XSFN SPACE FILL NAME
- EQ XSFNX RETURN, RESULT IN X6
- ENTRY SFN
- *CALL COMCSFN SPACE FILL NAME.
- END
- IDENT XSFW
- ENTRY XSFW
- SYSCOM B1
- ENTRY SFW
- TITLE XSFW - SPACE FILL WORD.
- *COMMENT SPACE FILL WORD.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XSFW SPACE 4,10
- *** XSFW - SPACE FILL WORD.
- *
- * HOLLERITH = XSFW (WORD)
- *
- * XX = XSFW(WORD); (*SYMPL* CALL)
- *
- * ENTRY WORD, AN ITEM CONTAINING THE WORD TO CHANGE ZEROES TO
- * BLANKS.
- *
- * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
- *
- * USES X - 1.
- * A - 1.
- * B - 1.
- *
- * CALLS SFW.
- XSFW SUBR ENTRY/EXIT
- SB1 1
- SA1 X1+
- RJ =XSFW SPACE FILL WORD
- EQ XSFWX RETURN, RESULT IN X6
- SFW SPACE 4,10
- IF -DEF,QUAL$,1
- QUAL COMCSFW
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- SFW SPACE 4,10
- *** SFW - SPACE FILL WORD.
- *
- * SFW REPLACES ALL 00 CODES WITH 55 CODES IN A WORD.
- *
- * ENTRY (X1) = WORD WITH 00 CODES.
- * (B1) = 1.
- *
- * EXIT (X6) = WORD SPACE FILLED.
- * (X7) = FINAL CHARACTER MASK.
- *
- * USES X - 3, 6, 7.
- * A - 3.
- SFW SUBR ENTRY/EXIT
- SA3 SFWA =37373737373737373737B
- BX6 X3*X1 EXTRACT UPPER BIT FROM EACH CHARACTER
- BX7 -X3*X1 EXTRACT LOWER 5 BITS FROM EACH CHARACTER
- IX6 X6+X3 EACH NON-00 CHARACTER GIVES CARRY
- BX6 X6+X7
- BX7 -X3*X6 EACH NON-00 CHARACTER = 40B
- SA3 A3+B1 =10H
- BX6 X7
- LX7 -5 GENERATE SPACE MASK
- IX7 X6-X7
- BX7 X6+X7
- BX3 -X7*X3 SELECT SPACE CODES
- IX6 X1+X3 MERGE SPACES
- EQ SFWX EXIT
- SFWA CON 37373737373737373737B MASK
- CON 10H
- SFW SPACE 4,10
- BASE *
- QUAL$ IF -DEF,QUAL$
- QUAL *
- SFW EQU /COMCSFW/SFW
- QUAL$ ENDIF
- ENDX
- END
- IDENT XWOD
- ENTRY XWOD
- SYSCOM B1
- TITLE XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
- *COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- XWOD SPACE 4,8
- *** XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
- *
- * *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
- * TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
- * OF THE INPUT WORD.
- *
- * XWOD(W,A); (*SYMPL* CALL)
- *
- * ENTRY W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED.
- * A, A 20 CHARACTER BUFFER FWA.
- * (AN ARRAY OR ITEM 20 CHARACTERS LONG)
- *
- * EXIT A AND A+1, CONTAIN CONVERTED WORD.
- *
- * USES X - 1, 2, 6, 7.
- * A - 1, 2, 6, 7.
- * B - 1, 7.
- *
- * CALLS WOD.
- XWOD SUBR ENTRY/EXIT
- SB1 1 (B1) = 1
- SB7 A1 SAVE (A1)
- SA1 X1 FETCH W
- RJ WOD
- SA2 B7+B1 FETCH LOCATION (A)
- SA6 X2 STORE UPPER 10 CHARACTERS
- SA7 X2+B1 STORE LOWER 10 CHARACTERS
- EQ XWODX RETURN
- *CALL COMCWOD CONVERT WORD TO OCTAL DISPLAY CODE.
- END
- IDENT XZAP
- ENTRY XZAP
- SYSCOM B1
- TITLE XZAP - *Z* ARGUMENT PROCESSOR.
- *COMMENT *Z* ARGUMENT PROCESSOR.
- COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
- *CALL COMCMAC
- XZAP SPACE 4,15
- *** XZAP - *Z* ARGUMENT PROCESSOR.
- *
- * XZAP(FADDR); (*SYMPL* CALL)
- *
- * ENTRY FADDR = FWA OF FET.
- *
- * EXIT DIRECTIVES ENTERED INTO THE BUFFER
- * SPECIFIED IN THE FET.
- *
- * USES B - 1.
- * X - 2.
- *
- * CALLS ZAP.
- XZAP SUBR ENTRY/EXIT
- SB1 1
- BX2 X1 SET ADDRESS OF FET
- RJ ZAP PROCESS *Z* ARGUMENT
- EQ XZAPX RETURN
- *CALL COMCUSB
- *CALL COMCZAP
- END
cdc/nos2.source/opl871/mac1.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator