cdc:nos2.source:opl.opl871:deck:mac1.001
Deck MAC1 Part 001
4 Modifications
Listing Sections
- Deck MAC1 Start
- Deck MAC1 Part 1 (Line 1996)
Source
Seq # *Modification Id* Act ----------------------------+ 01996 M01S01916.mac1 +++| 01997 M01S01917.mac1 +++| 01998 M01S01918.mac1 +++| REQUEST SUBR ENTRY/EXIT 01999 M01S01919.mac1 +++| SB1 1 02000 M01S01920.mac1 +++| REQUEST X1 02001 M01S01921.mac1 +++| EQ REQUESTX 02002 M01S01922.mac1 +++| 02003 M01S01923.mac1 +++| END 02004 M01S00001.v23l617 +++| IDENT REQWEST 02005 M01S00002.v23l617 +++| ENTRY REQWEST 02006 M01S00003.v23l617 +++| SYSCOM B1 02007 M01S00004.v23l617 +++| TITLE REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT. 02008 M01S00005.v23l617 +++|*COMMENT MAC1 - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02009 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1984. 02010 M01S00041.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02011 M01S00007.v23l617 +++| SPACE 4,10 02012 M01S00008.v23l617 +++|*** REQWEST - REQUEST (015) AUTO ASSIGNMENT OF EQUIPMENT TO FILE. 02013 M01S00009.v23l617 +++|* 02014 M01S00010.v23l617 +++|* NOTE - *REQWEST* (*LFM* FUNCTION 015) IS SPELLED WITH A *W* 02015 M01S00011.v23l617 +++|* TO DISTINGUISH IT FROM *REQUEST* (*LFM* FUNCTION 014). 02016 M01S00012.v23l617 +++|* 02017 M01S00013.v23l617 +++|* *SYMPL* CALL - 02018 M01S00014.v23l617 +++|* REQWEST(FILE,M); 02019 M01S00015.v23l617 +++|* 02020 M01S00016.v23l617 +++|* ENTRY (FILE) = FET, (FET+1 BITS 59-48 CONTAIN DEVICE TYPE). 02021 M01S00017.v23l617 +++|* (M) = IF NON ZERO, DAYFILE MESSAGE INDICATING 02022 M01S00018.v23l617 +++|* DEVICE TO WHICH THE FILE IS ASSIGNED WILL BE 02023 M01S00019.v23l617 +++|* ISSUED BY *LFM*. 02024 M01S00020.v23l617 +++|* IF ZERO, NO DAYFILE MESSAGE WILL BE ISSUED. 02025 M01S00021.v23l617 +++|* 02026 M01S00022.v23l617 +++|* USES X - 2. 02027 M01S00023.v23l617 +++|* A - 2. 02028 M01S00024.v23l617 +++|* B - 1. 02029 M01S00025.v23l617 +++|* 02030 M01S00026.v23l617 +++|* MACROS REQUEST. 02031 M01S00027.v23l617 +++| 02032 M01S00028.v23l617 +++| 02033 M01S00029.v23l617 +++| REQWEST SUBR ENTRY/EXIT 02034 M01S00030.v23l617 +++| SB1 1 02035 M01S00031.v23l617 +++| SA2 A1+B1 02036 M01S00032.v23l617 +++| SA2 X2 02037 M01S00033.v23l617 +++| ZR X2,REQW1 IF NO DAYFILE MESSAGE 02038 M01S00034.v23l617 +++| REQUEST X1,U 02039 M01S00035.v23l617 +++| EQ REQWESTX RETURN 02040 M01S00036.v23l617 +++| 02041 M01S00037.v23l617 +++| REQW1 REQUEST X1,U,N 02042 M01S00038.v23l617 +++| EQ REQWESTX RETURN 02043 M01S00039.v23l617 +++| 02044 M01S00040.v23l617 +++| END 02045 M01S01924.mac1 +++| IDENT RETURN 02046 M01S01925.mac1 +++| ENTRY RETURN 02047 M01S01926.mac1 +++| ENTRY RETERN 02048 M01S01927.mac1 +++| SYSCOM B1 02049 M01S01928.mac1 +++| TITLE RETURN - RETURN FILE TO SYSTEM. 02050 M01S01929.mac1 +++|*COMMENT RETURN FILE TO SYSTEM.
| Line S01930 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02051 M02S01930.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02052 M01S00042.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02053 M01S01931.mac1 +++| RETURN SPACE 4,10 02054 M01S01932.mac1 +++|*** RETURN - RETURN FILE TO SYSTEM. 02055 M01S01933.mac1 +++|* 02056 M01S01934.mac1 +++|* CALL RETURN (FILE,R) 02057 M01S01935.mac1 +++|* 02058 M01S01936.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02059 M01S01937.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02060 M01S01938.mac1 +++|* 02061 M01S01939.mac1 +++|* RETERN(FILE,R); (*SYMPL* CALL) 02062 M01S01940.mac1 +++|* 02063 M01S01941.mac1 +++|* NOTE RETURN IS A RESERVED WORD IN *SYMPL*, A CALL TO 02064 M01S01942.mac1 +++|* THE RETURN MACRO IN *SYMPL* MUST SPELL RETURN WITH 02065 M01S01943.mac1 +++|* AN *E* INSTEAD OF A *U*. 02066 M01S01944.mac1 +++|* 02067 M01S01945.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02068 M01S01946.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02069 M01S01947.mac1 +++|* 02070 M01S01948.mac1 +++|* USES X - 2. 02071 M01S01949.mac1 +++|* A - 2. 02072 M01S01950.mac1 +++|* B - 1. 02073 M01S01951.mac1 +++|* 02074 M01S01952.mac1 +++|* MACROS RETURN. 02075 M01S01953.mac1 +++| 02076 M01S01954.mac1 +++| 02077 M01S01955.mac1 +++| 02078 M01S01956.mac1 +++| RETERN BSS 0 ENTRY FOR *SYMPL* ROUTINES 02079 M01S01957.mac1 +++| RETURN SUBR ENTRY/EXIT 02080 M01S01958.mac1 +++| SB1 1 02081 M01S01959.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02082 M01S01960.mac1 +++| SA2 X2 02083 M01S01961.mac1 +++| NZ X2,RET1 IF RECALL REQUESTED 02084 M01S01962.mac1 +++| RETURN X1 02085 M01S01963.mac1 +++| EQ RETURNX 02086 M01S01964.mac1 +++| 02087 M01S01965.mac1 +++| RET1 RETURN X1,R 02088 M01S01966.mac1 +++| EQ RETURNX 02089 M01S01967.mac1 +++| 02090 M01S01968.mac1 +++| END 02091 M01S01969.mac1 +++| IDENT REWIND 02092 M01S01970.mac1 +++| ENTRY REWIND 02093 M01S01971.mac1 +++| SYSCOM B1 02094 M01S01972.mac1 +++| TITLE REWIND - REWIND FILE. 02095 M01S01973.mac1 +++|*COMMENT REWIND FILE.
| Line S01974 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02096 M02S01974.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02097 M01S00043.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02098 M01S01975.mac1 +++| REWIND SPACE 4,10 02099 M01S01976.mac1 +++|*** REWIND - REWIND FILE. 02100 M01S01977.mac1 +++|* 02101 M01S01978.mac1 +++|* CALL REWIND (FILE,R) 02102 M01S01979.mac1 +++|* 02103 M01S01980.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02104 M01S01981.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02105 M01S01982.mac1 +++|* 02106 M01S01983.mac1 +++|* REWIND(FILE,R); (*SYMPL* CALL) 02107 M01S01984.mac1 +++|* 02108 M01S01985.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02109 M01S01986.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02110 M01S01987.mac1 +++|* 02111 M01S01988.mac1 +++|* USES X - 2. 02112 M01S01989.mac1 +++|* A - 2. 02113 M01S01990.mac1 +++|* B - 1. 02114 M01S01991.mac1 +++|* 02115 M01S01992.mac1 +++|* MACROS REWIND. 02116 M01S01993.mac1 +++| 02117 M01S01994.mac1 +++| 02118 M01S01995.mac1 +++| REWIND SUBR ENTRY/EXIT 02119 M01S01996.mac1 +++| SB1 1 02120 M01S01997.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02121 M01S01998.mac1 +++| SA2 X2 02122 M01S01999.mac1 +++| NZ X2,REW1 IF RECALL REQUESTED 02123 M01S02000.mac1 +++| REWIND X1 02124 M01S02001.mac1 +++| EQ REWINDX 02125 M01S02002.mac1 +++| 02126 M01S02003.mac1 +++| REW1 REWIND X1,R 02127 M01S02004.mac1 +++| EQ REWINDX 02128 M01S02005.mac1 +++| 02129 M01S02006.mac1 +++| END 02130 M01S02007.mac1 +++| IDENT REWRITE 02131 M01S02008.mac1 +++| ENTRY REWRITE 02132 M01S02009.mac1 +++| SYSCOM B1 02133 M01S02010.mac1 +++| TITLE REWRITE - REWRITE DATA FROM *CIO* BUFFER. 02134 M01S02011.mac1 +++|*COMMENT REWRITE DATA FROM *CIO* BUFFER.
| Line S02012 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02135 M02S02012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02136 M01S00044.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02137 M01S02013.mac1 +++| REWRITE SPACE 4,10 02138 M01S02014.mac1 +++|*** REWRITE - REWITE DATA FROM *CIO* BUFFER. 02139 M01S02015.mac1 +++|* MASS STORAGE FILES ONLY. 02140 M01S02016.mac1 +++|* 02141 M01S02017.mac1 +++|* CALL REWRITE (FILE,R) 02142 M01S02018.mac1 +++|* 02143 M01S02019.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02144 M01S02020.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02145 M01S02021.mac1 +++|* 02146 M01S02022.mac1 +++|* REWRITE(FILE,R); (*SYMPL* CALL) 02147 M01S02023.mac1 +++|* 02148 M01S02024.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02149 M01S02025.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02150 M01S02026.mac1 +++|* 02151 M01S02027.mac1 +++|* USES X - 2. 02152 M01S02028.mac1 +++|* A - 2. 02153 M01S02029.mac1 +++|* B - 1. 02154 M01S02030.mac1 +++|* 02155 M01S02031.mac1 +++|* MACROS REWRITE. 02156 M01S02032.mac1 +++| 02157 M01S02033.mac1 +++| 02158 M01S02034.mac1 +++| REWRITE SUBR ENTRY/EXIT 02159 M01S02035.mac1 +++| SB1 1 02160 M01S02036.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02161 M01S02037.mac1 +++| SA2 X2 02162 M01S02038.mac1 +++| NZ X2,REW1 IF RECALL REQUESTED 02163 M01S02039.mac1 +++| REWRITE X1 02164 M01S02040.mac1 +++| EQ REWRITEX 02165 M01S02041.mac1 +++| 02166 M01S02042.mac1 +++| REW1 REWRITE X1,R 02167 M01S02043.mac1 +++| EQ REWRITEX 02168 M01S02044.mac1 +++| 02169 M01S02045.mac1 +++| END 02170 M01S02046.mac1 +++| IDENT REWRITF 02171 M01S02047.mac1 +++| ENTRY REWRITF 02172 M01S02048.mac1 +++| SYSCOM B1 02173 M01S02049.mac1 +++| TITLE REWRITF - REWRITE END OF FILE. 02174 M01S02050.mac1 +++|*COMMENT REWRITE END OF FILE.
| Line S02051 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02175 M02S02051.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02176 M01S00045.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02177 M01S02052.mac1 +++| REWRITF SPACE 4,10 02178 M01S02053.mac1 +++|*** REWRITF - REWRITE END OF FILE. 02179 M01S02054.mac1 +++|* MASS STORAGE FILES ONLY. 02180 M01S02055.mac1 +++|* 02181 M01S02056.mac1 +++|* CALL REWRITF (FILE,R) 02182 M01S02057.mac1 +++|* 02183 M01S02058.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02184 M01S02059.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02185 M01S02060.mac1 +++|* 02186 M01S02061.mac1 +++|* REWRITE(FILE,R); (*SYMPL* CALL) 02187 M01S02062.mac1 +++|* 02188 M01S02063.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02189 M01S02064.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02190 M01S02065.mac1 +++|* 02191 M01S02066.mac1 +++|* USES X - 2. 02192 M01S02067.mac1 +++|* A - 2. 02193 M01S02068.mac1 +++|* B - 1. 02194 M01S02069.mac1 +++|* 02195 M01S02070.mac1 +++|* MACROS REWRITEF. 02196 M01S02071.mac1 +++| 02197 M01S02072.mac1 +++| 02198 M01S02073.mac1 +++| REWRITF SUBR ENTRY/EXIT 02199 M01S02074.mac1 +++| SB1 1 02200 M01S02075.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02201 M01S02076.mac1 +++| SA2 X2 02202 M01S02077.mac1 +++| NZ X2,REW1 IF RECALL REQUESTED 02203 M01S02078.mac1 +++| REWRITEF X1 02204 M01S02079.mac1 +++| EQ REWRITFX 02205 M01S02080.mac1 +++| 02206 M01S02081.mac1 +++| REW1 REWRITEF X1,R 02207 M01S02082.mac1 +++| EQ REWRITFX 02208 M01S02083.mac1 +++| 02209 M01S02084.mac1 +++| END 02210 M01S02085.mac1 +++| IDENT REWRITR 02211 M01S02086.mac1 +++| ENTRY REWRITR 02212 M01S02087.mac1 +++| SYSCOM B1 02213 M01S02088.mac1 +++| TITLE REWRITR - REWRITE END OF RECORD. 02214 M01S02089.mac1 +++|*COMMENT REWRITE END OF RECORD.
| Line S02090 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02215 M02S02090.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02216 M01S00046.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02217 M01S02091.mac1 +++| REWRITR SPACE 4,10 02218 M01S02092.mac1 +++|*** REWRITR - REWRITE END OF RECORD. 02219 M01S02093.mac1 +++|* MASS STORAGE FILES ONLY. 02220 M01S02094.mac1 +++|* 02221 M01S02095.mac1 +++|* CALL REWRITR (FILE,R) 02222 M01S02096.mac1 +++|* 02223 M01S02097.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02224 M01S02098.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02225 M01S02099.mac1 +++|* 02226 M01S02100.mac1 +++|* REWRITR(FILE,R); (*SYMPL* CALL) 02227 M01S02101.mac1 +++|* 02228 M01S02102.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02229 M01S02103.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02230 M01S02104.mac1 +++|* 02231 M01S02105.mac1 +++|* USES X - 2. 02232 M01S02106.mac1 +++|* A - 2. 02233 M01S02107.mac1 +++|* B - 1. 02234 M01S02108.mac1 +++|* 02235 M01S02109.mac1 +++|* MACROS REWRITER. 02236 M01S02110.mac1 +++| 02237 M01S02111.mac1 +++| 02238 M01S02112.mac1 +++| REWRITR SUBR ENTRY/EXIT 02239 M01S02113.mac1 +++| SB1 1 02240 M01S02114.mac1 +++| SA2 A1+B1 GET ADDRESS OF RECALL PARAMETER 02241 M01S02115.mac1 +++| SA2 X2 02242 M01S02116.mac1 +++| NZ X2,REW1 IF RECALL PARAMETER REQUESTED 02243 M01S02117.mac1 +++| REWRITER X1 02244 M01S02118.mac1 +++| EQ REWRITRX 02245 M01S02119.mac1 +++| 02246 M01S02120.mac1 +++| REW1 REWRITER X1,R 02247 M01S02121.mac1 +++| EQ REWRITRX 02248 M01S02122.mac1 +++| 02249 M01S02123.mac1 +++| END 02250 M01S02124.mac1 +++| IDENT ROLLOUT 02251 M01S02125.mac1 +++| ENTRY ROLLOUT 02252 M01S02126.mac1 +++| SYSCOM B1 02253 M01S02127.mac1 +++| TITLE ROLLOUT - ROLLOUT THE JOB. 02254 M01S02128.mac1 +++|*COMMENT ROLLOUT THE JOB.
| Line S02129 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02255 M02S02129.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02256 M01S00047.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02257 M01S02130.mac1 +++| ROLLOUT SPACE 4,10 02258 M01S02131.mac1 +++|*** ROLLOUT - ROLLOUT THE JOB. 02259 M01S02132.mac1 +++|* 02260 M01S02133.mac1 +++|* CALL ROLLOUT (ADDR) 02261 M01S02134.mac1 +++|* 02262 M01S02135.mac1 +++|* ROLLOUT(ADDR); (*SYMPL* CALL) 02263 M01S02136.mac1 +++|* 02264 M01S02137.mac1 +++|* ENTRY (ADDR) = ADDRESS OF EVENT DEPENDENCIES. 02265 M01S02138.mac1 +++|*T, 30/0,18/EVD,12/RTP
Figure
02266 M01S02139.mac1 +++|* EVD = EVENT VALUE. 02267 M01S02140.mac1 +++|* RTP = ROLLOUT TIME PERIOD. 02268 M01S02141.mac1 +++|* 02269 M01S02142.mac1 +++|* USES B - 1. 02270 M01S02143.mac1 +++|* 02271 M01S02144.mac1 +++|* MACROS ROLLOUT. 02272 M01S02145.mac1 +++| 02273 M01S02146.mac1 +++| 02274 M01S02147.mac1 +++| ROLLOUT BSS 0 02275 M01S02148.mac1 +++| ROLLT SUBR ENTRY/EXIT 02276 M01S02149.mac1 +++| SB1 1 02277 M01S02150.mac1 +++| ROLLOUT X1 02278 M01S02151.mac1 +++| EQ ROLLTX EXIT 02279 M01S02152.mac1 +++| 02280 M01S02153.mac1 +++| END 02281 M01S02154.mac1 +++| IDENT ROUTE 02282 M01S02155.mac1 +++| ENTRY ROUTE 02283 M01S02156.mac1 +++| SYSCOM B1 02284 M01S02157.mac1 +++| TITLE ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION. 02285 M01S02158.mac1 +++|*COMMENT ROUTE A FILE TO A SPECIFIC DISPOSITION.
| Line S02159 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02286 M02S02159.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981. 02287 M01S00048.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02288 M01S02160.mac1 +++| SPACE 4,10 02289 M01S02161.mac1 +++|*** ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION. 02290 M01S02162.mac1 +++|* 02291 M01S02163.mac1 +++|* CALL ROUTE(ADDR,R) 02292 M01S02164.mac1 +++|* 02293 M01S02165.mac1 +++|* ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK. 02294 M01S02166.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02295 M01S02167.mac1 +++|* 02296 M01S02168.mac1 +++|* ROUTE(ADDR,R); (*SYMPL* CALL) 02297 M01S02169.mac1 +++|* 02298 M01S02170.mac1 +++|* ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK. 02299 M01S02171.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02300 M01S02172.mac1 +++|* 02301 M01S02173.mac1 +++|* USES X - 1, 2. 02302 M01S02174.mac1 +++|* A - 1, 2. 02303 M01S02175.mac1 +++|* B - 1. 02304 M01S02176.mac1 +++|* 02305 M01S02177.mac1 +++|* MACROS ROUTE. 02306 M01S02178.mac1 +++| 02307 M01S02179.mac1 +++| 02308 M01S02180.mac1 +++| ROUTE SUBR ENTRY/EXIT 02309 M01S02181.mac1 +++| SB1 1 02310 M01S02182.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02311 M01S02183.mac1 +++| SA2 X2 02312 M01S02184.mac1 +++| NZ X2,ROU1 IF RECALL PARAMETER 02313 M01S02185.mac1 +++| ROUTE X1 02314 M01S02186.mac1 +++| EQ ROUTEX EXIT 02315 M01S02187.mac1 +++| 02316 M01S02188.mac1 +++| ROU1 ROUTE X1,R 02317 M01S02189.mac1 +++| EQ ROUTEX EXIT 02318 M01S02190.mac1 +++| 02319 M01S02191.mac1 +++| END 02320 M01S02192.mac1 +++| IDENT RPHR 02321 M01S02193.mac1 +++| ENTRY RPHR 02322 M01S02194.mac1 +++| SYSCOM B1 02323 M01S02195.mac1 +++| TITLE RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER. 02324 M01S02196.mac1 +++|*COMMENT READ PHYSICAL RECORD TO *CIO* BUFFER.
| Line S02197 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02325 M02S02197.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02326 M01S00049.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02327 M01S02198.mac1 +++| RPHR SPACE 4,10 02328 M01S02199.mac1 +++|*** RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER. 02329 M01S02200.mac1 +++|* 02330 M01S02201.mac1 +++|* CALL RPHR (FILE,R) 02331 M01S02202.mac1 +++|* 02332 M01S02203.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02333 M01S02204.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02334 M01S02205.mac1 +++|* 02335 M01S02206.mac1 +++|* RPHR(FILE,R); (*SYMPL* CALL) 02336 M01S02207.mac1 +++|* 02337 M01S02208.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02338 M01S02209.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02339 M01S02210.mac1 +++|* 02340 M01S02211.mac1 +++|* USES X - 2. 02341 M01S02212.mac1 +++|* A - 2. 02342 M01S02213.mac1 +++|* B - 1. 02343 M01S02214.mac1 +++|* 02344 M01S02215.mac1 +++|* MACROS RPHR. 02345 M01S02216.mac1 +++| 02346 M01S02217.mac1 +++| 02347 M01S02218.mac1 +++| RPHR SUBR ENTRY/EXIT 02348 M01S02219.mac1 +++| SB1 1 02349 M01S02220.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02350 M01S02221.mac1 +++| SA2 X2 02351 M01S02222.mac1 +++| NZ X2,RPH1 IF RECALL REQUESTED 02352 M01S02223.mac1 +++| RPHR X1 02353 M01S02224.mac1 +++| EQ RPHRX 02354 M01S02225.mac1 +++| 02355 M01S02226.mac1 +++| RPH1 RPHR X1,R 02356 M01S02227.mac1 +++| EQ RPHRX 02357 M01S02228.mac1 +++| 02358 M01S02229.mac1 +++| END 02359 M01S02230.mac1 +++| IDENT RPHRLS 02360 M01S02231.mac1 +++| ENTRY RPHRLS 02361 M01S02232.mac1 +++| SYSCOM B1 02362 M01S02233.mac1 +++| TITLE RPHRLS - READ PRUS WITH LIST. 02363 M01S02234.mac1 +++|*COMMENT READ PRUS WITH LIST.
| Line S02235 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02364 M02S02235.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02365 M01S00050.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02366 M01S02236.mac1 +++| RPHRLS SPACE 4,10 02367 M01S02237.mac1 +++|*** RPHRLS - READ PRUS WITH LIST. 02368 M01S02238.mac1 +++|* 02369 M01S02239.mac1 +++|* CALL RPHRLS (FILE,R) 02370 M01S02240.mac1 +++|* 02371 M01S02241.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02372 M01S02242.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02373 M01S02243.mac1 +++|* 02374 M01S02244.mac1 +++|* RPHRLS(FILE,R); (*SYMPL* CALL) 02375 M01S02245.mac1 +++|* 02376 M01S02246.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02377 M01S02247.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02378 M01S02248.mac1 +++|* 02379 M01S02249.mac1 +++|* USES X - 2. 02380 M01S02250.mac1 +++|* A - 2. 02381 M01S02251.mac1 +++|* B - 1. 02382 M01S02252.mac1 +++|* 02383 M01S02253.mac1 +++|* MACROS RPHRLS. 02384 M01S02254.mac1 +++| 02385 M01S02255.mac1 +++| 02386 M01S02256.mac1 +++| RPHRLS SUBR ENTRY/EXIT 02387 M01S02257.mac1 +++| SB1 1
| Line S02258 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02388 M02S02258.ns22000 ---| SA2 X1+B1 GET RECALL PARAMETER 02389 M01S00037.ns22000 +++| SA2 A1+B1 GET RECALL PARAMETER 02390 M01S02259.mac1 +++| SA2 X2 02391 M01S02260.mac1 +++| NZ X2,RPH1 IF RECALL REQUESTED 02392 M01S02261.mac1 +++| RPHRLS X1 02393 M01S02262.mac1 +++| EQ RPHRLSX 02394 M01S02263.mac1 +++| 02395 M01S02264.mac1 +++| RPH1 RPHRLS X1,R 02396 M01S02265.mac1 +++| EQ RPHRLSX 02397 M01S02266.mac1 +++| 02398 M01S02267.mac1 +++| END 02399 M01S02268.mac1 +++| IDENT RTIME 02400 M01S02269.mac1 +++| ENTRY RTIME 02401 M01S02270.mac1 +++| SYSCOM B1 02402 M01S02271.mac1 +++| TITLE RTIME - OBTAIN REAL TIME CLOCK READING. 02403 M01S02272.mac1 +++|*COMMENT OBTAIN REAL TIME CLOCK READING.
| Line S02273 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02404 M02S02273.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02405 M01S00051.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02406 M01S02274.mac1 +++| RTIME SPACE 4,10 02407 M01S02275.mac1 +++|*** RTIME - OBTAIN REAL TIME CLOCK READING. 02408 M01S02276.mac1 +++|* 02409 M01S02277.mac1 +++|* CALL RTIME (STATUS) 02410 M01S02278.mac1 +++|* 02411 M01S02279.mac1 +++|* EXIT (STATUS) = RESPONSE. 02412 M01S02280.mac1 +++|* RESPONSE = 02413 M01S02281.mac1 +++|*T 24/ SECONDS,36/ MILLISECONDS
Figure
02414 M01S02282.mac1 +++|* TIME IS SYSTEM SOFTWARE CLOCK TIME SINCE DEADSTART. 02415 M01S02283.mac1 +++|* 02416 M01S02284.mac1 +++|* RTIME(STATUS); (*SYMPL* CALL) 02417 M01S02285.mac1 +++|* 02418 M01S02286.mac1 +++|* EXIT STATUS, AN ITEM THAT WILL CONTAIN THE RTIME 02419 M01S02287.mac1 +++|* STATUS WORD ON EXIT. 02420 M01S02288.mac1 +++|* 02421 M01S02289.mac1 +++|* USES X - 1, 6. 02422 M01S02290.mac1 +++|* A - 1. 02423 M01S02291.mac1 +++|* B - 1. 02424 M01S02292.mac1 +++|* 02425 M01S02293.mac1 +++|* MACROS RTIME. 02426 M01S02294.mac1 +++| 02427 M01S02295.mac1 +++| 02428 M01S02296.mac1 +++| RTIME SUBR ENTRY/EXIT 02429 M01S02297.mac1 +++| SB1 1 02430 M01S02298.mac1 +++| BX5 X1 02431 M01S02299.mac1 +++| RTIME X1 02432 M01S02300.mac1 +++| SA1 X5 02433 M01S02301.mac1 +++| BX6 X1 RETURN RESPONSE AS FUNCTION RESULT 02434 M01S02302.mac1 +++| EQ RTIMEX 02435 M01S02303.mac1 +++| 02436 M01S02304.mac1 +++| END 02437 M01S02305.mac1 +++| IDENT SETJCI 02438 M01S02306.mac1 +++| ENTRY SETJCI 02439 M01S02307.mac1 +++| SYSCOM B1 02440 M01S02308.mac1 +++| TITLE SETJCI - SET JOB CONTROL INFORMATION. 02441 M01S02309.mac1 +++|*COMMENT SET JOB CONTROL INFORMATION.
| Line S02310 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02442 M02S02310.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 02443 M01S00052.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02444 M01S02311.mac1 +++| SETJCI SPACE 4,25 02445 M01S02312.mac1 +++|*** SETJCI - SET JOB CONTROL INFORMATION. 02446 M01S02313.mac1 +++|* 02447 M01S02314.mac1 +++|* CALL SETJCI(ADDR) 02448 M01S02315.mac1 +++|* 02449 M01S02316.mac1 +++|* ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING JOB 02450 M01S02317.mac1 +++|* CONTROL INFORMATION. 02451 M01S02318.mac1 +++|* 02452 M01S02319.mac1 +++|* EXIT JOB CONTROL INFORMATION SET IN USER,S 02453 M01S02320.mac1 +++|* CONTROL POINT AREA. 02454 M01S02321.mac1 +++|* 02455 M01S02322.mac1 +++|* SETJCI(ADDR); (*SYMPL* CALL) 02456 M01S02323.mac1 +++|* 02457 M01S02324.mac1 +++|* ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING 02458 M01S02325.mac1 +++|* JOB CONTROL INFORMATION. 02459 M01S02326.mac1 +++|* THE FORMAT OF THE ARRAY IS- 02460 M01S02327.mac1 +++|*T ADDR 6/EFG,18/REG,12/CCL,12/EM,6/SSW,6/0
Figure ADDR
02461 M01S02328.mac1 +++|*T, 6/EF,18/R3,18/R2,18/R1
Figure
02462 M01S02329.mac1 +++|* EFG = GLOBAL ERROR FLAG. 02463 M01S02330.mac1 +++|* REG = GLOBAL REGISTER. 02464 M01S02331.mac1 +++|* CCL = RESERVED FOR CCL USE. 02465 M01S02332.mac1 +++|* EM = EXIT MODE (REFER TO *NOS* REFERENCE VOL. 2). 02466 M01S02333.mac1 +++|* SSW = SENSE SWITCHES. 02467 M01S02334.mac1 +++|* EF = LAST ERROR FLAG ENCOUNTERED. 02468 M01S02335.mac1 +++|* R3 = JOB CONTROL REGISTER 3. 02469 M01S02336.mac1 +++|* R2 = JOB CONTROL REGISTER 2. 02470 M01S02337.mac1 +++|* R1 = JOB CONTROL REGISTER 1. 02471 M01S02338.mac1 +++|* 02472 M01S02339.mac1 +++|* EXIT JOB CONTROL INFORMATION SET IN USER,S 02473 M01S02340.mac1 +++|* CONTROL POINT AREA. 02474 M01S02341.mac1 +++|* 02475 M01S02342.mac1 +++|* USES B - 1. 02476 M01S02343.mac1 +++|* 02477 M01S02344.mac1 +++|* MACROS SETJCI. 02478 M01S02345.mac1 +++| 02479 M01S02346.mac1 +++| 02480 M01S02347.mac1 +++| SETJCI SUBR ENTRY/EXIT 02481 M01S02348.mac1 +++| SB1 1 02482 M01S02349.mac1 +++| SETJCI X1 02483 M01S02350.mac1 +++| EQ SETJCIX RETURN 02484 M01S02351.mac1 +++| 02485 M01S02352.mac1 +++| END 02486 M01S02353.mac1 +++| IDENT SKIPB 02487 M01S02354.mac1 +++| ENTRY SKIPB 02488 M01S02355.mac1 +++| SYSCOM B1 02489 M01S02356.mac1 +++| TITLE SKIPB - SKIP RECORDS BACKWARDS. 02490 M01S02357.mac1 +++|*COMMENT SKIP RECORDS BACKWARDS.
| Line S02358 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02491 M02S02358.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02492 M01S00053.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02493 M01S02359.mac1 +++| SKIPB SPACE 4,10 02494 M01S02360.mac1 +++|*** SKIPB - SKIP RECORDS BACKWARDS. 02495 M01S02361.mac1 +++|* 02496 M01S02362.mac1 +++|* CALL SKIPB (FILE,N,R) 02497 M01S02363.mac1 +++|* 02498 M01S02364.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02499 M01S02365.mac1 +++|* (N) = NUMBER OF RECORDS. 02500 M01S02366.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02501 M01S02367.mac1 +++|* 02502 M01S02368.mac1 +++|* SKIPB(FILE,N,R); (*SYMPL* CALL) 02503 M01S02369.mac1 +++|* 02504 M01S02370.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02505 M01S02371.mac1 +++|* N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP. 02506 M01S02372.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02507 M01S02373.mac1 +++|* 02508 M01S02374.mac1 +++|* USES X - 2, 3. 02509 M01S02375.mac1 +++|* A - 2, 3. 02510 M01S02376.mac1 +++|* B - 1. 02511 M01S02377.mac1 +++|* 02512 M01S02378.mac1 +++|* MACROS SKIPB. 02513 M01S02379.mac1 +++| 02514 M01S02380.mac1 +++| SKIPB SUBR ENTRY/EXIT 02515 M01S02381.mac1 +++| SB1 1 02516 M01S02382.mac1 +++| SA3 A1+B1 ADDRESS OF N 02517 M01S02383.mac1 +++| SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER 02518 M01S02384.mac1 +++| SA3 X3 N 02519 M01S02385.mac1 +++| SA2 X2 02520 M01S02386.mac1 +++| NZ X2,SKI1 IF RECALL REQUESTED 02521 M01S02387.mac1 +++| SKIPB X1,X3 02522 M01S02388.mac1 +++| EQ SKIPBX 02523 M01S02389.mac1 +++| 02524 M01S02390.mac1 +++| SKI1 SKIPB X1,X3,R 02525 M01S02391.mac1 +++| EQ SKIPBX 02526 M01S02392.mac1 +++| 02527 M01S02393.mac1 +++| END 02528 M01S02394.mac1 +++| IDENT SKIPEI 02529 M01S02395.mac1 +++| ENTRY SKIPEI 02530 M01S02396.mac1 +++| SYSCOM B1 02531 M01S02397.mac1 +++| TITLE SKIPEI - SKIP TO END OF INFORMATION. 02532 M01S02398.mac1 +++|*COMMENT SKIP TO END OF INFORMATION.
| Line S02399 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02533 M02S02399.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02534 M01S00054.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02535 M01S02400.mac1 +++| SKIPEI SPACE 4,10 02536 M01S02401.mac1 +++|*** SKIPEI - SKIP TO END OF INFORMATION. 02537 M01S02402.mac1 +++|* 02538 M01S02403.mac1 +++|* CALL SKIPEI (FILE,R) 02539 M01S02404.mac1 +++|* 02540 M01S02405.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02541 M01S02406.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02542 M01S02407.mac1 +++|* 02543 M01S02408.mac1 +++|* SKIPEI(FILE,R); (*SYMPL* CALL) 02544 M01S02409.mac1 +++|* 02545 M01S02410.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02546 M01S02411.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02547 M01S02412.mac1 +++|* 02548 M01S02413.mac1 +++|* USES X - 2. 02549 M01S02414.mac1 +++|* A - 2. 02550 M01S02415.mac1 +++|* B - 1. 02551 M01S02416.mac1 +++|* 02552 M01S02417.mac1 +++|* MACROS SKIPEI. 02553 M01S02418.mac1 +++| 02554 M01S02419.mac1 +++| 02555 M01S02420.mac1 +++| SKIPEI SUBR ENTRY/EXIT 02556 M01S02421.mac1 +++| SB1 1 02557 M01S02422.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02558 M01S02423.mac1 +++| SA2 X2 02559 M01S02424.mac1 +++| NZ X2,SKI1 IF RECALL REQUESTED 02560 M01S02425.mac1 +++| SKIPEI X1 02561 M01S02426.mac1 +++| EQ SKIPEIX 02562 M01S02427.mac1 +++| 02563 M01S02428.mac1 +++| SKI1 SKIPEI X1,R 02564 M01S02429.mac1 +++| EQ SKIPEIX 02565 M01S02430.mac1 +++| 02566 M01S02431.mac1 +++| END 02567 M01S02432.mac1 +++| IDENT SKIPF 02568 M01S02433.mac1 +++| ENTRY SKIPF 02569 M01S02434.mac1 +++| SYSCOM B1 02570 M01S02435.mac1 +++| TITLE SKIPF - SKIP RECORDS FORWARD. 02571 M01S02436.mac1 +++|*COMMENT SKIP RECORDS FORWARD.
| Line S02437 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02572 M02S02437.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02573 M01S00055.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02574 M01S02438.mac1 +++| SKIPF SPACE 4,10 02575 M01S02439.mac1 +++|*** SKIPF - SKIP RECORDS FORWARD. 02576 M01S02440.mac1 +++|* 02577 M01S02441.mac1 +++|* CALL SKIPF (FILE,N,R) 02578 M01S02442.mac1 +++|* 02579 M01S02443.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02580 M01S02444.mac1 +++|* (N) = NUMBER OF RECORDS. 02581 M01S02445.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02582 M01S02446.mac1 +++|* 02583 M01S02447.mac1 +++|* SKIPF(FILE,N,R); (*SYMPL* CALL) 02584 M01S02448.mac1 +++|* 02585 M01S02449.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02586 M01S02450.mac1 +++|* N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP. 02587 M01S02451.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02588 M01S02452.mac1 +++|* 02589 M01S02453.mac1 +++|* USES X - 2, 3. 02590 M01S02454.mac1 +++|* A - 2, 3. 02591 M01S02455.mac1 +++|* B - 1. 02592 M01S02456.mac1 +++|* 02593 M01S02457.mac1 +++|* MACROS SKIPF. 02594 M01S02458.mac1 +++| 02595 M01S02459.mac1 +++| 02596 M01S02460.mac1 +++| SKIPF SUBR ENTRY/EXIT 02597 M01S02461.mac1 +++| SB1 1 02598 M01S02462.mac1 +++| SA3 A1+B1 ADDRESS OF N 02599 M01S02463.mac1 +++| SA2 A3+B1 GET RECALL PARAMETER 02600 M01S02464.mac1 +++| SA2 X2 02601 M01S02465.mac1 +++| SA3 X3 N 02602 M01S02466.mac1 +++| NZ X2,SKI1 IF RECALL REQUESTED 02603 M01S02467.mac1 +++| SKIPF X1,X3 02604 M01S02468.mac1 +++| EQ SKIPFX 02605 M01S02469.mac1 +++| 02606 M01S02470.mac1 +++| SKI1 SKIPF X1,X3,R 02607 M01S02471.mac1 +++| EQ SKIPFX 02608 M01S02472.mac1 +++| 02609 M01S02473.mac1 +++| END 02610 M01S02474.mac1 +++| IDENT SKIPFB 02611 M01S02475.mac1 +++| ENTRY SKIPFB 02612 M01S02476.mac1 +++| SYSCOM B1 02613 M01S02477.mac1 +++| TITLE SKIPFB - SKIP FILES BACKWARD. 02614 M01S02478.mac1 +++|*COMMENT SKIP FILES BACKWARD.
| Line S02479 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02615 M02S02479.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02616 M01S00056.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02617 M01S02480.mac1 +++| SKIPFB SPACE 4,10 02618 M01S02481.mac1 +++|*** SKIPFB - SKIP FILES BACKWARD. 02619 M01S02482.mac1 +++|* 02620 M01S02483.mac1 +++|* CALL SKIPFB (FILE,N,R) 02621 M01S02484.mac1 +++|* 02622 M01S02485.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02623 M01S02486.mac1 +++|* (N) = NUMBER OF FILES. 02624 M01S02487.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02625 M01S02488.mac1 +++|* 02626 M01S02489.mac1 +++|* SKIPFB(FILE,N,R); (*SYMPL* CALL) 02627 M01S02490.mac1 +++|* 02628 M01S02491.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02629 M01S02492.mac1 +++|* N, AN ITEM CONTAING THE NUMBER OF FILES TO SKIP. 02630 M01S02493.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02631 M01S02494.mac1 +++|* 02632 M01S02495.mac1 +++|* USES X - 2, 3. 02633 M01S02496.mac1 +++|* A - 2, 3. 02634 M01S02497.mac1 +++|* B - 1. 02635 M01S02498.mac1 +++|* 02636 M01S02499.mac1 +++|* MACROS SKIPFB. 02637 M01S02500.mac1 +++| 02638 M01S02501.mac1 +++| 02639 M01S02502.mac1 +++| 02640 M01S02503.mac1 +++| SKIPFB SUBR ENTRY/EXIT 02641 M01S02504.mac1 +++| SB1 1 02642 M01S02505.mac1 +++| SA3 A1+B1 ADDRESS OF N 02643 M01S02506.mac1 +++| SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER 02644 M01S02507.mac1 +++| SA3 X3 N 02645 M01S02508.mac1 +++| SA2 X2 02646 M01S02509.mac1 +++| NZ X2,SKI1 IF RECALL REQUESTED 02647 M01S02510.mac1 +++| SKIPFB X1,X3 02648 M01S02511.mac1 +++| EQ SKIPFBX 02649 M01S02512.mac1 +++| 02650 M01S02513.mac1 +++| SKI1 SKIPFB X1,X3,R 02651 M01S02514.mac1 +++| EQ SKIPFBX 02652 M01S02515.mac1 +++| 02653 M01S02516.mac1 +++| END 02654 M01S02517.mac1 +++| IDENT SKIPFF 02655 M01S02518.mac1 +++| ENTRY SKIPFF 02656 M01S02519.mac1 +++| SYSCOM B1 02657 M01S02520.mac1 +++| TITLE SKIPFF - SKIP FILES FORWARD. 02658 M01S02521.mac1 +++|*COMMENT SKIP FILES FORWARD.
| Line S02522 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02659 M02S02522.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02660 M01S00057.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02661 M01S02523.mac1 +++| SKIPFF SPACE 4,10 02662 M01S02524.mac1 +++|*** SKIPFF - SKIP FILES FORWARD. 02663 M01S02525.mac1 +++|* 02664 M01S02526.mac1 +++|* CALL SKIPFF (FILE,N,R) 02665 M01S02527.mac1 +++|* 02666 M01S02528.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02667 M01S02529.mac1 +++|* (N) = NUMBER OF FILES 02668 M01S02530.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02669 M01S02531.mac1 +++|* 02670 M01S02532.mac1 +++|* SKIPFF(FILE,N,R); (*SYMPL* CALL) 02671 M01S02533.mac1 +++|* 02672 M01S02534.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02673 M01S02535.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF FILES TO SKIP. 02674 M01S02536.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02675 M01S02537.mac1 +++|* 02676 M01S02538.mac1 +++|* USES X - 2, 3. 02677 M01S02539.mac1 +++|* A - 2, 3. 02678 M01S02540.mac1 +++|* B - 1. 02679 M01S02541.mac1 +++|* 02680 M01S02542.mac1 +++|* MACROS SKIPFF. 02681 M01S02543.mac1 +++| 02682 M01S02544.mac1 +++| 02683 M01S02545.mac1 +++| SKIPFF SUBR ENTRY/EXIT 02684 M01S02546.mac1 +++| SB1 1 02685 M01S02547.mac1 +++| SA3 A1+B1 ADDRESS OF N 02686 M01S02548.mac1 +++| SA2 A3+B1 ADDRESS OF RECALL PARAMETER 02687 M01S02549.mac1 +++| SA3 X3 N 02688 M01S02550.mac1 +++| SA2 X2 02689 M01S02551.mac1 +++| NZ X2,SKI1 IF RECALL REQUESTED 02690 M01S02552.mac1 +++| SKIPFF X1,X3 02691 M01S02553.mac1 +++| EQ SKIPFFX 02692 M01S02554.mac1 +++| 02693 M01S02555.mac1 +++| SKI1 SKIPFF X1,X3,R 02694 M01S02556.mac1 +++| EQ SKIPFFX 02695 M01S02557.mac1 +++| 02696 M01S02558.mac1 +++| END 02697 M01S02559.mac1 +++| IDENT SYSTEM 02698 M01S02560.mac1 +++| ENTRY SYSTEM 02699 M01S02561.mac1 +++| SYSCOM B1 02700 M01S02562.mac1 +++| TITLE SYSTEM - REQUEST SYSTEM FUNCTION. 02701 M01S02563.mac1 +++|*COMMENT REQUEST SYSTEM FUNCTION.
| Line S02564 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02702 M02S02564.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02703 M01S00058.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02704 M01S02565.mac1 +++| SYSTEM SPACE 4,10 02705 M01S02566.mac1 +++|*** SYSTEM - REQUEST SYSTEM FUNCTION. 02706 M01S02567.mac1 +++|* 02707 M01S02568.mac1 +++|* CALL SYSTEM(ARGUMENT,R) 02708 M01S02569.mac1 +++|* 02709 M01S02570.mac1 +++|* ENTRY (ARGUMENT) = 3 CHARACTER SYSTEM REQUEST NAME, 02710 M01S02571.mac1 +++|* INCLUDING OPTIONAL PARAMETERS. 02711 M01S02572.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02712 M01S02573.mac1 +++|* 02713 M01S02574.mac1 +++|* SYSTEM(ARGUMENTS,R); (*SYMPL* CALL) 02714 M01S02575.mac1 +++|* 02715 M01S02576.mac1 +++|* ENTRY ARGUMENTS, AN ITEM CONTAINING THE REQUEST ARGUMENT. 02716 M01S02577.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02717 M01S02578.mac1 +++|* 02718 M01S02579.mac1 +++|* EXIT DEPENDS ON CALL, SEE *NOS REFERENCE MANUAL*. 02719 M01S02580.mac1 +++|* 02720 M01S02581.mac1 +++|* USES X - 1, 2, 6. 02721 M01S02582.mac1 +++|* A - 1, 2. 02722 M01S02583.mac1 +++|* B - 1. 02723 M01S02584.mac1 +++|* 02724 M01S02585.mac1 +++|* MACROS SYSTEM. 02725 M01S02586.mac1 +++| 02726 M01S02587.mac1 +++| 02727 M01S02588.mac1 +++| SYSTEM SUBR ENTRY/EXIT 02728 M01S02589.mac1 +++| SB1 1 02729 M01S02590.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02730 M01S02591.mac1 +++| SA1 X1 02731 M01S02592.mac1 +++| BX6 X1 SYSTEM REQUEST 02732 M01S02593.mac1 +++| SA2 X2 02733 M01S02594.mac1 +++| ZR X2,SYS1 IF RECALL NOT REQUESTED 02734 M01S02595.mac1 +++| MX2 1 02735 M01S02596.mac1 +++| LX2 41 02736 M01S02597.mac1 +++| BX6 X6+X2 02737 M01S02598.mac1 +++| SYS1 BSS 0 02738 M01S02599.mac1 +++| SYSTEM 02739 M01S02600.mac1 +++| EQ SYSTEMX 02740 M01S02601.mac1 +++| 02741 M01S02602.mac1 +++| END 02742 M01S02603.mac1 +++| IDENT TIME 02743 M01S02604.mac1 +++| ENTRY TIME 02744 M01S02605.mac1 +++| SYSCOM B1 02745 M01S02606.mac1 +++| TITLE TIME - OBTAIN ACCUMULATED CPU TIME. 02746 M01S02607.mac1 +++|*COMMENT OBTAIN ACCUMULATED CPU TIME.
| Line S02608 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02747 M02S02608.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02748 M01S00059.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02749 M01S02609.mac1 +++| TIME SPACE 4,10 02750 M01S02610.mac1 +++|*** TIME - OBTAIN ACCUMULATED CPU TIME. 02751 M01S02611.mac1 +++|* 02752 M01S02612.mac1 +++|* CALL TIME (STATUS) 02753 M01S02613.mac1 +++|* 02754 M01S02614.mac1 +++|* EXIT (STATUS) = RESPONSE 02755 M01S02615.mac1 +++|* RESPONSE = 02756 M01S02616.mac1 +++|*T 12/ 2000B,12/0,24/ SECONDS,12/ MILLISECONDS
Figure
02757 M01S02617.mac1 +++|* 02758 M01S02618.mac1 +++|* TIME(STATUS); (*SYMPL* CALL) 02759 M01S02619.mac1 +++|* 02760 M01S02620.mac1 +++|* EXIT (STATUS) = TIME STATUS WORD. 02761 M01S02621.mac1 +++|* 02762 M01S02622.mac1 +++|* USES X - 1, 5, 6. 02763 M01S02623.mac1 +++|* A - 1. 02764 M01S02624.mac1 +++|* B - 1. 02765 M01S02625.mac1 +++|* 02766 M01S02626.mac1 +++|* MACROS TIME. 02767 M01S02627.mac1 +++| 02768 M01S02628.mac1 +++| 02769 M01S02629.mac1 +++| TIME SUBR ENTRY/EXIT 02770 M01S02630.mac1 +++| SB1 1 02771 M01S02631.mac1 +++| BX5 X1 02772 M01S02632.mac1 +++| TIME X1 02773 M01S02633.mac1 +++| SA1 X5 02774 M01S02634.mac1 +++| BX6 X1 RETURN RESPONSE AS FUNCTION RESULT 02775 M01S02635.mac1 +++| EQ TIMEX 02776 M01S02636.mac1 +++| 02777 M01S02637.mac1 +++| END 02778 M01S02638.mac1 +++| IDENT UNLOAD 02779 M01S02639.mac1 +++| ENTRY UNLOAD 02780 M01S00005.ns2676 +++| TITLE UNLOAD - UNLOAD FILE. 02781 M01S02640.mac1 +++|*COMMENT UNLOAD FILE.
| Line S02641 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02782 M02S02641.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02783 M01S00060.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02784 M01S02642.mac1 +++| UNLOAD SPACE 4,10 02785 M01S02643.mac1 +++|*** UNLOAD - UNLOAD FILE. 02786 M01S02644.mac1 +++|* 02787 M01S02645.mac1 +++|* CALL UNLOAD (FILE,R) 02788 M01S02646.mac1 +++|* 02789 M01S02647.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02790 M01S02648.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02791 M01S02649.mac1 +++|* 02792 M01S02650.mac1 +++|* UNLOAD(FILE,R); (*SYMPL* CALL) 02793 M01S02651.mac1 +++|* 02794 M01S02652.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02795 M01S02653.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02796 M01S02654.mac1 +++|* 02797 M01S02655.mac1 +++|* USES X - 2. 02798 M01S02656.mac1 +++|* A - 2. 02799 M01S02657.mac1 +++|* B - 1. 02800 M01S02658.mac1 +++|* 02801 M01S02659.mac1 +++|* MACROS UNLOAD. 02802 M01S02660.mac1 +++| 02803 M01S02661.mac1 +++| 02804 M01S02662.mac1 +++| UNLOAD SUBR ENTRY/EXIT 02805 M01S02663.mac1 +++| SB1 1 02806 M01S02664.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02807 M01S02665.mac1 +++| SA2 X2 02808 M01S02666.mac1 +++| NZ X2,UNL1 IF RECALL REQUESTED 02809 M01S02667.mac1 +++| UNLOAD X1 02810 M01S02668.mac1 +++| EQ UNLOADX 02811 M01S02669.mac1 +++| 02812 M01S02670.mac1 +++| UNL1 UNLOAD X1,R 02813 M01S02671.mac1 +++| EQ UNLOADX 02814 M01S02672.mac1 +++| 02815 M01S02673.mac1 +++| END 02816 M01S02674.mac1 +++| IDENT VERSION 02817 M01S02675.mac1 +++| ENTRY VERSION 02818 M01S02676.mac1 +++| SYSCOM B1 02819 M01S02677.mac1 +++| TITLE VERSION - RETURN THE OPERATING SYSTEM VERSION NAME. 02820 M01S02678.mac1 +++|*COMMENT RETURN VERSION NAME.
| Line S02679 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02821 M02S02679.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02822 M01S00061.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02823 M01S02680.mac1 +++| VERSION SPACE 4,10 02824 M01S02681.mac1 +++|*** VERSION - RETURN THE VERSION NAME OF THE OPERATING SYSTEM. 02825 M01S02682.mac1 +++|* 02826 M01S02683.mac1 +++|* CALL VERSION (ADDR) 02827 M01S02684.mac1 +++|* 02828 M01S02685.mac1 +++|* VERSION(ADDR); (*SYMPL* CALL) 02829 M01S02686.mac1 +++|* 02830 M01S02687.mac1 +++|* ENTRY (ADDR) = ADDRESS TO RECEIVE VERSION NAME. 02831 M01S02688.mac1 +++|* 02832 M01S02689.mac1 +++|* EXIT (ADDR) = VERSION NAME. 02833 M01S02690.mac1 +++|* 02834 M01S02691.mac1 +++|* USES X - 2, 3, 6. 02835 M01S02692.mac1 +++|* A - 2, 6. 02836 M01S02693.mac1 +++|* 02837 M01S02694.mac1 +++|* MACROS VERSION. 02838 M01S02695.mac1 +++| 02839 M01S02696.mac1 +++| 02840 M01S02697.mac1 +++| VERSION BSS 0 02841 M01S02698.mac1 +++| VERSIN SUBR ENTRY/EXIT 02842 M01S02699.mac1 +++| MX3 42 02843 M01S02700.mac1 +++| SA2 ADDR 02844 M01S02701.mac1 +++| BX2 X3*X2 02845 M01S02702.mac1 +++| BX6 X1+X2 02846 M01S02703.mac1 +++| SA6 A2 02847 M01S02704.mac1 +++| VERSION A2 02848 M01S02705.mac1 +++| EQ VERSINX EXIT 02849 M01S02706.mac1 +++| 02850 M01S02707.mac1 +++| ADDR VFD 12/10,12/0,12/0,6/0,18/0 02851 M01S02708.mac1 +++| 02852 M01S02709.mac1 +++| END 02853 M01S02710.mac1 +++| IDENT WPHR 02854 M01S02711.mac1 +++| ENTRY WPHR 02855 M01S02712.mac1 +++| SYSCOM B1 02856 M01S02713.mac1 +++| TITLE WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER. 02857 M01S02714.mac1 +++|*COMMENT WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
| Line S02715 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02858 M02S02715.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02859 M01S00062.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02860 M01S02716.mac1 +++| WPHR SPACE 4,10 02861 M01S02717.mac1 +++|*** WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER. 02862 M01S02718.mac1 +++|* 02863 M01S02719.mac1 +++|* CALL WPHR (FILE,R) 02864 M01S02720.mac1 +++|* 02865 M01S02721.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02866 M01S02722.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02867 M01S02723.mac1 +++|* 02868 M01S02724.mac1 +++|* WPHR(FILE,R); (*SYMPL* CALL) 02869 M01S02725.mac1 +++|* 02870 M01S02726.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02871 M01S02727.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02872 M01S02728.mac1 +++|* 02873 M01S02729.mac1 +++|* USES X - 2. 02874 M01S02730.mac1 +++|* A - 2. 02875 M01S02731.mac1 +++|* B - 1. 02876 M01S02732.mac1 +++|* 02877 M01S02733.mac1 +++|* MACROS WPHR. 02878 M01S02734.mac1 +++| 02879 M01S02735.mac1 +++| 02880 M01S02736.mac1 +++| WPHR SUBR ENTRY/EXIT 02881 M01S02737.mac1 +++| SB1 1 02882 M01S02738.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02883 M01S02739.mac1 +++| SA2 X2 02884 M01S02740.mac1 +++| NZ X2,WPH1 IF RECALL REQUESTED 02885 M01S02741.mac1 +++| WPHR X1 02886 M01S02742.mac1 +++| EQ WPHRX 02887 M01S02743.mac1 +++| 02888 M01S02744.mac1 +++| WPH1 WPHR X1,R 02889 M01S02745.mac1 +++| EQ WPHRX 02890 M01S02746.mac1 +++| 02891 M01S02747.mac1 +++| END 02892 M01S02748.mac1 +++| IDENT WRITE 02893 M01S02749.mac1 +++| ENTRY WRITE 02894 M01S02750.mac1 +++| SYSCOM B1 02895 M01S02751.mac1 +++| TITLE WRITE - WRITE DATA FROM *CIO* BUFFER. 02896 M01S02752.mac1 +++|*COMMENT WRITE DATA FROM *CIO* BUFFER.
| Line S02753 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02897 M02S02753.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02898 M01S00063.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02899 M01S02754.mac1 +++| WRITE SPACE 4,10 02900 M01S02755.mac1 +++|*** WRITE - WRITE DATA FROM *CIO* BUFFER. 02901 M01S02756.mac1 +++|* 02902 M01S02757.mac1 +++|* CALL WRITE (FILE,R) 02903 M01S02758.mac1 +++|* 02904 M01S02759.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02905 M01S02760.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02906 M01S02761.mac1 +++|* 02907 M01S02762.mac1 +++|* WRITE(FILE,R); (*SYMPL* CALL) 02908 M01S02763.mac1 +++|* 02909 M01S02764.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02910 M01S02765.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02911 M01S02766.mac1 +++|* 02912 M01S02767.mac1 +++|* USES X - 2. 02913 M01S02768.mac1 +++|* A - 2. 02914 M01S02769.mac1 +++|* B - 1. 02915 M01S02770.mac1 +++|* 02916 M01S02771.mac1 +++|* MACROS WRITE. 02917 M01S02772.mac1 +++| 02918 M01S02773.mac1 +++| 02919 M01S02774.mac1 +++| WRITE SUBR ENTRY/EXIT 02920 M01S02775.mac1 +++| SB1 1 02921 M01S02776.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02922 M01S02777.mac1 +++| SA2 X2 02923 M01S02778.mac1 +++| NZ X2,WRT1 IF RECALL PARAMETER REQUESTED 02924 M01S02779.mac1 +++| WRITE X1 02925 M01S02780.mac1 +++| EQ WRITEX 02926 M01S02781.mac1 +++| 02927 M01S02782.mac1 +++| WRT1 WRITE X1,R 02928 M01S02783.mac1 +++| EQ WRITEX 02929 M01S02784.mac1 +++| 02930 M01S02785.mac1 +++| END 02931 M01S02786.mac1 +++| IDENT WRITEC 02932 M01S02787.mac1 +++| ENTRY WRITEC 02933 M01S02788.mac1 +++| SYSCOM B1 02934 M01S02789.mac1 +++| TITLE WRITEC - WRITE CODED LINE IN *C* FORMAT. 02935 M01S02790.mac1 +++|*COMMENT WRITE CODED LINE IN *C* FORMAT.
| Line S02791 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02936 M02S02791.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02937 M01S00064.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02938 M01S02792.mac1 +++| WRITEC SPACE 4,10 02939 M01S02793.mac1 +++|*** WRITEC - WRITE CODED LINE IN *C* FORMAT. 02940 M01S02794.mac1 +++|* 02941 M01S02795.mac1 +++|* CALL WRITEC (FILE,BUF) 02942 M01S02796.mac1 +++|* 02943 M01S02797.mac1 +++|* TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED. 02944 M01S02798.mac1 +++|* 02945 M01S02799.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02946 M01S02800.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 02947 M01S02801.mac1 +++|* 02948 M01S02802.mac1 +++|* WRITEC(FILE,BUF); (*SYMPL* CALL) 02949 M01S02803.mac1 +++|* 02950 M01S02804.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02951 M01S02805.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 02952 M01S02806.mac1 +++|* 02953 M01S02807.mac1 +++|* USES X - 3. 02954 M01S02808.mac1 +++|* A - 3. 02955 M01S02809.mac1 +++|* B - 1. 02956 M01S02810.mac1 +++|* 02957 M01S02811.mac1 +++|* MACROS WRITEC. 02958 M01S02812.mac1 +++| 02959 M01S02813.mac1 +++| 02960 M01S02814.mac1 +++| WRITEC SUBR ENTRY/EXIT 02961 M01S02815.mac1 +++| SB1 1 02962 M01S02816.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 02963 M01S02817.mac1 +++| WRITEC X1,X3 02964 M01S02818.mac1 +++| EQ WRITECX 02965 M01S02819.mac1 +++| 02966 M01S02820.mac1 +++| END 02967 M01S02821.mac1 +++| IDENT WRITECW 02968 M01S02822.mac1 +++| ENTRY WRITECW 02969 M01S02823.mac1 +++| SYSCOM B1 02970 M01S02824.mac1 +++| TITLE WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS. 02971 M01S02825.mac1 +++|*COMMENT WRITE FILE NON-STOP WITH CONTROL WORDS.
| Line S02826 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02972 M02S02826.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02973 M01S00065.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02974 M01S02827.mac1 +++| WRITECW SPACE 4,10 02975 M01S02828.mac1 +++|*** WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS. 02976 M01S02829.mac1 +++|* 02977 M01S02830.mac1 +++|* CALL WRITECW (FILE,R) 02978 M01S02831.mac1 +++|* 02979 M01S02832.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 02980 M01S02833.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02981 M01S02834.mac1 +++|* 02982 M01S02835.mac1 +++|* WRITECW(FILE,R); (*SYMPL* CALL) 02983 M01S02836.mac1 +++|* 02984 M01S02837.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 02985 M01S02838.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 02986 M01S02839.mac1 +++|* 02987 M01S02840.mac1 +++|* USES X - 2. 02988 M01S02841.mac1 +++|* A - 2. 02989 M01S02842.mac1 +++|* B - 1. 02990 M01S02843.mac1 +++|* 02991 M01S02844.mac1 +++|* 02992 M01S02845.mac1 +++|* MACROS WRITECW. 02993 M01S02846.mac1 +++| 02994 M01S02847.mac1 +++| 02995 M01S02848.mac1 +++| WRITECW SUBR ENTRY/EXIT 02996 M01S02849.mac1 +++| SB1 1 02997 M01S02850.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 02998 M01S02851.mac1 +++| SA2 X2 02999 M01S02852.mac1 +++| NZ X2,WCW1 IF RECALL 03000 M01S02853.mac1 +++| WRITECW X1 03001 M01S02854.mac1 +++| EQ WRITECWX 03002 M01S02855.mac1 +++| 03003 M01S02856.mac1 +++| WCW1 WRITECW X1,R 03004 M01S02857.mac1 +++| EQ WRITECWX EXIT 03005 M01S02858.mac1 +++| 03006 M01S02859.mac1 +++| END 03007 M01S02860.mac1 +++| IDENT WRITEF 03008 M01S02861.mac1 +++| ENTRY WRITEF 03009 M01S02862.mac1 +++| SYSCOM B1 03010 M01S02863.mac1 +++| TITLE WRITEF - WRITE END OF FILE. 03011 M01S02864.mac1 +++|*COMMENT WRITE END OF FILE.
| Line S02865 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03012 M02S02865.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03013 M01S00066.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03014 M01S02866.mac1 +++| WRITEF SPACE 4,10 03015 M01S02867.mac1 +++|*** WRITEF - WRITE END OF FILE. 03016 M01S02868.mac1 +++|* 03017 M01S02869.mac1 +++|* CALL WRITEF (FILE,R) 03018 M01S02870.mac1 +++|* 03019 M01S02871.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03020 M01S02872.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03021 M01S02873.mac1 +++|* 03022 M01S02874.mac1 +++|* WRITEF(FILE,R); (*SYMPL* CALL) 03023 M01S02875.mac1 +++|* 03024 M01S02876.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03025 M01S02877.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03026 M01S02878.mac1 +++|* 03027 M01S02879.mac1 +++|* USES X - 2. 03028 M01S02880.mac1 +++|* A - 2. 03029 M01S02881.mac1 +++|* B - 1. 03030 M01S02882.mac1 +++|* 03031 M01S02883.mac1 +++|* MACROS WRITEF. 03032 M01S02884.mac1 +++| 03033 M01S02885.mac1 +++| 03034 M01S02886.mac1 +++| WRITEF SUBR ENTRY/EXIT 03035 M01S02887.mac1 +++| SB1 1 03036 M01S02888.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 03037 M01S02889.mac1 +++| SA2 X2 03038 M01S02890.mac1 +++| NZ X2,WRT1 IF RECALL REQUESTED 03039 M01S02891.mac1 +++| WRITEF X1 03040 M01S02892.mac1 +++| EQ WRITEFX 03041 M01S02893.mac1 +++| 03042 M01S02894.mac1 +++| WRT1 WRITEF X1,R 03043 M01S02895.mac1 +++| EQ WRITEFX 03044 M01S02896.mac1 +++| 03045 M01S02897.mac1 +++| END 03046 M01S02898.mac1 +++| IDENT WRITEH 03047 M01S02899.mac1 +++| ENTRY WRITEH 03048 M01S02900.mac1 +++| SYSCOM B1 03049 M01S02901.mac1 +++| TITLE WRITEH - WRITE CODED LINE IN *H* FORMAT. 03050 M01S02902.mac1 +++|*COMMENT WRITE CODED LINE IN *H* FORMAT.
| Line S02903 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03051 M02S02903.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03052 M01S00067.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03053 M01S02904.mac1 +++| WRITEH SPACE 4,10 03054 M01S02905.mac1 +++|*** WRITEH - WRITE CODED LINE IN *H* FORMAT. 03055 M01S02906.mac1 +++|* 03056 M01S02907.mac1 +++|* CALL WRITEH (FILE,BUF,N) 03057 M01S02908.mac1 +++|* 03058 M01S02909.mac1 +++|* TRANSFERS ONE LINE OF DATA. DELETES TRAILING SPACES. 03059 M01S02910.mac1 +++|* 03060 M01S02911.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03061 M01S02912.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 03062 M01S02913.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 03063 M01S02914.mac1 +++|* 03064 M01S02915.mac1 +++|* WRITEH(FILE,BUF,N); (*SYMPL* CALL) 03065 M01S02916.mac1 +++|* 03066 M01S02917.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03067 M01S02918.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 03068 M01S02919.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS 03069 M01S02920.mac1 +++|* IN *BUF*. 03070 M01S02921.mac1 +++|* 03071 M01S02922.mac1 +++|* USES X - 3, 4. 03072 M01S02923.mac1 +++|* A - 3, 4. 03073 M01S02924.mac1 +++|* B - 1. 03074 M01S02925.mac1 +++|* 03075 M01S02926.mac1 +++|* MACROS WRITEH. 03076 M01S02927.mac1 +++| 03077 M01S02928.mac1 +++| 03078 M01S02929.mac1 +++| WRITEH SUBR ENTRY/EXIT 03079 M01S02930.mac1 +++| SB1 1 03080 M01S02931.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 03081 M01S02932.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 03082 M01S02933.mac1 +++| SA4 X4 WORD COUNT 03083 M01S02934.mac1 +++| WRITEH X1,X3,X4 03084 M01S02935.mac1 +++| EQ WRITEHX 03085 M01S02936.mac1 +++| 03086 M01S02937.mac1 +++| END 03087 M01S02938.mac1 +++| IDENT WRITEN 03088 M01S02939.mac1 +++| ENTRY WRITEN 03089 M01S02940.mac1 +++| SYSCOM B1 03090 M01S02941.mac1 +++| TITLE WRITEN - WRITE FILE NON-STOP FOR TAPES. 03091 M01S02942.mac1 +++|*COMMENT WRITE FILE NON-STOP FOR TAPES.
| Line S02943 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03092 M02S02943.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03093 M01S00068.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03094 M01S02944.mac1 +++| WRITEN SPACE 4,10 03095 M01S02945.mac1 +++|*** WRITEN - WRITE FILE NON-STOP FOR TAPES. 03096 M01S02946.mac1 +++|* MAGNETIC TAPES IN S OR L FORMAT ONLY. 03097 M01S02947.mac1 +++|* 03098 M01S02948.mac1 +++|* CALL WRITEN (FILE,R) 03099 M01S02949.mac1 +++|* 03100 M01S02950.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03101 M01S02951.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03102 M01S02952.mac1 +++|* 03103 M01S02953.mac1 +++|* WRITEN(FILE,R); (*SYMPL* CALL) 03104 M01S02954.mac1 +++|* 03105 M01S02955.mac1 +++|* ENTRY FILE, AN ENTRY THAT CONTAINS THE FET. 03106 M01S02956.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03107 M01S02957.mac1 +++|* 03108 M01S02958.mac1 +++|* USES X - 2. 03109 M01S02959.mac1 +++|* A - 2. 03110 M01S02960.mac1 +++|* B - 1. 03111 M01S02961.mac1 +++|* 03112 M01S02962.mac1 +++|* MACROS WRITEN. 03113 M01S02963.mac1 +++| 03114 M01S02964.mac1 +++| 03115 M01S02965.mac1 +++| WRITEN SUBR ENTRY/EXIT 03116 M01S02966.mac1 +++| SB1 1 03117 M01S02967.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 03118 M01S02968.mac1 +++| SA2 X2 03119 M01S02969.mac1 +++| NZ X2,WRT1 IF RECALL REQUESTED 03120 M01S02970.mac1 +++| WRITEN X1 03121 M01S02971.mac1 +++| EQ WRITENX 03122 M01S02972.mac1 +++| 03123 M01S02973.mac1 +++| WRT1 WRITEN X1,R 03124 M01S02974.mac1 +++| EQ WRITENX 03125 M01S02975.mac1 +++| 03126 M01S02976.mac1 +++| END 03127 M01S02977.mac1 +++| IDENT WRITEO 03128 M01S02978.mac1 +++| ENTRY WRITEO 03129 M01S02979.mac1 +++| SYSCOM B1 03130 M01S02980.mac1 +++| TITLE WRITEO - WRITE ONE WORD. 03131 M01S02981.mac1 +++|*COMMENT WRITE ONE WORD.
| Line S02982 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03132 M02S02982.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03133 M01S00069.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03134 M01S02983.mac1 +++| WRITEO SPACE 4,10 03135 M01S02984.mac1 +++|*** WRITEO - WRITE ONE WORD. 03136 M01S02985.mac1 +++|* 03137 M01S02986.mac1 +++|* CALL WRITEO (FILE,WORD) 03138 M01S02987.mac1 +++|* 03139 M01S02988.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03140 M01S02989.mac1 +++|* (WORD) = WORD TO BE TRANSFERRED. 03141 M01S02990.mac1 +++|* 03142 M01S02991.mac1 +++|* WRITEO(FILE,WORD); (*SYMPL* CALL) 03143 M01S02992.mac1 +++|* 03144 M01S02993.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03145 M01S02994.mac1 +++|* WORD, ITEM TO BE TRANSFERRED. 03146 M01S02995.mac1 +++|* 03147 M01S02996.mac1 +++|* USES X - 3, 6. 03148 M01S02997.mac1 +++|* A - 3. 03149 M01S02998.mac1 +++|* B - 1. 03150 M01S02999.mac1 +++|* 03151 M01S03000.mac1 +++|* MACROS WRITEO. 03152 M01S03001.mac1 +++| 03153 M01S03002.mac1 +++| 03154 M01S03003.mac1 +++| WRITEO SUBR ENTRY/EXIT 03155 M01S03004.mac1 +++| SB1 1 03156 M01S03005.mac1 +++| SA3 A1+B1 ADDRESS OF WORD 03157 M01S03006.mac1 +++| SA3 X3 WORD 03158 M01S03007.mac1 +++| BX6 X3 03159 M01S03008.mac1 +++| WRITEO X1 03160 M01S03009.mac1 +++| EQ WRITEOX 03161 M01S03010.mac1 +++| 03162 M01S03011.mac1 +++| END 03163 M01S03012.mac1 +++| IDENT WRITER 03164 M01S03013.mac1 +++| ENTRY WRITER 03165 M01S03014.mac1 +++| SYSCOM B1 03166 M01S03015.mac1 +++| TITLE WRITER - WRITE END OF RECORD. 03167 M01S03016.mac1 +++|*COMMENT WRITE END OF RECORD.
| Line S03017 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03168 M02S03017.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03169 M01S00070.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03170 M01S03018.mac1 +++| WRITER SPACE 4,10 03171 M01S03019.mac1 +++|*** WRITER - WRITE END OF RECORD. 03172 M01S03020.mac1 +++|* 03173 M01S03021.mac1 +++|* CALL WRITER (FILE,R) 03174 M01S03022.mac1 +++|* 03175 M01S03023.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03176 M01S03024.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03177 M01S03025.mac1 +++|* 03178 M01S03026.mac1 +++|* WRITER(FILE,R); (*SYMPL* CALL) 03179 M01S03027.mac1 +++|* 03180 M01S03028.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03181 M01S03029.mac1 +++|* (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED. 03182 M01S03030.mac1 +++|* 03183 M01S03031.mac1 +++|* USES X - 2. 03184 M01S03032.mac1 +++|* A - 2. 03185 M01S03033.mac1 +++|* B - 1. 03186 M01S03034.mac1 +++|* 03187 M01S03035.mac1 +++|* MACROS WRITER. 03188 M01S03036.mac1 +++| 03189 M01S03037.mac1 +++| 03190 M01S03038.mac1 +++| WRITER SUBR ENTRY/EXIT 03191 M01S03039.mac1 +++| SB1 1 03192 M01S03040.mac1 +++| SA2 A1+B1 GET RECALL PARAMETER 03193 M01S03041.mac1 +++| SA2 X2 03194 M01S03042.mac1 +++| NZ X2,WRT1 IF RECALL REQUESTED 03195 M01S03043.mac1 +++| WRITER X1 03196 M01S03044.mac1 +++| EQ WRITERX 03197 M01S03045.mac1 +++| 03198 M01S03046.mac1 +++| WRT1 WRITER X1,R 03199 M01S03047.mac1 +++| EQ WRITERX 03200 M01S03048.mac1 +++| 03201 M01S03049.mac1 +++| END 03202 M01S03050.mac1 +++| IDENT WRITES 03203 M01S03051.mac1 +++| ENTRY WRITES 03204 M01S03052.mac1 +++| SYSCOM B1 03205 M01S03053.mac1 +++| TITLE WRITES - WRITE CODED LINE FROM CHARACTER BUFFER. 03206 M01S03054.mac1 +++|*COMMENT WRITE CODED LINE FROM CHARACTER BUFFER.
| Line S03055 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03207 M02S03055.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03208 M01S00071.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03209 M01S03056.mac1 +++| WRITES SPACE 4,10 03210 M01S03057.mac1 +++|*** WRITES - WRITE CODED LINE FROM CHARACTER BUFFER. 03211 M01S03058.mac1 +++|* 03212 M01S03059.mac1 +++|* CALL WRITES (FILE,BUF,N) 03213 M01S03060.mac1 +++|* 03214 M01S03061.mac1 +++|* PACKS CHARACTERS FROM THE WORKING BUFFER TEN CHARACTERS/WORD. 03215 M01S03062.mac1 +++|* DELETES TRAILING SPACE CODES BEFORE PACKING CHARACTERS. 03216 M01S03063.mac1 +++|* 03217 M01S03064.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03218 M01S03065.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 03219 M01S03066.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 03220 M01S03067.mac1 +++|* 03221 M01S03068.mac1 +++|* WRITES(FILE,BUF,N); (*SYMPL* CALL) 03222 M01S03069.mac1 +++|* 03223 M01S03070.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03224 M01S03071.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 03225 M01S03072.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF. 03226 M01S03073.mac1 +++|* 03227 M01S03074.mac1 +++|* USES X - 3, 4. 03228 M01S03075.mac1 +++|* A - 3, 4. 03229 M01S03076.mac1 +++|* B - 1. 03230 M01S03077.mac1 +++|* 03231 M01S03078.mac1 +++|* MACROS WRITES. 03232 M01S03079.mac1 +++| 03233 M01S03080.mac1 +++| 03234 M01S03081.mac1 +++| WRITES SUBR ENTRY/EXIT 03235 M01S03082.mac1 +++| SB1 1 03236 M01S03083.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 03237 M01S03084.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 03238 M01S03085.mac1 +++| SA4 X4 WORD COUNT 03239 M01S03086.mac1 +++| WRITES X1,X3,X4 03240 M01S03087.mac1 +++| EQ WRITESX 03241 M01S03088.mac1 +++| 03242 M01S03089.mac1 +++| END 03243 M01S03090.mac1 +++| IDENT WRITEW 03244 M01S03091.mac1 +++| ENTRY WRITEW 03245 M01S03092.mac1 +++| SYSCOM B1 03246 M01S03093.mac1 +++| TITLE WRITEW - WRITE DATA FROM WORKING BUFFER. 03247 M01S03094.mac1 +++|*COMMENT WRITE DATA FROM WORKING BUFFER.
| Line S03095 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03248 M02S03095.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03249 M01S00072.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03250 M01S03096.mac1 +++| WRITEW SPACE 4,10 03251 M01S03097.mac1 +++|*** WRITEW - WRITE DATA FROM WORKING BUFFER. 03252 M01S03098.mac1 +++|* 03253 M01S03099.mac1 +++|* CALL WRITEW (FILE,BUF,N,STATUS) 03254 M01S03100.mac1 +++|* 03255 M01S03101.mac1 +++|* ENTRY (FILE) = FIRST WORD OF THE FET. 03256 M01S03102.mac1 +++|* (BUF) = FIRST WORD OF THE WORKING BUFFER. 03257 M01S03103.mac1 +++|* (N) = WORD COUNT OF THE WORKING BUFFER. 03258 M01S03104.mac1 +++|* (STATUS) = RETURN STATUS, NE. 0 INDICATES AN ERROR. 03259 M01S03105.mac1 +++|* 03260 M01S03106.mac1 +++|* WRITEW(FILE,BUF,N,STATUS); (*SYMPL* CALL) 03261 M01S03107.mac1 +++|* 03262 M01S03108.mac1 +++|* ENTRY FILE, AN ARRAY THAT CONTAINS THE FET. 03263 M01S03109.mac1 +++|* BUF, AN ARRAY TO BE USED AS READ BUFFER. 03264 M01S03110.mac1 +++|* N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF. 03265 M01S03111.mac1 +++|* STATUS, .NE. 0 INDICATES AN ERROR. 03266 M01S03112.mac1 +++|* 03267 M01S03113.mac1 +++|* USES X - 3, 4, 5, 6, 7. 03268 M01S03114.mac1 +++|* A - 3, 4, 5, 6, 7. 03269 M01S03115.mac1 +++|* B - 1. 03270 M01S03116.mac1 +++|* 03271 M01S03117.mac1 +++|* MACROS WRITEW. 03272 M01S03118.mac1 +++| 03273 M01S03119.mac1 +++| 03274 M01S03120.mac1 +++| WRITEW SUBR ENTRY/EXIT 03275 M01S03121.mac1 +++| SB1 1 03276 M01S03122.mac1 +++| SA3 A1+B1 FWA OF WORKING BUFFER 03277 M01S03123.mac1 +++| SA4 A3+B1 ADDRESS OF WORD COUNT 03278 M01S03124.mac1 +++| SA5 A4+B1 STATUS RESULT ADDRESS 03279 M01S03125.mac1 +++| SA4 X4 WORD COUNT 03280 M01S03126.mac1 +++| WRITEW X1,X3,X4 03281 M01S03127.mac1 +++| NZ B7,WRITEW1 IF AN ERROR 03282 M01S03128.mac1 +++| BX7 X7-X7 CLEAR ERROR STATUS 03283 M01S03129.mac1 +++| WRITEW1 SA7 X5 RETURN ERROR STATUS 03284 M01S03130.mac1 +++| EQ WRITEWX 03285 M01S03131.mac1 +++| 03286 M01S03132.mac1 +++| END 03287 M01S03133.mac1 +++| IDENT XARG 03288 M01S03134.mac1 +++| LDSET PRESET=ZERO 03289 M01S03135.mac1 +++| ENTRY XARG 03290 M01S03136.mac1 +++| ENTRY SSJ= 03291 M01S03137.mac1 +++| SYSCOM B1 03292 M01S03138.mac1 +++| TITLE XARG - CRACK CONTROL STATEMENT PARAMETERS. 03293 M01S03139.mac1 +++|*COMMENT CRACK CONTROL STATEMENT PARAMETERS.
| Line S03140 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03294 M02S03140.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980. 03295 M01S00073.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03296 M01S03141.mac1 +++| 03297 M01S03142.mac1 +++|*CALL COMCMAC 03298 M01S03143.mac1 +++| 03299 M01S03144.mac1 +++| SSJ= EQU 0 03300 M01S03145.mac1 +++| XARG SPACE 4,25
| Line S03146 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03301 M02S03146.ns2676 ---|** XARG - CRACK CONTROL STATEMENT PARAMETERS. 03302 M01S00006.ns2676 +++|*** XARG - CRACK CONTROL STATEMENT PARAMETERS. 03303 M01S03147.mac1 +++|* 03304 M01S03148.mac1 +++|* XARG(ARGLIST,OPTION,FLAG); (*SYMPL* CALL) 03305 M01S03149.mac1 +++|* 03306 M01S03150.mac1 +++|* ENTRY (ARGLIST) = ADDRESS OF ARGUMENT LIST. 03307 M01S03151.mac1 +++|* (OPTION) = OPTION FOR SKIPING OVER PROGRAM NAME. 03308 M01S03152.mac1 +++|* 0, SKIP OVER PROGRAM NAME. 03309 M01S03153.mac1 +++|* ADDR, DO NOT SKIP OVER PROGRAM NAME. 03310 M01S03154.mac1 +++|* *ADDR* IS THE FWA OF THE CONTROL 03311 M01S03155.mac1 +++|* CARD BUFFER. 03312 M01S03156.mac1 +++|* 03313 M01S03157.mac1 +++|* EXIT CONTROL STATEMENT CRACKED. 03314 M01S03158.mac1 +++|* (FLAG) = ERROR STATUS. 03315 M01S03159.mac1 +++|* 0, NO ERROR. 03316 M01S03160.mac1 +++|* -1, ARGUMENT ERROR. 03317 M01S03161.mac1 +++|* 03318 M01S03162.mac1 +++|* USES A - 1, 3, 4, 5, 6. 03319 M01S03163.mac1 +++|* B - 1, 2, 3. 03320 M01S03164.mac1 +++|* X - 1, 3, 4, 5, 6. 03321 M01S03165.mac1 +++|* 03322 M01S03166.mac1 +++|* CALLS ARM, POP, USB. 03323 M01S03167.mac1 +++| 03324 M01S03168.mac1 +++| 03325 M01S03169.mac1 +++| XARG SUBR ENTRY/EXIT 03326 M01S03170.mac1 +++| SB1 1 03327 M01S03171.mac1 +++| SA3 A1+B1 ADDRESS OF *OPTION* 03328 M01S03172.mac1 +++| SA5 A3+B1 SAVE ADDRESS OF *FLAG* 03329 M01S03173.mac1 +++| SB2 X3 SET ADDRESS OF *OPTION* 03330 M01S03174.mac1 +++| SA3 X3 03331 M01S03175.mac1 +++| NZ X3,ARG1 IF OPTION IS *NO SKIP OVER PROGRAM NAME* 03332 M01S03176.mac1 +++| SB2 CCDR SET ADDRESS OF CONTROL STATEMENT BUFFER 03333 M01S03177.mac1 +++| ARG1 SA4 X1 ADDRESS OF ARGUMENT LIST 03334 M01S03178.mac1 +++| RJ USB UNPACK CONTROL STATEMENT 03335 M01S03179.mac1 +++| SA1 A6 ASSURE TERMINATION 03336 M01S03180.mac1 +++| SX6 1R. 03337 M01S03181.mac1 +++| SA6 X1+B1 03338 M01S03182.mac1 +++| NZ X3,ARG2 IF *DO NOT SKIP OVER PROGRAM NAME* 03339 M01S03183.mac1 +++| RJ POP SKIP OVER PROGRAM NAME 03340 M01S03184.mac1 +++| ARG2 SB3 X4 CRACK THE PARAMETERS 03341 M01S03185.mac1 +++| RJ ARM 03342 M01S03186.mac1 +++| LX6 X1 SET UP ERROR STATUS IN *FLAG* 03343 M01S03187.mac1 +++| SA6 X5 03344 M01S03188.mac1 +++| EQ XARGX RETURN 03345 M01S03189.mac1 +++| 03346 M01S03190.mac1 +++|*CALL COMCARM 03347 M01S03191.mac1 +++|*CALL COMCPOP 03348 M01S03192.mac1 +++|*CALL COMCUSB 03349 M01S03193.mac1 +++| 03350 M01S03194.mac1 +++| END 03351 M01S03195.mac1 +++| IDENT XCDD 03352 M01S03196.mac1 +++| ENTRY XCDD 03353 M01S03197.mac1 +++| SYSCOM B1 03354 M01S03198.mac1 +++| TITLE XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 03355 M01S03199.mac1 +++|*COMMENT CONVERT INTEGER TO DECIMAL DISPLAY CODE.
| Line S03200 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03356 M02S03200.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03357 M01S00074.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03358 M01S03201.mac1 +++| XCDD SPACE 4,10 03359 M01S03202.mac1 +++|*** XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 03360 M01S03203.mac1 +++|* 03361 M01S03204.mac1 +++|* HOLLERITH = XCDD (INTEGER) 03362 M01S03205.mac1 +++|* 03363 M01S03206.mac1 +++|* XX = XCDD(YY); (*SYMPL* CALL) 03364 M01S03207.mac1 +++|* 03365 M01S03208.mac1 +++|* ENTRY (YY) = THE INTEGER TO BE CONVERTED. 03366 M01S03209.mac1 +++|* 03367 M01S03210.mac1 +++|* EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT. 03368 M01S03211.mac1 +++|* 03369 M01S03212.mac1 +++|* USES X - 1. 03370 M01S03213.mac1 +++|* A - 1. 03371 M01S03214.mac1 +++|* B - 1. 03372 M01S03215.mac1 +++|* 03373 M01S03216.mac1 +++|* CALLS COD. 03374 M01S03217.mac1 +++| 03375 M01S03218.mac1 +++| 03376 M01S03219.mac1 +++| XCDD SUBR ENTRY/EXIT 03377 M01S03220.mac1 +++| SB1 1 03378 M01S03221.mac1 +++| SA1 X1+ 03379 M01S03222.mac1 +++| RJ CDD 03380 M01S03223.mac1 +++| EQ XCDDX RETURN, RESULT IN X6 03381 M01S03224.mac1 +++| 03382 M01S03225.mac1 +++|*CALL COMCCDD CONVERT INTEGER TO DECIMAL DISPLAY CODE. 03383 M01S03226.mac1 +++| 03384 M01S03227.mac1 +++| END 03385 M01S03228.mac1 +++| IDENT XCFD 03386 M01S03229.mac1 +++| ENTRY XCFD 03387 M01S03230.mac1 +++| ENTRY CFD 03388 M01S03231.mac1 +++| SYSCOM B1 03389 M01S03232.mac1 +++| TITLE XCFD - CONVERT INTEGER TO F10.3 FORMAT. 03390 M01S03233.mac1 +++|*COMMENT CONVERT INTEGER TO F10.3 FORMAT.
| Line S03234 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03391 M02S03234.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03392 M01S00075.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03393 M01S03235.mac1 +++| XCFD SPACE 4,10 03394 M01S03236.mac1 +++|*** XVFD - CONVERT INTEGER TO F10.3 FORMAT. 03395 M01S03237.mac1 +++|* 03396 M01S03238.mac1 +++|* HOLLERITH = XCFD (INTEGER). 03397 M01S03239.mac1 +++|* 03398 M01S03240.mac1 +++|* XX = XCFD(YY); (*SYMPL* CALL) 03399 M01S03241.mac1 +++|* 03400 M01S03242.mac1 +++|* ENTRY (YY) = THE INTEGER TO BE CONVERTED. 03401 M01S03243.mac1 +++|* 03402 M01S03244.mac1 +++|* EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT. 03403 M01S03245.mac1 +++|* 03404 M01S03246.mac1 +++|* USES X - 1. 03405 M01S03247.mac1 +++|* A - 1. 03406 M01S03248.mac1 +++|* B - 1. 03407 M01S03249.mac1 +++|* 03408 M01S03250.mac1 +++|* CALLS CFD 03409 M01S03251.mac1 +++| 03410 M01S03252.mac1 +++| 03411 M01S03253.mac1 +++| XCFD SUBR ENTRY/EXIT 03412 M01S03254.mac1 +++| SB1 1 03413 M01S03255.mac1 +++| SA1 X1+ 03414 M01S03256.mac1 +++| RJ =XCFD CONVERT 03415 M01S03257.mac1 +++| EQ XCFDX RETURN, RESULT IN X6 03416 M01S03258.mac1 +++| 03417 M01S03259.mac1 +++|*CALL COMCCFD CONVERT INTEGER TO F10.3 FORMAT. 03418 M01S03260.mac1 +++| 03419 M01S03261.mac1 +++| END 03420 M01S03262.mac1 +++| IDENT XCHD 03421 M01S03263.mac1 +++| ENTRY XCHD 03422 M01S03264.mac1 +++| SYSCOM B1 03423 M01S03265.mac1 +++| TITLE XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE. 03424 M01S03266.mac1 +++|*COMMENT CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
| Line S03267 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03425 M02S03267.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03426 M01S00076.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03427 M01S03268.mac1 +++| SPACE 4,10 03428 M01S03269.mac1 +++|*** XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE. 03429 M01S03270.mac1 +++|* 03430 M01S03271.mac1 +++|* CONVERT RIGHT MOST 40 BITS OF A BINARY WORD (10/4 BIT 03431 M01S03272.mac1 +++|* HEX DIGITS) TO 10 HEXIDECIMAL DISPLAY CODE CHARACTERS 03432 M01S03273.mac1 +++|* (LEFT ZEROES SUPPRESSED). 03433 M01S03274.mac1 +++|* 03434 M01S03275.mac1 +++|* XX = XCHD(YY); (*SYMPL* CALL) 03435 M01S03276.mac1 +++|* 03436 M01S03277.mac1 +++|* ENTRY XY, AN ITEM CONTAINING THE WORD TO BE CONVERTED. 03437 M01S03278.mac1 +++|* 03438 M01S03279.mac1 +++|* EXIT XX, HEX DISPLAY CODE EQUIVILENCE OF THE RIGHT MOST 03439 M01S03280.mac1 +++|* 10 HEX DIGIT IN YY. 03440 M01S03281.mac1 +++|* 03441 M01S03282.mac1 +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 03442 M01S03283.mac1 +++|* A - 1, 4. 03443 M01S03284.mac1 +++|* B - 1, 2, 3, 4, 5, 6, 7. 03444 M01S03285.mac1 +++| 03445 M01S03286.mac1 +++| 03446 M01S03287.mac1 +++| XCHD SUBR ENTRY/EXIT 03447 M01S03288.mac1 +++| SB1 1 SYSCOM B1 03448 M01S03289.mac1 +++| SA4 XCHDA =1H 03449 M01S03290.mac1 +++| SA1 X1 (X1) = HEXIDECIMAL INTEGER IN BINARY 03450 M01S03291.mac1 +++| SB7 1R0 (B7) = CHARACTER ZERO 03451 M01S03292.mac1 +++| MX2 -4 (X2) = DIGIT MASK 03452 M01S03293.mac1 +++| SB3 6 (B3) = SHIFT COUNT FOR EACH CHARACTER 03453 M01S03294.mac1 +++| SB6 1R (B6) = CHARACTER BLANK 03454 M01S03295.mac1 +++| SB5 1R9 (B5) = CHARACTER 9 03455 M01S03296.mac1 +++| SB2 -B3 INITIALIZE SHIFT COUNT 03456 M01S03297.mac1 +++| SB4 B7-B6 (B4) = CONVERSION VALUE FOR NUMERIC 03457 M01S03298.mac1 +++| XCHD1 BX7 -X2*X1 EXTRACT DIGIT 03458 M01S03299.mac1 +++| SX5 X7+B7 ADD CHARACTER ZERO TO DIGIT 03459 M01S03300.mac1 +++| SB2 B2+B3 03460 M01S03301.mac1 +++| LX4 -6 03461 M01S03302.mac1 +++| SX3 X7+B4 CONVERT DIGIT (W/BLANK BIAS) 03462 M01S03303.mac1 +++| AX1 4 SHIFT OFF DIGIT FROM INPUT WORD 03463 M01S03304.mac1 +++| SX5 X5-1R9 SEE IF CHARACTER GREATER THAT NINE 03464 M01S03305.mac1 +++| NG X5,XCHD2 IF LESS THAN NINE 03465 M01S03306.mac1 +++| ZR X5,XCHD2 IF EQUAL TO NINE 03466 M01S03307.mac1 +++| SX3 X5-1R BIAS DIGIT BY CHARACTER BLANK INVERSE 03467 M01S03308.mac1 +++| XCHD2 IX4 X4+X3 ADD DIGIT TO ASSEMBLY 03468 M01S03309.mac1 +++| NZ X1,XCHD1 IF NOT A ZERO DIGIT 03469 M01S03310.mac1 +++| LX6 X4,B2 03470 M01S03311.mac1 +++| EQ XCHDX 03471 M01S03312.mac1 +++| 03472 M01S03313.mac1 +++| XCHDA CON 1H BLANK FILLED WORD 03473 M01S03314.mac1 +++| 03474 M01S03315.mac1 +++| END 03475 M01S03316.mac1 +++| IDENT XCOD 03476 M01S03317.mac1 +++| ENTRY XCOD 03477 M01S03318.mac1 +++| SYSCOM B1 03478 M01S03319.mac1 +++| TITLE XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE. 03479 M01S03320.mac1 +++|*COMMENT CONVERT INTEGER TO OCTAL DISPLAY CODE.
| Line S03321 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03480 M02S03321.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03481 M01S00077.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03482 M01S03322.mac1 +++| XCOD SPACE 4,10 03483 M01S03323.mac1 +++|*** XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE. 03484 M01S03324.mac1 +++|* 03485 M01S03325.mac1 +++|* HOLLERITH = XCOD (INTEGER) 03486 M01S03326.mac1 +++|* 03487 M01S03327.mac1 +++|* XX = XCOD(YY); (*SYMPL* CALL) 03488 M01S03328.mac1 +++|* 03489 M01S03329.mac1 +++|* ENTRY (YY) = THE INTEGER TO BE CONVERTED. 03490 M01S03330.mac1 +++|* 03491 M01S03331.mac1 +++|* EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT. 03492 M01S03332.mac1 +++|* 03493 M01S03333.mac1 +++|* USES X - 1. 03494 M01S03334.mac1 +++|* A - 1. 03495 M01S03335.mac1 +++|* B - 1. 03496 M01S03336.mac1 +++|* 03497 M01S03337.mac1 +++|* CALLS COD. 03498 M01S03338.mac1 +++| 03499 M01S03339.mac1 +++| 03500 M01S03340.mac1 +++| XCOD SUBR ENTRY/EXIT 03501 M01S03341.mac1 +++| SB1 1 03502 M01S03342.mac1 +++| SA1 X1+ 03503 M01S03343.mac1 +++| RJ COD 03504 M01S03344.mac1 +++| EQ XCODX RETURN, RESULT IN X6 03505 M01S03345.mac1 +++| 03506 M01S03346.mac1 +++|*CALL COMCCOD CONVERT INTEGER TO OCTAL DISPLAY CODE. 03507 M01S03347.mac1 +++| 03508 M01S03348.mac1 +++| END 03509 M01S03349.mac1 +++| IDENT XDXB 03510 M01S03350.mac1 +++| ENTRY XDXB 03511 M01S03351.mac1 +++| SYSCOM B1 03512 M01S00007.ns2676 +++| TITLE XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY. 03513 M01S03352.mac1 +++|*COMMENT CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
| Line S03353 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03514 M02S03353.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03515 M01S00078.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03516 M01S03354.mac1 +++| SPACE 4,10 03517 M01S03355.mac1 +++|*** XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY. 03518 M01S03356.mac1 +++|* 03519 M01S03357.mac1 +++|* *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD 03520 M01S03358.mac1 +++|* OF DISPLAY CODE DIGITS INTO BINARY. 03521 M01S03359.mac1 +++|* 03522 M01S03360.mac1 +++|* STAT = XDXB(OWORD,TYPE,NWORD); (*SYMPL* CALL) 03523 M01S03361.mac1 +++|* 03524 M01S03362.mac1 +++|* OWORD - AN ITEM THAT CONTAINS THE WORD 03525 M01S03363.mac1 +++|* BE CONVERTED. 03526 M01S03364.mac1 +++|* TYPE - CONVERSION TYPE. 03527 M01S03365.mac1 +++|* - .GT. 0, CONVERSION IN DECIMAL. 03528 M01S03366.mac1 +++|* - = 0, CONVERSION IN OCTAL. 03529 M01S03367.mac1 +++|* NWORD - AN ITEM TO CONTAIN THE CONVERTED DIGITS. 03530 M01S03368.mac1 +++|* STAT - = 0, NO ERROR. 03531 M01S03369.mac1 +++|* - NON ZERO, ERROR IN ASSEMBLY. 03532 M01S03370.mac1 +++|* 03533 M01S03371.mac1 +++|* USES X - 2, 3, 5, 6. 03534 M01S03372.mac1 +++|* A - 2, 3, 5, 6. 03535 M01S03373.mac1 +++|* B - 1, 2, 7. 03536 M01S03374.mac1 +++|* 03537 M01S03375.mac1 +++|* CALLS DXB. 03538 M01S03376.mac1 +++| 03539 M01S03377.mac1 +++| 03540 M01S03378.mac1 +++| XDXB SUBR ENTRY/EXIT 03541 M01S03379.mac1 +++| SB1 1 03542 M01S03380.mac1 +++| SA5 X1 (X5) = WORD 03543 M01S03381.mac1 +++| SA2 A1+B1 ADDRESS OF TYPE IN X2 03544 M01S03382.mac1 +++| SA3 X2 03545 M01S03383.mac1 +++| SB7 X3 (B7) = TYPE 03546 M01S03384.mac1 +++| SB2 10D DO TEN CHARACTERS 03547 M01S03385.mac1 +++| MX6 -6 03548 M01S03386.mac1 +++| DXB1 LX5 6 03549 M01S03387.mac1 +++| BX2 -X6*X5 03550 M01S03388.mac1 +++| SX2 X2-1R 03551 M01S03389.mac1 +++| SB2 B2-B1 03552 M01S03390.mac1 +++| NZ X2,DXB2 IF NOT A SPACE CHARACTER 03553 M01S03391.mac1 +++| MX3 54 03554 M01S03392.mac1 +++| BX5 X3*X5 03555 M01S03393.mac1 +++| DXB2 NZ B2,DXB1 IF MORE CHARACTERS 03556 M01S03394.mac1 +++| RJ =XDXB 03557 M01S03395.mac1 +++| SA3 A2+B1 03558 M01S03396.mac1 +++| SA6 X3 STORE CONVERTED DIGITS 03559 M01S03397.mac1 +++| BX6 X4 PUT STATUS IN (X6) 03560 M01S03398.mac1 +++| EQ XDXBX 03561 M01S03399.mac1 +++| 03562 M01S03400.mac1 +++|*CALL COMCDXB 03563 M01S03401.mac1 +++| 03564 M01S03402.mac1 +++| END 03565 M01S03403.mac1 +++| IDENT XPRC 03566 M01S03404.mac1 +++| ENTRY XPRC 03567 M01S00008.ns2676 +++| TITLE XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE. 03568 M01S03405.mac1 +++|*COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.
| Line S03406 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03569 M02S03406.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03570 M01S00079.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03571 M01S03407.mac1 +++| SPACE 4,10 03572 M01S03408.mac1 +++|*** XPRC - INTERFACE ROUTINE USED TO CALL A *SYMPL* 03573 M01S03409.mac1 +++|* PROCEDURE, GIVEN THE ADDRESS OF THE PROCEDURE. 03574 M01S03410.mac1 +++|* 03575 M01S03411.mac1 +++|* XPRC(PADDR,P1,P2,...,PN); (*SYMPL* CALL) 03576 M01S03412.mac1 +++|* 03577 M01S03413.mac1 +++|* PADDR - ADDRESS OF PROCEDURE. 03578 M01S03414.mac1 +++|* P1 - FIRST PARAMETER TO BE PASSED TO PROCEDURE. 03579 M01S03415.mac1 +++|* ... 03580 M01S03416.mac1 +++|* PN - N-TH PARAMETER TO BE PASSED TO PROCEDURE. 03581 M01S03417.mac1 +++|* 03582 M01S03418.mac1 +++|* USES X - 1, 2, 3, 4, 6, 7. 03583 M01S03419.mac1 +++|* A - 1, 2, 6, 7. 03584 M01S03420.mac1 +++|* B - 1, 2. 03585 M01S03421.mac1 +++| 03586 M01S03422.mac1 +++| XPRC SUBR ENTRY/EXIT 03587 M01S03423.mac1 +++| SB1 1 03588 M01S03424.mac1 +++| SA2 X1 03589 M01S03425.mac1 +++| BX7 X2 03590 M01S03426.mac1 +++| SA7 PRADR STORE PROCEDURE ADDRESS 03591 M01S03427.mac1 +++| SA1 A1+B1 03592 M01S03428.mac1 +++| MX3 1 03593 M01S03429.mac1 +++| LX3 57 03594 M01S03430.mac1 +++| SA2 PRADR 03595 M01S03431.mac1 +++| SX4 PRC1 03596 M01S03432.mac1 +++| SB2 X2 03597 M01S03433.mac1 +++| LX4 30 03598 M01S03434.mac1 +++| BX6 X3+X4 03599 M01S03435.mac1 +++| SA6 X2 03600 M01S03436.mac1 +++| JP B2+1 03601 M01S03437.mac1 +++| PRC1 EQ XPRCX 03602 M01S03438.mac1 +++| 03603 M01S03439.mac1 +++| PRADR BSSZ 1 ADDRESS OF PROCEDURE TO CALL 03604 M01S03440.mac1 +++| 03605 M01S03441.mac1 +++| END 03606 M01S03442.mac1 +++| IDENT XREL 03607 M01S03443.mac1 +++| ENTRY XREL= 03608 M01S03444.mac1 +++| ENTRY XREL. 03609 M01S03445.mac1 +++| SYSCOM B1 03610 M01S03446.mac1 +++| TITLE XREL - COMMON DECK INTERFACE ROUTINES. 03611 M01S03447.mac1 +++|*COMMENT COMMON DECK INTERFACE ROUTINES.
| Line S03448 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03612 M02S03448.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03613 M01S00080.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03614 M01S03449.mac1 +++| XREL SPACE 4,10
| Line S03450 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03615 M02S03450.ns2676 ---|*** XREL - COMMON DECK INTERFACE ROUTINES. 03616 M01S00009.ns2676 +++|** XREL - COMMON DECK INTERFACE ROUTINES. 03617 M01S03451.mac1 +++|* 03618 M01S03452.mac1 +++|* XREL IS A COLLECTION OF RELOCATABLE MODULES THAT 03619 M01S03453.mac1 +++|* PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES 03620 M01S03454.mac1 +++|* AND THE STANDARD COMMON DECK ROUTINES THAT ARE NOT CALLED 03621 M01S03455.mac1 +++|* BY SYSTEM MACROS. 03622 M01S03456.mac1 +++| XREL SPACE 4,10 03623 M01S03457.mac1 +++| LOCAL EQU 3 03624 M01S03458.mac1 +++| XREL. SPACE 4,10 03625 M01S03459.mac1 +++|** XREL. - UNDEFINED COMMON DECK PROCESSOR. 03626 M01S03460.mac1 +++|* 03627 M01S03461.mac1 +++|* ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME, 03628 M01S03462.mac1 +++|* LEFT JUSTIFIED. 03629 M01S03463.mac1 +++|* 03630 M01S03464.mac1 +++|* USES X - 6. 03631 M01S03465.mac1 +++|* A - 6. 03632 M01S03466.mac1 +++|* B - 1. 03633 M01S03467.mac1 +++|* 03634 M01S03468.mac1 +++|* MACROS ABORT, MESSAGE. 03635 M01S03469.mac1 +++| 03636 M01S03470.mac1 +++| 03637 M01S03471.mac1 +++| XREL. SUBR ENTRY/EXIT 03638 M01S03472.mac1 +++| SB1 1 03639 M01S03473.mac1 +++| BX6 X1 03640 M01S03474.mac1 +++| SA6 XREA+3 03641 M01S03475.mac1 +++| MESSAGE XREA,LOCAL,R 03642 M01S03476.mac1 +++| ABORT 03643 M01S03477.mac1 +++| 03644 M01S03478.mac1 +++| XREA DATA C* XREL - UNDEFINED ROUTINE - FILL-IN.* 03645 M01S03479.mac1 +++| XREL= SPACE 4,10 03646 M01S03480.mac1 +++|** XREL= - ILLEGAL ARGUMENT PROCESSOR. 03647 M01S03481.mac1 +++|* 03648 M01S03482.mac1 +++|* ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME, 03649 M01S03483.mac1 +++|* LEFT JUSTIFIED. 03650 M01S03484.mac1 +++|* (X2) = ILLEGAL ARGUMENT. 03651 M01S03485.mac1 +++|* 03652 M01S03486.mac1 +++|* USES X - 0, 1, 2, 6. 03653 M01S03487.mac1 +++|* A - 6. 03654 M01S03488.mac1 +++|* B - 1. 03655 M01S03489.mac1 +++|* 03656 M01S03490.mac1 +++|* CALLS SFW. 03657 M01S03491.mac1 +++|* 03658 M01S03492.mac1 +++|* MACROS ABORT, MESSAGE. 03659 M01S03493.mac1 +++| 03660 M01S03494.mac1 +++| 03661 M01S03495.mac1 +++| XREL= SUBR ENTRY/EXIT 03662 M01S03496.mac1 +++| SB1 1 03663 M01S03497.mac1 +++| BX0 X2 SAVE SECOND ARGUMENT 03664 M01S03498.mac1 +++| LX1 -6 03665 M01S03499.mac1 +++| SX2 1R- 03666 M01S03500.mac1 +++| BX1 X1+X2 03667 M01S03501.mac1 +++| RJ =XSFW 03668 M01S03502.mac1 +++| BX1 X0 03669 M01S03503.mac1 +++| SA6 XREB 03670 M01S03504.mac1 +++| RJ =XSFW 03671 M01S03505.mac1 +++| SA6 XREB+3 03672 M01S03506.mac1 +++| MESSAGE XREB,LOCAL,R 03673 M01S03507.mac1 +++| ABORT 03674 M01S03508.mac1 +++| 03675 M01S03509.mac1 +++| XREB DATA C* FILL-IN - ILLEGAL ARGUMENT .GT.FILL-IT-IN.LT..* 03676 M01S03510.mac1 +++| 03677 M01S03511.mac1 +++| END 03678 M01S03512.mac1 +++| IDENT XSFN 03679 M01S03513.mac1 +++| ENTRY XSFN 03680 M01S03514.mac1 +++| SYSCOM B1 03681 M01S03515.mac1 +++| TITLE XSFN - SPACE FILL NAME. 03682 M01S03516.mac1 +++|*COMMENT SPACE FILL NAME.
| Line S03517 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03683 M02S03517.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03684 M01S00081.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03685 M01S03518.mac1 +++| XSFN SPACE 4,10 03686 M01S03519.mac1 +++|*** XSFN - SPACE FILL NAME. 03687 M01S03520.mac1 +++|* 03688 M01S03521.mac1 +++|* HOLLERITH = XSFN (NAME) 03689 M01S03522.mac1 +++|* 03690 M01S03523.mac1 +++|* XX = XSFN(NAME); (*SYMPL* CALL) 03691 M01S03524.mac1 +++|* 03692 M01S03525.mac1 +++|* ENTRY NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED, 03693 M01S03526.mac1 +++|* ZERO FILLED. 03694 M01S03527.mac1 +++|* 03695 M01S03528.mac1 +++|* EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT. 03696 M01S03529.mac1 +++|* 03697 M01S03530.mac1 +++|* USES X - 1. 03698 M01S03531.mac1 +++|* A - 1. 03699 M01S03532.mac1 +++|* B - 1. 03700 M01S03533.mac1 +++|* 03701 M01S03534.mac1 +++|* CALLS SFN. 03702 M01S03535.mac1 +++| 03703 M01S03536.mac1 +++| 03704 M01S03537.mac1 +++| XSFN SUBR ENTRY/EXIT 03705 M01S03538.mac1 +++| SB1 1 03706 M01S03539.mac1 +++| SA1 X1+ 03707 M01S03540.mac1 +++| RJ =XSFN SPACE FILL NAME 03708 M01S03541.mac1 +++| EQ XSFNX RETURN, RESULT IN X6 03709 M01S03542.mac1 +++| 03710 M01S03543.mac1 +++| ENTRY SFN 03711 M01S03544.mac1 +++|*CALL COMCSFN SPACE FILL NAME. 03712 M01S03545.mac1 +++| 03713 M01S03546.mac1 +++| END 03714 M01S03547.mac1 +++| IDENT XSFW 03715 M01S03548.mac1 +++| ENTRY XSFW 03716 M01S03549.mac1 +++| SYSCOM B1 03717 M01S03550.mac1 +++| ENTRY SFW 03718 M01S03551.mac1 +++| TITLE XSFW - SPACE FILL WORD. 03719 M01S03552.mac1 +++|*COMMENT SPACE FILL WORD.
| Line S03553 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03720 M02S03553.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03721 M01S00082.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03722 M01S03554.mac1 +++| XSFW SPACE 4,10 03723 M01S03555.mac1 +++|*** XSFW - SPACE FILL WORD. 03724 M01S03556.mac1 +++|* 03725 M01S03557.mac1 +++|* HOLLERITH = XSFW (WORD) 03726 M01S03558.mac1 +++|* 03727 M01S03559.mac1 +++|* XX = XSFW(WORD); (*SYMPL* CALL) 03728 M01S03560.mac1 +++|* 03729 M01S03561.mac1 +++|* ENTRY WORD, AN ITEM CONTAINING THE WORD TO CHANGE ZEROES TO 03730 M01S03562.mac1 +++|* BLANKS. 03731 M01S03563.mac1 +++|* 03732 M01S03564.mac1 +++|* EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT. 03733 M01S03565.mac1 +++|* 03734 M01S03566.mac1 +++|* USES X - 1. 03735 M01S03567.mac1 +++|* A - 1. 03736 M01S03568.mac1 +++|* B - 1. 03737 M01S03569.mac1 +++|* 03738 M01S03570.mac1 +++|* CALLS SFW. 03739 M01S03571.mac1 +++| 03740 M01S03572.mac1 +++| 03741 M01S03573.mac1 +++| XSFW SUBR ENTRY/EXIT 03742 M01S03574.mac1 +++| SB1 1 03743 M01S03575.mac1 +++| SA1 X1+ 03744 M01S03576.mac1 +++| RJ =XSFW SPACE FILL WORD 03745 M01S03577.mac1 +++| EQ XSFWX RETURN, RESULT IN X6 03746 M01S03578.mac1 +++| SFW SPACE 4,10 03747 M01S03579.mac1 +++| IF -DEF,QUAL$,1 03748 M01S03580.mac1 +++| QUAL COMCSFW
| Line S03581 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03749 M02S03581.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 03750 M01S00083.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03751 M01S03582.mac1 +++| SFW SPACE 4,10 03752 M01S03583.mac1 +++|*** SFW - SPACE FILL WORD. 03753 M01S03584.mac1 +++|* 03754 M01S03585.mac1 +++|* SFW REPLACES ALL 00 CODES WITH 55 CODES IN A WORD. 03755 M01S03586.mac1 +++|* 03756 M01S03587.mac1 +++|* ENTRY (X1) = WORD WITH 00 CODES. 03757 M01S03588.mac1 +++|* (B1) = 1. 03758 M01S03589.mac1 +++|* 03759 M01S03590.mac1 +++|* EXIT (X6) = WORD SPACE FILLED. 03760 M01S03591.mac1 +++|* (X7) = FINAL CHARACTER MASK. 03761 M01S03592.mac1 +++|* 03762 M01S03593.mac1 +++|* USES X - 3, 6, 7. 03763 M01S03594.mac1 +++|* A - 3. 03764 M01S03595.mac1 +++| 03765 M01S03596.mac1 +++| 03766 M01S03597.mac1 +++| SFW SUBR ENTRY/EXIT 03767 M01S03598.mac1 +++| SA3 SFWA =37373737373737373737B 03768 M01S03599.mac1 +++| BX6 X3*X1 EXTRACT UPPER BIT FROM EACH CHARACTER 03769 M01S03600.mac1 +++| BX7 -X3*X1 EXTRACT LOWER 5 BITS FROM EACH CHARACTER 03770 M01S03601.mac1 +++| IX6 X6+X3 EACH NON-00 CHARACTER GIVES CARRY 03771 M01S03602.mac1 +++| BX6 X6+X7 03772 M01S03603.mac1 +++| BX7 -X3*X6 EACH NON-00 CHARACTER = 40B 03773 M01S03604.mac1 +++| SA3 A3+B1 =10H 03774 M01S03605.mac1 +++| BX6 X7 03775 M01S03606.mac1 +++| LX7 -5 GENERATE SPACE MASK 03776 M01S03607.mac1 +++| IX7 X6-X7 03777 M01S03608.mac1 +++| BX7 X6+X7 03778 M01S03609.mac1 +++| BX3 -X7*X3 SELECT SPACE CODES 03779 M01S03610.mac1 +++| IX6 X1+X3 MERGE SPACES 03780 M01S03611.mac1 +++| EQ SFWX EXIT 03781 M01S03612.mac1 +++| 03782 M01S03613.mac1 +++| SFWA CON 37373737373737373737B MASK 03783 M01S03614.mac1 +++| CON 10H 03784 M01S03615.mac1 +++| SFW SPACE 4,10 03785 M01S03616.mac1 +++| BASE * 03786 M01S03617.mac1 +++| QUAL$ IF -DEF,QUAL$ 03787 M01S03618.mac1 +++| QUAL * 03788 M01S03619.mac1 +++| SFW EQU /COMCSFW/SFW 03789 M01S03620.mac1 +++| QUAL$ ENDIF 03790 M01S03621.mac1 +++| ENDX 03791 M01S03622.mac1 +++| 03792 M01S03623.mac1 +++| END 03793 M01S03624.mac1 +++| IDENT XWOD 03794 M01S03625.mac1 +++| ENTRY XWOD 03795 M01S03626.mac1 +++| SYSCOM B1 03796 M01S03627.mac1 +++| TITLE XWOD - CONVERT WORD TO OCTAL DISPLAY CODE. 03797 M01S03628.mac1 +++|*COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.
| Line S03629 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03798 M02S03629.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 03799 M01S00084.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03800 M01S03630.mac1 +++| XWOD SPACE 4,8 03801 M01S03631.mac1 +++|*** XWOD - CONVERT WORD TO OCTAL DISPLAY CODE. 03802 M01S03632.mac1 +++|* 03803 M01S03633.mac1 +++|* *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO 03804 M01S03634.mac1 +++|* TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION 03805 M01S03635.mac1 +++|* OF THE INPUT WORD. 03806 M01S03636.mac1 +++|* 03807 M01S03637.mac1 +++|* XWOD(W,A); (*SYMPL* CALL) 03808 M01S03638.mac1 +++|* 03809 M01S03639.mac1 +++|* ENTRY W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED. 03810 M01S03640.mac1 +++|* A, A 20 CHARACTER BUFFER FWA. 03811 M01S03641.mac1 +++|* (AN ARRAY OR ITEM 20 CHARACTERS LONG) 03812 M01S03642.mac1 +++|* 03813 M01S03643.mac1 +++|* EXIT A AND A+1, CONTAIN CONVERTED WORD. 03814 M01S03644.mac1 +++|* 03815 M01S03645.mac1 +++|* USES X - 1, 2, 6, 7. 03816 M01S03646.mac1 +++|* A - 1, 2, 6, 7. 03817 M01S03647.mac1 +++|* B - 1, 7. 03818 M01S03648.mac1 +++|* 03819 M01S03649.mac1 +++|* CALLS WOD. 03820 M01S03650.mac1 +++| 03821 M01S03651.mac1 +++| 03822 M01S03652.mac1 +++| XWOD SUBR ENTRY/EXIT 03823 M01S03653.mac1 +++| SB1 1 (B1) = 1 03824 M01S03654.mac1 +++| SB7 A1 SAVE (A1) 03825 M01S03655.mac1 +++| SA1 X1 FETCH W 03826 M01S03656.mac1 +++| RJ WOD 03827 M01S03657.mac1 +++| SA2 B7+B1 FETCH LOCATION (A) 03828 M01S03658.mac1 +++| SA6 X2 STORE UPPER 10 CHARACTERS 03829 M01S03659.mac1 +++| SA7 X2+B1 STORE LOWER 10 CHARACTERS 03830 M01S03660.mac1 +++| EQ XWODX RETURN 03831 M01S03661.mac1 +++| 03832 M01S03662.mac1 +++|*CALL COMCWOD CONVERT WORD TO OCTAL DISPLAY CODE. 03833 M01S03663.mac1 +++| 03834 M01S03664.mac1 +++| END 03835 M01S03665.mac1 +++| IDENT XZAP 03836 M01S03666.mac1 +++| ENTRY XZAP 03837 M01S03667.mac1 +++| SYSCOM B1 03838 M01S03668.mac1 +++| TITLE XZAP - *Z* ARGUMENT PROCESSOR. 03839 M01S03669.mac1 +++|*COMMENT *Z* ARGUMENT PROCESSOR.
| Line S03670 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03840 M02S03670.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980. 03841 M01S00085.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03842 M01S03671.mac1 +++| 03843 M01S03672.mac1 +++|*CALL COMCMAC 03844 M01S03673.mac1 +++| XZAP SPACE 4,15
| Line S03674 Modification History | |
|---|---|
M01 (Added by) | mac1 |
M02 (Updated by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03845 M02S03674.ns2676 ---|** XZAP - *Z* ARGUMENT PROCESSOR. 03846 M01S00010.ns2676 +++|*** XZAP - *Z* ARGUMENT PROCESSOR. 03847 M01S03675.mac1 +++|* 03848 M01S03676.mac1 +++|* XZAP(FADDR); (*SYMPL* CALL) 03849 M01S03677.mac1 +++|* 03850 M01S03678.mac1 +++|* ENTRY FADDR = FWA OF FET. 03851 M01S03679.mac1 +++|* 03852 M01S03680.mac1 +++|* EXIT DIRECTIVES ENTERED INTO THE BUFFER 03853 M01S03681.mac1 +++|* SPECIFIED IN THE FET. 03854 M01S03682.mac1 +++|* 03855 M01S03683.mac1 +++|* USES B - 1. 03856 M01S03684.mac1 +++|* X - 2. 03857 M01S03685.mac1 +++|* 03858 M01S03686.mac1 +++|* CALLS ZAP. 03859 M01S03687.mac1 +++| 03860 M01S03688.mac1 +++| 03861 M01S03689.mac1 +++| XZAP SUBR ENTRY/EXIT 03862 M01S03690.mac1 +++| SB1 1 03863 M01S03691.mac1 +++| BX2 X1 SET ADDRESS OF FET 03864 M01S03692.mac1 +++| RJ ZAP PROCESS *Z* ARGUMENT 03865 M01S03693.mac1 +++| EQ XZAPX RETURN 03866 M01S03694.mac1 +++| 03867 M01S03695.mac1 +++|*CALL COMCUSB 03868 M01S03696.mac1 +++|*CALL COMCZAP 03869 M01S03697.mac1 +++| 03870 M01S03698.mac1 +++| END
cdc/nos2.source/opl.opl871/deck/mac1.001.txt · Last modified: by 127.0.0.1