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