cdc:nos2.source:opl.opl871:deck:mac1
Deck MAC1
4 Modifications
Listing Sections
- Deck MAC1 Start
- Deck MAC1 Part 1 (Line 1996)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.mac1 +++| IDENT MACREL 00002 M01S00002.mac1 +++| SYSCOM B1 00003 M01S00003.mac1 +++| ENTRY MACREL. 00004 M01S00004.mac1 +++| ENTRY MACREL= 00005 M01S00005.mac1 +++| TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES. 00006 M01S00006.mac1 +++|*COMMENT SYSTEM MACRO INTERFACE ROUTINES.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.mac1 +++| MACREL SPACE 4,10
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00009.ns2676 ---|*** MACREL - SYSTEM MACRO INTERFACE ROUTINES. 00011 M01S00001.ns2676 +++|** MACREL - SYSTEM MACRO INTERFACE ROUTINES. 00012 M01S00010.mac1 +++|* 00013 M01S00011.mac1 +++|* T. R. RAMSEY. 76/08/08. 00014 M01S00012.mac1 +++|* M. D. PICKARD 77/03/14. 00015 M01S00013.mac1 +++|* J. D. BRANHAM. 78/09/12. 00016 M01S00014.mac1 +++|* 00017 M01S00015.mac1 +++| MACREL SPACE 4,10
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S00016.ns2676 ---|*** *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT 00019 M01S00002.ns2676 +++|** *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT 00020 M01S00017.mac1 +++|* PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES 00021 M01S00018.mac1 +++|* AND THE SYSTEM MACROS. 00022 M01S00019.mac1 +++|* 00023 M01S00020.mac1 +++|* *FORTRAN* CALLING SEQUENCES ARE SHOWN IN EACH MODULE ALONG 00024 M01S00021.mac1 +++|* WITH OTHER PERTINENT INFORMATION, E.G., ENTRY, EXIT. 00025 M01S00022.mac1 +++|* 00026 M01S00023.mac1 +++|* ALSO *SYMPL* CALLING SEQUENCES ARE SHOWN IN EACH MODULE 00027 M01S00024.mac1 +++|* ALONG WITH THE APPROPRIATE *SYMPL* DATA TYPES NEEDED 00028 M01S00025.mac1 +++|* FOR ENTRY/EXIT. 00029 M01S00026.mac1 +++| TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES. 00030 M01S00027.mac1 +++| MACREL SPACE 4,10 00031 M01S00028.mac1 +++|** *MACREL* MODULES TRANSLATE PARAMETERS IN HIGHER LEVEL 00032 M01S00029.mac1 +++|* LANGUAGE CALLING SEQUENCES INTO MACRO CALLING SEQUENCES. 00033 M01S00030.mac1 +++|* *FORTRAN* CALLING SEQUENCES MENTIONED ARE EQUIVALENT TO 00034 M01S00031.mac1 +++|* COBOL (ENTER USING), *SYMPL*, ETC. 00035 M01S00032.mac1 +++|* 00036 M01S00033.mac1 +++|* ENTRY *FORTRAN* CALL AND FUNCTION REFERENCE CALLING 00037 M01S00034.mac1 +++|* SEQUENCES USE THE ACTUAL PARAMETER LIST, CALL BY 00038 M01S00035.mac1 +++|* REFERENCE CALLING SEQUENCE WHERE - 00039 M01S00036.mac1 +++|* (A1) = FWA OF PARAMETER ADDRESS LIST. 00040 M01S00037.mac1 +++|* ((A1)) = FIRST PARAMETER 00041 M01S00038.mac1 +++|* ((A1+1)) = SECOND PARAMETER 00042 M01S00039.mac1 +++|* . . 00043 M01S00040.mac1 +++|* . . 00044 M01S00041.mac1 +++|* . . 00045 M01S00042.mac1 +++|* ((A1+N)) = N-TH PARAMETER 00046 M01S00043.mac1 +++|* ((A1+N+1)) = 0 (ZERO) (NOMINALLY) 00047 M01S00044.mac1 +++|* (X1) = FIRST PARAMETER 00048 M01S00045.mac1 +++|* 00049 M01S00046.mac1 +++|* EXIT (X6) = FUNCTION RESULT. 00050 M01S00047.mac1 +++|* (X7) = SECOND WORD OF TWO WORD RESULT, E.G., COMPLEX. 00051 M01S00048.mac1 +++|* 00052 M01S00049.mac1 +++|* NEEDS EACH MODULE CONTAINS A CALL TO A MACRO WHOSE NAME IS 00053 M01S00050.mac1 +++|* THE SAME AS THE MODULE (EXCEPT WHERE NOTED). THESE 00054 M01S00051.mac1 +++|* MACROS ARE DEFINED IN *PSSTEXT* AND *NOSTEXT*. 00055 M01S00052.mac1 +++|* 00056 M01S00053.mac1 +++|* NOTE B1 IS SET TO ONE UPON ENTRY TO EACH MODULE 00057 M01S00054.mac1 +++|* 00058 M01S00055.mac1 +++|* OTHER *MACREL* IS A COLLECTION OF RELOCATABLE MODULES 00059 M01S00056.mac1 +++|* COMBINED INTO ONE *MODIFY* DECK ENTITY NAMED *LIB*. 00060 M01S00057.mac1 +++| MACREL. SPACE 4,10 00061 M01S00058.mac1 +++|** MACREL. - UNDEFINED MACRO PROCESSOR. 00062 M01S00059.mac1 +++|* 00063 M01S00060.mac1 +++|* ENTRY (X1) = MACRO NAME IN 0L FORMAT. 00064 M01S00061.mac1 +++|* 00065 M01S00062.mac1 +++|* USES X - 6. 00066 M01S00063.mac1 +++|* A - 6. 00067 M01S00064.mac1 +++|* B - 1. 00068 M01S00065.mac1 +++|* 00069 M01S00066.mac1 +++|* MACROS ABORT, MESSAGE. 00070 M01S00067.mac1 +++| 00071 M01S00068.mac1 +++| 00072 M01S00069.mac1 +++| MACREL. SUBR ENTRY/EXIT 00073 M01S00070.mac1 +++| SB1 1 00074 M01S00071.mac1 +++| BX6 X1 00075 M01S00072.mac1 +++| SA6 MACA+3 00076 M01S00073.mac1 +++| MESSAGE MACA,LOCAL,R 00077 M01S00074.mac1 +++| ABORT 00078 M01S00075.mac1 +++| 00079 M01S00076.mac1 +++| MACA DATA C* MACREL - UNDEFINED MACRO - FILL-IN.* 00080 M01S00077.mac1 +++| MACREL= SPACE 4,10 00081 M01S00078.mac1 +++|** MACREL= - ILLEGAL ARGUMENT PROCESSOR. 00082 M01S00079.mac1 +++|* 00083 M01S00080.mac1 +++|* ENTRY (X1) = MACRO NAME IN 0L FORMAT. 00084 M01S00081.mac1 +++|* (X2) = THE ILLEGAL ARGUMENT. 00085 M01S00082.mac1 +++|* 00086 M01S00083.mac1 +++|* USES X - 0, 1, 2, 6. 00087 M01S00084.mac1 +++|* A - 6. 00088 M01S00085.mac1 +++|* B - 1. 00089 M01S00086.mac1 +++|* 00090 M01S00087.mac1 +++|* CALLS SFW. 00091 M01S00088.mac1 +++|* 00092 M01S00089.mac1 +++|* MACROS ABORT, MESSAGE. 00093 M01S00090.mac1 +++| 00094 M01S00091.mac1 +++| 00095 M01S00092.mac1 +++| MACREL= SUBR ENTRY/EXIT 00096 M01S00093.mac1 +++| SB1 1 00097 M01S00094.mac1 +++| BX0 X2 SAVE SECOND ARGUMENT 00098 M01S00095.mac1 +++| LX1 -6 00099 M01S00096.mac1 +++| SX2 1R- 00100 M01S00097.mac1 +++| BX1 X1+X2 00101 M01S00098.mac1 +++| RJ =XSFW 00102 M01S00099.mac1 +++| BX1 X0 00103 M01S00100.mac1 +++| SA6 MACB 00104 M01S00101.mac1 +++| RJ =XSFW 00105 M01S00102.mac1 +++| SA6 MACB+3 00106 M01S00103.mac1 +++| MESSAGE MACB,LOCAL,R 00107 M01S00104.mac1 +++| ABORT 00108 M01S00105.mac1 +++| 00109 M01S00106.mac1 +++| MACB DATA C* FILL-IN - ILLEGAL ARGUMENT >FILL-IT-IN<.* 00110 M01S00107.mac1 +++| 00111 M01S00108.mac1 +++| END 00112 M01S00109.mac1 +++| IDENT ABEND 00113 M01S00110.mac1 +++| ENTRY ABORT 00114 M01S00111.mac1 +++| ENTRY ENDRUN 00115 M01S00112.mac1 +++| SYSCOM B1 00116 M01S00113.mac1 +++| TITLE ABORT - ABORT JOB / ENDRUN - END CENTRAL PROGRAM. 00117 M01S00114.mac1 +++|*COMMENT ABORT/ENDRUN.
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00115.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00119 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00120 M01S00116.mac1 +++| ABORT SPACE 4,10 00121 M01S00117.mac1 +++|*** ABORT - ABORT JOB. 00122 M01S00118.mac1 +++|* 00123 M01S00119.mac1 +++|* CALL ABORT 00124 M01S00120.mac1 +++|* 00125 M01S00121.mac1 +++|* ABORT; (*SYMPL* CALL) 00126 M01S00122.mac1 +++|* 00127 M01S00123.mac1 +++|* USES B - 1. 00128 M01S00124.mac1 +++|* 00129 M01S00125.mac1 +++|* MACROS ABORT. 00130 M01S00126.mac1 +++| 00131 M01S00127.mac1 +++| 00132 M01S00128.mac1 +++| ABORT SUBR ENTRY/EXIT 00133 M01S00129.mac1 +++| SB1 1 00134 M01S00130.mac1 +++| ABORT 00135 M01S00131.mac1 +++| ENDRUN SPACE 4,10 00136 M01S00132.mac1 +++|*** ENDRUN - END CENTRAL PROGRAM. 00137 M01S00133.mac1 +++|* 00138 M01S00134.mac1 +++|* CALL ENDRUN. 00139 M01S00135.mac1 +++|* 00140 M01S00136.mac1 +++|* ENDRUN; (*SYMPL* CALL) 00141 M01S00137.mac1 +++|* 00142 M01S00138.mac1 +++|* USES B - 1. 00143 M01S00139.mac1 +++|* 00144 M01S00140.mac1 +++|* NOTE - A *STOP;* IN *SYMPL* DOES THE SAME THING. 00145 M01S00141.mac1 +++| 00146 M01S00142.mac1 +++| 00147 M01S00143.mac1 +++| ENDRUN SUBR ENTRY/EXIT 00148 M01S00144.mac1 +++| SB1 1 00149 M01S00145.mac1 +++| ENDRUN 00150 M01S00146.mac1 +++| 00151 M01S00147.mac1 +++| END 00152 M01S00148.mac1 +++| IDENT BKSP 00153 M01S00149.mac1 +++| ENTRY BKSP 00154 M01S00150.mac1 +++| SYSCOM B1 00155 M01S00151.mac1 +++| TITLE BKSP - BACKSPACE 1 LOGICAL RECORD. 00156 M01S00152.mac1 +++|*COMMENT BACKSPACE 1 LOGICAL RECORD.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00153.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00158 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00159 M01S00154.mac1 +++| BKSP SPACE 4,10 00160 M01S00155.mac1 +++|*** BKSP - BACKSPACE 1 LOGICAL RECORD. 00161 M01S00156.mac1 +++|* 00162 M01S00157.mac1 +++|* CALL BKSP (FILE,R) 00163 M01S00158.mac1 +++|* 00164 M01S00159.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 00165 M01S00160.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00166 M01S00161.mac1 +++|* 00167 M01S00162.mac1 +++|* BKSP(FILE,R); ( *SYMPL* CALL ) 00168 M01S00163.mac1 +++|* 00169 M01S00164.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 00170 M01S00165.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00171 M01S00166.mac1 +++|* 00172 M01S00167.mac1 +++|* USES X - 2. 00173 M01S00168.mac1 +++|* A - 2. 00174 M01S00169.mac1 +++|* B - 1. 00175 M01S00170.mac1 +++|* 00176 M01S00171.mac1 +++|* MACROS BKSP. 00177 M01S00172.mac1 +++| 00178 M01S00173.mac1 +++| 00179 M01S00174.mac1 +++| BKSP SUBR ENTRY/EXIT 00180 M01S00175.mac1 +++| SB1 1 00181 M01S00176.mac1 +++| SA2 A1+B1 ADDRESS OF RECALL 00182 M01S00177.mac1 +++| SA2 X2 RECALL VALUE 00183 M01S00178.mac1 +++| NZ X2,BKS1 IF RECALL 00184 M01S00179.mac1 +++| BKSP X1 00185 M01S00180.mac1 +++| EQ BKSPX 00186 M01S00181.mac1 +++| 00187 M01S00182.mac1 +++| BKS1 BKSP X1,R 00188 M01S00183.mac1 +++| EQ BKSPX 00189 M01S00184.mac1 +++| 00190 M01S00185.mac1 +++| END 00191 M01S00186.mac1 +++| IDENT BKSPRU 00192 M01S00187.mac1 +++| ENTRY BKSPRU 00193 M01S00188.mac1 +++| SYSCOM B1 00194 M01S00189.mac1 +++| TITLE BKSPRU - BACKSPACE PHYSICAL RECORDS. 00195 M01S00190.mac1 +++|*COMMENT BACKSPACE PHYSICAL RECORDS.
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00196 M02S00191.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00197 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00198 M01S00192.mac1 +++| BKSPRU SPACE 4,10 00199 M01S00193.mac1 +++|*** BKSPRU - BACKSPACE PHYSICAL RECORDS. 00200 M01S00194.mac1 +++|* 00201 M01S00195.mac1 +++|* CALL BKSPRU (FILE,N,R) 00202 M01S00196.mac1 +++|* 00203 M01S00197.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 00204 M01S00198.mac1 +++|* (N) = NUMBER OF RECORDS. 00205 M01S00199.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00206 M01S00200.mac1 +++|* 00207 M01S00201.mac1 +++|* BKSPRU(FILE,N,R); (*SYMPL* CALL) 00208 M01S00202.mac1 +++|* 00209 M01S00203.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 00210 M01S00204.mac1 +++|* (N) = AN ITEM CONTAINING THE NUMBER OF PRU*S TO 00211 M01S00205.mac1 +++|* BACKSPACE 00212 M01S00206.mac1 +++|* (R) = RECALL,IF .NE. 0, RECALL IS REQUESTED. 00213 M01S00207.mac1 +++|* 00214 M01S00208.mac1 +++|* USES X - 2, 3. 00215 M01S00209.mac1 +++|* A - 2, 3. 00216 M01S00210.mac1 +++|* B - 1. 00217 M01S00211.mac1 +++|* 00218 M01S00212.mac1 +++|* MACROS BKSPRU. 00219 M01S00213.mac1 +++|* 00220 M01S00214.mac1 +++| 00221 M01S00215.mac1 +++| 00222 M01S00216.mac1 +++| BKSPRU SUBR ENTRY/EXIT 00223 M01S00217.mac1 +++| SB1 1 00224 M01S00218.mac1 +++| SA3 A1+B1 ADDRESS OF N 00225 M01S00219.mac1 +++| SA2 A3+B1 GET RECALL PARAMETER 00226 M01S00220.mac1 +++| SA3 X3 N 00227 M01S00221.mac1 +++| SA2 X2 00228 M01S00222.mac1 +++| NZ X2,BKP1 IF RECALL REQUESTED 00229 M01S00223.mac1 +++| BKSPRU X1,X3 00230 M01S00224.mac1 +++| EQ BKSPRUX 00231 M01S00225.mac1 +++| 00232 M01S00226.mac1 +++| BKP1 BKSPRU X1,X3,R 00233 M01S00227.mac1 +++| EQ BKSPRUX 00234 M01S00228.mac1 +++| 00235 M01S00229.mac1 +++| END 00236 M01S00230.mac1 +++| IDENT CHECKPT 00237 M01S00231.mac1 +++| ENTRY CHECKPT 00238 M01S00232.mac1 +++| SYSCOM B1 00239 M01S00233.mac1 +++| TITLE CHECKPT - TAKE CHECKPOINT DUMP. 00240 M01S00234.mac1 +++|*COMMENT TAKE CHECKPOINT DUMP.
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00235.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00242 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00243 M01S00236.mac1 +++| CHECKPT SPACE 4,10 00244 M01S00237.mac1 +++|*** CHECKPT - TAKE CHECKPOINT DUMP. 00245 M01S00238.mac1 +++|* 00246 M01S00239.mac1 +++|* CALL CHECKPT (LIST,OPTION) 00247 M01S00240.mac1 +++|* 00248 M01S00241.mac1 +++|* ENTRY (LIST) = LIST OF FILE PROCESSING SPECIFICATIONS. 00249 M01S00242.mac1 +++|* (OPTION) = 0, PROCESS ALL FILES. 00250 M01S00243.mac1 +++|* = OTHER, PROCESS ONLY THE SPECIFIED FILES. 00251 M01S00244.mac1 +++|* 00252 M01S00245.mac1 +++|* CHECKPT(LIST,OPTION); (*SYMPL* CALL) 00253 M01S00246.mac1 +++|* 00254 M01S00247.mac1 +++|* ENTRY LIST, AN ARRAY THAT CONTAINS A LIST OF FILE 00255 M01S00248.mac1 +++|* PROCESSING SPECIFICATIONS. 00256 M01S00249.mac1 +++|* OPTION, AN ITEM THAT CONTAINS THE OPTION. 00257 M01S00250.mac1 +++|* 00258 M01S00251.mac1 +++|* USES X - 2. 00259 M01S00252.mac1 +++|* A - 2. 00260 M01S00253.mac1 +++|* B - 1. 00261 M01S00254.mac1 +++|* 00262 M01S00255.mac1 +++|* MACROS CHECKPT. 00263 M01S00256.mac1 +++| 00264 M01S00257.mac1 +++| 00265 M01S00258.mac1 +++| CHECKPT SUBR ENTRY/EXIT 00266 M01S00259.mac1 +++| SB1 1 00267 M01S00260.mac1 +++| SA2 A1+B1 ADDRESS OF OPTION 00268 M01S00261.mac1 +++| SA2 X2 OPTION 00269 M01S00262.mac1 +++| ZR X2,CHE1 IF ALL FILES TO BE PROCESSED 00270 M01S00263.mac1 +++| CHECKPT X1,OPTION 00271 M01S00264.mac1 +++| EQ CHECKPTX 00272 M01S00265.mac1 +++| 00273 M01S00266.mac1 +++| CHE1 CHECKPT X1 00274 M01S00267.mac1 +++| EQ CHECKPTX 00275 M01S00268.mac1 +++| 00276 M01S00269.mac1 +++| END 00277 M01S00270.mac1 +++| IDENT CLOCK 00278 M01S00271.mac1 +++| ENTRY CLOCK 00279 M01S00272.mac1 +++| SYSCOM B1 00280 M01S00273.mac1 +++| TITLE CLOCK - OBTAIN TIME OF DAY. 00281 M01S00274.mac1 +++|*COMMENT OBTAIN TIME OF DAY.
| Line S00275 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00282 M02S00275.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00283 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00284 M01S00276.mac1 +++| CLOCK SPACE 4,10 00285 M01S00277.mac1 +++|*** CLOCK - OBTAIN TIME OF DAY. 00286 M01S00278.mac1 +++|* 00287 M01S00279.mac1 +++|* CALL CLOCK (STATUS) 00288 M01S00280.mac1 +++|* 00289 M01S00281.mac1 +++|* EXIT (STATUS) = TIME OF DAY. 00290 M01S00282.mac1 +++|*T 60/ * HH.MM.SS.*
Figure
00291 M01S00283.mac1 +++|* 00292 M01S00284.mac1 +++|* CLOCK(STATUS); (*SYMPL* CALL) 00293 M01S00285.mac1 +++|* 00294 M01S00286.mac1 +++|* EXIT STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE 00295 M01S00287.mac1 +++|* CLOCK READING. 00296 M01S00288.mac1 +++|* 00297 M01S00289.mac1 +++|* USES X - 1, 5, 6. 00298 M01S00290.mac1 +++|* A - 1. 00299 M01S00291.mac1 +++|* B - 1. 00300 M01S00292.mac1 +++|* 00301 M01S00293.mac1 +++|* MACROS CLOCK. 00302 M01S00294.mac1 +++| 00303 M01S00295.mac1 +++| 00304 M01S00296.mac1 +++| CLOCK SUBR ENTRY/EXIT 00305 M01S00297.mac1 +++| SB1 1 00306 M01S00298.mac1 +++| BX5 X1 00307 M01S00299.mac1 +++| CLOCK X1 00308 M01S00300.mac1 +++| SA1 X5 00309 M01S00301.mac1 +++| BX6 X1 RETURN TIME OF DAY AS FUNCTION RESULT 00310 M01S00302.mac1 +++| EQ CLOCKX 00311 M01S00303.mac1 +++| 00312 M01S00304.mac1 +++| END 00313 M01S00305.mac1 +++| IDENT CLOSE 00314 M01S00306.mac1 +++| ENTRY CLOSE 00315 M01S00307.mac1 +++| SYSCOM B1 00316 M01S00308.mac1 +++| TITLE CLOSE - CLOSE FILE. 00317 M01S00309.mac1 +++|*COMMENT CLOSE FILE.
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00318 M02S00310.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00319 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00320 M01S00311.mac1 +++| CLOSE SPACE 4,10 00321 M01S00312.mac1 +++|*** CLOSE - CLOSE FILE. 00322 M01S00313.mac1 +++|* 00323 M01S00314.mac1 +++|* CALL CLOSE (FILE,OPTION,R) 00324 M01S00315.mac1 +++|* 00325 M01S00316.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 00326 M01S00317.mac1 +++|* (OPTION) = 0, CLOSE WITH REWIND. 00327 M01S00318.mac1 +++|* = 2HNR, CLOSE WITHOUT REWIND. 00328 M01S00319.mac1 +++|* = 6HRETURN, CLOSE WITH REWIND, RETURN. 00329 M01S00320.mac1 +++|* = 6HREWIND, CLOSE WITH REWIND. 00330 M01S00321.mac1 +++|* = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD. 00331 M01S00322.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00332 M01S00323.mac1 +++|* 00333 M01S00324.mac1 +++|* CLOSE(FILE,OPTION,R); (*SYMPL* CALL) 00334 M01S00325.mac1 +++|* 00335 M01S00326.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 00336 M01S00327.mac1 +++|* OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING 00337 M01S00328.mac1 +++|* CHARACTER STRINGS, LEFT JUSTIFIED, BLANK 00338 M01S00329.mac1 +++|* FILL, OR A BINARY 0. 00339 M01S00330.mac1 +++|* NR (NO REWIND). 00340 M01S00331.mac1 +++|* RETURN. 00341 M01S00332.mac1 +++|* REWIND (SAME AS 0). 00342 M01S00333.mac1 +++|* UNLOAD. 00343 M01S00334.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00344 M01S00335.mac1 +++|* 00345 M01S00336.mac1 +++|* EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED. 00346 M01S00337.mac1 +++|* 00347 M01S00338.mac1 +++|* USES X - 2, 3, 4. 00348 M01S00339.mac1 +++|* A - 2, 3, 4. 00349 M01S00340.mac1 +++|* B - 1. 00350 M01S00341.mac1 +++|* 00351 M01S00342.mac1 +++|* CALLS MACREL. 00352 M01S00343.mac1 +++|* 00353 M01S00344.mac1 +++|* MACROS CLOSE. 00354 M01S00345.mac1 +++| 00355 M01S00346.mac1 +++| 00356 M01S00347.mac1 +++| CLOSE SUBR ENTRY/EXIT 00357 M01S00348.mac1 +++| SB1 1 00358 M01S00349.mac1 +++| SA2 A1+B1 ADDRESS OF OPTION 00359 M01S00350.mac1 +++| SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER 00360 M01S00351.mac1 +++| SA2 X2 OPTION 00361 M01S00352.mac1 +++| SA3 X3 RECALL OPTION 00362 M01S00353.mac1 +++| ZR X2,CLO1 IF REWIND 00363 M01S00354.mac1 +++| NO 00364 M01S00355.mac1 +++| SA4 =0HNR 00365 M01S00356.mac1 +++| BX4 X2-X4 00366 M01S00357.mac1 +++| ZR X4,CLO2 IF NR 00367 M01S00358.mac1 +++| SA4 =0HRETURN 00368 M01S00359.mac1 +++| BX4 X2-X4 00369 M01S00360.mac1 +++| ZR X4,CLO6 IF RETURN 00370 M01S00361.mac1 +++| SA4 =0HREWIND 00371 M01S00362.mac1 +++| BX4 X2-X4 00372 M01S00363.mac1 +++| ZR X4,CLO1 IF REWIND 00373 M01S00364.mac1 +++| SA4 =0HUNLOAD 00374 M01S00365.mac1 +++| BX4 X2-X4 00375 M01S00366.mac1 +++| ZR X4,CLO8 IF UNLOAD 00376 M01S00367.mac1 +++| SA1 =0LCLOSE 00377 M01S00368.mac1 +++| RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT 00378 M01S00369.mac1 +++| EQ CLOSEX 00379 M01S00370.mac1 +++| 00380 M01S00371.mac1 +++| CLO1 NZ X3,CLO5 IF RECALL 00381 M01S00372.mac1 +++| CLOSE X1 00382 M01S00373.mac1 +++| EQ CLOSEX 00383 M01S00374.mac1 +++| 00384 M01S00375.mac1 +++| CLO2 NZ X3,CLO6 IF RECALL 00385 M01S00376.mac1 +++| CLOSE X1,NR 00386 M01S00377.mac1 +++| EQ CLOSEX 00387 M01S00378.mac1 +++| 00388 M01S00379.mac1 +++| CLO3 NZ X3,CLO7 IF RECALL 00389 M01S00380.mac1 +++| CLOSE X1,RETURN 00390 M01S00381.mac1 +++| EQ CLOSEX 00391 M01S00382.mac1 +++| 00392 M01S00383.mac1 +++| CLO4 NZ X3,CLO8 IF RECALL 00393 M01S00384.mac1 +++| CLOSE X1,UNLOAD 00394 M01S00385.mac1 +++| EQ CLOSEX 00395 M01S00386.mac1 +++| 00396 M01S00387.mac1 +++| CLO5 CLOSE X1,,R 00397 M01S00388.mac1 +++| EQ CLOSEX 00398 M01S00389.mac1 +++| 00399 M01S00390.mac1 +++| CLO6 CLOSE X1,NR,R 00400 M01S00391.mac1 +++| EQ CLOSEX 00401 M01S00392.mac1 +++| 00402 M01S00393.mac1 +++| CLO7 CLOSE X1,RETURN,R 00403 M01S00394.mac1 +++| EQ CLOSEX 00404 M01S00395.mac1 +++| 00405 M01S00396.mac1 +++| CLO8 CLOSE X1,UNLOAD,R 00406 M01S00397.mac1 +++| EQ CLOSEX 00407 M01S00398.mac1 +++| 00408 M01S00399.mac1 +++| END 00409 M01S00400.mac1 +++| IDENT CLOSER 00410 M01S00401.mac1 +++| ENTRY CLOSER 00411 M01S00402.mac1 +++| SYSCOM B1 00412 M01S00403.mac1 +++| TITLE CLOSER - CLOSE REEL. 00413 M01S00404.mac1 +++|*COMMENT CLOSE REEL.
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00414 M02S00405.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00415 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00416 M01S00406.mac1 +++| CLOSER SPACE 4,10 00417 M01S00407.mac1 +++|*** CLOSER - CLOSER REEL. 00418 M01S00408.mac1 +++|* 00419 M01S00409.mac1 +++|* CALL CLOSER (FILE,OPTION,R) 00420 M01S00410.mac1 +++|* 00421 M01S00411.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 00422 M01S00412.mac1 +++|* (OPTION) = 0, CLOSE WITH REWIND. 00423 M01S00413.mac1 +++|* = 2HNR, CLOSE WITHOUT REWIND. 00424 M01S00414.mac1 +++|* = 6HREWIND, CLOSE WITH REWIND. 00425 M01S00415.mac1 +++|* = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD. 00426 M01S00416.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00427 M01S00417.mac1 +++|* 00428 M01S00418.mac1 +++|* CLOSER(FILE,OPTION,R); (*SYMPL* CALL) 00429 M01S00419.mac1 +++|* 00430 M01S00420.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 00431 M01S00421.mac1 +++|* OPTION, AN ITEM THE CONTAINS ONE OF THE FOLLOWING 00432 M01S00422.mac1 +++|* CHARACTER STRINGS, LEFT JUSTIFIED, BLANK 00433 M01S00423.mac1 +++|* FILL, OR A BINARY 0. 00434 M01S00424.mac1 +++|* NR (NO REWIND). 00435 M01S00425.mac1 +++|* REWIND (SAME AS 0). 00436 M01S00426.mac1 +++|* UNLOAD. 00437 M01S00427.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00438 M01S00428.mac1 +++|* 00439 M01S00429.mac1 +++|* EXIT TO ARGUMENT ERROR PROCESSOR IF OPTION IS UNRECOGNIZED. 00440 M01S00430.mac1 +++|* 00441 M01S00431.mac1 +++|* USES X - 1, 2, 3, 4. 00442 M01S00432.mac1 +++|* A - 1, 2, 3, 4. 00443 M01S00433.mac1 +++|* B - 1. 00444 M01S00434.mac1 +++|* 00445 M01S00435.mac1 +++|* CALLS MACREL. 00446 M01S00436.mac1 +++|* 00447 M01S00437.mac1 +++|* MACROS CLOSER. 00448 M01S00438.mac1 +++| 00449 M01S00439.mac1 +++| 00450 M01S00440.mac1 +++| 00451 M01S00441.mac1 +++| CLOSER SUBR ENTRY/EXIT 00452 M01S00442.mac1 +++| SB1 1 00453 M01S00443.mac1 +++| SA2 A1+B1 ADDRESS OF OPTION 00454 M01S00444.mac1 +++| SA3 A2+B1 GET RECALL PARAMETER ADDRESS 00455 M01S00445.mac1 +++| SA2 X2 OPTION 00456 M01S00446.mac1 +++| SA3 X3 GET RECALL VALUE 00457 M01S00447.mac1 +++| ZR X2,CLO1 IF REWIND 00458 M01S00448.mac1 +++| NO 00459 M01S00449.mac1 +++| SA4 =0HNR 00460 M01S00450.mac1 +++| BX4 X2-X4 00461 M01S00451.mac1 +++| ZR X4,CLO2 IF NR 00462 M01S00452.mac1 +++| SA4 =0HREWIND 00463 M01S00453.mac1 +++| BX4 X2-X4 00464 M01S00454.mac1 +++| ZR X4,CLO1 IF REWIND 00465 M01S00455.mac1 +++| SA4 =0HUNLOAD 00466 M01S00456.mac1 +++| BX4 X2-X4 00467 M01S00457.mac1 +++| ZR X4,CLO3 IF UNLOAD 00468 M01S00458.mac1 +++| SA1 =0LCLOSER 00469 M01S00459.mac1 +++| RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT 00470 M01S00460.mac1 +++| EQ CLOSERX 00471 M01S00461.mac1 +++| 00472 M01S00462.mac1 +++| CLO1 NZ X3,CLO4 IF RECALL 00473 M01S00463.mac1 +++| CLOSER X1 00474 M01S00464.mac1 +++| EQ CLOSERX 00475 M01S00465.mac1 +++| 00476 M01S00466.mac1 +++| CLO2 NZ X3,CLO5 IF RECALL 00477 M01S00467.mac1 +++| CLOSER X1,NR 00478 M01S00468.mac1 +++| EQ CLOSERX 00479 M01S00469.mac1 +++| 00480 M01S00470.mac1 +++| CLO3 NZ X3,CLO6 IF RECALL 00481 M01S00471.mac1 +++| CLOSER X1,UNLOAD 00482 M01S00472.mac1 +++| EQ CLOSERX 00483 M01S00473.mac1 +++| 00484 M01S00474.mac1 +++| CLO4 CLOSER X1,,R 00485 M01S00475.mac1 +++| EQ CLOSERX 00486 M01S00476.mac1 +++| 00487 M01S00477.mac1 +++| CLO5 CLOSER X1,NR,R 00488 M01S00478.mac1 +++| EQ CLOSERX 00489 M01S00479.mac1 +++| 00490 M01S00480.mac1 +++| CLO6 CLOSER X1,UNLOAD,R 00491 M01S00481.mac1 +++| EQ CLOSERX 00492 M01S00482.mac1 +++| 00493 M01S00483.mac1 +++| END 00494 M01S00484.mac1 +++| IDENT CONSOLE 00495 M01S00485.mac1 +++| ENTRY CONSOLE 00496 M01S00486.mac1 +++| SYSCOM B1 00497 M01S00487.mac1 +++| TITLE CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY. 00498 M01S00488.mac1 +++|*COMMENT COMMUNICATE WITH THE *K* AND *L* DISPLAY.
| Line S00489 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00499 M02S00489.281l803 ---| COMMENT COPYRIGHT CONTROL CORP. 1978. 00500 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00501 M01S00490.mac1 +++| CONSOLE SPACE 4,10 00502 M01S00491.mac1 +++|*** CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY. 00503 M01S00492.mac1 +++|* 00504 M01S00493.mac1 +++|* CALL CONSOLE (ADDR) 00505 M01S00494.mac1 +++|* 00506 M01S00495.mac1 +++|* CONSOLE(ADDR); (*SYMPL* CALL) 00507 M01S00496.mac1 +++|* 00508 M01S00497.mac1 +++|* ENTRY (ADDR) = ADDRESS OF CONSOLE PARAMETER WORD. 00509 M01S00498.mac1 +++|* IF (ADDR) = 0, CONSOLE OPERATIONS ARE TERMINATED. 00510 M01S00499.mac1 +++|*T, 6/0,18/IB,18/RB,18/LB
Figure
00511 M01S00500.mac1 +++|* IB = KEYBOARD BUFFER ADDRESS. 00512 M01S00501.mac1 +++|* RB = ADDRESS OF FORMATTED BUFFER FOR RIGHT SCREEN. 00513 M01S00502.mac1 +++|* LB = ADDRESS OF FORMATTED BUFFER FOR LEFT SCREEN. 00514 M01S00503.mac1 +++|* 00515 M01S00504.mac1 +++|* USES B - 1. 00516 M01S00505.mac1 +++|* 00517 M01S00506.mac1 +++|* MACROS CONSOLE. 00518 M01S00507.mac1 +++| 00519 M01S00508.mac1 +++| 00520 M01S00509.mac1 +++| CONSOLE BSS 0 00521 M01S00510.mac1 +++| CONSL SUBR ENTRY/EXIT 00522 M01S00511.mac1 +++| SB1 1 00523 M01S00512.mac1 +++| CONSOLE X1 00524 M01S00513.mac1 +++| EQ CONSLX EXIT 00525 M01S00514.mac1 +++| 00526 M01S00515.mac1 +++| END 00527 M01S00516.mac1 +++| IDENT DATE 00528 M01S00517.mac1 +++| ENTRY DATE 00529 M01S00518.mac1 +++| SYSCOM B1 00530 M01S00519.mac1 +++| TITLE DATE - OBTAIN DATE. 00531 M01S00520.mac1 +++|*COMMENT OBTAIN DATE.
| Line S00521 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00532 M02S00521.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00533 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00534 M01S00522.mac1 +++| DATE SPACE 4,10 00535 M01S00523.mac1 +++|*** DATE - OBTAIN DATE. 00536 M01S00524.mac1 +++|* 00537 M01S00525.mac1 +++|* CALL DATE (STATUS) 00538 M01S00526.mac1 +++|* 00539 M01S00527.mac1 +++|* EXIT (STATUS) = DATE. 00540 M01S00528.mac1 +++|*T 60/ * YY/MM/DD.*
Figure
00541 M01S00529.mac1 +++|* 00542 M01S00530.mac1 +++|* DATE(STATUS); (*SYMPL* CALL) 00543 M01S00531.mac1 +++|* 00544 M01S00532.mac1 +++|* EXIT (STATUS), A CHARACTER ITEM CONTAINING THE TIME. 00545 M01S00533.mac1 +++|* 00546 M01S00534.mac1 +++|* USES X - 1, 5, 6. 00547 M01S00535.mac1 +++|* A - 1. 00548 M01S00536.mac1 +++|* B - 1. 00549 M01S00537.mac1 +++|* 00550 M01S00538.mac1 +++|* MACROS DATE. 00551 M01S00539.mac1 +++| 00552 M01S00540.mac1 +++| 00553 M01S00541.mac1 +++| DATE SUBR ENTRY/EXIT 00554 M01S00542.mac1 +++| SB1 1 00555 M01S00543.mac1 +++| BX5 X1 00556 M01S00544.mac1 +++| DATE X1 00557 M01S00545.mac1 +++| SA1 X5 00558 M01S00546.mac1 +++| BX6 X1 RETURN DATE AS FUNCTION RESULT 00559 M01S00547.mac1 +++| EQ DATEX 00560 M01S00548.mac1 +++| 00561 M01S00549.mac1 +++| END 00562 M01S00550.mac1 +++| IDENT EDATE 00563 M01S00551.mac1 +++| ENTRY EDATE 00564 M01S00552.mac1 +++| SYSCOM B1 00565 M01S00553.mac1 +++| TITLE EDATE - EDIT DATE FROM PACKED FORMAT. 00566 M01S00554.mac1 +++|*COMMENT EDIT DATE FROM PACKED FORMAT.
| Line S00555 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00567 M02S00555.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00568 M01S00011.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00569 M01S00556.mac1 +++| EDATE SPACE 4,15 00570 M01S00557.mac1 +++|*** EDATE - EDIT DATE FROM PACKED FORMAT. 00571 M01S00558.mac1 +++|* 00572 M01S00559.mac1 +++|* STAT = EDATE(PKDT) 00573 M01S00560.mac1 +++|* 00574 M01S00561.mac1 +++|* STAT = EDATE(PKDT); (*SYMPL* CALL) 00575 M01S00562.mac1 +++|* 00576 M01S00563.mac1 +++|* ENTRY (PKDT) = PACKED DATE IN LOWER 18 BITS. 00577 M01S00564.mac1 +++|* 00578 M01S00565.mac1 +++|* EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY, 00579 M01S00566.mac1 +++|* EDITED DATE IN THE FOLLOWING 00580 M01S00567.mac1 +++|* FORMAT - 00581 M01S00568.mac1 +++|* * YY/MM/DD.*. 00582 M01S00569.mac1 +++|* 00583 M01S00570.mac1 +++|* USES X - 1. 00584 M01S00571.mac1 +++|* A - 1. 00585 M01S00572.mac1 +++|* B - 1. 00586 M01S00573.mac1 +++|* 00587 M01S00574.mac1 +++|* MACROS EDATE. 00588 M01S00575.mac1 +++| 00589 M01S00576.mac1 +++| 00590 M01S00577.mac1 +++| EDATE SUBR ENTRY/EXIT 00591 M01S00578.mac1 +++| SB1 1 00592 M01S00579.mac1 +++| SA1 X1 GET PACKED DATE 00593 M01S00580.mac1 +++| EDATE X1 00594 M01S00581.mac1 +++| EQ EDATEX RETURN 00595 M01S00582.mac1 +++| 00596 M01S00583.mac1 +++|*CALL COMCCDD 00597 M01S00584.mac1 +++|*CALL COMCEDT 00598 M01S00585.mac1 +++| 00599 M01S00586.mac1 +++| END 00600 M01S00587.mac1 +++| IDENT ETIME 00601 M01S00588.mac1 +++| ENTRY ETIME 00602 M01S00589.mac1 +++| SYSCOM B1 00603 M01S00590.mac1 +++| TITLE ETIME - EDIT TIME FROM PACKED FORMAT. 00604 M01S00591.mac1 +++|*COMMENT EDIT TIME FROM PACKED FORMAT.
| Line S00592 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00605 M02S00592.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00606 M01S00012.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00607 M01S00593.mac1 +++| ETIME SPACE 4,15 00608 M01S00594.mac1 +++|*** ETIME - EDIT TIME FROM PACKED FORMAT. 00609 M01S00595.mac1 +++|* 00610 M01S00596.mac1 +++|* STAT = ETIME(PKTM) 00611 M01S00597.mac1 +++|* 00612 M01S00598.mac1 +++|* STAT = ETIME(PKTM); (*SYMPL* CALL) 00613 M01S00599.mac1 +++|* 00614 M01S00600.mac1 +++|* ENTRY (PKTM) = PACKED TIME IN LOWER 18 BITS. 00615 M01S00601.mac1 +++|* 00616 M01S00602.mac1 +++|* EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY, 00617 M01S00603.mac1 +++|* EDITED TIME IN THE FOLLOWING 00618 M01S00604.mac1 +++|* FORMAT - 00619 M01S00605.mac1 +++|* * HH.MM.SS.*. 00620 M01S00606.mac1 +++|* 00621 M01S00607.mac1 +++|* USES X - 1. 00622 M01S00608.mac1 +++|* A - 1. 00623 M01S00609.mac1 +++|* B - 1. 00624 M01S00610.mac1 +++|* 00625 M01S00611.mac1 +++|* MACROS ETIME. 00626 M01S00612.mac1 +++| 00627 M01S00613.mac1 +++| 00628 M01S00614.mac1 +++| ETIME SUBR ENTRY/EXIT 00629 M01S00615.mac1 +++| SB1 1 00630 M01S00616.mac1 +++| SA1 X1 GET PACKED TIME 00631 M01S00617.mac1 +++| ETIME X1 00632 M01S00618.mac1 +++| EQ ETIMEX RETURN 00633 M01S00619.mac1 +++| 00634 M01S00620.mac1 +++|*CALL COMCCDD 00635 M01S00621.mac1 +++|*CALL COMCEDT 00636 M01S00622.mac1 +++| 00637 M01S00623.mac1 +++| END 00638 M01S00624.mac1 +++| IDENT EVICT 00639 M01S00625.mac1 +++| ENTRY EVICT 00640 M01S00626.mac1 +++| SYSCOM B1 00641 M01S00627.mac1 +++| TITLE EVICT - RELEASE FILE SPACE. 00642 M01S00628.mac1 +++|*COMMENT RELEASE FILE SPACE.
| Line S00629 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00643 M02S00629.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00644 M01S00013.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00645 M01S00630.mac1 +++| EVICT SPACE 4,10 00646 M01S00631.mac1 +++|*** EVICT - RELEASE FILE SPACE. 00647 M01S00632.mac1 +++|* 00648 M01S00633.mac1 +++|* CALL EVICT (FILE,R) 00649 M01S00634.mac1 +++|* 00650 M01S00635.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 00651 M01S00636.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00652 M01S00637.mac1 +++|* 00653 M01S00638.mac1 +++|* EVICT(FILE,R); (*SYMPL* CALL) 00654 M01S00639.mac1 +++|* 00655 M01S00640.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 00656 M01S00641.mac1 +++|* (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED. 00657 M01S00642.mac1 +++|* 00658 M01S00643.mac1 +++|* USES X - 2. 00659 M01S00644.mac1 +++|* A - 2. 00660 M01S00645.mac1 +++|* B - 1. 00661 M01S00646.mac1 +++|* 00662 M01S00647.mac1 +++|* MACROS EVICT. 00663 M01S00648.mac1 +++| 00664 M01S00649.mac1 +++| 00665 M01S00650.mac1 +++| EVICT SUBR ENTRY/EXIT 00666 M01S00651.mac1 +++| SB1 1 00667 M01S00652.mac1 +++| SA2 A1+B1 00668 M01S00653.mac1 +++| SA2 X2 RECALL VALUE 00669 M01S00654.mac1 +++| NZ X2,EVT1 IF RECALL ON 00670 M01S00655.mac1 +++| EVICT X1 00671 M01S00656.mac1 +++| EQ EVICTX 00672 M01S00657.mac1 +++| 00673 M01S00658.mac1 +++| EVT1 EVICT X1,R 00674 M01S00659.mac1 +++| EQ EVICTX 00675 M01S00660.mac1 +++| 00676 M01S00661.mac1 +++| END 00677 M01S00001.ns22000 +++| IDENT FILINFO 00678 M01S00002.ns22000 +++| ENTRY FILINFO 00679 M01S00003.ns22000 +++| SYSCOM B1 00680 M01S00003.ns2676 +++| TITLE FILINFO - FILE INFORMATION. 00681 M01S00004.ns22000 +++| COMMENT 82/11/15. FILE INFORMATION.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00682 M02S00005.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00683 M01S00014.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00684 M01S00006.ns22000 +++| SPACE 4,10 00685 M01S00007.ns22000 +++|*** FILINFO - FILE INFORMATION. 00686 M01S00008.ns22000 +++|* 00687 M01S00009.ns22000 +++|* CALL FILINFO(PAR) *FORTRAN* 00688 M01S00010.ns22000 +++|* 00689 M01S00011.ns22000 +++|* FILINFO(PAR); *SYMPL* 00690 M01S00012.ns22000 +++|* 00691 M01S00013.ns22000 +++|* ENTRY (PAR) = FIVE WORD PARAMETER BLOCK. 00692 M01S00014.ns22000 +++|* THE FIRST WORD MUST HAVE THE 00693 M01S00015.ns22000 +++|* FOLLOWING FORMAT : 00694 M01S00016.ns22000 +++|* 00695 M01S00017.ns22000 +++|* VFD 42/LFN, 6/LEN, 11/0, 1/1 00696 M01S00018.ns22000 +++|* 00697 M01S00019.ns22000 +++|* WHERE 00698 M01S00020.ns22000 +++|* 00699 M01S00021.ns22000 +++|* LFN FILE NAME, LEFT JUSTIFIED, 0 FILLED. 00700 M01S00022.ns22000 +++|* LEN MUST BE AT LEAST 5 WORDS. 00701 M01S00023.ns22000 +++|* 00702 M01S00024.ns22000 +++|* EXIT INFORMATION ABOUT THE FILE IS RETURNED IN THE 00703 M01S00025.ns22000 +++|* PARAMETER BLOCK (SEE NOS VERS. 2, VOL. 4). 00704 M01S00026.ns22000 +++|* 00705 M01S00027.ns22000 +++|* USE B - 1. 00706 M01S00028.ns22000 +++|* 00707 M01S00029.ns22000 +++|* MACRO FILINFO. 00708 M01S00030.ns22000 +++| 00709 M01S00031.ns22000 +++| 00710 M01S00032.ns22000 +++| FILINFO SUBR ENTRY/EXIT 00711 M01S00033.ns22000 +++| SB1 1 00712 M01S00034.ns22000 +++| FILINFO X1 00713 M01S00035.ns22000 +++| EQ FILINFOX RETURN 00714 M01S00036.ns22000 +++| END 00715 M01S00662.mac1 +++| IDENT GETJN 00716 M01S00663.mac1 +++| ENTRY GETJN 00717 M01S00664.mac1 +++| SYSCOM 1 00718 M01S00665.mac1 +++| TITLE GETJN - GET JOB SEQUENCE NUMBER. 00719 M01S00666.mac1 +++|*COMMENT GET JOB SEQUENCE NUMBER.
| Line S00667 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00720 M02S00667.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1981. 00721 M01S00015.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00722 M01S00668.mac1 +++| GETJN SPACE 4,10 00723 M01S00669.mac1 +++|*** GETJN - GET JOB SEQUENCE NUMBER. 00724 M01S00670.mac1 +++|* 00725 M01S00671.mac1 +++|* CALL GETJN(ADDR) 00726 M01S00672.mac1 +++|* 00727 M01S00673.mac1 +++|* GETJN(ADDR) 00728 M01S00674.mac1 +++|* 00729 M01S00675.mac1 +++|* ENTRY (ADDR) = ADDRESS TO RECIEVE JOB SEQUENCE NUMBER. 00730 M01S00676.mac1 +++|* 00731 M01S00677.mac1 +++|* EXIT ((ADDR)) = JOB SEQUENCE NUMBER. 00732 M01S00678.mac1 +++|* 00733 M01S00679.mac1 +++|* USES B - 1. 00734 M01S00680.mac1 +++|* 00735 M01S00681.mac1 +++|* MACROS GETJN. 00736 M01S00682.mac1 +++| 00737 M01S00683.mac1 +++| 00738 M01S00684.mac1 +++| GETJN SUBR ENTRY/EXIT 00739 M01S00685.mac1 +++| SB1 1 00740 M01S00686.mac1 +++| GETJN X1 00741 M01S00687.mac1 +++| EQ GETJNX EXIT 00742 M01S00688.mac1 +++| 00743 M01S00689.mac1 +++| END 00744 M01S00690.mac1 +++| IDENT JDATE 00745 M01S00691.mac1 +++| ENTRY JDATE 00746 M01S00692.mac1 +++| SYSCOM B1 00747 M01S00693.mac1 +++| TITLE JDATE - OBTAIN JULIAN DATE. 00748 M01S00694.mac1 +++|*COMMENT OBTAIN JULIAN DATE.
| Line S00695 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00749 M02S00695.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00750 M01S00016.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00751 M01S00696.mac1 +++| JDATE SPACE 4,10 00752 M01S00697.mac1 +++|*** JDATE - OBTAIN JULIAN DATE. 00753 M01S00698.mac1 +++|* 00754 M01S00699.mac1 +++|* CALL JDATE (STATUS) 00755 M01S00700.mac1 +++|* 00756 M01S00701.mac1 +++|* EXIT (STATUS) = JULIAN DATE. 00757 M01S00702.mac1 +++|*T 30/ 0, 30/ *YYDDD*
Figure
00758 M01S00703.mac1 +++|* 00759 M01S00704.mac1 +++|* JDATE(STATUS); (*SYMPL* CALL) 00760 M01S00705.mac1 +++|* 00761 M01S00706.mac1 +++|* EXIT STATUS, A CHARACTER ITEM TO CONTAIN JULIAN 00762 M01S00707.mac1 +++|* DATE ON EXIT. 00763 M01S00708.mac1 +++|* 00764 M01S00709.mac1 +++|* USES X - 1, 5, 6. 00765 M01S00710.mac1 +++|* A - 1. 00766 M01S00711.mac1 +++|* B - 1. 00767 M01S00712.mac1 +++|* 00768 M01S00713.mac1 +++|* MACROS JDATE. 00769 M01S00714.mac1 +++| 00770 M01S00715.mac1 +++| 00771 M01S00716.mac1 +++| JDATE SUBR ENTRY/EXIT 00772 M01S00717.mac1 +++| SB1 1 00773 M01S00718.mac1 +++| BX5 X1 00774 M01S00719.mac1 +++| JDATE X1 00775 M01S00720.mac1 +++| SA1 X5 00776 M01S00721.mac1 +++| BX6 X1 RETURN JULIAN DATE AS FUNCTION RESULT 00777 M01S00722.mac1 +++| EQ JDATEX 00778 M01S00723.mac1 +++| 00779 M01S00724.mac1 +++| END 00780 M01S00725.mac1 +++| IDENT MACHID 00781 M01S00726.mac1 +++| ENTRY MACHID 00782 M01S00727.mac1 +++| SYSCOM 1 00783 M01S00728.mac1 +++| TITLE MACHID - GET TWO CHARACTER MACHINE *ID*. 00784 M01S00729.mac1 +++|*COMMENT GET TWO CHARACTER MACHINE *ID*.
| Line S00730 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00785 M02S00730.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00786 M01S00017.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00787 M01S00731.mac1 +++| MACHID SPACE 4,10 00788 M01S00732.mac1 +++|*** MACHID - GET TWO CHARACTER MACHINE *ID*. 00789 M01S00733.mac1 +++|* 00790 M01S00734.mac1 +++|* CALL MACHID (ADDR) 00791 M01S00735.mac1 +++|* 00792 M01S00736.mac1 +++|* MACHID(ADDR); (*SYMPL* CALL) 00793 M01S00737.mac1 +++|* 00794 M01S00738.mac1 +++|* ENTRY (ADDR) = ADDRESS TO RECEIVE MACHINE *ID*. 00795 M01S00739.mac1 +++|* 00796 M01S00740.mac1 +++|* EXIT ((ADDR)) = MACHINE *ID*. 00797 M01S00741.mac1 +++|* 00798 M01S00742.mac1 +++|* USES B - 1. 00799 M01S00743.mac1 +++|* 00800 M01S00744.mac1 +++|* MACROS MACHID. 00801 M01S00745.mac1 +++| 00802 M01S00746.mac1 +++| 00803 M01S00747.mac1 +++| MACHID SUBR ENTRY/EXIT 00804 M01S00748.mac1 +++| SB1 1 00805 M01S00749.mac1 +++| MACHID X1 00806 M01S00750.mac1 +++| EQ MACHIDX EXIT 00807 M01S00751.mac1 +++| 00808 M01S00752.mac1 +++| 00809 M01S00753.mac1 +++| END 00810 M01S00754.mac1 +++| IDENT MEMORY 00811 M01S00755.mac1 +++| ENTRY MEMORY 00812 M01S00756.mac1 +++| SYSCOM B1 00813 M01S00757.mac1 +++| TITLE MEMORY - REQUEST MEMORY. 00814 M01S00758.mac1 +++|*COMMENT REQUEST MEMORY.
| Line S00759 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00815 M02S00759.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00816 M01S00018.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00817 M01S00760.mac1 +++| MEMORY SPACE 4,10 00818 M01S00761.mac1 +++|*** MEMORY - REQUEST MEMORY. 00819 M01S00762.mac1 +++|* 00820 M01S00763.mac1 +++|* CALL MEMORY(TYPE,STATUS,R,NA) 00821 M01S00764.mac1 +++|* 00822 M01S00765.mac1 +++|* ENTRY (TYPE) = 2HCM OR 3HSCM OR 3HECS OR 3HLCM. 00823 M01S00766.mac1 +++|* (STATUS) = 30/N,30/0 N=AMOUNT REQUESTED. 00824 M01S00767.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 00825 M01S00768.mac1 +++|* (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED 00826 M01S00769.mac1 +++|* IF THE REQUESTED MEMORY IS NOT AVAILABLE. 00827 M01S00770.mac1 +++|* IF NON BLANK AND THE MEMORY IS UNAVAILABLE, 00828 M01S00771.mac1 +++|* THE CURRENT FIELD LENGTH IS RETURNED IN 00829 M01S00772.mac1 +++|* BITS 59-30 OF *STATUS*. 00830 M01S00773.mac1 +++|* 00831 M01S00774.mac1 +++|* MEMORY(TYPE,STATUS,R,NA); (*SYMPL* CALL) 00832 M01S00775.mac1 +++|* 00833 M01S00776.mac1 +++|* ENTRY TYPE, AN ITEM CONTAINING A *CM* OR *SCM*, LEFT 00834 M01S00777.mac1 +++|* JUSTIFIED, BLANK FILLED. 00835 M01S00778.mac1 +++|* STATUS, AN ITEM CONTAINING THE MEMORY REQUEST 00836 M01S00779.mac1 +++|* STATUS WORD. 00837 M01S00780.mac1 +++|* THE FORMAT OF MEMORY REQUEST STATUS WORD IS 00838 M01S00781.mac1 +++|*T 30/VALUE, 26/0, 3/RESERVED, 1/COMPLETE BIT.
Figure
00839 M01S00782.mac1 +++|* (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED. 00840 M01S00783.mac1 +++|* (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED 00841 M01S00784.mac1 +++|* IF THE REQUESTED MEMORY IS NOT AVAILABLE. 00842 M01S00785.mac1 +++|* IF NON BLANK AND THE MEMORY IS UNAVAILABLE, 00843 M01S00786.mac1 +++|* THE CURRENT FIELD LENGTH IS RETURNED IN 00844 M01S00787.mac1 +++|* BITS 59-30 OF *STATUS*. 00845 M01S00788.mac1 +++|* 00846 M01S00789.mac1 +++|* EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED. 00847 M01S00790.mac1 +++|* IF N = 0, CURRENT AMOUNT ASSIGNED IS RETURNED IN 00848 M01S00791.mac1 +++|* BITS 59-30 OF STATUS WORD. 00849 M01S00792.mac1 +++|* 00850 M01S00793.mac1 +++|* USES X - 1, 2, 3, 4, 5. 00851 M01S00794.mac1 +++|* A - 1, 2, 3, 4, 5. 00852 M01S00795.mac1 +++|* B - 1, 2. 00853 M01S00796.mac1 +++|* 00854 M01S00797.mac1 +++|* CALLS MACREL. 00855 M01S00798.mac1 +++|* 00856 M01S00799.mac1 +++|* MACROS MEMORY. 00857 M01S00800.mac1 +++| 00858 M01S00801.mac1 +++| 00859 M01S00802.mac1 +++| MEMORY SUBR ENTRY/EXIT 00860 M01S00803.mac1 +++| SB1 1 00861 M01S00804.mac1 +++| SA2 X1 TYPE 00862 M01S00805.mac1 +++| SA1 A1+B1 ADDRESS OF STATUS WORD 00863 M01S00806.mac1 +++| SA3 A1+B1 GET RECALL PARAMETER 00864 M01S00807.mac1 +++| SA5 X3 00865 M01S00808.mac1 +++| SB2 X5 00866 M01S00809.mac1 +++| SA5 A3+B1 GET NO ABORT OPTION 00867 M01S00810.mac1 +++| SA3 =0HCM 00868 M01S00811.mac1 +++| SA4 =0HSCM 00869 M01S00812.mac1 +++| BX3 X2-X3 00870 M01S00813.mac1 +++| BX4 X2-X4 00871 M01S00814.mac1 +++| SA5 X5 00872 M01S00815.mac1 +++| BX4 X3*X4 00873 M01S00816.mac1 +++| ZR X4,MEM1 IF CM OR SCM 00874 M01S00817.mac1 +++| SA3 =0HECS 00875 M01S00818.mac1 +++| SA4 =0HLCM 00876 M01S00819.mac1 +++| BX3 X2-X3 00877 M01S00820.mac1 +++| BX4 X2-X4 00878 M01S00821.mac1 +++| BX4 X3*X4 00879 M01S00822.mac1 +++| ZR X4,MEM2 IF ECS OR LCM 00880 M01S00823.mac1 +++| BX2 X1 00881 M01S00824.mac1 +++| SA1 =0LMEMORY 00882 M01S00825.mac1 +++| RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT 00883 M01S00826.mac1 +++| EQ MEMORYX 00884 M01S00827.mac1 +++| 00885 M01S00828.mac1 +++| MEM1 ZR B2,MEM3 IF NO RECALL 00886 M01S00829.mac1 +++| MEMORY CM,X1,R,,X5 00887 M01S00830.mac1 +++| EQ MEMORYX 00888 M01S00831.mac1 +++| 00889 M01S00832.mac1 +++| MEM2 ZR B2,MEM4 IF NO RECALL 00890 M01S00833.mac1 +++| MEMORY ECS,X1,R,,X5 00891 M01S00834.mac1 +++| EQ MEMORYX 00892 M01S00835.mac1 +++| 00893 M01S00836.mac1 +++| MEM3 MEMORY CM,X1,,,X5 00894 M01S00837.mac1 +++| EQ MEMORYX 00895 M01S00838.mac1 +++| 00896 M01S00839.mac1 +++| MEM4 MEMORY ECS,X1,,,X5 00897 M01S00840.mac1 +++| EQ MEMORYX 00898 M01S00841.mac1 +++| 00899 M01S00842.mac1 +++| END 00900 M01S00843.mac1 +++| IDENT MESSAGE 00901 M01S00844.mac1 +++| ENTRY MESSAGE 00902 M01S00845.mac1 +++| SYSCOM B1 00903 M01S00846.mac1 +++| TITLE MESSAGE - SEND MESSAGE. 00904 M01S00847.mac1 +++|*COMMENT SEND MESSAGE.
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00905 M02S00848.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00906 M01S00019.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00907 M01S00849.mac1 +++| MESSAGE SPACE 4,10 00908 M01S00850.mac1 +++|*** MESSAGE - SEND MESSAGE. 00909 M01S00851.mac1 +++|* 00910 M01S00852.mac1 +++|* CALL MESSAGE (TEXT,OPTION,R) 00911 M01S00853.mac1 +++|* 00912 M01S00854.mac1 +++|* ENTRY (TEXT) = MESSAGE ARRAY, TERMINATED BY ZERO BYTE 00913 M01S00855.mac1 +++|* (OPTION) = 0, SEND MESSAGE TO SYSTEM DAYFILE, 00914 M01S00856.mac1 +++|* LOCAL JOB DAYFILE, AND A AND B DISPLAYS. 00915 M01S00857.mac1 +++|* = 1, SEND MESSAGE TO LINE 1 OF CONTROL POINT. 00916 M01S00858.mac1 +++|* = 2, SEND MESSAGE TO LINE 2 OF CONTROL POINT. 00917 M01S00859.mac1 +++|* = 3, SEND MESSAGE TO USER DAYFILE AND LINE 00918 M01S00860.mac1 +++|* 1 OF CONTROL POINT. 00919 M01S00861.mac1 +++|* = 4, SEND MESSAGE TO ERROR LOG DAYFILE. 00920 M01S00862.mac1 +++|* = 5, SEND MESSAGE TO ACCOUNT DAYFILE. 00921 M01S00863.mac1 +++|* = 6, SAME AS 0. 00922 M01S00864.mac1 +++|* = 7, SAME AS 3. 00923 M01S00865.mac1 +++|* = 9, SEND MESSAGE TO BINARY MAINTENANCE LOG. 00924 M01S00866.mac1 +++|* = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE. 00925 M01S00867.mac1 +++|* 00926 M01S00868.mac1 +++|* MESSAGE(TEXT,OPTION); (*SYMPL* CALL) 00927 M01S00869.mac1 +++|* 00928 M01S00870.mac1 +++|* ENTRY TEXT, AN ARRAY WITH THE TEXT IN IT, OR AN ITEM 00929 M01S00871.mac1 +++|* WITH TEXT IN IT. 00930 M01S00872.mac1 +++|* OPTION, AN ITEM CONTAINING ONE OF THE OPTIONS. 00931 M01S00873.mac1 +++|* 00932 M01S00874.mac1 +++|* USES X - 2, 3, 4. 00933 M01S00875.mac1 +++|* A - 2, 3. 00934 M01S00876.mac1 +++|* B - 1. 00935 M01S00877.mac1 +++|* 00936 M01S00878.mac1 +++|* MACROS MESSAGE. 00937 M01S00879.mac1 +++| 00938 M01S00880.mac1 +++| 00939 M01S00881.mac1 +++| MESSAGE SUBR ENTRY/EXIT 00940 M01S00882.mac1 +++| SB1 1 00941 M01S00883.mac1 +++| SA2 A1+B1 ADDRESS OF OPTION 00942 M01S00884.mac1 +++| SA2 X2 OPTION 00943 M01S00885.mac1 +++| SA3 =0HLOCAL 00944 M01S00886.mac1 +++| BX4 X2-X3 00945 M01S00887.mac1 +++| ZR X4,MES1 IF LOCAL 00946 M01S00888.mac1 +++| MESSAGE X1,X2,R 00947 M01S00889.mac1 +++| EQ MESSAGEX 00948 M01S00890.mac1 +++| 00949 M01S00891.mac1 +++| 00950 M01S00892.mac1 +++| MES1 MESSAGE X1,LOCAL,R 00951 M01S00893.mac1 +++| EQ MESSAGEX 00952 M01S00894.mac1 +++| 00953 M01S00895.mac1 +++| END 00954 M01S00896.mac1 +++| IDENT MOVE 00955 M01S00897.mac1 +++| ENTRY MOVE 00956 M01S00898.mac1 +++| SYSCOM B1 00957 M01S00899.mac1 +++| TITLE MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS. 00958 M01S00900.mac1 +++|*COMMENT MOVE BLOCK OF CENTRAL MEMORY WORDS.
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00959 M02S00901.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00960 M01S00020.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00961 M01S00902.mac1 +++| MOVE SPACE 4,10 00962 M01S00903.mac1 +++|*** MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS, DIRECT ADDRESSING. 00963 M01S00904.mac1 +++|* 00964 M01S00905.mac1 +++|* CALL MOVE (COUNT,FROM,TO) 00965 M01S00906.mac1 +++|* 00966 M01S00907.mac1 +++|* ENTRY (COUNT) = COUNT OF WORDS TO MOVE. 00967 M01S00908.mac1 +++|* (FROM) = FIRST WORD OF THE *FROM* BLOCK. 00968 M01S00909.mac1 +++|* (TO) = FIRST WORD OF THE *TO* BLOCK. 00969 M01S00910.mac1 +++|* 00970 M01S00911.mac1 +++|* MOVE(COUNT,FROM,TO); (*SYMPL* CALL) 00971 M01S00912.mac1 +++|* 00972 M01S00913.mac1 +++|* ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO 00973 M01S00914.mac1 +++|* MOVE. 00974 M01S00915.mac1 +++|* FROM, AN ARRAY TO MOVE FROM. 00975 M01S00916.mac1 +++|* TO, AN ARRAY TO MOVE TO. 00976 M01S00917.mac1 +++|* 00977 M01S00918.mac1 +++|* USES X - 1, 2, 3. 00978 M01S00919.mac1 +++|* A - 1, 2, 3. 00979 M01S00920.mac1 +++|* B - 1. 00980 M01S00921.mac1 +++|* 00981 M01S00922.mac1 +++|* MACROS MOVE. 00982 M01S00923.mac1 +++| 00983 M01S00924.mac1 +++| 00984 M01S00925.mac1 +++| MOVE SUBR ENTRY/EXIT 00985 M01S00926.mac1 +++| SB1 1 (B1) = 1 00986 M01S00927.mac1 +++| SA2 A1+B1 (X2) = FROM FWA 00987 M01S00928.mac1 +++| SA3 A2+B1 (X3) = TO FWA 00988 M01S00929.mac1 +++| SA1 X1 (X1) = COUNT 00989 M01S00930.mac1 +++| SX2 X2 00990 M01S00931.mac1 +++| SX3 X3 CLEAR UPPER BITS 00991 M01S00932.mac1 +++| SX1 X1 00992 M01S00933.mac1 +++| MOVE X1,X2,X3 MOVE DATA 00993 M01S00934.mac1 +++| EQ MOVEX RETURN 00994 M01S00935.mac1 +++| 00995 M01S00936.mac1 +++| END 00996 M01S00937.mac1 +++| IDENT MOVEI 00997 M01S00938.mac1 +++| ENTRY MOVEI 00998 M01S00939.mac1 +++| SYSCOM B1 00999 M01S00940.mac1 +++| TITLE MOVEI - MOVE A BLOCK OF CM WORDS. 01000 M01S00941.mac1 +++|*COMMENT MOVE A BLOCK OF CM WORDS.
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01001 M02S00942.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01002 M01S00021.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01003 M01S00943.mac1 +++| MOVEI SPACE 4,10 01004 M01S00944.mac1 +++|*** MOVEI - MOVE BLOCK OF CENTRAL MEMORY WORDS, INDIRECT ADDRESS. 01005 M01S00945.mac1 +++|* 01006 M01S00946.mac1 +++|* CALL MOVEI (COUNT,LOC(FROM),LOC(TO)) 01007 M01S00947.mac1 +++|* 01008 M01S00948.mac1 +++|* ENTRY (COUNT) = COUNT OF WORDS TO MOVE. 01009 M01S00949.mac1 +++|* (FROM) = FIRST WORD OF THE *FROM* BLOCK. 01010 M01S00950.mac1 +++|* (TO) = FIRST WORD OF THE *TO* BLOCK. 01011 M01S00951.mac1 +++|* LOC = LOCATION OF. 01012 M01S00952.mac1 +++|* 01013 M01S00953.mac1 +++|* MOVEI(COUNT,FROM,TO); (*SYMPL* CALL) 01014 M01S00954.mac1 +++|* 01015 M01S00955.mac1 +++|* ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO 01016 M01S00956.mac1 +++|* MOVE. 01017 M01S00957.mac1 +++|* FROM, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO 01018 M01S00958.mac1 +++|* MOVE FROM, OR A LOC OF AN ARRAY. 01019 M01S00959.mac1 +++|* TO, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO 01020 M01S00960.mac1 +++|* MOVE TO, OR A LOC OF AN ARRAY. 01021 M01S00961.mac1 +++|* 01022 M01S00962.mac1 +++|* USES X - 1, 2, 3. 01023 M01S00963.mac1 +++|* A - 1, 2, 3. 01024 M01S00964.mac1 +++|* B - 1. 01025 M01S00965.mac1 +++|* 01026 M01S00966.mac1 +++|* MACROS MOVE. 01027 M01S00967.mac1 +++| 01028 M01S00968.mac1 +++| 01029 M01S00969.mac1 +++| MOVEI SUBR ENTRY/EXIT 01030 M01S00970.mac1 +++| SB1 1 01031 M01S00971.mac1 +++| SA2 A1+B1 (X2) = LOC (FROM FWA) 01032 M01S00972.mac1 +++| SA3 A2+B1 (X3) = LOC (TO FWA) 01033 M01S00973.mac1 +++| SA1 X1 (X1) = COUNT 01034 M01S00974.mac1 +++| SA2 X2 (X2) = FROM FWA 01035 M01S00975.mac1 +++| SA3 X3 (X3) = TO FWA 01036 M01S00976.mac1 +++| SX1 X1 01037 M01S00977.mac1 +++| SX2 X2 CLEAR UPPER BITS 01038 M01S00978.mac1 +++| SX3 X3 01039 M01S00979.mac1 +++| MOVE X1,X2,X3 MOVE DATA 01040 M01S00980.mac1 +++| EQ MOVEIX RETURN 01041 M01S00981.mac1 +++| 01042 M01S00982.mac1 +++| END 01043 M01S00983.mac1 +++| IDENT OPEN 01044 M01S00984.mac1 +++| ENTRY OPEN 01045 M01S00985.mac1 +++| SYSCOM B1 01046 M01S00986.mac1 +++| TITLE OPEN - OPEN FILE FOR PROCESSING. 01047 M01S00987.mac1 +++|*COMMENT OPEN FILE FOR PROCESSING.
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01048 M02S00988.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01049 M01S00022.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01050 M01S00989.mac1 +++| OPEN SPACE 4,10 01051 M01S00990.mac1 +++|*** OPEN - OPEN FILE FOR PROCESSING. 01052 M01S00991.mac1 +++|* 01053 M01S00992.mac1 +++|* CALL OPEN (FILE,OPTION,R) 01054 M01S00993.mac1 +++|* 01055 M01S00994.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01056 M01S00995.mac1 +++|* (OPTION) = 0, SAME AS ALTER. 01057 M01S00996.mac1 +++|* = 5HALTER. 01058 M01S00997.mac1 +++|* = 7HALTERNR. 01059 M01S00998.mac1 +++|* = 2HNR. 01060 M01S00999.mac1 +++|* = 4HREAD. 01061 M01S01000.mac1 +++|* = 6HREADNR. 01062 M01S01001.mac1 +++|* = 4HREEL. 01063 M01S01002.mac1 +++|* = 6HREELNR. 01064 M01S01003.mac1 +++|* = 5HWRITE. 01065 M01S01004.mac1 +++|* = 7HWRITENR. 01066 M01S01005.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01067 M01S01006.mac1 +++|* 01068 M01S01007.mac1 +++|* OPEN(FILE,OPTION,R); (*SYMPL* CALL) 01069 M01S01008.mac1 +++|* 01070 M01S01009.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01071 M01S01010.mac1 +++|* OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING 01072 M01S01011.mac1 +++|* CHARACTER STRINGS, LEFT JUSTIFIED, BLANK 01073 M01S01012.mac1 +++|* FILL WITH BINARY 0. 01074 M01S01013.mac1 +++|* ALTER. 01075 M01S01014.mac1 +++|* ALTERNR (ALTER, NO REWIND). 01076 M01S01015.mac1 +++|* NR (NO REWIND). 01077 M01S01016.mac1 +++|* READ. 01078 M01S01017.mac1 +++|* READNR (READ, NO REWIND). 01079 M01S01018.mac1 +++|* REEL. 01080 M01S01019.mac1 +++|* REELNR (REEL, NO REWIND). 01081 M01S01020.mac1 +++|* WRITE. 01082 M01S01021.mac1 +++|* WRITENR (WRITE, NO REWIND). 01083 M01S01022.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01084 M01S01023.mac1 +++|* 01085 M01S01024.mac1 +++|* EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED. 01086 M01S01025.mac1 +++|* 01087 M01S01026.mac1 +++|* USES X - 1, 2, 3, 4, 5, 6. 01088 M01S01027.mac1 +++|* A - 1, 2, 3, 4, 5. 01089 M01S01028.mac1 +++|* B - 1. 01090 M01S01029.mac1 +++|* 01091 M01S01030.mac1 +++|* CALLS MACREL. 01092 M01S01031.mac1 +++|* 01093 M01S01032.mac1 +++|* MACROS OPEN. 01094 M01S01033.mac1 +++| 01095 M01S01034.mac1 +++| 01096 M01S01035.mac1 +++| OPEN SUBR ENTRY/EXIT 01097 M01S01036.mac1 +++| SB1 1 01098 M01S01037.mac1 +++| SA2 A1+B1 ADDRESS OF OPTION 01099 M01S01038.mac1 +++| SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER 01100 M01S01039.mac1 +++| SA2 X2+ OPTION 01101 M01S01040.mac1 +++| SA3 X3 01102 M01S01041.mac1 +++| BX6 X3 01103 M01S01042.mac1 +++| ZR X2,OPE1 IF NO OPTION 01104 M01S01043.mac1 +++| SA3 =0HALTER 01105 M01S01044.mac1 +++| SA4 =0HALTERNR 01106 M01S01045.mac1 +++| SA5 =0HNR 01107 M01S01046.mac1 +++| BX3 X2-X3 01108 M01S01047.mac1 +++| BX4 X2-X4 01109 M01S01048.mac1 +++| ZR X3,OPE2 IF ALTER 01110 M01S01049.mac1 +++| BX5 X2-X5 01111 M01S01050.mac1 +++| ZR X4,OPE3 IF ALTERNR 01112 M01S01051.mac1 +++| ZR X5,OPE4 IF NR 01113 M01S01052.mac1 +++| SA3 =0HREAD 01114 M01S01053.mac1 +++| SA4 =0HREADNR 01115 M01S01054.mac1 +++| SA5 =0HREEL 01116 M01S01055.mac1 +++| BX3 X2-X3 01117 M01S01056.mac1 +++| BX4 X2-X4 01118 M01S01057.mac1 +++| ZR X3,OPE5 IF READ 01119 M01S01058.mac1 +++| BX5 X2-X5 01120 M01S01059.mac1 +++| ZR X4,OPE6 IF READNR 01121 M01S01060.mac1 +++| ZR X5,OPE7 IF REEL 01122 M01S01061.mac1 +++| SA3 =0HREELNR 01123 M01S01062.mac1 +++| SA4 =0HWRITE 01124 M01S01063.mac1 +++| SA5 =0HWRITENR 01125 M01S01064.mac1 +++| BX3 X2-X3 01126 M01S01065.mac1 +++| BX4 X2-X4 01127 M01S01066.mac1 +++| ZR X3,OPE8 IF REELNR 01128 M01S01067.mac1 +++| BX5 X2-X5 01129 M01S01068.mac1 +++| ZR X4,OPE9 IF WRITE 01130 M01S01069.mac1 +++| ZR X5,OPE10 IF WRITENR 01131 M01S01070.mac1 +++| SA1 =0LOPEN 01132 M01S01071.mac1 +++| RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT 01133 M01S01072.mac1 +++| EQ OPENX 01134 M01S01073.mac1 +++| 01135 M01S01074.mac1 +++| OPE1 NZ X6,OPE11 IF RECALL 01136 M01S01075.mac1 +++| OPEN X1 01137 M01S01076.mac1 +++| EQ OPENX 01138 M01S01077.mac1 +++| 01139 M01S01078.mac1 +++| OPE2 NZ X6,OPE12 IF RECALL 01140 M01S01079.mac1 +++| OPEN X1,ALTER 01141 M01S01080.mac1 +++| EQ OPENX 01142 M01S01081.mac1 +++| 01143 M01S01082.mac1 +++| OPE3 NZ X6,OPE13 IF RECALL 01144 M01S01083.mac1 +++| OPEN X1,ALTERNR 01145 M01S01084.mac1 +++| EQ OPENX 01146 M01S01085.mac1 +++| 01147 M01S01086.mac1 +++| OPE4 NZ X6,OPE14 IF RECALL 01148 M01S01087.mac1 +++| OPEN X1,NR 01149 M01S01088.mac1 +++| EQ OPENX 01150 M01S01089.mac1 +++| 01151 M01S01090.mac1 +++| OPE5 NZ X6,OPE15 IF RECALL 01152 M01S01091.mac1 +++| OPEN X1,READ 01153 M01S01092.mac1 +++| EQ OPENX 01154 M01S01093.mac1 +++| 01155 M01S01094.mac1 +++| OPE6 NZ X6,OPE16 IF RECALL 01156 M01S01095.mac1 +++| OPEN X1,READNR 01157 M01S01096.mac1 +++| EQ OPENX 01158 M01S01097.mac1 +++| 01159 M01S01098.mac1 +++| OPE7 NZ X6,OPE17 IF RECALL 01160 M01S01099.mac1 +++| OPEN X1,REEL 01161 M01S01100.mac1 +++| EQ OPENX 01162 M01S01101.mac1 +++| 01163 M01S01102.mac1 +++| OPE8 NZ X6,OPE18 IF RECALL 01164 M01S01103.mac1 +++| OPEN X1,REELNR 01165 M01S01104.mac1 +++| EQ OPENX 01166 M01S01105.mac1 +++| 01167 M01S01106.mac1 +++| OPE9 NZ X6,OPE19 IF RECALL 01168 M01S01107.mac1 +++| OPEN X1,WRITE 01169 M01S01108.mac1 +++| EQ OPENX 01170 M01S01109.mac1 +++| 01171 M01S01110.mac1 +++| OPE10 NZ X6,OPE20 IF RECALL 01172 M01S01111.mac1 +++| OPEN X1,WRITENR 01173 M01S01112.mac1 +++| EQ OPENX 01174 M01S01113.mac1 +++| 01175 M01S01114.mac1 +++| OPE11 OPEN X1,,R 01176 M01S01115.mac1 +++| EQ OPENX 01177 M01S01116.mac1 +++| 01178 M01S01117.mac1 +++| OPE12 OPEN X1,ALTER,R 01179 M01S01118.mac1 +++| EQ OPENX 01180 M01S01119.mac1 +++| 01181 M01S01120.mac1 +++| OPE13 OPEN X1,ALTERNR,R 01182 M01S01121.mac1 +++| EQ OPENX 01183 M01S01122.mac1 +++| 01184 M01S01123.mac1 +++| OPE14 OPEN X1,NR,R 01185 M01S01124.mac1 +++| EQ OPENX 01186 M01S01125.mac1 +++| 01187 M01S01126.mac1 +++| OPE15 OPEN X1,READ,R 01188 M01S01127.mac1 +++| EQ OPENX 01189 M01S01128.mac1 +++| 01190 M01S01129.mac1 +++| OPE16 OPEN X1,READNR,R 01191 M01S01130.mac1 +++| EQ OPENX 01192 M01S01131.mac1 +++| 01193 M01S01132.mac1 +++| OPE17 OPEN X1,REEL,R 01194 M01S01133.mac1 +++| EQ OPENX 01195 M01S01134.mac1 +++| 01196 M01S01135.mac1 +++| OPE18 OPEN X1,REELNR,R 01197 M01S01136.mac1 +++| EQ OPENX 01198 M01S01137.mac1 +++| 01199 M01S01138.mac1 +++| OPE19 OPEN X1,WRITE,R 01200 M01S01139.mac1 +++| EQ OPENX 01201 M01S01140.mac1 +++| 01202 M01S01141.mac1 +++| OPE20 OPEN X1,WRITENR,R 01203 M01S01142.mac1 +++| EQ OPENX 01204 M01S01143.mac1 +++| 01205 M01S01144.mac1 +++| END 01206 M01S01145.mac1 +++| IDENT PDATE 01207 M01S01146.mac1 +++| ENTRY PDATE 01208 M01S01147.mac1 +++| SYSCOM B1 01209 M01S01148.mac1 +++| TITLE PDATE - RETURN PACK DATE AND TIME. 01210 M01S01149.mac1 +++|*COMMENT RETURN PACK DATE AND TIME.
| Line S01150 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01211 M02S01150.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01212 M01S00023.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01213 M01S01151.mac1 +++| PDATE SPACE 4,10 01214 M01S01152.mac1 +++|*** PDATE - RETURN PACK DATE AND TIME. 01215 M01S01153.mac1 +++|* 01216 M01S01154.mac1 +++|* CALL PDATE (STAT) 01217 M01S01155.mac1 +++|* 01218 M01S01156.mac1 +++|* PDATE(STAT); (*SYMPL* CALL) 01219 M01S01157.mac1 +++|* 01220 M01S01158.mac1 +++|* ENTRY (STAT) = ADDRESS TO RECEIVE THE PACK DATE. 01221 M01S01159.mac1 +++|* 01222 M01S01160.mac1 +++|* EXIT (STAT) = 01223 M01S01161.mac1 +++|*T, 24/0,6/YY, 6/MO, 6/DD, 6/HH, 6/MM, 6/SS (YY = YEAR - 1970)
Figure
01224 M01S01162.mac1 +++|* 01225 M01S01163.mac1 +++|* USES B - 1. 01226 M01S01164.mac1 +++|* 01227 M01S01165.mac1 +++|* MACROS PDATE. 01228 M01S01166.mac1 +++| 01229 M01S01167.mac1 +++| 01230 M01S01168.mac1 +++| PDATE SUBR ENTRY/EXIT 01231 M01S01169.mac1 +++| SB1 1 01232 M01S01170.mac1 +++| PDATE X1 01233 M01S01171.mac1 +++| EQ PDATEX EXIT 01234 M01S01172.mac1 +++| 01235 M01S01173.mac1 +++| END 01236 M01S01174.mac1 +++| IDENT PFD 01237 M01S01175.mac1 +++| ENTRY PFD 01238 M01S01176.mac1 +++| SYSCOM B1 01239 M01S01177.mac1 +++| TITLE PFD - PERMANENT FILE REQUEST DELAYS. 01240 M01S01178.mac1 +++|*COMMENT MAC1 - PERMANENT FILE REQUEST DELAYS.
| Line S01179 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01241 M02S01179.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980. 01242 M01S00024.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01243 M01S01180.mac1 +++| 01244 M01S01181.mac1 +++|*CALL COMCMAC 01245 M01S01182.mac1 +++|*CALL COMAPFS 01246 M01S01183.mac1 +++|*CALL COMSPFM 01247 M01S01184.mac1 +++| PFD SPACE 4,30 01248 M01S01185.mac1 +++|*** PFD - PERMANENT FILE REQUEST DELAYS. 01249 M01S01186.mac1 +++|* 01250 M01S01187.mac1 +++|* *PFD* IS AN INTERFACE TO THE *PF* ROUTINES IN *CPUREL*. 01251 M01S01188.mac1 +++|* WHEN THE *PF* ROUTINES ARE CALLED WITH THE USER PROCESSING 01252 M01S01189.mac1 +++|* OPTION SELECTED, SEVERAL ERROR CODES MAY BE RETURNED BY 01253 M01S01190.mac1 +++|* *PFM* WHICH ARE TEMPORARY CONDITIONS. *PFD* WILL REISSUE 01254 M01S01191.mac1 +++|* THE *PF* CALL FOLLOWING A DELAY UNTIL THE REQUEST IS COMPLETE 01255 M01S01192.mac1 +++|* OR SOME OTHER RESPONSE IS RETURNED FOR THE FOLLOWING ERRORS. 01256 M01S01193.mac1 +++|* 01257 M01S01194.mac1 +++|* * PF UTILITY ACTIVE.* 01258 M01S01195.mac1 +++|* * INTERLOCK NOT AVAILABLE.* 01259 M01S01196.mac1 +++|* * FNT FULL.* 01260 M01S01197.mac1 +++|* * PFM EXCESS ACTIVITY.* 01261 M01S01198.mac1 +++|* 01262 M01S01199.mac1 +++|* *SYMPL* CALL - 01263 M01S01200.mac1 +++|* 01264 M01S01201.mac1 +++|* PFD(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0); 01265 M01S01202.mac1 +++|* 01266 M01S01203.mac1 +++|* REFER TO THE *PF* ROUTINE DOCUMENTATION FOR A DESCRIPTION
| Line S01204 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 01267 M02S01204.ns2676 ---|* OF THE PARAMETERS. 01268 M01S00004.ns2676 +++|* OF THE PARAMETERS (SEE FTN 5 REFERENCE MANUAL, 60481300). 01269 M01S01205.mac1 +++|* 01270 M01S01206.mac1 +++|* NOTE - THE STATUS WORD *PFSTAT* DEFINED IN *COMAPFS* 01271 M01S01207.mac1 +++|* MUST BE USED WITH THE *RC* KEYWORD AS THE RETURN CODE 01272 M01S01208.mac1 +++|* PARAMETER. 01273 M01S01209.mac1 +++|* 01274 M01S01210.mac1 +++|* USES X - 1, 2, 6. 01275 M01S01211.mac1 +++|* A - 1, 2, 6. 01276 M01S01212.mac1 +++|* B - 2. 01277 M01S01213.mac1 +++|* 01278 M01S01214.mac1 +++|* CALLS PF. 01279 M01S01215.mac1 +++|* 01280 M01S01216.mac1 +++|* MACROS RECALL. 01281 M01S01217.mac1 +++| 01282 M01S01218.mac1 +++| 01283 M01S01219.mac1 +++| PFD SUBR ENTRY/EXIT 01284 M01S01220.mac1 +++| SX6 A1 SAVE PARAMETER LIST ADDRESS 01285 M01S01221.mac1 +++| SA6 PFDA 01286 M01S01222.mac1 +++| BX6 X6-X6 CLEAR *PF* RETURN CODE 01287 M01S01223.mac1 +++| SA6 PFSTAT 01288 M01S01224.mac1 +++| PFD1 RJ =XPF 01289 M01S01225.mac1 +++| SA2 PFSTAT CHECK *PF* RETURN CODE 01290 M01S01226.mac1 +++| ZR X2,PFDX IF NO ERROR 01291 M01S01227.mac1 +++| SB2 X2-/ERRMSG/PFA 01292 M01S01228.mac1 +++| ZR B2,PFD2 IF DELAY REQUIRED 01293 M01S01229.mac1 +++| SB2 X2-/ERRMSG/INA 01294 M01S01230.mac1 +++| ZR B2,PFD2 IF DELAY REQUIRED 01295 M01S01231.mac1 +++| SB2 X2-/ERRMSG/FTF 01296 M01S01232.mac1 +++| ZR B2,PFD2 IF DELAY REQUIRED 01297 M01S01233.mac1 +++| SB2 X2-/ERRMSG/PEA 01298 M01S01234.mac1 +++| ZR B2,PFD2 IF DELAY REQUIRED 01299 M01S01235.mac1 +++| EQ PFDX RETURN 01300 M01S01236.mac1 +++| 01301 M01S01237.mac1 +++| PFD2 RECALL 01302 M01S01238.mac1 +++| SA1 PFDA 01303 M01S01239.mac1 +++| SA1 X1+ 01304 M01S01240.mac1 +++| EQ PFD1 REISSUE *PF* CALL 01305 M01S01241.mac1 +++| 01306 M01S01242.mac1 +++| PFDA BSS 1 PARAMETER LIST ADDRESS 01307 M01S01243.mac1 +++| 01308 M01S01244.mac1 +++| END 01309 M01S01245.mac1 +++| IDENT POSMF 01310 M01S01246.mac1 +++| ENTRY POSMF 01311 M01S01247.mac1 +++| SYSCOM B1 01312 M01S01248.mac1 +++| TITLE POSMF - POSITION MULTI-FILE SET. 01313 M01S01249.mac1 +++|*COMMENT POSITION MULTI-FILE SET.
| Line S01250 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01314 M02S01250.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01315 M01S00025.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01316 M01S01251.mac1 +++| POSMF SPACE 4,10 01317 M01S01252.mac1 +++|*** POSMF - POSITION MULTI-FILE SET. 01318 M01S01253.mac1 +++|* LABELED MULTI-FILE MAGNETIC TAPE ONLY. 01319 M01S01254.mac1 +++|* 01320 M01S01255.mac1 +++|* CALL POSMF (MFILNAM,R) 01321 M01S01256.mac1 +++|* 01322 M01S01257.mac1 +++|* ENTRY (MFILNAM) = FIRST WORD OF THE FET. 01323 M01S01258.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01324 M01S01259.mac1 +++|* 01325 M01S01260.mac1 +++|* POSMF(MFILNAM,R); (*SYMPL* CALL) 01326 M01S01261.mac1 +++|* 01327 M01S01262.mac1 +++|* ENTRY MFILNAM, AN ARRAY THAT CONTAINS THE FET. 01328 M01S01263.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01329 M01S01264.mac1 +++|* 01330 M01S01265.mac1 +++|* USES X - 2. 01331 M01S01266.mac1 +++|* A - 2. 01332 M01S01267.mac1 +++|* B - 1. 01333 M01S01268.mac1 +++|* 01334 M01S01269.mac1 +++|* MACROS POSMF. 01335 M01S01270.mac1 +++| 01336 M01S01271.mac1 +++| 01337 M01S01272.mac1 +++| POSMF SUBR ENTRY/EXIT 01338 M01S01273.mac1 +++| SB1 1 01339 M01S01274.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 01340 M01S01275.mac1 +++| SA2 X2 01341 M01S01276.mac1 +++| NZ X2,POF1 IF RECALL 01342 M01S01277.mac1 +++| POSMF X1 01343 M01S01278.mac1 +++| EQ POSMFX 01344 M01S01279.mac1 +++| 01345 M01S01280.mac1 +++| POF1 POSMF X1,R 01346 M01S01281.mac1 +++| EQ POSMFX 01347 M01S01282.mac1 +++| 01348 M01S01283.mac1 +++| END 01349 M01S01284.mac1 +++| IDENT READ 01350 M01S01285.mac1 +++| ENTRY READ 01351 M01S01286.mac1 +++| SYSCOM B1 01352 M01S01287.mac1 +++| TITLE READ - READ FILE TO *CIO* BUFFER. 01353 M01S01288.mac1 +++|*COMMENT READ FILE TO *CIO* BUFFER.
| Line S01289 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01354 M02S01289.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01355 M01S00026.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01356 M01S01290.mac1 +++| READ SPACE 4,10 01357 M01S01291.mac1 +++|*** READ - READ FILE TO *CIO* BUFFER. 01358 M01S01292.mac1 +++|* 01359 M01S01293.mac1 +++|* CALL READ (FILE,R) 01360 M01S01294.mac1 +++|* 01361 M01S01295.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01362 M01S01296.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01363 M01S01297.mac1 +++|* 01364 M01S01298.mac1 +++|* READ(FILE); (*SYMPL* CALL) 01365 M01S01299.mac1 +++|* 01366 M01S01300.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01367 M01S01301.mac1 +++|* (R) = RECALL IF .NE. 0, RECALL IS REQUESTED. 01368 M01S01302.mac1 +++|* 01369 M01S01303.mac1 +++|* USES X - 2. 01370 M01S01304.mac1 +++|* A - 2. 01371 M01S01305.mac1 +++|* B - 1. 01372 M01S01306.mac1 +++|* 01373 M01S01307.mac1 +++|* MACROS READ. 01374 M01S01308.mac1 +++| 01375 M01S01309.mac1 +++| 01376 M01S01310.mac1 +++| READ SUBR ENTRY/EXIT 01377 M01S01311.mac1 +++| SB1 1 01378 M01S01312.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 01379 M01S01313.mac1 +++| SA2 X2 01380 M01S01314.mac1 +++| NZ X2,RED1 IF RECALL 01381 M01S01315.mac1 +++| READ X1 01382 M01S01316.mac1 +++| EQ READX 01383 M01S01317.mac1 +++| 01384 M01S01318.mac1 +++| RED1 READ X1,R 01385 M01S01319.mac1 +++| EQ READX 01386 M01S01320.mac1 +++| 01387 M01S01321.mac1 +++| END 01388 M01S01322.mac1 +++| IDENT READC 01389 M01S01323.mac1 +++| ENTRY READC 01390 M01S01324.mac1 +++| SYSCOM B1 01391 M01S01325.mac1 +++| TITLE READC - READ CODED LINE IN *C* FORMAT. 01392 M01S01326.mac1 +++|*COMMENT READ CODED LINE IN *C* FORMAT.
| Line S01327 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01393 M02S01327.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01394 M01S00027.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01395 M01S01328.mac1 +++| READC SPACE 4,10 01396 M01S01329.mac1 +++|*** READC - READ CODED LINE IN *C* FORMAT. 01397 M01S01330.mac1 +++|* 01398 M01S01331.mac1 +++|* CALL READC (FILE,BUF,N,STATUS) 01399 M01S01332.mac1 +++|* 01400 M01S01333.mac1 +++|* TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED. 01401 M01S01334.mac1 +++|* 01402 M01S01335.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01403 M01S01336.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 01404 M01S01337.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 01405 M01S01338.mac1 +++|* 01406 M01S01339.mac1 +++|* READC(FILE,BUF,N,STATUS); (*SYMPL* CALL) 01407 M01S01340.mac1 +++|* 01408 M01S01341.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01409 M01S01342.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 01410 M01S01343.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS 01411 M01S01344.mac1 +++|* IN *BUF*. 01412 M01S01345.mac1 +++|* 01413 M01S01346.mac1 +++|* EXIT (STATUS) = 0, TRANSFER COMPLETE. 01414 M01S01347.mac1 +++|* = -1, END-OF-FILE DETECTED ON FILE. 01415 M01S01348.mac1 +++|* = -2, END-OF-INFORMATION DETECTED ON FILE. 01416 M01S01349.mac1 +++|* = LWA, END-OF-RECORD DETECTED ON FILE BEFORE 01417 M01S01350.mac1 +++|* TRANSFER WAS COMPLETE. 01418 M01S01351.mac1 +++|* LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 01419 M01S01352.mac1 +++|* WORKING BUFFER. 01420 M01S01353.mac1 +++|* 01421 M01S01354.mac1 +++|* USES X - 3, 4, 5, 6. 01422 M01S01355.mac1 +++|* A - 3, 4, 5, 6. 01423 M01S01356.mac1 +++|* B - 1. 01424 M01S01357.mac1 +++|* 01425 M01S01358.mac1 +++|* MACROS READC. 01426 M01S01359.mac1 +++| 01427 M01S01360.mac1 +++| 01428 M01S01361.mac1 +++| 01429 M01S01362.mac1 +++| READC SUBR ENTRY/EXIT 01430 M01S01363.mac1 +++| SB1 1 01431 M01S01364.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 01432 M01S01365.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 01433 M01S01366.mac1 +++| SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD 01434 M01S01367.mac1 +++| SA4 X4 WORD COUNT 01435 M01S01368.mac1 +++| READC X1,X3,X4 01436 M01S01369.mac1 +++| BX6 X1 01437 M01S01370.mac1 +++| SA6 X5 01438 M01S01371.mac1 +++| EQ READCX 01439 M01S01372.mac1 +++| 01440 M01S01373.mac1 +++| END 01441 M01S01374.mac1 +++| IDENT READCW 01442 M01S01375.mac1 +++| ENTRY READCW 01443 M01S01376.mac1 +++| SYSCOM B1 01444 M01S01377.mac1 +++| TITLE READCW - READ FILE NON-STOP WITH CONTROL WORDS. 01445 M01S01378.mac1 +++|*COMMENT READ FILE NON-STOP WITH CONTROL WORDS.
| Line S01379 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01446 M02S01379.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01447 M01S00028.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01448 M01S01380.mac1 +++| READCW SPACE 4,10 01449 M01S01381.mac1 +++|*** READCW - READ FILE NON-STOP WITH CONTROL WORDS. 01450 M01S01382.mac1 +++|* 01451 M01S01383.mac1 +++|* CALL READCW (FILE,LEVEL,R) 01452 M01S01384.mac1 +++|* 01453 M01S01385.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01454 M01S01386.mac1 +++|* (LEVEL) = RECORD LEVEL. 01455 M01S01387.mac1 +++|* = 0, STOP AT END OF INFORMATION. 01456 M01S01388.mac1 +++|* = 17B, STOP AT END OF FILE. 01457 M01S01389.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01458 M01S01390.mac1 +++|* 01459 M01S01391.mac1 +++|* READCW(FILE,LEVEL,R); (*SYMPL* CALL) 01460 M01S01392.mac1 +++|* 01461 M01S01393.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01462 M01S01394.mac1 +++|* LEVEL, AN ITEM CONTAINING ONE OF THE FOLLOWING 01463 M01S01395.mac1 +++|* VALUES. 01464 M01S01396.mac1 +++|* 0, STOP AT EOI. 01465 M01S01397.mac1 +++|* 17B, STOP AT EOF. 01466 M01S01398.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01467 M01S01399.mac1 +++|* 01468 M01S01400.mac1 +++|* USES X - 2, 3. 01469 M01S01401.mac1 +++|* A - 2, 3. 01470 M01S01402.mac1 +++|* B - 1. 01471 M01S01403.mac1 +++|* 01472 M01S01404.mac1 +++|* MACROS READCW. 01473 M01S01405.mac1 +++| 01474 M01S01406.mac1 +++| READCW SUBR ENTRY/EXIT 01475 M01S01407.mac1 +++| SB1 1 01476 M01S01408.mac1 +++| SA3 A1+B1 ADDRESS OF LEVEL 01477 M01S01409.mac1 +++| SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER 01478 M01S01410.mac1 +++| SA3 X3 LEVEL 01479 M01S01411.mac1 +++| SA2 X2 01480 M01S01412.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01481 M01S01413.mac1 +++| READCW X1,X3 01482 M01S01414.mac1 +++| EQ READCWX 01483 M01S01415.mac1 +++| 01484 M01S01416.mac1 +++| RED1 READCW X1,X3,R 01485 M01S01417.mac1 +++| EQ READCWX EXIT 01486 M01S01418.mac1 +++| 01487 M01S01419.mac1 +++| END 01488 M01S01420.mac1 +++| IDENT READEI 01489 M01S01421.mac1 +++| ENTRY READEI 01490 M01S01422.mac1 +++| SYSCOM B1 01491 M01S01423.mac1 +++| TITLE READEI - READ FILE TO END OF INFORMATION. 01492 M01S01424.mac1 +++|*COMMENT READ FILE TO END OF INFORMATION.
| Line S01425 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01493 M02S01425.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01494 M01S00029.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01495 M01S01426.mac1 +++| READEI SPACE 4,10 01496 M01S01427.mac1 +++|*** READEI - READ FILE TO END OF INFORMATION. 01497 M01S01428.mac1 +++|* 01498 M01S01429.mac1 +++|* CALL READEI (FILE,R) 01499 M01S01430.mac1 +++|* 01500 M01S01431.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01501 M01S01432.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01502 M01S01433.mac1 +++|* 01503 M01S01434.mac1 +++|* READEI(FILE,R); (*SYMPL* CALL) 01504 M01S01435.mac1 +++|* 01505 M01S01436.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01506 M01S01437.mac1 +++|* 01507 M01S01438.mac1 +++|* USES X - 2. 01508 M01S01439.mac1 +++|* A - 2. 01509 M01S01440.mac1 +++|* B - 1. 01510 M01S01441.mac1 +++|* 01511 M01S01442.mac1 +++|* MACROS READEI. 01512 M01S01443.mac1 +++| 01513 M01S01444.mac1 +++| 01514 M01S01445.mac1 +++| READEI SUBR ENTRY/EXIT 01515 M01S01446.mac1 +++| SB1 1 01516 M01S01447.mac1 +++| SA2 A1+B1 01517 M01S01448.mac1 +++| SA2 X2 01518 M01S01449.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01519 M01S01450.mac1 +++| READEI X1 01520 M01S01451.mac1 +++| EQ READEIX 01521 M01S01452.mac1 +++| 01522 M01S01453.mac1 +++| RED1 READEI X1,R 01523 M01S01454.mac1 +++| EQ READEIX 01524 M01S01455.mac1 +++| 01525 M01S01456.mac1 +++| END 01526 M01S01457.mac1 +++| IDENT READH 01527 M01S01458.mac1 +++| ENTRY READH 01528 M01S01459.mac1 +++| SYSCOM B1 01529 M01S01460.mac1 +++| TITLE READH - READ CODED LINE IN *H* FORMAT. 01530 M01S01461.mac1 +++|*COMMENT READ CODED LINE IN *H* FORMAT.
| Line S01462 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01531 M02S01462.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01532 M01S00030.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01533 M01S01463.mac1 +++| READH SPACE 4,10 01534 M01S01464.mac1 +++|*** READH - READ CODED LINE IN *H* FORMAT. 01535 M01S01465.mac1 +++|* 01536 M01S01466.mac1 +++|* CALL READH (FILE,BUF,N,STATUS) 01537 M01S01467.mac1 +++|* 01538 M01S01468.mac1 +++|* TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED. 01539 M01S01469.mac1 +++|* FILLS TRAILING SPACES INTO THE WORKING BUFFER. 01540 M01S01470.mac1 +++|* 01541 M01S01471.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01542 M01S01472.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 01543 M01S01473.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 01544 M01S01474.mac1 +++|* 01545 M01S01475.mac1 +++|* READH(FILE,BUF,N,STATUS); (*SYMPL* CALL) 01546 M01S01476.mac1 +++|* 01547 M01S01477.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01548 M01S01478.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 01549 M01S01479.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF. 01550 M01S01480.mac1 +++|* 01551 M01S01481.mac1 +++|* EXIT (STATUS) = 0, TRANSFER COMPLETE 01552 M01S01482.mac1 +++|* = -1, END-OF-FILE DETECTED ON FILE. 01553 M01S01483.mac1 +++|* = -2, END-OF-INFORMATION DETECTED ON FILE. 01554 M01S01484.mac1 +++|* = LWA, END-OF-RECORD DETECTED ON FILE BEFORE 01555 M01S01485.mac1 +++|* TRANSFER WAS COMPLETE. 01556 M01S01486.mac1 +++|* LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 01557 M01S01487.mac1 +++|* WORKING BUFFER. 01558 M01S01488.mac1 +++|* 01559 M01S01489.mac1 +++|* USES X - 3, 4, 5, 6. 01560 M01S01490.mac1 +++|* A - 3, 4, 5, 6. 01561 M01S01491.mac1 +++|* B - 1. 01562 M01S01492.mac1 +++|* 01563 M01S01493.mac1 +++|* MACROS READH. 01564 M01S01494.mac1 +++| 01565 M01S01495.mac1 +++| 01566 M01S01496.mac1 +++| READH SUBR ENTRY/EXIT 01567 M01S01497.mac1 +++| SB1 1 01568 M01S01498.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 01569 M01S01499.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 01570 M01S01500.mac1 +++| SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD 01571 M01S01501.mac1 +++| SA4 X4 WORD COUNT 01572 M01S01502.mac1 +++| READH X1,X3,X4 01573 M01S01503.mac1 +++| BX6 X1 01574 M01S01504.mac1 +++| SA6 X5 01575 M01S01505.mac1 +++| EQ READHX 01576 M01S01506.mac1 +++| 01577 M01S01507.mac1 +++| END 01578 M01S01508.mac1 +++| IDENT READLS 01579 M01S01509.mac1 +++| ENTRY READLS 01580 M01S01510.mac1 +++| SYSCOM B1 01581 M01S01511.mac1 +++| TITLE READLS - READ FILE WITH LIST. 01582 M01S01512.mac1 +++|*COMMENT READ FILE WITH LIST.
| Line S01513 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01583 M02S01513.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01584 M01S00031.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01585 M01S01514.mac1 +++| READLS SPACE 4,10 01586 M01S01515.mac1 +++|*** READLS - READ FILE WITH LIST. 01587 M01S01516.mac1 +++|* MASS STORAGE FILES ONLY. 01588 M01S01517.mac1 +++|* 01589 M01S01518.mac1 +++|* CALL READLS (FILE,R) 01590 M01S01519.mac1 +++|* 01591 M01S01520.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01592 M01S01521.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01593 M01S01522.mac1 +++|* 01594 M01S01523.mac1 +++|* READS(FILE,R); (*SYMPL* CALL) 01595 M01S01524.mac1 +++|* 01596 M01S01525.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01597 M01S01526.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01598 M01S01527.mac1 +++|* 01599 M01S01528.mac1 +++|* USES X - 2. 01600 M01S01529.mac1 +++|* A - 2. 01601 M01S01530.mac1 +++|* B - 1. 01602 M01S01531.mac1 +++|* 01603 M01S01532.mac1 +++|* MACROS READLS. 01604 M01S01533.mac1 +++| 01605 M01S01534.mac1 +++| 01606 M01S01535.mac1 +++| READLS SUBR ENTRY/EXIT 01607 M01S01536.mac1 +++| SB1 1 01608 M01S01537.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 01609 M01S01538.mac1 +++| SA2 X2 01610 M01S01539.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01611 M01S01540.mac1 +++| READLS X1 01612 M01S01541.mac1 +++| EQ READLSX 01613 M01S01542.mac1 +++| 01614 M01S01543.mac1 +++| RED1 READLS X1,R 01615 M01S01544.mac1 +++| EQ READLSX 01616 M01S01545.mac1 +++| 01617 M01S01546.mac1 +++| END 01618 M01S01547.mac1 +++| IDENT READN 01619 M01S01548.mac1 +++| ENTRY READN 01620 M01S01549.mac1 +++| TITLE READN - READ FILE NON-STOP FOR TAPES. 01621 M01S01550.mac1 +++|*COMMENT READ FILE NON-STOP FOR TAPES.
| Line S01551 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01622 M02S01551.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01623 M01S00032.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01624 M01S01552.mac1 +++| READN SPACE 4,10 01625 M01S01553.mac1 +++|*** READN - READ FILE NON-STOP FOR TAPES. 01626 M01S01554.mac1 +++|* MAGNETIC TAPES IN S OR L FORMAT ONLY. 01627 M01S01555.mac1 +++|* 01628 M01S01556.mac1 +++|* CALL READN (FILE,R) 01629 M01S01557.mac1 +++|* 01630 M01S01558.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01631 M01S01559.mac1 +++|* 01632 M01S01560.mac1 +++|* READN(FILE,R); (*SYMPL* CALL) 01633 M01S01561.mac1 +++|* 01634 M01S01562.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01635 M01S01563.mac1 +++|* 01636 M01S01564.mac1 +++|* USES X - 2. 01637 M01S01565.mac1 +++|* A - 2. 01638 M01S01566.mac1 +++|* B - 1. 01639 M01S01567.mac1 +++|* 01640 M01S01568.mac1 +++|* MACROS READN. 01641 M01S01569.mac1 +++| 01642 M01S01570.mac1 +++| 01643 M01S01571.mac1 +++| READN SUBR ENTRY/EXIT 01644 M01S01572.mac1 +++| SB1 1 01645 M01S01573.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 01646 M01S01574.mac1 +++| SA2 X2 01647 M01S01575.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01648 M01S01576.mac1 +++| READN X1 01649 M01S01577.mac1 +++| EQ READNX 01650 M01S01578.mac1 +++| 01651 M01S01579.mac1 +++| RED1 READN X1,R 01652 M01S01580.mac1 +++| EQ READNX 01653 M01S01581.mac1 +++| 01654 M01S01582.mac1 +++| END 01655 M01S01583.mac1 +++| IDENT READNS 01656 M01S01584.mac1 +++| ENTRY READNS 01657 M01S01585.mac1 +++| SYSCOM B1 01658 M01S01586.mac1 +++| TITLE READNS - READ FILE NON-STOP (READ TO EOF). 01659 M01S01587.mac1 +++|*COMMENT READ FILE NON-STOP (READ TO EOF).
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01660 M02S01588.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01661 M01S00033.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01662 M01S01589.mac1 +++| READNS SPACE 4,10 01663 M01S01590.mac1 +++|*** READNS - READ FILE NON-STOP (READ TO EOF). 01664 M01S01591.mac1 +++|* 01665 M01S01592.mac1 +++|* CALL READNS (FILE,R) 01666 M01S01593.mac1 +++|* 01667 M01S01594.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01668 M01S01595.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01669 M01S01596.mac1 +++|* 01670 M01S01597.mac1 +++|* READNS(FILE,R); (*SYMPL* CALL) 01671 M01S01598.mac1 +++|* 01672 M01S01599.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01673 M01S01600.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL REQUESTED. 01674 M01S01601.mac1 +++|* 01675 M01S01602.mac1 +++|* USES X - 2. 01676 M01S01603.mac1 +++|* A - 2. 01677 M01S01604.mac1 +++|* B - 1. 01678 M01S01605.mac1 +++|* 01679 M01S01606.mac1 +++|* MACROS READNS. 01680 M01S01607.mac1 +++| 01681 M01S01608.mac1 +++| 01682 M01S01609.mac1 +++| READNS SUBR ENTRY/EXIT 01683 M01S01610.mac1 +++| SB1 1 01684 M01S01611.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 01685 M01S01612.mac1 +++| SA2 X2 01686 M01S01613.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01687 M01S01614.mac1 +++| READNS X1 01688 M01S01615.mac1 +++| EQ READNSX 01689 M01S01616.mac1 +++| 01690 M01S01617.mac1 +++| RED1 READNS X1,R 01691 M01S01618.mac1 +++| EQ READNSX EXIT 01692 M01S01619.mac1 +++| 01693 M01S01620.mac1 +++| END 01694 M01S01621.mac1 +++| IDENT READO 01695 M01S01622.mac1 +++| ENTRY READO 01696 M01S01623.mac1 +++| SYSCOM B1 01697 M01S01624.mac1 +++| TITLE READO - READ ONE WORD. 01698 M01S01625.mac1 +++|*COMMENT READ ONE WORD.
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01699 M02S01626.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01700 M01S00034.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01701 M01S01627.mac1 +++| READO SPACE 4,10 01702 M01S01628.mac1 +++|*** READO - READ ONE WORD. 01703 M01S01629.mac1 +++|* 01704 M01S01630.mac1 +++|* CALL READO (FILE,WORD,STATUS) 01705 M01S01631.mac1 +++|* 01706 M01S01632.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01707 M01S01633.mac1 +++|* 01708 M01S01634.mac1 +++|* READO(FILE,WORD,STATUS); (*SYMPL* CALL) 01709 M01S01635.mac1 +++|* 01710 M01S01636.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01711 M01S01637.mac1 +++|* 01712 M01S01638.mac1 +++|* EXIT (WORD) = WORD READ IF (STATUS) = 0. 01713 M01S01639.mac1 +++|* (STATUS) = 0, TRANSFER COMPLETE. 01714 M01S01640.mac1 +++|* = -1, END-OF-FILE DETECTED ON FILE. 01715 M01S01641.mac1 +++|* = -2, END-OF-INFORMATION DETECTED ON FILE. 01716 M01S01642.mac1 +++|* = LWA, END-OF-RECORD DETECTED ON FILE BEFORE 01717 M01S01643.mac1 +++|* TRANSFER WAS COMPLETE. 01718 M01S01644.mac1 +++|* LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 01719 M01S01645.mac1 +++|* WORKING BUFFER. 01720 M01S01646.mac1 +++|* 01721 M01S01647.mac1 +++|* USES X - 3, 5, 6, 7. 01722 M01S01648.mac1 +++|* A - 3, 5, 6, 7. 01723 M01S01649.mac1 +++|* B - 1. 01724 M01S01650.mac1 +++|* 01725 M01S01651.mac1 +++|* MACROS READO. 01726 M01S01652.mac1 +++| 01727 M01S01653.mac1 +++| 01728 M01S01654.mac1 +++| READO SUBR ENTRY/EXIT 01729 M01S01655.mac1 +++| SB1 1 01730 M01S01656.mac1 +++| SA3 A1+B1 ADDRESS OF WORD 01731 M01S01657.mac1 +++| SA5 A3+B1 (X5) = ADDRESS OF STATUS WORD 01732 M01S01658.mac1 +++| BX0 X3 01733 M01S01659.mac1 +++| READO X1 01734 M01S01660.mac1 +++| SA6 X0 WORD READ 01735 M01S01661.mac1 +++| BX7 X1 STATUS 01736 M01S01662.mac1 +++| SA7 X5 01737 M01S01663.mac1 +++| EQ READOX 01738 M01S01664.mac1 +++| 01739 M01S01665.mac1 +++| END 01740 M01S01666.mac1 +++| IDENT READS 01741 M01S01667.mac1 +++| ENTRY READS 01742 M01S01668.mac1 +++| SYSCOM B1 01743 M01S01669.mac1 +++| TITLE READS - READ CODED LINE TO CHARACTER BUFFER. 01744 M01S01670.mac1 +++|*COMMENT READ CODED LINE TO CHARACTER BUFFER.
| Line S01671 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01745 M02S01671.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01746 M01S00035.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01747 M01S01672.mac1 +++| READS SPACE 4,10 01748 M01S01673.mac1 +++|*** READS - READ CODED LINE TO CHARACTER BUFFER. 01749 M01S01674.mac1 +++|* 01750 M01S01675.mac1 +++|* CALL READS (FILE,BUF,N,STATUS) 01751 M01S01676.mac1 +++|* 01752 M01S01677.mac1 +++|* UNPACKS WORDS AND STORES THEM IN THE WORKING BUFFER, ONE 01753 M01S01678.mac1 +++|* CHARACTER/WORD, UNTIL THE END OF LINE BYTE (0000) IS SENSED. 01754 M01S01679.mac1 +++|* FILLS THE WORKING BUFFER WITH SPACE CODES IF THE CODED LINE 01755 M01S01680.mac1 +++|* TERMINATES BEFORE *N* CHARACTERS ARE STORED. 01756 M01S01681.mac1 +++|* 01757 M01S01682.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01758 M01S01683.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 01759 M01S01684.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 01760 M01S01685.mac1 +++|* 01761 M01S01686.mac1 +++|* READS(FILE,BUF,N,STATUS); (*SYMPL* CALL) 01762 M01S01687.mac1 +++|* 01763 M01S01688.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01764 M01S01689.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 01765 M01S01690.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF. 01766 M01S01691.mac1 +++|* 01767 M01S01692.mac1 +++|* EXIT (STATUS) = 0, TRANSFER COMPLETE 01768 M01S01693.mac1 +++|* = -1, END-OF-FILE DETECTED ON FILE. 01769 M01S01694.mac1 +++|* = -2, END-OF-INFORMATION DETECTED ON FILE. 01770 M01S01695.mac1 +++|* = LWA, END-OF-RECORD DETECTED ON FILE BEFORE 01771 M01S01696.mac1 +++|* TRANSFER WAS COMPLETE. 01772 M01S01697.mac1 +++|* LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 01773 M01S01698.mac1 +++|* WORKING BUFFER. 01774 M01S01699.mac1 +++|* 01775 M01S01700.mac1 +++|* USES X - 3, 4, 5, 6. 01776 M01S01701.mac1 +++|* A - 3, 4, 5, 6. 01777 M01S01702.mac1 +++|* B - 1. 01778 M01S01703.mac1 +++|* 01779 M01S01704.mac1 +++|* MACROS READS. 01780 M01S01705.mac1 +++| 01781 M01S01706.mac1 +++| 01782 M01S01707.mac1 +++| READS SUBR ENTRY/EXIT 01783 M01S01708.mac1 +++| SB1 1 01784 M01S01709.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 01785 M01S01710.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 01786 M01S01711.mac1 +++| SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD 01787 M01S01712.mac1 +++| SA4 X4 WORD COUNT 01788 M01S01713.mac1 +++| READS X1,X3,X4 01789 M01S01714.mac1 +++| BX6 X1 01790 M01S01715.mac1 +++| SA6 X5 01791 M01S01716.mac1 +++| EQ READSX 01792 M01S01717.mac1 +++| 01793 M01S01718.mac1 +++| END 01794 M01S01719.mac1 +++| IDENT READSKP 01795 M01S01720.mac1 +++| ENTRY READSKP 01796 M01S01721.mac1 +++| SYSCOM B1 01797 M01S01722.mac1 +++| TITLE READSKP - READ FILE AND SKIP. 01798 M01S01723.mac1 +++|*COMMENT READ FILE AND SKIP.
| Line S01724 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01799 M02S01724.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01800 M01S00036.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01801 M01S01725.mac1 +++| READSKP SPACE 4,10 01802 M01S01726.mac1 +++|*** READSKP - READ FILE AND SKIP. 01803 M01S01727.mac1 +++|* 01804 M01S01728.mac1 +++|* CALL READSKP (FILE,LEVEL,R) 01805 M01S01729.mac1 +++|* 01806 M01S01730.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01807 M01S01731.mac1 +++|* (LEVEL) = RECORD LEVEL. 01808 M01S01732.mac1 +++|* = 0, SKIP TO END OF RECORD. 01809 M01S01733.mac1 +++|* = 17B, SKIP TO END OF FILE. 01810 M01S01734.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01811 M01S01735.mac1 +++|* 01812 M01S01736.mac1 +++|* READSKP(FILE,LEVEL,R); (*SYMPL* CALL) 01813 M01S01737.mac1 +++|* 01814 M01S01738.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01815 M01S01739.mac1 +++|* LEVEL, AN ITEM THAT CONTAINS ONE OF THE FOLLOWING 01816 M01S01740.mac1 +++|* VALUES. 01817 M01S01741.mac1 +++|* 0, SKIP TO EOR. 01818 M01S01742.mac1 +++|* 17B, SKIP TO EOF. 01819 M01S01743.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 01820 M01S01744.mac1 +++|* 01821 M01S01745.mac1 +++|* USES X - 2, 3. 01822 M01S01746.mac1 +++|* A - 2, 3. 01823 M01S01747.mac1 +++|* B - 1. 01824 M01S01748.mac1 +++|* 01825 M01S01749.mac1 +++|* MACROS READSKP. 01826 M01S01750.mac1 +++| 01827 M01S01751.mac1 +++| 01828 M01S01752.mac1 +++| 01829 M01S01753.mac1 +++| 01830 M01S01754.mac1 +++| READSKP SUBR ENTRY/EXIT 01831 M01S01755.mac1 +++| SB1 1 01832 M01S01756.mac1 +++| SA3 A1+B1 ADDRESS OF LEVEL 01833 M01S01757.mac1 +++| SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER 01834 M01S01758.mac1 +++| SA3 X3 LEVEL 01835 M01S01759.mac1 +++| SA2 X2 01836 M01S01760.mac1 +++| NZ X2,RED1 IF RECALL REQUESTED 01837 M01S01761.mac1 +++| READSKP X1,X3 01838 M01S01762.mac1 +++| EQ READSKPX 01839 M01S01763.mac1 +++| 01840 M01S01764.mac1 +++| RED1 READSKP X1,X3,R 01841 M01S01765.mac1 +++| EQ READSKPX 01842 M01S01766.mac1 +++| 01843 M01S01767.mac1 +++| END 01844 M01S01768.mac1 +++| IDENT READW 01845 M01S01769.mac1 +++| ENTRY READW 01846 M01S01770.mac1 +++| SYSCOM B1 01847 M01S01771.mac1 +++| TITLE READW - READ DATA TO WORKING BUFFER. 01848 M01S01772.mac1 +++|*COMMENT READ DATA TO WORKING BUFFER.
| Line S01773 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01849 M02S01773.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01850 M01S00037.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01851 M01S01774.mac1 +++| READW SPACE 4,10 01852 M01S01775.mac1 +++|*** READW - READ DATA TO WORKING BUFFER. 01853 M01S01776.mac1 +++|* 01854 M01S01777.mac1 +++|* CALL READW (FILE,BUF,N,STATUS) 01855 M01S01778.mac1 +++|* 01856 M01S01779.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01857 M01S01780.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 01858 M01S01781.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 01859 M01S01782.mac1 +++|* 01860 M01S01783.mac1 +++|* EXIT (STATUS) = 0, TRANSFER COMPLETE. 01861 M01S01784.mac1 +++|* = -1, END-OF-FILE DETECTED ON FILE. 01862 M01S01785.mac1 +++|* = -2, END-OF-INFORMATION DETECTED ON FILE. 01863 M01S01786.mac1 +++|* = LWA, END-OF-RECORD DETECTED ON FILE BEFORE 01864 M01S01787.mac1 +++|* TRANSFER WAS COMPLETE. 01865 M01S01788.mac1 +++|* LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO 01866 M01S01789.mac1 +++|* WORKING BUFFER. 01867 M01S01790.mac1 +++|* 01868 M01S01791.mac1 +++|* READW(FILE,BUF,N,STATUS); (*SYMPL* CALL) 01869 M01S01792.mac1 +++|* 01870 M01S01793.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01871 M01S01794.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 01872 M01S01795.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF. 01873 M01S01796.mac1 +++|* 01874 M01S01797.mac1 +++|* EXIT STATUS, AN ITEM THAT WILL HAVE THE RESPONSE VALUE 01875 M01S01798.mac1 +++|* PUT IN IT. 01876 M01S01799.mac1 +++|* 01877 M01S01800.mac1 +++|* USES X - 3, 4, 5, 6. 01878 M01S01801.mac1 +++|* A - 3, 4, 5, 6. 01879 M01S01802.mac1 +++|* B - 1. 01880 M01S01803.mac1 +++|* 01881 M01S01804.mac1 +++|* MACROS READW. 01882 M01S01805.mac1 +++| 01883 M01S01806.mac1 +++| 01884 M01S01807.mac1 +++| READW SUBR ENTRY/EXIT 01885 M01S01808.mac1 +++| SB1 1 01886 M01S01809.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 01887 M01S01810.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 01888 M01S01811.mac1 +++| SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD 01889 M01S01812.mac1 +++| SA4 X4 WORD COUNT 01890 M01S01813.mac1 +++| READW X1,X3,X4 01891 M01S01814.mac1 +++| BX6 X1 01892 M01S01815.mac1 +++| SA6 X5 01893 M01S01816.mac1 +++| EQ READWX 01894 M01S01817.mac1 +++| 01895 M01S01818.mac1 +++| END 01896 M01S01819.mac1 +++| IDENT RECALL 01897 M01S01820.mac1 +++| ENTRY RECALL 01898 M01S01821.mac1 +++| SYSCOM B1 01899 M01S01822.mac1 +++| TITLE RECALL - PLACE PROGRAM IN RECALL STATUS. 01900 M01S01823.mac1 +++|*COMMENT PLACE PROGRAM IN RECALL STATUS.
| Line S01824 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01901 M02S01824.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01902 M01S00038.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01903 M01S01825.mac1 +++| RECALL SPACE 4,10 01904 M01S01826.mac1 +++|*** RECALL - PLACE PROGRAM IN RECALL STATUS. 01905 M01S01827.mac1 +++|* 01906 M01S01828.mac1 +++|* CALL RECALL (STATUS) 01907 M01S01829.mac1 +++|* 01908 M01S01830.mac1 +++|* ENTRY (STATUS) = 0, ONE SYSTEM PERIODIC RECALL IS ISSUED. 01909 M01S01831.mac1 +++|* = OTHER, PROGRAM IS RECALLED WHEN 01910 M01S01832.mac1 +++|* BIT 0 IS SET. 01911 M01S01833.mac1 +++|* 01912 M01S01834.mac1 +++|* RECALL(STATUS); (*SYMPL* CALL) 01913 M01S01835.mac1 +++|* 01914 M01S01836.mac1 +++|* ENTRY STATUS, AN ITEM CONTAINING 0 OR THE ADDRESS 01915 M01S01837.mac1 +++|* OF THE WORD CONTAINING THE COMPLETION BIT. 01916 M01S01838.mac1 +++|* 01917 M01S01839.mac1 +++|* USES X - 2. 01918 M01S01840.mac1 +++|* A - 2. 01919 M01S01841.mac1 +++|* B - 1. 01920 M01S01842.mac1 +++|* 01921 M01S01843.mac1 +++|* MACROS RECALL. 01922 M01S01844.mac1 +++| 01923 M01S01845.mac1 +++| 01924 M01S01846.mac1 +++| RECALL SUBR ENTRY/EXIT 01925 M01S01847.mac1 +++| SB1 1 01926 M01S01848.mac1 +++| SA2 X1 STATUS WORD 01927 M01S01849.mac1 +++| ZR X2,REC1 IF SINGLE RECALL 01928 M01S01850.mac1 +++| RECALL X1 AUTO-RECALL 01929 M01S01851.mac1 +++| EQ RECALLX 01930 M01S01852.mac1 +++| 01931 M01S01853.mac1 +++| REC1 RECALL 01932 M01S01854.mac1 +++| EQ RECALLX 01933 M01S01855.mac1 +++| 01934 M01S01856.mac1 +++| END 01935 M01S01857.mac1 +++| IDENT RENAME 01936 M01S01858.mac1 +++| ENTRY RENAME 01937 M01S01859.mac1 +++| SYSCOM B1 01938 M01S01860.mac1 +++| TITLE RENAME - RENAME ASSIGNED FILE. 01939 M01S01861.mac1 +++|*COMMENT RENAME ASSIGNED FILE.
| Line S01862 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01940 M02S01862.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980. 01941 M01S00039.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01942 M01S01863.mac1 +++| RENAME SPACE 4,10 01943 M01S01864.mac1 +++|*** RENAME - RENAME ASSIGNED FILE. 01944 M01S01865.mac1 +++|* 01945 M01S01866.mac1 +++|* CALL RENAME (FILE,NFN) 01946 M01S01867.mac1 +++|* 01947 M01S01868.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 01948 M01S01869.mac1 +++|* (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED, 01949 M01S01870.mac1 +++|* SEVEN CHARACTER MAXIMUM. 01950 M01S01871.mac1 +++|* 01951 M01S01872.mac1 +++|* RENAME(FILE,NFN); (*SYMPL* CALL) 01952 M01S01873.mac1 +++|* 01953 M01S01874.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 01954 M01S01875.mac1 +++|* (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED, 01955 M01S01876.mac1 +++|* SEVEN CHARACTER MAXIMUM. 01956 M01S01877.mac1 +++|* 01957 M01S01878.mac1 +++|* USES X - 2, 6. 01958 M01S01879.mac1 +++|* A - 2, 6. 01959 M01S01880.mac1 +++|* B - 1. 01960 M01S01881.mac1 +++|* 01961 M01S01882.mac1 +++|* MACROS RENAME. 01962 M01S01883.mac1 +++| 01963 M01S01884.mac1 +++| 01964 M01S01885.mac1 +++| RENAME SUBR ENTRY/EXIT 01965 M01S01886.mac1 +++| SB1 1 01966 M01S01887.mac1 +++| SA2 A1+B1 GET NEW FILE NAME 01967 M01S01888.mac1 +++| SA2 X2 01968 M01S01889.mac1 +++| BX6 X2 01969 M01S01890.mac1 +++| SA6 X1+6 STORE NEW FILE NAME IN FET 01970 M01S01891.mac1 +++| RENAME X1 01971 M01S01892.mac1 +++| EQ RENAMEX RETURN 01972 M01S01893.mac1 +++| 01973 M01S01894.mac1 +++| END 01974 M01S01895.mac1 +++| IDENT REQUEST 01975 M01S01896.mac1 +++| ENTRY REQUEST 01976 M01S01897.mac1 +++| SYSCOM B1 01977 M01S01898.mac1 +++| TITLE REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE. 01978 M01S01899.mac1 +++|*COMMENT REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
| Line S01900 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01979 M02S01900.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 01980 M01S00040.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01981 M01S01901.mac1 +++| REQUEST SPACE 4,10 01982 M01S01902.mac1 +++|*** REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE. 01983 M01S01903.mac1 +++|* 01984 M01S01904.mac1 +++|* CALL REQUEST (LIST) 01985 M01S01905.mac1 +++|* 01986 M01S01906.mac1 +++|* ENTRY SEE *NOS SYSTEM REFERENCE MANUAL*. 01987 M01S01907.mac1 +++|* 01988 M01S01908.mac1 +++|* REQUEST(LIST); (*SYMPL* CALL) 01989 M01S01909.mac1 +++|* 01990 M01S01910.mac1 +++|* ENTRY AN ARRAY CONTAINING A REQUEST LIST, SEE *NOS 01991 M01S01911.mac1 +++|* REFERENCE MANUAL*. 01992 M01S01912.mac1 +++|* 01993 M01S01913.mac1 +++|* USES B - 1. 01994 M01S01914.mac1 +++|* 01995 M01S01915.mac1 +++|* MACROS REQUEST.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/mac1.txt · Last modified: by 127.0.0.1