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