cdc:nos2.source:opl.opl871:deck:1mb.001
Deck 1MB Part 001
13 Modifications
Listing Sections
- Deck 1MB Start
- Deck 1MB Part 1 (Line 1922)
- Deck 1MB Part 2 (Line 3896)
Source
Seq # *Modification Id* Act ----------------------------+ 01922 M01S01745.ns2769 ---| CWM BHDR,T3 01923 M01S01746.ns2769 ---| LDD T3 UPDATE LENGTH OF DATA IN *EMB* 01924 M01S01747.ns2769 ---| RAD CN+3 01925 M01S01748.ns2769 ---| LDD CN+4 01926 M01S01749.ns2769 ---| LPN 2 01927 M01S01750.ns2769 ---| NJN IMD3 IF *1MD* ALREADY CALLED 01928 M01S01751.ns2769 ---| LDN 10 01929 M01S01752.ns2769 ---| STD CM+1 FORCE ASSIGNMENT TO SYSTEM CP 01930 M01S01753.ns2769 ---| LDD MA 01931 M01S01754.ns2769 ---| CWM IMDA,ON STORE MESSAGE BUFFER FOR *1MD* CALL 01932 M01S01755.ns2769 ---| EXECUTE 1MD,= 01933 M01S01756.ns2769 ---| MONITOR RPPM REQUEST PP FOR *1MD* 01934 M01S01757.ns2769 ---| LDD CM+1 01935 M01S01758.ns2769 ---| ZJN IMD3 IF NO PP-S AVAILABLE 01936 M01S01759.ns2769 ---| LDN 2 SET *1MD* CALLED FLAG 01937 M01S01760.ns2769 ---| RAD CN+4 01938 M01S01761.ns2769 ---| IMD3 SOD CN+4 CLEAR *EMB* INTERLOCK 01939 M01S01762.ns2769 ---| LDD T6 01940 M01S01763.ns2769 ---| SHN 14 UPDATE *EMB* INFORMATION 01941 M01S01764.ns2769 ---| LMD T7 01942 M01S01765.ns2769 ---| CWD CN
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01943 M01S00042.ns2769 +++| LDC BHDR 01944 M01S00043.ns2769 +++| RJM IMB ISSUE MESSAGE TO BUFFER 01945 M00S01766.1mb +++| LDM MBUF+1*5+1 SET NOT FIRST BLOCK FLAG 01946 M00S01767.1mb +++| SCN 10 01947 M00S01768.1mb +++| LMN 10 01948 M00S01769.1mb +++| STM MBUF+1*5+1 01949 M00S01770.1mb +++| UJP IMDX RETURN
| Line S01771 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01950 M01S01771.ns2769 ---| 01951 M01S01772.ns2769 ---| 01952 M01S01773.ns2769 ---| IMDA VFD 18/0L1MD,42/1 01953 M00S01774.1mb +++| LDT SPACE 4,15 01954 M00S01775.1mb +++|** LDT - LOG DATA STRUCTURE. 01955 M00S01776.1mb +++|* 01956 M00S01777.1mb +++|* *LDT* LOGS THE SUPPORTIVE STATUS BUFFER AND NON-REGISTER 01957 M00S01778.1mb +++|* DATA. 01958 M00S01779.1mb +++|* 01959 M00S01780.1mb +++|* ENTRY (T4) = NUMBER OF WORDS TO LOG. 01960 M00S01781.1mb +++|* (MS - MS+1) = ADDRESS-1 OF FIRST WORD TO LOG. 01961 M00S01782.1mb +++|* 01962 M00S01783.1mb +++|* USES BP, T4, T5, CN - CN+3, MS - MS+1. 01963 M00S01784.1mb +++|* 01964 M00S01785.1mb +++|* CALLS CMB, PMB, PMR. 01965 M00S01786.1mb +++| 01966 M00S01787.1mb +++| 01967 M00S01788.1mb +++| LDT SUBR ENTRY/EXIT 01968 M00S01789.1mb +++| LDN 0 CLEAR CONTINUATION/NOT FIRST BLOCK FLAGS 01969 M00S01790.1mb +++| STM IBMG+1 01970 M00S01791.1mb +++| STD T5 SET UP FOR *PMB* 01971 M00S01792.1mb +++| LDC IBMH-5 01972 M00S01793.1mb +++| STD BP 01973 M00S01794.1mb +++| LDN ZERL USE ZERO AS REGISTER NUMBERS 01974 M00S01795.1mb +++| CRML BDMR,ON 01975 M00S01796.1mb +++| LDT1 AOD MS+1 READ NEXT WORD OF DATA 01976 M00S01797.1mb +++| SHN -14 01977 M00S01798.1mb +++| RAD MS 01978 M00S01799.1mb +++| SHN 14 01979 M00S01800.1mb +++| LMD MS+1 01980 M00S01801.1mb +++| CRDL CN 01981 M00S01802.1mb +++| RJM PMR PACK DATA INTO *BCMR* BUFFER 01982 M00S01803.1mb +++| RJM PMB PACK DATA INTO *BML* MESSAGE 01983 M00S01804.1mb +++| NJN LDT2 IF NOT AT END OF BLOCK 01984 M00S01805.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 01985 M00S01806.1mb +++| SCN 10 01986 M00S01807.1mb +++| LMN 10 01987 M00S01808.1mb +++| STM IBMG+1 01988 M00S01809.1mb +++| LDT2 SOD T4 01989 M00S01810.1mb +++| NJN LDT1 IF MORE WORDS TO LOG 01990 M00S01811.1mb +++| RJM CBM COMPLETE *BML* MESSAGES 01991 M00S01812.1mb +++| UJP LDTX RETURN 01992 M00S01813.1mb +++| LED SPACE 4,10 01993 M00S01814.1mb +++|** LED - LOAD AND EXECUTE *DFT*. 01994 M00S01815.1mb +++|* 01995 M00S01816.1mb +++|* EXIT *DFT* IS LOADED INTO THIS PP. 01996 M00S01817.1mb +++|* 01997 M00S01818.1mb +++|* USES DC - DC+1, CM - CM+3, CN - CN+4, SC, T0, T7. 01998 M00S01819.1mb +++|* 01999 M00S01820.1mb +++|* CALLS DOB. 02000 M00S01821.1mb +++| 02001 M00S01822.1mb +++| 02002 M00S01823.1mb +++| LED BSS 0 ENTRY 02003 M00S01824.1mb +++| RJM DOB READ *DFT* CONTROL WORD 02004 M00S01825.1mb +++| ADK DFCW 02005 M00S01826.1mb +++| CRDL DC 02006 M00S01827.1mb +++| LDDL DC+3 CHECK DEDICATED MODE 02007 M00S01828.1mb +++| SHN 21-DCDM 02008 M00S01829.1mb +++| PJP LED1 IF *DFT* IS IN DEDICATED MODE 02009 M00S01830.1mb +++| 02010 M00S01831.1mb +++|* SAVE PP RESIDENT. 02011 M00S01832.1mb +++| 02012 M00S01833.1mb +++| SETMS NODRIVER CLEAR DRIVER PRESENT FLAG 02013 M00S01834.1mb +++| LDC DFPSL-1 SET WORD COUNT TO SAVE 02014 M00S01835.1mb +++| STD T7 02015 M00S01836.1mb +++| LDN DFTBL TRANSFER BOOTSTRAP TO *MSFW* 02016 M00S01837.1mb +++| STD CM 02017 M00S01838.1mb +++| LDD MA 02018 M00S01839.1mb +++| CWM LEDD,CM 02019 M00S01840.1mb +++| LDD MA 02020 M00S01841.1mb +++| CRM MSFW,CM 02021 M00S01842.1mb +++| LDC MSFW-1 SET EXECUTION ADDRESS ON RETURN FROM *DFT* 02022 M00S01843.1mb +++| STD T0 02023 M00S01844.1mb +++| RJM DOB GET *PPR* SAVE AREA BUFFER ADDRESS 02024 M00S01845.1mb +++| ADK DFPS 02025 M00S01846.1mb +++| CRDL CM 02026 M00S01847.1mb +++| RPTR CM CONVERT ADDRESS 02027 M00S01848.1mb +++| CWD T0 WRITE FIRST WORD OF *PPR* 02028 M00S01849.1mb +++| ADN 1 02029 M00S01850.1mb +++| CWM 5,T7 WRITE REMAINDER OF *PPR* 02030 M00S01851.1mb +++| LDN DSAL RESERVE CIP CHANNEL 02031 M00S01852.1mb +++| CRD CM 02032 M00S01853.1mb +++| LDD CM+4 02033 M00S01854.1mb +++| LPN 77 02034 M00S01855.1mb +++| RCHAN 02035 M00S01856.1mb +++| 02036 M00S01857.1mb +++|* CHECK NOS REQUEST STATUS. 02037 M00S01858.1mb +++| 02038 M00S01859.1mb +++| RJM SDA READ NOS REQUEST HEADER 02039 M00S01860.1mb +++| CRD CM 02040 M00S01861.1mb +++| LDD CM+4 CHECK STATUS 02041 M00S01862.1mb +++| LMN STRY 02042 M00S01863.1mb +++| NJN LED3 IF NOT STATUS = *READY* 02043 M00S01864.1mb +++| LDN STAC SET STATUS = *ACTIVE* 02044 M00S01865.1mb +++| STD CM+4 02045 M00S01866.1mb +++| RJM SDA REWRITE NOS REQUEST HEADER 02046 M00S01867.1mb +++| CWD CM 02047 M00S01868.1mb +++| UJN LED3 CONTINUE WITH LOADING *DFT* 02048 M00S01869.1mb +++| 02049 M00S01870.1mb +++| LED1 SHN 21-DCVR-21+DCDM+22 02050 M00S01871.1mb +++| PJN LED2 IF *DFT* NOT ALREADY ACTIVATED 02051 M00S01872.1mb +++| RJM CNR CHECK FOR NOS REQUEST 02052 M00S01873.1mb +++| LJM DPP DROP PP 02053 M00S01874.1mb +++| 02054 M00S01875.1mb +++| LED2 LDD IA CHANGE *1MB* TO *DFT* IN INPUT REGISTER 02055 M00S01876.1mb +++| CRD CM 02056 M00S01877.1mb +++| LDC 2RDF 02057 M00S01878.1mb +++| STD CM 02058 M00S01879.1mb +++| LDD CM+1 02059 M00S01880.1mb +++| LPN 77 02060 M00S01881.1mb +++| LMC 1RT*100 02061 M00S01882.1mb +++| STD CM+1 02062 M00S01883.1mb +++| LDD IA 02063 M00S01884.1mb +++| CWD CM 02064 M00S01885.1mb +++| LED3 LDM IBMF+2 SET PP NUMBER IN *DFT* CONTROL WORD 02065 M00S01886.1mb +++| SHN -6 02066 M00S01887.1mb +++| LMDL DC+1 02067 M00S01888.1mb +++| LPN 37 02068 M00S01889.1mb +++| LMDL DC+1 02069 M00S01890.1mb +++| STDL DC+1 02070 M00S01891.1mb +++| RJM DOB 02071 M00S01892.1mb +++| ADK DFCW 02072 M00S01893.1mb +++| CWDL DC UPDATE *DFT* CONTROL WORD 02073 M00S01894.1mb +++| 02074 M00S01895.1mb +++|* FIND *DFT* ENTRY IN *CTI* CM DIRECTORY. 02075 M00S01896.1mb +++| 02076 M00S01897.1mb +++| LDN 0 02077 M00S01898.1mb +++| STD T1 02078 M00S01899.1mb +++| LDK EIBP 02079 M00S01900.1mb +++| CRD CN 02080 M00S01901.1mb +++| LDD CN+3 02081 M00S01902.1mb +++| SHN 14 02082 M00S01903.1mb +++| LMD CN+4 02083 M00S01904.1mb +++| ADK DSCM+2 READ *CTI* CM DIRECTORY POINTER 02084 M00S01905.1mb +++| CRDL CN 02085 M00S01906.1mb +++| LRD CN+1 LOAD R-REGISTER 02086 M00S01907.1mb +++| LDDL CN SAVE REMAINDER 02087 M00S01908.1mb +++| STD T2 02088 M00S01909.1mb +++| LED4 ADC 400000 SET BIT TO USE R-REGISTER 02089 M00S01910.1mb +++| CRDL CN READ *CTI* DIRECTORY ENTRY 02090 M00S01911.1mb +++| LDDL CN 02091 M00S01912.1mb +++| LMC 2RDF 02092 M00S01913.1mb +++| NJN LED5 IF NOT *DFT* ENTRY 02093 M00S01914.1mb +++| LDDL CN+1 02094 M00S01915.1mb +++| SHN -6 02095 M00S01916.1mb +++| LMN 1RT 02096 M00S01917.1mb +++| ZJN LED6 IF *DFT* ENTRY 02097 M00S01918.1mb +++| LED5 LDDL CN+3 FIND NEXT DIRECTORY ENTRY 02098 M00S01919.1mb +++| RAD T2 02099 M00S01920.1mb +++| SHN -14 02100 M00S01921.1mb +++| RAD T1 02101 M00S01922.1mb +++| SHN 14 02102 M00S01923.1mb +++| LMD T2 02103 M00S01924.1mb +++| UJN LED4 CHECK NEXT DIRECTORY ENTRY 02104 M00S01925.1mb +++| 02105 M00S01926.1mb +++|* MOVE CODE TO SAVE AREA SO *DFT* DOES NOT OVERWRITE IT. 02106 M00S01927.1mb +++| 02107 M00S01928.1mb +++| LED6 LDN .LED2 SIZE OF CODE TO MOVE 02108 M00S01929.1mb +++| STD T3 02109 M00S01930.1mb +++| LDD MA MOVE CODE THROUGH MESSSAGE BUFFER 02110 M00S01931.1mb +++| CWML LEDA,T3 02111 M00S01932.1mb +++| SBD T3 02112 M00S01933.1mb +++| CRML CN,T3 02113 M00S01934.1mb +++| LJM CN JUMP TO LOADER 02114 M00S01935.1mb +++| 02115 M00S01936.1mb +++|* LOAD AND EXECUTE *DFT*. 02116 M00S01937.1mb +++| 02117 M00S01938.1mb +++| LEDA BSS 0 START OF CODE TO MOVE 02118 M00S01939.1mb +++| LDD T1 02119 M00S01940.1mb +++| SHN 14 02120 M00S01941.1mb +++| LMD T2 02121 M00S01942.1mb +++| ADC 400001 02122 M00S01943.1mb +++| CRDL CN READ *DFT* LOAD PARAMETERS 02123 M00S01944.1mb +++| ADN 1 02124 M00S01945.1mb +++| STD T2 02125 M00S01946.1mb +++| SHN -14 02126 M00S01947.1mb +++| STD T1 02127 M00S01948.1mb +++| LDD CN SET *DFT* LOAD ADDRESS 02128 M00S01949.1mb +++| STD LEDC 02129 M00S01950.1mb +++| LDD T1 LOAD *DFT* 02130 M00S01951.1mb +++| SHN 14 02131 M00S01952.1mb +++| LMD T2 02132 M00S01953.1mb +++| CRML **,CN+1 02133 M00S01954.1mb +++| LEDB EQU *-1 (*DFT* LOAD ADDRESS) 02134 M00S01955.1mb +++| LJM 100 EXECUTE *DFT* 02135 M00S01956.1mb +++| 02136 M00S01957.1mb +++| 02137 M00S01958.1mb +++| .LED1 EQU *-LEDA-1 02138 M00S01959.1mb +++| .LED2 EQU .LED1/4+1 02139 M00S01960.1mb +++| ERRPL .LED2-7 CODE LONGER THAN MESSAGE BUFFER 02140 M00S01961.1mb +++| LEDC EQU LEDB-LEDA+CN LOCATION TO PLUG *DFT* LOAD ADDRESS 02141 M00S01962.1mb +++| 02142 M00S01963.1mb +++|* BOOTSTRAP USED TO DROP CIP CHANNEL ON RETURN FROM *DFT*. 02143 M00S01964.1mb +++| 02144 M00S01965.1mb +++| LEDD BSS 0 02145 M00S01966.1mb +++| LOC MSFW 02146 M00S01967.1mb +++| LDN DSAL LOCATE CIP CHANNEL 02147 M00S01968.1mb +++| CRD CM 02148 M00S01969.1mb +++| LDD CM+4 RELEASE CIP CHANNEL 02149 M00S01970.1mb +++| LPN 77 02150 M00S01971.1mb +++| DCHAN 02151 M00S01972.1mb +++| LJM PPR RELOAD *1MB* 02152 M00S01973.1mb +++| LOC *O 02153 M00S01974.1mb +++| .LEDDL SET *-LEDD+4 02154 M00S01975.1mb +++| ERRNG DFTBL-.LEDDL/5 *DFT* BOOTSTRAP TOO LONG 02155 M00S01976.1mb +++| LMD SPACE 4,15 02156 M00S01977.1mb +++|** LMD - LOG MODEL DEPENDENT BUFFER. 02157 M00S01978.1mb +++|* 02158 M00S01979.1mb +++|* ENTRY (T4) = LENGTH OF DATA TO LOG. 02159 M00S01980.1mb +++|* (MS - MS+1) = FWA - 1 OF DATA TO LOG. 02160 M00S01981.1mb +++|* 02161 M00S01982.1mb +++|* EXIT MODEL DEPENDENT DATA ISSUED TO *BML*. 02162 M00S01983.1mb +++|* 02163 M00S01984.1mb +++|* USES T1 - T5, BP, MS, CN - CN+3. 02164 M00S01985.1mb +++|* 02165 M00S01986.1mb +++|* CALLS IMD, PMR, PWB. 02166 M00S01987.1mb +++| 02167 M00S01988.1mb +++| 02168 M00S01989.1mb +++| LMD7 LDM MBUF+1*5+1 CLEAR CONTINUATION BIT 02169 M00S01990.1mb +++| SCN 4 02170 M00S01991.1mb +++| STM MBUF+1*5+1 02171 M00S01992.1mb +++| LMD8 LDC 18D 02172 M00S01993.1mb +++| LMDA EQU *-1 (NUMBER OF WORDS TO LOG) 02173 M00S01994.1mb +++| RJM IMD ISSUE *BML* MESSAGE 02174 M00S01995.1mb +++| LDN 18D RESET WORD COUNT 02175 M00S01996.1mb +++| STM LMDA 02176 M00S01997.1mb +++| LDD T4 02177 M00S01998.1mb +++| NJN LMD1 IF MORE DATA TO LOG 02178 M00S01999.1mb +++| 02179 M00S02000.1mb +++| LMD SUBR ENTRY/EXIT 02180 M00S02001.1mb +++| LMD1 LDC MBUF+2*5 SET BUFFER POINTER 02181 M00S02002.1mb +++| STD T1 02182 M00S02003.1mb +++| STD BP 02183 M00S02004.1mb +++| ADK 15D*5 SET POINTER TO ASSEMBLY FOR LAST 4 BITS 02184 M00S02005.1mb +++| STD EC 02185 M00S02006.1mb +++| LMD2 LDN 0 CLEAR BUFFER 02186 M00S02007.1mb +++| STI T1 02187 M00S02008.1mb +++| AOD T1 02188 M00S02009.1mb +++| LMC MBUF+50D*5 02189 M00S02010.1mb +++| NJN LMD2 IF MORE TO CLEAR 02190 M00S02011.1mb +++| STD T5 INITIALIZE COUNTER 02191 M00S02012.1mb +++| LDN 15D NUMBER OF WORDS PER BLOCK 02192 M00S02013.1mb +++| STD T1 02193 M00S02014.1mb +++| LMD3 AOD MS+1 READ NEXT WORD 02194 M00S02015.1mb +++| SHN -14 02195 M00S02016.1mb +++| RAD MS 02196 M00S02017.1mb +++| SHN 14 02197 M00S02018.1mb +++| LMD MS+1 02198 M00S02019.1mb +++| CRDL CN 02199 M00S02020.1mb +++| RJM PMR PACK WORD INTO *BCMR* 02200 M00S02021.1mb +++| RJM PWB PACK WORD INTO BUFFER 02201 M00S02022.1mb +++| LJM LMD4,T5 POSITION LAST 4 BITS 02202 M00S02023.1mb +++|* LJM LMD4 (LEFTMOST BITS) 02203 M00S02024.1mb +++|* LJM LMD4+1 (MIDDLE BITS) 02204 M00S02025.1mb +++|* LJM LMD4+2 (RIGHTMOST BITS) 02205 M00S02026.1mb +++| 02206 M00S02027.1mb +++| LMD4 SHN 4 02207 M00S02028.1mb +++| SHN 4 02208 M00S02029.1mb +++| RAI EC ADD TO ASSEMBLY 02209 M00S02030.1mb +++| SOD T4 02210 M00S02031.1mb +++| ZJP LMD7 IF NO MORE DATA TO LOG 02211 M00S02032.1mb +++| AOD T5 02212 M00S02033.1mb +++| SBN 3 02213 M00S02034.1mb +++| MJN LMD5 IF NOT END OF BYTE 02214 M00S02035.1mb +++| LDN 0 RESET COUNTER 02215 M00S02036.1mb +++| STD T5 02216 M00S02037.1mb +++| AOD EC ADVANCE TO NEXT BYTE 02217 M00S02038.1mb +++| LMD5 LDN 5 ADVANCE BUFFER POINTER 02218 M00S02039.1mb +++| RAD BP 02219 M00S02040.1mb +++| SOD T1 02220 M00S02041.1mb +++| LMD6 NJP LMD3 IF NOT END OF GROUP 02221 M00S02042.1mb +++| LDN 15D RESET GROUP COUNTER 02222 M00S02043.1mb +++| STD T1 02223 M00S02044.1mb +++| LDC 15D*5 ADVANCE ASSEMBLY BUFFER 02224 M00S02045.1mb +++| RAD EC 02225 M00S02046.1mb +++| LDN 5 SKIP OVER ASSEMBLY BUFFER 02226 M00S02047.1mb +++| RAD BP 02227 M00S02048.1mb +++| LMC MBUF+50D*5 02228 M00S02049.1mb +++| ZJP LMD8 IF END OF *BML* MESSAGE 02229 M00S02050.1mb +++| LDN 16D INCREMENT WORD COUNT TO LOG 02230 M00S02051.1mb +++| RAM LMDA 02231 M00S02052.1mb +++| UJN LMD6 READ NEXT WORD 02232 M00S02053.1mb +++| LMR SPACE 4,10 02233 M00S02054.1mb +++|** LMR - LOG MAINTENANCE REGISTERS. 02234 M00S02055.1mb +++|* 02235 M00S02056.1mb +++|* ENTRY (CN - CN+3) = M/R CONTROL WORD. 02236 M00S02057.1mb +++|* (MB - MB+1) = ADDRESS OF CONTROL WORD. 02237 M00S02058.1mb +++|* (LMRA) = SIZE OF ELEMENT COUNTER BUFFER. 02238 M00S02059.1mb +++|* (LMRB) = SIZE OF M/R BUFFER. 02239 M00S02060.1mb +++|* (LMRD) = NON-REGISTER DATA FLAG. 02240 M00S02061.1mb +++|* 02241 M00S02062.1mb +++|* EXIT MAINTENANCE REGISTERS LOGGED TO *BML*. 02242 M00S02063.1mb +++|* (MB - MB+1) UNCHANGED. 02243 M00S02064.1mb +++|* 02244 M00S02065.1mb +++|* USES BP, T4, T5, T6, CM - CM+4, MS - MS+1. 02245 M00S02066.1mb +++|* 02246 M00S02067.1mb +++|* CALLS CBM, C9E, DOB, LNR, LSS, LTE, MDB, MRB, RMR, SID, WLB. 02247 M00S02068.1mb +++|* 02248 M00S02069.1mb +++|* MACROS RPTR. 02249 M00S02070.1mb +++| 02250 M00S02071.1mb +++| 02251 M00S02072.1mb +++| LMR10 RJM LNR LOG NON-REGISTER DATA 02252 M00S02073.1mb +++| 02253 M00S02074.1mb +++| LMR SUBR ENTRY/EXIT 02254 M00S02075.1mb +++| LMRC LDD CN+2 02255 M00S02076.1mb +++|* UJN LMRX (NOS/VE LOGGING) 02256 M00S02077.1mb +++| SHN 21-MRLG 02257 M00S02078.1mb +++| PJN LMRX IF NO LOGGING ACTION 02258 M00S02079.1mb +++| LDC ** 02259 M00S02080.1mb +++| LMRD EQU *-1 (NON-REGISTER DATA FLAG) 02260 M00S02081.1mb +++| ZJN LMR10 IF PROCESSING NON-REGISTER DATA 02261 M00S02082.1mb +++| LDM IBMG+1 CLEAR NOT FIRST BLOCK FLAG 02262 M00S02083.1mb +++| SCN 10 02263 M00S02084.1mb +++| STM IBMG+1 02264 M00S02085.1mb +++| 02265 M00S02086.1mb +++|* LOCATE MAINTENANCE REGISTER BUFFER. 02266 M00S02087.1mb +++| 02267 M00S02088.1mb +++| LDC ** 02268 M00S02089.1mb +++| LMRB EQU *-1 (LENGTH OF M/R BUFFER) 02269 M00S02090.1mb +++| STD T4 02270 M00S02091.1mb +++| RJM MRB GET ADDRESS OF M/R BUFFERS 02271 M00S02092.1mb +++| ADD CN+3 ADD OFFSET 02272 M00S02093.1mb +++| STD MS+1 02273 M00S02094.1mb +++| SHN -14 02274 M00S02095.1mb +++| STD MS 02275 M00S02096.1mb +++| 02276 M00S02097.1mb +++|* DETERMINE ANALYSIS CODE. 02277 M00S02098.1mb +++| 02278 M00S02099.1mb +++| LDD CN+1 GET ANALYSIS CODE 02279 M00S02100.1mb +++| LMC 0#707 02280 M00S02101.1mb +++| ZJN LMR1 IF TO LOG ELEMENT COUNTER TABLE 02281 M00S02102.1mb +++| LMK 0#708&0#707 02282 M00S02103.1mb +++| ZJN LMR4 IF TO LOG SECDED ID TABLE 02283 M00S02104.1mb +++| SHN -10 02284 M00S02105.1mb +++| NJN LMR5 IF NOT WARNING ANALYSIS CODE 02285 M00S02106.1mb +++| 02286 M00S02107.1mb +++|* PROCESS WARNING ANALYSIS CODE. 02287 M00S02108.1mb +++| 02288 M00S02109.1mb +++| LDN 10D SET SIZE TO LOG 02289 M00S02110.1mb +++| UJN LMR2 LOG EID REGISTERS 02290 M00S02111.1mb +++| 02291 M00S02112.1mb +++|* PROCESS ELEMENT COUNTER TABLE. 02292 M00S02113.1mb +++| 02293 M00S02114.1mb +++| LMR1 LDC MECB 02294 M00S02115.1mb +++| LMRA EQU *-1 (SIZE OF ELEMENT COUNTER BUFFER) 02295 M00S02116.1mb +++| LMR2 STD T4 02296 M00S02117.1mb +++| LMR3 RJM LTE LOG TABLE ENTRIES 02297 M00S02118.1mb +++| RJM WLB WRITE LAST *BML* MESSAGE 02298 M00S02119.1mb +++| LJM LMR8 LOG SUPPORTIVE STATUS DATA 02299 M00S02120.1mb +++| 02300 M00S02121.1mb +++|* PROCESS SECDED ID TABLE. 02301 M00S02122.1mb +++| 02302 M00S02123.1mb +++| LMR4 RJM SID SET SECDED INFORMATION 02303 M00S02124.1mb +++| NJN LMR3 IF SECDED ID TABLE NOT EMPTY 02304 M00S02125.1mb +++| UJN LMR9 RETURN 02305 M00S02126.1mb +++| 02306 M00S02127.1mb +++|* PROCESS MAINTENANCE REGISTERS. 02307 M00S02128.1mb +++| 02308 M00S02129.1mb +++| LMR5 LDN 0 PRESET *RMR* 02309 M00S02130.1mb +++| STD T5 02310 M00S02131.1mb +++| STD T6 02311 M00S02132.1mb +++| LDC IBMH-5 PRESET *GPB* 02312 M00S02133.1mb +++| STD BP 02313 M00S02134.1mb +++| LMR6 LCN 5 02314 M00S02135.1mb +++| RAD T4 02315 M00S02136.1mb +++| MJN LMR7 IF ALL BUFFERS PROCESSED 02316 M00S02137.1mb +++| LDD MS READ M/R BUFFER HEADER WORD 02317 M00S02138.1mb +++| SHN 14 02318 M00S02139.1mb +++| LMD MS+1 02319 M00S02140.1mb +++| CRML BDMR,ON 02320 M00S02141.1mb +++| RJM RMR READ MAINTENANCE REGISTER BUFFER 02321 M00S02142.1mb +++| NJN LMR7 IF LOGGING COMPLETE 02322 M00S02143.1mb +++| AOD MS+1 ADVANCE TO NEXT BUFFER 02323 M00S02144.1mb +++| SHN -14 02324 M00S02145.1mb +++| RAD MS 02325 M00S02146.1mb +++| RJM C9E CHECK SPECIAL 990 ERROR 02326 M00S02147.1mb +++| NJN LMR6 IF NOT SPECIAL 990 ERROR 02327 M00S02148.1mb +++| LMR7 RJM CBM COMPLETE *BML* MESSAGES 02328 M00S02149.1mb +++| LMR8 RJM LSS LOG SUPPORTIVE STATUS DATA 02329 M00S02150.1mb +++| RJM MDB LOG MODEL DEPENDENT BUFFER 02330 M00S02151.1mb +++| LMR9 LDM IBMG CLEAR SPECIAL FLAGS FROM *BML* 02331 M00S02152.1mb +++| LPN 77 02332 M00S02153.1mb +++| STM IBMG 02333 M00S02154.1mb +++| LJM LMRX RETURN 02334 M00S02155.1mb +++| LNR SPACE 4,10 02335 M00S02156.1mb +++|** LNR - LOG NON-REGISTER DATA. 02336 M00S02157.1mb +++|* 02337 M00S02158.1mb +++|* ENTRY (MB - MB+1) = ADDRESS OF CONTROL WORD FOR ENTRY. 02338 M00S02159.1mb +++|* (CN - CN+3) = CONTROL WORD FOR ENTRY TO LOG. 02339 M00S02160.1mb +++|* 02340 M00S02161.1mb +++|* EXIT NON-REGISTER DATA LOGGED TO BML. 02341 M00S02162.1mb +++|* 02342 M00S02163.1mb +++|* USES T4, MS - MS+1. 02343 M00S02164.1mb +++|* 02344 M00S02165.1mb +++|* CALLS LDT. 02345 M00S02166.1mb +++| 02346 M00S02167.1mb +++| 02347 M00S02168.1mb +++| LNR SUBR ENTRY/EXIT
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02348 M01S00085.271l716 +++| LDM IBMG SET NON-REGISTER DATA FLAG 02349 M01S00086.271l716 +++| LPN 77 02350 M01S00087.271l716 +++| ADC 400 02351 M01S00088.271l716 +++| STM IBMG
| Line S02169 Modification History | |
|---|---|
M01 (Removed by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02352 M01S02169.1mb32 ---| LDD CN+3 SET LENGTH OF DATA TO LOG
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02353 M01S00001.1mb32 +++| LDD MB INITIALIZE ADDRESS OF DATA TO LOG 02354 M01S00002.1mb32 +++| STD MS 02355 M01S00003.1mb32 +++| SHN 14 02356 M01S00004.1mb32 +++| LMD MB+1 02357 M01S00005.1mb32 +++| STD MS+1 02358 M01S00006.1mb32 +++| ADN 1 LENGTH TO LOG WORD 02359 M01S00007.1mb32 +++| CRD CM READ LENGTH WORD 02360 M01S00008.1mb32 +++| LDD CM+4 SET LENGTH OF DATA TO INCLUDE LENGTH WORD 02361 M00S02170.1mb +++| STD T4
| Line S02171 Modification History | |
|---|---|
M01 (Removed by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02362 M01S02171.1mb32 ---| LDD MB INITIALIZE ADDRESS OF DATA TO LOG 02363 M01S02172.1mb32 ---| SHN 14 02364 M01S02173.1mb32 ---| LMD MB+1 02365 M01S02174.1mb32 ---| ADN 1 ADVANCE TO ADDRESS-1 OF DATA TO LOG 02366 M01S02175.1mb32 ---| STD MS+1 02367 M01S02176.1mb32 ---| SHN -14 02368 M01S02177.1mb32 ---| STD MS 02369 M00S02178.1mb +++| RJM LDT LOG DATA STRUCTURE
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02370 M01S00089.271l716 +++| LDM IBMG CLEAR NON-REGISTER DATA FLAG 02371 M01S00090.271l716 +++| LPN 77 02372 M01S00091.271l716 +++| STM IBMG 02373 M00S02179.1mb +++| UJN LNRX RETURN 02374 M00S02180.1mb +++| LSS SPACE 4,15 02375 M00S02181.1mb +++|** LSS - LOG SUPPORTIVE STATUS DATA. 02376 M00S02182.1mb +++|* 02377 M00S02183.1mb +++|* ENTRY (SSCW - SSCW+1) = ADDRESS OF CONTROL WORD FOR ENTRY 02378 M00S02184.1mb +++|* TO LOG. 02379 M00S02185.1mb +++|* 02380 M00S02186.1mb +++|* EXIT SUPPORTIVE STATUS BUFFER DATA LOGGED. 02381 M00S02187.1mb +++|* (MDBB) = MODEL DEPENDENT BUFFER ORDINAL. 02382 M00S02188.1mb +++|* (MDBC) = MDB DATA UNLOGGED STATUS. 02383 M00S02189.1mb +++|* 02384 M00S02190.1mb +++|* USES T4, CM - CM+3, MS - MS+1. 02385 M00S02191.1mb +++|* 02386 M00S02192.1mb +++|* CALLS LDT. 02387 M00S02193.1mb +++| 02388 M00S02194.1mb +++| 02389 M00S02195.1mb +++| LSS SUBR ENTRY/EXIT 02390 M00S02196.1mb +++| LDM DFTV 02391 M00S02197.1mb +++| ZJN LSSX IF *DFT* VERSION 3 02392 M00S02198.1mb +++| LDM SSCW SET ADDRESS OF CONTROL WORD 02393 M00S02199.1mb +++| STD MS 02394 M00S02200.1mb +++| SHN 14 02395 M00S02201.1mb +++| LMM SSCW+1 02396 M00S02202.1mb +++| STD MS+1 02397 M00S02203.1mb +++| CRDL CM READ CONTROL WORD 02398 M00S02204.1mb +++| LDD CM+1 SET LENGTH OF DATA TO LOG 02399 M00S02205.1mb +++| STD T4 02400 M00S02206.1mb +++| ZJN LSSX IF NO DATA TO LOG 02401 M00S02207.1mb +++| LDD CM+2 SAVE MODEL DEPENDENT BUFFER ORDINAL 02402 M00S02208.1mb +++| LPC 377 02403 M00S02209.1mb +++| STM MDBB 02404 M00S02210.1mb +++| LDDL CM+2 SAVE UNLOGGED DATA STATUS 02405 M00S02211.1mb +++| SHN -10 02406 M00S02212.1mb +++| STM MDBC 02407 M00S02213.1mb +++| LDD HN SET SUPPORTIVE STATUS BUFFER FLAG 02408 M00S02214.1mb +++| RAM IBMG 02409 M00S02215.1mb +++| RJM LDT LOG DATA STRUCTURE 02410 M00S02216.1mb +++| UJP LSSX RETURN 02411 M00S02217.1mb +++| LTE SPACE 4,15 02412 M00S02218.1mb +++|** LTE - LOG TABLE ENTRIES. 02413 M00S02219.1mb +++|* 02414 M00S02220.1mb +++|* ENTRY MESSAGE ID AND SYMPTOM CODE IN *BML* HEADER. 02415 M00S02221.1mb +++|* (T4) = WORD SIZE OF *BML* MESSAGE. 02416 M00S02222.1mb +++|* (MS - MS+1) = ADDRESS OF FIRST ENTRY TO LOG. 02417 M00S02223.1mb +++|* 02418 M00S02224.1mb +++|* EXIT ENTRIES LOGGED TO *BML*. 02419 M00S02225.1mb +++|* (T4) = CM WORDS TO WRITE IN LAST *BML* MESSAGE. 02420 M00S02226.1mb +++|* 02421 M00S02227.1mb +++|* USES MS - MS+1, T1, T4. 02422 M00S02228.1mb +++|* 02423 M00S02229.1mb +++|* CALLS DFM, LMB. 02424 M00S02230.1mb +++| 02425 M00S02231.1mb +++| 02426 M00S02232.1mb +++| LTE2 LDD MS READ LAST *BML* MESSAGE DATA 02427 M00S02233.1mb +++| SHN 14 02428 M00S02234.1mb +++| LMD MS+1 02429 M00S02235.1mb +++| CRM IBMH,T4 02430 M00S02236.1mb +++| AOD T4 ADD HEADER WORDS TO COUNT 02431 M00S02237.1mb +++| AOD T4 02432 M00S02238.1mb +++| 02433 M00S02239.1mb +++| LTE SUBR ENTRY/EXIT 02434 M00S02240.1mb +++| LTE1 LDN 4 02435 M00S02241.1mb +++| STD T1 02436 M00S02242.1mb +++| LDM IBMG+1 SET CONTINUATION BIT 02437 M00S02243.1mb +++| SCN 4 02438 M00S02244.1mb +++| LMN 4 02439 M00S02245.1mb +++| STM IBMG+1 02440 M00S02246.1mb +++| LDD T4 02441 M00S02247.1mb +++| SBN 5 02442 M00S02248.1mb +++| MJN LTE2 IF LAST *BML* MESSAGE TO ISSUE 02443 M00S02249.1mb +++| ADN 1 02444 M00S02250.1mb +++| STD T4 02445 M00S02251.1mb +++| LDD MS 02446 M00S02252.1mb +++| SHN 14 02447 M00S02253.1mb +++| LMD MS+1 02448 M00S02254.1mb +++| CRM IBMH,T1 READ BUFFER INTO *BML* 02449 M00S02255.1mb +++| STD MS+1 02450 M00S02256.1mb +++| SHN -14 02451 M00S02257.1mb +++| STD MS 02452 M00S02258.1mb +++| LDN 6*5 PP WORDS IN *BML* MESSAGE 02453 M00S02259.1mb +++| STD CM+1 02454 M00S02260.1mb +++| LDC IBMF+BMLN ISSUE *BML* MESSAGE 02455 M00S02261.1mb +++| RJM DFM 02456 M00S02262.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 02457 M00S02263.1mb +++| SCN 10 02458 M00S02264.1mb +++| LMN 10 02459 M00S02265.1mb +++| STM IBMG+1 02460 M00S02266.1mb +++| LJM LTE1 PROCESS NEXT *BML* MESSAGE 02461 M00S02267.1mb +++| MDB SPACE 4,15 02462 M00S02268.1mb +++|** MDB - LOG MODEL DEPENDENT BUFFER DATA. 02463 M00S02269.1mb +++|* 02464 M00S02270.1mb +++|* ENTRY (MB - MB+1) = ADDRESS OF M/R BUFFER CONTROL WORD. 02465 M00S02271.1mb +++|* (MDBA) = ADDRESS OF MODEL DEPENDENT BUFFER. 02466 M00S02272.1mb +++|* (MDBB) = MODEL DEPENDENT BUFFER ORDINAL. 02467 M00S02273.1mb +++|* (MDBC) = MODEL DEPENDENT DATA UNLOGGED STATUS. 02468 M00S02274.1mb +++|* 02469 M00S02275.1mb +++|* EXIT MODEL DEPENDENT BUFFER DATA LOGGED. 02470 M00S02276.1mb +++|* 02471 M00S02277.1mb +++|* USES T1, T4, CM - CM+3, MS - MS+1, T8 - T9. 02472 M00S02278.1mb +++|* 02473 M00S02279.1mb +++|* CALLS LMD. 02474 M00S02280.1mb +++|* 02475 M00S02281.1mb +++|* MACROS RPTR. 02476 M00S02282.1mb +++| 02477 M00S02283.1mb +++| 02478 M00S02284.1mb +++| MDB SUBR ENTRY/EXIT 02479 M00S02285.1mb +++| LDD MB READ M/R BUFFER CONTROL WORD 02480 M00S02286.1mb +++| SHN 14 02481 M00S02287.1mb +++| LMD MB+1 02482 M00S02288.1mb +++| CRDL CM 02483 M00S02289.1mb +++| LDDL CM+2 02484 M00S02290.1mb +++| SHN 21-MRMD 02485 M00S02291.1mb +++| PJN MDBX IF NO MODEL DEPENDENT DATA 02486 M00S02292.1mb +++| MDBA LDC ** (MODEL DEPENDENT BUFFER ADDRESS) 02487 M00S02293.1mb +++| ADC ** 02488 M00S02294.1mb +++| MDBB EQU *-1 (MODEL DEPENDENT BUFFER ORDINAL) 02489 M00S02295.1mb +++| CRDL CM READ MODEL DEPENDENT BUFFER POINTER 02490 M00S02296.1mb +++| LDC * 02491 M00S02297.1mb +++| MDBC EQU *-1 (DATA UNLOGGED STATUS) 02492 M00S02298.1mb +++| NJN MDBX IF DATA UNLOGGED OR OVERWRITTEN 02493 M00S02299.1mb +++| RPTR CM CONVERT ADDRESS 02494 M00S02300.1mb +++| CRDL CM READ HEADER 02495 M00S02301.1mb +++| STD MS+1 SAVE ADDRESS OF HEADER 02496 M00S02302.1mb +++| STD T9 02497 M00S02303.1mb +++| SHN -14 02498 M00S02304.1mb +++| STD MS 02499 M00S02305.1mb +++| STD T8 02500 M00S02306.1mb +++| LDD CM+3 SET LENGTH TO LOG
| Line S02307 Modification History | |
|---|---|
M01 (Removed by) | 1mb30 |
Seq # *Modification Id* Act ----------------------------+ 02501 M01S02307.1mb30 ---| STD T4 02502 M00S02308.1mb +++| ZJN MDBX IF NO DATA TO LOG
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mb30 |
Seq # *Modification Id* Act ----------------------------+ 02503 M01S00001.1mb30 +++| SBN 1 02504 M01S00002.1mb30 +++| STD T4 02505 M00S02309.1mb +++| LDM IBMG SET MODEL DEPENDENT DATA FLAG 02506 M00S02310.1mb +++| LPN 77 02507 M00S02311.1mb +++| ADC 200 02508 M00S02312.1mb +++| STM IBMG 02509 M00S02313.1mb +++| LDM IBMG+1 02510 M00S02314.1mb +++| SCN 14 CLEAR NOT FIRST BLOCK FLAG 02511 M00S02315.1mb +++| LMN 4 SET CONTINUATION BIT 02512 M00S02316.1mb +++| STM IBMG+1 02513 M00S02317.1mb +++| LDN 2 MOVE MESSAGE HEADER TO PP BUFFER 02514 M00S02318.1mb +++| STD T1 02515 M00S02319.1mb +++| LDD MA 02516 M00S02320.1mb +++| CWM IBMF,T1 02517 M00S02321.1mb +++| SBD T1 02518 M00S02322.1mb +++| CRM MBUF,T1 02519 M00S02323.1mb +++| LDN ZERL CLEAR *EMB* HEADER WORD 02520 M00S02324.1mb +++| CRM BHDR,ON 02521 M00S02325.1mb +++| LDK MLDY SET MESSAGE TYPE 02522 M00S02326.1mb +++| STM BHDR+4 02523 M00S02327.1mb +++| RJM LMD LOG MODEL DEPENDENT DATA 02524 M00S02328.1mb +++| LDD T8 READ MODEL DEPENDENT HEADER 02525 M00S02329.1mb +++| SHN 14 02526 M00S02330.1mb +++| LMD T9 02527 M00S02331.1mb +++| CRDL CM 02528 M00S02332.1mb +++| LDDL CM CLEAR CONTROL WORD OFFSET 02529 M00S02333.1mb +++| LPC 0#FF00 02530 M00S02334.1mb +++| STDL CM 02531 M00S02335.1mb +++| LDD T8 02532 M00S02336.1mb +++| SHN 14 02533 M00S02337.1mb +++| LMD T9 02534 M00S02338.1mb +++| CWDL CM 02535 M00S02339.1mb +++| MDB1 DELAY 02536 M00S02340.1mb +++| LDK EMBP CHECK FOR *1MD* STILL ACTIVE 02537 M00S02341.1mb +++| CRD CM 02538 M00S02342.1mb +++| LDD CM+1 02539 M00S02343.1mb +++| SHN 14 02540 M00S02344.1mb +++| LMD CM+2 02541 M00S02345.1mb +++| CRD CM 02542 M00S02346.1mb +++| LDD CM+4 02543 M00S02347.1mb +++| LPN 2 02544 M00S02348.1mb +++| NJN MDB1 IF *1MD* ACTIVE 02545 M00S02349.1mb +++| UJP MDBX RETURN 02546 M00S02350.1mb +++| MRB SPACE 4,10 02547 M00S02351.1mb +++|** MRB - GET M/R BUFFERS ADDRESS. 02548 M00S02352.1mb +++|* 02549 M00S02353.1mb +++|* (A) = ADDRESS OF M/R BUFFERS. 02550 M00S02354.1mb +++| 02551 M00S02355.1mb +++| 02552 M00S02356.1mb +++| MRB SUBR ENTRY/EXIT 02553 M00S02357.1mb +++| MRBA LDC ** (ADDRESS OF M/R BUFFERS) 02554 M00S02358.1mb +++| UJN MRBX RETURN 02555 M00S02359.1mb +++| MRER SPACE 4,10 02556 M00S02360.1mb +++|** MRER - MAINTENANCE REGISTER ERROR HANDLER. 02557 M00S02361.1mb +++|* 02558 M00S02362.1mb +++|* ENTRY FATAL MAINTENANCE REGISTER ERROR. 02559 M00S02363.1mb +++|* 02560 M00S02364.1mb +++|* EXIT TO *CSH*. 02561 M00S02365.1mb +++|* 02562 M00S02366.1mb +++|* USES CM - CM+4. 02563 M00S02367.1mb +++|* 02564 M00S02368.1mb +++|* CALLS CSH. 02565 M00S02369.1mb +++|* 02566 M00S02370.1mb +++|* MACROS MONITOR. 02567 M00S02371.1mb +++| 02568 M00S02372.1mb +++| 02569 M00S02373.1mb +++| MRER LDC MSME SET MESSAGE ADDRESS 02570 M00S02374.1mb +++| STM CSHA 02571 M00S02375.1mb +++| STM CSHB 02572 M00S02376.1mb +++| STM CKPA+2 02573 M00S02377.1mb +++| LDN SPLG SET *1MB* FUNCTION CODE 02574 M00S02378.1mb +++| STM CKPA+3 02575 M00S02379.1mb +++| LDN ZERL 02576 M00S02380.1mb +++| CRD CM 02577 M00S02381.1mb +++| LDN 1 SET *MCH* ERROR IN PROGRESS 02578 M00S02382.1mb +++| STD CM+1 02579 M00S02383.1mb +++| STD CM+2 02580 M00S02384.1mb +++| LDD MA 02581 M00S02385.1mb +++| CWM MRERA,ON 02582 M00S02386.1mb +++| MONITOR UADM 02583 M00S02387.1mb +++| RJM CSH CHECKPOINT AND HANG THE SYSTEM 02584 M00S02388.1mb +++| 02585 M00S02389.1mb +++| 02586 M00S02390.1mb +++| MRERA CON LIOS INCREMENT LOW CORE FIELD BY ONE 02587 M00S02391.1mb +++| CON INWL WORD ADDRESS 02588 M00S02392.1mb +++| CON 5*100+1 BIT ADDRESS/FIELD WIDTH 02589 M00S02393.1mb +++| CON 0 02590 M00S02394.1mb +++| CON 0 02591 M00S02395.1mb +++| PMB SPACE 4,15 02592 M00S02396.1mb +++|** PMB - PACK MAINTENANCE REGISTER TO *BML*. 02593 M00S02397.1mb +++|* 02594 M00S02398.1mb +++|* ENTRY (T5) = BYTE IN M/R HEADER WORD WITH REGISTER NUMBER. 02595 M00S02399.1mb +++|* (BCMR - BCMR+7) = CONTENTS OF REGISTER. 02596 M00S02400.1mb +++|* 02597 M00S02401.1mb +++|* EXIT REGISTER WRITTEN TO *BML*. 02598 M00S02402.1mb +++|* (A)= (T5) = 0, IF ALL REGISTERS IN THIS BLOCK 02599 M00S02403.1mb +++|* WRITTEN. 02600 M00S02404.1mb +++|* (T5) = BYTE WITH NEXT REGISTER NUMBER, OTHERWISE. 02601 M00S02405.1mb +++|* 02602 M00S02406.1mb +++|* USES T5. 02603 M00S02407.1mb +++|* 02604 M00S02408.1mb +++|* CALLS GPB, PWB. 02605 M00S02409.1mb +++| 02606 M00S02410.1mb +++| 02607 M00S02411.1mb +++| PMB SUBR ENTRY/EXIT 02608 M00S02412.1mb +++| RJM GPB GET POINTER INTO *BML* BUFFER 02609 M00S02413.1mb +++| RJM PWB PACK REGISTER INTO BUFFER 02610 M00S02414.1mb +++| SHN 10 02611 M00S02415.1mb +++| LMML BDMR,T5 INCLUDE REGISTER NUMBER 02612 M00S02416.1mb +++| STM PMBB,T5 02613 M00S02417.1mb +++| AOD T5 02614 M00S02418.1mb +++| SBN 4 02615 M00S02419.1mb +++| MJN PMB1 IF TRAILER WORD NOT FULL 02616 M00S02420.1mb +++| RJM GPB GET POINTER TO *BML* BUFFER 02617 M00S02421.1mb +++| LDD BP 02618 M00S02422.1mb +++| STM PMBA 02619 M00S02423.1mb +++| LDD MA 02620 M00S02424.1mb +++| CWM PMBB,ON COPY TRAILER WORD TO *BML* BUFFER 02621 M00S02425.1mb +++| LDD MA 02622 M00S02426.1mb +++| CRM **,ON 02623 M00S02427.1mb +++| PMBA EQU *-1 02624 M00S02428.1mb +++| LDN 0 02625 M00S02429.1mb +++| STD T5 02626 M00S02430.1mb +++| PMB1 UJP PMBX RETURN 02627 M00S02431.1mb +++| 02628 M00S02432.1mb +++| PMBB VFD 4/0,8/0,4/0,8/0,4/0,8/0,4/0,8/0,12/0 02629 M00S02433.1mb +++| PMR SPACE 4,10 02630 M00S02434.1mb +++|** PMR - UNPACK M/R INTO *BCMR*. 02631 M00S02435.1mb +++|* 02632 M00S02436.1mb +++|* ENTRY (CN - CN+3) = REGISTER. 02633 M00S02437.1mb +++|* 02634 M00S02438.1mb +++|* EXIT MAINTENANCE REGISTER WRITTEN TO *BML* BUFFER. 02635 M00S02439.1mb +++|* 02636 M00S02440.1mb +++|* USES T3, T7. 02637 M00S02441.1mb +++| 02638 M00S02442.1mb +++| 02639 M00S02443.1mb +++| PMR SUBR ENTRY/EXIT 02640 M00S02444.1mb +++| LDN 0 02641 M00S02445.1mb +++| STD T3 02642 M00S02446.1mb +++| LDN CN 02643 M00S02447.1mb +++| STD T7 02644 M00S02448.1mb +++| PMR1 LDIL T7 02645 M00S02449.1mb +++| SHN -10 02646 M00S02450.1mb +++| STM BCMR,T3 02647 M00S02451.1mb +++| AOD T3 02648 M00S02452.1mb +++| LDIL T7 02649 M00S02453.1mb +++| LPC 377 02650 M00S02454.1mb +++| STM BCMR,T3 02651 M00S02455.1mb +++| AOD T3 02652 M00S02456.1mb +++| AOD T7 02653 M00S02457.1mb +++| SBN CN+4 02654 M00S02458.1mb +++| ZJN PMRX IF PACKING COMPLETE 02655 M00S02459.1mb +++| UJN PMR1 CONTINUE PACKING 02656 M00S02460.1mb +++| PWB SPACE 4,10 02657 M00S02461.1mb +++|** PWB - PACK WORD TO BUFFER. 02658 M00S02462.1mb +++|* 02659 M00S02463.1mb +++|* ENTRY (BCMR - BCMR+7) = DATA WORD. 02660 M00S02464.1mb +++|* (BP) = OFFSET INTO *BML* BUFFER. 02661 M00S02465.1mb +++|* 02662 M00S02466.1mb +++|* EXIT (A) = BITS 60 - 63 OF DATA WORD RIGHT JUSTIFIED. 02663 M00S02467.1mb +++|* BITS 0 - 59 OF DATA WORD MOVED TO *BML* WORD. 02664 M00S02468.1mb +++| 02665 M00S02469.1mb +++| 02666 M00S02470.1mb +++| PWB SUBR ENTRY/EXIT 02667 M00S02471.1mb +++| LDM BCMR PACK REGISTER INTO BUFFER 02668 M00S02472.1mb +++| SHN 10 02669 M00S02473.1mb +++| LMM BCMR+1 02670 M00S02474.1mb +++| SHN -4+22 02671 M00S02475.1mb +++| STI BP 02672 M00S02476.1mb +++| SHN 0+4-22 02673 M00S02477.1mb +++| SHN 10 02674 M00S02478.1mb +++| LMM BCMR+2 02675 M00S02479.1mb +++| STM 1,BP 02676 M00S02480.1mb +++| LDM BCMR+3 02677 M00S02481.1mb +++| SHN 10 02678 M00S02482.1mb +++| LMM BCMR+4 02679 M00S02483.1mb +++| SHN -4+22 02680 M00S02484.1mb +++| STM 2,BP 02681 M00S02485.1mb +++| SHN 0+4-22 02682 M00S02486.1mb +++| SHN 10 02683 M00S02487.1mb +++| LMM BCMR+5 02684 M00S02488.1mb +++| STM 3,BP 02685 M00S02489.1mb +++| LDM BCMR+6 02686 M00S02490.1mb +++| SHN 10 02687 M00S02491.1mb +++| LMM BCMR+7 02688 M00S02492.1mb +++| SHN -4+22 02689 M00S02493.1mb +++| STM 4,BP 02690 M00S02494.1mb +++| SHN 0+4-22 02691 M00S02495.1mb +++| UJP PWBX RETURN 02692 M00S02496.1mb +++| RMR SPACE 4,10 02693 M00S02497.1mb +++|** RMR - READ MAINTENANCE REGISTER. 02694 M00S02498.1mb +++|* 02695 M00S02499.1mb +++|* ENTRY (BDMR - BDMR+3) = M/R CONTROL WORD. 02696 M00S02500.1mb +++|* (MS - MS+1) = ADDRESS OF MAINTENANCE REGISTER. 02697 M00S02501.1mb +++|* (T5) = BYTE WITH NEXT REGISTER NUMBER TO LOG. 02698 M00S02502.1mb +++|* (T6) = 0 IF STATUS SUMMARY NOT YET LOGGED. 02699 M00S02503.1mb +++|* 02700 M00S02504.1mb +++|* EXIT (A) = 0, IF MORE BUFFERS TO CHECK. 02701 M00S02505.1mb +++|* 02702 M00S02506.1mb +++|* USES CN - CN+3, MS - MS+1, T5. 02703 M00S02507.1mb +++|* 02704 M00S02508.1mb +++|* CALLS PMB, PMR. 02705 M00S02509.1mb +++| 02706 M00S02510.1mb +++| 02707 M00S02511.1mb +++| RMR SUBR ENTRY/EXIT 02708 M00S02512.1mb +++| RMR1 LDML BDMR,T5 GET NEXT REGISTER NUMBER 02709 M00S02513.1mb +++| NJN RMR2 IF REGISTER IS PRESENT 02710 M00S02514.1mb +++| LDD T6 02711 M00S02515.1mb +++| NJN RMRX IF ALL REGISTERS LOGGED 02712 M00S02516.1mb +++| RMRA LDN 1 SET STATUS SUMMARY LOGGED 02713 M00S02517.1mb +++| STD T6 02714 M00S02518.1mb +++| RMR2 AOD MS+1 READ MAINTENANCE REGISTER 02715 M00S02519.1mb +++| SHN -14 02716 M00S02520.1mb +++| RAD MS 02717 M00S02521.1mb +++| SHN 14 02718 M00S02522.1mb +++| LMD MS+1 02719 M00S02523.1mb +++| CRDL CN 02720 M00S02524.1mb +++| RJM PMR PACK REGISTER INTO *BCMR* BUFFER 02721 M00S02525.1mb +++| RJM PMB PACK M/R INTO *BML* MESSAGE 02722 M00S02526.1mb +++| ZJN RMRX IF BUFFER COMPLETE 02723 M00S02527.1mb +++| UJN RMR1 PROCESS NEXT REGISTER 02724 M00S02528.1mb +++| SCA SPACE 4,10 02725 M00S02529.1mb +++|** SCA - SET M/R BUFFER CONTROL WORDS ADDRESS. 02726 M00S02530.1mb +++|* 02727 M00S02531.1mb +++|* EXIT (MB - MB+1) = ADDRESS OF FIRST M/R CONTROL WORD. 02728 M00S02532.1mb +++|* 02729 M00S02533.1mb +++|* CALLS DOB. 02730 M00S02534.1mb +++|* 02731 M00S02535.1mb +++|* USES CM - CM+3, MB - MB+1. 02732 M00S02536.1mb +++|* 02733 M00S02537.1mb +++|* MACROS RPTR. 02734 M00S02538.1mb +++| 02735 M00S02539.1mb +++| 02736 M00S02540.1mb +++| SCA SUBR ENTRY/EXIT 02737 M00S02541.1mb +++| RJM DOB 02738 M00S02542.1mb +++| SCAA ADK DFHL 02739 M00S02543.1mb +++|* UJN SCA2 (*DFT* VERSION 4 OR ABOVE) 02740 M00S02544.1mb +++| SCA1 STD MB+1 SAVE ADDRESS 02741 M00S02545.1mb +++| SHN -14 02742 M00S02546.1mb +++| STD MB 02743 M00S02547.1mb +++| UJN SCAX RETURN 02744 M00S02548.1mb +++| 02745 M00S02549.1mb +++| SCA2 ADK DFBC 02746 M00S02550.1mb +++| CRDL CM READ M/R BUFFER CONTROL WORD POINTER 02747 M00S02551.1mb +++| RPTR CM CONVERT ADDRESS 02748 M00S02552.1mb +++| UJN SCA1 SAVE ADDRESS 02749 M00S02553.1mb +++| SDA SPACE 4,10 02750 M00S02554.1mb +++|** SDA - SET NOS REQUEST HEADER ADDRESS. 02751 M00S02555.1mb +++|* 02752 M00S02556.1mb +++|* EXIT (A) = ADDRESS OF NOS REQUEST HEADER. 02753 M00S02557.1mb +++| 02754 M00S02558.1mb +++| 02755 M00S02559.1mb +++| SDA SUBR ENTRY/EXIT 02756 M00S02560.1mb +++| SDAA LDC ** (ADDRESS OF NOS REQUEST HEADER) 02757 M00S02561.1mb +++| UJN SDAX RETURN 02758 M00S02562.1mb +++| SID SPACE 4,10 02759 M00S02563.1mb +++|** SID - SET SECDED ID TABLE INFORMATION. 02760 M00S02564.1mb +++|* 02761 M00S02565.1mb +++|* ENTRY (MS - MS+1) = ADDRESS OF M/R BUFFER. 02762 M00S02566.1mb +++|* 02763 M00S02567.1mb +++|* EXIT (A) = NUMBER OF SECDED ENTRIES. 02764 M00S02568.1mb +++|* 02765 M00S02569.1mb +++|* USES CM - CM+4, MS - MS+1, T1 - T1+4. 02766 M00S02570.1mb +++| 02767 M00S02571.1mb +++| 02768 M00S02572.1mb +++| SID SUBR ENTRY/EXIT 02769 M00S02573.1mb +++| LDD MS READ MEMORY SIZE 02770 M00S02574.1mb +++| SHN 14 02771 M00S02575.1mb +++| LMD MS+1 02772 M00S02576.1mb +++| CRD CM 02773 M00S02577.1mb +++| ADN 1 READ MEMORY MODEL 02774 M00S02578.1mb +++| CRD T1 02775 M00S02579.1mb +++| LDD T1+3 02776 M00S02580.1mb +++| SHN -4
| Line S02581 Modification History | |
|---|---|
M01 (Removed by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02777 M01S02581.1mb31 ---| STM IBMG+4 STORE MEMORY MODEL 02778 M01S02582.1mb31 ---|* STM IBMG+2 (*DFT* VERSION 4 OR ABOVE) 02779 M01S02583.1mb31 ---| SIDA EQU *-1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02780 M01S00001.1mb31 +++| STM IBMG+2 STORE MEMORY MODEL 02781 M00S02584.1mb +++| LDDL CM ADD MEMORY SIZE TO *BML* 02782 M00S02585.1mb +++| SHN 22-4 02783 M00S02586.1mb +++| STM IBMF+3 02784 M00S02587.1mb +++| SHN 4-22 02785 M00S02588.1mb +++| SHN 10 02786 M00S02589.1mb +++| STD T1 02787 M00S02590.1mb +++| LDDL CM+1 02788 M00S02591.1mb +++| SHN -10 02789 M00S02592.1mb +++| LMD T1 02790 M00S02593.1mb +++| STM IBMF+4 02791 M00S02594.1mb +++| LDN 2 ADVANCE TO SECDED ENTRIES 02792 M00S02595.1mb +++| RAD MS+1 02793 M00S02596.1mb +++| SHN -14 02794 M00S02597.1mb +++| RAD MS 02795 M00S02598.1mb +++| 02796 M00S02599.1mb +++|* CALCULATE SECDED TABLE SIZE. 02797 M00S02600.1mb +++| 02798 M00S02601.1mb +++| LDN 0 02799 M00S02602.1mb +++| STD T4 02800 M00S02603.1mb +++| SID1 LDD MS READ NEXT SECDED ENTRY 02801 M00S02604.1mb +++| SHN 14 02802 M00S02605.1mb +++| LMD MS+1 02803 M00S02606.1mb +++| ADD T4 02804 M00S02607.1mb +++| CRD CM 02805 M00S02608.1mb +++| LDD CM CHECK IF EMPTY ENTRY 02806 M00S02609.1mb +++| ADD CM+1 02807 M00S02610.1mb +++| ADD CM+2 02808 M00S02611.1mb +++| ADD CM+3 02809 M00S02612.1mb +++| ADD CM+4 02810 M00S02613.1mb +++| SBN 1 02811 M00S02614.1mb +++| MJN SID2 IF LAST ENTRY 02812 M00S02615.1mb +++| AOD T4 02813 M00S02616.1mb +++| UJN SID1 CHECK NEXT ENTRY 02814 M00S02617.1mb +++| 02815 M00S02618.1mb +++| SID2 LDD T4 RETURN SECDED SIZE 02816 M00S02619.1mb +++| UJP SIDX RETURN 02817 M00S02620.1mb +++| UCC SPACE 4,10 02818 M00S02621.1mb +++|** UCC - UPDATE CTI CLOCK. 02819 M00S02622.1mb +++|* 02820 M00S02623.1mb +++|* ENTRY DURING TOP-OF-HOUR PROCESSING. 02821 M00S02624.1mb +++|* 02822 M00S02625.1mb +++|* EXIT *1MA* CALLED IF TIME IS MIDNIGHT. 02823 M00S02626.1mb +++|* 02824 M00S02627.1mb +++|* USES CM - CM+4. 02825 M00S02628.1mb +++|* 02826 M00S02629.1mb +++|* MACROS MONITOR. 02827 M00S02630.1mb +++| 02828 M00S02631.1mb +++| 02829 M00S02632.1mb +++| UCC SUBR ENTRY/EXIT 02830 M00S02633.1mb +++| LDN PDTL CHECK TIME 02831 M00S02634.1mb +++| CRD CM 02832 M00S02635.1mb +++| LDD CM+3 02833 M00S02636.1mb +++| LPN 77 02834 M00S02637.1mb +++| NJN UCCX IF NOT MIDNIGHT 02835 M00S02638.1mb +++| LDD IR+1 UPDATE CONTROL POINT NUMBER 02836 M00S02639.1mb +++| LPN 37 02837 M00S02640.1mb +++| RAM UCCA+1 02838 M00S02641.1mb +++| LDD MA WRITE *1MA* REQUEST TO MESSAGE BUFFER 02839 M00S02642.1mb +++| CWM UCCA,ON 02840 M00S02643.1mb +++| MONITOR RPPM REQUEST PP FOR *1MA* 02841 M00S02644.1mb +++| UJN UCCX RETURN 02842 M00S02645.1mb +++| 02843 M00S02646.1mb +++| 02844 M00S02647.1mb +++| UCCA VFD 18/3L1MA,6/**,12/6,12/,12/ 02845 M00S02648.1mb +++| WLB SPACE 4,10 02846 M00S02649.1mb +++|** WLB - WRITE LAST *BML* MESSAGE. 02847 M00S02650.1mb +++|* 02848 M00S02651.1mb +++|* ENTRY DATA FOR LAST *BML* MESSAGE IN BUFFER. 02849 M00S02652.1mb +++|* (T4) = WORD COUNT OF MESSAGE. 02850 M00S02653.1mb +++|* 02851 M00S02654.1mb +++|* EXIT LAST *BML* MESSAGE WRITTEN. 02852 M00S02655.1mb +++|* 02853 M00S02656.1mb +++|* CALLS DFM. 02854 M00S02657.1mb +++|* 02855 M00S02658.1mb +++|* USES CM - CM+4. 02856 M00S02659.1mb +++| 02857 M00S02660.1mb +++| 02858 M00S02661.1mb +++| WLB SUBR ENTRY/EXIT 02859 M00S02662.1mb +++| LDM IBMG+1 CLEAR CONTINUATION BIT 02860 M00S02663.1mb +++| SCN 4 02861 M00S02664.1mb +++| STM IBMG+1 02862 M00S02665.1mb +++| LDN ZERL 02863 M00S02666.1mb +++| CRD CM 02864 M00S02667.1mb +++| LDD T4 SET BYTE COUNT 02865 M00S02668.1mb +++| SHN 2 02866 M00S02669.1mb +++| ADD T4 02867 M00S02670.1mb +++| STD CM+1 02868 M00S02671.1mb +++| LDC IBMF+BMLN SEND LAST *BML* MESSAGE 02869 M00S02672.1mb +++| RJM DFM 02870 M00S02673.1mb +++| UJN WLBX RETURN 02871 M00S02674.1mb +++| LINS SPACE 4,10 02872 M00S02675.1mb +++| LINS BSS 0 TABLE OF LONG INSTRUCTIONS 02873 M00S02676.1mb +++| LIST16 02874 M00S02677.1mb +++| SPACE 4,10 02875 M00S02678.1mb +++|** COMMON DECKS. 02876 M00S02679.1mb +++| 02877 M00S02680.1mb +++| 02878 M00S02681.1mb +++|*CALL COMPDLI
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02879 M01S00044.ns2769 +++| QUAL COMPIMB 02880 M01S00045.ns2769 +++| LIST X 02881 M01S00046.ns2769 +++|*CALL COMPIMB 02882 M01S00047.ns2769 +++| LIST * 02883 M01S00048.ns2769 +++| QUAL * 02884 M01S00049.ns2769 +++| IMB EQU /COMPIMB/IMB 02885 M00S02682.1mb +++| SPACE 4,15 02886 M00S02683.1mb +++|** MAINTENANCE REGISTER BUFFERS. 02887 M00S02684.1mb +++| 02888 M00S02685.1mb +++| 02889 M00S02686.1mb +++| BCMR EQU * 02890 M00S02687.1mb +++| BDMR EQU BCMR+10 02891 M00S02688.1mb +++| PRGB EQU BDMR+10 PP REGISTER BUFFER 02892 M00S02689.1mb +++| BHDR EQU PRGB *EMB* HEADER WORD 02893 M00S02690.1mb +++| MBUF EQU BHDR+5 MODEL DEPENDENT DATA *BML* BUFFER 02894 M00S02691.1mb +++| 02895 M00S02692.1mb +++| ERRPL PRGB+240B-EPFW PP REGISTER BUFFER OVERFLOW 02896 M00S02693.1mb +++| ERRPL MBUF+50D*5-EPFW MODEL DEPENDENT DATA BUFFER OVERFLOW 02897 M00S02694.1mb +++| TITLE OVERLAYABLE SUBROUTINES. 02898 M00S02695.1mb +++|* THESE SUBROUTINES ARE OVERLAYED BY THE MAINTENANCE REGISTER 02899 M00S02696.1mb +++|* AND MODEL DEPENDENT DATA BUFFERS. 02900 M00S02697.1mb +++| SBA SPACE 4,25 02901 M00S02698.1mb +++|** SBA - SET BUFFER ADDRESSES. 02902 M00S02699.1mb +++|* 02903 M00S02700.1mb +++|* EXIT (DC - DC+3) = *DFT* CONTROL WORD. 02904 M00S02701.1mb +++|* (DOBA - DOBA+1) = DFT/OS BUFFER ADDRESS. 02905 M00S02702.1mb +++|* (SDAA - SDAA+1) = NOS REQUEST HEADER ADDRESS. 02906 M00S02703.1mb +++|* (MRBA - MRBA+1) = ADDRESS OF M/R BUFFERS. 02907 M00S02704.1mb +++|* (LMRB) = LENGTH OF M/R BUFFER. 02908 M00S02705.1mb +++|* MACHINE ID, MESSAGE ID AND CHANNEL PLACED IN *BML* 02909 M00S02706.1mb +++|* MESSAGE BUFFER. 02910 M00S02707.1mb +++|* *DFT* VERSION PLACED IN *BML* MESSAGE BUFFER. 02911 M00S02708.1mb +++|* CODE MODIFIED TO SKIP LOGGING IF NOS/VE IS LOGGING. 02912 M00S02709.1mb +++|* 02913 M00S02710.1mb +++|* IN ADDITION, FOR *DFT* VERSION 4 OR ABOVE - 02914 M00S02711.1mb +++|* (DFTV) = *DFT* VERSION. 02915 M00S02712.1mb +++|* (LMRA) = SIZE OF ELEMENT COUNTER BUFFER. 02916 M00S02713.1mb +++|* (FNRA - FNRA+1) = NON-REGISTER DATA ADDRESS.
| Line S02714 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02917 M01S02714.271l716 ---|* NOTE - NON-REGISTER DATA SUPPORT IS NOT IMPLEMENTED. 02918 M00S02715.1mb +++|* (LSSA - LSSA+1) = SUPPORTIVE STATUS BUFFER ADDRESS. 02919 M00S02716.1mb +++|* (MDBA - MDBA+1) = MODEL DEPENDENT BUFFER ADDRESS. 02920 M00S02717.1mb +++|* 02921 M00S02718.1mb +++|* USES CM - CM+4, CN - CN+4, DC - DC+3. 02922 M00S02719.1mb +++|* 02923 M00S02720.1mb +++|* CALLS DLI, DOB, DSP. 02924 M00S02721.1mb +++|* 02925 M00S02722.1mb +++|* MACROS ISTORE, RPTR. 02926 M00S02723.1mb +++| 02927 M00S02724.1mb +++| 02928 M00S02725.1mb +++| SBA SUBR ENTRY/EXIT 02929 M00S02726.1mb +++| LDC SBAL DEFINE LONG INSTRUCTIONS 02930 M00S02727.1mb +++| RJM DLI 02931 M00S02728.1mb +++| RJM DSP READ *DFT/OS* BUFFER POINTER 02932 M00S02729.1mb +++| ADK DSCM+3 02933 M00S02730.1mb +++| CRDL CN 02934 M00S02731.1mb +++| RPTR CN,DOBA SET *DFT/OS* BUFFER ADDRESS 02935 M00S02732.1mb +++| RJM DOB READ *DFT* CONTROL WORD 02936 M00S02733.1mb +++| ADK DFCW 02937 M00S02734.1mb +++| CRDL DC 02938 M00S02735.1mb +++| ADK DFRQ-DFCW READ NOS REQUEST HEADER POINTER 02939 M00S02736.1mb +++| CRDL CM 02940 M00S02737.1mb +++| ADK DFMR-DFRQ READ M/R BUFFERS POINTER 02941 M00S02738.1mb +++| CRDL CN 02942 M00S02739.1mb +++| RPTR CN,MRBA SAVE FWA OF M/R BUFFERS 02943 M00S02740.1mb +++| RPTR CM,SDAA SET ADDRESS OF NOS REQUEST HEADER 02944 M00S02741.1mb +++| LDDL DC+2 SET LENGTH OF M/R BUFFER 02945 M00S02742.1mb +++| SHN -10 02946 M00S02743.1mb +++| STM LMRB 02947 M00S02744.1mb +++| LDDL DC+1 GET *DFT* VERSION 02948 M00S02745.1mb +++| SHN -10 02949 M00S02746.1mb +++| LPN 77 02950 M00S02747.1mb +++| STM IBMG SET *DFT* VERSION INTO *BML* 02951 M00S02748.1mb +++| SHN -2 02952 M00S02749.1mb +++| STM DFTV SAVE *DFT* VERSION (0 = VERSION 3)
| Line S02750 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02953 M01S02750.271l716 ---| ZJP SBA1 IF *DFT* VERSION 3
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02954 M01S00092.271l716 +++| ZJP SBA2 IF *DFT* VERSION 3 02955 M00S02751.1mb +++| ISTORE SCAA,(UJN SCA2) USE POINTER TO FIND CONTROL WORDS
| Line S02752 Modification History | |
|---|---|
M01 (Removed by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02956 M01S02752.1mb31 ---| LDC IBMG+2 MOVE MEMORY MODEL IN *BML* 02957 M01S02753.1mb31 ---| STM SIDA 02958 M00S02754.1mb +++| RJM DOB 02959 M00S02755.1mb +++| ADK DFMD READ MODEL DEPENDENT BUFFER POINTER 02960 M00S02756.1mb +++| CRDL T1 02961 M00S02757.1mb +++| ADK DFSS-DFMD READ SUPPORTIVE STATUS BUFFER POINTER 02962 M00S02758.1mb +++| CRDL CM 02963 M00S02759.1mb +++| ADK DFNR-DFSS READ NON-REGISTER DATA POINTER 02964 M00S02760.1mb +++| CRDL CN 02965 M00S02761.1mb +++| RPTR T1,MDBA SAVE FWA OF MODEL DEPENDENT BUFFER 02966 M00S02762.1mb +++| RPTR CM,FSSA SAVE FWA OF SUPPORTIVE STATUS DATA
| Line S02763 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02967 M01S02763.271l716 ---|* RPTR CN,FNRA SAVE FWA OF NON-REGISTER DATA 02968 M01S02764.271l716 ---| RJM DOB
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02969 M01S00093.271l716 +++| LDM IBMG CHECK FOR *DFT* VERSION 5 AND ABOVE 02970 M01S00094.271l716 +++| SBN 5 02971 M01S00095.271l716 +++| MJN SBA1 IF *DFT* VERSION 4 OR PRIOR 02972 M01S00096.271l716 +++| RPTR CN,FNRA SAVE FWA OF NON-REGISTER DATA
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2660 |
Seq # *Modification Id* Act ----------------------------+ 02973 M01S00020.ns2660 +++| LDDL DC+3 CHECK DEDICATED MODE 02974 M01S00021.ns2660 +++| SHN 21-DCDM 02975 M01S00022.ns2660 +++| PJN SBA1 IF *DFT* IS IN DEDICATED MODE 02976 M01S00023.ns2660 +++| LDD IR+2 CHECK FOR TOP OF HOUR 02977 M01S00024.ns2660 +++| LPN SPTP 02978 M01S00025.ns2660 +++| ZJN SBA0 IF NOT TOP OF HOUR 02979 M01S00026.ns2660 +++| ISTORE CTPB,(LDN SPTH) SET TO SECOND TOP OF HOUR FUNCTION 02980 M01S00027.ns2660 +++| UJN SBA1 CONTINUE 02981 M01S00028.ns2660 +++| 02982 M01S00029.ns2660 +++| SBA0 LDD IR+2 CHECK FOR TOP OF HOUR PASS TWO 02983 M01S00030.ns2660 +++| LPN SPTH 02984 M01S00031.ns2660 +++| ZJN SBA1 IF NOT TOP OF HOUR PASS TWO 02985 M01S00032.ns2660 +++| ISTORE DPPA,(UJN DPP5) SET TO RECALL *DFT* 02986 M01S00033.ns2660 +++|* LPN SPTP 02987 M01S00034.ns2660 +++| LPN SPLG 02988 M01S00035.ns2660 +++| STD IR+2 02989 M01S00036.ns2660 +++| LDD IA REWRITE INPUT REGISTER 02990 M01S00037.ns2660 +++| CWD IR
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02991 M01S00097.271l716 +++| SBA1 RJM DOB 02992 M00S02765.1mb +++| ADK DFEC READ ELEMENT COUNTER BUFFER POINTER 02993 M00S02766.1mb +++| CRDL CM 02994 M00S02767.1mb +++| LDD CM+3 SAVE SIZE OF BUFFER 02995 M00S02768.1mb +++| STM LMRA
| Line S02769 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02996 M01S02769.271l716 ---| SBA1 LDDL DC+3 CHECK OS LOGGING FLAG
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02997 M01S00098.271l716 +++| SBA2 LDDL DC+3 CHECK OS LOGGING FLAG 02998 M00S02770.1mb +++| SHN 21-DCLG
| Line S02771 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02999 M01S02771.271l716 ---| MJN SBA2 IF 170 LOGGING
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03000 M01S00099.271l716 +++| MJN SBA3 IF 170 LOGGING 03001 M00S02772.1mb +++| ISTORE LMRC,(UJN LMRX) SKIP LOGGING 03002 M00S02773.1mb +++| LDC LJMI SET *LJM* 03003 M00S02774.1mb +++| STM CTPA 03004 M00S02775.1mb +++| LDC CTPX SET *LJM* ADDRESS 03005 M00S02776.1mb +++| STM CTPA+1 03006 M00S02777.1mb +++| LDBC (MRV7,MRIL) 03007 M00S02778.1mb +++| STM FOMA+1 03008 M00S02779.1mb +++| LDBC (MRV7,MRIL) 03009 M00S02780.1mb +++| LMC SCNI 03010 M00S02781.1mb +++| STM MEPC
| Line S02782 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03011 M01S02782.271l716 ---| SBA2 LDC MMFL SET MACHINE ID INTO *BML*
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03012 M01S00100.271l716 +++| SBA3 LDC MMFL SET MACHINE ID INTO *BML* 03013 M00S02783.1mb +++| CRD CM 03014 M00S02784.1mb +++| LDD CM 03015 M00S02785.1mb +++| STM IBMG+3 03016 M00S02786.1mb +++| LDC /COMSDFS/HM0250 SET MESSAGE ID INTO *BML* 03017 M00S02787.1mb +++| STM IBMF 03018 M00S02788.1mb +++| LDN MR SET CHANNEL NUMBER INTO *BML* 03019 M00S02789.1mb +++| RAM IBMF+2 03020 M00S02790.1mb +++| LDC 400000B+SBAL CLEAR LONG INSTRUCTIONS 03021 M00S02791.1mb +++| RJM DLI 03022 M00S02792.1mb +++| LJM SBAX RETURN 03023 M00S02793.1mb +++| 03024 M00S02794.1mb +++| 03025 M00S02795.1mb +++| SBAL BSS 0 TABLE OF LONG INSTRUCTIONS 03026 M00S02796.1mb +++| LIST16 03027 M00S02797.1mb +++| TITLE COMMON PRESET. 03028 M00S02798.1mb +++| PRESET SPACE 4,10 03029 M00S02799.1mb +++|** PRESET - COMMON PRESET CODE FOR *1MB* AND *1SC*. 03030 M00S02800.1mb +++|* 03031 M00S02801.1mb +++|* THIS MACRO PROVIDES IDENTICAL CODE FOR *1MB* AND *1SC*. 03032 M00S02802.1mb +++|* 03033 M00S02803.1mb +++|* ENTRY (IR+2) = *1MB* FUNCTION BITS. 03034 M00S02804.1mb +++|* 03035 M00S02805.1mb +++|* EXIT (MF) = MAINFRAME TYPE. 03036 M00S02806.1mb +++|* = 0 = MF70 = CYBER 70. 03037 M00S02807.1mb +++|* = 1 = MF170 = CYBER 170. 03038 M00S02808.1mb +++|* = 2 = MF700 = CYBER 170 - 700 SERIES. 03039 M00S02809.1mb +++|* = 3 = MF865 = CYBER 170 - 865. 03040 M00S02810.1mb +++|* = 4 = MF875 = CYBER 170 - 875. 03041 M00S02811.1mb +++|* = 5 = MF180 = CYBER 180 CLASS MACHINE. 03042 M00S02812.1mb +++|* = 6 = MF176A = CYBER 176 LEVEL A. 03043 M00S02813.1mb +++|* = 7 = MF176B = CYBER 176 LEVEL B. 03044 M00S02814.1mb +++|* (PN) = PP NUMBER * 100B 03045 M00S02815.1mb +++|* 03046 M00S02816.1mb +++|* ERROR EXIT TO *PPR* IF CALLED WITH INCORRECT FUNCTION CODE. 03047 M00S02817.1mb +++|* 03048 M00S02818.1mb +++|* USES MF, T1, T3, T4, CM - CM+4, MI - MI+4, SC - SC+4. 03049 M00S02819.1mb +++|* 03050 M00S02820.1mb +++|* CALLS DFM. 03051 M00S02821.1mb +++| 03052 M00S02822.1mb +++| 03053 M00S02823.1mb +++| PRESET MACRO 03054 M00S02824.1mb +++| PRESET RMT 03055 M00S02825.1mb +++| LIST D 03056 M00S02826.1mb +++| PRS SUBR ENTRY/EXIT 03057 M00S02827.1mb +++| LDK MABL READ MAINFRAME IDENTIFICATION 03058 M00S02828.1mb +++| CRD MI 03059 M00S02829.1mb +++| LDC SCRL READ *SCRL* WORD 03060 M00S02830.1mb +++| CRD SC 03061 M00S02831.1mb +++| LDN MF70 PRESET CYBER 70 MAINFRAME TYPE 03062 M00S02832.1mb +++| STD MF 03063 M00S02833.1mb +++| LDD MI+1 03064 M00S02834.1mb +++| SHN 21-7 03065 M00S02835.1mb +++| PJN PRS8 IF CYBER 70 03066 M00S02836.1mb +++| SHN 21-13-21+7+22 03067 M00S02837.1mb +++| MJN PRS3 IF NOT CYBER 180 CLASS MACHINE 03068 M00S02838.1mb +++| SHN 0-2-21+13+22 03069 M00S02839.1mb +++| LPN 21 03070 M00S02840.1mb +++| ZJN PRS2 IF CYBER 170 - 865 03071 M00S02841.1mb +++| LMN 1 03072 M00S02842.1mb +++| ZJN PRS1 IF CYBER 170 - 875 03073 M00S02843.1mb +++| LDN MF180&MF875 03074 M00S02844.1mb +++| PRS1 LMN MF875&MF865 03075 M00S02845.1mb +++| PRS2 LMN MF865 03076 M00S02846.1mb +++| UJN PRS7 SET MACHINE TYPE 03077 M00S02847.1mb +++| 03078 M00S02848.1mb +++| PRS3 SHN 0-10-21+13 03079 M00S02849.1mb +++| LMN 17 03080 M00S02850.1mb +++| ZJN PRS5 IF CYBER 176 LEVEL A 03081 M00S02851.1mb +++| LMN 16&17 03082 M00S02852.1mb +++| ZJN PRS6 IF CYBER 176 LEVEL B 03083 M00S02853.1mb +++| LPN 1 03084 M00S02854.1mb +++| ZJN PRS4 IF CYBER 170 - 700 SERIES 03085 M00S02855.1mb +++| LDN MF170&MF700 03086 M00S02856.1mb +++| PRS4 LMN MF700&MF176A 03087 M00S02857.1mb +++| PRS5 LMN MF176A&MF176B 03088 M00S02858.1mb +++| PRS6 LMN MF176B 03089 M00S02859.1mb +++| PRS7 STD MF 03090 M00S02860.1mb +++| PRS8 LDD IR+2 CHECK FUNCTION BITS
| Line S02861 Modification History | |
|---|---|
M01 (Removed by) | ns2660 |
Seq # *Modification Id* Act ----------------------------+ 03091 M01S02861.ns2660 ---| SBN SPMX
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2660 |
Seq # *Modification Id* Act ----------------------------+ 03092 M01S00038.ns2660 +++| SBK SPMX 03093 M00S02862.1mb +++| MJN PRS12 IF LEGAL FUNCTION 03094 M00S02863.1mb +++| 03095 M00S02864.1mb +++|* PROCESS INCORRECT FUNCTION CODE. 03096 M00S02865.1mb +++| 03097 M00S02866.1mb +++| LDC PRSA ISSUE CALL ERROR MESSAGE 03098 M00S02867.1mb +++| RJM DFM 03099 M00S02868.1mb +++| MONITOR DPPM 03100 M00S02869.1mb +++| LJM PPR EXIT TO PP RESIDENT 03101 M00S02870.1mb +++| 03102 M00S02871.1mb +++| PRS12 LDD CP SET CONTROL POINT NUMBER IN PP CALL 03103 M00S02872.1mb +++| SHN -7 03104 M00S02873.1mb +++| RAM CKPA+1 03105 M00S02874.1mb +++| LDN PPCP STORE LOGICAL PP NUMBER BEING USED 03106 M00S02875.1mb +++| CRD CM 03107 M00S02876.1mb +++| LDD IA 03108 M00S02877.1mb +++| SBD CM+4 03109 M00S02878.1mb +++| SHN -3 03110 M00S02879.1mb +++| SBN 12 CHECK BARREL 03111 M00S02880.1mb +++| MJN PRS12.1 IF IN LOWER BARREL 03112 M00S02881.1mb +++| ADN 20-12 ADJUST FOR PP20-PP31 03113 M00S02882.1mb +++| PRS12.1 ADN 12 03114 M00S02883.1mb +++| SHN 6 03115 M00S02884.1mb +++| STM IBMF+2 03116 M00S02885.1mb +++| STD PN 03117 M00S02886.1mb +++| LJM PRS13 COMPLETE PRESET 03118 M00S02887.1mb +++| 03119 M00S02888.1mb +++| 03120 M00S02889.1mb +++| PRSA DATA C* 1MB - CALL ERROR.* 03121 M00S02890.1mb +++| LIST * 03122 M00S02891.1mb +++| PRESET RMT 03123 M00S02892.1mb +++| PRESET ENDM 03124 M00S02893.1mb +++| TITLE PRESET. 03125 M00S02894.1mb +++| SPACE 4,10 03126 M00S02895.1mb +++|** COMMON PRESET. 03127 M00S02896.1mb +++| 03128 M00S02897.1mb +++| 03129 M00S02898.1mb +++| PRESET 03130 M00S02899.1mb +++| PRESET HERE 03131 M00S02900.1mb +++| 03132 M00S02901.1mb +++| PRS13 LDD CP 03133 M00S02902.1mb +++| SHN -7 03134 M00S02903.1mb +++| RAM MEPD+1 PRESET CP IN *1DS* CALL
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03135 M01S00050.ns2769 +++| 03136 M01S00051.ns2769 +++|* PLUG *EMB* ADDRESSES. 03137 M01S00052.ns2769 +++| 03138 M01S00053.ns2769 +++| LDK EMBP FETCH *EMB* POINTER 03139 M01S00054.ns2769 +++| CRD CM 03140 M01S00055.ns2769 +++| .CM1 EQU CM+1 03141 M01S00056.ns2769 +++| LDC .CM1*10000+TEMB 03142 M01S00057.ns2769 +++| RJM STA SET *EMB* ADDRESSES 03143 M00S02904.1mb +++| LJM PRSX EXIT PRESET
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03144 M01S00058.ns2769 +++| 03145 M01S00059.ns2769 +++| 03146 M01S00060.ns2769 +++| TEMB BSS 0 TABLE OF *EMB* ADDRESSES 03147 M01S00061.ns2769 +++| QUAL COMPIMB 03148 M01S00062.ns2769 +++| TEMB HERE 03149 M01S00063.ns2769 +++| QUAL * 03150 M01S00064.ns2769 +++| CON 0 TERMINATE TABLE 03151 M01S00065.ns2769 +++| STA SPACE 4,10 03152 M01S00066.ns2769 +++|** STA - SET TABLE ADDRESSES. 03153 M01S00067.ns2769 +++|* 03154 M01S00068.ns2769 +++|* ENTRY (A) = 6/ TP, 12/ TA 03155 M01S00069.ns2769 +++|* TP = TABLE POINTER. 03156 M01S00070.ns2769 +++|* TA = INSTRUCTION TABLE ADDRESS. 03157 M01S00071.ns2769 +++|* 03158 M01S00072.ns2769 +++|* EXIT (A) = 0. 03159 M01S00073.ns2769 +++|* 03160 M01S00074.ns2769 +++|* USES T0, T1, T2. 03161 M01S00075.ns2769 +++| 03162 M01S00076.ns2769 +++| 03163 M01S00077.ns2769 +++| STA1 STD T2 SET INSTRUCTION ADDRESS 03164 M01S00078.ns2769 +++| LDM 1,T1 03165 M01S00079.ns2769 +++| RAM 1,T2 SET LOWER 12 BITS OF ADDRESS 03166 M01S00080.ns2769 +++| SHN -14 03167 M01S00081.ns2769 +++| ADI T1 SET UPPER 6 BITS OF ADDRESS 03168 M01S00082.ns2769 +++| LPN 37 03169 M01S00083.ns2769 +++| RAI T2 03170 M01S00084.ns2769 +++| AOD T0 ADVANCE INSTRUCTION LIST 03171 M01S00085.ns2769 +++| STA2 LDI T0 03172 M01S00086.ns2769 +++| NJN STA1 IF NOT END OF TABLE 03173 M01S00087.ns2769 +++| 03174 M01S00088.ns2769 +++| STA SUBR ENTRY/EXIT 03175 M01S00089.ns2769 +++| STD T0 03176 M01S00090.ns2769 +++| SHN -14 SET ADDRESS POINTER 03177 M01S00091.ns2769 +++| STD T1 03178 M01S00092.ns2769 +++| UJN STA2 ENTER LOOP 03179 M00S02905.1mb +++| L1MB EQU * LWA+1 OF *1MB* CODE 03180 M00S02906.1mb +++| SPACE 4,10 03181 M00S02907.1mb +++| OVERFLOW PPFW,EPFW 03182 M00S02908.1mb +++| TTL 1MB/1SC - SCR ERROR PROCESSOR. 03183 M00S02909.1mb +++| TITLE 03184 M00S02910.1mb +++| IDENT 1SC,PPFW 03185 M00S02911.1mb +++| QUAL 1SC 03186 M00S02912.1mb +++|*COMMENT 1MB - SCR ERROR PROCESSOR.
| Line S02913 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03187 M01S02913.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03188 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03189 M00S02914.1mb +++| SEP SPACE 4,10 03190 M00S02915.1mb +++|*** SEP - SCR ERROR PROCESSOR. 03191 M00S02916.1mb +++|* 03192 M00S02917.1mb +++|* *SEP* IS THE MAIN DRIVER THAT PROCESSES ERRORS 03193 M00S02918.1mb +++|* DETECTED IN THE SCR (OR SIMULATED SCR). *1SC* IS CALLED 03194 M00S02919.1mb +++|* FOR LOGGING *UIDL* (SEE *COMSSCR*) UNIQUE SECDED ERRORS, 03195 M00S02920.1mb +++|* FOR END-OF-HOUR PROCESSING, AND FOR ALL SCR ERRORS OTHER 03196 M00S02921.1mb +++|* THAN SECDED ERRORS. 03197 M00S02922.1mb +++|* 03198 M00S02923.1mb +++|* *1SC* FIRST CHECKS FOR GROUP 1 AND GROUP 2 FATAL ERRORS (SEE 03199 M00S02924.1mb +++|* *COMSSCR*). IF ANY OF THESE BITS ARE SET, *1SC* DISPLAYS 03200 M00S02925.1mb +++|* *FATAL MAINFRAME ERROR*, CHECKPOINTS THE DEVICES (IF NOT A 03201 M00S02926.1mb +++|* IAF ERROR), REQUESTS STEP MODE, AND HANGS THE PP. IF NO 03202 M00S02927.1mb +++|* FATAL ERROR BITS ARE DETECTED, *1SC* CONTINUES CHECKING FOR 03203 M00S02928.1mb +++|* OTHER ERRORS. 03204 M00S02929.1mb +++|* 03205 M00S02930.1mb +++|* *1SC* THEN CHECKS THE S/C REGISTER FOR BITS 36 AND/OR 03206 M00S02931.1mb +++|* 37 SET. IF BIT 36 (POWER FAILURE) IS SET, THE STEP 03207 M00S02932.1mb +++|* REQUEST BIT IN CM WORD *SCRL* IS SET AND A STEP FUNCTION 03208 M00S02933.1mb +++|* IS ISSUED. THE S/C REGISTER(S) ARE READ ALONG WITH THE 03209 M00S02934.1mb +++|* TIME OF DAY. IF ONLY BIT 36 IS SET, THE MESSAGE 03210 M00S02935.1mb +++|* *POWER FAILURE.* IS DISPLAYED AT THE SYSTEM CONTROL 03211 M00S02936.1mb +++|* POINT. IF BOTH BITS 36 AND 37 ARE SET, THE MESSAGE 03212 M00S02937.1mb +++|* *POWER DOWN.* IS DISPLAYED. IF BIT 37 ALONE IS SET, *1CK* 03213 M00S02938.1mb +++|* IS CALLED TO PERFORM A SYSTEM CHECKPOINT AND THE MESSAGE 03214 M00S02939.1mb +++|* *SHUTDOWN IMMINENT.* IS ENTERED IN THE ERROR LOG AND 03215 M00S02940.1mb +++|* DISPLAYED AT THE SYSTEM CP. THEN THE STEP REQUEST BIT 03216 M00S02941.1mb +++|* IS SET AND A STEP FUNCTION IS ISSUED. DURING THIS TIME 03217 M00S02942.1mb +++|* AND SUBSEQUENTLY, BITS 36 AND 37 ARE MONITORED AND THE 03218 M00S02943.1mb +++|* CONTROL POINT MESSAGE KEPT UP TO DATE. IF BIT 36 BECOMES 03219 M00S02944.1mb +++|* SET, STEP MODE IS IMMEDIATELY REQUESTED. IF BOTH BITS 03220 M00S02945.1mb +++|* BECOME CLEAR, THE MESSAGE *POWER/ENVIRONMENT NORMAL.* 03221 M00S02946.1mb +++|* IS DISPLAYED AT THE SYSTEM CONTROL POINT, THE S/C 03222 M00S02947.1mb +++|* REGISTER(S) AND THE TIME OF DAY ARE READ, AND THE STEP 03223 M00S02948.1mb +++|* REQUEST BIT IS CLEARED, ENABLING THE ENTERING OF THE 03224 M00S02949.1mb +++|* *DSD* COMMAND *UNSTEP.* BY THE OPERATOR. WHEN *UNSTEP.* 03225 M00S02950.1mb +++|* IS EXECUTED, *1SC* ENTERS INTO THE ERROR LOG AS 03226 M00S02951.1mb +++|* APPROPRIATE, THE MESSAGE *SR HH.MM.SS. POWER FAILURE.* 03227 M00S02952.1mb +++|* OR *SR HH.MM.SS. POWER DOWN.*. THE LAST MESSAGE SEQUENCE 03228 M00S02953.1mb +++|* IN THE ERROR LOG BEFORE *1MB* DROPS WILL BE 03229 M00S02954.1mb +++|* *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.*. 03230 M00S02955.1mb +++|* (ON A CYBER 70, BIT 0 OF THE INTERLOCK REGISTER INDICATES 03231 M00S02956.1mb +++|* POWER FAILURE. THERE IS NO SHUTDOWN IMMINENT BIT. THE 03232 M00S02957.1mb +++|* POWER FAILURE PROCEDURE DESCRIBED ABOVE IS FOLLOWED 03233 M00S02958.1mb +++|* EXCEPT THE MESSAGE PREFIX BECOMES *IR* INSTEAD OF *SR*.) 03234 M00S02959.1mb +++|* 03235 M00S02960.1mb +++|* IF S/C REGISTER BITS 36 AND/OR 37 ARE NOT SET, 03236 M00S02961.1mb +++|* *1SC* S/C REGISTER(S) PROCESSING WILL, FOR EACH 03237 M00S02962.1mb +++|* AVAILABLE S/C REGISTER, CLEAR APPROPRIATE ERROR 03238 M00S02963.1mb +++|* BITS, AND ISSUE ERROR INFORMATION TO THE BML. 03239 M00S02964.1mb +++|* 03240 M00S02965.1mb +++|* FOR PP MEMORY PARITY ERRORS, *1SC* WILL DISPLAY A 03241 M00S02966.1mb +++|* *PP MEMORY PARITY ERROR* MESSAGE AT THE SYSTEM 03242 M00S02967.1mb +++|* CONTROL POINT. 03243 M00S02968.1mb +++|* 03244 M00S02969.1mb +++|* EACH SINGLE BIT SECDED ERROR DETECTED IN THE SCR (OR 03245 M00S02970.1mb +++|* SIMULATED SCR) WILL BE COUNTED. THE FIRST *UIDL* UNIQUE 03246 M00S02971.1mb +++|* PER HOUR WILL BE LOGGED (SUBSEQUENT SINGLE BIT SECDED 03247 M00S02972.1mb +++|* ERRORS DETECTED BY MONITOR WILL MERELY INCREMENT THE COUNTS 03248 M00S02973.1mb +++|* AND CLEAR THE ERROR BITS IN MONITOR ITSELF). AT THE END OF 03249 M00S02974.1mb +++|* EACH HOUR, THE *TIME PROCESSING* CALL TO *1SC* WILL CAUSE 03250 M00S02975.1mb +++|* THE CURRENT SINGLE BIT SECDED ERROR COUNT TO BE LOGGED TO 03251 M00S02976.1mb +++|* THE ERROR LOG. THE CM AND LCME SECDED ID TABLES AND COUNTS 03252 M00S02977.1mb +++|* WILL ALSO BE LOGGED TO THE BML. THESE TABLES AND COUNTS 03253 M00S02978.1mb +++|* WILL THEN BE CLEARED AFTER LOGGING. THE ESM SECDED 03254 M00S02979.1mb +++|* ERROR LOG IS ALSO LOGGED TO THE BML, IF AN ESM 03255 M00S02980.1mb +++|* MAINTENANCE PORT IS DEFINED. 03256 M00S02981.1mb +++|* 03257 M00S02982.1mb +++|* FOR CYBER 176 MACHINES, LCME SINGLE BIT SECDED 03258 M00S02983.1mb +++|* ERRORS ARE HANDLED IN A SIMILAR MANNER. THE 03259 M00S02984.1mb +++|* THRESHOLD VALUE FOR LCME IS ALSO DEFINED BY *UIDL*. 03260 M00S02985.1mb +++|* 03261 M00S02986.1mb +++|* ALL DETECTED DOUBLE BIT SECDED ERRORS WILL BE LOGGED. 03262 M00S02987.1mb +++|* 03263 M00S02988.1mb +++|* NOTE - *1SC* IS, TO AN EXTENT, FUNCTION-DRIVEN BY BITS. ONE 03264 M00S02989.1mb +++|* BIT IN THE PARAMETER LIST DENOTES WHETHER OR NOT MONITOR HAS 03265 M00S02990.1mb +++|* DETECTED A CM SINGLE BIT SECDED ERROR. A SECOND BIT 03266 M00S02991.1mb +++|* SPECIFIES IF AN LCME SINGLE BIT SECDED ERROR HAS BEEN 03267 M00S02992.1mb +++|* DETECTED. A THIRD BIT DENOTES IF END-OF-HOUR PROCESSING HAS 03268 M00S02993.1mb +++|* BEEN SPECIFIED. THUS, AN OPEN WINDOW FOR SECDED ERRORS 03269 M00S02994.1mb +++|* EXISTS FROM THE TIME MONITOR CALLS *1SC* UNTIL *1SC* BEGINS 03270 M00S02995.1mb +++|* PROCESSING. THIS PRESENTS NO MAJOR CONCERN, HOWEVER, SINCE 03271 M00S02996.1mb +++|* *1SC* WILL NOT PROCESS ANY SECDED ERRORS NOT DETECTED BY 03272 M00S02997.1mb +++|* MONITOR. THOSE SECDED BITS WILL REMAIN SET UNTIL MONITOR 03273 M00S02998.1mb +++|* DETECTS THE ERROR IN ITS NEXT CYCLE. 03274 M00S02999.1mb +++|* WHEN *1SC* IS FINISHED, IT WILL CLEAR BIT 59 IN 03275 M00S03000.1mb +++|* CM LOCATION *SCRL*, SET BY *MTR*, TO RE-ENABLE 03276 M00S03001.1mb +++|* S/C REGISTER ERROR LOGGING. 03277 M00S03002.1mb +++| SPACE 4,10 03278 M00S03003.1mb +++|*** CALL. 03279 M00S03004.1mb +++|* 03280 M00S03005.1mb +++|* 03281 M00S03006.1mb +++|*T IR 18/ *1SC*,1/0,5/ CP,9/0,1/ C,1/ L,1/ T,24/0
Figure IR
03282 M00S03007.1mb +++|* CP CONTROL POINT NUMBER. 03283 M00S03008.1mb +++|* C SET IF CM SINGLE BIT SECDED ERROR. 03284 M00S03009.1mb +++|* L SET IF LCME SINGLE BIT SECDED ERROR (176 ONLY). 03285 M00S03010.1mb +++|* T SET IF TIME PROCESSING SPECIFIED. 03286 M00S03011.1mb +++| SPACE 4,10 03287 M00S03012.1mb +++|*** DAYFILE MESSAGES. 03288 M00S03013.1mb +++|* 03289 M00S03014.1mb +++|* 03290 M00S03015.1mb +++|* * 1SC - CALL ERROR.* = *1SC* WAS CALLED WITH AN ILLEGAL 03291 M00S03016.1mb +++|* FUNCTION BIT CODE. 03292 M00S03017.1mb +++|* 03293 M00S03018.1mb +++|* * 1SC - ESM CHANNEL HANG.* = THE ESM MAINTENANCE 03294 M00S03019.1mb +++|* CHANNEL HUNG ACTIVE WHILE WAITING TO FUNCTION THE 03295 M00S03020.1mb +++|* ESM TO READ THE ESM SECDED LOG. 03296 M00S03021.1mb +++|* 03297 M00S03022.1mb +++|* * 1SC - INCOMPLETE ESM SECDED READ.* = *1SC* DETECTED 03298 M00S03023.1mb +++|* THAT NOT ALL OF THE ESM SECDED LOG WAS READ OFF THE 03299 M00S03024.1mb +++|* ESM MAINTENANCE CHANNEL. 03300 M00S03025.1mb +++| SPACE 4,20 03301 M00S03026.1mb +++|*** SCR PROCESSING SYSTEM CONTROL POINT MESSAGES. 03302 M00S03027.1mb +++|* 03303 M00S03028.1mb +++|* 03304 M00S03029.1mb +++|* * FATAL MAINFRAME ERROR.* 03305 M00S03030.1mb +++|* 03306 M00S03031.1mb +++|* * POWER FAILURE.* 03307 M00S03032.1mb +++|* BIT 36 OF S/C REGISTER SET. 03308 M00S03033.1mb +++|* BIT 0 OF INTERLOCK REGISTER SET (CYBER 70) 03309 M00S03034.1mb +++|* 03310 M00S03035.1mb +++|* * SHUTDOWN IMMINENT.* 03311 M00S03036.1mb +++|* BIT 37 OF S/C REGISTER SET. 03312 M00S03037.1mb +++|* 03313 M00S03038.1mb +++|* * POWER DOWN.* 03314 M00S03039.1mb +++|* BOTH BITS 36 AND 37 OF S/C REGISTER SET. 03315 M00S03040.1mb +++|* 03316 M00S03041.1mb +++|* * POWER/ENVIRONMENT NORMAL.* 03317 M00S03042.1mb +++|* BOTH BITS 36 AND 37 OF S/C REGISTER CLEAR. 03318 M00S03043.1mb +++| SPACE 4,40 03319 M00S03044.1mb +++|*** SCR PROCESSING ERROR LOG MESSAGES. 03320 M00S03045.1mb +++|* 03321 M00S03046.1mb +++|* 03322 M00S03047.1mb +++|* *SR HH.MM.SS. POWER FAILURE.* 03323 M00S03048.1mb +++|* *IR HH.MM.SS. POWER FAILURE.* (CYBER 70) 03324 M00S03049.1mb +++|* 03325 M00S03050.1mb +++|* *SR SHUTDOWN IMMINENT.* 03326 M00S03051.1mb +++|* 03327 M00S03052.1mb +++|* *SR HH.MM.SS. POWER DOWN.* 03328 M00S03053.1mb +++|* 03329 M00S03054.1mb +++|* *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.* 03330 M00S03055.1mb +++|* *IR HH.MM.SS. POWER/ENVIRONMENT NORMAL.* (CYBER 70) 03331 M00S03056.1mb +++|* 03332 M00S03057.1mb +++|* WHERE HH.MM.SS. IS TIME OF DAY. 03333 M00S03058.1mb +++|* ABOVE MESSAGES ARE FOLLOWED BY S/C REGISTER(S) 03334 M00S03059.1mb +++|* CONTENTS READ AT TIME HH.MM.SS. IN FORMAT 03335 M00S03060.1mb +++|* SHOWN ABOVE. 03336 M00S03061.1mb +++| 03337 M00S03062.1mb +++| 03338 M00S03063.1mb +++| ORG PPFW 03339 M00S03064.1mb +++| SEP RJM PSC PRESET FOR *1SC* 03340 M00S03065.1mb +++| RJM RSC READ S/C REGISTER(S) 03341 M00S03066.1mb +++| SEPA RJM CFE CHECK FOR FATAL ERRORS 03342 M00S03067.1mb +++|* UJN *+2 (IF CYBER 70 AND NO SIMULATION) 03343 M00S03068.1mb +++| RJM PEF CHECK FOR POWER OR ENVIRONMENTAL FAILURE 03344 M00S03069.1mb +++| RJM TEB CLEAR TEST ERROR BITS IN S/C 03345 M00S03070.1mb +++| RJM PSB PROCESS SINGLE BIT ERRORS 03346 M00S03071.1mb +++| RJM IBM ISSUE BML MESSAGE 03347 M00S03072.1mb +++| RJM PTP PERFORM TIME PROCESSING 03348 M00S03073.1mb +++| LJM DPP DROP PP 03349 M00S03074.1mb +++| SPACE 4,10 03350 M00S03075.1mb +++|** COMMON SUBROUTINES. 03351 M00S03076.1mb +++| 03352 M00S03077.1mb +++| 03353 M00S03078.1mb +++| COMMON 03354 M00S03079.1mb +++| 03355 M00S03080.1mb +++| LIST D 03356 M00S03081.1mb +++| COMMON HERE 03357 M00S03082.1mb +++| LIST * 03358 M00S03083.1mb +++| BIS SPACE 4,10 03359 M00S03084.1mb +++|** BIS - BUILD ID SUMMARY TABLE ADDRESS. 03360 M00S03085.1mb +++|* 03361 M00S03086.1mb +++|* ENTRY (SC - SC+4) = SCR PARAMETER WORD *SCRL*. 03362 M00S03087.1mb +++|* 03363 M00S03088.1mb +++|* EXIT (T3) = ID TABLE LENGTH. 03364 M00S03089.1mb +++|* 03365 M00S03090.1mb +++|* USES T3, T6, T7. 03366 M00S03091.1mb +++| 03367 M00S03092.1mb +++| 03368 M00S03093.1mb +++| BIS SUBR ENTRY/EXIT 03369 M00S03094.1mb +++| LDD SC BUILD ID SUMMARY TABLE ADDRESS 03370 M00S03095.1mb +++| LPN 77 03371 M00S03096.1mb +++| SHN 14 03372 M00S03097.1mb +++| LMD SC+1 03373 M00S03098.1mb +++| BISA ADN UIDL 03374 M00S03099.1mb +++|* ADN UIDL*2 (ADD OFFSET FOR LCME ID TABLE) 03375 M00S03100.1mb +++| STD T7 03376 M00S03101.1mb +++| SHN -14 03377 M00S03102.1mb +++| STD T6 03378 M00S03103.1mb +++| LDN UIDL GET ID TABLE LENGTH 03379 M00S03104.1mb +++| STD T3 03380 M00S03105.1mb +++| UJN BISX RETURN 03381 M00S03106.1mb +++| CFE SPACE 4,10 03382 M00S03107.1mb +++|** CFE - CHECK FOR FATAL ERRORS. 03383 M00S03108.1mb +++|* 03384 M00S03109.1mb +++|* ENTRY (MF) = MAINFRAME TYPE FLAG. 03385 M00S03110.1mb +++|* 03386 M00S03111.1mb +++|* EXIT IF ANY FATAL ERROR BITS SET, HANGS WITH STEP MODE 03387 M00S03112.1mb +++|* SET, FORCING DEADSTART. OTHERWISE, EXIT IS NORMAL. 03388 M00S03113.1mb +++|* 03389 M00S03114.1mb +++|* USES T2, CM - CM+4, CN - CN+4. 03390 M00S03115.1mb +++|* 03391 M00S03116.1mb +++|* CALLS CSH, TRB. 03392 M00S03117.1mb +++| 03393 M00S03118.1mb +++| CFE SUBR ENTRY/EXIT 03394 M00S03119.1mb +++| LDM TSCR+20 TEST SCR FOR GROUP ONE FATAL ERRORS 03395 M00S03120.1mb +++| LPC FEM0 (CYBER 170) 03396 M00S03121.1mb +++|* LPC FEM6 (CYBER 176) 03397 M00S03122.1mb +++|* LPC FEM7 (CYBER 170 - 700 SERIES) 03398 M00S03123.1mb +++|* LPC FEM8 (CYBER 170 - 865/875) 03399 M00S03124.1mb +++| CFEA EQU *-1 03400 M00S03125.1mb +++| NJN CFE1 IF FATAL ERROR 03401 M00S03126.1mb +++| LDM TSCR+17 03402 M00S03127.1mb +++| NJN CFE1 IF FATAL ERROR 03403 M00S03128.1mb +++| LDD CH+1 03404 M00S03129.1mb +++| ZJN CFE2 IF DONE WITH SCR REGISTERS 03405 M00S03130.1mb +++| LDM TSCR+40 03406 M00S03131.1mb +++| ZJN CFE2 IF NO GROUP ONE FATAL ERRORS 03407 M00S03132.1mb +++| CFE1 LJM CFE7 PROCESS FATAL ERROR 03408 M00S03133.1mb +++| 03409 M00S03134.1mb +++| CFE2 LDN CMCE CHECK FOR *CMC* ERROR (BIT CLEAR ON 176) 03410 M00S03135.1mb +++| RJM TRB TEST BIT 03411 M00S03136.1mb +++| NJN CFE6 IF *CMC* INPUT ERROR 03412 M00S03137.1mb +++| CFE3 LDN SECD 03413 M00S03138.1mb +++| RJM TRB 03414 M00S03139.1mb +++| ZJN CFE4 IF NO SECDED ERROR 03415 M00S03140.1mb +++| LDC SDSC CHECK IF DOUBLE BIT ERROR 03416 M00S03141.1mb +++| RJM TRB 03417 M00S03142.1mb +++| ZJN CFE4 IF NO DOUBLE BIT ERROR 03418 M00S03143.1mb +++| LDD MF 03419 M00S03144.1mb +++| SBN MF176A 03420 M00S03145.1mb +++| MJN CFE6 IF NOT A CYBER 176 03421 M00S03146.1mb +++| LJM CSH1 REQUEST STEP AND HANG 03422 M00S03147.1mb +++| 03423 M00S03148.1mb +++| CFE4 LDD MF GET MACHINE TYPE 03424 M00S03149.1mb +++| SBN MF176A 03425 M00S03150.1mb +++| MJN CFE5 IF NOT CYBER 176 03426 M00S03151.1mb +++| LDN LSCD CHECK FOR LCME SECDED ERROR 03427 M00S03152.1mb +++| RJM TRB 03428 M00S03153.1mb +++| ZJN CFE5 IF NO LCME SECDED ERROR 03429 M00S03154.1mb +++| LDC LDSC CHECK IF DOUBLE BIT ERROR 03430 M00S03155.1mb +++| RJM TRB 03431 M00S03156.1mb +++| NJN CFE6 IF DOUBLE BIT LCME ERROR 03432 M00S03157.1mb +++| CFE5 LJM CFEX RETURN 03433 M00S03158.1mb +++| 03434 M00S03159.1mb +++| CFE6 LDD CP CHECK SYSTEM CONTROL POINT FOR *PEET* 03435 M00S03160.1mb +++| ADN STSW 03436 M00S03161.1mb +++| CRD CM 03437 M00S03162.1mb +++| LDD CM+1 03438 M00S03163.1mb +++| LMN PEET 03439 M00S03164.1mb +++| ZJN CFE7 IF PROGRAM MODE CPUMTR ENCOUNTERED ERROR 03440 M00S03165.1mb +++| LDC VCPT*200+STSW CHECK FOR *IAF* ERROR 03441 M00S03166.1mb +++| CRD CM 03442 M00S03167.1mb +++| ADN JCIW-STSW-1 03443 M00S03168.1mb +++| CRD CN 03444 M00S03169.1mb +++| LDD CN+2 03445 M00S03170.1mb +++| LMC /SSD/IFSI 03446 M00S03171.1mb +++| NJN CFE8 IF NOT *IAF* 03447 M00S03172.1mb +++| LDD CM+1 03448 M00S03173.1mb +++| LMN PEET 03449 M00S03174.1mb +++| NJN CFE8 IF ERROR NOT IN *IAF* FL 03450 M00S03175.1mb +++| CFE7 AOM CKPA+2 SET FUNCTION TO CHECKPOINT DEVICES 03451 M00S03176.1mb +++| CFE8 RJM CSH CHECKPOINT, STEP, AND HANG 03452 M00S03177.1mb +++| 03453 M00S03178.1mb +++| 03454 M00S03179.1mb +++| CSHM DATA C* FATAL MAINFRAME ERROR.* DEFAULT *CSH* MESSAGE 03455 M00S03180.1mb +++| IBM SPACE 4,10 03456 M00S03181.1mb +++|** IBM - ISSUE BML MESSAGE. 03457 M00S03182.1mb +++|* 03458 M00S03183.1mb +++|* ENTRY (IR+2) = *1MB* FUNCTION BITS. 03459 M00S03184.1mb +++|* (MF) = MAINFRAME TYPE. 03460 M00S03185.1mb +++|* (SC - SC+4) = SCR PARAMETER WORD *SCRL*. 03461 M00S03186.1mb +++|* 03462 M00S03187.1mb +++|* USES T3, T5 - T7, CM - CM+4, CN - CN+4, NW. 03463 M00S03188.1mb +++|* 03464 M00S03189.1mb +++|* CALLS BIS, DFM, OLB. 03465 M00S03190.1mb +++| 03466 M00S03191.1mb +++| 03467 M00S03192.1mb +++| IBM SUBR ENTRY/EXIT 03468 M00S03193.1mb +++| LDM TMID,MF GET MESSAGE ID 03469 M00S03194.1mb +++| STM IBMF 03470 M00S03195.1mb +++| LDC MMFL GET MACHINE ID 03471 M00S03196.1mb +++| CRD CM 03472 M00S03197.1mb +++| LDD CM 03473 M00S03198.1mb +++| STM IBMG+3 03474 M00S03199.1mb +++| LDD MF CHECK FOR CYBER 70 03475 M00S03200.1mb +++| ZJN IBMX IF INTERLOCK REGISTER 03476 M00S03201.1mb +++| LDN CHSC STORE SCR CHANNEL 03477 M00S03202.1mb +++| RAM IBMF+2 03478 M00S03203.1mb +++| LDD ER 03479 M00S03204.1mb +++| ZJN IBM3 IF NO ERRORS IN SCR 03480 M00S03205.1mb +++| RJM OLB OUTPUT LOG TO BML 03481 M00S03206.1mb +++| IBM3 LDD IR+2 03482 M00S03207.1mb +++| LPN SPTP 03483 M00S03208.1mb +++| ZJN IBMX IF NOT TIME PROCESSING 03484 M00S03209.1mb +++| 03485 M00S03210.1mb +++|* OUTPUT SECDED ERROR SUMMARY TABLE TO BML. 03486 M00S03211.1mb +++| 03487 M00S03212.1mb +++| IBM4 LDM IBMH+2 RESET FIRST SCR CHANNEL 03488 M00S03213.1mb +++| SCN 77 03489 M00S03214.1mb +++| LMD CH 03490 M00S03215.1mb +++| STM IBMH+2 03491 M00S03216.1mb +++| LDC /COMSDFS/HS0102 (CM SUMMARY TABLE) 03492 M00S03217.1mb +++|* LDC /COMSDFS/HS0104 (LCME SUMMARY TABLE) 03493 M00S03218.1mb +++| IBMA EQU *-1 03494 M00S03219.1mb +++| STM IBMF+1 03495 M00S03220.1mb +++| LDN ZERL SAVE 5 WORDS OF ZEROES 03496 M00S03221.1mb +++| CRD CN 03497 M00S03222.1mb +++| RJM BIS BUILD ID SUMMARY TABLE ADDRESS 03498 M00S03223.1mb +++| LDN 0 INITIALIZE TOTAL MESSAGE WORD COUNT 03499 M00S03224.1mb +++| STD NW 03500 M00S03225.1mb +++| IBM5 SOD T7 DECREMENT NEXT TABLE ENTRY ADDRESS 03501 M00S03226.1mb +++| PJN IBM6 IF NO UNDERFLOW 03502 M00S03227.1mb +++| SOD T6 03503 M00S03228.1mb +++| AOD T7 03504 M00S03229.1mb +++| IBM6 LDD T6 READ NEXT ID TABLE ENTRY 03505 M00S03230.1mb +++| SHN 14 03506 M00S03231.1mb +++| ADD T7 03507 M00S03232.1mb +++| CRD CM 03508 M00S03233.1mb +++| LDD CM+4 CHECK IF ERROR COUNT .GT. 0 03509 M00S03234.1mb +++| ZJN IBM7 IF REMAINING TABLE ENTRIES EMPTY 03510 M00S03235.1mb +++| AOD NW INCREMENT UNIQUE SECDED ERROR COUNT 03511 M00S03236.1mb +++| SOD T3 03512 M00S03237.1mb +++| NJN IBM5 IF ENTIRE ID TABLE NOT SEARCHED 03513 M00S03238.1mb +++| IBM7 RJM BIS REBUILD LWA+1 OF TABLE 03514 M00S03239.1mb +++| RAM BISA 03515 M00S03240.1mb +++| IBM8 LDD NW 03516 M00S03241.1mb +++| NJN IBM10 IF SECDED ERRORS OCCURRED THIS HOUR 03517 M00S03242.1mb +++| LDD MF 03518 M00S03243.1mb +++| SBN MF176A 03519 M00S03244.1mb +++| MJN IBM9 IF NOT CYBER 176 03520 M00S03245.1mb +++| LDN /COMSDFS/HS0104-/COMSDFS/HS0102 LCME ERRORS ID 03521 M00S03246.1mb +++| RAM IBMA 03522 M00S03247.1mb +++| LMC /COMSDFS/HS0104 03523 M00S03248.1mb +++| NJN IBM9 IF LCME ERRORS REPORTED 03524 M00S03249.1mb +++| LJM IBM4 PROCESS LCME SECDED SUMMARY TABLE 03525 M00S03250.1mb +++| 03526 M00S03251.1mb +++| IBM9 LJM IBMX RETURN 03527 M00S03252.1mb +++| 03528 M00S03253.1mb +++| IBM10 LDN 12 INITIALIZE BML MESSAGE BYTE COUNT 03529 M00S03254.1mb +++| STD T5 03530 M00S03255.1mb +++| LDC IBMH INITIALIZE MESSAGE BUFFER POINTER 03531 M00S03256.1mb +++| STM IBME 03532 M00S03257.1mb +++| IBM11 SOD T7 DECREMENT NEXT TABLE ENTRY ADDRESS 03533 M00S03258.1mb +++| PJN IBM12 IF NO UNDERFLOW 03534 M00S03259.1mb +++| SOD T6 03535 M00S03260.1mb +++| AOD T7 03536 M00S03261.1mb +++| IBM12 LDD NW 03537 M00S03262.1mb +++| ZJN IBM13 IF TIME TO ISSUE DAYFILE MESSAGE 03538 M00S03263.1mb +++| SOD NW DECREMENT UNIQUE SECDED ERROR COUNT 03539 M00S03264.1mb +++| LDD T6 READ NEXT TABLE ENTRY INTO MESSAGE BUFFER 03540 M00S03265.1mb +++| SHN 14 03541 M00S03266.1mb +++| ADD T7 03542 M00S03267.1mb +++| CRM IBMH,ON 03543 M00S03268.1mb +++| IBME EQU *-1 03544 M00S03269.1mb +++|* CRM IBMH+5,ON 03545 M00S03270.1mb +++|* CRM IBMH+12,ON 03546 M00S03271.1mb +++|* CRM IBMH+17,ON 03547 M00S03272.1mb +++| SBN 1 RESET CURRENT ID TABLE ADDRESS 03548 M00S03273.1mb +++| CWD CN CLEAR ID SUMMARY TABLE ENTRY 03549 M00S03274.1mb +++| LDN 5 INCREMENT MESSAGE BUFFER POINTER 03550 M00S03275.1mb +++| RAM IBME 03551 M00S03276.1mb +++| LDN 5 INCREMENT MESSAGE BYTE COUNT 03552 M00S03277.1mb +++| RAD T5 03553 M00S03278.1mb +++| SBN 36 03554 M00S03279.1mb +++| ZJN IBM13 IF BML MESSAGE BUFFER FULL 03555 M00S03280.1mb +++| LJM IBM11 PROCESS MORE TABLE ENTRIES 03556 M00S03281.1mb +++| 03557 M00S03282.1mb +++|* ISSUE DAYFILE MESSAGE. 03558 M00S03283.1mb +++| 03559 M00S03284.1mb +++| IBM13 LDN ZERL CLEAR CM REGISTERS FOR DAYFILE CALL 03560 M00S03285.1mb +++| CRD CM 03561 M00S03286.1mb +++| LDD T5 SET BYTE COUNT OF MESSAGE 03562 M00S03287.1mb +++| STD CM+1 03563 M00S03288.1mb +++| LDD NW 03564 M00S03289.1mb +++| ZJN IBM14 IF END OF BML MESSAGE 03565 M00S03290.1mb +++| LDM IBMG+1 SET CONTINUATION BIT STATUS 03566 M00S03291.1mb +++| SCN 4 03567 M00S03292.1mb +++| LMN 4 03568 M00S03293.1mb +++| UJN IBM15 STORE STATUS 03569 M00S03294.1mb +++| 03570 M00S03295.1mb +++| IBM14 LDM IBMG+1 STORE MESSAGE STATUS 03571 M00S03296.1mb +++| SCN 4 03572 M00S03297.1mb +++| IBM15 STM IBMG+1 03573 M00S03298.1mb +++| LDC IBMF+BMLN ISSUE DAYFILE MESSAGE 03574 M00S03299.1mb +++| RJM DFM 03575 M00S03300.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 03576 M00S03301.1mb +++| SCN 10 03577 M00S03302.1mb +++| LMN 10 03578 M00S03303.1mb +++| STM IBMG+1 03579 M00S03304.1mb +++| LJM IBM8 CONTINUE PROCESSING 03580 M00S03305.1mb +++| SPACE 4,10 03581 M00S03306.1mb +++| TMID INDEX TABLE OF MESSAGE IDS 03582 M00S03307.1mb +++| INDEX MF170,/COMSDFS/HM0200 CYBER 170 03583 M00S03308.1mb +++| INDEX MF700,/COMSDFS/HM0201 CYBER 170 - 700 SERIES 03584 M00S03309.1mb +++| INDEX MF865,/COMSDFS/HM0204 CYBER 170 - 865 03585 M00S03310.1mb +++| INDEX MF875,/COMSDFS/HM0205 CYBER 170 - 875 03586 M00S03311.1mb +++| INDEX MF176A,/COMSDFS/HM0202 CYBER 176 LEVEL A 03587 M00S03312.1mb +++| INDEX MF176B,/COMSDFS/HM0203 CYBER 176 LEVEL B 03588 M00S03313.1mb +++| INDEX MFMAX 03589 M00S03314.1mb +++| ODW SPACE 4,10 03590 M00S03315.1mb +++|** ODW - OUTPUT DESCRIPTOR WORD TO SCR. 03591 M00S03316.1mb +++|* 03592 M00S03317.1mb +++|* ENTRY (A) = DESCRIPTOR WORD. 03593 M00S03318.1mb +++|* CHANNEL INSTRUCTION SET. 03594 M00S03319.1mb +++|* 03595 M00S03320.1mb +++|* EXIT (A) = SCR REPLY WORD. 03596 M00S03321.1mb +++| 03597 M00S03322.1mb +++| 03598 M00S03323.1mb +++| ODW SUBR ENTRY/EXIT 03599 M00S03324.1mb +++| OAN CHSC OUTPUT DESCRIPTOR WORD 03600 M00S03325.1mb +++|* OAN CHSC+20 (SECOND SCR) 03601 M00S03326.1mb +++|* OAN 15 (INTERLOCK REGISTER) 03602 M00S03327.1mb +++| ODWA EQU *-1 03603 M00S03328.1mb +++| IAN CHSC INPUT SCR REPLY WORD 03604 M00S03329.1mb +++|* IAN CHSC+20 (SECOND SCR) 03605 M00S03330.1mb +++|* IAN 15 (INTERLOCK REGISTER) 03606 M00S03331.1mb +++| ODWB EQU *-1 03607 M00S03332.1mb +++| UJN ODWX EXIT 03608 M00S03333.1mb +++| OLB SPACE 4,10 03609 M00S03334.1mb +++|** OLB - OUTPUT LOG TO *BML*. 03610 M00S03335.1mb +++|* 03611 M00S03336.1mb +++|* ENTRY (CH+1) = 0, IF ONLY ONE SCR REGISTER. 03612 M00S03337.1mb +++|* TABLE *TSCR* CONTAINS SCR SECDED DATA. 03613 M00S03338.1mb +++|* 03614 M00S03339.1mb +++|* USES CM - CM+4, T3 - T5. 03615 M00S03340.1mb +++|* 03616 M00S03341.1mb +++|* CALLS DFM. 03617 M00S03342.1mb +++| 03618 M00S03343.1mb +++| 03619 M00S03344.1mb +++| OLB8 LDN ZERL CLEAR FOR DAYFILE CALL 03620 M00S03345.1mb +++| CRD CM 03621 M00S03346.1mb +++| LDN 6*5 SET MESSAGE LENGTH 03622 M00S03347.1mb +++| STD CM+1 03623 M00S03348.1mb +++| LDC IBMF+BMLN ISSUE DAYFILE MESSAGE 03624 M00S03349.1mb +++| RJM DFM 03625 M00S03350.1mb +++| LDM IBMG+1 CHECK CONTINUATION BIT 03626 M00S03351.1mb +++| LPN 4 03627 M00S03352.1mb +++| ZJN OLBX IF COMPLETE, RETURN 03628 M00S03353.1mb +++| LDN 14 SET NOT FIRST BLOCK FLAG 03629 M00S03354.1mb +++| STM IBMG+1 03630 M00S03355.1mb +++| UJN OLB1 ISSUE NEXT MESSAGE 03631 M00S03356.1mb +++| 03632 M00S03357.1mb +++| OLB SUBR ENTRY/EXIT 03633 M00S03358.1mb +++| LDC /COMSDFS/HS0100 03634 M00S03359.1mb +++| STM IBMF+1 03635 M00S03360.1mb +++| LDN 0 PRESET INPUT TABLE INDEX 03636 M00S03361.1mb +++| STD T3 03637 M00S03362.1mb +++| OLB1 LDN 0 PRESET *BML* MESSAGE INDEX 03638 M00S03363.1mb +++| STD T4 03639 M00S03364.1mb +++| OLB2 LDM TSCR,T3 SCR ERROR LOG TABLE 03640 M00S03365.1mb +++| STM IBMH,T4 MOVE ONE BYTE FROM INPUT TABLE TO *BML* 03641 M00S03366.1mb +++| AOD T3 INCREMENT INPUT TABLE INDEX 03642 M00S03367.1mb +++| AOD T4 INCREMENT *BML* MESSAGE INDEX 03643 M00S03368.1mb +++| LMN 4*5 03644 M00S03369.1mb +++| ZJN OLB4 IF AT END OF *BML* MESSAGE BUFFER 03645 M00S03370.1mb +++| LDD T3 03646 M00S03371.1mb +++| ADC -NSCB (FIRST SCR ERROR LOG) 03647 M00S03372.1mb +++| OLBA EQU *-1 03648 M00S03373.1mb +++|* ADC -NSCB-NSCB (SECOND SCR ERROR LOG) 03649 M00S03374.1mb +++| NJN OLB2 IF NOT AT END OF ERROR LOG 03650 M00S03375.1mb +++| OLB3 LDN 0 CLEAR BYTES AT END OF ERROR LOG 03651 M00S03376.1mb +++| STM IBMH,T4 03652 M00S03377.1mb +++| AOD T4 03653 M00S03378.1mb +++| LMN 4*5 03654 M00S03379.1mb +++| NJN OLB3 IF MORE BYTES TO CLEAR 03655 M00S03380.1mb +++| LDM IBMG+1 CHECK CONTINUATION BIT 03656 M00S03381.1mb +++| LPN 4 03657 M00S03382.1mb +++| NJN OLB5 IF PROCESSING SECOND SCR *BML* MESSAGE 03658 M00S03383.1mb +++| LDD CH+1 03659 M00S03384.1mb +++| ZJN OLB6 IF ONLY ONE SCR *BML* MESSAGE 03660 M00S03385.1mb +++| LDC -NSCB-NSCB RESET FOR END OF SECOND SCR *BML* MESSAGE 03661 M00S03386.1mb +++| STM OLBA 03662 M00S03387.1mb +++| OLB4 LDM IBMG+1 SET CONTINUATION BIT 03663 M00S03388.1mb +++| SCN 4 03664 M00S03389.1mb +++| LMN 4 03665 M00S03390.1mb +++| UJN OLB7 STORE STATUS 03666 M00S03391.1mb +++| 03667 M00S03392.1mb +++| OLB5 LDM IBMF+2 CHANGE TO SECOND SCR CHANNEL 03668 M00S03393.1mb +++| SCN 77 03669 M00S03394.1mb +++| LMD CH+1 03670 M00S03395.1mb +++| STM IBMF+2 03671 M00S03396.1mb +++| OLB6 LDM IBMG+1 CLEAR CONTINUATION BIT 03672 M00S03397.1mb +++| SCN 4 03673 M00S03398.1mb +++| OLB7 STM IBMG+1 03674 M00S03399.1mb +++| LJM OLB8 CONTINUE 03675 M00S03400.1mb +++| PTP SPACE 4,15 03676 M00S03401.1mb +++|** PTP - PERFORM TIME PROCESSING. 03677 M00S03402.1mb +++|* 03678 M00S03403.1mb +++|* ENTRY (IR+2) = *1MB* FUNCTION BITS. 03679 M00S03404.1mb +++|* (MF) = MAINFRAME TYPE. 03680 M00S03405.1mb +++|* 03681 M00S03406.1mb +++|* EXIT THE ESM SECDED ERROR LOG IS LOGGED TO THE 03682 M00S03407.1mb +++|* BML FOR A *TIME PROCESSING* CALL, IF AN ESM 03683 M00S03408.1mb +++|* MAINTENANCE PORT IS DEFINED. 03684 M00S03409.1mb +++|* 03685 M00S03410.1mb +++|* USES CM - CM+4, T3. 03686 M00S03411.1mb +++|* 03687 M00S03412.1mb +++|* CALLS CCO, CRC, DFM, PES, *2TH*. 03688 M00S03413.1mb +++|* 03689 M00S03414.1mb +++|* MACROS EXECUTE. 03690 M00S03415.1mb +++| 03691 M00S03416.1mb +++| 03692 M00S03417.1mb +++| PTP SUBR ENTRY/EXIT 03693 M00S03418.1mb +++| LDD IR+2 CHECK FOR *TIME PROCESSING* FUNCTION 03694 M00S03419.1mb +++| LPN SPTP 03695 M00S03420.1mb +++| ZJN PTPX IF NOT *TIME PROCESSING* FUNCTION 03696 M00S03421.1mb +++| EXECUTE 2TH LOAD TOP-OF-HOUR ROUTINES 03697 M00S03422.1mb +++| LDC CECL READ ERROR COUNTERS 03698 M00S03423.1mb +++| CRD CM 03699 M00S03424.1mb +++| CRM IBMG,ON 03700 M00S03425.1mb +++| LDD CM 03701 M00S03426.1mb +++| ADD CM+1 03702 M00S03427.1mb +++| ADD CM+2 03703 M00S03428.1mb +++| ADD CM+3 03704 M00S03429.1mb +++| ADD CM+4 03705 M00S03430.1mb +++| NJN PTP1 IF ERRORS TO REPORT 03706 M00S03431.1mb +++| LJM PTP2 CLEAR COUNTS 03707 M00S03432.1mb +++| 03708 M00S03433.1mb +++| PTP1 LDN ZERL CLEAR MESSAGE BUFFER 03709 M00S03434.1mb +++| CRD CM 03710 M00S03435.1mb +++| CRM IBMF,ON 03711 M00S03436.1mb +++| SBN 1 03712 M00S03437.1mb +++| CRM IBMH,ON 03713 M00S03438.1mb +++| SBN 1 03714 M00S03439.1mb +++| CRM IBMH+5,ON 03715 M00S03440.1mb +++| LDC CECL CLEAR ERROR COUNTERS 03716 M00S03441.1mb +++| CWD CM 03717 M00S03442.1mb +++| LDD T3 IOU CORRECTED ERROR COUNT 03718 M00S03443.1mb +++| STM IBMH+4 PLACE IN BML MESSAGE 03719 M00S03444.1mb +++| LDC /COMSDFS/HM0410 SET MESSAGE ID 03720 M00S03445.1mb +++| STM IBMF 03721 M00S03446.1mb +++| LDC /COMSDFS/HS0101 SET MESSAGE SYMPTOM 03722 M00S03447.1mb +++| STM IBMF+1 03723 M00S03448.1mb +++| LDN 3*5 SET BYTE COUNT FOR BML MESSAGE 03724 M00S03449.1mb +++| STD CM+1 03725 M00S03450.1mb +++| LDC IBMF+BMLN ISSUE BML MESSAGE 03726 M00S03451.1mb +++| RJM DFM 03727 M00S03452.1mb +++| LDN ZERL CLEAR BML BUFFER 03728 M00S03453.1mb +++| CRM IBMG,ON 03729 M00S03454.1mb +++| PTP2 RJM /IHD/CRC CLEAR RELOAD COUNT IN CONTROLWARE TABLE 03730 M00S03455.1mb +++| RJM /IHD/CCO CLEAR COUNTS IN EST/MST ENTRIES 03731 M00S03456.1mb +++| LDD MF CHECK FOR CYBER 70 03732 M00S03457.1mb +++| ZJN PTP3 IF PROCESSING INTERLOCK REGISTER 03733 M00S03458.1mb +++| RJM /IHD/PES PROCESS ESM SECDED LOGGING 03734 M00S03459.1mb +++| PTP3 LJM PTPX RETURN 03735 M00S03460.1mb +++| RSC SPACE 4,15 03736 M00S03461.1mb +++|** RSC - READ S/C REGISTER(S). 03737 M00S03462.1mb +++|* 03738 M00S03463.1mb +++|* READS THE CONTENTS OF THE S/C REGISTER(S) FROM 03739 M00S03464.1mb +++|* CHANNEL 16 AND/OR CHANNEL 36. 03740 M00S03465.1mb +++|* 03741 M00S03466.1mb +++|* ENTRY (MF) = MAINFRAME TYPE. 03742 M00S03467.1mb +++|* 03743 M00S03468.1mb +++|* EXIT TABLE *TSCR* CONTAINS HARDWARE COPY OF SCR. 03744 M00S03469.1mb +++|* 03745 M00S03470.1mb +++|* USES T1, T2, T3, T4. 03746 M00S03471.1mb +++|* 03747 M00S03472.1mb +++|* CALLS CHN, ODW. 03748 M00S03473.1mb +++| 03749 M00S03474.1mb +++| 03750 M00S03475.1mb +++| RSC SUBR ENTRY/EXIT 03751 M00S03476.1mb +++| 03752 M00S03477.1mb +++|* READ S/C REGISTER. 03753 M00S03478.1mb +++| 03754 M00S03479.1mb +++| LDC TSCR SET BUFFER ADDRESS 03755 M00S03480.1mb +++|* LDC TSCR+50 (POWER FAILURE) 03756 M00S03481.1mb +++| RSCA EQU *-1 03757 M00S03482.1mb +++| STD T1 03758 M00S03483.1mb +++| STD T2 03759 M00S03484.1mb +++| LDD CH+1 SECOND SCR CHANNEL 03760 M00S03485.1mb +++| SHN 0-4 CONVERT 0 TO 0, 36 TO 1 03761 M00S03486.1mb +++| STD T4 03762 M00S03487.1mb +++| RSC1 LDN NSCB-1 SET S/C WORD TO READ 03763 M00S03488.1mb +++| STD T3 03764 M00S03489.1mb +++| RSC2 LDD T3 READ WORD (T3) OF S/C REGISTER 03765 M00S03490.1mb +++| RJM ODW OUTPUT DESCRIPTOR WORD 03766 M00S03491.1mb +++| STI T2 SAVE S/C CONTENTS 03767 M00S03492.1mb +++| AOD T2 INCREMENT *TSCR* BUFFER ADDRESS 03768 M00S03493.1mb +++| SOD T3 DECREMENT WORD COUNT FOR S/C 03769 M00S03494.1mb +++| PJN RSC2 IF NOT FINISHED WITH S/C 03770 M00S03495.1mb +++| SOD T4 03771 M00S03496.1mb +++| NJN RSC3 IF FINISHED WITH BOTH S/C,S 03772 M00S03497.1mb +++| LDN CHSC+20 CHANNEL 36 03773 M00S03498.1mb +++| RJM CHN CHANGE TO CHANNEL 36 S/C 03774 M00S03499.1mb +++| UJN RSC1 LOOP FOR CHANNEL 36 S/C 03775 M00S03500.1mb +++| 03776 M00S03501.1mb +++| RSC3 LDD CH FIRST SCR CHANNEL 03777 M00S03502.1mb +++| RJM CHN RESET CHANNEL FOR BITS 36 AND 37 03778 M00S03503.1mb +++| LDM 20,T1 CLEAR FIRST SCR BYTE 0 INACTIVE BITS 03779 M00S03504.1mb +++| LPC ABM0 CYBER 170 ACTIVE BIT MASK 03780 M00S03505.1mb +++|* LPC ABM6 (CYBER 176) 03781 M00S03506.1mb +++|* LPC ABM7 (CYBER 170 - 700 SERIES) 03782 M00S03507.1mb +++|* LPC ABM8 (CYBER 170 - 865/875) 03783 M00S03508.1mb +++| RSCB EQU *-1 03784 M00S03509.1mb +++| STM 20,T1 03785 M00S03510.1mb +++| LDM 17,T1 CLEAR FIRST SCR BYTE 1 INACTIVE BITS 03786 M00S03511.1mb +++| RSCC SCN 0 03787 M00S03512.1mb +++|* SCN INB6 (CYBER 176) 03788 M00S03513.1mb +++|* SCN INB1 (CPU 1 OFF) 03789 M00S03514.1mb +++|* SCN INB0 (CPU 0 OFF) 03790 M00S03515.1mb +++| STM 17,T1 03791 M00S03516.1mb +++| LDM 40,T1 CLEAR SECOND SCR BYTE 1 INACTIVE BITS 03792 M00S03517.1mb +++| RSCD SCN 0 03793 M00S03518.1mb +++|* SCN INB6 (CYBER 176) 03794 M00S03519.1mb +++|* SCN INB1 (CPU 1 OFF) 03795 M00S03520.1mb +++|* SCN INB0 (CPU 0 OFF) 03796 M00S03521.1mb +++| STM 40,T1 03797 M00S03522.1mb +++| LJM RSCX RETURN 03798 M00S03523.1mb +++| PEF SPACE 4,15 03799 M00S03524.1mb +++|** PEF - CHECK FOR POWER OR ENVIRONMENTAL FAILURE. 03800 M00S03525.1mb +++|* 03801 M00S03526.1mb +++|* EXIT NORMAL IF POWER FAILURE OR ENVIRONMENTAL BITS NOT SET. 03802 M00S03527.1mb +++|* NO EXIT TAKEN IF POWER FAILURE AND/OR ENVIRONMENTAL 03803 M00S03528.1mb +++|* BITS REMAIN SET. 03804 M00S03529.1mb +++|* EXIT THROUGH *UBS* OTHERWISE. 03805 M00S03530.1mb +++|* 03806 M00S03531.1mb +++|* USES T2. 03807 M00S03532.1mb +++|* 03808 M00S03533.1mb +++|* CALLS CKC, CKP, DFM, IEL, RSC, RSM, TPE, UBS. 03809 M00S03534.1mb +++| 03810 M00S03535.1mb +++| 03811 M00S03536.1mb +++| PEF SUBR ENTRY/EXIT 03812 M00S03537.1mb +++| RJM TPE TEST POWER FAILURE AND ENVIRONMENTAL BITS 03813 M00S03538.1mb +++| ZJN PEFX IF NEITHER SET 03814 M00S03539.1mb +++| LPN 1 03815 M00S03540.1mb +++| ZJN PEF2 IF NO POWER FAILURE 03816 M00S03541.1mb +++| 03817 M00S03542.1mb +++|* ENTRY HERE FROM *UBS* IF POWER FAILURE SET FOR FIRST TIME. 03818 M00S03543.1mb +++| 03819 M00S03544.1mb +++| PEF1 RJM RSM REQUEST STEP 03820 M00S03545.1mb +++| LDM UBSC,T1 SET MESSAGE 03821 M00S03546.1mb +++| SBN 5 03822 M00S03547.1mb +++| STM PEFA 03823 M00S03548.1mb +++| SBN 1 03824 M00S03549.1mb +++| STM UBSB 03825 M00S03550.1mb +++| LDN TIML READ TIME 03826 M00S03551.1mb +++| CRM *,ON 03827 M00S03552.1mb +++| PEFA EQU *-1 (TIME MESSAGE ADDRESS) 03828 M00S03553.1mb +++| LDC TSCR+50 SET BUFFER ADDRESS 03829 M00S03554.1mb +++| STM RSCA 03830 M00S03555.1mb +++| LDC LDNI+1 SET POWER FAILURE PREVIOUSLY PROCESSED 03831 M00S03556.1mb +++| STM UBSD 03832 M00S03557.1mb +++| RJM RSC READ S/C REGISTER(S) 03833 M00S03558.1mb +++| LDC TSCR RESET BUFFER ADDRESS 03834 M00S03559.1mb +++| STM RSCA 03835 M00S03560.1mb +++| UJN PEF3 WAIT FOR CONDITION TO CHANGE 03836 M00S03561.1mb +++| 03837 M00S03562.1mb +++| PEF2 RJM CKP CALL *1CK* IF NOT ALREADY CALLED 03838 M00S03563.1mb +++| LDC MSGF-1+ERLN 03839 M00S03564.1mb +++| RJM DFM 03840 M00S03565.1mb +++| RJM CKC CHECK FOR *1CK* COMPLETE 03841 M00S03566.1mb +++| RJM RSM REQUEST STEP MODE 03842 M00S03567.1mb +++| PEF3 RJM UBS UPDATE BIT STATUS 03843 M00S03568.1mb +++| UJN PEF3 WAIT UNTIL CLEAR 03844 M00S03569.1mb +++| PSB SPACE 4,15 03845 M00S03570.1mb +++|** PSB - PROCESS SINGLE BIT SECDED ERRORS. 03846 M00S03571.1mb +++|* 03847 M00S03572.1mb +++|* ENTRY (IR+2) = FUNCTION BITS. 03848 M00S03573.1mb +++|* (MF) = MAINFRAME TYPE. 03849 M00S03574.1mb +++|* 03850 M00S03575.1mb +++|* EXIT SECDED ERROR BITS ARE CLEARED IN THE SCR IF THEIR 03851 M00S03576.1mb +++|* CORRESPONDING FUNCTION BITS IN IR+2 WERE SET. 03852 M00S03577.1mb +++|* 03853 M00S03578.1mb +++|* USES ER. 03854 M00S03579.1mb +++|* 03855 M00S03580.1mb +++|* CALLS ODW. 03856 M00S03581.1mb +++| 03857 M00S03582.1mb +++| 03858 M00S03583.1mb +++| PSB SUBR ENTRY/EXIT 03859 M00S03584.1mb +++| LDD IR+2 CHECK FOR CM SECDED FUNCTION BIT SET 03860 M00S03585.1mb +++| LPN SPCS 03861 M00S03586.1mb +++| ZJN PSB2 IF CM SECDED FUNCTION BIT NOT SET 03862 M00S03587.1mb +++| AOD ER SET ERROR FLAG 03863 M00S03588.1mb +++| LDC FCCL+SECD CLEAR SECDED ERROR 03864 M00S03589.1mb +++| RJM ODW 03865 M00S03590.1mb +++| LDD MF TEST FOR CYBER 176 03866 M00S03591.1mb +++| SBN MF176A 03867 M00S03592.1mb +++| MJN PSBX IF NOT CYBER 176 03868 M00S03593.1mb +++| LDC FCSB+CCRT SET CM RANK II CLEAR 03869 M00S03594.1mb +++| RJM ODW 03870 M00S03595.1mb +++| LDC FCCL+CCRT CLEAR CM RANK II CLEAR 03871 M00S03596.1mb +++| RJM ODW 03872 M00S03597.1mb +++| PSB2 LDD IR+2 CHECK FOR LCME SECDED FUNCTION BIT SET 03873 M00S03598.1mb +++| LPN SPLS 03874 M00S03599.1mb +++| ZJN PSBX IF LCME SECDED FUNCTION BIT NOT SET 03875 M00S03600.1mb +++| PSB3 AOD ER SET ERROR FLAG 03876 M00S03601.1mb +++| LDC FCCL+LSCD CLEAR LCME SECDED ERROR 03877 M00S03602.1mb +++| RJM ODW 03878 M00S03603.1mb +++| LDC FCSB+LCRT SET LCME RANK II CLEAR 03879 M00S03604.1mb +++| RJM ODW 03880 M00S03605.1mb +++| LDC FCCL+LCRT CLEAR LCME RANK II CLEAR 03881 M00S03606.1mb +++| RJM ODW 03882 M00S03607.1mb +++| LJM PSBX EXIT 03883 M00S03608.1mb +++| TEB SPACE 4,15 03884 M00S03609.1mb +++|** TEB - CLEAR TEST/ERROR BITS IN S/C. 03885 M00S03610.1mb +++|* 03886 M00S03611.1mb +++|* ENTRY (CH) = SCR CHANNEL NUMBER. 03887 M00S03612.1mb +++|* (MF) = MAINFRAME TYPE. 03888 M00S03613.1mb +++|* (CH+1) = 0, IF ONLY ONE SCR CHANNEL. 03889 M00S03614.1mb +++|* (TSCR) = TABLE CONTAINING COPY OF THE SCR(S). 03890 M00S03615.1mb +++|* 03891 M00S03616.1mb +++|* EXIT ERROR BITS THAT ARE SET IN *TSCR* ARE CLEARED FROM 03892 M00S03617.1mb +++|* THE SCR WITH THE EXCEPTION OF BIT 3. ON A CYBER 176 03893 M00S03618.1mb +++|* BIT 11 IS ALSO NOT CLEARED. BIT 3 (AND BIT 11 ON A 03894 M00S03619.1mb +++|* CYBER 176) IS PROCESSED IN ROUTINE *PSB*. 03895 M00S03620.1mb +++|*
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1mb.001.txt · Last modified: (external edit)