cdc:nos2.source:opl.opl871:deck:1io.001
Deck 1IO Part 001
14 Modifications
Listing Sections
- Deck 1IO Start
- Deck 1IO Part 1 (Line 1960)
- Deck 1IO Part 2 (Line 3956)
Source
Seq # *Modification Id* Act ----------------------------+ 01960 M01S01826.1io +++|* THE VALUES OF THE 12-BIT ASCII CODES ON THE 01961 M01S01827.1io +++|* SLUG. 01962 M01S01828.1io +++|* P1 - PN SPECIFY THE POSITIONS IN THE TRAIN 01963 M01S01829.1io +++|* CONTAINING THIS SLUG. 01964 M01S01830.1io +++| 01965 M01S01831.1io +++| 01966 M01S01832.1io +++| ESLUG MACRO CHARS,P1,P2,P3,P4,P5,P6,P7,P8 01967 M01S01833.1io +++| NOREF NCHAR,NCSL,TIMC,.1 01968 M01S01834.1io +++| .1 SET * 01969 M01S01835.1io +++| ECHO 5,P=(P1,P2,P3,P4,P5,P6,P7,P8) 01970 M01S01836.1io +++| IFC NE,//P/ 01971 M01S01837.1io +++| ORG TIMC-NCSL+NCSL*P 01972 M01S01838.1io +++| ECHO 2,Q=(CHARS) 01973 M01S01839.1io +++| CON Q 01974 M01S01840.1io +++| NCHAR SET NCHAR+1 01975 M01S01841.1io +++| ENDIF 01976 M01S01842.1io +++| ORG .1 01977 M01S01843.1io +++| ESLUG ENDM 01978 M01S00001.251l664 +++| SPACE 4,10 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 M01S01844.1io +++| TITLE MAIN PROGRAM. 02010 M01S01845.1io +++| LDM SPACE 4,10 02011 M01S01846.1io +++|** MAIN PROGRAM. 02012 M01S01847.1io +++| 02013 M01S01848.1io +++| 02014 M01S01849.1io +++| ORG ORGR 02015 M01S01850.1io +++| 02016 M01S01851.1io +++| LDM SUBR ENTRY/EXIT 02017 M01S01852.1io +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 02018 M01S01853.1io +++| RJM LIM LOAD IMAGE MEMORY 02019 M01S01854.1io +++| NJN LDM2 IF ERROR 02020 M01S01855.1io +++| LDD ST CHECK FOR PRINTER READY 02021 M01S01856.1io +++| LPN 1 02022 M01S01857.1io +++| LMN 1 02023 M01S01858.1io +++| RAM LDMA 02024 M01S01859.1io +++| 02025 M01S01860.1io +++|* NORMAL EXIT - RELEASE EQUIPMENT. 02026 M01S01861.1io +++| 02027 M01S01862.1io +++| RJM CAD CLEAR AND DISCONNECT 02028 M01S01863.1io +++| LDMA LDN 0 02029 M01S01864.1io +++|* LDN 1 (PRINTER NOT LOADED) 02030 M01S01865.1io +++| LDM1 UJN LDMX EXIT 02031 M01S01866.1io +++| 02032 M01S01867.1io +++|* ERROR EXIT - TURN EQUIPMENT OFF 02033 M01S01868.1io +++| 02034 M01S01869.1io +++| LDM2 STD MC SAVE MESSAGE CODE 02035 M01S00026.ns2655 +++| LMN ECUA 02036 M01S00027.ns2655 +++| ZJN LDM4 IF CHANNEL UNAVAILABLE 02037 M01S01870.1io +++| DCN CH+40 02038 M01S01871.1io +++| LDD ES+1 RELEASE CHANNEL 02039 M01S01872.1io +++| DCHAN 02040 M01S01873.1io +++| EXECUTE 3IC 02041 M01S01874.1io +++| RJM /3IC/ERM SEND ERROR MESSAGE 02042 M01S01875.1io +++| RJM /3IC/OEQ OFF EQUIPMENT
| Line S01876 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 02043 M02S01876.ns2655 ---| LDN 1 SET ERROR FLAG 02044 M01S00028.ns2655 +++| LDM3 LDN 1 SET ERROR FLAG 02045 M01S01877.1io +++| UJN LDM1 EXIT 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 M01S01878.1io +++| LIM SPACE 4,10 02051 M01S01879.1io +++|** LIM - LOAD IMAGE MEMORY. 02052 M01S01880.1io +++|* 02053 M01S01881.1io +++|* ENTRY (ES - ES+4) = EST ENTRY. 02054 M01S01882.1io +++|* 02055 M01S01883.1io +++|* EXIT (A) .NE. 0 IF IMAGE MEMORY CANNOT BE LOADED. 02056 M01S01884.1io +++|* (ST) = EQUIPMENT STATUS. 02057 M01S01885.1io +++|* 02058 M01S01886.1io +++|* USES CS, T3. 02059 M01S01887.1io +++|* 02060 M01S01888.1io +++|* CALLS CAD, CES, EXR, FCN, GST, IFN, *5IA*, *5IC*, *5ID*, 02061 M01S01889.1io +++|* *5IE*, *5IG*, *5IH*. 02062 M01S01890.1io +++|* 02063 M01S01891.1io +++|* MACROS EXECUTE. 02064 M01S01892.1io +++| 02065 M01S01893.1io +++| LIM SUBR ENTRY/EXIT 02066 M01S01894.1io +++| RJM CES CHECK EQUIPMENT STATUS 02067 M01S01895.1io +++| PJN LIMX IF PRINTER NOT READY OR ERROR 02068 M01S01896.1io +++| LDD ET
| Line S01897 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02069 M02S01897.251l664 ---| SHN 3 FIND OVERLAY NAME 02070 M01S00032.251l664 +++| SHN 6 FIND OVERLAY NAME 02071 M01S01898.1io +++| STD T3 02072 M01S01899.1io +++| LDD ES+4 02073 M01S01900.1io +++| SHN -6 ADD TRAIN TYPE TO INDEX 02074 M01S01901.1io +++| LPN 7 02075 M01S00033.251l664 +++| SHN 3 02076 M01S01902.1io +++| RAD T3 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 M01S01903.1io +++| LDM TIMO,T3 SET OVERLAY NAME 02085 M01S01904.1io +++| STM LIMA 02086 M01S01905.1io +++| RJM CAD CLEAR AND DISCONNECT 02087 M01S01906.1io +++| LDC 1L5 LOAD IMAGE MEMORY OVERLAY 02088 M01S01907.1io +++| LIMA EQU *-1 02089 M01S01908.1io +++| EXECUTE 5IA,= 02090 M01S01909.1io +++| EXECUTE 5IC,= 02091 M01S01910.1io +++| EXECUTE 5ID,= 02092 M01S01911.1io +++| EXECUTE 5IE,= 02093 M01S01912.1io +++| EXECUTE 5IG,= 02094 M01S01913.1io +++| EXECUTE 5IH,= 02095 M01S01914.1io +++| RJM EXR 02096 M01S01915.1io +++| STM LIMB SAVE TABLE LENGTH 02097 M01S01916.1io +++| RJM CES CHECK EQUIPMENT STATUS 02098 M01S01917.1io +++| PJN LIM1 IF PRINTER NOT READY OR ERROR 02099 M01S01918.1io +++| LDN 24 SELECT ABNORMAL *EOP* INTERRUPT 02100 M01S01919.1io +++| RJM FCN ISSUE FUNCTION 02101 M01S01920.1io +++| LDN 13 SET EXTENDED ARRAY MODE 02102 M01S01921.1io +++| RJM FCN 02103 M01S01922.1io +++| LDN 12 *FILL IMAGE MEMORY* 02104 M01S01923.1io +++| RJM FCN ISSUE FUNCTION 02105 M01S01924.1io +++| LDN 16 OUTPUT IMAGE MEMORY 02106 M01S01925.1io +++| RJM IFN ISSUE FUNCTION 02107 M01S01926.1io +++| LDC * OUTPUT IMAGE MEMORY 02108 M01S01927.1io +++| LIMB EQU *-1 02109 M01S01928.1io +++| OAM TIMC,CH 02110 M01S01929.1io +++| NJN LIM2 IF INCOMPLETE DATA TRANSFER 02111 M01S01930.1io +++| FJM *,CH 02112 M01S01931.1io +++| DCN CH+40 02113 M01S01932.1io +++| RJM GST GET 6681 AND EQUIPMENT STATUS 02114 M01S01933.1io +++| ZJN LIM1 IF NO ERRORS 02115 M01S01934.1io +++| LDN ERJM REJECT/TRANSMISSION PARITY ERROR 02116 M01S01935.1io +++| LIM1 LJM LIMX RETURN 02117 M01S01936.1io +++| 02118 M01S01937.1io +++| LIM2 STD CS STORE NUMBER OF UNTRANSFERED BYTES 02119 M01S01938.1io +++| LDN EITM *EQXXX INCOMPLETE DATA TRANSFER.* 02120 M01S01939.1io +++| UJN LIM1 RETURN 02121 M01S01940.1io +++| CES SPACE 4,15 02122 M01S01941.1io +++|** CES - CHECK EQUIPMENT STATUS. 02123 M01S01942.1io +++|* 02124 M01S01943.1io +++|* EXIT (A) .LT. 0 IF NO ERROR. 02125 M01S01944.1io +++|* (A) = 0, IF PRINTER NOT READY. 02126 M01S01945.1io +++|* (A) = ERROR CODE. 02127 M01S01946.1io +++|* (ET) = 0 IF 512 PRINTER. 02128 M01S01947.1io +++|* = 1 IF 580 PRINTER. 02129 M01S01948.1io +++|* 02130 M01S01949.1io +++|* USES ET, T3. 02131 M01S01950.1io +++|* 02132 M01S01951.1io +++|* CALLS FCN, GST, STS, //MCI. 02133 M01S01952.1io +++| 02134 M01S01953.1io +++| 02135 M01S01954.1io +++| CES2 LDN 50 ISSUE FUNCTION UNIQUE TO IMAGE MEMORY 02136 M01S01955.1io +++| RJM FCN 02137 M01S01956.1io +++| LDC 1S12+66 ISSUE FUNCTION UNIQUE TO 580 02138 M01S01957.1io +++| RJM FCN 02139 M01S01958.1io +++| NJN CES3 IF NOT 580 02140 M01S01959.1io +++| AOD ET 02141 M01S01960.1io +++| CES3 LCN 0 INDICATE NO ERROR 02142 M01S01961.1io +++| 02143 M01S01962.1io +++| CES SUBR ENTRY/EXIT 02144 M01S01963.1io +++| RJM //MCI MODIFY CHANNEL INSTRUCTIONS 02145 M01S00033.ns2655 +++| NJN CESX IF CHANNEL UNAVAILABLE 02146 M01S01964.1io +++| RJM STS CHECK PRINTER STATUS 02147 M01S01965.1io +++| ZJN CESX IF NOT READY 02148 M01S01966.1io +++| 02149 M01S01967.1io +++|* TIME OUT SINCE 512 CAN HANG BUSY WITH GARBAGE IN IMAGE 02150 M01S01968.1io +++|* MEMORY. 02151 M01S01969.1io +++| 02152 M01S01970.1io +++| LDN 0 SET TIMEOUT LIMIT 02153 M01S01971.1io +++| STD T3 02154 M01S01972.1io +++| STD ET PRESET EQUIPMENT TYPE = 512 02155 M01S01973.1io +++| CES1 RJM GST GET STATUS OF 6681 AND EQUIPMENT 02156 M01S01974.1io +++| LDD ST CHECK EQUIPMENT STATUS 02157 M01S01975.1io +++| LPN 2 02158 M01S01976.1io +++| ZJN CES2 IF NOT BUSY 02159 M01S01977.1io +++| SOD T3 02160 M01S01978.1io +++| NJN CES1 IF NOT TIMED OUT 02161 M01S01979.1io +++| LDN ECBM *EQXXX CONTROLLER HUNG BUSY.* 02162 M01S01980.1io +++| UJN CESX BUSY ERROR 02163 M01S01981.1io +++| MCI SPACE 4,10 02164 M01S01982.1io +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 02165 M01S01983.1io +++|* 02166 M01S01984.1io +++|* ENTRY (ES+1) SET. 02167 M01S01985.1io +++|* 02168 M01S01986.1io +++|* EXIT CHANNEL INSTRUCTIONS SET WITH PROPER CHANNEL. 02169 M01S01987.1io +++|* 02170 M01S01988.1io +++|* USES T1, T2. 02171 M01S01989.1io +++| 02172 M01S01990.1io +++| 02173 M01S01991.1io +++| MCI SUBR ENTRY/EXIT 02174 M01S01992.1io +++| LDC TCHS 02175 M01S01993.1io +++| STD T1 02176 M01S01994.1io +++| UJN MCI2 UPDATE CHANNEL INSTRUCTIONS 02177 M01S01995.1io +++| 02178 M01S01996.1io +++| MCI1 RAI T2 02179 M01S01997.1io +++| AOD T1 02180 M01S01998.1io +++| MCI2 LDI T1 02181 M01S01999.1io +++| STD T2 02182 M01S02000.1io +++| LDD ES+1 02183 M01S00006.252l678 +++| LPN 37 02184 M01S02001.1io +++| CHTL * 02185 M01S02002.1io +++| SBN CH 02186 M01S02003.1io +++| NJN MCI1 IF MORE CHANNEL INSTRUCTIONS TO MODIFY 02187 M01S02004.1io +++| UJN MCIX RETURN 02188 M01S02005.1io +++| TCHS SPACE 4,10 02189 M01S02006.1io +++|** TCHS - CHANNEL TABLE. 02190 M01S02007.1io +++|* TABLE CONTAINS THE ADDRESSES OF ALL INSTRUCTIONS WHICH 02191 M01S02008.1io +++|* REFERENCE THE EQUIPMENT CHANNEL. 02192 M01S02009.1io +++| 02193 M01S02010.1io +++| 02194 M01S02011.1io +++| TCHS CHTB 02195 M01S02012.1io +++| SPACE 4,10 02196 M01S02013.1io +++| 02197 M01S02014.1io +++| ELIM EQU *+10 DEFINE END OF LOAD IMAGE MEMORY ROUTINES 02198 M01S02015.1io +++| TIMC EQU ELIM+5 02199 M01S02016.1io +++| QUAL 02200 M01S02017.1io +++| OIMT SET /3IB/ELIM DEFINE ORIGIN OF IMAGE MEMORY TABLES 02201 M01S02018.1io +++| QUAL * 02202 M01S02019.1io +++| 02203 M01S02020.1io +++| DEFOIES OIMT SET LOAD ADDRESS OF ERROR ROUTINES 02204 M01S02021.1io +++| TIMO SPACE 4,15 02205 M01S02022.1io +++|** TIMO - TABLE OF IMAGE MEMORY OVERLAYS. 02206 M01S02023.1io +++|*
| Line S02024 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02207 M02S02024.251l664 ---|* EIGHT WORD ENTRY. 02208 M01S00041.251l664 +++|* EIGHT BY EIGHT WORD ENTRY. 02209 M01S02025.1io +++|*
| Line S02026 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02210 M02S02026.251l664 ---|* EACH SET OF EIGHT WORDS DESCRIBES IMAGE OVERLAYS FOR A
| Line S02027 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02211 M02S02027.251l664 ---|* PARTICULAR EQUIPMENT TYPE. EACH WORD CONTAINS AN OVERLAY
| Line S02028 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02212 M02S02028.251l664 ---|* NAME. THE POSITION OF THE WORD WITHIN THE EIGHT WORD ENTRY
| Line S02029 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02213 M02S02029.251l664 ---|* INDICATES A TRAIN TYPE - 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 M01S02030.1io +++|* 0, 1 CDC GRAPHIC 64-CHARACTER SET. 02220 M01S02031.1io +++|* 4, 5, 7 ASCII GRAPHIC 64-CHARACTER SET. 02221 M01S02032.1io +++|* 6 ASCII GRAPHIC 95-CHARACTER SET. 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 M01S02033.1io +++| 02229 M01S02034.1io +++| 02230 M01S02035.1io +++| TIMO BSS 0 02231 M01S00053.251l664 +++| 02232 M01S00054.251l664 +++|* PI 0 1 2 3 4 5 6 7 TRAIN TYPE 02233 M01S02036.1io +++| 02234 M01S02037.1io +++|* 512. 02235 M01S02038.1io +++|
| Line S02039 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02236 M02S02039.251l664 ---| CON 2LIA 595-1
| Line S02040 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02237 M02S02040.251l664 ---| CON 2LIA 595-1
| Line S02041 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02238 M02S02041.251l664 ---| CON 2LIA NOT SUPPORTED
| Line S02042 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02239 M02S02042.251l664 ---| CON 2LIA NOT SUPPORTED
| Line S02043 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02240 M02S02043.251l664 ---| CON 2LID 596-6
| Line S02044 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02241 M02S02044.251l664 ---| CON 2LIC 596-4 OR 596-5
| Line S02045 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02242 M02S02045.251l664 ---| CON 2LID 595-6
| Line S02046 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02243 M02S02046.251l664 ---| CON 2LID 595-6 USED AS 595-5 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 M01S02047.1io +++| 02253 M01S02048.1io +++|* 580. 02254 M01S02049.1io +++|
| Line S02050 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02255 M02S02050.251l664 ---| CON 2LIE 596-1
| Line S02051 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02256 M02S02051.251l664 ---| CON 2LIE 596-1
| Line S02052 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02257 M02S02052.251l664 ---| CON 2LIE NOT SUPPORTED
| Line S02053 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02258 M02S02053.251l664 ---| CON 2LIE NOT SUPPORTED
| Line S02054 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02259 M02S02054.251l664 ---| CON 2LIH 596-6
| Line S02055 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02260 M02S02055.251l664 ---| CON 2LIG 596-4 OR 596-5
| Line S02056 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02261 M02S02056.251l664 ---| CON 2LIH 596-6
| Line S02057 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02262 M02S02057.251l664 ---| CON 2LIH 596-6 USED AS 596-5 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 M01S02058.1io +++| TTL 1IO/3IB/5IA - IMAGE MEMORY TABLE. 02272 M01S02059.1io +++| TITLE 3555/512 WITH 595-1 PRINT TRAIN. 02273 M01S02060.1io +++| QUAL 5IA 02274 M01S02061.1io +++| IDENT 5IA,IMTX 02275 M01S02062.1io +++|*COMMENT 1IO - 512/595-1 IMAGE MEMORY.
| Line S02063 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02276 M02S02063.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
02277 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02278 M01S02064.1io +++| 5IA SPACE 4,10
02279 M01S02065.1io +++| NCSL EQU 4 DEFINE SLUG SIZE
02280 M01S02066.1io +++| IMT SPACE 4,10
02281 M01S02067.1io +++| ORG OIMT
02282 M01S02068.1io +++|
02283 M01S02069.1io +++| IMT SUBR ENTRY/EXIT
02284 M01S02070.1io +++| LDC TIMCL
02285 M01S02071.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02286 M01S02072.1io +++| TIMC SPACE 4,10
02287 M01S02073.1io +++|* GROUP 1.
02288 M01S02074.1io +++|
02289 M01S02075.1io +++| TIMC SLUG (0123)
02290 M01S02076.1io +++| SLUG (4567)
02291 M01S02077.1io +++| SLUG (BZ,/)
02292 M01S02078.1io +++| SLUG (89AC)
02293 M01S02079.1io +++| SLUG ((GH))
02294 M01S02080.1io +++| SLUG (RIFL)
02295 M01S02081.1io +++| SLUG (MNOP)
02296 M01S02082.1io +++| SLUG ([),1
02297 M01S02083.1io +++| CON 45 PERCENT
02298 M01S02084.1io +++| SLUG (;),2
02299 M01S02085.1io +++| SLUG (DUST)
02300 M01S02086.1io +++| SLUG (VWXY)
02301 M01S02087.1io +++| SLUG (+-.E)
02302 M01S02088.1io +++| SLUG (JKQ*)
02303 M01S02089.1io +++|
02304 M01S02090.1io +++|* GROUP 2.
02305 M01S02091.1io +++|
02306 M01S02092.1io +++| SLUG (0123)
02307 M01S02093.1io +++| SLUG (4567)
02308 M01S02094.1io +++| SLUG ($),1
02309 M01S02095.1io +++| CON 137 CONCATENATION
02310 M01S02096.1io +++| SLUG ("=),2
02311 M01S02097.1io +++| SLUG (89AC)
02312 M01S02098.1io +++| SLUG (BZ,/)
02313 M01S02099.1io +++| SLUG (RIFL)
02314 M01S02100.1io +++| SLUG (MNOP)
02315 M01S02101.1io +++| SLUG ((GH))
02316 M01S02102.1io +++| SLUG (DUST)
02317 M01S02103.1io +++| SLUG ('?&!)
02318 M01S02104.1io +++| SLUG (+-.E)
02319 M01S02105.1io +++| SLUG (VWXY)
02320 M01S02106.1io +++|
02321 M01S02107.1io +++|* GROUP 3.
02322 M01S02108.1io +++|
02323 M01S02109.1io +++| SLUG (0123)
02324 M01S02110.1io +++| SLUG (4567)
02325 M01S02111.1io +++| SLUG (JKQ*)
02326 M01S02112.1io +++| SLUG (89AC)
02327 M01S02113.1io +++| SLUG (;<>)
02328 M01S02114.1io +++| SLUG (RIFL)
02329 M01S02115.1io +++| SLUG (MNOP)
02330 M01S02116.1io +++| SLUG (BZ,/)
02331 M01S02117.1io +++| SLUG (DUST)
02332 M01S02118.1io +++| SLUG ((GH))
02333 M01S02119.1io +++| SLUG (+-.E)
02334 M01S02120.1io +++| CON 72 COLON
02335 M01S02121.1io +++| SLUG (;#=),3
02336 M01S02122.1io +++|
02337 M01S02123.1io +++|* GROUP 4.
02338 M01S02124.1io +++|
02339 M01S02125.1io +++| SLUG (0123)
02340 M01S02126.1io +++| SLUG (4567)
02341 M01S02127.1io +++| SLUG (VWXY)
02342 M01S02128.1io +++| SLUG (89AC)
02343 M01S02129.1io +++| SLUG (JKQ*)
02344 M01S02130.1io +++| SLUG (RIFL)
02345 M01S02131.1io +++| SLUG (MNOP)
02346 M01S02132.1io +++| SLUG ([),1
02347 M01S02133.1io +++| CON 45 PERCENT
02348 M01S02134.1io +++| SLUG (;),2
02349 M01S02135.1io +++| SLUG (DUST)
02350 M01S02136.1io +++| SLUG (BZ,/)
02351 M01S02137.1io +++| SLUG (+-.E)
02352 M01S02138.1io +++| SLUG ((GH))
02353 M01S02139.1io +++|
02354 M01S02140.1io +++|* GROUP 5.
02355 M01S02141.1io +++|
02356 M01S02142.1io +++| SLUG (0123)
02357 M01S02143.1io +++| SLUG (4567)
02358 M01S02144.1io +++| SLUG ($),1
02359 M01S02145.1io +++| CON 137 CONCATENATION
02360 M01S02146.1io +++| SLUG ("=),2
02361 M01S02147.1io +++| SLUG (89AC)
02362 M01S02148.1io +++| SLUG (VWXY)
02363 M01S02149.1io +++| SLUG (RIFL)
02364 M01S02150.1io +++| SLUG (MNOP)
02365 M01S02151.1io +++| SLUG (JKQ*)
02366 M01S02152.1io +++| SLUG (DUST)
02367 M01S02153.1io +++| SLUG ('?&!)
02368 M01S02154.1io +++| SLUG (+-.E)
02369 M01S02155.1io +++| SLUG (BZ,/)
02370 M01S02156.1io +++|
02371 M01S02157.1io +++|* GROUP 6.
02372 M01S02158.1io +++|
02373 M01S02159.1io +++| SLUG (0123)
02374 M01S02160.1io +++| SLUG (4567)
02375 M01S02161.1io +++| SLUG ((GH))
02376 M01S02162.1io +++| SLUG (89AC)
02377 M01S02163.1io +++| SLUG (;<>)
02378 M01S02164.1io +++| SLUG (RIFL)
02379 M01S02165.1io +++| SLUG (MNOP)
02380 M01S02166.1io +++| SLUG (VWXY)
02381 M01S02167.1io +++| SLUG (DUST)
02382 M01S02168.1io +++| SLUG (JKQ*)
02383 M01S02169.1io +++| SLUG (+-.E)
02384 M01S02170.1io +++| CON 72 COLON
02385 M01S02171.1io +++| SLUG (;#=),3
02386 M01S02172.1io +++|
02387 M01S02173.1io +++| ERRNZ /3IB/TIMC-TIMC
02388 M01S02174.1io +++| TIMCL EQU *-TIMC
02389 M01S02175.1io +++| ERRNZ TIMCL-288D
02390 M01S02176.1io +++|
02391 M01S02177.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02392 M01S02178.1io +++| TTL 1IO/3IB/5IC - IMAGE MEMORY TABLE.
02393 M01S02179.1io +++| TITLE 3555/512 WITH 595-4, 595-5 PRINT TRAINS.
02394 M01S02180.1io +++| QUAL 5IC
02395 M01S02181.1io +++| IDENT 5IC,IMTX
02396 M01S02182.1io +++|*COMMENT 1IO - 512/595-4,595-5 IMAGE MEMORY.
| Line S02183 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02397 M02S02183.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
02398 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02399 M01S02184.1io +++| 5IC SPACE 4,10
02400 M01S02185.1io +++| NCSL EQU 4 DEFINE SLUG SIZE
02401 M01S02186.1io +++| IMT SPACE 4,10
02402 M01S02187.1io +++| ORG OIMT
02403 M01S02188.1io +++|
02404 M01S02189.1io +++| IMT SUBR ENTRY/EXIT
02405 M01S02190.1io +++| LDC TIMCL
02406 M01S02191.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02407 M01S02192.1io +++| TIMC SPACE 4,10
02408 M01S02193.1io +++|* GROUP 1.
02409 M01S02194.1io +++|
02410 M01S02195.1io +++| TIMC SLUG (0123)
02411 M01S02196.1io +++| SLUG (4567)
02412 M01S02197.1io +++| SLUG (BZ,/)
02413 M01S02198.1io +++| SLUG (89AC)
02414 M01S02199.1io +++| SLUG ((GH))
02415 M01S02200.1io +++| SLUG (RIFL)
02416 M01S02201.1io +++| SLUG (MNOP)
02417 M01S02202.1io +++| SLUG ([),1
02418 M01S02203.1io +++| CON 45 PERCENT
02419 M01S02204.1io +++| SLUG ("]),2
02420 M01S02205.1io +++| SLUG (DUST)
02421 M01S02206.1io +++| SLUG (VWXY)
02422 M01S02207.1io +++| SLUG (+-.E)
02423 M01S02208.1io +++| SLUG (JKQ*)
02424 M01S02209.1io +++|
02425 M01S02210.1io +++|* GROUP 2.
02426 M01S02211.1io +++|
02427 M01S02212.1io +++| SLUG (0123)
02428 M01S02213.1io +++| SLUG (4567)
02429 M01S02214.1io +++| SLUG ($;=)
02430 M01S02215.1io +++| SLUG (89AC)
02431 M01S02216.1io +++| SLUG (BZ,/)
02432 M01S02217.1io +++| SLUG (RIFL)
02433 M01S02218.1io +++| SLUG (MNOP)
02434 M01S02219.1io +++| SLUG ((GH))
02435 M01S02220.1io +++| SLUG (DUST)
02436 M01S02221.1io +++| SLUG (#\;)
02437 M01S02222.1io +++| SLUG (+-.E)
02438 M01S02223.1io +++| SLUG (VWXY)
02439 M01S02224.1io +++|
02440 M01S02225.1io +++|* GROUP 3.
02441 M01S02226.1io +++|
02442 M01S02227.1io +++| SLUG (0123)
02443 M01S02228.1io +++| SLUG (4567)
02444 M01S02229.1io +++| SLUG (JKQ*)
02445 M01S02230.1io +++| SLUG (89AC)
02446 M01S02231.1io +++| SLUG (&?<>)
02447 M01S02232.1io +++| SLUG (RIFL)
02448 M01S02233.1io +++| SLUG (MNOP)
02449 M01S02234.1io +++| SLUG (BZ,/)
02450 M01S02235.1io +++| SLUG (DUST)
02451 M01S02236.1io +++| SLUG ((GH))
02452 M01S02237.1io +++| SLUG (+-.E)
02453 M01S02238.1io +++| CON 72 COLON
02454 M01S02239.1io +++| SLUG (;),1
02455 M01S02240.1io +++| CON 137 UNDERLINE
02456 M01S02241.1io +++| SLUG (=),1
02457 M01S02242.1io +++|
02458 M01S02243.1io +++|* GROUP 4.
02459 M01S02244.1io +++|
02460 M01S02245.1io +++| SLUG (0123)
02461 M01S02246.1io +++| SLUG (4567)
02462 M01S02247.1io +++| SLUG (VWXY)
02463 M01S02248.1io +++| SLUG (89AC)
02464 M01S02249.1io +++| SLUG (JKQ*)
02465 M01S02250.1io +++| SLUG (RIFL)
02466 M01S02251.1io +++| SLUG (MNOP)
02467 M01S02252.1io +++| SLUG ([),1
02468 M01S02253.1io +++| CON 45 PERCENT
02469 M01S02254.1io +++| SLUG ("]),2
02470 M01S02255.1io +++| SLUG (DUST)
02471 M01S02256.1io +++| SLUG (BZ,/)
02472 M01S02257.1io +++| SLUG (+-.E)
02473 M01S02258.1io +++| SLUG ((GH))
02474 M01S02259.1io +++|
02475 M01S02260.1io +++|* GROUP 5.
02476 M01S02261.1io +++|
02477 M01S02262.1io +++| SLUG (0123)
02478 M01S02263.1io +++| SLUG (4567)
02479 M01S02264.1io +++| SLUG ($;=)
02480 M01S02265.1io +++| SLUG (89AC)
02481 M01S02266.1io +++| SLUG (VWXY)
02482 M01S02267.1io +++| SLUG (RIFL)
02483 M01S02268.1io +++| SLUG (MNOP)
02484 M01S02269.1io +++| SLUG (JKQ*)
02485 M01S02270.1io +++| SLUG (DUST)
02486 M01S02271.1io +++| SLUG (#\;)
02487 M01S02272.1io +++| SLUG (+-.E)
02488 M01S02273.1io +++| SLUG (BZ,/)
02489 M01S02274.1io +++|
02490 M01S02275.1io +++|* GROUP 6.
02491 M01S02276.1io +++|
02492 M01S02277.1io +++| SLUG (0123)
02493 M01S02278.1io +++| SLUG (4567)
02494 M01S02279.1io +++| SLUG ((GH))
02495 M01S02280.1io +++| SLUG (89AC)
02496 M01S02281.1io +++| SLUG (&?<>)
02497 M01S02282.1io +++| SLUG (RIFL)
02498 M01S02283.1io +++| SLUG (MNOP)
02499 M01S02284.1io +++| SLUG (VWXY)
02500 M01S02285.1io +++| SLUG (DUST)
02501 M01S02286.1io +++| SLUG (JKQ*)
02502 M01S02287.1io +++| SLUG (+-.E)
02503 M01S02288.1io +++| CON 72 COLON
02504 M01S02289.1io +++| SLUG (;),1
02505 M01S02290.1io +++| CON 137 UNDERLINE
02506 M01S02291.1io +++| SLUG (=),1
02507 M01S02292.1io +++|
02508 M01S02293.1io +++| ERRNZ /3IB/TIMC-TIMC
02509 M01S02294.1io +++| TIMCL EQU *-TIMC
02510 M01S02295.1io +++| ERRNZ TIMCL-288D
02511 M01S02296.1io +++|
02512 M01S02297.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02513 M01S02298.1io +++| TTL 1IO/3IB/5ID - IMAGE MEMORY TABLE.
02514 M01S02299.1io +++| 5ID TITLE 3555/512 WITH 595-6 PRINT TRAIN.
02515 M01S02300.1io +++| QUAL 5ID
02516 M01S02301.1io +++| IDENT 5ID,IMTX
02517 M01S02302.1io +++|*COMMENT 1IO - 512/595-6 IMAGE MEMORY.
| Line S02303 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02518 M02S02303.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02519 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02520 M01S02304.1io +++| 5ID SPACE 4,10 02521 M01S02305.1io +++| NCSL EQU 4 DEFINE SLUG SIZE 02522 M01S02306.1io +++| IMT SPACE 4,10 02523 M01S02307.1io +++| ORG OIMT 02524 M01S02308.1io +++| 02525 M01S02309.1io +++| IMT SUBR ENTRY/EXIT 02526 M01S02310.1io +++| LDC TIMCL 02527 M01S02311.1io +++| UJN IMTX RETURN WITH TABLE LENGTH 02528 M01S02312.1io +++| TIMC SPACE 4,10 02529 M01S02313.1io +++| TIMC BSSZ 288D 02530 M01S02314.1io +++| NCHAR SET 0 02531 M01S02315.1io +++| 02532 M01S02316.1io +++|* DEFINE SYMBOLS X0-X7F FOR CORRESPONDING HEX VALUES. 02533 M01S02317.1io +++| 02534 M01S02318.1io +++| ECHO 3,P=(2,3,4,5,6,7) 02535 M01S02319.1io +++| ECHO 2,Q=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F) 02536 M01S02320.1io +++| NOREF X_P_Q 02537 M01S02321.1io +++| X_P_Q EQU 0#_P_Q 02538 M01S02322.1io +++| 02539 M01S02323.1io +++| BASE D 02540 M01S02324.1io +++| 02541 M01S02325.1io +++| ESLUG (X30,X31,X32,X33),01,25,49 0,1,2,3 02542 M01S02326.1io +++| ESLUG (X34,X35,X36,X37),02,26,50 4,5,6,7 02543 M01S02327.1io +++| ESLUG (X38,X39,X62,X63),03,27,51 8,9,B(LC),C(LC) 02544 M01S02328.1io +++| ESLUG (X65,X73,X74,X61),04,28,52 E(LC),S(LC),T(LC),A(LC) 02545 M01S02329.1io +++| ESLUG (X64,X66,X75,X76),05,29,53 D(LC),F(LC),U(LC),V(LC) 02546 M01S02330.1io +++| ESLUG (X67,X68,X69,X6A),06,30,54 G(LC),H(LC),I(LC),J(LC) 02547 M01S02331.1io +++| ESLUG (X6B,X6C,X6D,X6E),07,31,55 K(LC),L(LC),M(LC),N(LC) 02548 M01S02332.1io +++| ESLUG (X6F,X70,X77,X72),08,32,56 O(LC),P(LC),W(LC),R(LC) 02549 M01S02333.1io +++| ESLUG (X71,X78,X79,X7A),09,33,57 Q(LC),X(LC),Y(LC),Z(LC) 02550 M01S02334.1io +++| ESLUG (X5C,X60,X51,X55),15,39,63 BACK/,ACCENT,Q(LC),U(LC) 02551 M01S02335.1io +++| ESLUG (X4A,X41,X4B,X45),16,40,64 J,A,K,E 02552 M01S02336.1io +++| ESLUG (X42,X57,X47,X48),17,41,65 B,W,G,H 02553 M01S02337.1io +++| ESLUG (X44,X43,X53,X54),18,42,66 D,C,S,T 02554 M01S02338.1io +++| ESLUG (X50,X4E,X46,X4C),19,43,67 P,N,F,L 02555 M01S02339.1io +++| ESLUG (X4D,X49,X4F,X52),20,44,68 M,I,O,R 02556 M01S02340.1io +++| ESLUG (X56,X5A,X58,X59),21,45,69 V,Z,X,Y 02557 M01S02341.1io +++| ESLUG (X3C,X3E,X5B,X5D),10,34,58 .LT.,.GT.,L.BRKT,R.BRKT 02558 M01S02342.1io +++| ESLUG (X2E,X7C,X7B,X7D),11,35,59 .,V.BAR,L.BRACE,R.BRACE 02559 M01S02343.1io +++| ESLUG (X21,X5E,X5F,X7E),12,36,60 EXCLAM,C.FLEX,UNDERSC,TILDE 02560 M01S02344.1io +++| ESLUG (X25,X30,X23,X40),13,37,61 PERCENT,0,POUND,AT 02561 M01S02345.1io +++| ESLUG (X3A,X3B,X27,X3F),14,38,62 COLON,SEMICOLON,APOS,Q.MARK 02562 M01S02346.1io +++| ESLUG (X28,X2F,X2A,X29),22,46,70 (,/,*,) 02563 M01S02347.1io +++| ESLUG (X2B,X2D,X2E,X2C),23,47,71 +,-,.,, 02564 M01S02348.1io +++| ESLUG (X24,X3D,X22,X26),24,48,72 $,=,D.QUOTE,AMPERSAND 02565 M01S02349.1io +++| 02566 M01S02350.1io +++| BASE * 02567 M01S02351.1io +++| ERRNZ /3IB/TIMC-TIMC 02568 M01S02352.1io +++| TIMCL EQU NCHAR 02569 M01S02353.1io +++| ERRNZ TIMCL-288D 02570 M01S02354.1io +++| 02571 M01S02355.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES 02572 M01S02356.1io +++| TTL 1IO/3IB/5IE - IMAGE MEMORY TABLE. 02573 M01S02357.1io +++| TITLE 580 WITH 596-1 PRINT TRAIN. 02574 M01S02358.1io +++| QUAL 5IE 02575 M01S02359.1io +++| IDENT 5IE,IMTX 02576 M01S02360.1io +++|*COMMENT 1IO - 580/596-1 IMAGE MEMORY.
| Line S02361 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02577 M02S02361.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
02578 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02579 M01S02362.1io +++| 5IE SPACE 4,10
02580 M01S02363.1io +++| NCSL EQU 8D DEFINE SLUG SIZE
02581 M01S02364.1io +++| IMT SPACE 4,10
02582 M01S02365.1io +++| ORG OIMT
02583 M01S02366.1io +++|
02584 M01S02367.1io +++| IMT SUBR ENTRY/EXIT
02585 M01S02368.1io +++| LDC TIMCL
02586 M01S02369.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02587 M01S02370.1io +++| TIMC SPACE 4,10
02588 M01S02371.1io +++|* GROUP 1.
02589 M01S02372.1io +++|
02590 M01S02373.1io +++| TIMC SLUG (17430265)
02591 M01S02374.1io +++| SLUG (E-+.HG98)
02592 M01S02375.1io +++| SLUG (FCBDRALI)
02593 M01S02376.1io +++| SLUG (140$3Z2,)
02594 M01S02377.1io +++| SLUG (POQKMN*J)
02595 M01S02378.1io +++| SLUG (/VTYWXUS)
02596 M01S02379.1io +++| SLUG (;=()[]),6
02597 M01S02380.1io +++| CON 45 PERCENT
02598 M01S02381.1io +++| CON 72 COLON
02599 M01S02382.1io +++| SLUG (17430265)
02600 M01S02383.1io +++|
02601 M01S02384.1io +++|* GROUP 2.
02602 M01S02385.1io +++|
02603 M01S02386.1io +++| SLUG (E-+.HG98)
02604 M01S02387.1io +++| SLUG (FCBDRALI)
02605 M01S02388.1io +++| SLUG (POQKMN*J)
02606 M01S02389.1io +++| SLUG (/VTYWXUS)
02607 M01S02390.1io +++| SLUG (&;!),4
02608 M01S02391.1io +++| CON 137 CONCATENATION
02609 M01S02392.1io +++| SLUG ('?;,3
02610 M01S02393.1io +++| SLUG (#()><"Z,)
02611 M01S02394.1io +++| SLUG (17430265)
02612 M01S02395.1io +++| SLUG (E-+.HG98)
02613 M01S02396.1io +++|
02614 M01S02397.1io +++|* GROUP 3.
02615 M01S02398.1io +++|
02616 M01S02399.1io +++| SLUG (FCBDRALI)
02617 M01S02400.1io +++| SLUG (140$3Z2,)
02618 M01S02401.1io +++| SLUG (POQKMN*J)
02619 M01S02402.1io +++| SLUG (/VTYWXUS)
02620 M01S02403.1io +++| SLUG (;=()[]),6
02621 M01S02404.1io +++| CON 45 PERCENT
02622 M01S02405.1io +++| CON 72 COLON
02623 M01S02406.1io +++| SLUG (17430265)
02624 M01S02407.1io +++| SLUG (E-+.HG98)
02625 M01S02408.1io +++| SLUG (FCBDRALI)
02626 M01S02409.1io +++|
02627 M01S02410.1io +++|* GROUP 4.
02628 M01S02411.1io +++|
02629 M01S02412.1io +++| SLUG (POQKMN*J)
02630 M01S02413.1io +++| SLUG (/VTYWXUS)
02631 M01S02414.1io +++| SLUG (&;!),4
02632 M01S02415.1io +++| CON 137 CONCATENATION
02633 M01S02416.1io +++| SLUG ('?;,3
02634 M01S02417.1io +++| SLUG (#()><"Z,)
02635 M01S02418.1io +++| SLUG (17430265)
02636 M01S02419.1io +++| SLUG (E-+.HG98)
02637 M01S02420.1io +++| SLUG (FCBDRALI)
02638 M01S02421.1io +++| SLUG (140$3Z2,)
02639 M01S02422.1io +++|
02640 M01S02423.1io +++|* GROUP 5.
02641 M01S02424.1io +++|
02642 M01S02425.1io +++| SLUG (POQKMN*J)
02643 M01S02426.1io +++| SLUG (/VTYWXUS)
02644 M01S02427.1io +++| SLUG (;=()[]),6
02645 M01S02428.1io +++| CON 45 PERCENT
02646 M01S02429.1io +++| CON 72 COLON
02647 M01S02430.1io +++| SLUG (17430265)
02648 M01S02431.1io +++| SLUG (E-+.HG98)
02649 M01S02432.1io +++| SLUG (FCBDRALI)
02650 M01S02433.1io +++| SLUG (POQKMN*J)
02651 M01S02434.1io +++| SLUG (/VTYWXUS)
02652 M01S02435.1io +++|
02653 M01S02436.1io +++|* GROUP 6.
02654 M01S02437.1io +++|
02655 M01S02438.1io +++| SLUG (&;!),4
02656 M01S02439.1io +++| CON 137 CONCATENATION
02657 M01S02440.1io +++| SLUG ('?;,3
02658 M01S02441.1io +++| SLUG (#()><"Z,)
02659 M01S02442.1io +++| SLUG (17430265)
02660 M01S02443.1io +++| SLUG (E-+.HG98)
02661 M01S02444.1io +++| SLUG (FCBDRALI)
02662 M01S02445.1io +++| SLUG (POQKMN*J)
02663 M01S02446.1io +++| SLUG (/VTYWXUS)
02664 M01S02447.1io +++| SLUG (;=()[]),6
02665 M01S02448.1io +++| CON 45 PERCENT
02666 M01S02449.1io +++| CON 72 COLON
02667 M01S02450.1io +++|
02668 M01S02451.1io +++| ERRNZ /3IB/TIMC-TIMC
02669 M01S02452.1io +++| TIMCL EQU *-TIMC
02670 M01S02453.1io +++| ERRNZ TIMCL-384D
02671 M01S02454.1io +++|
02672 M01S02455.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02673 M01S02456.1io +++| TTL 1IO/3IB/5IG - IMAGE MEMORY TABLE.
02674 M01S02457.1io +++| TITLE 580 WITH 596-4, 596-5 PRINT TRAINS.
02675 M01S02458.1io +++| QUAL 5IG
02676 M01S02459.1io +++| IDENT 5IG,IMTX
02677 M01S02460.1io +++|*COMMENT 1IO - 580/596-4,596-5 IMAGE MEMORY.
| Line S02461 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
02678 M02S02461.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
02679 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02680 M01S02462.1io +++| 5IG SPACE 4,10
02681 M01S02463.1io +++| NCSL EQU 8D DEFINE SLUG SIZE
02682 M01S02464.1io +++| IMT SPACE 4,10
02683 M01S02465.1io +++| ORG OIMT
02684 M01S02466.1io +++|
02685 M01S02467.1io +++| IMT SUBR ENTRY/EXIT
02686 M01S02468.1io +++| LDC TIMCL
02687 M01S02469.1io +++| UJN IMTX RETURN WITH TABLE LENGTH
02688 M01S02470.1io +++| TIMC SPACE 4,10
02689 M01S02471.1io +++|* GROUP 1.
02690 M01S02472.1io +++|
02691 M01S02473.1io +++| TIMC SLUG (17430265)
02692 M01S02474.1io +++| SLUG (E-+.HG98)
02693 M01S02475.1io +++| SLUG (FCBDRALI)
02694 M01S02476.1io +++| SLUG (140$3Z2,)
02695 M01S02477.1io +++| SLUG (POQKMN*J)
02696 M01S02478.1io +++| SLUG (/VTYWXUS)
02697 M01S02479.1io +++| SLUG (;&()[]),6
02698 M01S02480.1io +++| CON 45 PERCENT
02699 M01S02481.1io +++| CON 72 COLON
02700 M01S02482.1io +++| SLUG (17430265)
02701 M01S02483.1io +++|
02702 M01S02484.1io +++|* GROUP 2.
02703 M01S02485.1io +++|
02704 M01S02486.1io +++| SLUG (E-+.HG98)
02705 M01S02487.1io +++| SLUG (FCBDRALI)
02706 M01S02488.1io +++| SLUG (POQKMN*J)
02707 M01S02489.1io +++| SLUG (/VTYWXUS)
02708 M01S02490.1io +++| SLUG (!";;,5
02709 M01S02491.1io +++| CON 137 UNDERLINE
02710 M01S02492.1io +++| SLUG (?\),2
02711 M01S02493.1io +++| SLUG ('),1
02712 M01S02494.1io +++| CON 51 CLOSE PARENTHESIS
02713 M01S02495.1io +++| CON 50 OPEN PARENTHESIS
02714 M01S02496.1io +++| SLUG (><#Z,),5
02715 M01S02497.1io +++| SLUG (17430265)
02716 M01S02498.1io +++| SLUG (E-+.HG98)
02717 M01S02499.1io +++|
02718 M01S02500.1io +++|* GROUP 3.
02719 M01S02501.1io +++|
02720 M01S02502.1io +++| SLUG (FCBDRALI)
02721 M01S02503.1io +++| SLUG (140$3Z2,)
02722 M01S02504.1io +++| SLUG (POQKMN*J)
02723 M01S02505.1io +++| SLUG (/VTYWXUS)
02724 M01S02506.1io +++| SLUG (;&()[]),6
02725 M01S02507.1io +++| CON 45 PERCENT
02726 M01S02508.1io +++| CON 72 COLON
02727 M01S02509.1io +++| SLUG (17430265)
02728 M01S02510.1io +++| SLUG (E-+.HG98)
02729 M01S02511.1io +++| SLUG (FCBDRALI)
02730 M01S02512.1io +++|
02731 M01S02513.1io +++|* GROUP 4.
02732 M01S02514.1io +++|
02733 M01S02515.1io +++| SLUG (POQKMN*J)
02734 M01S02516.1io +++| SLUG (/VTYWXUS)
02735 M01S02517.1io +++| SLUG (!";;,5
02736 M01S02518.1io +++| CON 137 UNDERLINE
02737 M01S02519.1io +++| SLUG (?\),2
02738 M01S02520.1io +++| SLUG ('),1
02739 M01S02521.1io +++| CON 51 CLOSE PARENTHESIS
02740 M01S02522.1io +++| CON 50 OPEN PARENTHESIS
02741 M01S02523.1io +++| SLUG (><#Z,),5
02742 M01S02524.1io +++| SLUG (17430265)
02743 M01S02525.1io +++| SLUG (E-+.HG98)
02744 M01S02526.1io +++| SLUG (FCBDRALI)
02745 M01S02527.1io +++| SLUG (140$3Z2,)
02746 M01S02528.1io +++|
02747 M01S02529.1io +++|* GROUP 5.
02748 M01S02530.1io +++|
02749 M01S02531.1io +++| SLUG (POQKMN*J)
02750 M01S02532.1io +++| SLUG (/VTYWXUS)
02751 M01S02533.1io +++| SLUG (;&()[]),6
02752 M01S02534.1io +++| CON 45 PERCENT
02753 M01S02535.1io +++| CON 72 COLON
02754 M01S02536.1io +++| SLUG (17430265)
02755 M01S02537.1io +++| SLUG (E-+.HG98)
02756 M01S02538.1io +++| SLUG (FCBDRALI)
02757 M01S02539.1io +++| SLUG (POQKMN*J)
02758 M01S02540.1io +++| SLUG (/VTYWXUS)
02759 M01S02541.1io +++|
02760 M01S02542.1io +++|* GROUP 6.
02761 M01S02543.1io +++|
02762 M01S02544.1io +++| SLUG (!";;,5
02763 M01S02545.1io +++| CON 137 UNDERLINE
02764 M01S02546.1io +++| SLUG (?\),2
02765 M01S02547.1io +++| SLUG ('),1
02766 M01S02548.1io +++| CON 51 CLOSE PARENTHESIS
02767 M01S02549.1io +++| CON 50 OPEN PARENTHESIS
02768 M01S02550.1io +++| SLUG (><#Z,),5
02769 M01S02551.1io +++| SLUG (17430265)
02770 M01S02552.1io +++| SLUG (E-+.HG98)
02771 M01S02553.1io +++| SLUG (FCBDRALI)
02772 M01S02554.1io +++| SLUG (POQKMN*J)
02773 M01S02555.1io +++| SLUG (/VTYWXUS)
02774 M01S02556.1io +++| SLUG (;&()[]),6
02775 M01S02557.1io +++| CON 45 PERCENT
02776 M01S02558.1io +++| CON 72 COLON
02777 M01S02559.1io +++|
02778 M01S02560.1io +++| ERRNZ /3IB/TIMC-TIMC
02779 M01S02561.1io +++| TIMCL EQU *-TIMC
02780 M01S02562.1io +++| ERRNZ TIMCL-384D
02781 M01S02563.1io +++|
02782 M01S02564.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES
02783 M01S02565.1io +++| TTL 1IO/3IB/5IH - IMAGE MEMORY TABLE.
02784 M01S02566.1io +++| 5IH TITLE 580 WITH 596-6 PRINT TRAIN.
02785 M01S02567.1io +++| QUAL 5IH
02786 M01S02568.1io +++| IDENT 5IH,IMTX
02787 M01S02569.1io +++|*COMMENT 1IO - 580/596-6 IMAGE MEMORY.
| Line S02570 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02788 M02S02570.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 02789 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02790 M01S02571.1io +++| 5IH SPACE 4,10 02791 M01S02572.1io +++| NCSL EQU 8D DEFINE SLUG SIZE 02792 M01S02573.1io +++| SPACE 4,10 02793 M01S02574.1io +++| ORG OIMT 02794 M01S02575.1io +++| 02795 M01S02576.1io +++| IMT SUBR ENTRY/EXIT 02796 M01S02577.1io +++| LDC TIMCL 02797 M01S02578.1io +++| UJN IMTX RETURN WITH TABLE LENGTH 02798 M01S02579.1io +++| TIMC SPACE 4,10 02799 M01S02580.1io +++| TIMC BSSZ 384D 02800 M01S02581.1io +++| NCHAR SET 0 02801 M01S02582.1io +++| 02802 M01S02583.1io +++|* DEFINE SYMBOLS X0-X7F FOR CORRESPONDING HEX VALUES. 02803 M01S02584.1io +++| 02804 M01S02585.1io +++| ECHO 3,P=(2,3,4,5,6,7) 02805 M01S02586.1io +++| ECHO 2,Q=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F) 02806 M01S02587.1io +++| NOREF X_P_Q 02807 M01S02588.1io +++| X_P_Q EQU 0#_P_Q 02808 M01S02589.1io +++| 02809 M01S02590.1io +++| BASE D 02810 M01S02591.1io +++| 02811 M01S02592.1io +++| ESLUG (X31,X37,X34,X33,X30,X32,X36,X35),1,13,25,37 02812 M01S02593.1io +++| ESLUG (X45,X2D,X2B,X2E,X48,X47,X39,X38),2,14,26,38 02813 M01S02594.1io +++| ESLUG (X46,X43,X42,X44,X52,X41,X4C,X49),3,15,27,39 02814 M01S02595.1io +++| ESLUG (X50,X4F,X51,X4B,X4D,X4E,X2A,X4A),4,16,28,40 02815 M01S02596.1io +++| ESLUG (X2F,X56,X54,X59,X57,X58,X55,X53),5,17,29,41 02816 M01S02597.1io +++| ESLUG (X27,X24,X23,X2C,X3E,X3D,X3C,X5A),6,18,30,42 02817 M01S02598.1io +++| ESLUG (X21,X31,X3F,X40,X30,X5C,X22,X60),7,19,31,43 02818 M01S02599.1io +++| ESLUG (X66,X61,X63,X65,X67,X62,X64,X68),8,20,32,44 02819 M01S02600.1io +++| ESLUG (X6C,X6B,X6D,X6E,X70,X6F,X6A,X69),9,21,33,45 02820 M01S02601.1io +++| ESLUG (X76,X77,X74,X78,X73,X75,X71,X72),10,22,34,46 02821 M01S02602.1io +++| ESLUG (X7E,X7C,X5F,X7D,X7B,X7A,X79,X5E),11,23,35,47 02822 M01S02603.1io +++| ESLUG (X3B,X26,X28,X29,X5B,X5D,X25,X3A),12,24,36,48 02823 M01S02604.1io +++| 02824 M01S02605.1io +++| BASE * 02825 M01S02606.1io +++| 02826 M01S02607.1io +++| ERRNZ /3IB/TIMC-TIMC 02827 M01S02608.1io +++| TIMCL EQU NCHAR 02828 M01S02609.1io +++| ERRNZ TIMCL-384D 02829 M01S02610.1io +++| 02830 M01S02611.1io +++| DEFOIES SET LOAD ADDRESS OF ERROR ROUTINES 02831 M01S02612.1io +++| RER TTL 1IO/3IC - ERROR SUBROUTINES. 02832 M01S02613.1io +++| TITLE 02833 M01S02614.1io +++| QUAL 3IC 02834 M01S02615.1io +++| IDENT 3IC,RERX 02835 M01S02616.1io +++|*COMMENT 1IO - ERROR SUBROUTINES.
| Line S02617 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02836 M02S02617.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975. 02837 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02838 M01S02618.1io +++| 3IC SPACE 4,10 02839 M01S02619.1io +++|** RER - RETURN CONTROL. 02840 M01S02620.1io +++| 02841 M01S02621.1io +++| 02842 M01S02622.1io +++| ORG OIES 02843 M01S02623.1io +++| 02844 M01S02624.1io +++| RER SUBR ENTRY/EXIT 02845 M01S02625.1io +++| UJN RERX RETURN 02846 M01S02626.1io +++| CAS SPACE 4,10 02847 M01S02627.1io +++|** CAS - CLEAR ASSIGNMENT. 02848 M01S02628.1io +++|* 02849 M01S02629.1io +++|* ENTRY (EQ) = EST ORDINAL / DEVICE TYPE. 02850 M01S02630.1io +++|* (EQ) = 0, IF NO EQUIPMENT ASSIGNED. 02851 M01S02631.1io +++|* (BA - BA+1) = BUFFER ADDRESS. 02852 M01S02632.1io +++|* (BA - BA+1) = 0, IF NO BUFFER ASSIGNED. 02853 M01S02633.1io +++|* (FA) = FNT ADDRESS. 02854 M01S02634.1io +++|* (FA) = 0 IF NO FILE ASSIGNED. 02855 M01S02635.1io +++|* (IR+1) SET. 02856 M01S02636.1io +++|* (IR+3) SET. 02857 M01S02637.1io +++|* 02858 M01S02638.1io +++|* EXIT EQUIPMENT RELEASED. 02859 M01S02639.1io +++|* BUFFER RELEASED. 02860 M01S02640.1io +++|* IF FILE IS TO BE RELEASED, THEN *1IO* IS RECALLED, 02861 M01S02641.1io +++|* AND *CIO* IS CALLED INTO THIS PP. 02862 M01S02642.1io +++|* OTHERWISE, EXIT IS MADE TO *RCL*. 02863 M01S02643.1io +++|* 02864 M01S02644.1io +++|* USES T1, T2, CM - CM+4. 02865 M01S02645.1io +++|* 02866 M01S02646.1io +++|* CALLS RLE, SFA, *DSP*. 02867 M01S02647.1io +++|* 02868 M01S02648.1io +++|* MACROS EXECUTE, MONITOR, NFA. 02869 M01S02649.1io +++| 02870 M01S02650.1io +++| 02871 M01S02651.1io +++| CAS BSS 0 ENTRY 02872 M01S02652.1io +++| LDN ZERL CLEAR BUFFER NAME 02873 M01S02653.1io +++| CRD CM 02874 M01S02654.1io +++| LDD BA CHECK FOR BUFFER ASSIGNMENT 02875 M01S02655.1io +++| ADD BA+1 02876 M01S02656.1io +++| ZJN CAS1 IF NO BUFFER ASSIGNED 02877 M01S02657.1io +++| RJM SFA CLEAR BUFFER 02878 M01S02658.1io +++| CWD CM 02879 M01S02659.1io +++| LDD EQ RESET BUFFER POINT WORD 02880 M01S02660.1io +++| SHN -3 02881 M01S02661.1io +++| STD CM+3 02882 M01S02662.1io +++| NFA BFCW 02883 M01S02663.1io +++| ADD IR+3 02884 M01S02664.1io +++| ADD IR+3 02885 M01S02665.1io +++| CWD CM 02886 M01S02666.1io +++| CAS1 RJM RLE RELEASE EQUIPMENT 02887 M01S02667.1io +++| LDD FA 02888 M01S02668.1io +++| NJN CAS3 IF FILE ASSIGNED 02889 M01S02669.1io +++| LJM RCL RECALL *1IO* 02890 M01S02670.1io +++| 02891 M01S02671.1io +++|* SET UP *DSP* CALL BLOCK. 02892 M01S02672.1io +++| 02893 M01S02673.1io +++| CAS3 NFA FA,R READ FILE NAME 02894 M01S02674.1io +++| CRM DSPP,ON 02895 M01S02675.1io +++| LDC DSPP+2 02896 M01S02676.1io +++| STD T1 02897 M01S02677.1io +++| CAS4 LDN 0 CLEAR *DSP* PARAMETER BLOCK 02898 M01S02678.1io +++| STI T1 02899 M01S02679.1io +++| AOD T1 02900 M01S02680.1io +++| LMC DSPPE 02901 M01S02681.1io +++| NJN CAS4 IF NOT END OF BLOCK 02902 M01S02682.1io +++| LDK FRPR+FRCS SET PRIORITY / CENTRAL SITE FLAGS 02903 M01S02683.1io +++| STM DSPP+1*5+4 02904 M01S02684.1io +++| LCN 0 SET MAXIMUM PRIORITY 02905 M01S02685.1io +++| STM DSPP+3*5+4 02906 M01S02686.1io +++| LDD FA SET FNT OFFSET 02907 M01S02687.1io +++| STM DSPP+4*5+4 02908 M01S02688.1io +++| LDN DSPBL SET PARAMETER BLOCK LENGTH 02909 M01S02689.1io +++| STD T1 02910 M01S02690.1io +++| LDD RA STORE *DSP* PARAMETER BLOCK 02911 M01S02691.1io +++| SHN 6
| Line S02692 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02912 M02S02692.1io5 ---| ADC DSPB 02913 M01S00011.1io5 +++| ADC QAPB 02914 M01S02693.1io +++| CWM DSPP,T1 02915 M01S02694.1io +++| 02916 M01S02695.1io +++|* RECALL *1IO* AND CALL *DSP*. 02917 M01S02696.1io +++| 02918 M01S02697.1io +++| EXECUTE DSP,= 02919 M01S02698.1io +++| LDD MA CALL *DSP* 02920 M01S02699.1io +++| CWM CASA,ON 02921 M01S02700.1io +++| LDN 0 ENABLE QUEUING OF PP REQUEST 02922 M01S02701.1io +++| STD CM+1 02923 M01S02702.1io +++| MONITOR RPPM 02924 M01S02703.1io +++| LJM RCL1 RECALL *1IO* 02925 M01S02704.1io +++|
| Line S02705 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 02926 M02S02705.1io5 ---| CASA VFD 18/0LDSP,24/0,18/DSPB 02927 M01S00012.1io5 +++| CASA VFD 18/0LDSP,24/0,18/QAPB 02928 M01S02706.1io +++| ERM SPACE 4,10 02929 M01S02707.1io +++|** ERM - PROCESS ERROR MESSAGE. 02930 M01S02708.1io +++|* 02931 M01S02709.1io +++|* ENTRY (CS) = CONVERTER STATUS/BYTE COUNT. 02932 M01S02710.1io +++|* (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 02933 M01S02711.1io +++|* (FC) = FUNCTION CODE. 02934 M01S02712.1io +++|* (MC) = MESSAGE CODE. 02935 M01S02713.1io +++|* (ST) = EQUIPMENT STATUS. 02936 M01S02714.1io +++|* (ES - ES+4) = EST ENTRY. 02937 M01S02715.1io +++|* 02938 M01S02716.1io +++|* USES RT, T5. 02939 M01S02717.1io +++|* 02940 M01S02718.1io +++|* CALLS C2D, DFM, IBM. 02941 M01S02719.1io +++| 02942 M01S02720.1io +++| 02943 M01S02721.1io +++| ERM2 STD RT 02944 M01S02722.1io +++| 02945 M01S02723.1io +++| ERM SUBR ENTRY/EXIT 02946 M01S02724.1io +++| LDD MC CHECK MESSAGE CODE 02947 M01S02725.1io +++| SBN BAME 02948 M01S02726.1io +++| MJN ERMX IF MESSAGE ISSUED ONLY BY *QAP* 02949 M01S02727.1io +++| STD T5 02950 M01S02728.1io +++| RJM IBM PROCESS BML MESSAGE 02951 M01S02729.1io +++| LDD RT CHECK IF ERROR RETRIED 02952 M01S02730.1io +++| ZJN ERM1 IF ERROR NOT RETRIED 02953 M01S02731.1io +++| LPN 1 02954 M01S02732.1io +++| ZJN ERM2 IF RECOVERED ERROR 02955 M01S02733.1io +++| 02956 M01S02734.1io +++| ERM1 LDM TDFP,T5 SET MESSAGE ADDRESS 02957 M01S02735.1io +++| STD T5 02958 M01S02736.1io +++| LDD ES+3 SET EQUIPMENT TYPE
| Line S02737 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02959 M02S02737.252l678 ---| LPC 3777 02960 M01S02738.1io +++| STI T5 02961 M01S02739.1io +++| LDD EQ CONVERT UPPER TWO DIGITS OF EST ORDINAL 02962 M01S02740.1io +++| SHN -6 02963 M01S02741.1io +++| RJM C2D 02964 M01S02742.1io +++| STM 1,T5 02965 M01S02743.1io +++| LDD EQ CONVERT LOWER DIGIT OF EST ORDINAL 02966 M01S02744.1io +++| LPN 70 02967 M01S02745.1io +++| SHN 3 02968 M01S02746.1io +++| ADC 2R0 02969 M01S02747.1io +++| STM 2,T5 02970 M01S02748.1io +++| LDD T5 SEND MESSAGE TO DAYFILE 02971 M01S02749.1io +++| RJM DFM 02972 M01S02750.1io +++| LDC ERLN SEND MESSAGE TO ERROR LOG 02973 M01S02751.1io +++| LMD T5 02974 M01S02752.1io +++| RJM DFM 02975 M01S02753.1io +++| LJM ERMX RETURN 02976 M01S02754.1io +++| TDFP SPACE 4,10 02977 M01S02755.1io +++|** TDFP - TABLE OF PROCESSORS AND MESSAGES. 02978 M01S02756.1io +++|* 02979 M01S02757.1io +++|* *TDFP* IS A PARTIAL TABLE OF MESSAGES CONTAINING ONLY 02980 M01S02758.1io +++|* THOSE MESSAGES ISSUED BY *1IO*. 02981 M01S02759.1io +++| 02982 M01S02760.1io +++| 02983 M01S02761.1io +++| TDFP INDEX 02984 M01S02762.1io +++| INDEX ERJM-BAME,(=C*EQXXX INTERNAL/EXTERNAL REJECT.*) 02985 M01S02763.1io +++| INDEX ETPE-BAME,(=C*EQXXX TRANSMISSION PARITY ERROR.*) 02986 M01S02764.1io +++| INDEX EFTM-BAME,(=C*EQXXX FUNCTION TIMEOUT.*) 02987 M01S02765.1io +++| INDEX EITM-BAME,(=C*EQXXX INCOMPLETE DATA TRANSFER.*) 02988 M01S02766.1io +++| INDEX EEOM-BAME,(=C*EQXXX TURNED OFF BY SYSTEM.*) 02989 M01S02767.1io +++| INDEX ECBM-BAME,(=C*EQXXX CONTROLLER HUNG BUSY.*) 02990 M01S02768.1io +++| INDEX ECRE-BAME,(=C*EQXXX CHANNEL PARITY ERROR.*) 02991 M01S02769.1io +++| INDEX ECSE-BAME,(=C*EQXXX CCC/NIP STATUS ERROR.*) 02992 M01S02770.1io +++| INDEX ECLM-BAME,(=C*EQXXX CCC/NIP CONTROLWARE LOADED.*) 02993 M01S02771.1io +++| INDEX ECWE-BAME,(=C*EQXXX CCC/NIP CONTROLWARE LOAD ERROR.*) 02994 M01S02772.1io +++| INDEX ECNF-BAME,(=C*EQXXX CCC/NIP CONTROLWARE NOT FOUND.*) 02995 M01S02773.1io +++| INDEX ELME-BAME 02996 M01S02774.1io +++| IBM SPACE 4,10 02997 M01S02775.1io +++|** IBM - ISSUE BML MESSAGE. 02998 M01S02776.1io +++|* 02999 M01S02777.1io +++|* ENTRY (A) = INDEX INTO TABLES *TIPR*, *TISY*, AND *TINB*. 03000 M01S02778.1io +++|* (CS) = CONVERTER STATUS/BYTE COUNT. 03001 M01S02779.1io +++|* (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 03002 M01S02780.1io +++|* (FC) = FUNCTION CODE. 03003 M01S02781.1io +++|* (RT) = RETRY COUNT/UNRECOVERED FLAG. 03004 M01S02782.1io +++|* (ST) = EQUIPMENT STATUS. 03005 M01S02783.1io +++|* (T5) = ERROR LOG MESSAGE INDEX. 03006 M01S02784.1io +++|* (ES - ES+4) = EST ENTRY. 03007 M01S02785.1io +++|* 03008 M01S02786.1io +++|* USES T1, T2, CM - CM+4. 03009 M01S02787.1io +++|*
| Line S02788 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03010 M02S02788.242l642 ---|* CALLS DFM, DID. 03011 M01S00015.242l642 +++|* CALLS DFM, DMI. 03012 M01S02789.1io +++|* 03013 M01S02790.1io +++|* MACROS BLMSIDT, DBMLT. 03014 M01S02791.1io +++| 03015 M01S02792.1io +++| 03016 M01S02793.1io +++| IBM SUBR ENTRY/EXIT 03017 M01S02794.1io +++| STD T2
| Line S02795 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03018 M02S02795.242l642 ---| RJM DID DETERMINE MESSAGE ID 03019 M01S00016.242l642 +++| RJM DMI DETERMINE BML MESSAGE ID 03020 M01S02796.1io +++| ZJN IBMX IF EQUIPMENT NOT FOUND 03021 M01S02797.1io +++| STM IBMA 03022 M01S02798.1io +++| LDK PPCP 03023 M01S02799.1io +++| CRD CM 03024 M01S02800.1io +++| LDD IA CALCULATE PP NUMBER 03025 M01S02801.1io +++| SBD CM+4 03026 M01S02802.1io +++| SHN 6-3 03027 M01S02803.1io +++| LMD ES+1 APPEND PP NUMBER 03028 M01S00007.252l678 +++| SCN 37 03029 M01S00008.252l678 +++| LMD ES+1 03030 M01S02804.1io +++| STM IBMA+2 03031 M01S02805.1io +++| LDK MMFL 03032 M01S02806.1io +++| CRD CM 03033 M01S02807.1io +++| LDD CM MACHINE ID 03034 M01S02808.1io +++| STM IBMB+3 03035 M01S02809.1io +++| LDM TISY,T2 SYMPTOM CODE 03036 M01S02810.1io +++| STM IBMA+1 03037 M01S02811.1io +++| LDM TIPR,T2 SET POSTPROCESSOR ADDRESS 03038 M01S02812.1io +++| STD T1 03039 M01S02813.1io +++| LJM 0,T1 COMPLETE MESSAGE PROCESSING 03040 M01S02814.1io +++| 03041 M01S02815.1io +++|* CCC/NIP STATUS. 03042 M01S02816.1io +++| 03043 M01S02817.1io +++| IBM1 LDC DM0401 SET MESSAGE ID 03044 M01S02818.1io +++| STM IBMA 03045 M01S02819.1io +++| UJN IBM3 COMPLETE BML MESSAGE 03046 M01S02820.1io +++| 03047 M01S02821.1io +++|* FUNCTION REJECT, TRANSMISSION PARITY ERROR. 03048 M01S02822.1io +++| 03049 M01S02823.1io +++| IBM2 LDD CS 03050 M01S02824.1io +++| LPN 4 03051 M01S02825.1io +++| ZJN IBM3 IF REJECT MESSAGE 03052 M01S02826.1io +++| AOD T2 03053 M01S02827.1io +++| AOD T5 03054 M01S02828.1io +++| LDM TISY,T2 SYMPTOM CODE 03055 M01S02829.1io +++| STM IBMA+1 03056 M01S02830.1io +++| IBM3 LDD ST EQUIPMENT STATUS 03057 M01S02831.1io +++| STM IBMC+1 03058 M01S02832.1io +++|* UJN IBM4 COMPLETE BML MESSAGE 03059 M01S02833.1io +++| 03060 M01S02834.1io +++|* INCOMPLETE DATA TRANSFER. 03061 M01S02835.1io +++| 03062 M01S02836.1io +++| IBM4 LDD CS CONVERTER STATUS/BYTE COUNT 03063 M01S02837.1io +++| STM IBMC 03064 M01S02838.1io +++|* UJN IBM5 COMPLETE BML MESSAGE 03065 M01S02839.1io +++| 03066 M01S02840.1io +++|* CHANNEL PARITY ERROR. 03067 M01S02841.1io +++| 03068 M01S02842.1io +++| IBM5 LDD RT RETRY COUNT/UNRECOVERED FLAG 03069 M01S02843.1io +++| IBM6 STM IBMB+1 03070 M01S02844.1io +++|* UJN IBM7 COMPLETE BML MESSAGE 03071 M01S02845.1io +++| 03072 M01S02846.1io +++|* FUNCTION TIMEOUT, CONTROLLER HUNG BUSY. 03073 M01S02847.1io +++| 03074 M01S02848.1io +++| IBM7 LDD FC 03075 M01S02849.1io +++| STM IBMC+2 03076 M01S02850.1io +++| 03077 M01S02851.1io +++|* EQUIPMENT TURNED OFF. 03078 M01S02852.1io +++| 03079 M01S02853.1io +++| IBM8 LDD ES+4 SET EQUIPMENT NUMBER 03080 M01S02854.1io +++| SHN 0-11 03081 M01S02855.1io +++| LPN 7 03082 M01S02856.1io +++| SHN 6 03083 M01S02857.1io +++| STM IBMA+3 03084 M01S02858.1io +++| LDD EQ EST ORDINAL 03085 M01S02859.1io +++| SHN 0-3 03086 M01S02860.1io +++| STM IBMB 03087 M01S02861.1io +++| LDN ZERL CLEAR CM REGISTER FOR DAYFILE CALL 03088 M01S02862.1io +++| CRD CM 03089 M01S02863.1io +++| LDM TINB,T2 SET BYTE COUNT FOR MESSAGE 03090 M01S02864.1io +++| STD CM+1 03091 M01S02865.1io +++| LDC IBMA+BMLN SEND MESSAGE TO BML 03092 M01S02866.1io +++| RJM DFM 03093 M01S02867.1io +++| LJM IBMX RETURN 03094 M01S02868.1io +++| 03095 M01S02869.1io +++|** BML MESSAGE TABLE. 03096 M01S02870.1io +++| 03097 M01S02871.1io +++| 03098 M01S02872.1io +++| IBMA VFD 12/0,12/0,6/0,6/0,6/0,18/0 BML WORD 2 03099 M01S02873.1io +++| IBMB VFD 12/0,6/0,6/0,12/0,12/0,12/0 BML WORD 3 03100 M01S02874.1io +++| IBMC VFD 12/0,12/0,12/0,12/0,12/0 BML WORD 4 03101 M01S02875.1io +++| SPACE 4,10 03102 M01S02876.1io +++|** DEFINE BML PROCESSORS, SYMPTOM CODES, AND LENGTHS. 03103 M01S02877.1io +++| 03104 M01S02878.1io +++| 03105 M01S02879.1io +++| DBMLT ERJM,IBM2,/COMSDFS/HS0025,3*5 FUNCTION REJECT 03106 M01S02880.1io +++| DBMLT ETPE,IBM2,/COMSDFS/HS0010,3*5 TRANSMISSION PARITY 03107 M01S02881.1io +++| DBMLT EFTM,IBM7,/COMSDFS/HS0050,3*5 FUNCTION TIMEOUT 03108 M01S02882.1io +++| DBMLT EITM,IBM4,/COMSDFS/HS0005,3*5 INCOMPLETE TRANSFER 03109 M01S02883.1io +++| DBMLT EEOM,IBM8,/COMSDFS/HS0030,2*5 EQUIPMENT TURNED OFF 03110 M01S02884.1io +++| DBMLT ECBM,IBM7,/COMSDFS/HS0044,3*5 CONTROLLER HUNG BUSY 03111 M01S02885.1io +++| DBMLT ECRE,IBM5,/COMSDFS/HS0024,3*5 CHANNEL PARITY ERROR 03112 M01S02886.1io +++| DBMLT ECSE,IBM1,HI0113,3*5 CCC/NIP STATUS ERROR 03113 M01S02887.1io +++| DBMLT ECLM,IBM1,HI0111,3*5 CCC/NIP LOADED 03114 M01S02888.1io +++| DBMLT ECWE,IBM1,HI0112,3*5 CCC/NIP LOAD ERROR 03115 M01S02889.1io +++| DBMLT ECNF,IBMX,0,0 CCC/NIP CONTROLWARE NOT FOUND 03116 M01S02890.1io +++| SPACE 4,10 03117 M01S02891.1io +++| BLMSIDT 03118 M01S02892.1io +++| TIPR SPACE 4,10 03119 M01S02893.1io +++|** TIPR - TABLE OF PROCESSING ROUTINES. 03120 M01S02894.1io +++| 03121 M01S02895.1io +++| 03122 M01S02896.1io +++| TIPR INDEX 03123 M01S02897.1io +++| DUP ELME-BAME,1 03124 M01S02898.1io +++| CON IBMX 03125 M01S02899.1io +++| ORG TIPR 03126 M01S02900.1io +++| DTPR HERE 03127 M01S02901.1io +++| INDEX ELME-BAME 03128 M01S02902.1io +++| TISY SPACE 4,10 03129 M01S02903.1io +++|** TISY - TABLE OF SYMPTOM CODES. 03130 M01S02904.1io +++| 03131 M01S02905.1io +++| 03132 M01S02906.1io +++| TISY INDEX 03133 M01S02907.1io +++| DTSY HERE 03134 M01S02908.1io +++| INDEX ELME-BAME 03135 M01S02909.1io +++| TINB SPACE 4,10 03136 M01S02910.1io +++|** TINB - TABLE OF NUMBER OF BML BYTES. 03137 M01S02911.1io +++| 03138 M01S02912.1io +++| 03139 M01S02913.1io +++| TINB INDEX 03140 M01S02914.1io +++| DTNB HERE 03141 M01S02915.1io +++| INDEX ELME-BAME 03142 M01S02916.1io +++| OEQ SPACE 4,10 03143 M01S02917.1io +++|** OEQ - OFF EQUIPMENT. 03144 M01S02918.1io +++|* 03145 M01S02919.1io +++|* ENTRY (EQ) = EST ORDINAL / DEVICE TYPE. 03146 M01S02920.1io +++|* (IR+3) = BUFFER POINT NUMBER. 03147 M01S02921.1io +++|* 03148 M01S02922.1io +++|* USES MC, CM - CM+4. 03149 M01S02923.1io +++|* 03150 M01S02924.1io +++|* CALLS ERM, IOM. 03151 M01S02925.1io +++|* 03152 M01S02926.1io +++|* MACROS MONITOR, NFA. 03153 M01S02927.1io +++| 03154 M01S02928.1io +++| 03155 M01S02929.1io +++| OEQ SUBR ENTRY/EXIT 03156 M01S02930.1io +++| LDD EQ 03157 M01S02931.1io +++| SHN -3 03158 M01S02932.1io +++| STD CM+1 03159 M01S02933.1io +++| LDN OFES SET OFF STATUS 03160 M01S02934.1io +++| STD CM+2 03161 M01S02935.1io +++| MONITOR SEQM SET EQUIPMENT PARAMETER 03162 M01S02936.1io +++| LDN EEOM *EQXXX TURNED OFF BY SYSTEM.* 03163 M01S02937.1io +++| STD MC 03164 M01S02938.1io +++| RJM ERM SEND ERROR MESSAGE 03165 M01S02939.1io +++| LDN EOHE *OFF - CHECK ERRLOG.* 03166 M01S02940.1io +++| RJM IOM ISSUE OPERATOR MESSAGE 03167 M01S02941.1io +++| LDN ZERL 03168 M01S02942.1io +++| CRD CM 03169 M01S02943.1io +++| LDN ELAE ERROR LOG ALERT 03170 M01S02944.1io +++| STD CM+4 03171 M01S02945.1io +++| MONITOR EATM 03172 M01S02946.1io +++| UJN OEQX RETURN 03173 M01S02947.1io +++| PEF SPACE 4,10 03174 M01S02948.1io +++|** PEF - PROCESS ERROR FLAG. 03175 M01S02949.1io +++|* 03176 M01S02950.1io +++|* FILES IN PROCESS ARE RETURNED TO THE SYSTEM BY A *RERUN*. 03177 M01S02951.1io +++|* 03178 M01S02952.1io +++|* USES T1, CM - CM+4. 03179 M01S02953.1io +++|* 03180 M01S02954.1io +++|* MACROS NFA. 03181 M01S02955.1io +++| 03182 M01S02956.1io +++| 03183 M01S02957.1io +++| PEF SUBR ENTRY/EXIT 03184 M01S02958.1io +++| LDN ZERL 03185 M01S02959.1io +++| CRD CM 03186 M01S02960.1io +++| LDD RA 03187 M01S02961.1io +++| SHN 6 03188 M01S02962.1io +++| ADN DRQR 03189 M01S02963.1io +++| CWD CM CLEAR PENDING REQUEST 03190 M01S02964.1io +++| LDN MXEQ*2-2 03191 M01S02965.1io +++| STD T1 03192 M01S02966.1io +++| PEF1 NFA BFCW ENTER *RERUN* FOR ALL EQUIPMENTS 03193 M01S02967.1io +++| ADD T1 03194 M01S02968.1io +++| CRD CM 03195 M01S02969.1io +++| LDN RRNM ENTER *RERUN* OPERATOR FLAG FOR *1CD* 03196 M01S02970.1io +++| STD CM+4 03197 M01S00001.1io8 +++| LCN 0 SET PRIORITY 03198 M01S00002.1io8 +++| STD CM+2 03199 M01S02971.1io +++| NFA BFCW STORE BUFFER POINT WORD 03200 M01S02972.1io +++| ADD T1 03201 M01S02973.1io +++| CWD CM 03202 M01S02974.1io +++| LCN 2 DECREMENT BUFFER POINT INDEX 03203 M01S02975.1io +++| RAD T1 03204 M01S02976.1io +++| PJN PEF1 IF NOT LAST BUFFER 03205 M01S02977.1io +++| UJN PEFX RETURN 03206 M01S02978.1io +++| SPACE 4,10 03207 M01S02979.1io +++|** COMMON DECKS. 03208 M01S02980.1io +++| 03209 M01S02981.1io +++| 03210 M01S02982.1io +++|*CALL COMPC2D 03211 M01S02983.1io +++| SPACE 4,10 03212 M01S02984.1io +++|** LITERALS BLOCK. 03213 M01S02985.1io +++| 03214 M01S02986.1io +++| 03215 M01S02987.1io +++| USE LITERALS 03216 M01S02988.1io +++| DSPP SPACE 4,10 03217 M01S02989.1io +++|** DSPP - *DSP* PARAMETER BUFFER. 03218 M01S02990.1io +++| 03219 M01S02991.1io +++| 03220 M01S02992.1io +++| DSPP BSS 0 03221 M01S02993.1io +++| DSPPE EQU DSPP+DSPBL*5 03222 M01S02994.1io +++| SPACE 4,10 03223 M01S02995.1io +++| OVERFLOW OIES,7777+DSPP-DSPPE 03224 M01S02996.1io +++| PRS TTL 1IO/3ID - 1IO PRESET BATCHIO. 03225 M01S02997.1io +++| TITLE 03226 M01S02998.1io +++| QUAL 3ID 03227 M01S02999.1io +++| IDENT 3ID,PRSX 03228 M01S03000.1io +++|*COMMENT 1IO - BATCHIO PRESET.
| Line S03001 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03229 M02S03001.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 03230 M01S00011.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03231 M01S03002.1io +++| TITLE PRESET BATCHIO. 03232 M01S03003.1io +++| PRS SPACE 4,10 03233 M01S03004.1io +++|** PRS - PRESET BATCHIO. 03234 M01S03005.1io +++| 03235 M01S03006.1io +++| 03236 M01S03007.1io +++| ORG ORGR 03237 M01S03008.1io +++| 03238 M01S03009.1io +++| PRS SUBR ENTRY/EXIT 03239 M01S03010.1io +++| LDD IR+4 CHECK RECOVERY 03240 M01S03011.1io +++| LMN DRET 03241 M01S03012.1io +++| NJN PRS1 IF NOT DEADSTART RERUN 03242 M01S03013.1io +++| RJM RIO RECOVER *BATCHIO* 03243 M01S03014.1io +++| LDC 4000 SET RECOVERY FLAG 03244 M01S03015.1io +++| STD IR+4 03245 M01S03016.1io +++| PRS1 LDN 0 CLEAR INPUT REGISTER FLAGS 03246 M01S03017.1io +++| STD IR+2 03247 M01S03018.1io +++| STD IR+3 03248 M01S03019.1io +++| LDN ZERL CLEAR CONSOLE MESSAGE 03249 M01S03020.1io +++| CRD CM 03250 M01S03021.1io +++| LDD CP 03251 M01S03022.1io +++| ADN MS1W 03252 M01S03023.1io +++| CWD CM 03253 M01S03024.1io +++| LDN CTIR-1 CLEAR (RA - RA+CTIR) 03254 M01S03025.1io +++| STD CM+2 03255 M01S03026.1io +++| LDD HN SET SUBFUNCTION = RELATIVE ADDRESSES 03256 M01S03027.1io +++| STD CM+1 03257 M01S03028.1io +++| AOD CM+4 03258 M01S03029.1io +++| MONITOR CSTM 03259 M01S03030.1io +++| 03260 M01S03031.1io +++|* BUILD AVAILABLE EQUIPMENT TABLE. 03261 M01S03032.1io +++| 03262 M01S03033.1io +++| LDN ESTP READ EST POINTER 03263 M01S03034.1io +++| CRD CM 03264 M01S03035.1io +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 03265 M01S03036.1io +++| STD T1 03266 M01S03037.1io +++| LDN 0 03267 M01S03038.1io +++| STD T2 CLEAR TABLE INDEX 03268 M01S03039.1io +++| PRS4 AOD T1 ADVANCE EST ORDINAL 03269 M01S03040.1io +++| LMD CM+2 03270 M01S03041.1io +++| ZJP PRS8 IF END OF EST 03271 M01S03042.1io +++| SFA EST,T1 READ EST ENTRY 03272 M01S03043.1io +++| ADK EQDE 03273 M01S03044.1io +++| CRD CN READ EST ENTRY 03274 M01S03045.1io +++| LDD CN+3 03275 M01S03046.1io +++| ZJN PRS4 IF EQUIPMENT UNDEFINED 03276 M01S03047.1io +++| LCN 1 03277 M01S03048.1io +++| STD T3 03278 M01S03049.1io +++| PRS6 LDN 2 ADVANCE TABLE INDEX 03279 M01S03050.1io +++| RAD T3 03280 M01S03051.1io +++| LDM TEQT,T3 COMPARE EQUIPMENT TYPE 03281 M01S03052.1io +++| ZJN PRS4 IF END OF TABLE 03282 M01S03053.1io +++| LMD CN+3
| Line S03054 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03283 M02S03054.252l678 ---| LPC 3777 03284 M01S03055.1io +++| NJN PRS6 IF NO MATCH 03285 M01S03056.1io +++| LDN ZERL 03286 M01S03057.1io +++| CRD CN 03287 M01S03058.1io +++| LDD T2 CHECK BUFFER POINT AVAILABLE 03288 M01S03059.1io +++| SBN MXEQ 03289 M01S03060.1io +++| PJN PRS9 IF NONE LEFT 03290 M01S03061.1io +++| LDD T1 03291 M01S03062.1io +++| STD CN+3 03292 M01S03063.1io +++| SHN 3 SET EST ORDINAL AND TYPE IN TABLE 03293 M01S03064.1io +++| LMM TEQT+1,T3 03294 M01S03065.1io +++| STM TAEQ+1,T2 03295 M01S03066.1io +++| NFA BFCW STORE BUFFER POINT WORD 03296 M01S03067.1io +++| ADD T2 03297 M01S03068.1io +++| ADD T2 03298 M01S03069.1io +++| CWD CN 03299 M01S03070.1io +++| AOD T2 ADVANCE TABLE 03300 M01S03071.1io +++| LJM PRS4 LOOP 03301 M01S03072.1io +++| 03302 M01S03073.1io +++| PRS8 LDD T2 SET EQUIPMENT COUNT 03303 M01S03074.1io +++| STM TAEQ 03304 M01S03075.1io +++| NJN PRS10 IF EQUIPMENT AVAILABLE 03305 M01S03076.1io +++| LDC =C*NO EQUIPMENT AVAILABLE.* 03306 M01S03077.1io +++| RJM DFM 03307 M01S03078.1io +++| LJM DPP DROP PP 03308 M01S03079.1io +++| 03309 M01S03080.1io +++| PRS9 LDD T2 SET EQUIPMENT COUNT 03310 M01S03081.1io +++| STM TAEQ 03311 M01S03082.1io +++| LDC =C* NOT ALL EQUIPMENT SERVICABLE.* 03312 M01S03083.1io +++| RJM DFM 03313 M01S03084.1io +++| LDM TAEQ RESTORE 03314 M01S03085.1io +++| STD T2 03315 M01S03086.1io +++| PRS10 AOD T2 CLEAR REMAINDER OF TABLE 03316 M01S03087.1io +++| SBK TAEQL 03317 M01S03088.1io +++| PJN PRS11 IF END OF TABLE 03318 M01S03089.1io +++| LDN 0 03319 M01S03090.1io +++| STM TAEQ,T2 03320 M01S03091.1io +++| UJN PRS10 LOOP 03321 M01S03092.1io +++| 03322 M01S03093.1io +++| PRS11 LDN TAEQL/5 STORE AVAILABLE EQUIPMENT TABLE 03323 M01S03094.1io +++| STD T1 03324 M01S03095.1io +++| LDD RA 03325 M01S03096.1io +++| SHN 6 03326 M01S03097.1io +++| ADN TEQR 03327 M01S03098.1io +++| CWM TAEQ,T1 03328 M01S03099.1io +++| LDN 40 SET PRESET COMPLETE FLAG 03329 M01S03100.1io +++| RAD IR+1 03330 M01S03101.1io +++| LDN IPRL CHECK 64 CHARACTER SET 03331 M01S03102.1io +++| CRD CN 03332 M01S03103.1io +++| LDD CN+2 03333 M01S03104.1io +++| SHN 21-0 03334 M01S03105.1io +++| MJN PRS12 IF 64 CHARACTER SET 03335 M01S03106.1io +++| RJM CCT CHANGE CONVERSION TABLES 03336 M01S03107.1io +++| PRS12 LDC CTBLL/5 STORE CONVERSION TABLES 03337 M01S03108.1io +++| STD T1 03338 M01S03109.1io +++| LDD RA 03339 M01S03110.1io +++| SHN 6 03340 M01S03111.1io +++| ADN CTIR 03341 M01S03112.1io +++| CWM CTBL,T1 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 M01S03113.1io +++| LDD CP READ CONTROL STATEMENT POINTER 03345 M01S03114.1io +++| ADN CSPW 03346 M01S03115.1io +++| CRD CM 03347 M01S03116.1io +++| ADN JCRW-CSPW READ JOB CONTROL REGISTERS 03348 M01S03117.1io +++| CRD CN 03349 M01S03118.1io +++| SBN JCRW-EOJW READ END OF JOB CONTROL 03350 M01S03119.1io +++| CRD FN 03351 M01S03120.1io +++| AOD CN+1 SET (R3) = 1 03352 M01S03121.1io +++| 03353 M01S03122.1io +++|* DISABLE OUTPUT FILE WHEN SUBSYSTEM IDLEDOWN. 03354 M01S03123.1io +++| 03355 M01S03124.1io +++| LDC NOJT*100-QOJT*100 03356 M01S03125.1io +++| RAD FN 03357 M01S03126.1io +++| LDC CSBN-1 SET NEXT CONTROL STATEMENT 03358 M01S03127.1io +++| STD CM+3 03359 M01S03128.1io +++| SBN 2 SET LIMIT OF CONTROL STATEMENTS 03360 M01S03129.1io +++| STD CM+4 03361 M01S03130.1io +++| NFA CSBN STORE CONTROL STATEMENTS FOR RECOVERY 03362 M01S03131.1io +++| CWM PRSA,TR 03363 M01S03132.1io +++| LDD CP UPDATE STATEMENT POINTERS 03364 M01S03133.1io +++| ADN CSPW 03365 M01S03134.1io +++| CWD CM 03366 M01S03135.1io +++| ADN JCRW-CSPW STORE JOB CONTROL REGISTERS 03367 M01S03136.1io +++| CWD CN 03368 M01S03137.1io +++| SBN JCRW-EOJW STORE END OF JOB CONTROL 03369 M01S03138.1io +++| CWD FN 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 M01S03139.1io +++| LDC SSCF*10000+BISI SET SUBSYSTEM ACCESSABILITY FLAG 03376 M01S03140.1io +++| RJM AST 03377 M01S03141.1io +++| LJM PRSX RETURN 03378 M01S03142.1io +++| 03379 M01S03143.1io +++| PRSA VFD 60/0 03380 M01S03144.1io +++| VFD 60/0LBIO1. 03381 M01S03145.1io +++| VFD 60/0LEXIT. 03382 M01S03146.1io +++| CCT SPACE 4,10 03383 M01S03147.1io +++|** CCT - CHANGE CONVERSION TABLES 03384 M01S03148.1io +++|* 03385 M01S03149.1io +++|* CCT CHANGES CONVERSION TABLES FROM 64 CHARACTER SET 03386 M01S03150.1io +++|* TRANSLATION TO 63 CHARACTER TRANSLATION. 03387 M01S03151.1io +++|* THE COLON WILL BE CHANGED FROM 00 TO 63 DISPLAY CODE, 03388 M01S03152.1io +++|* THE PERCENT WILL BE DROPPED, AND 00 DISPLAY WILL BE 03389 M01S03153.1io +++|* TRANSLATED TO A BLANK. 03390 M01S03154.1io +++| 03391 M01S03155.1io +++| 03392 M01S03156.1io +++| CCT SUBR ENTRY/EXIT 03393 M01S03157.1io +++| 03394 M01S03158.1io +++|* COMT6DP. 03395 M01S03159.1io +++| 03396 M01S03160.1io +++| LDN 55 SPACE 03397 M01S03161.1io +++| STM CTBA+1+16 03398 M01S03162.1io +++| LDN 63 COLON 03399 M01S03163.1io +++| STM CTBA+1+12 03400 M01S03164.1io +++| 03401 M01S03165.1io +++|* COMT9DP. 03402 M01S03166.1io +++| 03403 M01S03167.1io +++| LDN 55 SPACE 03404 M01S03168.1io +++| STM CTBB+1+34 03405 M01S03169.1io +++| LDN 63 COLON 03406 M01S03170.1io +++| STM CTBB+1+12 03407 M01S03171.1io +++| 03408 M01S03172.1io +++|* COMTDA8. 03409 M01S03173.1io +++| 03410 M01S03174.1io +++| LDN 40 SPACE 03411 M01S03175.1io +++| STM CTBC+1+00 03412 M01S03176.1io +++| LDN 72 COLON 03413 M01S03177.1io +++| STM CTBC+1+63 03414 M01S03178.1io +++| 03415 M01S03179.1io +++|* COMTDP6. 03416 M01S03180.1io +++| 03417 M01S03181.1io +++| LDN 0 BLANK NO PUNCH 03418 M01S03182.1io +++| STM CTBD+1+00 03419 M01S03183.1io +++| LDC 0202 COLON 8-2 03420 M01S03184.1io +++| STM CTBD+1+63 03421 M01S03185.1io +++| 03422 M01S03186.1io +++|* COMTDP9. 03423 M01S03187.1io +++| 03424 M01S03188.1io +++| LDN 0 BLANK NO PUNCH 03425 M01S03189.1io +++| STM CTBE+1+00 03426 M01S03190.1io +++| LDC 0202 COLON 8-2 03427 M01S03191.1io +++| STM CTBE+1+63 03428 M01S03192.1io +++| LJM CCTX EXIT 03429 M01S03193.1io +++| CTBL SPACE 4,10 03430 M01S03194.1io +++|** CTBL - CONVERSION TABLES. 03431 M01S03195.1io +++| 03432 M01S03196.1io +++| 03433 M01S03197.1io +++| CTBL BSS 0 03434 M01S03198.1io +++| 03435 M01S03199.1io +++| CTBA CON C6XD 03436 M01S03200.1io +++|*CALL COMT6DP
| Line S03201 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03437 M02S03201.284l847 ---| BSS CTBA+TLEN*5-* PRESERVE WORD BOUNDARY 03438 M01S00001.284l847 +++| BSS CTBA+CTLN*5-* PRESERVE WORD BOUNDARY 03439 M01S03202.1io +++| 03440 M01S03203.1io +++| CTBB CON C9XD 03441 M01S03204.1io +++|*CALL COMT9DP
| Line S03205 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03442 M02S03205.284l847 ---| BSS CTBB+TLEN*5-* PRESERVE WORD BOUNDARY 03443 M01S00002.284l847 +++| BSS CTBB+CTLN*5-* PRESERVE WORD BOUNDARY 03444 M01S03206.1io +++| 03445 M01S03207.1io +++| CTBC CON CDX8 03446 M01S03208.1io +++|*CALL COMTDA8
| Line S03209 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03447 M02S03209.284l847 ---| BSS CTBC+TLEN*5-* PRESERVE WORD BOUNDARY 03448 M01S00003.284l847 +++| BSS CTBC+CTLN*5-* PRESERVE WORD BOUNDARY 03449 M01S03210.1io +++| 03450 M01S03211.1io +++| CTBD CON CDXH 03451 M01S03212.1io +++|*CALL COMTDP6
| Line S03213 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03452 M02S03213.284l847 ---| BSS CTBD+TLEN*5-* PRESERVE WORD BOUNDARY 03453 M01S00004.284l847 +++| BSS CTBD+CTLN*5-* PRESERVE WORD BOUNDARY 03454 M01S03214.1io +++| 03455 M01S03215.1io +++| CTBE CON CDXA 03456 M01S03216.1io +++|*CALL COMTDP9
| Line S03217 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 03457 M02S03217.284l847 ---| BSS CTBE+TLEN*5-* PRESERVE WORD BOUNDARY 03458 M01S00005.284l847 +++| BSS CTBE+CTLN*5-* PRESERVE WORD BOUNDARY 03459 M01S03218.1io +++| 03460 M01S03219.1io +++| CTBLL EQU *-CTBL 03461 M01S03220.1io +++| 03462 M01S03221.1io +++| ERRNZ CTBLL/5*5-CTBLL INSURE TABLE LENGTH IS MULTIPLE 03463 M01S03222.1io +++|* OF CM WORDS 03464 M01S03223.1io +++| TEQT SPACE 4,10 03465 M01S03224.1io +++|** TEQT - TABLE OF EQUIPMENT TYPES. 03466 M01S03225.1io +++|* ENTRY = 2 WORDS. 03467 M01S03226.1io +++|* 03468 M01S03227.1io +++|*T TEQT 12/MNEMONIC, 12/DEVICE TYPE
Figure TEQT
03469 M01S03228.1io +++| 03470 M01S03229.1io +++| 03471 M01S03230.1io +++| TEQT BSS 0 03472 M01S03231.1io +++| VFD 12/2RCP,12/CPDT 415 03473 M01S03232.1io +++| VFD 12/2RCR,12/CRDT 405 03474 M01S03233.1io +++| VFD 12/2RLQ,12/LPDT 512 03475 M01S03234.1io +++| VFD 12/2RLR,12/LPDT 580-12 03476 M01S03235.1io +++| VFD 12/2RLS,12/LPDT 580-16 03477 M01S03236.1io +++| VFD 12/2RLT,12/LPDT 580-20 03478 M01S03237.1io +++| VFD 12/2RLX,12/NPDT 5870 03479 M01S03238.1io +++| VFD 12/2RLY,12/NPDT 5970 03480 M01S03239.1io +++| DATA 0 03481 M01S03240.1io +++| SPACE 4,10 03482 M01S03241.1io +++|** COMMON DECKS. 03483 M01S03242.1io +++| 03484 M01S03243.1io +++| 03485 M01S03244.1io +++| QUAL$ SET 1 03486 M01S03245.1io +++| AST$ EQU 0 DEFINE *COMPAST* ACCESS TO *SSCT* 03487 M01S03246.1io +++|*CALL COMPAST 03488 M01S03247.1io +++|*CALL COMPSAF 03489 M01S03248.1io +++| TITLE RECOVER BATCHIO. 03490 M01S03249.1io +++| RIO SPACE 4,10 03491 M01S03250.1io +++|** RIO - RECOVER *BATCHIO*. 03492 M01S03251.1io +++|* 03493 M01S03252.1io +++|* USES T5, T7, BA - BA+1, CM - CM+4, CN - CN+4, FN - FN+4. 03494 M01S03253.1io +++|* 03495 M01S03254.1io +++|* CALLS CAB, DEQ, DFM, RQF, SAF, SFA. 03496 M01S03255.1io +++|* 03497 M01S03256.1io +++|* MACROS NFA. 03498 M01S03257.1io +++| 03499 M01S03258.1io +++| 03500 M01S03259.1io +++| RIO4 RJM DEQ DROP EQUIPMENT 03501 M01S03260.1io +++| LDC =C* RECOVERY COMPLETE.* 03502 M01S03261.1io +++| RJM DFM 03503 M01S03262.1io +++| 03504 M01S03263.1io +++| RIO SUBR ENTRY/EXIT 03505 M01S03264.1io +++| RJM CAB COUNT ACTIVE BUFFERS 03506 M01S03265.1io +++| ZJN RIO4 IF SUBSYSTEM IDLE 03507 M01S03266.1io +++| LDN MXEQ SET MAXIMUM EQUIPMENT COUNT 03508 M01S03267.1io +++| STD T5 03509 M01S03268.1io +++| LDN 0 SET FIRST FET ADDRESS 03510 M01S03269.1io +++| STD BA 03511 M01S03270.1io +++| LDC BUFR 03512 M01S03271.1io +++| STD BA+1 03513 M01S03272.1io +++| RIO1 RJM SFA READ FILE NAME 03514 M01S03273.1io +++| CRD FN 03515 M01S03274.1io +++| ADN 4 READ LIMIT WORD 03516 M01S03275.1io +++| CRD CN 03517 M01S03276.1io +++| ADN 5-4 READ FILE PARAMETER WORD 03518 M01S03277.1io +++| CRD T7 03519 M01S03278.1io +++| LDD FN 03520 M01S03279.1io +++| ZJN RIO2 IF BUFFER UNASSIGNED 03521 M01S03280.1io +++| LDD CN SEARCH FOR ASSIGNED FILE 03522 M01S03281.1io +++| RJM SAF 03523 M01S03282.1io +++| ZJN RIO2 IF FILE NOT FOUND 03524 M01S03283.1io +++| NFA T7,R 03525 M01S03284.1io +++| CRD CM 03526 M01S03285.1io +++| LCN 0 SET REQUEUING PRIORITY 03527 M01S03286.1io +++| STD CM+2 03528 M01S03287.1io +++| NFA T7,R STORE BUFFER POINT WORD 03529 M01S03288.1io +++| CWD CM 03530 M01S03289.1io +++| RJM RQF REQUEUE FILE 03531 M01S03290.1io +++| ZJN RIO3 IF ALL ACTIVE BUFFERS PROCESSED 03532 M01S03291.1io +++| RIO2 LDD CN+3 SET NEXT FET ADDRESS 03533 M01S03292.1io +++| STD BA 03534 M01S03293.1io +++| LDD CN+4 03535 M01S03294.1io +++| STD BA+1 03536 M01S03295.1io +++| SOD T5 DECREMENT EQUIPMENT COUNT 03537 M01S03296.1io +++| NJN RIO1 IF ALL EQUIPMENT NOT CHECKED 03538 M01S03297.1io +++| RIO3 LJM RIO4 DROP EQUIPMENT 03539 M01S03298.1io +++| TITLE RECOVERY SUBROUTINES. 03540 M01S03299.1io +++| CAB SPACE 4,10 03541 M01S03300.1io +++|** CAB - COUNT ACTIVE BUFFERS. 03542 M01S03301.1io +++|* 03543 M01S03302.1io +++|* EXIT (A) = (T6) = ACTIVE BUFFER COUNT. 03544 M01S03303.1io +++|* 03545 M01S03304.1io +++|* USES T7, CM - CM+4. 03546 M01S03305.1io +++| 03547 M01S03306.1io +++| 03548 M01S03307.1io +++| CAB SUBR ENTRY/EXIT 03549 M01S03308.1io +++| LDN D1AR SET FIRST DRIVER ASSIGNMENT WORD 03550 M01S03309.1io +++| STD T7 03551 M01S03310.1io +++| LDN 0 CLEAR BUFFER COUNT 03552 M01S03311.1io +++| STD T6 03553 M01S03312.1io +++| CAB1 LDD RA READ DRIVER ASSIGNMENT WORD 03554 M01S03313.1io +++| SHN 6 03555 M01S03314.1io +++| ADD T7 03556 M01S03315.1io +++| CRD CM 03557 M01S03316.1io +++| LDD CM+1 CHECK DRIVER ASSIGNED 03558 M01S03317.1io +++| SCN 77 03559 M01S03318.1io +++| SHN 6 03560 M01S03319.1io +++| LMD CM 03561 M01S03320.1io +++| LMC 3RD1C 03562 M01S03321.1io +++| NJN CAB2 IF DRIVER NOT ASSIGNED 03563 M01S03322.1io +++| LDD CM+3 ADVANCE ACTIVE BUFFER COUNT 03564 M01S03323.1io +++| RAD T6 03565 M01S03324.1io +++| CAB2 AOD T7 ADVANCE ASSIGNMENT ADDRESS 03566 M01S03325.1io +++| LMN DRQR 03567 M01S03326.1io +++| NJN CAB1 IF NOT END OF DRIVER WORDS 03568 M01S03327.1io +++| LDD T6 03569 M01S03328.1io +++| UJN CABX RETURN 03570 M01S03329.1io +++| DEQ SPACE 4,10 03571 M01S03330.1io +++|** DEQ - DROP EQUIPMENT. 03572 M01S03331.1io +++|* 03573 M01S03332.1io +++|* USES T6, T7, CM - CM+4, CN - CN+4, FS - FS+4. 03574 M01S03333.1io +++|* 03575 M01S03334.1io +++|* MACROS MONITOR, SFA. 03576 M01S03335.1io +++| 03577 M01S03336.1io +++| 03578 M01S03337.1io +++| DEQ SUBR ENTRY/EXIT 03579 M01S03338.1io +++| LDN ESTP READ EST POINTER 03580 M01S03339.1io +++| CRD FS 03581 M01S03340.1io +++| LDD CP FETCH EJT ORDINAL 03582 M01S03341.1io +++| ADN TFSW 03583 M01S03342.1io +++| CRD T6 03584 M01S03343.1io +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 03585 M01S03344.1io +++| STD T7 03586 M01S03345.1io +++| DEQ1 AOD T7 ADVANCE EST ORDINAL 03587 M01S03346.1io +++| STD CM+1 03588 M01S03347.1io +++| LMD FS+2 03589 M01S03348.1io +++| ZJN DEQX IF END OF EST 03590 M01S03349.1io +++| SFA EST,T7 READ EQUIPMENT ASSIGNMENT 03591 M01S03350.1io +++| ADK EQAE 03592 M01S03351.1io +++| CRD CN 03593 M01S03352.1io +++| LDD CN+4 03594 M01S03353.1io +++| LMD T6 03595 M01S03354.1io +++| NJN DEQ1 IF NOT ASSIGNED TO THIS JOB 03596 M01S03355.1io +++| MONITOR DEQM RELEASE EQUIPMENT 03597 M01S03356.1io +++| UJN DEQ1 LOOP TO END OF EST 03598 M01S03357.1io +++| RQF SPACE 4,15 03599 M01S03358.1io +++|** RQF - REQUEUE FILE. 03600 M01S03359.1io +++|* 03601 M01S03360.1io +++|* ENTRY (T6) = ACTIVE BUFFER COUNT. 03602 M01S03361.1io +++|* (BA - BA+1) = FET ADDRESS. 03603 M01S03362.1io +++|* (FN - FN+4) = FILE NAME. 03604 M01S03363.1io +++|* 03605 M01S03364.1io +++|* EXIT (A) = (T6) = ACTIVE BUFFER COUNT DECREMENTED. 03606 M01S03365.1io +++|* 03607 M01S03366.1io +++|* USES CM - CM+4. 03608 M01S03367.1io +++|* 03609 M01S03368.1io +++|* CALLS SFA, WNB. 03610 M01S03369.1io +++|* 03611 M01S03370.1io +++|* MACROS DELAY, MONITOR, PAUSE. 03612 M01S03371.1io +++| 03613 M01S03372.1io +++| 03614 M01S03373.1io +++| RQF2 RJM WNB WAIT NOT BUSY 03615 M01S03374.1io +++| SOD T6 DECREMENT ACTIVE BUFFER COUNT 03616 M01S03375.1io +++| 03617 M01S03376.1io +++| RQF SUBR ENTRY/EXIT 03618 M01S03377.1io +++| LDD BA+1 SET FET ADDRESS IN *QAP* CALL 03619 M01S03378.1io +++| STM RQFA+4 03620 M01S03379.1io +++| LDD BA 03621 M01S03380.1io +++| STM RQFA+3 03622 M01S03381.1io +++| LDC RQFF SET *QAP* FUNCTION IN FET 03623 M01S03382.1io +++| STD FN+4 03624 M01S03383.1io +++| RJM SFA STORE FUNCTION IN FET 03625 M01S03384.1io +++| CWD FN 03626 M01S03385.1io +++| ADN QAPO SET *DSP* PARAMETER BLOCK BUSY 03627 M01S03386.1io +++| CWD FN 03628 M01S03387.1io +++| RQF1 LDD MA STORE *QAP* CALL 03629 M01S03388.1io +++| CWM RQFA,ON 03630 M01S03389.1io +++| LDN 0 ALLOW QUEUING OF PP REQUEST 03631 M01S03390.1io +++| STD CM+1 03632 M01S03391.1io +++| MONITOR RPPM 03633 M01S03392.1io +++| LDD CM+1 03634 M01S03393.1io +++| NJN RQF2 IF PP ASSIGNED / REQUEST QUEUED 03635 M01S03394.1io +++| DELAY WAIT AWHILE 03636 M01S03395.1io +++| PAUSE CHECK ERROR FLAG 03637 M01S03396.1io +++| LDD CM+1 03638 M01S03397.1io +++| ZJN RQF1 IF NO ERROR FLAG SET 03639 M01S03398.1io +++| MONITOR ABTM ABORT JOB 03640 M01S03399.1io +++| LJM PPR EXIT TO PP RESIDENT 03641 M01S03400.1io +++| 03642 M01S03401.1io +++| RQFA VFD 18/0LQAP,42/BUFR 03643 M01S03402.1io +++| WNB SPACE 4,10 03644 M01S03403.1io +++|** WNB - WAIT NOT BUSY. 03645 M01S03404.1io +++|* 03646 M01S03405.1io +++|* USES FN - FN+4. 03647 M01S03406.1io +++|* 03648 M01S03407.1io +++|* CALLS SFA. 03649 M01S03408.1io +++|* 03650 M01S03409.1io +++|* MACROS DELAY, MONITOR, PAUSE. 03651 M01S03410.1io +++| 03652 M01S03411.1io +++| 03653 M01S03412.1io +++| WNB2 RJM SFA CHECK *DSP* PARAMETER BLOCK 03654 M01S03413.1io +++| ADN QAPO 03655 M01S03414.1io +++| CRD FN 03656 M01S03415.1io +++| LDD FN+4 03657 M01S03416.1io +++| LPN 1 03658 M01S03417.1io +++| ZJN WNB1 IF FILE BUSY 03659 M01S03418.1io +++| 03660 M01S03419.1io +++| WNB SUBR ENTRY/EXIT 03661 M01S03420.1io +++| WNB1 DELAY WAIT AWHILE 03662 M01S03421.1io +++| PAUSE CHECK ERROR FLAG 03663 M01S03422.1io +++| LDD CM+1 03664 M01S03423.1io +++| ZJN WNB2 IF NO ERROR FLAG SET 03665 M01S03424.1io +++| MONITOR ABTM ABORT JOB 03666 M01S03425.1io +++| LJM PPR EXIT TO PP RESIDENT 03667 M01S03426.1io +++| SPACE 4,10 03668 M01S03427.1io +++| OVERFLOW ORGR,BFMS 03669 M01S03428.1io +++| TTL 1IO/3IF - LOAD CCC/NIP CONTROLWARE. 03670 M01S03429.1io +++| TITLE 03671 M01S03430.1io +++| QUAL 3IF 03672 M01S03431.1io +++| IDENT 3IF,LCCX 03673 M01S03432.1io +++|*COMMENT 1IO - LOAD CCC/NIP CONTROLWARE.
| Line S03433 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03674 M02S03433.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 03675 M01S00012.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03676 M01S03434.1io +++| 3IF SPACE 4,15 03677 M01S03435.1io +++|** *3IF* LOADS 5870/5970 CONTROLWARE INTO A CYBER CHANNEL 03678 M01S03436.1io +++|* COUPLER (CCC). 03679 M01S03437.1io +++| SPACE 4,10 03680 M01S03438.1io +++|** COMMON DECKS. 03681 M01S03439.1io +++| 03682 M01S03440.1io +++| 03683 M01S03441.1io +++|*CALL COMSMSP 03684 M01S03442.1io +++| SPACE 4,10 03685 M01S03443.1io +++|** CCC8700 FILE INFORMATION. 03686 M01S03444.1io +++| 03687 M01S03445.1io +++| 03688 M01S03446.1io +++| T52W EQU 17 52 TABLE WORD 03689 M01S03447.1io +++| LDTL EQU 20 LOADER TABLES LENGTH 03690 M01S03448.1io +++| TITLE MAIN ROUTINE. 03691 M01S03449.1io +++| LCC SPACE 4,20 03692 M01S03450.1io +++|** LCC - LOAD CCC CONTROLWARE. 03693 M01S03451.1io +++|* 03694 M01S03452.1io +++|* ENTRY (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 03695 M01S03453.1io +++|* (ES - ES+4) = EST ENTRY. 03696 M01S03454.1io +++|* EQUIPMENT AND CHANNEL RESERVED. 03697 M01S03455.1io +++|* 03698 M01S03456.1io +++|* EXIT (A) = 0 IF CONTROLWARE LOADED. 03699 M01S03457.1io +++|* 03700 M01S03458.1io +++|* ERROR TO *FCN3* IF LOAD ERROR. 03701 M01S03459.1io +++|* 03702 M01S03460.1io +++|* USES CN, MC. 03703 M01S03461.1io +++|* 03704 M01S03462.1io +++|* CALLS CGS, COE, GCW, LCW, RSI, /3IC/ERM. 03705 M01S03463.1io +++|* 03706 M01S03464.1io +++|* MACROS EXECUTE. 03707 M01S03465.1io +++| 03708 M01S03466.1io +++| 03709 M01S03467.1io +++| ORG ORGR 03710 M01S03468.1io +++| 03711 M01S03469.1io +++| LCC SUBR ENTRY/EXIT 03712 M01S03470.1io +++| LDD FL SAVE FIELD LENGTH 03713 M01S03471.1io +++| STD CN 03714 M01S03472.1io +++| RJM GCW GET CCC/NIP CONTROLWARE 03715 M01S03473.1io +++| NJN LCCX IF STORAGE NOT AVAILABLE 03716 M01S03474.1io +++| RJM LCW LOAD CCC/NIP CONTROLWARE 03717 M01S03475.1io +++| LDD CN RESET FIELD LENGTH 03718 M01S03476.1io +++| RJM RSI 03719 M01S03477.1io +++| RJM CGS GET GENERAL STATUS 03720 M01S03478.1io +++| NJN LCC2 IF ERROR 03721 M01S03479.1io +++| LDD ST 03722 M01S03480.1io +++| NJN LCC1 IF LOAD ERROR 03723 M01S03481.1io +++| RJM COE CHECK OTHER EQUIPMENT 03724 M01S03482.1io +++| LDN ECLM *EQXXX CCC/NIP CONTROLWARE LOADED.* 03725 M01S03483.1io +++| STD MC 03726 M01S03484.1io +++| EXECUTE 3IC 03727 M01S03485.1io +++| RJM /3IC/ERM SEND ERROR MESSAGE 03728 M01S03486.1io +++| LDN 0 LOAD SUCCESSFUL 03729 M01S03487.1io +++| UJN LCCX RETURN 03730 M01S03488.1io +++| 03731 M01S03489.1io +++| LCC1 LDN ECLE *EQXXX CCC/NIP CONTROLWARE LOAD ERROR.* 03732 M01S03490.1io +++| LCC2 LJM FCN3 PROCESS ERROR 03733 M01S03491.1io +++| SPACE 4,10 03734 M01S03492.1io +++| ERRNG OIES-5-* *3IC* OVERLAYS CODE 03735 M01S03493.1io +++| TITLE SUBROUTINES. 03736 M01S03494.1io +++| COE SPACE 4,10 03737 M01S03495.1io +++|** COE - CHECK OTHER EQUIPMENT. 03738 M01S03496.1io +++|* 03739 M01S03497.1io +++|* ENTRY (ES+1) = CURRENT CHANNEL BEING LOADED. 03740 M01S03498.1io +++|* 03741 M01S03499.1io +++|* USES T1, CN - CN+4. 03742 M01S03500.1io +++|* 03743 M01S03501.1io +++|* CALLS UES. 03744 M01S03502.1io +++|* 03745 M01S03503.1io +++|* MACROS SFA. 03746 M01S03504.1io +++| 03747 M01S03505.1io +++| 03748 M01S03506.1io +++| COE SUBR ENTRY/EXIT 03749 M01S03507.1io +++| LDM TAEQ SET AVAILABLE EQUIPMENT COUNT 03750 M01S03508.1io +++| STD T1 03751 M01S03509.1io +++| COE1 LDM TAEQ,T1 LOOK FOR NON-IMPACT PRINTER 03752 M01S03510.1io +++| LPN 7 03753 M01S03511.1io +++| SBK NPDT 03754 M01S03512.1io +++| ZJN COE3 IF NON-IMPACT PRINTER 03755 M01S03513.1io +++| COE2 SOD T1 03756 M01S03514.1io +++| NJN COE1 IF MORE EQUIPMENT TO CHECK 03757 M01S03515.1io +++| UJN COEX RETURN 03758 M01S03516.1io +++| 03759 M01S03517.1io +++| COE3 LDM TAEQ,T1 READ EQUIPMENT EST ENTRY 03760 M01S03518.1io +++| SHN -3 03761 M01S03519.1io +++| SFA EST 03762 M01S03520.1io +++| ADK EQDE 03763 M01S03521.1io +++| CRD CN 03764 M01S03522.1io +++| LDD CN CHECK CONTROLWARE LOAD REQUIRED 03765 M01S03523.1io +++| SHN 21-4 03766 M01S03524.1io +++| PJN COE2 IF NOT CONTROLWARE LOAD REQUIRED 03767 M01S03525.1io +++| LDD ES+1 03768 M01S00009.252l678 +++| LMD CN+1 03769 M01S03526.1io +++| LPN 37
| Line S03527 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03770 M02S03527.252l678 ---| LMD CN+1 03771 M01S03528.1io +++| NJN COE2 IF NOT CURRENT CHANNEL 03772 M01S03529.1io +++| LDM TAEQ,T1 03773 M01S03530.1io +++| RJM UES UPDATE EQUIPMENT STATUS 03774 M01S03531.1io +++| UJN COE2 CHECK NEXT EQUIPMENT 03775 M01S03532.1io +++| GCB SPACE 4,10 03776 M01S03533.1io +++|** GCB - GET CENTRAL MEMORY BUFFER. 03777 M01S03534.1io +++|* 03778 M01S03535.1io +++|* ENTRY (A) = BUFFER SIZE NEEDED (CM WORDS). 03779 M01S03536.1io +++|* 03780 M01S03537.1io +++|* EXIT (A) = 0 IF BUFFER ASSIGNED. 03781 M01S03538.1io +++|* 03782 M01S03539.1io +++|* USES CM - CM+4. 03783 M01S03540.1io +++|* 03784 M01S03541.1io +++|* MACROS MONITOR. 03785 M01S03542.1io +++| 03786 M01S03543.1io +++| 03787 M01S03544.1io +++| GCB SUBR ENTRY/EXIT 03788 M01S03545.1io +++| ADC 77+LDTL 03789 M01S03546.1io +++| SHN -6 03790 M01S03547.1io +++| ADD FL 03791 M01S03548.1io +++| STD CM+1 03792 M01S03549.1io +++| LDN 0 03793 M01S03550.1io +++| STD CM+2 03794 M01S03551.1io +++| MONITOR RSTM REQUEST STORAGE INCREASE 03795 M01S03552.1io +++| LDD CM+1 03796 M01S03553.1io +++| UJN GCBX RETURN 03797 M01S03554.1io +++| GCW SPACE 4,15 03798 M01S03555.1io +++|** GCW - GET CCC/NIP CONTROLWARE. 03799 M01S03556.1io +++|* 03800 M01S03557.1io +++|* EXIT (A) = 0 IF CONTROLWARE MOVED TO CM. 03801 M01S03558.1io +++|* (CN+3 - CN+4) = LENGTH OF CONTROLWARE. 03802 M01S03559.1io +++|* 03803 M01S03560.1io +++|* ERROR TO *MSR1* IF CONTROLWARE NOT FOUND. 03804 M01S03561.1io +++|* 03805 M01S03562.1io +++|* USES T5, T6, T7, AB - AB+4, CM - CM+4, FN - FN+4. 03806 M01S03563.1io +++|* 03807 M01S03564.1io +++|* CALLS GCB, CLD, RNS. 03808 M01S03565.1io +++|* 03809 M01S03566.1io +++|* MACROS ENDMS, SETMS. 03810 M01S03567.1io +++| 03811 M01S03568.1io +++| 03812 M01S03569.1io +++| GCW SUBR ENTRY/EXIT 03813 M01S03570.1io +++| LDD MA SET CONTROLWARE RECORD NAME 03814 M01S03571.1io +++| CWM CCCN,ON 03815 M01S03572.1io +++| SBN 1 03816 M01S03573.1io +++| CRD AB 03817 M01S03574.1io +++| RJM CLD SEARCH CENTRAL LIBRARY DIRECTORY 03818 M01S03575.1io +++| NJN GCW1 IF CONTROLWARE RECORD FOUND 03819 M01S03576.1io +++| LDN ECNF *EQXXX CCC/NIP CONTROLWARE NOT FOUND.* 03820 M01S03577.1io +++| LJM MSR1 PROCESS ERROR 03821 M01S03578.1io +++| 03822 M01S03579.1io +++| GCW1 CRD FN READ TRACK AND SECTOR 03823 M01S03580.1io +++| LDN FNTP GET SYSTEM EQUIPMENT 03824 M01S03581.1io +++| CRD CM 03825 M01S03582.1io +++| LDD CM READ SYSTEM FST 03826 M01S03583.1io +++| SHN 14 03827 M01S03584.1io +++| ADD CM+1 03828 M01S03585.1io +++| ADK SYFO*FNTE+FSTG 03829 M01S03586.1io +++| CRD T5 03830 M01S03587.1io +++| SETMS READSYS 03831 M01S03588.1io +++| LDD FN+3 SET FILE POINTERS 03832 M01S03589.1io +++| STD T6 TRACK 03833 M01S03590.1io +++| LDD FN+4 SECTOR 03834 M01S03591.1io +++| STD T7 03835 M01S03592.1io +++| LDN 0 SET FIRST SECTOR FLAG 03836 M01S03593.1io +++| STD FN+1 03837 M01S03594.1io +++| GCW2 LDC BFMS READ SECTOR 03838 M01S03595.1io +++| RJM RNS 03839 M01S03596.1io +++| ZJN GCW4 IF END OF FIRMWARE 03840 M01S03597.1io +++| STD FN SAVE WORD COUNT 03841 M01S03598.1io +++| LDD FN+1 CHECK IF FIRST SECTOR 03842 M01S03599.1io +++| NJN GCW3 IF NOT FIRST SECTOR 03843 M01S03600.1io +++| ENDMS 03844 M01S03601.1io +++| LDM BFMS+2+T52W*5+3 SET BUFFER SIZE REQUIRED 03845 M01S03602.1io +++| STD CN+3 03846 M01S03603.1io +++| SHN 14 03847 M01S03604.1io +++| ADM BFMS+2+T52W*5+4 03848 M01S03605.1io +++| STD CN+4 03849 M01S03606.1io +++| RJM GCB GET CENTRAL MEMORY BUFFER 03850 M01S03607.1io +++| NJN GCW5 IF BUFFER NOT ASSIGNED 03851 M01S03608.1io +++| GCW3 LDD RA WRITE BUFFER TO CENTRAL MEMORY 03852 M01S03609.1io +++| ADD CN 03853 M01S03610.1io +++| ADD FN+1 03854 M01S03611.1io +++| SHN 6 03855 M01S03612.1io +++| CWM BFMS+2,FN 03856 M01S03613.1io +++| AOD FN+1 03857 M01S03614.1io +++| LDD FN CHECK FOR EOR 03858 M01S03615.1io +++| SHN -6 03859 M01S03616.1io +++| NJN GCW2 IF NOT END OF FIRMWARE 03860 M01S03617.1io +++| GCW4 ENDMS 03861 M01S03618.1io +++|* LDN 0 03862 M01S03619.1io +++| GCW5 LJM GCWX RETURN 03863 M01S03620.1io +++| LCW SPACE 4,10 03864 M01S03621.1io +++|** LCW - LOAD CCC/NIP CONTROLWARE. 03865 M01S03622.1io +++|* 03866 M01S03623.1io +++|* ENTRY (CN) = FWA / 100B OF BUFFER. 03867 M01S03624.1io +++|* (CN+3 - CN+4) = CONTROLWARE LENGTH. 03868 M01S03625.1io +++|* 03869 M01S03626.1io +++|* ERROR TO *MSR1* IF ERROR. 03870 M01S03627.1io +++|* 03871 M01S03628.1io +++|* USES CS, FN, FN+1, CN+3 - CN+4. 03872 M01S03629.1io +++|* 03873 M01S03630.1io +++|* CALLS CFN, MCI. 03874 M01S03631.1io +++| 03875 M01S03632.1io +++| 03876 M01S03633.1io +++| LCW3 STD CN+4 SET REMAINING WORD COUNT 03877 M01S03634.1io +++| SHN -6 03878 M01S03635.1io +++| NJN LCW4 IF MORE THAN 100B WORDS 03879 M01S03636.1io +++| LDD CN+4 03880 M01S03637.1io +++| STD FN 03881 M01S03638.1io +++| LCW4 SHN -6 03882 M01S03639.1io +++| STD CN+3 03883 M01S03640.1io +++| LCW5 LDD RA READ NEXT BUFFER 03884 M01S03641.1io +++| ADD CN 03885 M01S03642.1io +++| ADD FN+1 03886 M01S03643.1io +++| SHN 6 03887 M01S03644.1io +++| ADN LDTL 03888 M01S03645.1io +++| CRM BFMS+2,FN 03889 M01S03646.1io +++| LDD FN COMPUTE BYTE COUNT 03890 M01S03647.1io +++| SHN 2 03891 M01S03648.1io +++| ADD FN 03892 M01S03649.1io +++| OAM BFMS+2,CH 03893 M01S03650.1io +++| NJN LCW1 IF INCOMPLETE TRANSFER 03894 M01S03651.1io +++| AOD FN+1 ADVANCE BUFFER ADDRESS 03895 M01S03652.1io +++| LDD CN+3 03896 M01S03653.1io +++| SHN 14 03897 M01S03654.1io +++| ADD CN+4 03898 M01S03655.1io +++| SBD FN 03899 M01S03656.1io +++| NJN LCW3 IF MORE TO LOAD 03900 M01S03657.1io +++| FJM *,CH IF TRANSFER NOT COMPLETE 03901 M01S03658.1io +++| DCN CH+40 03902 M01S03659.1io +++| 03903 M01S03660.1io +++| LCW SUBR ENTRY/EXIT 03904 M01S03661.1io +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 03905 M01S03662.1io +++| LDD HN 03906 M01S03663.1io +++| STD FN 03907 M01S03664.1io +++| LDC 414 ISSUE AUTOLOAD FUNCTION 03908 M01S03665.1io +++| RJM CFN 03909 M01S03666.1io +++| STD FN+1 03910 M01S03667.1io +++| NJN LCW2 IF ERROR 03911 M01S03668.1io +++| ACN CH 03912 M01S03669.1io +++| LJM LCW5 OUTPUT CONTROLWARE TO CCC 03913 M01S03670.1io +++| 03914 M01S03671.1io +++| LCW1 STD CS SAVE BYTE COUNT 03915 M01S03672.1io +++| LDN EITM *EQXXX INCOMPLETE DATA TRANSFER.* 03916 M01S03673.1io +++| LCW2 LJM MSR1 PROCESS ERROR 03917 M01S03674.1io +++| MCI SPACE 4,10 03918 M01S03675.1io +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 03919 M01S03676.1io +++|* 03920 M01S03677.1io +++|* ENTRY (ES+1) = CHANNEL NUMBER. 03921 M01S03678.1io +++|* 03922 M01S03679.1io +++|* USES T1, T2. 03923 M01S03680.1io +++| 03924 M01S03681.1io +++| 03925 M01S03682.1io +++| MCI1 RAI T2 03926 M01S03683.1io +++| AOD T1 03927 M01S03684.1io +++| MCI2 LDI T1 03928 M01S03685.1io +++| STD T2 03929 M01S03686.1io +++| LDD ES+1 03930 M01S00010.252l678 +++| LPN 37 03931 M01S03687.1io +++| CHTL * 03932 M01S03688.1io +++| SBN CH 03933 M01S03689.1io +++| NJN MCI1 IF MORE INSTRUCTIONS TO MODIFY 03934 M01S03690.1io +++| 03935 M01S03691.1io +++| MCI SUBR ENTRY/EXIT 03936 M01S03692.1io +++| LDC TCHS LOAD FWA OF CHANNEL TABLE ADDRESSES 03937 M01S03693.1io +++| STD T1 03938 M01S03694.1io +++| UJN MCI2 UPDATE CHANNEL INSTRUCTIONS 03939 M01S03695.1io +++| MSR SPACE 4,15 03940 M01S03696.1io +++|** MSR - ERROR PROCESSOR FOR *COMPRNS*. 03941 M01S03697.1io +++|* 03942 M01S03698.1io +++|* ENTRY (CN) = ORIGINAL FL. 03943 M01S03699.1io +++|* 03944 M01S03700.1io +++|* EXIT TO *FCN3*. 03945 M01S03701.1io +++|* 03946 M01S03702.1io +++|* USES MC. 03947 M01S03703.1io +++|* 03948 M01S03704.1io +++|* CALLS RSI. 03949 M01S03705.1io +++|* 03950 M01S03706.1io +++|* MACROS ENDMS. 03951 M01S03707.1io +++| 03952 M01S03708.1io +++| 03953 M01S03709.1io +++| MSR SUBR ENTRY/EXIT 03954 M01S03710.1io +++| ENDMS 03955 M01S03711.1io +++| LDN ECWE *EQXXX CCC/NIP CONTROLWARE LOAD ERROR.*
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1io.001.txt · Last modified: by 127.0.0.1