cdc:nos2.source:opl.opl871:deck:1io.001
Deck 1IO Part 001
14 Modifications
Listing Sections
- Deck 1IO Start
- Deck 1IO Part 1 (Line 1979)
- Deck 1IO Part 2 (Line 3952)
Source
Seq # *Modification Id* Act ----------------------------+ 01979 M01S00002.251l664 +++|** PIOVL - DEFINE PRINT IMAGE OVERLAYS. 01980 M01S00003.251l664 +++|* 01981 M01S00004.251l664 +++|* CALL - 01982 M01S00005.251l664 +++|* PIOVL (A1,A2,A3...AN) 01983 M01S00006.251l664 +++|* 01984 M01S00007.251l664 +++|* WHERE (AN) ARE TWO CHARACTER OVERLAY NAMES. 01985 M01S00008.251l664 +++|* THE LENGTH OF AN ARRAY IS 8. THERFORE 01986 M01S00009.251l664 +++|* A MAXIMUM OF 8 NAMES CAN BE SPECIFIED. 01987 M01S00010.251l664 +++|* IF LESS THAN 8 NAMES ARE SPECIFIED, THE 01988 M01S00011.251l664 +++|* FIRST NAME WILL BE USED TO FILL THE 01989 M01S00012.251l664 +++|* REMAINING SLOTS. 01990 M01S00013.251l664 +++| 01991 M01S00014.251l664 +++| 01992 M01S00015.251l664 +++| PIOVL MACRO A 01993 M01S00016.251l664 +++| LOCAL AA,BB,CC,DD 01994 M01S00017.251l664 +++| AA SET 0 01995 M01S00018.251l664 +++| IRP A 01996 M01S00019.251l664 +++| CC MICRO 1,,*A* 01997 M01S00020.251l664 +++| CON 2R"CC" 01998 M01S00021.251l664 +++| AA SET AA+1 01999 M01S00022.251l664 +++| .B IFEQ AA,1 02000 M01S00023.251l664 +++| DD MICRO 1,,*A* 02001 M01S00024.251l664 +++| .B ENDIF 02002 M01S00025.251l664 +++| IRP 02003 M01S00026.251l664 +++| BB SET 10-AA 02004 M01S00027.251l664 +++| .B IFGT BB,0 02005 M01S00028.251l664 +++| DUP BB,1 02006 M01S00029.251l664 +++| CON 2R"DD" 02007 M01S00030.251l664 +++| .B ENDIF 02008 M01S00031.251l664 +++| PIOVL ENDM 02009 M00S01844.1io +++| TITLE MAIN PROGRAM. 02010 M00S01845.1io +++| LDM SPACE 4,10 02011 M00S01846.1io +++|** MAIN PROGRAM. 02012 M00S01847.1io +++| 02013 M00S01848.1io +++| 02014 M00S01849.1io +++| ORG ORGR 02015 M00S01850.1io +++| 02016 M00S01851.1io +++| LDM SUBR ENTRY/EXIT 02017 M00S01852.1io +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 02018 M00S01853.1io +++| RJM LIM LOAD IMAGE MEMORY 02019 M00S01854.1io +++| NJN LDM2 IF ERROR 02020 M00S01855.1io +++| LDD ST CHECK FOR PRINTER READY 02021 M00S01856.1io +++| LPN 1 02022 M00S01857.1io +++| LMN 1 02023 M00S01858.1io +++| RAM LDMA 02024 M00S01859.1io +++| 02025 M00S01860.1io +++|* NORMAL EXIT - RELEASE EQUIPMENT. 02026 M00S01861.1io +++| 02027 M00S01862.1io +++| RJM CAD CLEAR AND DISCONNECT 02028 M00S01863.1io +++| LDMA LDN 0 02029 M00S01864.1io +++|* LDN 1 (PRINTER NOT LOADED) 02030 M00S01865.1io +++| LDM1 UJN LDMX EXIT 02031 M00S01866.1io +++| 02032 M00S01867.1io +++|* ERROR EXIT - TURN EQUIPMENT OFF 02033 M00S01868.1io +++| 02034 M00S01869.1io +++| LDM2 STD MC SAVE MESSAGE CODE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02035 M01S00026.ns2655 +++| LMN ECUA 02036 M01S00027.ns2655 +++| ZJN LDM4 IF CHANNEL UNAVAILABLE 02037 M00S01870.1io +++| DCN CH+40 02038 M00S01871.1io +++| LDD ES+1 RELEASE CHANNEL 02039 M00S01872.1io +++| DCHAN 02040 M00S01873.1io +++| EXECUTE 3IC 02041 M00S01874.1io +++| RJM /3IC/ERM SEND ERROR MESSAGE 02042 M00S01875.1io +++| RJM /3IC/OEQ OFF EQUIPMENT
| Line S01876 Modification History | |
|---|---|
M01 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02043 M01S01876.ns2655 ---| LDN 1 SET ERROR FLAG
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02044 M01S00028.ns2655 +++| LDM3 LDN 1 SET ERROR FLAG 02045 M00S01877.1io +++| UJN LDM1 EXIT
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02046 M01S00029.ns2655 +++| 02047 M01S00030.ns2655 +++| LDM4 LDN ECUA *CHANNEL UNAVAILABLE* 02048 M01S00031.ns2655 +++| RJM IOM ISSUE ERROR MESSAGE 02049 M01S00032.ns2655 +++| UJN LDM3 EXIT WITH ERROR FLAG 02050 M00S01878.1io +++| LIM SPACE 4,10 02051 M00S01879.1io +++|** LIM - LOAD IMAGE MEMORY. 02052 M00S01880.1io +++|* 02053 M00S01881.1io +++|* ENTRY (ES - ES+4) = EST ENTRY. 02054 M00S01882.1io +++|* 02055 M00S01883.1io +++|* EXIT (A) .NE. 0 IF IMAGE MEMORY CANNOT BE LOADED. 02056 M00S01884.1io +++|* (ST) = EQUIPMENT STATUS. 02057 M00S01885.1io +++|* 02058 M00S01886.1io +++|* USES CS, T3. 02059 M00S01887.1io +++|* 02060 M00S01888.1io +++|* CALLS CAD, CES, EXR, FCN, GST, IFN, *5IA*, *5IC*, *5ID*, 02061 M00S01889.1io +++|* *5IE*, *5IG*, *5IH*. 02062 M00S01890.1io +++|* 02063 M00S01891.1io +++|* MACROS EXECUTE. 02064 M00S01892.1io +++| 02065 M00S01893.1io +++| LIM SUBR ENTRY/EXIT 02066 M00S01894.1io +++| RJM CES CHECK EQUIPMENT STATUS 02067 M00S01895.1io +++| PJN LIMX IF PRINTER NOT READY OR ERROR 02068 M00S01896.1io +++| LDD ET
| Line S01897 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02069 M01S01897.251l664 ---| SHN 3 FIND OVERLAY NAME
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02070 M01S00032.251l664 +++| SHN 6 FIND OVERLAY NAME 02071 M00S01898.1io +++| STD T3 02072 M00S01899.1io +++| LDD ES+4 02073 M00S01900.1io +++| SHN -6 ADD TRAIN TYPE TO INDEX 02074 M00S01901.1io +++| LPN 7
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02075 M01S00033.251l664 +++| SHN 3 02076 M00S01902.1io +++| RAD T3
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02077 M01S00034.251l664 +++| LDM QACB+15*5+3 GET PRINT IMAGE CODE 02078 M01S00035.251l664 +++| SHN -6 02079 M01S00036.251l664 +++| LPN 17 02080 M01S00037.251l664 +++| NJN LIM0 IF EXPLICIT PRINT IMAGE SPECIFIED 02081 M01S00038.251l664 +++| LDN PISD USE SYSTEM DEFAULT PRINT IMAGE 02082 M01S00039.251l664 +++| LIM0 LPN 7 02083 M01S00040.251l664 +++| RAD T3 02084 M00S01903.1io +++| LDM TIMO,T3 SET OVERLAY NAME 02085 M00S01904.1io +++| STM LIMA 02086 M00S01905.1io +++| RJM CAD CLEAR AND DISCONNECT 02087 M00S01906.1io +++| LDC 1L5 LOAD IMAGE MEMORY OVERLAY 02088 M00S01907.1io +++| LIMA EQU *-1 02089 M00S01908.1io +++| EXECUTE 5IA,= 02090 M00S01909.1io +++| EXECUTE 5IC,= 02091 M00S01910.1io +++| EXECUTE 5ID,= 02092 M00S01911.1io +++| EXECUTE 5IE,= 02093 M00S01912.1io +++| EXECUTE 5IG,= 02094 M00S01913.1io +++| EXECUTE 5IH,= 02095 M00S01914.1io +++| RJM EXR 02096 M00S01915.1io +++| STM LIMB SAVE TABLE LENGTH 02097 M00S01916.1io +++| RJM CES CHECK EQUIPMENT STATUS 02098 M00S01917.1io +++| PJN LIM1 IF PRINTER NOT READY OR ERROR 02099 M00S01918.1io +++| LDN 24 SELECT ABNORMAL *EOP* INTERRUPT 02100 M00S01919.1io +++| RJM FCN ISSUE FUNCTION 02101 M00S01920.1io +++| LDN 13 SET EXTENDED ARRAY MODE 02102 M00S01921.1io +++| RJM FCN 02103 M00S01922.1io +++| LDN 12 *FILL IMAGE MEMORY* 02104 M00S01923.1io +++| RJM FCN ISSUE FUNCTION 02105 M00S01924.1io +++| LDN 16 OUTPUT IMAGE MEMORY 02106 M00S01925.1io +++| RJM IFN ISSUE FUNCTION 02107 M00S01926.1io +++| LDC * OUTPUT IMAGE MEMORY 02108 M00S01927.1io +++| LIMB EQU *-1 02109 M00S01928.1io +++| OAM TIMC,CH 02110 M00S01929.1io +++| NJN LIM2 IF INCOMPLETE DATA TRANSFER 02111 M00S01930.1io +++| FJM *,CH 02112 M00S01931.1io +++| DCN CH+40 02113 M00S01932.1io +++| RJM GST GET 6681 AND EQUIPMENT STATUS 02114 M00S01933.1io +++| ZJN LIM1 IF NO ERRORS 02115 M00S01934.1io +++| LDN ERJM REJECT/TRANSMISSION PARITY ERROR 02116 M00S01935.1io +++| LIM1 LJM LIMX RETURN 02117 M00S01936.1io +++| 02118 M00S01937.1io +++| LIM2 STD CS STORE NUMBER OF UNTRANSFERED BYTES 02119 M00S01938.1io +++| LDN EITM *EQXXX INCOMPLETE DATA TRANSFER.* 02120 M00S01939.1io +++| UJN LIM1 RETURN 02121 M00S01940.1io +++| CES SPACE 4,15 02122 M00S01941.1io +++|** CES - CHECK EQUIPMENT STATUS. 02123 M00S01942.1io +++|* 02124 M00S01943.1io +++|* EXIT (A) .LT. 0 IF NO ERROR. 02125 M00S01944.1io +++|* (A) = 0, IF PRINTER NOT READY. 02126 M00S01945.1io +++|* (A) = ERROR CODE. 02127 M00S01946.1io +++|* (ET) = 0 IF 512 PRINTER. 02128 M00S01947.1io +++|* = 1 IF 580 PRINTER. 02129 M00S01948.1io +++|* 02130 M00S01949.1io +++|* USES ET, T3. 02131 M00S01950.1io +++|* 02132 M00S01951.1io +++|* CALLS FCN, GST, STS, //MCI. 02133 M00S01952.1io +++| 02134 M00S01953.1io +++| 02135 M00S01954.1io +++| CES2 LDN 50 ISSUE FUNCTION UNIQUE TO IMAGE MEMORY 02136 M00S01955.1io +++| RJM FCN 02137 M00S01956.1io +++| LDC 1S12+66 ISSUE FUNCTION UNIQUE TO 580 02138 M00S01957.1io +++| RJM FCN 02139 M00S01958.1io +++| NJN CES3 IF NOT 580 02140 M00S01959.1io +++| AOD ET 02141 M00S01960.1io +++| CES3 LCN 0 INDICATE NO ERROR 02142 M00S01961.1io +++| 02143 M00S01962.1io +++| CES SUBR ENTRY/EXIT 02144 M00S01963.1io +++| RJM //MCI MODIFY CHANNEL INSTRUCTIONS
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00033.ns2655 +++| NJN CESX IF CHANNEL UNAVAILABLE 02146 M00S01964.1io +++| RJM STS CHECK PRINTER STATUS 02147 M00S01965.1io +++| ZJN CESX IF NOT READY 02148 M00S01966.1io +++| 02149 M00S01967.1io +++|* TIME OUT SINCE 512 CAN HANG BUSY WITH GARBAGE IN IMAGE 02150 M00S01968.1io +++|* MEMORY. 02151 M00S01969.1io +++| 02152 M00S01970.1io +++| LDN 0 SET TIMEOUT LIMIT 02153 M00S01971.1io +++| STD T3 02154 M00S01972.1io +++| STD ET PRESET EQUIPMENT TYPE = 512 02155 M00S01973.1io +++| CES1 RJM GST GET STATUS OF 6681 AND EQUIPMENT 02156 M00S01974.1io +++| LDD ST CHECK EQUIPMENT STATUS 02157 M00S01975.1io +++| LPN 2 02158 M00S01976.1io +++| ZJN CES2 IF NOT BUSY 02159 M00S01977.1io +++| SOD T3 02160 M00S01978.1io +++| NJN CES1 IF NOT TIMED OUT 02161 M00S01979.1io +++| LDN ECBM *EQXXX CONTROLLER HUNG BUSY.* 02162 M00S01980.1io +++| UJN CESX BUSY ERROR 02163 M00S01981.1io +++| MCI SPACE 4,10 02164 M00S01982.1io +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 02165 M00S01983.1io +++|* 02166 M00S01984.1io +++|* ENTRY (ES+1) SET. 02167 M00S01985.1io +++|* 02168 M00S01986.1io +++|* EXIT CHANNEL INSTRUCTIONS SET WITH PROPER CHANNEL. 02169 M00S01987.1io +++|* 02170 M00S01988.1io +++|* USES T1, T2. 02171 M00S01989.1io +++| 02172 M00S01990.1io +++| 02173 M00S01991.1io +++| MCI SUBR ENTRY/EXIT 02174 M00S01992.1io +++| LDC TCHS 02175 M00S01993.1io +++| STD T1 02176 M00S01994.1io +++| UJN MCI2 UPDATE CHANNEL INSTRUCTIONS 02177 M00S01995.1io +++| 02178 M00S01996.1io +++| MCI1 RAI T2 02179 M00S01997.1io +++| AOD T1 02180 M00S01998.1io +++| MCI2 LDI T1 02181 M00S01999.1io +++| STD T2 02182 M00S02000.1io +++| LDD ES+1
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02183 M01S00006.252l678 +++| LPN 37 02184 M00S02001.1io +++| CHTL * 02185 M00S02002.1io +++| SBN CH 02186 M00S02003.1io +++| NJN MCI1 IF MORE CHANNEL INSTRUCTIONS TO MODIFY 02187 M00S02004.1io +++| UJN MCIX RETURN 02188 M00S02005.1io +++| TCHS SPACE 4,10 02189 M00S02006.1io +++|** TCHS - CHANNEL TABLE. 02190 M00S02007.1io +++|* TABLE CONTAINS THE ADDRESSES OF ALL INSTRUCTIONS WHICH 02191 M00S02008.1io +++|* REFERENCE THE EQUIPMENT CHANNEL. 02192 M00S02009.1io +++| 02193 M00S02010.1io +++| 02194 M00S02011.1io +++| TCHS CHTB 02195 M00S02012.1io +++| SPACE 4,10 02196 M00S02013.1io +++| 02197 M00S02014.1io +++| ELIM EQU *+10 DEFINE END OF LOAD IMAGE MEMORY ROUTINES 02198 M00S02015.1io +++| TIMC EQU ELIM+5 02199 M00S02016.1io +++| QUAL 02200 M00S02017.1io +++| OIMT SET /3IB/ELIM DEFINE ORIGIN OF IMAGE MEMORY TABLES 02201 M00S02018.1io +++| QUAL * 02202 M00S02019.1io +++| 02203 M00S02020.1io +++| DEFOIES OIMT SET LOAD ADDRESS OF ERROR ROUTINES 02204 M00S02021.1io +++| TIMO SPACE 4,15 02205 M00S02022.1io +++|** TIMO - TABLE OF IMAGE MEMORY OVERLAYS. 02206 M00S02023.1io +++|*
| Line S02024 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02207 M01S02024.251l664 ---|* EIGHT WORD ENTRY.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02208 M01S00041.251l664 +++|* EIGHT BY EIGHT WORD ENTRY. 02209 M00S02025.1io +++|*
| Line S02026 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02210 M01S02026.251l664 ---|* EACH SET OF EIGHT WORDS DESCRIBES IMAGE OVERLAYS FOR A 02211 M01S02027.251l664 ---|* PARTICULAR EQUIPMENT TYPE. EACH WORD CONTAINS AN OVERLAY 02212 M01S02028.251l664 ---|* NAME. THE POSITION OF THE WORD WITHIN THE EIGHT WORD ENTRY 02213 M01S02029.251l664 ---|* INDICATES A TRAIN TYPE -
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02214 M01S00042.251l664 +++|* EACH SET OF EIGHT BY EIGHT WORDS DESCRIBES IMAGE OVERLAYS 02215 M01S00043.251l664 +++|* FOR A PARTICULAR EQUIPMENT TYPE. EACH WORD CONTAINS AN 02216 M01S00044.251l664 +++|* OVERLAY NAME. 02217 M01S00045.251l664 +++|* 02218 M01S00046.251l664 +++|* EACH ROW INDICATES A TRAIN TYPE - 02219 M00S02030.1io +++|* 0, 1 CDC GRAPHIC 64-CHARACTER SET. 02220 M00S02031.1io +++|* 4, 5, 7 ASCII GRAPHIC 64-CHARACTER SET. 02221 M00S02032.1io +++|* 6 ASCII GRAPHIC 95-CHARACTER SET.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02222 M01S00047.251l664 +++|* 02223 M01S00048.251l664 +++|* THE POSITION WITHIN A ROW INDICATES THE PRINT IMAGE (PI) 02224 M01S00049.251l664 +++|* ( 0 - 7 ) AND CORRESPONDING OVERLAY NAME FOR THAT TRAIN TYPE. 02225 M01S00050.251l664 +++|* IF LESS THAN 8 NAMES ARE SPECIFIED IN A ROW, THE FIRST (PI=0) 02226 M01S00051.251l664 +++|* NAME WILL BE USED TO FILL THE REMAINDER OF THE ROW. 02227 M01S00052.251l664 +++| 02228 M00S02033.1io +++| 02229 M00S02034.1io +++| 02230 M00S02035.1io +++| TIMO BSS 0
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02231 M01S00053.251l664 +++| 02232 M01S00054.251l664 +++|* PI 0 1 2 3 4 5 6 7 TRAIN TYPE 02233 M00S02036.1io +++| 02234 M00S02037.1io +++|* 512. 02235 M00S02038.1io +++|
| Line S02039 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02236 M01S02039.251l664 ---| CON 2LIA 595-1 02237 M01S02040.251l664 ---| CON 2LIA 595-1 02238 M01S02041.251l664 ---| CON 2LIA NOT SUPPORTED 02239 M01S02042.251l664 ---| CON 2LIA NOT SUPPORTED 02240 M01S02043.251l664 ---| CON 2LID 596-6 02241 M01S02044.251l664 ---| CON 2LIC 596-4 OR 596-5 02242 M01S02045.251l664 ---| CON 2LID 595-6 02243 M01S02046.251l664 ---| CON 2LID 595-6 USED AS 595-5
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02244 M01S00055.251l664 +++| PIOVL (IA,IA,IA,IA,IA,IA,IA,IA) 595-1 02245 M01S00056.251l664 +++| PIOVL (IA) 595-1 02246 M01S00057.251l664 +++| PIOVL (IA) NOT SUPPORTED 02247 M01S00058.251l664 +++| PIOVL (IA) NOT SUPPORTED 02248 M01S00059.251l664 +++| PIOVL (ID) 595-6 02249 M01S00060.251l664 +++| PIOVL (IC) 595-4 OR 595-5 02250 M01S00061.251l664 +++| PIOVL (ID) 595-6 02251 M01S00062.251l664 +++| PIOVL (ID) 595-6 USED AS 595-5 02252 M00S02047.1io +++| 02253 M00S02048.1io +++|* 580. 02254 M00S02049.1io +++|
| Line S02050 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02255 M01S02050.251l664 ---| CON 2LIE 596-1 02256 M01S02051.251l664 ---| CON 2LIE 596-1 02257 M01S02052.251l664 ---| CON 2LIE NOT SUPPORTED 02258 M01S02053.251l664 ---| CON 2LIE NOT SUPPORTED 02259 M01S02054.251l664 ---| CON 2LIH 596-6 02260 M01S02055.251l664 ---| CON 2LIG 596-4 OR 596-5 02261 M01S02056.251l664 ---| CON 2LIH 596-6 02262 M01S02057.251l664 ---| CON 2LIH 596-6 USED AS 596-5
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S00063.251l664 +++| PIOVL (IE) 596-1 02264 M01S00064.251l664 +++| PIOVL (IE) 596-1 02265 M01S00065.251l664 +++| PIOVL (IE) NOT SUPPORTED 02266 M01S00066.251l664 +++| PIOVL (IE) NOT SUPPORTED 02267 M01S00067.251l664 +++| PIOVL (IH) 596-6 02268 M01S00068.251l664 +++| PIOVL (IG) 596-4 OR 596-5 02269 M01S00069.251l664 +++| PIOVL (IH) 596-6 02270 M01S00070.251l664 +++| PIOVL (IH) 596-6 USED AS 596-5 02271 M00S02058.1io +++| TTL 1IO/3IB/5IA - IMAGE MEMORY TABLE. 02272 M00S02059.1io +++| TITLE 3555/512 WITH 595-1 PRINT TRAIN. 02273 M00S02060.1io +++| QUAL 5IA 02274 M00S02061.1io +++| IDENT 5IA,IMTX 02275 M00S02062.1io +++|*COMMENT 1IO - 512/595-1 IMAGE MEMORY.
| Line S02063 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02276 M01S02063.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02277 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02278 M00S02064.1io +++| 5IA SPACE 4,10
02279 M00S02065.1io +++| NCSL EQU 4 DEFINE SLUG SIZE
02280 M00S02066.1io +++| IMT SPACE 4,10
02281 M00S02067.1io +++| ORG OIMT
02282 M00S02068.1io +++|
02283 M00S02069.1io +++| IMT SUBR ENTRY/EXIT
02284 M00S02070.1io +++| LDC TIMCL
02285 M00S02071.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02286 M00S02072.1io +++| TIMC SPACE 4,10
02287 M00S02073.1io +++|* GROUP 1.
02288 M00S02074.1io +++|
02289 M00S02075.1io +++| TIMC SLUG (0123)
02290 M00S02076.1io +++| SLUG (4567)
02291 M00S02077.1io +++| SLUG (BZ,/)
02292 M00S02078.1io +++| SLUG (89AC)
02293 M00S02079.1io +++| SLUG ((GH))
02294 M00S02080.1io +++| SLUG (RIFL)
02295 M00S02081.1io +++| SLUG (MNOP)
02296 M00S02082.1io +++| SLUG ([),1
02297 M00S02083.1io +++| CON 45 PERCENT
02298 M00S02084.1io +++| SLUG (;),2
02299 M00S02085.1io +++| SLUG (DUST)
02300 M00S02086.1io +++| SLUG (VWXY)
02301 M00S02087.1io +++| SLUG (+-.E)
02302 M00S02088.1io +++| SLUG (JKQ*)
02303 M00S02089.1io +++|
02304 M00S02090.1io +++|* GROUP 2.
02305 M00S02091.1io +++|
02306 M00S02092.1io +++| SLUG (0123)
02307 M00S02093.1io +++| SLUG (4567)
02308 M00S02094.1io +++| SLUG ($),1
02309 M00S02095.1io +++| CON 137 CONCATENATION
02310 M00S02096.1io +++| SLUG ("=),2
02311 M00S02097.1io +++| SLUG (89AC)
02312 M00S02098.1io +++| SLUG (BZ,/)
02313 M00S02099.1io +++| SLUG (RIFL)
02314 M00S02100.1io +++| SLUG (MNOP)
02315 M00S02101.1io +++| SLUG ((GH))
02316 M00S02102.1io +++| SLUG (DUST)
02317 M00S02103.1io +++| SLUG ('?&!)
02318 M00S02104.1io +++| SLUG (+-.E)
02319 M00S02105.1io +++| SLUG (VWXY)
02320 M00S02106.1io +++|
02321 M00S02107.1io +++|* GROUP 3.
02322 M00S02108.1io +++|
02323 M00S02109.1io +++| SLUG (0123)
02324 M00S02110.1io +++| SLUG (4567)
02325 M00S02111.1io +++| SLUG (JKQ*)
02326 M00S02112.1io +++| SLUG (89AC)
02327 M00S02113.1io +++| SLUG (;<>)
02328 M00S02114.1io +++| SLUG (RIFL)
02329 M00S02115.1io +++| SLUG (MNOP)
02330 M00S02116.1io +++| SLUG (BZ,/)
02331 M00S02117.1io +++| SLUG (DUST)
02332 M00S02118.1io +++| SLUG ((GH))
02333 M00S02119.1io +++| SLUG (+-.E)
02334 M00S02120.1io +++| CON 72 COLON
02335 M00S02121.1io +++| SLUG (;#=),3
02336 M00S02122.1io +++|
02337 M00S02123.1io +++|* GROUP 4.
02338 M00S02124.1io +++|
02339 M00S02125.1io +++| SLUG (0123)
02340 M00S02126.1io +++| SLUG (4567)
02341 M00S02127.1io +++| SLUG (VWXY)
02342 M00S02128.1io +++| SLUG (89AC)
02343 M00S02129.1io +++| SLUG (JKQ*)
02344 M00S02130.1io +++| SLUG (RIFL)
02345 M00S02131.1io +++| SLUG (MNOP)
02346 M00S02132.1io +++| SLUG ([),1
02347 M00S02133.1io +++| CON 45 PERCENT
02348 M00S02134.1io +++| SLUG (;),2
02349 M00S02135.1io +++| SLUG (DUST)
02350 M00S02136.1io +++| SLUG (BZ,/)
02351 M00S02137.1io +++| SLUG (+-.E)
02352 M00S02138.1io +++| SLUG ((GH))
02353 M00S02139.1io +++|
02354 M00S02140.1io +++|* GROUP 5.
02355 M00S02141.1io +++|
02356 M00S02142.1io +++| SLUG (0123)
02357 M00S02143.1io +++| SLUG (4567)
02358 M00S02144.1io +++| SLUG ($),1
02359 M00S02145.1io +++| CON 137 CONCATENATION
02360 M00S02146.1io +++| SLUG ("=),2
02361 M00S02147.1io +++| SLUG (89AC)
02362 M00S02148.1io +++| SLUG (VWXY)
02363 M00S02149.1io +++| SLUG (RIFL)
02364 M00S02150.1io +++| SLUG (MNOP)
02365 M00S02151.1io +++| SLUG (JKQ*)
02366 M00S02152.1io +++| SLUG (DUST)
02367 M00S02153.1io +++| SLUG ('?&!)
02368 M00S02154.1io +++| SLUG (+-.E)
02369 M00S02155.1io +++| SLUG (BZ,/)
02370 M00S02156.1io +++|
02371 M00S02157.1io +++|* GROUP 6.
02372 M00S02158.1io +++|
02373 M00S02159.1io +++| SLUG (0123)
02374 M00S02160.1io +++| SLUG (4567)
02375 M00S02161.1io +++| SLUG ((GH))
02376 M00S02162.1io +++| SLUG (89AC)
02377 M00S02163.1io +++| SLUG (;<>)
02378 M00S02164.1io +++| SLUG (RIFL)
02379 M00S02165.1io +++| SLUG (MNOP)
02380 M00S02166.1io +++| SLUG (VWXY)
02381 M00S02167.1io +++| SLUG (DUST)
02382 M00S02168.1io +++| SLUG (JKQ*)
02383 M00S02169.1io +++| SLUG (+-.E)
02384 M00S02170.1io +++| CON 72 COLON
02385 M00S02171.1io +++| SLUG (;#=),3
02386 M00S02172.1io +++|
02387 M00S02173.1io +++| ERRNZ /3IB/TIMC-TIMC
02388 M00S02174.1io +++| TIMCL EQU *-TIMC
02389 M00S02175.1io +++| ERRNZ TIMCL-288D
02390 M00S02176.1io +++|
02391 M00S02177.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02392 M00S02178.1io +++| TTL 1IO/3IB/5IC - IMAGE MEMORY TABLE.
02393 M00S02179.1io +++| TITLE 3555/512 WITH 595-4, 595-5 PRINT TRAINS.
02394 M00S02180.1io +++| QUAL 5IC
02395 M00S02181.1io +++| IDENT 5IC,IMTX
02396 M00S02182.1io +++|*COMMENT 1IO - 512/595-4,595-5 IMAGE MEMORY.
| Line S02183 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02397 M01S02183.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02398 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02399 M00S02184.1io +++| 5IC SPACE 4,10
02400 M00S02185.1io +++| NCSL EQU 4 DEFINE SLUG SIZE
02401 M00S02186.1io +++| IMT SPACE 4,10
02402 M00S02187.1io +++| ORG OIMT
02403 M00S02188.1io +++|
02404 M00S02189.1io +++| IMT SUBR ENTRY/EXIT
02405 M00S02190.1io +++| LDC TIMCL
02406 M00S02191.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02407 M00S02192.1io +++| TIMC SPACE 4,10
02408 M00S02193.1io +++|* GROUP 1.
02409 M00S02194.1io +++|
02410 M00S02195.1io +++| TIMC SLUG (0123)
02411 M00S02196.1io +++| SLUG (4567)
02412 M00S02197.1io +++| SLUG (BZ,/)
02413 M00S02198.1io +++| SLUG (89AC)
02414 M00S02199.1io +++| SLUG ((GH))
02415 M00S02200.1io +++| SLUG (RIFL)
02416 M00S02201.1io +++| SLUG (MNOP)
02417 M00S02202.1io +++| SLUG ([),1
02418 M00S02203.1io +++| CON 45 PERCENT
02419 M00S02204.1io +++| SLUG ("]),2
02420 M00S02205.1io +++| SLUG (DUST)
02421 M00S02206.1io +++| SLUG (VWXY)
02422 M00S02207.1io +++| SLUG (+-.E)
02423 M00S02208.1io +++| SLUG (JKQ*)
02424 M00S02209.1io +++|
02425 M00S02210.1io +++|* GROUP 2.
02426 M00S02211.1io +++|
02427 M00S02212.1io +++| SLUG (0123)
02428 M00S02213.1io +++| SLUG (4567)
02429 M00S02214.1io +++| SLUG ($;=)
02430 M00S02215.1io +++| SLUG (89AC)
02431 M00S02216.1io +++| SLUG (BZ,/)
02432 M00S02217.1io +++| SLUG (RIFL)
02433 M00S02218.1io +++| SLUG (MNOP)
02434 M00S02219.1io +++| SLUG ((GH))
02435 M00S02220.1io +++| SLUG (DUST)
02436 M00S02221.1io +++| SLUG (#\;)
02437 M00S02222.1io +++| SLUG (+-.E)
02438 M00S02223.1io +++| SLUG (VWXY)
02439 M00S02224.1io +++|
02440 M00S02225.1io +++|* GROUP 3.
02441 M00S02226.1io +++|
02442 M00S02227.1io +++| SLUG (0123)
02443 M00S02228.1io +++| SLUG (4567)
02444 M00S02229.1io +++| SLUG (JKQ*)
02445 M00S02230.1io +++| SLUG (89AC)
02446 M00S02231.1io +++| SLUG (&?<>)
02447 M00S02232.1io +++| SLUG (RIFL)
02448 M00S02233.1io +++| SLUG (MNOP)
02449 M00S02234.1io +++| SLUG (BZ,/)
02450 M00S02235.1io +++| SLUG (DUST)
02451 M00S02236.1io +++| SLUG ((GH))
02452 M00S02237.1io +++| SLUG (+-.E)
02453 M00S02238.1io +++| CON 72 COLON
02454 M00S02239.1io +++| SLUG (;),1
02455 M00S02240.1io +++| CON 137 UNDERLINE
02456 M00S02241.1io +++| SLUG (=),1
02457 M00S02242.1io +++|
02458 M00S02243.1io +++|* GROUP 4.
02459 M00S02244.1io +++|
02460 M00S02245.1io +++| SLUG (0123)
02461 M00S02246.1io +++| SLUG (4567)
02462 M00S02247.1io +++| SLUG (VWXY)
02463 M00S02248.1io +++| SLUG (89AC)
02464 M00S02249.1io +++| SLUG (JKQ*)
02465 M00S02250.1io +++| SLUG (RIFL)
02466 M00S02251.1io +++| SLUG (MNOP)
02467 M00S02252.1io +++| SLUG ([),1
02468 M00S02253.1io +++| CON 45 PERCENT
02469 M00S02254.1io +++| SLUG ("]),2
02470 M00S02255.1io +++| SLUG (DUST)
02471 M00S02256.1io +++| SLUG (BZ,/)
02472 M00S02257.1io +++| SLUG (+-.E)
02473 M00S02258.1io +++| SLUG ((GH))
02474 M00S02259.1io +++|
02475 M00S02260.1io +++|* GROUP 5.
02476 M00S02261.1io +++|
02477 M00S02262.1io +++| SLUG (0123)
02478 M00S02263.1io +++| SLUG (4567)
02479 M00S02264.1io +++| SLUG ($;=)
02480 M00S02265.1io +++| SLUG (89AC)
02481 M00S02266.1io +++| SLUG (VWXY)
02482 M00S02267.1io +++| SLUG (RIFL)
02483 M00S02268.1io +++| SLUG (MNOP)
02484 M00S02269.1io +++| SLUG (JKQ*)
02485 M00S02270.1io +++| SLUG (DUST)
02486 M00S02271.1io +++| SLUG (#\;)
02487 M00S02272.1io +++| SLUG (+-.E)
02488 M00S02273.1io +++| SLUG (BZ,/)
02489 M00S02274.1io +++|
02490 M00S02275.1io +++|* GROUP 6.
02491 M00S02276.1io +++|
02492 M00S02277.1io +++| SLUG (0123)
02493 M00S02278.1io +++| SLUG (4567)
02494 M00S02279.1io +++| SLUG ((GH))
02495 M00S02280.1io +++| SLUG (89AC)
02496 M00S02281.1io +++| SLUG (&?<>)
02497 M00S02282.1io +++| SLUG (RIFL)
02498 M00S02283.1io +++| SLUG (MNOP)
02499 M00S02284.1io +++| SLUG (VWXY)
02500 M00S02285.1io +++| SLUG (DUST)
02501 M00S02286.1io +++| SLUG (JKQ*)
02502 M00S02287.1io +++| SLUG (+-.E)
02503 M00S02288.1io +++| CON 72 COLON
02504 M00S02289.1io +++| SLUG (;),1
02505 M00S02290.1io +++| CON 137 UNDERLINE
02506 M00S02291.1io +++| SLUG (=),1
02507 M00S02292.1io +++|
02508 M00S02293.1io +++| ERRNZ /3IB/TIMC-TIMC
02509 M00S02294.1io +++| TIMCL EQU *-TIMC
02510 M00S02295.1io +++| ERRNZ TIMCL-288D
02511 M00S02296.1io +++|
02512 M00S02297.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02513 M00S02298.1io +++| TTL 1IO/3IB/5ID - IMAGE MEMORY TABLE.
02514 M00S02299.1io +++| 5ID TITLE 3555/512 WITH 595-6 PRINT TRAIN.
02515 M00S02300.1io +++| QUAL 5ID
02516 M00S02301.1io +++| IDENT 5ID,IMTX
02517 M00S02302.1io +++|*COMMENT 1IO - 512/595-6 IMAGE MEMORY.
| Line S02303 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02518 M01S02303.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02519 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02520 M00S02304.1io +++| 5ID SPACE 4,10 02521 M00S02305.1io +++| NCSL EQU 4 DEFINE SLUG SIZE 02522 M00S02306.1io +++| IMT SPACE 4,10 02523 M00S02307.1io +++| ORG OIMT 02524 M00S02308.1io +++| 02525 M00S02309.1io +++| IMT SUBR ENTRY/EXIT 02526 M00S02310.1io +++| LDC TIMCL 02527 M00S02311.1io +++| UJN IMTX RETURN WITH TABLE LENGTH 02528 M00S02312.1io +++| TIMC SPACE 4,10 02529 M00S02313.1io +++| TIMC BSSZ 288D 02530 M00S02314.1io +++| NCHAR SET 0 02531 M00S02315.1io +++| 02532 M00S02316.1io +++|* DEFINE SYMBOLS X0-X7F FOR CORRESPONDING HEX VALUES. 02533 M00S02317.1io +++| 02534 M00S02318.1io +++| ECHO 3,P=(2,3,4,5,6,7) 02535 M00S02319.1io +++| ECHO 2,Q=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F) 02536 M00S02320.1io +++| NOREF X_P_Q 02537 M00S02321.1io +++| X_P_Q EQU 0#_P_Q 02538 M00S02322.1io +++| 02539 M00S02323.1io +++| BASE D 02540 M00S02324.1io +++| 02541 M00S02325.1io +++| ESLUG (X30,X31,X32,X33),01,25,49 0,1,2,3 02542 M00S02326.1io +++| ESLUG (X34,X35,X36,X37),02,26,50 4,5,6,7 02543 M00S02327.1io +++| ESLUG (X38,X39,X62,X63),03,27,51 8,9,B(LC),C(LC) 02544 M00S02328.1io +++| ESLUG (X65,X73,X74,X61),04,28,52 E(LC),S(LC),T(LC),A(LC) 02545 M00S02329.1io +++| ESLUG (X64,X66,X75,X76),05,29,53 D(LC),F(LC),U(LC),V(LC) 02546 M00S02330.1io +++| ESLUG (X67,X68,X69,X6A),06,30,54 G(LC),H(LC),I(LC),J(LC) 02547 M00S02331.1io +++| ESLUG (X6B,X6C,X6D,X6E),07,31,55 K(LC),L(LC),M(LC),N(LC) 02548 M00S02332.1io +++| ESLUG (X6F,X70,X77,X72),08,32,56 O(LC),P(LC),W(LC),R(LC) 02549 M00S02333.1io +++| ESLUG (X71,X78,X79,X7A),09,33,57 Q(LC),X(LC),Y(LC),Z(LC) 02550 M00S02334.1io +++| ESLUG (X5C,X60,X51,X55),15,39,63 BACK/,ACCENT,Q(LC),U(LC) 02551 M00S02335.1io +++| ESLUG (X4A,X41,X4B,X45),16,40,64 J,A,K,E 02552 M00S02336.1io +++| ESLUG (X42,X57,X47,X48),17,41,65 B,W,G,H 02553 M00S02337.1io +++| ESLUG (X44,X43,X53,X54),18,42,66 D,C,S,T 02554 M00S02338.1io +++| ESLUG (X50,X4E,X46,X4C),19,43,67 P,N,F,L 02555 M00S02339.1io +++| ESLUG (X4D,X49,X4F,X52),20,44,68 M,I,O,R 02556 M00S02340.1io +++| ESLUG (X56,X5A,X58,X59),21,45,69 V,Z,X,Y 02557 M00S02341.1io +++| ESLUG (X3C,X3E,X5B,X5D),10,34,58 .LT.,.GT.,L.BRKT,R.BRKT 02558 M00S02342.1io +++| ESLUG (X2E,X7C,X7B,X7D),11,35,59 .,V.BAR,L.BRACE,R.BRACE 02559 M00S02343.1io +++| ESLUG (X21,X5E,X5F,X7E),12,36,60 EXCLAM,C.FLEX,UNDERSC,TILDE 02560 M00S02344.1io +++| ESLUG (X25,X30,X23,X40),13,37,61 PERCENT,0,POUND,AT 02561 M00S02345.1io +++| ESLUG (X3A,X3B,X27,X3F),14,38,62 COLON,SEMICOLON,APOS,Q.MARK 02562 M00S02346.1io +++| ESLUG (X28,X2F,X2A,X29),22,46,70 (,/,*,) 02563 M00S02347.1io +++| ESLUG (X2B,X2D,X2E,X2C),23,47,71 +,-,.,, 02564 M00S02348.1io +++| ESLUG (X24,X3D,X22,X26),24,48,72 $,=,D.QUOTE,AMPERSAND 02565 M00S02349.1io +++| 02566 M00S02350.1io +++| BASE * 02567 M00S02351.1io +++| ERRNZ /3IB/TIMC-TIMC 02568 M00S02352.1io +++| TIMCL EQU NCHAR 02569 M00S02353.1io +++| ERRNZ TIMCL-288D 02570 M00S02354.1io +++| 02571 M00S02355.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES 02572 M00S02356.1io +++| TTL 1IO/3IB/5IE - IMAGE MEMORY TABLE. 02573 M00S02357.1io +++| TITLE 580 WITH 596-1 PRINT TRAIN. 02574 M00S02358.1io +++| QUAL 5IE 02575 M00S02359.1io +++| IDENT 5IE,IMTX 02576 M00S02360.1io +++|*COMMENT 1IO - 580/596-1 IMAGE MEMORY.
| Line S02361 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02577 M01S02361.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02578 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02579 M00S02362.1io +++| 5IE SPACE 4,10
02580 M00S02363.1io +++| NCSL EQU 8D DEFINE SLUG SIZE
02581 M00S02364.1io +++| IMT SPACE 4,10
02582 M00S02365.1io +++| ORG OIMT
02583 M00S02366.1io +++|
02584 M00S02367.1io +++| IMT SUBR ENTRY/EXIT
02585 M00S02368.1io +++| LDC TIMCL
02586 M00S02369.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02587 M00S02370.1io +++| TIMC SPACE 4,10
02588 M00S02371.1io +++|* GROUP 1.
02589 M00S02372.1io +++|
02590 M00S02373.1io +++| TIMC SLUG (17430265)
02591 M00S02374.1io +++| SLUG (E-+.HG98)
02592 M00S02375.1io +++| SLUG (FCBDRALI)
02593 M00S02376.1io +++| SLUG (140$3Z2,)
02594 M00S02377.1io +++| SLUG (POQKMN*J)
02595 M00S02378.1io +++| SLUG (/VTYWXUS)
02596 M00S02379.1io +++| SLUG (;=()[]),6
02597 M00S02380.1io +++| CON 45 PERCENT
02598 M00S02381.1io +++| CON 72 COLON
02599 M00S02382.1io +++| SLUG (17430265)
02600 M00S02383.1io +++|
02601 M00S02384.1io +++|* GROUP 2.
02602 M00S02385.1io +++|
02603 M00S02386.1io +++| SLUG (E-+.HG98)
02604 M00S02387.1io +++| SLUG (FCBDRALI)
02605 M00S02388.1io +++| SLUG (POQKMN*J)
02606 M00S02389.1io +++| SLUG (/VTYWXUS)
02607 M00S02390.1io +++| SLUG (&;!),4
02608 M00S02391.1io +++| CON 137 CONCATENATION
02609 M00S02392.1io +++| SLUG ('?;,3
02610 M00S02393.1io +++| SLUG (#()><"Z,)
02611 M00S02394.1io +++| SLUG (17430265)
02612 M00S02395.1io +++| SLUG (E-+.HG98)
02613 M00S02396.1io +++|
02614 M00S02397.1io +++|* GROUP 3.
02615 M00S02398.1io +++|
02616 M00S02399.1io +++| SLUG (FCBDRALI)
02617 M00S02400.1io +++| SLUG (140$3Z2,)
02618 M00S02401.1io +++| SLUG (POQKMN*J)
02619 M00S02402.1io +++| SLUG (/VTYWXUS)
02620 M00S02403.1io +++| SLUG (;=()[]),6
02621 M00S02404.1io +++| CON 45 PERCENT
02622 M00S02405.1io +++| CON 72 COLON
02623 M00S02406.1io +++| SLUG (17430265)
02624 M00S02407.1io +++| SLUG (E-+.HG98)
02625 M00S02408.1io +++| SLUG (FCBDRALI)
02626 M00S02409.1io +++|
02627 M00S02410.1io +++|* GROUP 4.
02628 M00S02411.1io +++|
02629 M00S02412.1io +++| SLUG (POQKMN*J)
02630 M00S02413.1io +++| SLUG (/VTYWXUS)
02631 M00S02414.1io +++| SLUG (&;!),4
02632 M00S02415.1io +++| CON 137 CONCATENATION
02633 M00S02416.1io +++| SLUG ('?;,3
02634 M00S02417.1io +++| SLUG (#()><"Z,)
02635 M00S02418.1io +++| SLUG (17430265)
02636 M00S02419.1io +++| SLUG (E-+.HG98)
02637 M00S02420.1io +++| SLUG (FCBDRALI)
02638 M00S02421.1io +++| SLUG (140$3Z2,)
02639 M00S02422.1io +++|
02640 M00S02423.1io +++|* GROUP 5.
02641 M00S02424.1io +++|
02642 M00S02425.1io +++| SLUG (POQKMN*J)
02643 M00S02426.1io +++| SLUG (/VTYWXUS)
02644 M00S02427.1io +++| SLUG (;=()[]),6
02645 M00S02428.1io +++| CON 45 PERCENT
02646 M00S02429.1io +++| CON 72 COLON
02647 M00S02430.1io +++| SLUG (17430265)
02648 M00S02431.1io +++| SLUG (E-+.HG98)
02649 M00S02432.1io +++| SLUG (FCBDRALI)
02650 M00S02433.1io +++| SLUG (POQKMN*J)
02651 M00S02434.1io +++| SLUG (/VTYWXUS)
02652 M00S02435.1io +++|
02653 M00S02436.1io +++|* GROUP 6.
02654 M00S02437.1io +++|
02655 M00S02438.1io +++| SLUG (&;!),4
02656 M00S02439.1io +++| CON 137 CONCATENATION
02657 M00S02440.1io +++| SLUG ('?;,3
02658 M00S02441.1io +++| SLUG (#()><"Z,)
02659 M00S02442.1io +++| SLUG (17430265)
02660 M00S02443.1io +++| SLUG (E-+.HG98)
02661 M00S02444.1io +++| SLUG (FCBDRALI)
02662 M00S02445.1io +++| SLUG (POQKMN*J)
02663 M00S02446.1io +++| SLUG (/VTYWXUS)
02664 M00S02447.1io +++| SLUG (;=()[]),6
02665 M00S02448.1io +++| CON 45 PERCENT
02666 M00S02449.1io +++| CON 72 COLON
02667 M00S02450.1io +++|
02668 M00S02451.1io +++| ERRNZ /3IB/TIMC-TIMC
02669 M00S02452.1io +++| TIMCL EQU *-TIMC
02670 M00S02453.1io +++| ERRNZ TIMCL-384D
02671 M00S02454.1io +++|
02672 M00S02455.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02673 M00S02456.1io +++| TTL 1IO/3IB/5IG - IMAGE MEMORY TABLE.
02674 M00S02457.1io +++| TITLE 580 WITH 596-4, 596-5 PRINT TRAINS.
02675 M00S02458.1io +++| QUAL 5IG
02676 M00S02459.1io +++| IDENT 5IG,IMTX
02677 M00S02460.1io +++|*COMMENT 1IO - 580/596-4,596-5 IMAGE MEMORY.
| Line S02461 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02678 M01S02461.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02679 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02680 M00S02462.1io +++| 5IG SPACE 4,10
02681 M00S02463.1io +++| NCSL EQU 8D DEFINE SLUG SIZE
02682 M00S02464.1io +++| IMT SPACE 4,10
02683 M00S02465.1io +++| ORG OIMT
02684 M00S02466.1io +++|
02685 M00S02467.1io +++| IMT SUBR ENTRY/EXIT
02686 M00S02468.1io +++| LDC TIMCL
02687 M00S02469.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02688 M00S02470.1io +++| TIMC SPACE 4,10
02689 M00S02471.1io +++|* GROUP 1.
02690 M00S02472.1io +++|
02691 M00S02473.1io +++| TIMC SLUG (17430265)
02692 M00S02474.1io +++| SLUG (E-+.HG98)
02693 M00S02475.1io +++| SLUG (FCBDRALI)
02694 M00S02476.1io +++| SLUG (140$3Z2,)
02695 M00S02477.1io +++| SLUG (POQKMN*J)
02696 M00S02478.1io +++| SLUG (/VTYWXUS)
02697 M00S02479.1io +++| SLUG (;&()[]),6
02698 M00S02480.1io +++| CON 45 PERCENT
02699 M00S02481.1io +++| CON 72 COLON
02700 M00S02482.1io +++| SLUG (17430265)
02701 M00S02483.1io +++|
02702 M00S02484.1io +++|* GROUP 2.
02703 M00S02485.1io +++|
02704 M00S02486.1io +++| SLUG (E-+.HG98)
02705 M00S02487.1io +++| SLUG (FCBDRALI)
02706 M00S02488.1io +++| SLUG (POQKMN*J)
02707 M00S02489.1io +++| SLUG (/VTYWXUS)
02708 M00S02490.1io +++| SLUG (!";;,5
02709 M00S02491.1io +++| CON 137 UNDERLINE
02710 M00S02492.1io +++| SLUG (?\),2
02711 M00S02493.1io +++| SLUG ('),1
02712 M00S02494.1io +++| CON 51 CLOSE PARENTHESIS
02713 M00S02495.1io +++| CON 50 OPEN PARENTHESIS
02714 M00S02496.1io +++| SLUG (><#Z,),5
02715 M00S02497.1io +++| SLUG (17430265)
02716 M00S02498.1io +++| SLUG (E-+.HG98)
02717 M00S02499.1io +++|
02718 M00S02500.1io +++|* GROUP 3.
02719 M00S02501.1io +++|
02720 M00S02502.1io +++| SLUG (FCBDRALI)
02721 M00S02503.1io +++| SLUG (140$3Z2,)
02722 M00S02504.1io +++| SLUG (POQKMN*J)
02723 M00S02505.1io +++| SLUG (/VTYWXUS)
02724 M00S02506.1io +++| SLUG (;&()[]),6
02725 M00S02507.1io +++| CON 45 PERCENT
02726 M00S02508.1io +++| CON 72 COLON
02727 M00S02509.1io +++| SLUG (17430265)
02728 M00S02510.1io +++| SLUG (E-+.HG98)
02729 M00S02511.1io +++| SLUG (FCBDRALI)
02730 M00S02512.1io +++|
02731 M00S02513.1io +++|* GROUP 4.
02732 M00S02514.1io +++|
02733 M00S02515.1io +++| SLUG (POQKMN*J)
02734 M00S02516.1io +++| SLUG (/VTYWXUS)
02735 M00S02517.1io +++| SLUG (!";;,5
02736 M00S02518.1io +++| CON 137 UNDERLINE
02737 M00S02519.1io +++| SLUG (?\),2
02738 M00S02520.1io +++| SLUG ('),1
02739 M00S02521.1io +++| CON 51 CLOSE PARENTHESIS
02740 M00S02522.1io +++| CON 50 OPEN PARENTHESIS
02741 M00S02523.1io +++| SLUG (><#Z,),5
02742 M00S02524.1io +++| SLUG (17430265)
02743 M00S02525.1io +++| SLUG (E-+.HG98)
02744 M00S02526.1io +++| SLUG (FCBDRALI)
02745 M00S02527.1io +++| SLUG (140$3Z2,)
02746 M00S02528.1io +++|
02747 M00S02529.1io +++|* GROUP 5.
02748 M00S02530.1io +++|
02749 M00S02531.1io +++| SLUG (POQKMN*J)
02750 M00S02532.1io +++| SLUG (/VTYWXUS)
02751 M00S02533.1io +++| SLUG (;&()[]),6
02752 M00S02534.1io +++| CON 45 PERCENT
02753 M00S02535.1io +++| CON 72 COLON
02754 M00S02536.1io +++| SLUG (17430265)
02755 M00S02537.1io +++| SLUG (E-+.HG98)
02756 M00S02538.1io +++| SLUG (FCBDRALI)
02757 M00S02539.1io +++| SLUG (POQKMN*J)
02758 M00S02540.1io +++| SLUG (/VTYWXUS)
02759 M00S02541.1io +++|
02760 M00S02542.1io +++|* GROUP 6.
02761 M00S02543.1io +++|
02762 M00S02544.1io +++| SLUG (!";;,5
02763 M00S02545.1io +++| CON 137 UNDERLINE
02764 M00S02546.1io +++| SLUG (?\),2
02765 M00S02547.1io +++| SLUG ('),1
02766 M00S02548.1io +++| CON 51 CLOSE PARENTHESIS
02767 M00S02549.1io +++| CON 50 OPEN PARENTHESIS
02768 M00S02550.1io +++| SLUG (><#Z,),5
02769 M00S02551.1io +++| SLUG (17430265)
02770 M00S02552.1io +++| SLUG (E-+.HG98)
02771 M00S02553.1io +++| SLUG (FCBDRALI)
02772 M00S02554.1io +++| SLUG (POQKMN*J)
02773 M00S02555.1io +++| SLUG (/VTYWXUS)
02774 M00S02556.1io +++| SLUG (;&()[]),6
02775 M00S02557.1io +++| CON 45 PERCENT
02776 M00S02558.1io +++| CON 72 COLON
02777 M00S02559.1io +++|
02778 M00S02560.1io +++| ERRNZ /3IB/TIMC-TIMC
02779 M00S02561.1io +++| TIMCL EQU *-TIMC
02780 M00S02562.1io +++| ERRNZ TIMCL-384D
02781 M00S02563.1io +++|
02782 M00S02564.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02783 M00S02565.1io +++| TTL 1IO/3IB/5IH - IMAGE MEMORY TABLE.
02784 M00S02566.1io +++| 5IH TITLE 580 WITH 596-6 PRINT TRAIN.
02785 M00S02567.1io +++| QUAL 5IH
02786 M00S02568.1io +++| IDENT 5IH,IMTX
02787 M00S02569.1io +++|*COMMENT 1IO - 580/596-6 IMAGE MEMORY.
| Line S02570 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02788 M01S02570.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02789 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02790 M00S02571.1io +++| 5IH SPACE 4,10 02791 M00S02572.1io +++| NCSL EQU 8D DEFINE SLUG SIZE 02792 M00S02573.1io +++| SPACE 4,10 02793 M00S02574.1io +++| ORG OIMT 02794 M00S02575.1io +++| 02795 M00S02576.1io +++| IMT SUBR ENTRY/EXIT 02796 M00S02577.1io +++| LDC TIMCL 02797 M00S02578.1io +++| UJN IMTX RETURN WITH TABLE LENGTH 02798 M00S02579.1io +++| TIMC SPACE 4,10 02799 M00S02580.1io +++| TIMC BSSZ 384D 02800 M00S02581.1io +++| NCHAR SET 0 02801 M00S02582.1io +++| 02802 M00S02583.1io +++|* DEFINE SYMBOLS X0-X7F FOR CORRESPONDING HEX VALUES. 02803 M00S02584.1io +++| 02804 M00S02585.1io +++| ECHO 3,P=(2,3,4,5,6,7) 02805 M00S02586.1io +++| ECHO 2,Q=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F) 02806 M00S02587.1io +++| NOREF X_P_Q 02807 M00S02588.1io +++| X_P_Q EQU 0#_P_Q 02808 M00S02589.1io +++| 02809 M00S02590.1io +++| BASE D 02810 M00S02591.1io +++| 02811 M00S02592.1io +++| ESLUG (X31,X37,X34,X33,X30,X32,X36,X35),1,13,25,37 02812 M00S02593.1io +++| ESLUG (X45,X2D,X2B,X2E,X48,X47,X39,X38),2,14,26,38 02813 M00S02594.1io +++| ESLUG (X46,X43,X42,X44,X52,X41,X4C,X49),3,15,27,39 02814 M00S02595.1io +++| ESLUG (X50,X4F,X51,X4B,X4D,X4E,X2A,X4A),4,16,28,40 02815 M00S02596.1io +++| ESLUG (X2F,X56,X54,X59,X57,X58,X55,X53),5,17,29,41 02816 M00S02597.1io +++| ESLUG (X27,X24,X23,X2C,X3E,X3D,X3C,X5A),6,18,30,42 02817 M00S02598.1io +++| ESLUG (X21,X31,X3F,X40,X30,X5C,X22,X60),7,19,31,43 02818 M00S02599.1io +++| ESLUG (X66,X61,X63,X65,X67,X62,X64,X68),8,20,32,44 02819 M00S02600.1io +++| ESLUG (X6C,X6B,X6D,X6E,X70,X6F,X6A,X69),9,21,33,45 02820 M00S02601.1io +++| ESLUG (X76,X77,X74,X78,X73,X75,X71,X72),10,22,34,46 02821 M00S02602.1io +++| ESLUG (X7E,X7C,X5F,X7D,X7B,X7A,X79,X5E),11,23,35,47 02822 M00S02603.1io +++| ESLUG (X3B,X26,X28,X29,X5B,X5D,X25,X3A),12,24,36,48 02823 M00S02604.1io +++| 02824 M00S02605.1io +++| BASE * 02825 M00S02606.1io +++| 02826 M00S02607.1io +++| ERRNZ /3IB/TIMC-TIMC 02827 M00S02608.1io +++| TIMCL EQU NCHAR 02828 M00S02609.1io +++| ERRNZ TIMCL-384D 02829 M00S02610.1io +++| 02830 M00S02611.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES 02831 M00S02612.1io +++| RER TTL 1IO/3IC - ERROR SUBROUTINES. 02832 M00S02613.1io +++| TITLE 02833 M00S02614.1io +++| QUAL 3IC 02834 M00S02615.1io +++| IDENT 3IC,RERX 02835 M00S02616.1io +++|*COMMENT 1IO - ERROR SUBROUTINES.
| Line S02617 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02836 M01S02617.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02837 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02838 M00S02618.1io +++| 3IC SPACE 4,10 02839 M00S02619.1io +++|** RER - RETURN CONTROL. 02840 M00S02620.1io +++| 02841 M00S02621.1io +++| 02842 M00S02622.1io +++| ORG OIES 02843 M00S02623.1io +++| 02844 M00S02624.1io +++| RER SUBR ENTRY/EXIT 02845 M00S02625.1io +++| UJN RERX RETURN 02846 M00S02626.1io +++| CAS SPACE 4,10 02847 M00S02627.1io +++|** CAS - CLEAR ASSIGNMENT. 02848 M00S02628.1io +++|* 02849 M00S02629.1io +++|* ENTRY (EQ) = EST ORDINAL / DEVICE TYPE. 02850 M00S02630.1io +++|* (EQ) = 0, IF NO EQUIPMENT ASSIGNED. 02851 M00S02631.1io +++|* (BA - BA+1) = BUFFER ADDRESS. 02852 M00S02632.1io +++|* (BA - BA+1) = 0, IF NO BUFFER ASSIGNED. 02853 M00S02633.1io +++|* (FA) = FNT ADDRESS. 02854 M00S02634.1io +++|* (FA) = 0 IF NO FILE ASSIGNED. 02855 M00S02635.1io +++|* (IR+1) SET. 02856 M00S02636.1io +++|* (IR+3) SET. 02857 M00S02637.1io +++|* 02858 M00S02638.1io +++|* EXIT EQUIPMENT RELEASED. 02859 M00S02639.1io +++|* BUFFER RELEASED. 02860 M00S02640.1io +++|* IF FILE IS TO BE RELEASED, THEN *1IO* IS RECALLED, 02861 M00S02641.1io +++|* AND *CIO* IS CALLED INTO THIS PP. 02862 M00S02642.1io +++|* OTHERWISE, EXIT IS MADE TO *RCL*. 02863 M00S02643.1io +++|* 02864 M00S02644.1io +++|* USES T1, T2, CM - CM+4. 02865 M00S02645.1io +++|* 02866 M00S02646.1io +++|* CALLS RLE, SFA, *DSP*. 02867 M00S02647.1io +++|* 02868 M00S02648.1io +++|* MACROS EXECUTE, MONITOR, NFA. 02869 M00S02649.1io +++| 02870 M00S02650.1io +++| 02871 M00S02651.1io +++| CAS BSS 0 ENTRY 02872 M00S02652.1io +++| LDN ZERL CLEAR BUFFER NAME 02873 M00S02653.1io +++| CRD CM 02874 M00S02654.1io +++| LDD BA CHECK FOR BUFFER ASSIGNMENT 02875 M00S02655.1io +++| ADD BA+1 02876 M00S02656.1io +++| ZJN CAS1 IF NO BUFFER ASSIGNED 02877 M00S02657.1io +++| RJM SFA CLEAR BUFFER 02878 M00S02658.1io +++| CWD CM 02879 M00S02659.1io +++| LDD EQ RESET BUFFER POINT WORD 02880 M00S02660.1io +++| SHN -3 02881 M00S02661.1io +++| STD CM+3 02882 M00S02662.1io +++| NFA BFCW 02883 M00S02663.1io +++| ADD IR+3 02884 M00S02664.1io +++| ADD IR+3 02885 M00S02665.1io +++| CWD CM 02886 M00S02666.1io +++| CAS1 RJM RLE RELEASE EQUIPMENT 02887 M00S02667.1io +++| LDD FA 02888 M00S02668.1io +++| NJN CAS3 IF FILE ASSIGNED 02889 M00S02669.1io +++| LJM RCL RECALL *1IO* 02890 M00S02670.1io +++| 02891 M00S02671.1io +++|* SET UP *DSP* CALL BLOCK. 02892 M00S02672.1io +++| 02893 M00S02673.1io +++| CAS3 NFA FA,R READ FILE NAME 02894 M00S02674.1io +++| CRM DSPP,ON 02895 M00S02675.1io +++| LDC DSPP+2 02896 M00S02676.1io +++| STD T1 02897 M00S02677.1io +++| CAS4 LDN 0 CLEAR *DSP* PARAMETER BLOCK 02898 M00S02678.1io +++| STI T1 02899 M00S02679.1io +++| AOD T1 02900 M00S02680.1io +++| LMC DSPPE 02901 M00S02681.1io +++| NJN CAS4 IF NOT END OF BLOCK 02902 M00S02682.1io +++| LDK FRPR+FRCS SET PRIORITY / CENTRAL SITE FLAGS 02903 M00S02683.1io +++| STM DSPP+1*5+4 02904 M00S02684.1io +++| LCN 0 SET MAXIMUM PRIORITY 02905 M00S02685.1io +++| STM DSPP+3*5+4 02906 M00S02686.1io +++| LDD FA SET FNT OFFSET 02907 M00S02687.1io +++| STM DSPP+4*5+4 02908 M00S02688.1io +++| LDN DSPBL SET PARAMETER BLOCK LENGTH 02909 M00S02689.1io +++| STD T1 02910 M00S02690.1io +++| LDD RA STORE *DSP* PARAMETER BLOCK 02911 M00S02691.1io +++| SHN 6
| Line S02692 Modification History | |
|---|---|
M01 (Removed by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02912 M01S02692.1io5 ---| ADC DSPB
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02913 M01S00011.1io5 +++| ADC QAPB 02914 M00S02693.1io +++| CWM DSPP,T1 02915 M00S02694.1io +++| 02916 M00S02695.1io +++|* RECALL *1IO* AND CALL *DSP*. 02917 M00S02696.1io +++| 02918 M00S02697.1io +++| EXECUTE DSP,= 02919 M00S02698.1io +++| LDD MA CALL *DSP* 02920 M00S02699.1io +++| CWM CASA,ON 02921 M00S02700.1io +++| LDN 0 ENABLE QUEUING OF PP REQUEST 02922 M00S02701.1io +++| STD CM+1 02923 M00S02702.1io +++| MONITOR RPPM 02924 M00S02703.1io +++| LJM RCL1 RECALL *1IO* 02925 M00S02704.1io +++|
| Line S02705 Modification History | |
|---|---|
M01 (Removed by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02926 M01S02705.1io5 ---| CASA VFD 18/0LDSP,24/0,18/DSPB
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02927 M01S00012.1io5 +++| CASA VFD 18/0LDSP,24/0,18/QAPB 02928 M00S02706.1io +++| ERM SPACE 4,10 02929 M00S02707.1io +++|** ERM - PROCESS ERROR MESSAGE. 02930 M00S02708.1io +++|* 02931 M00S02709.1io +++|* ENTRY (CS) = CONVERTER STATUS/BYTE COUNT. 02932 M00S02710.1io +++|* (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 02933 M00S02711.1io +++|* (FC) = FUNCTION CODE. 02934 M00S02712.1io +++|* (MC) = MESSAGE CODE. 02935 M00S02713.1io +++|* (ST) = EQUIPMENT STATUS. 02936 M00S02714.1io +++|* (ES - ES+4) = EST ENTRY. 02937 M00S02715.1io +++|* 02938 M00S02716.1io +++|* USES RT, T5. 02939 M00S02717.1io +++|* 02940 M00S02718.1io +++|* CALLS C2D, DFM, IBM. 02941 M00S02719.1io +++| 02942 M00S02720.1io +++| 02943 M00S02721.1io +++| ERM2 STD RT 02944 M00S02722.1io +++| 02945 M00S02723.1io +++| ERM SUBR ENTRY/EXIT 02946 M00S02724.1io +++| LDD MC CHECK MESSAGE CODE 02947 M00S02725.1io +++| SBN BAME 02948 M00S02726.1io +++| MJN ERMX IF MESSAGE ISSUED ONLY BY *QAP* 02949 M00S02727.1io +++| STD T5 02950 M00S02728.1io +++| RJM IBM PROCESS BML MESSAGE 02951 M00S02729.1io +++| LDD RT CHECK IF ERROR RETRIED 02952 M00S02730.1io +++| ZJN ERM1 IF ERROR NOT RETRIED 02953 M00S02731.1io +++| LPN 1 02954 M00S02732.1io +++| ZJN ERM2 IF RECOVERED ERROR 02955 M00S02733.1io +++| 02956 M00S02734.1io +++| ERM1 LDM TDFP,T5 SET MESSAGE ADDRESS 02957 M00S02735.1io +++| STD T5 02958 M00S02736.1io +++| LDD ES+3 SET EQUIPMENT TYPE
| Line S02737 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02959 M01S02737.252l678 ---| LPC 3777 02960 M00S02738.1io +++| STI T5 02961 M00S02739.1io +++| LDD EQ CONVERT UPPER TWO DIGITS OF EST ORDINAL 02962 M00S02740.1io +++| SHN -6 02963 M00S02741.1io +++| RJM C2D 02964 M00S02742.1io +++| STM 1,T5 02965 M00S02743.1io +++| LDD EQ CONVERT LOWER DIGIT OF EST ORDINAL 02966 M00S02744.1io +++| LPN 70 02967 M00S02745.1io +++| SHN 3 02968 M00S02746.1io +++| ADC 2R0 02969 M00S02747.1io +++| STM 2,T5 02970 M00S02748.1io +++| LDD T5 SEND MESSAGE TO DAYFILE 02971 M00S02749.1io +++| RJM DFM 02972 M00S02750.1io +++| LDC ERLN SEND MESSAGE TO ERROR LOG 02973 M00S02751.1io +++| LMD T5 02974 M00S02752.1io +++| RJM DFM 02975 M00S02753.1io +++| LJM ERMX RETURN 02976 M00S02754.1io +++| TDFP SPACE 4,10 02977 M00S02755.1io +++|** TDFP - TABLE OF PROCESSORS AND MESSAGES. 02978 M00S02756.1io +++|* 02979 M00S02757.1io +++|* *TDFP* IS A PARTIAL TABLE OF MESSAGES CONTAINING ONLY 02980 M00S02758.1io +++|* THOSE MESSAGES ISSUED BY *1IO*. 02981 M00S02759.1io +++| 02982 M00S02760.1io +++| 02983 M00S02761.1io +++| TDFP INDEX 02984 M00S02762.1io +++| INDEX ERJM-BAME,(=C*EQXXX INTERNAL/EXTERNAL REJECT.*) 02985 M00S02763.1io +++| INDEX ETPE-BAME,(=C*EQXXX TRANSMISSION PARITY ERROR.*) 02986 M00S02764.1io +++| INDEX EFTM-BAME,(=C*EQXXX FUNCTION TIMEOUT.*) 02987 M00S02765.1io +++| INDEX EITM-BAME,(=C*EQXXX INCOMPLETE DATA TRANSFER.*) 02988 M00S02766.1io +++| INDEX EEOM-BAME,(=C*EQXXX TURNED OFF BY SYSTEM.*) 02989 M00S02767.1io +++| INDEX ECBM-BAME,(=C*EQXXX CONTROLLER HUNG BUSY.*) 02990 M00S02768.1io +++| INDEX ECRE-BAME,(=C*EQXXX CHANNEL PARITY ERROR.*) 02991 M00S02769.1io +++| INDEX ECSE-BAME,(=C*EQXXX CCC/NIP STATUS ERROR.*) 02992 M00S02770.1io +++| INDEX ECLM-BAME,(=C*EQXXX CCC/NIP CONTROLWARE LOADED.*) 02993 M00S02771.1io +++| INDEX ECWE-BAME,(=C*EQXXX CCC/NIP CONTROLWARE LOAD ERROR.*) 02994 M00S02772.1io +++| INDEX ECNF-BAME,(=C*EQXXX CCC/NIP CONTROLWARE NOT FOUND.*) 02995 M00S02773.1io +++| INDEX ELME-BAME 02996 M00S02774.1io +++| IBM SPACE 4,10 02997 M00S02775.1io +++|** IBM - ISSUE BML MESSAGE. 02998 M00S02776.1io +++|* 02999 M00S02777.1io +++|* ENTRY (A) = INDEX INTO TABLES *TIPR*, *TISY*, AND *TINB*. 03000 M00S02778.1io +++|* (CS) = CONVERTER STATUS/BYTE COUNT. 03001 M00S02779.1io +++|* (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 03002 M00S02780.1io +++|* (FC) = FUNCTION CODE. 03003 M00S02781.1io +++|* (RT) = RETRY COUNT/UNRECOVERED FLAG. 03004 M00S02782.1io +++|* (ST) = EQUIPMENT STATUS. 03005 M00S02783.1io +++|* (T5) = ERROR LOG MESSAGE INDEX. 03006 M00S02784.1io +++|* (ES - ES+4) = EST ENTRY. 03007 M00S02785.1io +++|* 03008 M00S02786.1io +++|* USES T1, T2, CM - CM+4. 03009 M00S02787.1io +++|*
| Line S02788 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03010 M01S02788.242l642 ---|* CALLS DFM, DID.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03011 M01S00015.242l642 +++|* CALLS DFM, DMI. 03012 M00S02789.1io +++|* 03013 M00S02790.1io +++|* MACROS BLMSIDT, DBMLT. 03014 M00S02791.1io +++| 03015 M00S02792.1io +++| 03016 M00S02793.1io +++| IBM SUBR ENTRY/EXIT 03017 M00S02794.1io +++| STD T2
| Line S02795 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03018 M01S02795.242l642 ---| RJM DID DETERMINE MESSAGE ID
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03019 M01S00016.242l642 +++| RJM DMI DETERMINE BML MESSAGE ID 03020 M00S02796.1io +++| ZJN IBMX IF EQUIPMENT NOT FOUND 03021 M00S02797.1io +++| STM IBMA 03022 M00S02798.1io +++| LDK PPCP 03023 M00S02799.1io +++| CRD CM 03024 M00S02800.1io +++| LDD IA CALCULATE PP NUMBER 03025 M00S02801.1io +++| SBD CM+4 03026 M00S02802.1io +++| SHN 6-3 03027 M00S02803.1io +++| LMD ES+1 APPEND PP NUMBER
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03028 M01S00007.252l678 +++| SCN 37 03029 M01S00008.252l678 +++| LMD ES+1 03030 M00S02804.1io +++| STM IBMA+2 03031 M00S02805.1io +++| LDK MMFL 03032 M00S02806.1io +++| CRD CM 03033 M00S02807.1io +++| LDD CM MACHINE ID 03034 M00S02808.1io +++| STM IBMB+3 03035 M00S02809.1io +++| LDM TISY,T2 SYMPTOM CODE 03036 M00S02810.1io +++| STM IBMA+1 03037 M00S02811.1io +++| LDM TIPR,T2 SET POSTPROCESSOR ADDRESS 03038 M00S02812.1io +++| STD T1 03039 M00S02813.1io +++| LJM 0,T1 COMPLETE MESSAGE PROCESSING 03040 M00S02814.1io +++| 03041 M00S02815.1io +++|* CCC/NIP STATUS. 03042 M00S02816.1io +++| 03043 M00S02817.1io +++| IBM1 LDC DM0401 SET MESSAGE ID 03044 M00S02818.1io +++| STM IBMA 03045 M00S02819.1io +++| UJN IBM3 COMPLETE BML MESSAGE 03046 M00S02820.1io +++| 03047 M00S02821.1io +++|* FUNCTION REJECT, TRANSMISSION PARITY ERROR. 03048 M00S02822.1io +++| 03049 M00S02823.1io +++| IBM2 LDD CS 03050 M00S02824.1io +++| LPN 4 03051 M00S02825.1io +++| ZJN IBM3 IF REJECT MESSAGE 03052 M00S02826.1io +++| AOD T2 03053 M00S02827.1io +++| AOD T5 03054 M00S02828.1io +++| LDM TISY,T2 SYMPTOM CODE 03055 M00S02829.1io +++| STM IBMA+1 03056 M00S02830.1io +++| IBM3 LDD ST EQUIPMENT STATUS 03057 M00S02831.1io +++| STM IBMC+1 03058 M00S02832.1io +++|* UJN IBM4 COMPLETE BML MESSAGE 03059 M00S02833.1io +++| 03060 M00S02834.1io +++|* INCOMPLETE DATA TRANSFER. 03061 M00S02835.1io +++| 03062 M00S02836.1io +++| IBM4 LDD CS CONVERTER STATUS/BYTE COUNT 03063 M00S02837.1io +++| STM IBMC 03064 M00S02838.1io +++|* UJN IBM5 COMPLETE BML MESSAGE 03065 M00S02839.1io +++| 03066 M00S02840.1io +++|* CHANNEL PARITY ERROR. 03067 M00S02841.1io +++| 03068 M00S02842.1io +++| IBM5 LDD RT RETRY COUNT/UNRECOVERED FLAG 03069 M00S02843.1io +++| IBM6 STM IBMB+1 03070 M00S02844.1io +++|* UJN IBM7 COMPLETE BML MESSAGE 03071 M00S02845.1io +++| 03072 M00S02846.1io +++|* FUNCTION TIMEOUT, CONTROLLER HUNG BUSY. 03073 M00S02847.1io +++| 03074 M00S02848.1io +++| IBM7 LDD FC 03075 M00S02849.1io +++| STM IBMC+2 03076 M00S02850.1io +++| 03077 M00S02851.1io +++|* EQUIPMENT TURNED OFF. 03078 M00S02852.1io +++| 03079 M00S02853.1io +++| IBM8 LDD ES+4 SET EQUIPMENT NUMBER 03080 M00S02854.1io +++| SHN 0-11 03081 M00S02855.1io +++| LPN 7 03082 M00S02856.1io +++| SHN 6 03083 M00S02857.1io +++| STM IBMA+3 03084 M00S02858.1io +++| LDD EQ EST ORDINAL 03085 M00S02859.1io +++| SHN 0-3 03086 M00S02860.1io +++| STM IBMB 03087 M00S02861.1io +++| LDN ZERL CLEAR CM REGISTER FOR DAYFILE CALL 03088 M00S02862.1io +++| CRD CM 03089 M00S02863.1io +++| LDM TINB,T2 SET BYTE COUNT FOR MESSAGE 03090 M00S02864.1io +++| STD CM+1 03091 M00S02865.1io +++| LDC IBMA+BMLN SEND MESSAGE TO BML 03092 M00S02866.1io +++| RJM DFM 03093 M00S02867.1io +++| LJM IBMX RETURN 03094 M00S02868.1io +++| 03095 M00S02869.1io +++|** BML MESSAGE TABLE. 03096 M00S02870.1io +++| 03097 M00S02871.1io +++| 03098 M00S02872.1io +++| IBMA VFD 12/0,12/0,6/0,6/0,6/0,18/0 BML WORD 2 03099 M00S02873.1io +++| IBMB VFD 12/0,6/0,6/0,12/0,12/0,12/0 BML WORD 3 03100 M00S02874.1io +++| IBMC VFD 12/0,12/0,12/0,12/0,12/0 BML WORD 4 03101 M00S02875.1io +++| SPACE 4,10 03102 M00S02876.1io +++|** DEFINE BML PROCESSORS, SYMPTOM CODES, AND LENGTHS. 03103 M00S02877.1io +++| 03104 M00S02878.1io +++| 03105 M00S02879.1io +++| DBMLT ERJM,IBM2,/COMSDFS/HS0025,3*5 FUNCTION REJECT 03106 M00S02880.1io +++| DBMLT ETPE,IBM2,/COMSDFS/HS0010,3*5 TRANSMISSION PARITY 03107 M00S02881.1io +++| DBMLT EFTM,IBM7,/COMSDFS/HS0050,3*5 FUNCTION TIMEOUT 03108 M00S02882.1io +++| DBMLT EITM,IBM4,/COMSDFS/HS0005,3*5 INCOMPLETE TRANSFER 03109 M00S02883.1io +++| DBMLT EEOM,IBM8,/COMSDFS/HS0030,2*5 EQUIPMENT TURNED OFF 03110 M00S02884.1io +++| DBMLT ECBM,IBM7,/COMSDFS/HS0044,3*5 CONTROLLER HUNG BUSY 03111 M00S02885.1io +++| DBMLT ECRE,IBM5,/COMSDFS/HS0024,3*5 CHANNEL PARITY ERROR 03112 M00S02886.1io +++| DBMLT ECSE,IBM1,HI0113,3*5 CCC/NIP STATUS ERROR 03113 M00S02887.1io +++| DBMLT ECLM,IBM1,HI0111,3*5 CCC/NIP LOADED 03114 M00S02888.1io +++| DBMLT ECWE,IBM1,HI0112,3*5 CCC/NIP LOAD ERROR 03115 M00S02889.1io +++| DBMLT ECNF,IBMX,0,0 CCC/NIP CONTROLWARE NOT FOUND 03116 M00S02890.1io +++| SPACE 4,10 03117 M00S02891.1io +++| BLMSIDT 03118 M00S02892.1io +++| TIPR SPACE 4,10 03119 M00S02893.1io +++|** TIPR - TABLE OF PROCESSING ROUTINES. 03120 M00S02894.1io +++| 03121 M00S02895.1io +++| 03122 M00S02896.1io +++| TIPR INDEX 03123 M00S02897.1io +++| DUP ELME-BAME,1 03124 M00S02898.1io +++| CON IBMX 03125 M00S02899.1io +++| ORG TIPR 03126 M00S02900.1io +++| DTPR HERE 03127 M00S02901.1io +++| INDEX ELME-BAME 03128 M00S02902.1io +++| TISY SPACE 4,10 03129 M00S02903.1io +++|** TISY - TABLE OF SYMPTOM CODES. 03130 M00S02904.1io +++| 03131 M00S02905.1io +++| 03132 M00S02906.1io +++| TISY INDEX 03133 M00S02907.1io +++| DTSY HERE 03134 M00S02908.1io +++| INDEX ELME-BAME 03135 M00S02909.1io +++| TINB SPACE 4,10 03136 M00S02910.1io +++|** TINB - TABLE OF NUMBER OF BML BYTES. 03137 M00S02911.1io +++| 03138 M00S02912.1io +++| 03139 M00S02913.1io +++| TINB INDEX 03140 M00S02914.1io +++| DTNB HERE 03141 M00S02915.1io +++| INDEX ELME-BAME 03142 M00S02916.1io +++| OEQ SPACE 4,10 03143 M00S02917.1io +++|** OEQ - OFF EQUIPMENT. 03144 M00S02918.1io +++|* 03145 M00S02919.1io +++|* ENTRY (EQ) = EST ORDINAL / DEVICE TYPE. 03146 M00S02920.1io +++|* (IR+3) = BUFFER POINT NUMBER. 03147 M00S02921.1io +++|* 03148 M00S02922.1io +++|* USES MC, CM - CM+4. 03149 M00S02923.1io +++|* 03150 M00S02924.1io +++|* CALLS ERM, IOM. 03151 M00S02925.1io +++|* 03152 M00S02926.1io +++|* MACROS MONITOR, NFA. 03153 M00S02927.1io +++| 03154 M00S02928.1io +++| 03155 M00S02929.1io +++| OEQ SUBR ENTRY/EXIT 03156 M00S02930.1io +++| LDD EQ 03157 M00S02931.1io +++| SHN -3 03158 M00S02932.1io +++| STD CM+1 03159 M00S02933.1io +++| LDN OFES SET OFF STATUS 03160 M00S02934.1io +++| STD CM+2 03161 M00S02935.1io +++| MONITOR SEQM SET EQUIPMENT PARAMETER 03162 M00S02936.1io +++| LDN EEOM *EQXXX TURNED OFF BY SYSTEM.* 03163 M00S02937.1io +++| STD MC 03164 M00S02938.1io +++| RJM ERM SEND ERROR MESSAGE 03165 M00S02939.1io +++| LDN EOHE *OFF - CHECK ERRLOG.* 03166 M00S02940.1io +++| RJM IOM ISSUE OPERATOR MESSAGE 03167 M00S02941.1io +++| LDN ZERL 03168 M00S02942.1io +++| CRD CM 03169 M00S02943.1io +++| LDN ELAE ERROR LOG ALERT 03170 M00S02944.1io +++| STD CM+4 03171 M00S02945.1io +++| MONITOR EATM 03172 M00S02946.1io +++| UJN OEQX RETURN 03173 M00S02947.1io +++| PEF SPACE 4,10 03174 M00S02948.1io +++|** PEF - PROCESS ERROR FLAG. 03175 M00S02949.1io +++|* 03176 M00S02950.1io +++|* FILES IN PROCESS ARE RETURNED TO THE SYSTEM BY A *RERUN*. 03177 M00S02951.1io +++|* 03178 M00S02952.1io +++|* USES T1, CM - CM+4. 03179 M00S02953.1io +++|* 03180 M00S02954.1io +++|* MACROS NFA. 03181 M00S02955.1io +++| 03182 M00S02956.1io +++| 03183 M00S02957.1io +++| PEF SUBR ENTRY/EXIT 03184 M00S02958.1io +++| LDN ZERL 03185 M00S02959.1io +++| CRD CM 03186 M00S02960.1io +++| LDD RA 03187 M00S02961.1io +++| SHN 6 03188 M00S02962.1io +++| ADN DRQR 03189 M00S02963.1io +++| CWD CM CLEAR PENDING REQUEST 03190 M00S02964.1io +++| LDN MXEQ*2-2 03191 M00S02965.1io +++| STD T1 03192 M00S02966.1io +++| PEF1 NFA BFCW ENTER *RERUN* FOR ALL EQUIPMENTS 03193 M00S02967.1io +++| ADD T1 03194 M00S02968.1io +++| CRD CM 03195 M00S02969.1io +++| LDN RRNM ENTER *RERUN* OPERATOR FLAG FOR *1CD* 03196 M00S02970.1io +++| STD CM+4
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1io8 |
Seq # *Modification Id* Act ----------------------------+ 03197 M01S00001.1io8 +++| LCN 0 SET PRIORITY 03198 M01S00002.1io8 +++| STD CM+2 03199 M00S02971.1io +++| NFA BFCW STORE BUFFER POINT WORD 03200 M00S02972.1io +++| ADD T1 03201 M00S02973.1io +++| CWD CM 03202 M00S02974.1io +++| LCN 2 DECREMENT BUFFER POINT INDEX 03203 M00S02975.1io +++| RAD T1 03204 M00S02976.1io +++| PJN PEF1 IF NOT LAST BUFFER 03205 M00S02977.1io +++| UJN PEFX RETURN 03206 M00S02978.1io +++| SPACE 4,10 03207 M00S02979.1io +++|** COMMON DECKS. 03208 M00S02980.1io +++| 03209 M00S02981.1io +++| 03210 M00S02982.1io +++|*CALL COMPC2D 03211 M00S02983.1io +++| SPACE 4,10 03212 M00S02984.1io +++|** LITERALS BLOCK. 03213 M00S02985.1io +++| 03214 M00S02986.1io +++| 03215 M00S02987.1io +++| USE LITERALS 03216 M00S02988.1io +++| DSPP SPACE 4,10 03217 M00S02989.1io +++|** DSPP - *DSP* PARAMETER BUFFER. 03218 M00S02990.1io +++| 03219 M00S02991.1io +++| 03220 M00S02992.1io +++| DSPP BSS 0 03221 M00S02993.1io +++| DSPPE EQU DSPP+DSPBL*5 03222 M00S02994.1io +++| SPACE 4,10 03223 M00S02995.1io +++| OVERFLOW OIES,7777+DSPP-DSPPE 03224 M00S02996.1io +++| PRS TTL 1IO/3ID - 1IO PRESET BATCHIO. 03225 M00S02997.1io +++| TITLE 03226 M00S02998.1io +++| QUAL 3ID 03227 M00S02999.1io +++| IDENT 3ID,PRSX 03228 M00S03000.1io +++|*COMMENT 1IO - BATCHIO PRESET.
| Line S03001 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03229 M01S03001.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03230 M01S00011.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03231 M00S03002.1io +++| TITLE PRESET BATCHIO. 03232 M00S03003.1io +++| PRS SPACE 4,10 03233 M00S03004.1io +++|** PRS - PRESET BATCHIO. 03234 M00S03005.1io +++| 03235 M00S03006.1io +++| 03236 M00S03007.1io +++| ORG ORGR 03237 M00S03008.1io +++| 03238 M00S03009.1io +++| PRS SUBR ENTRY/EXIT 03239 M00S03010.1io +++| LDD IR+4 CHECK RECOVERY 03240 M00S03011.1io +++| LMN DRET 03241 M00S03012.1io +++| NJN PRS1 IF NOT DEADSTART RERUN 03242 M00S03013.1io +++| RJM RIO RECOVER *BATCHIO* 03243 M00S03014.1io +++| LDC 4000 SET RECOVERY FLAG 03244 M00S03015.1io +++| STD IR+4 03245 M00S03016.1io +++| PRS1 LDN 0 CLEAR INPUT REGISTER FLAGS 03246 M00S03017.1io +++| STD IR+2 03247 M00S03018.1io +++| STD IR+3 03248 M00S03019.1io +++| LDN ZERL CLEAR CONSOLE MESSAGE 03249 M00S03020.1io +++| CRD CM 03250 M00S03021.1io +++| LDD CP 03251 M00S03022.1io +++| ADN MS1W 03252 M00S03023.1io +++| CWD CM 03253 M00S03024.1io +++| LDN CTIR-1 CLEAR (RA - RA+CTIR) 03254 M00S03025.1io +++| STD CM+2 03255 M00S03026.1io +++| LDD HN SET SUBFUNCTION = RELATIVE ADDRESSES 03256 M00S03027.1io +++| STD CM+1 03257 M00S03028.1io +++| AOD CM+4 03258 M00S03029.1io +++| MONITOR CSTM 03259 M00S03030.1io +++| 03260 M00S03031.1io +++|* BUILD AVAILABLE EQUIPMENT TABLE. 03261 M00S03032.1io +++| 03262 M00S03033.1io +++| LDN ESTP READ EST POINTER 03263 M00S03034.1io +++| CRD CM 03264 M00S03035.1io +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 03265 M00S03036.1io +++| STD T1 03266 M00S03037.1io +++| LDN 0 03267 M00S03038.1io +++| STD T2 CLEAR TABLE INDEX 03268 M00S03039.1io +++| PRS4 AOD T1 ADVANCE EST ORDINAL 03269 M00S03040.1io +++| LMD CM+2 03270 M00S03041.1io +++| ZJP PRS8 IF END OF EST 03271 M00S03042.1io +++| SFA EST,T1 READ EST ENTRY 03272 M00S03043.1io +++| ADK EQDE 03273 M00S03044.1io +++| CRD CN READ EST ENTRY 03274 M00S03045.1io +++| LDD CN+3 03275 M00S03046.1io +++| ZJN PRS4 IF EQUIPMENT UNDEFINED 03276 M00S03047.1io +++| LCN 1 03277 M00S03048.1io +++| STD T3 03278 M00S03049.1io +++| PRS6 LDN 2 ADVANCE TABLE INDEX 03279 M00S03050.1io +++| RAD T3 03280 M00S03051.1io +++| LDM TEQT,T3 COMPARE EQUIPMENT TYPE 03281 M00S03052.1io +++| ZJN PRS4 IF END OF TABLE 03282 M00S03053.1io +++| LMD CN+3
| Line S03054 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03283 M01S03054.252l678 ---| LPC 3777 03284 M00S03055.1io +++| NJN PRS6 IF NO MATCH 03285 M00S03056.1io +++| LDN ZERL 03286 M00S03057.1io +++| CRD CN 03287 M00S03058.1io +++| LDD T2 CHECK BUFFER POINT AVAILABLE 03288 M00S03059.1io +++| SBN MXEQ 03289 M00S03060.1io +++| PJN PRS9 IF NONE LEFT 03290 M00S03061.1io +++| LDD T1 03291 M00S03062.1io +++| STD CN+3 03292 M00S03063.1io +++| SHN 3 SET EST ORDINAL AND TYPE IN TABLE 03293 M00S03064.1io +++| LMM TEQT+1,T3 03294 M00S03065.1io +++| STM TAEQ+1,T2 03295 M00S03066.1io +++| NFA BFCW STORE BUFFER POINT WORD 03296 M00S03067.1io +++| ADD T2 03297 M00S03068.1io +++| ADD T2 03298 M00S03069.1io +++| CWD CN 03299 M00S03070.1io +++| AOD T2 ADVANCE TABLE 03300 M00S03071.1io +++| LJM PRS4 LOOP 03301 M00S03072.1io +++| 03302 M00S03073.1io +++| PRS8 LDD T2 SET EQUIPMENT COUNT 03303 M00S03074.1io +++| STM TAEQ 03304 M00S03075.1io +++| NJN PRS10 IF EQUIPMENT AVAILABLE 03305 M00S03076.1io +++| LDC =C*NO EQUIPMENT AVAILABLE.* 03306 M00S03077.1io +++| RJM DFM 03307 M00S03078.1io +++| LJM DPP DROP PP 03308 M00S03079.1io +++| 03309 M00S03080.1io +++| PRS9 LDD T2 SET EQUIPMENT COUNT 03310 M00S03081.1io +++| STM TAEQ 03311 M00S03082.1io +++| LDC =C* NOT ALL EQUIPMENT SERVICABLE.* 03312 M00S03083.1io +++| RJM DFM 03313 M00S03084.1io +++| LDM TAEQ RESTORE 03314 M00S03085.1io +++| STD T2 03315 M00S03086.1io +++| PRS10 AOD T2 CLEAR REMAINDER OF TABLE 03316 M00S03087.1io +++| SBK TAEQL 03317 M00S03088.1io +++| PJN PRS11 IF END OF TABLE 03318 M00S03089.1io +++| LDN 0 03319 M00S03090.1io +++| STM TAEQ,T2 03320 M00S03091.1io +++| UJN PRS10 LOOP 03321 M00S03092.1io +++| 03322 M00S03093.1io +++| PRS11 LDN TAEQL/5 STORE AVAILABLE EQUIPMENT TABLE 03323 M00S03094.1io +++| STD T1 03324 M00S03095.1io +++| LDD RA 03325 M00S03096.1io +++| SHN 6 03326 M00S03097.1io +++| ADN TEQR 03327 M00S03098.1io +++| CWM TAEQ,T1 03328 M00S03099.1io +++| LDN 40 SET PRESET COMPLETE FLAG 03329 M00S03100.1io +++| RAD IR+1 03330 M00S03101.1io +++| LDN IPRL CHECK 64 CHARACTER SET 03331 M00S03102.1io +++| CRD CN 03332 M00S03103.1io +++| LDD CN+2 03333 M00S03104.1io +++| SHN 21-0 03334 M00S03105.1io +++| MJN PRS12 IF 64 CHARACTER SET 03335 M00S03106.1io +++| RJM CCT CHANGE CONVERSION TABLES 03336 M00S03107.1io +++| PRS12 LDC CTBLL/5 STORE CONVERSION TABLES 03337 M00S03108.1io +++| STD T1 03338 M00S03109.1io +++| LDD RA 03339 M00S03110.1io +++| SHN 6 03340 M00S03111.1io +++| ADN CTIR 03341 M00S03112.1io +++| CWM CTBL,T1
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 03342 M01S00013.1io5 +++| CWD ON-4 SET *DSP/QAC* BUFFER NOT BUSY 03343 M01S00014.1io5 +++| ERRNZ CTIR+CTBLL/5-QAPB CODE DEPENDS ON CONTIGUOUS BUFFERS 03344 M00S03113.1io +++| LDD CP READ CONTROL STATEMENT POINTER 03345 M00S03114.1io +++| ADN CSPW 03346 M00S03115.1io +++| CRD CM 03347 M00S03116.1io +++| ADN JCRW-CSPW READ JOB CONTROL REGISTERS 03348 M00S03117.1io +++| CRD CN 03349 M00S03118.1io +++| SBN JCRW-EOJW READ END OF JOB CONTROL 03350 M00S03119.1io +++| CRD FN 03351 M00S03120.1io +++| AOD CN+1 SET (R3) = 1 03352 M00S03121.1io +++| 03353 M00S03122.1io +++|* DISABLE OUTPUT FILE WHEN SUBSYSTEM IDLEDOWN. 03354 M00S03123.1io +++| 03355 M00S03124.1io +++| LDC NOJT*100-QOJT*100 03356 M00S03125.1io +++| RAD FN 03357 M00S03126.1io +++| LDC CSBN-1 SET NEXT CONTROL STATEMENT 03358 M00S03127.1io +++| STD CM+3 03359 M00S03128.1io +++| SBN 2 SET LIMIT OF CONTROL STATEMENTS 03360 M00S03129.1io +++| STD CM+4 03361 M00S03130.1io +++| NFA CSBN STORE CONTROL STATEMENTS FOR RECOVERY 03362 M00S03131.1io +++| CWM PRSA,TR 03363 M00S03132.1io +++| LDD CP UPDATE STATEMENT POINTERS 03364 M00S03133.1io +++| ADN CSPW 03365 M00S03134.1io +++| CWD CM 03366 M00S03135.1io +++| ADN JCRW-CSPW STORE JOB CONTROL REGISTERS 03367 M00S03136.1io +++| CWD CN 03368 M00S03137.1io +++| SBN JCRW-EOJW STORE END OF JOB CONTROL 03369 M00S03138.1io +++| CWD FN
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1io6 |
Seq # *Modification Id* Act ----------------------------+ 03370 M01S00002.1io6 +++| LDN ZERL 03371 M01S00003.1io6 +++| CRD CM 03372 M01S00004.1io6 +++| LDN BFL/100 SET INITIAL FL 03373 M01S00005.1io6 +++| STD CM+1 03374 M01S00006.1io6 +++| MONITOR RSTM 03375 M00S03139.1io +++| LDC SSCF*10000+BISI SET SUBSYSTEM ACCESSABILITY FLAG 03376 M00S03140.1io +++| RJM AST 03377 M00S03141.1io +++| LJM PRSX RETURN 03378 M00S03142.1io +++| 03379 M00S03143.1io +++| PRSA VFD 60/0 03380 M00S03144.1io +++| VFD 60/0LBIO1. 03381 M00S03145.1io +++| VFD 60/0LEXIT. 03382 M00S03146.1io +++| CCT SPACE 4,10 03383 M00S03147.1io +++|** CCT - CHANGE CONVERSION TABLES 03384 M00S03148.1io +++|* 03385 M00S03149.1io +++|* CCT CHANGES CONVERSION TABLES FROM 64 CHARACTER SET 03386 M00S03150.1io +++|* TRANSLATION TO 63 CHARACTER TRANSLATION. 03387 M00S03151.1io +++|* THE COLON WILL BE CHANGED FROM 00 TO 63 DISPLAY CODE, 03388 M00S03152.1io +++|* THE PERCENT WILL BE DROPPED, AND 00 DISPLAY WILL BE 03389 M00S03153.1io +++|* TRANSLATED TO A BLANK. 03390 M00S03154.1io +++| 03391 M00S03155.1io +++| 03392 M00S03156.1io +++| CCT SUBR ENTRY/EXIT 03393 M00S03157.1io +++| 03394 M00S03158.1io +++|* COMT6DP. 03395 M00S03159.1io +++| 03396 M00S03160.1io +++| LDN 55 SPACE 03397 M00S03161.1io +++| STM CTBA+1+16 03398 M00S03162.1io +++| LDN 63 COLON 03399 M00S03163.1io +++| STM CTBA+1+12 03400 M00S03164.1io +++| 03401 M00S03165.1io +++|* COMT9DP. 03402 M00S03166.1io +++| 03403 M00S03167.1io +++| LDN 55 SPACE 03404 M00S03168.1io +++| STM CTBB+1+34 03405 M00S03169.1io +++| LDN 63 COLON 03406 M00S03170.1io +++| STM CTBB+1+12 03407 M00S03171.1io +++| 03408 M00S03172.1io +++|* COMTDA8. 03409 M00S03173.1io +++| 03410 M00S03174.1io +++| LDN 40 SPACE 03411 M00S03175.1io +++| STM CTBC+1+00 03412 M00S03176.1io +++| LDN 72 COLON 03413 M00S03177.1io +++| STM CTBC+1+63 03414 M00S03178.1io +++| 03415 M00S03179.1io +++|* COMTDP6. 03416 M00S03180.1io +++| 03417 M00S03181.1io +++| LDN 0 BLANK NO PUNCH 03418 M00S03182.1io +++| STM CTBD+1+00 03419 M00S03183.1io +++| LDC 0202 COLON 8-2 03420 M00S03184.1io +++| STM CTBD+1+63 03421 M00S03185.1io +++| 03422 M00S03186.1io +++|* COMTDP9. 03423 M00S03187.1io +++| 03424 M00S03188.1io +++| LDN 0 BLANK NO PUNCH 03425 M00S03189.1io +++| STM CTBE+1+00 03426 M00S03190.1io +++| LDC 0202 COLON 8-2 03427 M00S03191.1io +++| STM CTBE+1+63 03428 M00S03192.1io +++| LJM CCTX EXIT 03429 M00S03193.1io +++| CTBL SPACE 4,10 03430 M00S03194.1io +++|** CTBL - CONVERSION TABLES. 03431 M00S03195.1io +++| 03432 M00S03196.1io +++| 03433 M00S03197.1io +++| CTBL BSS 0 03434 M00S03198.1io +++| 03435 M00S03199.1io +++| CTBA CON C6XD 03436 M00S03200.1io +++|*CALL COMT6DP
| Line S03201 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03437 M01S03201.284l847 ---| BSS CTBA+TLEN*5-* PRESERVE WORD BOUNDARY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03438 M01S00001.284l847 +++| BSS CTBA+CTLN*5-* PRESERVE WORD BOUNDARY 03439 M00S03202.1io +++| 03440 M00S03203.1io +++| CTBB CON C9XD 03441 M00S03204.1io +++|*CALL COMT9DP
| Line S03205 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03442 M01S03205.284l847 ---| BSS CTBB+TLEN*5-* PRESERVE WORD BOUNDARY
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03443 M01S00002.284l847 +++| BSS CTBB+CTLN*5-* PRESERVE WORD BOUNDARY 03444 M00S03206.1io +++| 03445 M00S03207.1io +++| CTBC CON CDX8 03446 M00S03208.1io +++|*CALL COMTDA8
| Line S03209 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03447 M01S03209.284l847 ---| BSS CTBC+TLEN*5-* PRESERVE WORD BOUNDARY
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03448 M01S00003.284l847 +++| BSS CTBC+CTLN*5-* PRESERVE WORD BOUNDARY 03449 M00S03210.1io +++| 03450 M00S03211.1io +++| CTBD CON CDXH 03451 M00S03212.1io +++|*CALL COMTDP6
| Line S03213 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03452 M01S03213.284l847 ---| BSS CTBD+TLEN*5-* PRESERVE WORD BOUNDARY
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03453 M01S00004.284l847 +++| BSS CTBD+CTLN*5-* PRESERVE WORD BOUNDARY 03454 M00S03214.1io +++| 03455 M00S03215.1io +++| CTBE CON CDXA 03456 M00S03216.1io +++|*CALL COMTDP9
| Line S03217 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03457 M01S03217.284l847 ---| BSS CTBE+TLEN*5-* PRESERVE WORD BOUNDARY
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03458 M01S00005.284l847 +++| BSS CTBE+CTLN*5-* PRESERVE WORD BOUNDARY 03459 M00S03218.1io +++| 03460 M00S03219.1io +++| CTBLL EQU *-CTBL 03461 M00S03220.1io +++| 03462 M00S03221.1io +++| ERRNZ CTBLL/5*5-CTBLL INSURE TABLE LENGTH IS MULTIPLE 03463 M00S03222.1io +++|* OF CM WORDS 03464 M00S03223.1io +++| TEQT SPACE 4,10 03465 M00S03224.1io +++|** TEQT - TABLE OF EQUIPMENT TYPES. 03466 M00S03225.1io +++|* ENTRY = 2 WORDS. 03467 M00S03226.1io +++|* 03468 M00S03227.1io +++|*T TEQT 12/MNEMONIC, 12/DEVICE TYPE
Figure TEQT
03469 M00S03228.1io +++| 03470 M00S03229.1io +++| 03471 M00S03230.1io +++| TEQT BSS 0 03472 M00S03231.1io +++| VFD 12/2RCP,12/CPDT 415 03473 M00S03232.1io +++| VFD 12/2RCR,12/CRDT 405 03474 M00S03233.1io +++| VFD 12/2RLQ,12/LPDT 512 03475 M00S03234.1io +++| VFD 12/2RLR,12/LPDT 580-12 03476 M00S03235.1io +++| VFD 12/2RLS,12/LPDT 580-16 03477 M00S03236.1io +++| VFD 12/2RLT,12/LPDT 580-20 03478 M00S03237.1io +++| VFD 12/2RLX,12/NPDT 5870 03479 M00S03238.1io +++| VFD 12/2RLY,12/NPDT 5970 03480 M00S03239.1io +++| DATA 0 03481 M00S03240.1io +++| SPACE 4,10 03482 M00S03241.1io +++|** COMMON DECKS. 03483 M00S03242.1io +++| 03484 M00S03243.1io +++| 03485 M00S03244.1io +++| QUAL$ SET 1 03486 M00S03245.1io +++| AST$ EQU 0 DEFINE *COMPAST* ACCESS TO *SSCT* 03487 M00S03246.1io +++|*CALL COMPAST 03488 M00S03247.1io +++|*CALL COMPSAF 03489 M00S03248.1io +++| TITLE RECOVER BATCHIO. 03490 M00S03249.1io +++| RIO SPACE 4,10 03491 M00S03250.1io +++|** RIO - RECOVER *BATCHIO*. 03492 M00S03251.1io +++|* 03493 M00S03252.1io +++|* USES T5, T7, BA - BA+1, CM - CM+4, CN - CN+4, FN - FN+4. 03494 M00S03253.1io +++|* 03495 M00S03254.1io +++|* CALLS CAB, DEQ, DFM, RQF, SAF, SFA. 03496 M00S03255.1io +++|* 03497 M00S03256.1io +++|* MACROS NFA. 03498 M00S03257.1io +++| 03499 M00S03258.1io +++| 03500 M00S03259.1io +++| RIO4 RJM DEQ DROP EQUIPMENT 03501 M00S03260.1io +++| LDC =C* RECOVERY COMPLETE.* 03502 M00S03261.1io +++| RJM DFM 03503 M00S03262.1io +++| 03504 M00S03263.1io +++| RIO SUBR ENTRY/EXIT 03505 M00S03264.1io +++| RJM CAB COUNT ACTIVE BUFFERS 03506 M00S03265.1io +++| ZJN RIO4 IF SUBSYSTEM IDLE 03507 M00S03266.1io +++| LDN MXEQ SET MAXIMUM EQUIPMENT COUNT 03508 M00S03267.1io +++| STD T5 03509 M00S03268.1io +++| LDN 0 SET FIRST FET ADDRESS 03510 M00S03269.1io +++| STD BA 03511 M00S03270.1io +++| LDC BUFR 03512 M00S03271.1io +++| STD BA+1 03513 M00S03272.1io +++| RIO1 RJM SFA READ FILE NAME 03514 M00S03273.1io +++| CRD FN 03515 M00S03274.1io +++| ADN 4 READ LIMIT WORD 03516 M00S03275.1io +++| CRD CN 03517 M00S03276.1io +++| ADN 5-4 READ FILE PARAMETER WORD 03518 M00S03277.1io +++| CRD T7 03519 M00S03278.1io +++| LDD FN 03520 M00S03279.1io +++| ZJN RIO2 IF BUFFER UNASSIGNED 03521 M00S03280.1io +++| LDD CN SEARCH FOR ASSIGNED FILE 03522 M00S03281.1io +++| RJM SAF 03523 M00S03282.1io +++| ZJN RIO2 IF FILE NOT FOUND 03524 M00S03283.1io +++| NFA T7,R 03525 M00S03284.1io +++| CRD CM 03526 M00S03285.1io +++| LCN 0 SET REQUEUING PRIORITY 03527 M00S03286.1io +++| STD CM+2 03528 M00S03287.1io +++| NFA T7,R STORE BUFFER POINT WORD 03529 M00S03288.1io +++| CWD CM 03530 M00S03289.1io +++| RJM RQF REQUEUE FILE 03531 M00S03290.1io +++| ZJN RIO3 IF ALL ACTIVE BUFFERS PROCESSED 03532 M00S03291.1io +++| RIO2 LDD CN+3 SET NEXT FET ADDRESS 03533 M00S03292.1io +++| STD BA 03534 M00S03293.1io +++| LDD CN+4 03535 M00S03294.1io +++| STD BA+1 03536 M00S03295.1io +++| SOD T5 DECREMENT EQUIPMENT COUNT 03537 M00S03296.1io +++| NJN RIO1 IF ALL EQUIPMENT NOT CHECKED 03538 M00S03297.1io +++| RIO3 LJM RIO4 DROP EQUIPMENT 03539 M00S03298.1io +++| TITLE RECOVERY SUBROUTINES. 03540 M00S03299.1io +++| CAB SPACE 4,10 03541 M00S03300.1io +++|** CAB - COUNT ACTIVE BUFFERS. 03542 M00S03301.1io +++|* 03543 M00S03302.1io +++|* EXIT (A) = (T6) = ACTIVE BUFFER COUNT. 03544 M00S03303.1io +++|* 03545 M00S03304.1io +++|* USES T7, CM - CM+4. 03546 M00S03305.1io +++| 03547 M00S03306.1io +++| 03548 M00S03307.1io +++| CAB SUBR ENTRY/EXIT 03549 M00S03308.1io +++| LDN D1AR SET FIRST DRIVER ASSIGNMENT WORD 03550 M00S03309.1io +++| STD T7 03551 M00S03310.1io +++| LDN 0 CLEAR BUFFER COUNT 03552 M00S03311.1io +++| STD T6 03553 M00S03312.1io +++| CAB1 LDD RA READ DRIVER ASSIGNMENT WORD 03554 M00S03313.1io +++| SHN 6 03555 M00S03314.1io +++| ADD T7 03556 M00S03315.1io +++| CRD CM 03557 M00S03316.1io +++| LDD CM+1 CHECK DRIVER ASSIGNED 03558 M00S03317.1io +++| SCN 77 03559 M00S03318.1io +++| SHN 6 03560 M00S03319.1io +++| LMD CM 03561 M00S03320.1io +++| LMC 3RD1C 03562 M00S03321.1io +++| NJN CAB2 IF DRIVER NOT ASSIGNED 03563 M00S03322.1io +++| LDD CM+3 ADVANCE ACTIVE BUFFER COUNT 03564 M00S03323.1io +++| RAD T6 03565 M00S03324.1io +++| CAB2 AOD T7 ADVANCE ASSIGNMENT ADDRESS 03566 M00S03325.1io +++| LMN DRQR 03567 M00S03326.1io +++| NJN CAB1 IF NOT END OF DRIVER WORDS 03568 M00S03327.1io +++| LDD T6 03569 M00S03328.1io +++| UJN CABX RETURN 03570 M00S03329.1io +++| DEQ SPACE 4,10 03571 M00S03330.1io +++|** DEQ - DROP EQUIPMENT. 03572 M00S03331.1io +++|* 03573 M00S03332.1io +++|* USES T6, T7, CM - CM+4, CN - CN+4, FS - FS+4. 03574 M00S03333.1io +++|* 03575 M00S03334.1io +++|* MACROS MONITOR, SFA. 03576 M00S03335.1io +++| 03577 M00S03336.1io +++| 03578 M00S03337.1io +++| DEQ SUBR ENTRY/EXIT 03579 M00S03338.1io +++| LDN ESTP READ EST POINTER 03580 M00S03339.1io +++| CRD FS 03581 M00S03340.1io +++| LDD CP FETCH EJT ORDINAL 03582 M00S03341.1io +++| ADN TFSW 03583 M00S03342.1io +++| CRD T6 03584 M00S03343.1io +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 03585 M00S03344.1io +++| STD T7 03586 M00S03345.1io +++| DEQ1 AOD T7 ADVANCE EST ORDINAL 03587 M00S03346.1io +++| STD CM+1 03588 M00S03347.1io +++| LMD FS+2 03589 M00S03348.1io +++| ZJN DEQX IF END OF EST 03590 M00S03349.1io +++| SFA EST,T7 READ EQUIPMENT ASSIGNMENT 03591 M00S03350.1io +++| ADK EQAE 03592 M00S03351.1io +++| CRD CN 03593 M00S03352.1io +++| LDD CN+4 03594 M00S03353.1io +++| LMD T6 03595 M00S03354.1io +++| NJN DEQ1 IF NOT ASSIGNED TO THIS JOB 03596 M00S03355.1io +++| MONITOR DEQM RELEASE EQUIPMENT 03597 M00S03356.1io +++| UJN DEQ1 LOOP TO END OF EST 03598 M00S03357.1io +++| RQF SPACE 4,15 03599 M00S03358.1io +++|** RQF - REQUEUE FILE. 03600 M00S03359.1io +++|* 03601 M00S03360.1io +++|* ENTRY (T6) = ACTIVE BUFFER COUNT. 03602 M00S03361.1io +++|* (BA - BA+1) = FET ADDRESS. 03603 M00S03362.1io +++|* (FN - FN+4) = FILE NAME. 03604 M00S03363.1io +++|* 03605 M00S03364.1io +++|* EXIT (A) = (T6) = ACTIVE BUFFER COUNT DECREMENTED. 03606 M00S03365.1io +++|* 03607 M00S03366.1io +++|* USES CM - CM+4. 03608 M00S03367.1io +++|* 03609 M00S03368.1io +++|* CALLS SFA, WNB. 03610 M00S03369.1io +++|* 03611 M00S03370.1io +++|* MACROS DELAY, MONITOR, PAUSE. 03612 M00S03371.1io +++| 03613 M00S03372.1io +++| 03614 M00S03373.1io +++| RQF2 RJM WNB WAIT NOT BUSY 03615 M00S03374.1io +++| SOD T6 DECREMENT ACTIVE BUFFER COUNT 03616 M00S03375.1io +++| 03617 M00S03376.1io +++| RQF SUBR ENTRY/EXIT 03618 M00S03377.1io +++| LDD BA+1 SET FET ADDRESS IN *QAP* CALL 03619 M00S03378.1io +++| STM RQFA+4 03620 M00S03379.1io +++| LDD BA 03621 M00S03380.1io +++| STM RQFA+3 03622 M00S03381.1io +++| LDC RQFF SET *QAP* FUNCTION IN FET 03623 M00S03382.1io +++| STD FN+4 03624 M00S03383.1io +++| RJM SFA STORE FUNCTION IN FET 03625 M00S03384.1io +++| CWD FN 03626 M00S03385.1io +++| ADN QAPO SET *DSP* PARAMETER BLOCK BUSY 03627 M00S03386.1io +++| CWD FN 03628 M00S03387.1io +++| RQF1 LDD MA STORE *QAP* CALL 03629 M00S03388.1io +++| CWM RQFA,ON 03630 M00S03389.1io +++| LDN 0 ALLOW QUEUING OF PP REQUEST 03631 M00S03390.1io +++| STD CM+1 03632 M00S03391.1io +++| MONITOR RPPM 03633 M00S03392.1io +++| LDD CM+1 03634 M00S03393.1io +++| NJN RQF2 IF PP ASSIGNED / REQUEST QUEUED 03635 M00S03394.1io +++| DELAY WAIT AWHILE 03636 M00S03395.1io +++| PAUSE CHECK ERROR FLAG 03637 M00S03396.1io +++| LDD CM+1 03638 M00S03397.1io +++| ZJN RQF1 IF NO ERROR FLAG SET 03639 M00S03398.1io +++| MONITOR ABTM ABORT JOB 03640 M00S03399.1io +++| LJM PPR EXIT TO PP RESIDENT 03641 M00S03400.1io +++| 03642 M00S03401.1io +++| RQFA VFD 18/0LQAP,42/BUFR 03643 M00S03402.1io +++| WNB SPACE 4,10 03644 M00S03403.1io +++|** WNB - WAIT NOT BUSY. 03645 M00S03404.1io +++|* 03646 M00S03405.1io +++|* USES FN - FN+4. 03647 M00S03406.1io +++|* 03648 M00S03407.1io +++|* CALLS SFA. 03649 M00S03408.1io +++|* 03650 M00S03409.1io +++|* MACROS DELAY, MONITOR, PAUSE. 03651 M00S03410.1io +++| 03652 M00S03411.1io +++| 03653 M00S03412.1io +++| WNB2 RJM SFA CHECK *DSP* PARAMETER BLOCK 03654 M00S03413.1io +++| ADN QAPO 03655 M00S03414.1io +++| CRD FN 03656 M00S03415.1io +++| LDD FN+4 03657 M00S03416.1io +++| LPN 1 03658 M00S03417.1io +++| ZJN WNB1 IF FILE BUSY 03659 M00S03418.1io +++| 03660 M00S03419.1io +++| WNB SUBR ENTRY/EXIT 03661 M00S03420.1io +++| WNB1 DELAY WAIT AWHILE 03662 M00S03421.1io +++| PAUSE CHECK ERROR FLAG 03663 M00S03422.1io +++| LDD CM+1 03664 M00S03423.1io +++| ZJN WNB2 IF NO ERROR FLAG SET 03665 M00S03424.1io +++| MONITOR ABTM ABORT JOB 03666 M00S03425.1io +++| LJM PPR EXIT TO PP RESIDENT 03667 M00S03426.1io +++| SPACE 4,10 03668 M00S03427.1io +++| OVERFLOW ORGR,BFMS 03669 M00S03428.1io +++| TTL 1IO/3IF - LOAD CCC/NIP CONTROLWARE. 03670 M00S03429.1io +++| TITLE 03671 M00S03430.1io +++| QUAL 3IF 03672 M00S03431.1io +++| IDENT 3IF,LCCX 03673 M00S03432.1io +++|*COMMENT 1IO - LOAD CCC/NIP CONTROLWARE.
| Line S03433 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03674 M01S03433.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03675 M01S00012.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03676 M00S03434.1io +++| 3IF SPACE 4,15 03677 M00S03435.1io +++|** *3IF* LOADS 5870/5970 CONTROLWARE INTO A CYBER CHANNEL 03678 M00S03436.1io +++|* COUPLER (CCC). 03679 M00S03437.1io +++| SPACE 4,10 03680 M00S03438.1io +++|** COMMON DECKS. 03681 M00S03439.1io +++| 03682 M00S03440.1io +++| 03683 M00S03441.1io +++|*CALL COMSMSP 03684 M00S03442.1io +++| SPACE 4,10 03685 M00S03443.1io +++|** CCC8700 FILE INFORMATION. 03686 M00S03444.1io +++| 03687 M00S03445.1io +++| 03688 M00S03446.1io +++| T52W EQU 17 52 TABLE WORD 03689 M00S03447.1io +++| LDTL EQU 20 LOADER TABLES LENGTH 03690 M00S03448.1io +++| TITLE MAIN ROUTINE. 03691 M00S03449.1io +++| LCC SPACE 4,20 03692 M00S03450.1io +++|** LCC - LOAD CCC CONTROLWARE. 03693 M00S03451.1io +++|* 03694 M00S03452.1io +++|* ENTRY (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 03695 M00S03453.1io +++|* (ES - ES+4) = EST ENTRY. 03696 M00S03454.1io +++|* EQUIPMENT AND CHANNEL RESERVED. 03697 M00S03455.1io +++|* 03698 M00S03456.1io +++|* EXIT (A) = 0 IF CONTROLWARE LOADED. 03699 M00S03457.1io +++|* 03700 M00S03458.1io +++|* ERROR TO *FCN3* IF LOAD ERROR. 03701 M00S03459.1io +++|* 03702 M00S03460.1io +++|* USES CN, MC. 03703 M00S03461.1io +++|* 03704 M00S03462.1io +++|* CALLS CGS, COE, GCW, LCW, RSI, /3IC/ERM. 03705 M00S03463.1io +++|* 03706 M00S03464.1io +++|* MACROS EXECUTE. 03707 M00S03465.1io +++| 03708 M00S03466.1io +++| 03709 M00S03467.1io +++| ORG ORGR 03710 M00S03468.1io +++| 03711 M00S03469.1io +++| LCC SUBR ENTRY/EXIT 03712 M00S03470.1io +++| LDD FL SAVE FIELD LENGTH 03713 M00S03471.1io +++| STD CN 03714 M00S03472.1io +++| RJM GCW GET CCC/NIP CONTROLWARE 03715 M00S03473.1io +++| NJN LCCX IF STORAGE NOT AVAILABLE 03716 M00S03474.1io +++| RJM LCW LOAD CCC/NIP CONTROLWARE 03717 M00S03475.1io +++| LDD CN RESET FIELD LENGTH 03718 M00S03476.1io +++| RJM RSI 03719 M00S03477.1io +++| RJM CGS GET GENERAL STATUS 03720 M00S03478.1io +++| NJN LCC2 IF ERROR 03721 M00S03479.1io +++| LDD ST 03722 M00S03480.1io +++| NJN LCC1 IF LOAD ERROR 03723 M00S03481.1io +++| RJM COE CHECK OTHER EQUIPMENT 03724 M00S03482.1io +++| LDN ECLM *EQXXX CCC/NIP CONTROLWARE LOADED.* 03725 M00S03483.1io +++| STD MC 03726 M00S03484.1io +++| EXECUTE 3IC 03727 M00S03485.1io +++| RJM /3IC/ERM SEND ERROR MESSAGE 03728 M00S03486.1io +++| LDN 0 LOAD SUCCESSFUL 03729 M00S03487.1io +++| UJN LCCX RETURN 03730 M00S03488.1io +++| 03731 M00S03489.1io +++| LCC1 LDN ECLE *EQXXX CCC/NIP CONTROLWARE LOAD ERROR.* 03732 M00S03490.1io +++| LCC2 LJM FCN3 PROCESS ERROR 03733 M00S03491.1io +++| SPACE 4,10 03734 M00S03492.1io +++| ERRNG OIES-5-* *3IC* OVERLAYS CODE 03735 M00S03493.1io +++| TITLE SUBROUTINES. 03736 M00S03494.1io +++| COE SPACE 4,10 03737 M00S03495.1io +++|** COE - CHECK OTHER EQUIPMENT. 03738 M00S03496.1io +++|* 03739 M00S03497.1io +++|* ENTRY (ES+1) = CURRENT CHANNEL BEING LOADED. 03740 M00S03498.1io +++|* 03741 M00S03499.1io +++|* USES T1, CN - CN+4. 03742 M00S03500.1io +++|* 03743 M00S03501.1io +++|* CALLS UES. 03744 M00S03502.1io +++|* 03745 M00S03503.1io +++|* MACROS SFA. 03746 M00S03504.1io +++| 03747 M00S03505.1io +++| 03748 M00S03506.1io +++| COE SUBR ENTRY/EXIT 03749 M00S03507.1io +++| LDM TAEQ SET AVAILABLE EQUIPMENT COUNT 03750 M00S03508.1io +++| STD T1 03751 M00S03509.1io +++| COE1 LDM TAEQ,T1 LOOK FOR NON-IMPACT PRINTER 03752 M00S03510.1io +++| LPN 7 03753 M00S03511.1io +++| SBK NPDT 03754 M00S03512.1io +++| ZJN COE3 IF NON-IMPACT PRINTER 03755 M00S03513.1io +++| COE2 SOD T1 03756 M00S03514.1io +++| NJN COE1 IF MORE EQUIPMENT TO CHECK 03757 M00S03515.1io +++| UJN COEX RETURN 03758 M00S03516.1io +++| 03759 M00S03517.1io +++| COE3 LDM TAEQ,T1 READ EQUIPMENT EST ENTRY 03760 M00S03518.1io +++| SHN -3 03761 M00S03519.1io +++| SFA EST 03762 M00S03520.1io +++| ADK EQDE 03763 M00S03521.1io +++| CRD CN 03764 M00S03522.1io +++| LDD CN CHECK CONTROLWARE LOAD REQUIRED 03765 M00S03523.1io +++| SHN 21-4 03766 M00S03524.1io +++| PJN COE2 IF NOT CONTROLWARE LOAD REQUIRED 03767 M00S03525.1io +++| LDD ES+1
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03768 M01S00009.252l678 +++| LMD CN+1 03769 M00S03526.1io +++| LPN 37
| Line S03527 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03770 M01S03527.252l678 ---| LMD CN+1 03771 M00S03528.1io +++| NJN COE2 IF NOT CURRENT CHANNEL 03772 M00S03529.1io +++| LDM TAEQ,T1 03773 M00S03530.1io +++| RJM UES UPDATE EQUIPMENT STATUS 03774 M00S03531.1io +++| UJN COE2 CHECK NEXT EQUIPMENT 03775 M00S03532.1io +++| GCB SPACE 4,10 03776 M00S03533.1io +++|** GCB - GET CENTRAL MEMORY BUFFER. 03777 M00S03534.1io +++|* 03778 M00S03535.1io +++|* ENTRY (A) = BUFFER SIZE NEEDED (CM WORDS). 03779 M00S03536.1io +++|* 03780 M00S03537.1io +++|* EXIT (A) = 0 IF BUFFER ASSIGNED. 03781 M00S03538.1io +++|* 03782 M00S03539.1io +++|* USES CM - CM+4. 03783 M00S03540.1io +++|* 03784 M00S03541.1io +++|* MACROS MONITOR. 03785 M00S03542.1io +++| 03786 M00S03543.1io +++| 03787 M00S03544.1io +++| GCB SUBR ENTRY/EXIT 03788 M00S03545.1io +++| ADC 77+LDTL 03789 M00S03546.1io +++| SHN -6 03790 M00S03547.1io +++| ADD FL 03791 M00S03548.1io +++| STD CM+1 03792 M00S03549.1io +++| LDN 0 03793 M00S03550.1io +++| STD CM+2 03794 M00S03551.1io +++| MONITOR RSTM REQUEST STORAGE INCREASE 03795 M00S03552.1io +++| LDD CM+1 03796 M00S03553.1io +++| UJN GCBX RETURN 03797 M00S03554.1io +++| GCW SPACE 4,15 03798 M00S03555.1io +++|** GCW - GET CCC/NIP CONTROLWARE. 03799 M00S03556.1io +++|* 03800 M00S03557.1io +++|* EXIT (A) = 0 IF CONTROLWARE MOVED TO CM. 03801 M00S03558.1io +++|* (CN+3 - CN+4) = LENGTH OF CONTROLWARE. 03802 M00S03559.1io +++|* 03803 M00S03560.1io +++|* ERROR TO *MSR1* IF CONTROLWARE NOT FOUND. 03804 M00S03561.1io +++|* 03805 M00S03562.1io +++|* USES T5, T6, T7, AB - AB+4, CM - CM+4, FN - FN+4. 03806 M00S03563.1io +++|* 03807 M00S03564.1io +++|* CALLS GCB, CLD, RNS. 03808 M00S03565.1io +++|* 03809 M00S03566.1io +++|* MACROS ENDMS, SETMS. 03810 M00S03567.1io +++| 03811 M00S03568.1io +++| 03812 M00S03569.1io +++| GCW SUBR ENTRY/EXIT 03813 M00S03570.1io +++| LDD MA SET CONTROLWARE RECORD NAME 03814 M00S03571.1io +++| CWM CCCN,ON 03815 M00S03572.1io +++| SBN 1 03816 M00S03573.1io +++| CRD AB 03817 M00S03574.1io +++| RJM CLD SEARCH CENTRAL LIBRARY DIRECTORY 03818 M00S03575.1io +++| NJN GCW1 IF CONTROLWARE RECORD FOUND 03819 M00S03576.1io +++| LDN ECNF *EQXXX CCC/NIP CONTROLWARE NOT FOUND.* 03820 M00S03577.1io +++| LJM MSR1 PROCESS ERROR 03821 M00S03578.1io +++| 03822 M00S03579.1io +++| GCW1 CRD FN READ TRACK AND SECTOR 03823 M00S03580.1io +++| LDN FNTP GET SYSTEM EQUIPMENT 03824 M00S03581.1io +++| CRD CM 03825 M00S03582.1io +++| LDD CM READ SYSTEM FST 03826 M00S03583.1io +++| SHN 14 03827 M00S03584.1io +++| ADD CM+1 03828 M00S03585.1io +++| ADK SYFO*FNTE+FSTG 03829 M00S03586.1io +++| CRD T5 03830 M00S03587.1io +++| SETMS READSYS 03831 M00S03588.1io +++| LDD FN+3 SET FILE POINTERS 03832 M00S03589.1io +++| STD T6 TRACK 03833 M00S03590.1io +++| LDD FN+4 SECTOR 03834 M00S03591.1io +++| STD T7 03835 M00S03592.1io +++| LDN 0 SET FIRST SECTOR FLAG 03836 M00S03593.1io +++| STD FN+1 03837 M00S03594.1io +++| GCW2 LDC BFMS READ SECTOR 03838 M00S03595.1io +++| RJM RNS 03839 M00S03596.1io +++| ZJN GCW4 IF END OF FIRMWARE 03840 M00S03597.1io +++| STD FN SAVE WORD COUNT 03841 M00S03598.1io +++| LDD FN+1 CHECK IF FIRST SECTOR 03842 M00S03599.1io +++| NJN GCW3 IF NOT FIRST SECTOR 03843 M00S03600.1io +++| ENDMS 03844 M00S03601.1io +++| LDM BFMS+2+T52W*5+3 SET BUFFER SIZE REQUIRED 03845 M00S03602.1io +++| STD CN+3 03846 M00S03603.1io +++| SHN 14 03847 M00S03604.1io +++| ADM BFMS+2+T52W*5+4 03848 M00S03605.1io +++| STD CN+4 03849 M00S03606.1io +++| RJM GCB GET CENTRAL MEMORY BUFFER 03850 M00S03607.1io +++| NJN GCW5 IF BUFFER NOT ASSIGNED 03851 M00S03608.1io +++| GCW3 LDD RA WRITE BUFFER TO CENTRAL MEMORY 03852 M00S03609.1io +++| ADD CN 03853 M00S03610.1io +++| ADD FN+1 03854 M00S03611.1io +++| SHN 6 03855 M00S03612.1io +++| CWM BFMS+2,FN 03856 M00S03613.1io +++| AOD FN+1 03857 M00S03614.1io +++| LDD FN CHECK FOR EOR 03858 M00S03615.1io +++| SHN -6 03859 M00S03616.1io +++| NJN GCW2 IF NOT END OF FIRMWARE 03860 M00S03617.1io +++| GCW4 ENDMS 03861 M00S03618.1io +++|* LDN 0 03862 M00S03619.1io +++| GCW5 LJM GCWX RETURN 03863 M00S03620.1io +++| LCW SPACE 4,10 03864 M00S03621.1io +++|** LCW - LOAD CCC/NIP CONTROLWARE. 03865 M00S03622.1io +++|* 03866 M00S03623.1io +++|* ENTRY (CN) = FWA / 100B OF BUFFER. 03867 M00S03624.1io +++|* (CN+3 - CN+4) = CONTROLWARE LENGTH. 03868 M00S03625.1io +++|* 03869 M00S03626.1io +++|* ERROR TO *MSR1* IF ERROR. 03870 M00S03627.1io +++|* 03871 M00S03628.1io +++|* USES CS, FN, FN+1, CN+3 - CN+4. 03872 M00S03629.1io +++|* 03873 M00S03630.1io +++|* CALLS CFN, MCI. 03874 M00S03631.1io +++| 03875 M00S03632.1io +++| 03876 M00S03633.1io +++| LCW3 STD CN+4 SET REMAINING WORD COUNT 03877 M00S03634.1io +++| SHN -6 03878 M00S03635.1io +++| NJN LCW4 IF MORE THAN 100B WORDS 03879 M00S03636.1io +++| LDD CN+4 03880 M00S03637.1io +++| STD FN 03881 M00S03638.1io +++| LCW4 SHN -6 03882 M00S03639.1io +++| STD CN+3 03883 M00S03640.1io +++| LCW5 LDD RA READ NEXT BUFFER 03884 M00S03641.1io +++| ADD CN 03885 M00S03642.1io +++| ADD FN+1 03886 M00S03643.1io +++| SHN 6 03887 M00S03644.1io +++| ADN LDTL 03888 M00S03645.1io +++| CRM BFMS+2,FN 03889 M00S03646.1io +++| LDD FN COMPUTE BYTE COUNT 03890 M00S03647.1io +++| SHN 2 03891 M00S03648.1io +++| ADD FN 03892 M00S03649.1io +++| OAM BFMS+2,CH 03893 M00S03650.1io +++| NJN LCW1 IF INCOMPLETE TRANSFER 03894 M00S03651.1io +++| AOD FN+1 ADVANCE BUFFER ADDRESS 03895 M00S03652.1io +++| LDD CN+3 03896 M00S03653.1io +++| SHN 14 03897 M00S03654.1io +++| ADD CN+4 03898 M00S03655.1io +++| SBD FN 03899 M00S03656.1io +++| NJN LCW3 IF MORE TO LOAD 03900 M00S03657.1io +++| FJM *,CH IF TRANSFER NOT COMPLETE 03901 M00S03658.1io +++| DCN CH+40 03902 M00S03659.1io +++| 03903 M00S03660.1io +++| LCW SUBR ENTRY/EXIT 03904 M00S03661.1io +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 03905 M00S03662.1io +++| LDD HN 03906 M00S03663.1io +++| STD FN 03907 M00S03664.1io +++| LDC 414 ISSUE AUTOLOAD FUNCTION 03908 M00S03665.1io +++| RJM CFN 03909 M00S03666.1io +++| STD FN+1 03910 M00S03667.1io +++| NJN LCW2 IF ERROR 03911 M00S03668.1io +++| ACN CH 03912 M00S03669.1io +++| LJM LCW5 OUTPUT CONTROLWARE TO CCC 03913 M00S03670.1io +++| 03914 M00S03671.1io +++| LCW1 STD CS SAVE BYTE COUNT 03915 M00S03672.1io +++| LDN EITM *EQXXX INCOMPLETE DATA TRANSFER.* 03916 M00S03673.1io +++| LCW2 LJM MSR1 PROCESS ERROR 03917 M00S03674.1io +++| MCI SPACE 4,10 03918 M00S03675.1io +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 03919 M00S03676.1io +++|* 03920 M00S03677.1io +++|* ENTRY (ES+1) = CHANNEL NUMBER. 03921 M00S03678.1io +++|* 03922 M00S03679.1io +++|* USES T1, T2. 03923 M00S03680.1io +++| 03924 M00S03681.1io +++| 03925 M00S03682.1io +++| MCI1 RAI T2 03926 M00S03683.1io +++| AOD T1 03927 M00S03684.1io +++| MCI2 LDI T1 03928 M00S03685.1io +++| STD T2 03929 M00S03686.1io +++| LDD ES+1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03930 M01S00010.252l678 +++| LPN 37 03931 M00S03687.1io +++| CHTL * 03932 M00S03688.1io +++| SBN CH 03933 M00S03689.1io +++| NJN MCI1 IF MORE INSTRUCTIONS TO MODIFY 03934 M00S03690.1io +++| 03935 M00S03691.1io +++| MCI SUBR ENTRY/EXIT 03936 M00S03692.1io +++| LDC TCHS LOAD FWA OF CHANNEL TABLE ADDRESSES 03937 M00S03693.1io +++| STD T1 03938 M00S03694.1io +++| UJN MCI2 UPDATE CHANNEL INSTRUCTIONS 03939 M00S03695.1io +++| MSR SPACE 4,15 03940 M00S03696.1io +++|** MSR - ERROR PROCESSOR FOR *COMPRNS*. 03941 M00S03697.1io +++|* 03942 M00S03698.1io +++|* ENTRY (CN) = ORIGINAL FL. 03943 M00S03699.1io +++|* 03944 M00S03700.1io +++|* EXIT TO *FCN3*. 03945 M00S03701.1io +++|* 03946 M00S03702.1io +++|* USES MC. 03947 M00S03703.1io +++|* 03948 M00S03704.1io +++|* CALLS RSI. 03949 M00S03705.1io +++|* 03950 M00S03706.1io +++|* MACROS ENDMS. 03951 M00S03707.1io +++|
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1io.001.txt · Last modified: by 127.0.0.1