cdc:nos2.source:opl.opl871:deck:1mb.002
Deck 1MB Part 002
13 Modifications
Listing Sections
- Deck 1MB Start
- Deck 1MB Part 1 (Line 1922)
- Deck 1MB Part 2 (Line 3896)
Source
Seq # *Modification Id* Act ----------------------------+ 03896 M00S03621.1mb +++|* USES ER, T4, T5. 03897 M00S03622.1mb +++|* 03898 M00S03623.1mb +++|* CALLS CHN, ODW, TRB. 03899 M00S03624.1mb +++| 03900 M00S03625.1mb +++| 03901 M00S03626.1mb +++| TEB3 SOD T5 03902 M00S03627.1mb +++| PJN TEB1 IF SECOND CHANNEL 03903 M00S03628.1mb +++| 03904 M00S03629.1mb +++| TEB SUBR ENTRY/EXIT 03905 M00S03630.1mb +++| LDD CH+1 03906 M00S03631.1mb +++| SHN 0-4 CONVERT 0 TO 0, 36 TO 1 03907 M00S03632.1mb +++| STD T5 03908 M00S03633.1mb +++| LDD MF 03909 M00S03634.1mb +++| SBN MF176A 03910 M00S03635.1mb +++| PJN TEB1 IF CYBER 176 03911 M00S03636.1mb +++| LDN PSNI ENABLE CLEARING OF BIT 11 03912 M00S03637.1mb +++| STM TEBA 03913 M00S03638.1mb +++| TEB1 LDM CH,T5 SET REGISTER CHANNEL 03914 M00S03639.1mb +++| RJM CHN CHANGE CHANNEL 03915 M00S03640.1mb +++| LDN NTEB SET MAXIMUM ERROR BIT 03916 M00S03641.1mb +++| STD T4 03917 M00S03642.1mb +++| TEB2 SOD T4 TEST NEXT BIT 03918 M00S03643.1mb +++| MJN TEB3 IF END OF BITS 03919 M00S03644.1mb +++| LMN SECD 03920 M00S03645.1mb +++| ZJN TEB2 IF BIT 3 03921 M00S03646.1mb +++| LMN LSCD&SECD 03922 M00S03647.1mb +++| TEBA ZJN TEB2 IF BIT 11 03923 M00S03648.1mb +++|* PSN (NON-CYBER 176 MAINFRAMES) 03924 M00S03649.1mb +++| LMN LSCD RESTORE CONTENTS 03925 M00S03650.1mb +++| RJM TRB 03926 M00S03651.1mb +++| ZJN TEB2 IF NOT SET 03927 M00S03652.1mb +++| AOD ER SET ERROR FLAG 03928 M00S03653.1mb +++| LDC FCCL 03929 M00S03654.1mb +++| LMD T4 03930 M00S03655.1mb +++| RJM ODW CLEAR BIT 03931 M00S03656.1mb +++| UJN TEB2 LOOP FOR NEXT BIT 03932 M00S03657.1mb +++| CHN SPACE 4,10 03933 M00S03658.1mb +++|** CHN - CHANGE S/C REGISTER CHANNEL. 03934 M00S03659.1mb +++|* MODIFIES CHANNEL INSTRUCTIONS IN SUBROUTINE *ODW*. 03935 M00S03660.1mb +++|* 03936 M00S03661.1mb +++|* ENTRY (A) = S/C REGISTER CHANNEL. 03937 M00S03662.1mb +++| 03938 M00S03663.1mb +++| 03939 M00S03664.1mb +++| CHN SUBR ENTRY/EXIT 03940 M00S03665.1mb +++| LMC OANI 03941 M00S03666.1mb +++| STM ODWA 03942 M00S03667.1mb +++| LMC IANI&OANI 03943 M00S03668.1mb +++| STM ODWB 03944 M00S03669.1mb +++| LPN 77 03945 M00S03670.1mb +++| LMN 36 03946 M00S03671.1mb +++| ZJN CHN1 IF CHANNEL 36 03947 M00S03672.1mb +++| LCN NSCB 03948 M00S03673.1mb +++| CHN1 ADC LDNI+NSCB*2 03949 M00S03674.1mb +++| STM TRBA 03950 M00S03675.1mb +++| UJN CHNX RETURN 03951 M00S03676.1mb +++| TPE SPACE 4,20 03952 M00S03677.1mb +++|** TPE - TEST POWER FAILURE AND ENVIRONMENTAL BITS. 03953 M00S03678.1mb +++|* 03954 M00S03679.1mb +++|* EXIT IF POWER FAILURE BIT SET, (T1) = (A) = 1. 03955 M00S03680.1mb +++|* IF ENVIRONMENTAL BIT SET, (T1) = (A) = 2. 03956 M00S03681.1mb +++|* IF BOTH BITS SET, (T1) = (A) = 3. 03957 M00S03682.1mb +++|* IF NEITHER BIT SET, (T1) = (A) = 0. 03958 M00S03683.1mb +++|* 03959 M00S03684.1mb +++|* USES T1, T5. 03960 M00S03685.1mb +++|* 03961 M00S03686.1mb +++|* CALLS ODW. 03962 M00S03687.1mb +++|* 03963 M00S03688.1mb +++|* MACROS DELAY. 03964 M00S03689.1mb +++|* 03965 M00S03690.1mb +++|* NOTE - A *TEST* FUNCTION IS USED FOR THE FIRST CALL AND A 03966 M00S03691.1mb +++|* *TEST/CLEAR* FUNCTION IS USED FOR ALL FURTHER CALLS. 03967 M00S03692.1mb +++|* THIS PREVENTS A TRANSIENT SETTING OF BITS 36,37 FROM 03968 M00S03693.1mb +++|* CAUSING A SYSTEM CHECKPOINT IN ROUTINE *PEF* BUT CLEARING 03969 M00S03694.1mb +++|* BEFORE *1MB* CAN BE RECALLED TO LOG THE ERROR MESSAGES. 03970 M00S03695.1mb +++| 03971 M00S03696.1mb +++| 03972 M00S03697.1mb +++| TPE SUBR ENTRY/EXIT 03973 M00S03698.1mb +++| LDC 600 PRESET DELAY LOOP COUNT 03974 M00S03699.1mb +++| STM TPEF 03975 M00S03700.1mb +++| TPEA UJN TPE1 TEST BIT 36 03976 M00S03701.1mb +++|* PSN IF CYBER 70 03977 M00S03702.1mb +++| LDC FCTB TEST BIT 0 OF INTERLOCK REGISTER 03978 M00S03703.1mb +++|* LDC FCTC (SUBSEQUENT CALLS) 03979 M00S03704.1mb +++| TPEB EQU *-1 03980 M00S03705.1mb +++| RJM ODW OUTPUT DESCRIPTOR WORD 03981 M00S03706.1mb +++| STD T1 SET RETURN CODE 03982 M00S03707.1mb +++| LDC FCTC CHANGE TO TEST/CLEAR FUNCTION 03983 M00S03708.1mb +++| STM TPEB 03984 M00S03709.1mb +++| TPEC UJN TPE3 RESTORE EXIT VALUE 03985 M00S03710.1mb +++|* PSN IF SIMULATOR REQUESTED 03986 M00S03711.1mb +++| 03987 M00S03712.1mb +++| TPE1 LDC FCTB+MAPF TEST MAINS POWER FAILURE 03988 M00S03713.1mb +++|* LDC FCTC+MAPF (SUBSEQUENT CALLS) 03989 M00S03714.1mb +++| TPED EQU *-1 03990 M00S03715.1mb +++| RJM ODW OUTPUT DESCRIPTOR WORD 03991 M00S03716.1mb +++| STD T1 SET RETURN CODE 03992 M00S03717.1mb +++| LDC FCTB+SHIM TEST SHUTDOWN IMMINENT 03993 M00S03718.1mb +++|* LDC FCTC+SHIM (SUBSEQUENT CALLS) 03994 M00S03719.1mb +++| TPEE EQU *-1 03995 M00S03720.1mb +++| RJM ODW OUTPUT DESCRIPTOR WORD 03996 M00S03721.1mb +++| SHN 1 SET RETURN CODE 03997 M00S03722.1mb +++| RAD T1 03998 M00S03723.1mb +++| TPE1.1 UJN TPE4 CHANGE FUNCTION CODES 03999 M00S03724.1mb +++|* ZJN TPEX IF NO ERROR DETECTED 04000 M00S03725.1mb +++| TPEG EQU *-1 04001 M00S03726.1mb +++| LPN 1 04002 M00S03727.1mb +++| NJN TPE3 IF MAINS POWER FAILURE 04003 M00S03728.1mb +++| LDN 77 INNER LOOP DELAY COUNT 04004 M00S03729.1mb +++| STD T5 04005 M00S03730.1mb +++| TPE2 DELAY 04006 M00S03731.1mb +++| SOD T5 04007 M00S03732.1mb +++| NJN TPE2 IF NOT END OF INNER DELAY LOOP 04008 M00S03733.1mb +++| SOM TPEF 04009 M00S03734.1mb +++| NJN TPE1 IF NOT END OF DELAY PERIOD 04010 M00S03735.1mb +++| TPE3 LDD T1 GET RETURN CODE 04011 M00S03736.1mb +++| LJM TPEX RETURN 04012 M00S03737.1mb +++| 04013 M00S03738.1mb +++| TPE4 LDC FCTC+MAPF CHANGE TO TEST/CLEAR FUNCTION 04014 M00S03739.1mb +++| STM TPED 04015 M00S03740.1mb +++| ADN SHIM-MAPF 04016 M00S03741.1mb +++| STM TPEE 04017 M00S03742.1mb +++| ISTORE TPEG,(ZJN TPEX) 04018 M00S03743.1mb +++| LDD T1 04019 M00S03744.1mb +++| UJN TPE1.1 ENTER LOOP 04020 M00S03745.1mb +++| 04021 M00S03746.1mb +++| 04022 M00S03747.1mb +++| TPEF CON 0 DELAY LOOP COUNT 04023 M00S03748.1mb +++| TRB SPACE 4,10 04024 M00S03749.1mb +++|** TRB - TEST S/C REGISTER BIT. 04025 M00S03750.1mb +++|* 04026 M00S03751.1mb +++|* ENTRY (A) BIT TO BE TESTED. 04027 M00S03752.1mb +++|* 04028 M00S03753.1mb +++|* EXIT (A) = 0 BIT CLEAR. 04029 M00S03754.1mb +++|* (A) = 1 BIT SET. 04030 M00S03755.1mb +++|* 04031 M00S03756.1mb +++|* USES T0, T1. 04032 M00S03757.1mb +++| 04033 M00S03758.1mb +++| 04034 M00S03759.1mb +++| TRB SUBR ENTRY/EXIT 04035 M00S03760.1mb +++| STD T0 04036 M00S03761.1mb +++| TRBA LDN NSCB SET WORD INDEX 04037 M00S03762.1mb +++|* LDN NSCB*2 (CHANNEL 36) 04038 M00S03763.1mb +++| STD T1 04039 M00S03764.1mb +++| TRB1 SOD T1 04040 M00S03765.1mb +++| LCN 14 04041 M00S03766.1mb +++| RAD T0 04042 M00S03767.1mb +++| PJN TRB1 IF WORD NOT FOUND 04043 M00S03768.1mb +++| ADN 14 04044 M00S03769.1mb +++| LMC SHNI+77 04045 M00S03770.1mb +++| STM TRBB 04046 M00S03771.1mb +++| LDM TSCR,T1 04047 M00S03772.1mb +++| TRBB SHN -0 04048 M00S03773.1mb +++| LPN 1 04049 M00S03774.1mb +++| UJN TRBX RETURN 04050 M00S03775.1mb +++| UBS SPACE 4,25 04051 M00S03776.1mb +++|** UBS - UPDATE BIT STATUS. 04052 M00S03777.1mb +++|* CHECKS S/C REGISTER FOR STATUS OF POWER FAILURE (BIT 36) AND 04053 M00S03778.1mb +++|* SHUTDOWN IMMINENT (BIT 37), UPDATES CONTROL POINT MESSAGE IF 04054 M00S03779.1mb +++|* NECESSARY, EXITS TO POWER FAILURE ROUTINE IF BIT 36 SET FOR 04055 M00S03780.1mb +++|* THE FIRST TIME, AND TERMINATES IF BOTH BITS CLEAR 04056 M00S03781.1mb +++|* AFTER UNSTEP IS ENTERED BY OPERATOR. 04057 M00S03782.1mb +++|* 04058 M00S03783.1mb +++|* ENTRY (T2) = 77 IF FIRST ENTRY. 04059 M00S03784.1mb +++|* = PREVIOUS EXIT CONDITION OF *UBS*. 04060 M00S03785.1mb +++|* (T1) = OUTPUT OF *TPE*. 04061 M00S03786.1mb +++|* 04062 M00S03787.1mb +++|* EXIT (T2) = CONDITION CODE. 04063 M00S03788.1mb +++|* 1, IF POWER FAILURE (BIT 36) SET. 04064 M00S03789.1mb +++|* 2, IF SHUTDOWN IMMINENT (BIT 37) SET. 04065 M00S03790.1mb +++|* 3, IF BOTH BITS SET. 04066 M00S03791.1mb +++|* IF BOTH BITS CLEAR, WAITS FOR OPERATOR *UNSTEP* 04067 M00S03792.1mb +++|* COMMAND, THEN EXITS TO *DPP*. 04068 M00S03793.1mb +++|* 04069 M00S03794.1mb +++|* USES SC - SC+4. 04070 M00S03795.1mb +++|* 04071 M00S03796.1mb +++|* CALLS DFM, DPP, IEL, RSC, RSM, TPE. 04072 M00S03797.1mb +++| 04073 M00S03798.1mb +++| 04074 M00S03799.1mb +++| UBS9 LDD T2 04075 M00S03800.1mb +++| NJN UBS10 IF PREVIOUS CONDITION NOT ALL CLEAR 04076 M00S03801.1mb +++| RJM RSM RESTORE STEP MODE 04077 M00S03802.1mb +++| UBS10 LDD T1 SET CONDITION HISTORY 04078 M00S03803.1mb +++| STD T2 04079 M00S03804.1mb +++| 04080 M00S03805.1mb +++| UBS SUBR ENTRY/EXIT 04081 M00S03806.1mb +++| UBS1 RJM TPE TEST POWER FAILURE AND ENVIRONMENTAL BITS 04082 M00S03807.1mb +++| LMD T2 04083 M00S03808.1mb +++| NJN UBS2 IF CONDITION CHANGED 04084 M00S03809.1mb +++| LDD T1 04085 M00S03810.1mb +++| NJN UBSX IF NOT BOTH CLEAR 04086 M00S03811.1mb +++| LJM UBS5 CHECK STEP MODE 04087 M00S03812.1mb +++| 04088 M00S03813.1mb +++| UBS2 LDM UBSC,T1 GET MESSAGE ADDRESS 04089 M00S03814.1mb +++| STM UBSA 04090 M00S03815.1mb +++| LDD CP DISPLAY STSTEM CONTROL POINT MESSAGE 04091 M00S03816.1mb +++| ADN MS2W 04092 M00S03817.1mb +++| CWM *,TR 04093 M00S03818.1mb +++| UBSA EQU *-1 (MESSAGE ADDRESS) 04094 M00S03819.1mb +++| LDD T1 04095 M00S03820.1mb +++| ZJN UBS4 IF ALL CLEAR 04096 M00S03821.1mb +++| LPN 1 04097 M00S03822.1mb +++| ZJN UBS9 IF NOT POWER FAILURE 04098 M00S03823.1mb +++| UBSD LDN 0 04099 M00S03824.1mb +++|* LDN 1 (POWER FAILURE PREVIOUSLY PROCESSED) 04100 M00S03825.1mb +++| NJN UBS9 IF POWER FAILURE PREVIOUSLY PROCESSED 04101 M00S03826.1mb +++| LJM PEF1 PROCESS POWER FAILURE/ENVIRONMENTAL BITS 04102 M00S03827.1mb +++| 04103 M00S03828.1mb +++| UBS4 LDN TIML READ TIME OF DAY 04104 M00S03829.1mb +++| CRM TIMA,ON 04105 M00S03830.1mb +++| LDD SC CLEAR STEP REQUEST 04106 M00S03831.1mb +++| LPC 6777 04107 M00S03832.1mb +++| STD SC 04108 M00S03833.1mb +++| LDC SCRL WRITE SCRL 04109 M00S03834.1mb +++| CWD SC 04110 M00S03835.1mb +++| RJM RSC READ S/C REGISTER(S) 04111 M00S03836.1mb +++| UBS5 LDC SCRL CHECK STEP MODE 04112 M00S03837.1mb +++| CRD SC 04113 M00S03838.1mb +++| LDD SC 04114 M00S03839.1mb +++| SHN 21-10 04115 M00S03840.1mb +++| PJN UBS6 IF STEP NOT SET 04116 M00S03841.1mb +++| LDN 0 SET CONDITION HISTORY 04117 M00S03842.1mb +++| STD T2 04118 M00S03843.1mb +++| LJM UBS1 TEST POWER/ENVIRONMENTAL BITS 04119 M00S03844.1mb +++| 04120 M00S03845.1mb +++| UBS6 LDC 0 LOG PRELIMINARY MESSAGE 04121 M00S03846.1mb +++| UBSB EQU *-1 (MESSAGE ADDRESS) 04122 M00S03847.1mb +++| NJN UBS8 IF TWO MESSAGES TO BE LOGGED 04123 M00S03848.1mb +++| UBS7 LDN 0 CLEAR TWO MESSAGE INDICATION 04124 M00S03849.1mb +++| STM UBSB 04125 M00S03850.1mb +++| LDC MSGD-6 04126 M00S03851.1mb +++| UBS8 ADC ERLN 04127 M00S03852.1mb +++| RJM DFM 04128 M00S03853.1mb +++| LDM UBSB 04129 M00S03854.1mb +++| NJN UBS7 IF ALL MESSAGES NOT LOGGED 04130 M00S03855.1mb +++| STD CM+2 CLEAR INPUT FILE SCHEDULING FLAG 04131 M00S03856.1mb +++| MONITOR RSJM REQUEST SCHEDULER 04132 M00S03857.1mb +++| RJM PTP PERFORM TIME PROCESSING 04133 M00S03858.1mb +++| LJM DPP DROP PP 04134 M00S03859.1mb +++| 04135 M00S03860.1mb +++| 04136 M00S03861.1mb +++|* MESSAGE ADDRESS TABLE 04137 M00S03862.1mb +++| 04138 M00S03863.1mb +++| UBSC CON MSGD 04139 M00S03864.1mb +++| CON MSGE 04140 M00S03865.1mb +++| CON MSGF 04141 M00S03866.1mb +++| CON MSGG 04142 M00S03867.1mb +++| 04143 M00S03868.1mb +++| 04144 M00S03869.1mb +++|* ERROR LOG MESSAGES. 04145 M00S03870.1mb +++| 04146 M00S03871.1mb +++| MIDA CON 2RSR MESSAGE ID 04147 M00S03872.1mb +++| TIMA VFD 60/0 04148 M00S03873.1mb +++| MSGD DATA C* POWER/ENVIRONMENT NORMAL.* 04149 M00S03874.1mb +++| MIDB CON 2RSR MESSAGE ID 04150 M00S03875.1mb +++| VFD 60/0 TIME (READ BY ROUTINE *PEF*) 04151 M00S03876.1mb +++| MSGE DATA C* POWER FAILURE.* 04152 M00S03877.1mb +++| MIDC CON 2RSR MESSAGE ID 04153 M00S03878.1mb +++| MSGF DATA C* SHUTDOWN IMMINENT.* 04154 M00S03879.1mb +++| MIDD CON 2RSR MESSAGE ID 04155 M00S03880.1mb +++| VFD 60/0 TIME (READ BY ROUTINE *PEF*) 04156 M00S03881.1mb +++| MSGG DATA C* POWER DOWN.* 04157 M00S03882.1mb +++| SPACE 4,10 04158 M00S03883.1mb +++|** TSCR - TABLE FOR THE CONTENTS OF THE S/C REGISTERS. 04159 M00S03884.1mb +++|* 04160 M00S03885.1mb +++|* THIS TABLE CONTAINS THE CONTENTS OF THE S/C REGISTER(S). 04161 M00S03886.1mb +++|* THE CHANNEL 16 REGISTER, WORDS 16 - 0, FIRST AND THE 04162 M00S03887.1mb +++|* CHANNEL 36 REGISTER, WORDS 16 - 0, NEXT. 04163 M00S03888.1mb +++| 04164 M00S03889.1mb +++| 04165 M00S03890.1mb +++| TSCR EQU * S/C REGISTER TABLE 04166 M00S03891.1mb +++| TSCRL EQU TSCR+4*NSCB LWA+1 OF S/C REGISTER TABLES 04167 M00S03892.1mb +++| PSC SPACE 4,10 04168 M00S03893.1mb +++|** PCS - PRESET FOR 1SC. 04169 M00S03894.1mb +++|* 04170 M00S03895.1mb +++|* USES CH, CH+1, ER, NP, CM - CM+4. 04171 M00S03896.1mb +++|* 04172 M00S03897.1mb +++|* CALLS CFP, PRS. 04173 M00S03898.1mb +++| 04174 M00S03899.1mb +++| 04175 M00S03900.1mb +++|* CYBER 70 INITIALIZATION. 04176 M00S03901.1mb +++| 04177 M00S03902.1mb +++| PSC7 SOD CH CHANGE TO INTERLOCK REGISTER 04178 M00S03903.1mb +++| SOM ODWA 04179 M00S03904.1mb +++| SOM ODWB 04180 M00S03905.1mb +++| LDN PSNI ENABLE CYBER 70 POWER FAILURE CHECKING 04181 M00S03906.1mb +++| STM TPEA 04182 M00S03907.1mb +++| LDN SSTL CHECK FOR SCR SIMULATION 04183 M00S03908.1mb +++| CRD CM 04184 M00S03909.1mb +++| LDD CM+3 04185 M00S03910.1mb +++| SHN 21-3 04186 M00S03911.1mb +++| MJN PSC8 IF NOT SIMULATING SCR 04187 M00S03912.1mb +++| LDN PSNI ENABLE SIMULATED ENVIRONMENT CHECKING 04188 M00S03913.1mb +++| STM TPEC 04189 M00S03914.1mb +++| UJN PSCX RETURN 04190 M00S03915.1mb +++| 04191 M00S03916.1mb +++| PSC8 LDC 2RIR CHANGE MESSAGE IDENTIFICATION 04192 M00S03917.1mb +++| STM MIDA 04193 M00S03918.1mb +++| STM MIDB 04194 M00S03919.1mb +++| STM MIDC 04195 M00S03920.1mb +++| STM MIDD 04196 M00S03921.1mb +++| LDC UJNI+2 DISABLE FATAL ERROR CHECKING 04197 M00S03922.1mb +++| STM SEPA 04198 M00S03923.1mb +++| 04199 M00S03924.1mb +++| PSC SUBR ENTRY/EXIT 04200 M00S03925.1mb +++| LDC 2RSC * 1SC - CALL ERROR.* 04201 M00S03926.1mb +++| STM PRSA+1 04202 M00S03927.1mb +++| RJM PRS COMMON PRESET 04203 M00S03928.1mb +++| LDN CHSC SET SCR CHANNELS 04204 M00S03929.1mb +++| STD CH 04205 M00S03930.1mb +++| LDN 0 04206 M00S03931.1mb +++| STD CH+1 04207 M00S03932.1mb +++| STD ER CLEAR SCR ERROR FLAG 04208 M00S03933.1mb +++| STD NP INITIALIZE PHYSICAL PP COUNT 04209 M00S03934.1mb +++| LDN EABLL ELEMENT ATTRIBUTE BLOCK LENGTH 04210 M00S03935.1mb +++| STD T1 04211 M00S03936.1mb +++| LDK EABL READ MAINFRAME ATTRIBUTE BLOCK 04212 M00S03937.1mb +++| CRM EABB,T1 04213 M00S03938.1mb +++| LDN 2 READ I/O SYSTEM ENTRY 04214 M00S03939.1mb +++| STD T1 04215 M00S03940.1mb +++| LDM EABB+IOEI*5+1 GET ADDRESS OF VARIABLE IOU ENTRY 04216 M00S03941.1mb +++| SCN 77 04217 M00S03942.1mb +++| SHN 6 04218 M00S03943.1mb +++| ADM EABB+IOEI*5+0 04219 M00S03944.1mb +++| SHN 6 04220 M00S03945.1mb +++| CRM VMAB,T1 04221 M00S03946.1mb +++| LDN 0 04222 M00S03947.1mb +++| STD T1 04223 M00S03948.1mb +++| PSC0.1 LDN 12 INITIALIZE INDEX FOR BYTE 04224 M00S03949.1mb +++| STD T3 04225 M00S03950.1mb +++| LDM VMAB+1*5,T1 TEST BYTE FOR PP COUNT 04226 M00S03951.1mb +++| STD T4 04227 M00S03952.1mb +++| PSC0.2 LDD T4 04228 M00S03953.1mb +++| SHN 21-0 04229 M00S03954.1mb +++| STD T4 04230 M00S03955.1mb +++| MJN PSC0.3 IF PHYSICAL PP NOT PRESENT 04231 M00S03956.1mb +++| AOD NP INCREMENT PHYSICAL PP COUNT 04232 M00S03957.1mb +++| PSC0.3 SOD T3 04233 M00S03958.1mb +++| NJN PSC0.2 IF MORE PP BITS TO TEST 04234 M00S03959.1mb +++| AOD T1 04235 M00S03960.1mb +++| LMN 1 04236 M00S03961.1mb +++| ZJN PSC0.1 IF NEXT BYTE TO PROCESS 04237 M00S03962.1mb +++| LDM TFEM,MF SET SCR FATAL ERROR MASK 04238 M00S03963.1mb +++| STM CFEA 04239 M00S03964.1mb +++| LDM TABM,MF SET SCR ACTIVE BIT MASK 04240 M00S03965.1mb +++| STM RSCB 04241 M00S03966.1mb +++| LDD MF 04242 M00S03967.1mb +++| NJN PSC1 IF NOT CYBER 70 04243 M00S03968.1mb +++| LJM PSC7 CONTINUE CYBER 70 PRESET 04244 M00S03969.1mb +++| 04245 M00S03970.1mb +++|* CYBER 170, 700, 865/875 INITIALIZATION. 04246 M00S03971.1mb +++| 04247 M00S03972.1mb +++| PSC1 LDD MF 04248 M00S03973.1mb +++| SBN MF176A 04249 M00S03974.1mb +++| MJN PSC2 IF NOT CYBER 176 04250 M00S03975.1mb +++| RJM CFP CHECK FOR *FLPP* ERROR 04251 M00S03976.1mb +++| LDN INB6 CLEAR INACTIVE BITS IN SCR BYTE 2 04252 M00S03977.1mb +++| UJN PSC4 CHECK NUMBER OF S/C REGISTERS 04253 M00S03978.1mb +++| 04254 M00S03979.1mb +++| PSC2 LDD MI+1 04255 M00S03980.1mb +++| LPN 3 04256 M00S03981.1mb +++| ZJN PSC5 IF DUAL CPU PRESENT 04257 M00S03982.1mb +++| LPN 1 04258 M00S03983.1mb +++| ZJN PSC3 IF CPU 0 ON, CPU 1 OFF OR UNDEFINED 04259 M00S03984.1mb +++| LDN INB0&INB1 CLEAR INACTIVE BIT IN SCR FOR CPU 0 04260 M00S03985.1mb +++| PSC3 LMN INB1 CLEAR INACTIVE BIT IN SCR FOR CPU 1 04261 M00S03986.1mb +++| PSC4 RAM RSCD 04262 M00S03987.1mb +++| STM RSCC 04263 M00S03988.1mb +++| PSC5 LDD NP CHECK NUMBER OF S/C REGISTERS 04264 M00S03989.1mb +++| SBN 13 04265 M00S03990.1mb +++| MJN PSC6 IF ONLY 1 S/C REGISTER 04266 M00S03991.1mb +++| LDN 36 ENABLE SECOND REGISTER CHECKING 04267 M00S03992.1mb +++| STD CH+1 04268 M00S03993.1mb +++| PSC6 LJM PSCX RETURN 04269 M00S03994.1mb +++| SPACE 4,10 04270 M00S03995.1mb +++|** COMMON PRESET. 04271 M00S03996.1mb +++| 04272 M00S03997.1mb +++| 04273 M00S03998.1mb +++| PRESET 04274 M00S03999.1mb +++| PRESET HERE 04275 M00S04000.1mb +++| 04276 M00S04001.1mb +++| PRS13 LJM PRSX EXIT PRESET 04277 M00S04002.1mb +++| CFP SPACE 4,10 04278 M00S04003.1mb +++|** CFP - CHECK FOR *FLPP* ERROR. 04279 M00S04004.1mb +++|* 04280 M00S04005.1mb +++|* EXIT SCANNER POSITIONED TO *FLPP* WITH ERROR. 04281 M00S04006.1mb +++|* 04282 M00S04007.1mb +++|* USES T1 - T3. 04283 M00S04008.1mb +++| 04284 M00S04009.1mb +++| 04285 M00S04010.1mb +++| CFP2 LDD T3 CHECK NEXT BIT 04286 M00S04011.1mb +++| SHN -1 04287 M00S04012.1mb +++| CFP3 STD T3 04288 M00S04013.1mb +++| LPN 1 04289 M00S04014.1mb +++| ZJN CFP4 IF BIT TO BE CLEARED 04290 M00S04015.1mb +++| LDC FCSB&FCCL 04291 M00S04016.1mb +++| CFP4 LMD T2 04292 M00S04017.1mb +++| OAN CHSC+40 04293 M00S04018.1mb +++| IAN CHSC+40 04294 M00S04019.1mb +++| AOD T2 ADVANCE BIT NUMBER 04295 M00S04020.1mb +++| LMC FCCL+SCSL+4 04296 M00S04021.1mb +++| NJN CFP2 IF NOT END OF BITS 04297 M00S04022.1mb +++| LDN FCRD+FLPW READ *FLPP* STATUS 04298 M00S04023.1mb +++| OAN CHSC+40 04299 M00S04024.1mb +++| IAN CHSC+40 04300 M00S04025.1mb +++| LPN 37 04301 M00S04026.1mb +++| NJN CFPX IF ERROR DETECTED 04302 M00S04027.1mb +++| AOD T1 ADVANCE *FLPP* NUMBER 04303 M00S04028.1mb +++| LMN 20 04304 M00S04029.1mb +++| NJN CFP1 IF NOT END OF *FLPP-S* 04305 M00S04030.1mb +++| 04306 M00S04031.1mb +++| CFP SUBR ENTRY/EXIT 04307 M00S04032.1mb +++| LDN 1 SET STARTING *FLPP* NUMBER 04308 M00S04033.1mb +++| STD T1 04309 M00S04034.1mb +++| CFP1 LDC FCCL+SCSL PRESET FUNCTION AND BIT NUMBER 04310 M00S04035.1mb +++| STD T2 04311 M00S04036.1mb +++| LDD T1 SELECT *FLPP* 04312 M00S04037.1mb +++| UJN CFP3 ENTER LOOP 04313 M00S04038.1mb +++| SPACE 4,10 04314 M00S04039.1mb +++| TABM INDEX TABLE OF SCR ACTIVE BIT MASKS 04315 M00S04040.1mb +++| INDEX MF70,ABM0 CYBER 70 04316 M00S04041.1mb +++| INDEX MF170,ABM0 CYBER 170 04317 M00S04042.1mb +++| INDEX MF700,ABM7 CYBER 170 - 700 SERIES 04318 M00S04043.1mb +++| INDEX MF865,ABM8 CYBER 170 - 865 04319 M00S04044.1mb +++| INDEX MF875,ABM8 CYBER 170 - 875 04320 M00S04045.1mb +++| INDEX MF176A,ABM6 CYBER 176 LEVEL A 04321 M00S04046.1mb +++| INDEX MF176B,ABM6 CYBER 176 LEVEL B 04322 M00S04047.1mb +++| INDEX MFMAX 04323 M00S04048.1mb +++| SPACE 4,10 04324 M00S04049.1mb +++| TFEM INDEX TABLE OF SCR FATAL ERROR MASKS 04325 M00S04050.1mb +++| INDEX MF70,FEM0 CYBER 70 04326 M00S04051.1mb +++| INDEX MF170,FEM0 CYBER 170 04327 M00S04052.1mb +++| INDEX MF700,FEM7 CYBER 170 - 700 SERIES 04328 M00S04053.1mb +++| INDEX MF865,FEM8 CYBER 170 - 865 04329 M00S04054.1mb +++| INDEX MF875,FEM8 CYBER 170 - 875 04330 M00S04055.1mb +++| INDEX MF176A,FEM6 CYBER 176 LEVEL A 04331 M00S04056.1mb +++| INDEX MF176B,FEM6 CYBER 176 LEVEL B 04332 M00S04057.1mb +++| INDEX MFMAX 04333 M00S04058.1mb +++| 04334 M00S04059.1mb +++| 04335 M00S04060.1mb +++| EABB BSS EABLL*5 ELEMENT ATTRIBUTE BLOCK 04336 M00S04061.1mb +++| VMAB BSS 5*2 BUFFER FOR I/O SYSTEM ENTRY 04337 M00S04062.1mb +++| SPACE 4,10 04338 M00S04063.1mb +++| OVERFLOW PPFW,EPFW 04339 M00S04064.1mb +++| TTL 1MB/1MP - PROCESS SCR CHANNEL ERRORS. 04340 M00S04065.1mb +++| TITLE 04341 M00S04066.1mb +++| IDENT 1MP,PPFW 04342 M00S04067.1mb +++| QUAL CCE 04343 M00S04068.1mb +++|*COMMENT 1MB - CHANNEL ERROR PROCESSOR.
| Line S04069 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 04344 M01S04069.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION 1982.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 04345 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 04346 M00S04070.1mb +++| SPACE 4,10 04347 M00S04071.1mb +++|*** 1MP - PROCESS SCR CHANNEL ERRORS. 04348 M00S04072.1mb +++|* 04349 M00S04073.1mb +++|* P. D. HAAS. 82/11/30. 04350 M00S04074.1mb +++| SPACE 4,10 04351 M00S04075.1mb +++|*** *1MP* IS CALLED BY *MTR* TO PERFORM PRELIMINARY 04352 M00S04076.1mb +++|* CHECKS ON THE SCR. IT RESIDES IN THE RPL TO ENSURE A 04353 M00S04077.1mb +++|* SUCCESSFUL LOAD IN CASE OF CHANNEL ERRORS ON A SYSTEM 04354 M00S04078.1mb +++|* DEVICE, AND AS SUCH SHOULD BE KEPT AS SMALL AS POSSIBLE. 04355 M00S04079.1mb +++|* 04356 M00S04080.1mb +++|* *1MP* CHECKS THE SCR FOR CHANNEL ERRORS, AND IF 04357 M00S04081.1mb +++|* NONE ARE FOUND OR IF NO SCR EXISTS, CALLS *1MB*. IF 04358 M00S04082.1mb +++|* CHANNEL ERRORS ARE INDICATED, *1MP* SCANS THE EST TO 04359 M00S04083.1mb +++|* DETERMINE IF SAID CHANNEL IS ASSOCIATED WITH MASS STORAGE 04360 M00S04084.1mb +++|* EQUIPMENT. IF SO, *1DS* WILL BE CALLED TO REMOVE THE CHANNEL 04361 M00S04085.1mb +++|* FROM SYSTEM USE. 04362 M00S04086.1mb +++|* 04363 M00S04087.1mb +++|* UPON COMPLETION, *1MP* LOADS *1MB*. CHANNEL 04364 M00S04088.1mb +++|* ERRORS ASSOCIATED WITH NON MASS STORAGE EQUIPMENT ARE 04365 M00S04089.1mb +++|* IGNORED. 04366 M00S04090.1mb +++| SPACE 4,10 04367 M00S04091.1mb +++|** COMMON DECKS. 04368 M00S04092.1mb +++| 04369 M00S04093.1mb +++| 04370 M00S04094.1mb +++|*CALL COMS1DS 04371 M00S04095.1mb +++| SPACE 4,10 04372 M00S04096.1mb +++|**** DIRECT CELL USAGE. 04373 M00S04097.1mb +++| 04374 M00S04098.1mb +++| 04375 M00S04099.1mb +++| CH EQU IR+3 CHANNEL NUMBER 04376 M00S04100.1mb +++|**** 04377 M00S04101.1mb +++| TITLE MAIN PROGRAM. 04378 M00S04102.1mb +++| ORG PPFW 04379 M00S04103.1mb +++| 04380 M00S04104.1mb +++| 04381 M00S04105.1mb +++| CCE RJM PRS PRESET PROGRAM 04382 M00S04106.1mb +++| IJM CCE2,CHSC IF NO SCR 04383 M00S04107.1mb +++| LCN 0 CHANNEL 00 IS LEAST SIGNIFICANT BIT 04384 M00S04108.1mb +++| STD CH 04385 M00S04109.1mb +++| LDN FCRD+CPEW READ CHANNEL STATUS 04386 M00S04110.1mb +++| OAN CHSC 04387 M00S04111.1mb +++| IAN CHSC 04388 M00S04112.1mb +++| ZJN CCE1 IF NO PARITY ERRORS 04389 M00S04113.1mb +++| RJM CMC CHECK MASS STORAGE CHANNELS 04390 M00S04114.1mb +++| CCE1 IJM CCE2,CHSC+20 IF NO UPPER CHANNEL BANK 04391 M00S04115.1mb +++| LDN 20-1 CHANNEL 20 IS LEAST SIGNIFICANT BIT 04392 M00S04116.1mb +++| STD CH 04393 M00S04117.1mb +++| LDN FCRD+CPEW READ CHANNEL STATUS 04394 M00S04118.1mb +++| OAN CHSC+20 04395 M00S04119.1mb +++| IAN CHSC+20 04396 M00S04120.1mb +++| ZJN CCE2 IF NO PARITY ERRORS 04397 M00S04121.1mb +++| RJM CMC CHECK MASS STORAGE CHANNELS 04398 M00S04122.1mb +++| CCE2 LDD IA STORE INPUT REGISTER 04399 M00S04123.1mb +++| CWD IR 04400 M00S04124.1mb +++| LJM PPR LOAD AND EXECUTE 04401 M00S04125.1mb +++| TITLE SUBROUTINES. 04402 M00S04126.1mb +++| CMC SPACE 4,15 04403 M00S04127.1mb +++|** CMC - CHECK MASS STORAGE CHANNEL. 04404 M00S04128.1mb +++|* 04405 M00S04129.1mb +++|* ENTRY (A) = CHANNEL STATUS WORD (BYTE) FROM SCR. 04406 M00S04130.1mb +++|* (CH) = INITIAL CHANNEL VALUE FOR BANK 0 OR 1. 04407 M00S04131.1mb +++|* (EM) = LAST MASS STORAGE EST ORDINAL + 1. 04408 M00S04132.1mb +++|* 04409 M00S04133.1mb +++|* USES T1, T4, T5, CM - CM+4, CN - CN+4. 04410 M00S04134.1mb +++|* 04411 M00S04135.1mb +++|* MACROS EXECUTE, MONITOR, SFA. 04412 M00S04136.1mb +++| 04413 M00S04137.1mb +++| 04414 M00S04138.1mb +++| CMC2 SFA EST,T5 READ EST ENTRY 04415 M00S04139.1mb +++| ADK EQDE 04416 M00S04140.1mb +++| CRD CN 04417 M00S04141.1mb +++| LDD CN 04418 M00S04142.1mb +++| SHN 21-13 04419 M00S04143.1mb +++| PJN CMC6 IF NOT MASS STORAGE 04420 M00S04144.1mb +++| LDD CN+1 04421 M00S04145.1mb +++| SHN 21-13 04422 M00S04146.1mb +++| PJN CMC3 IF PRIMARY CHANNEL ACCESS IS DISABLED 04423 M00S04147.1mb +++| SHN 13-21 04424 M00S04148.1mb +++| LMD CH 04425 M00S04149.1mb +++| LPN 37 04426 M00S04150.1mb +++| ZJN CMC4 IF CHANNEL MATCH 04427 M00S04151.1mb +++| CMC3 LDD CN+2 04428 M00S04152.1mb +++| SHN 21-13 04429 M00S04153.1mb +++| PJN CMC6 IF SECONDARY CHANNEL NOT PRESENT/DISABLED 04430 M00S04154.1mb +++| SHN 13-21 04431 M00S04155.1mb +++| LMD CH 04432 M00S04156.1mb +++| NJN CMC6 IF NOT A MATCH 04433 M00S04157.1mb +++| 04434 M00S04158.1mb +++|* CALL *1DS* TO GLOBALLY DOWN THE CHANNEL. 04435 M00S04159.1mb +++| 04436 M00S04160.1mb +++| CMC4 LDD MA PLACE *1DS* CALL IN MESSAGE BUFFER 04437 M00S04161.1mb +++| CWM CMCA,ON 04438 M00S04162.1mb +++| LDN 0 INITIALIZE RETRY COUNT 04439 M00S04163.1mb +++| STD T1 04440 M00S04164.1mb +++| CMC5 STD CM+1 04441 M00S04165.1mb +++| EXECUTE 1DS,= 04442 M00S04166.1mb +++| MONITOR RPPM CALL *1DS* 04443 M00S04167.1mb +++| LDD CM+1 04444 M00S04168.1mb +++| NJN CMC7 IF PP ASSIGNED 04445 M00S04169.1mb +++| AOD T1 INCREMENT RETRY COUNT 04446 M00S04170.1mb +++| SHN -3 04447 M00S04171.1mb +++| ZJN CMC5 IF RETRY LIMIT NOT REACHED 04448 M00S04172.1mb +++| UJN CMCX RETURN 04449 M00S04173.1mb +++| 04450 M00S04174.1mb +++| CMC6 AOD T5 ADVANCE EST ORDINAL 04451 M00S04175.1mb +++| LMD EM 04452 M00S04176.1mb +++| NJP CMC2 IF MORE DEVICES TO PROCESS 04453 M00S04177.1mb +++| CMC7 LDD T4 04454 M00S04178.1mb +++| NJN CMC1 IF MORE CHANNELS WITH ERROR 04455 M00S04179.1mb +++| 04456 M00S04180.1mb +++| CMC SUBR ENTRY/EXIT 04457 M00S04181.1mb +++| STD T4 04458 M00S04182.1mb +++| CMC1 AOD CH ADJUST CHANNEL NUMBER 04459 M00S04183.1mb +++| STM CMCA+3 STORE CHANNEL NUMBER IN *1DS* CALL 04460 M00S04184.1mb +++| LDD T4 04461 M00S04185.1mb +++| SHN 21-0 CHECK CHANNEL FLAG 04462 M00S04186.1mb +++| STD T4 04463 M00S04187.1mb +++| PJN CMC1 IF NOT CHANNEL WITH ERROR 04464 M00S04188.1mb +++| LDN NOPE INITIALIZE EST ORDINAL FOR SEARCH 04465 M00S04189.1mb +++| STD T5 04466 M00S04190.1mb +++| UJP CMC6 BEGIN EST SCAN 04467 M00S04191.1mb +++| 04468 M00S04192.1mb +++| 04469 M00S04193.1mb +++| CMCA VFD 18/3R1DS,6/,6/0,6/DWNF,12/0,12/0 04470 M00S04194.1mb +++| TITLE PRESET PROGRAM. 04471 M00S04195.1mb +++| PRS SPACE 4,10 04472 M00S04196.1mb +++|** PRS - PRESET PROGRAM. 04473 M00S04197.1mb +++|* 04474 M00S04198.1mb +++|* EXIT (EM) = LAST MASS STORAGE EST ORDINAL + 1. 04475 M00S04199.1mb +++|* 04476 M00S04200.1mb +++|* USES EM, CM - CM+4, IR - IR+1, MI - MI+4. 04477 M00S04201.1mb +++|* 04478 M00S04202.1mb +++|* MACROS MONITOR. 04479 M00S04203.1mb +++| 04480 M00S04204.1mb +++| 04481 M00S04205.1mb +++| PRS3 LDK ESTP 04482 M00S04206.1mb +++| CRD CM 04483 M00S04207.1mb +++| LDD CM+3 SET LAST MASS STORAGE EST ORDINAL + 1 04484 M00S04208.1mb +++| STD EM 04485 M00S04209.1mb +++| 04486 M00S04210.1mb +++| PRS SUBR ENTRY/EXIT 04487 M00S04211.1mb +++| LDN NCPL 04488 M00S04212.1mb +++| CRD CM 04489 M00S04213.1mb +++| ADN MABL-NCPL 04490 M00S04214.1mb +++| CRD MI 04491 M00S04215.1mb +++| AOD CM+1 CHECK CONTROL POINT 04492 M00S04216.1mb +++| SHN 7 04493 M00S04217.1mb +++| LMD CP 04494 M00S04218.1mb +++| ZJN PRS1 IF CALLED BY SYSTEM 04495 M00S04219.1mb +++| MONITOR ABTM ABORT JOB 04496 M00S04220.1mb +++| LJM PPR EXIT TO PP RESIDENT 04497 M00S04221.1mb +++| 04498 M00S04222.1mb +++| PRS1 LDD MI+1 04499 M00S04223.1mb +++| SHN -6 04500 M00S04224.1mb +++| LPN 41 04501 M00S04225.1mb +++| LMN 1 04502 M00S04226.1mb +++| ZJN PRS2 IF LOWER 800 SERIES MACHINE 04503 M00S04227.1mb +++| LDN 1RS-1RM 04504 M00S04228.1mb +++| RAD IR 04505 M00S04229.1mb +++| LDN 1RC-1RB 04506 M00S04230.1mb +++| PRS2 SBN 1RP-1RB 04507 M00S04231.1mb +++| SHN 6 04508 M00S04232.1mb +++| RAD IR+1 04509 M00S04233.1mb +++| UJP PRS3 CONTINUE 04510 M00S04234.1mb +++| SPACE 4,10 04511 M00S04235.1mb +++| OVERFLOW PPFW,EPFW,CMR 04512 M00S04236.1mb +++| TTL 1MB/2TH - PROCESS COMMON TOP-OF-HOUR FUNCTIONS. 04513 M00S04237.1mb +++| TITLE 04514 M00S04238.1mb +++| QUAL IHD 04515 M00S04239.1mb +++| IDENT 2TH,IHDX 04516 M00S04240.1mb +++|*COMMENT 1MB - TOP-OF-HOUR PROCESSOR.
| Line S04241 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 04517 M01S04241.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 04518 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 04519 M00S04242.1mb +++| SPACE 4,10 04520 M00S04243.1mb +++|*** 2TH - TOP-OF-HOUR PROCESSOR. 04521 M00S04244.1mb +++|* 04522 M00S04245.1mb +++|* J. M. MAREK 87/11/24. 04523 M00S04246.1mb +++| SPACE 4,10 04524 M00S04247.1mb +++|*** *2TH* IS CALLED BY *1MB* AND *1SC* TO PERFORM 04525 M00S04248.1mb +++|* THE FOLLOWING TOP-OF-HOUR TASKS - 04526 M00S04249.1mb +++|* 04527 M00S04250.1mb +++|* - ISSUE HOUR AND DAY MESSAGES TO THE DAYFILES. 04528 M00S04251.1mb +++|* - CLEAR THE RELOAD COUNT IN THE CONTROLWARE TABLE. 04529 M00S04252.1mb +++|* - CLEAR COUNTS IN THE EST AND MST. 04530 M00S04253.1mb +++|* - LOG ESM AND STORNET SECDED AND STATUS INFORMATION. 04531 M00S04254.1mb +++| SPACE 4,10 04532 M00S04255.1mb +++|* ASSEMBLY CONSTANTS. 04533 M00S04256.1mb +++| 04534 M00S04257.1mb +++| 04535 M00S04258.1mb +++| FRDL EQU 1010B FUNCTION - READ ESM SECDED LOG 04536 M00S04259.1mb +++| FRST EQU 1011B FUNCTION - RESET ESM SECDED LOG 04537 M00S04260.1mb +++| FRSP EQU 1040 FUNCTION - READ SIDE DOOR PORT STATUS 04538 M00S04261.1mb +++| FCSP EQU 1203 FUNCTION - CLEAR SIDE DOOR PORT STATUS 04539 M00S04262.1mb +++| DCSP EQU 1000 DATA - CLEAR SIDE DOOR PORT STATUS 04540 M00S04263.1mb +++| NESB EQU 83D NUMBER OF ESM SECDED LOG BYTES 04541 M00S04264.1mb +++| OVLO MAX /1MB/BCMR+5,/1SC/TSCRL+5 04542 M00S04265.1mb +++| 04543 M00S04266.1mb +++| ORG OVLO 04544 M00S04267.1mb +++| IHD SPACE 4,10 04545 M00S04268.1mb +++|** IHD - ISSUE HOUR AND DATE TO DAYFILES. 04546 M00S04269.1mb +++|* 04547 M00S04270.1mb +++|* EXIT HOUR AND DATE MESSAGE ISSUED TO DAYFILES. 04548 M00S04271.1mb +++|* 04549 M00S04272.1mb +++|* USES CM+1. 04550 M00S04273.1mb +++|* 04551 M00S04274.1mb +++|* CALLS DFM. 04552 M00S04275.1mb +++| 04553 M00S04276.1mb +++| 04554 M00S04277.1mb +++| IHD SUBR ENTRY/EXIT 04555 M00S04278.1mb +++| LDN DTEL SET DATE IN DAYFILE MESSAGES 04556 M00S04279.1mb +++| CRM IHDA+7,ON 04557 M00S04280.1mb +++| SBN 1 04558 M00S04281.1mb +++| CRM IHDB+3,ON 04559 M00S04282.1mb +++| LDC IHDA ISSUE MESSAGE TO SYSTEM DAYFILE 04560 M00S04283.1mb +++| RJM DFM 04561 M00S04284.1mb +++| LDC ERLN+IHDA ISSUE MESSAGE TO ERROR LOG 04562 M00S04285.1mb +++| RJM DFM 04563 M00S04286.1mb +++| LDC ACFN+IHDB ISSUE MESSAGE TO ACCOUNT FILE 04564 M00S04287.1mb +++| RJM DFM 04565 M00S04288.1mb +++| UJN IHDX RETURN 04566 M00S04289.1mb +++| 04567 M00S04290.1mb +++| 04568 M00S04291.1mb +++| IHDA DATA C*SYSTEM DATE: NNNNNNNNNN* 04569 M00S04292.1mb +++| IHDB DATA C*SIDT, NNNNNNNNNN* 04570 M00S04293.1mb +++| CCO SPACE 4,10 04571 M00S04294.1mb +++|** CCO - CLEAR COUNTS IN EST/MST ENTRIES. 04572 M00S04295.1mb +++|* 04573 M00S04296.1mb +++|* EXIT RELOAD COUNTS IN CONTROL MODULE EST ENTRIES CLEARED 04574 M00S04297.1mb +++|* IF NOT EQUAL TO RELOAD LIMIT. 04575 M00S04298.1mb +++|* RECOVERED AND UNRECOVERED ERROR COUNTS CLEARED IN EACH 04576 M00S04299.1mb +++|* MST IN WHICH THE *1SJ* PROCESSED BIT IS NOT SET. 04577 M00S04300.1mb +++|* 04578 M00S04301.1mb +++|* USES CM - CM+4, CN - CN+4, T0 - T7. 04579 M00S04302.1mb +++|* 04580 M00S04303.1mb +++|* MACROS MONITOR, SFA. 04581 M00S04304.1mb +++| 04582 M00S04305.1mb +++| 04583 M00S04306.1mb +++| CCO SUBR ENTRY/EXIT 04584 M00S04307.1mb +++| LDN ESTP INITIALIZE FOR EST SEARCH 04585 M00S04308.1mb +++| CRD T0 04586 M00S04309.1mb +++| CCO1 SOD T0+2 DECREMENT EST ORDINAL 04587 M00S04310.1mb +++| STD CM+1 04588 M00S04311.1mb +++| ZJN CCOX IF END OF EST 04589 M00S04312.1mb +++| 04590 M00S04313.1mb +++|* CLEAR CONTROL MODULE RELOAD COUNT IN EST. 04591 M00S04314.1mb +++| 04592 M00S04315.1mb +++| SFA EST READ EST ENTRY 04593 M00S04316.1mb +++| ADK EQDE 04594 M00S04317.1mb +++| CRD T3 04595 M00S04318.1mb +++| ADK EQAE-EQDE 04596 M00S04319.1mb +++| CRD CN 04597 M00S04320.1mb +++| LDD T3+3 04598 M00S04321.1mb +++| LMC 2RCM 04599 M00S04322.1mb +++| NJN CCO2 IF NOT *CM* DEVICE 04600 M00S04323.1mb +++| STD CM+4 04601 M00S04324.1mb +++| LDD CN+2 04602 M00S04325.1mb +++| SHN -6 04603 M00S04326.1mb +++| LPN 7 04604 M00S04327.1mb +++| ZJN CCO2 IF NO RELOAD COUNT
| Line S04328 Modification History | |
|---|---|
M01 (Removed by) | 272l774 |
Seq # *Modification Id* Act ----------------------------+ 04605 M01S04328.272l774 ---| SBN CRTH
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 272l774 |
Seq # *Modification Id* Act ----------------------------+ 04606 M01S00003.272l774 +++| SBN /MSP/CRTH 04607 M00S04329.1mb +++| ZJN CCO2 IF RELOAD LIMIT 04608 M00S04330.1mb +++| LDN SB2S 04609 M00S04331.1mb +++| STD CM+2 04610 M00S04332.1mb +++| LDC 7077 04611 M00S04333.1mb +++| STD CM+3 04612 M00S04334.1mb +++| MONITOR SEQM CLEAR RELOAD COUNT 04613 M00S04335.1mb +++| 04614 M00S04336.1mb +++|* CLEAR THRESHOLD COUNTS IN MST. 04615 M00S04337.1mb +++| 04616 M00S04338.1mb +++| CCO2 LDD T3 04617 M00S04339.1mb +++| SHN 21-13 04618 M00S04340.1mb +++| PJN CCO1 IF NOT MASS STORAGE DEVICE 04619 M00S04341.1mb +++| LDD T3+4 SET MST ADDRESS 04620 M00S04342.1mb +++| SHN 3 04621 M00S04343.1mb +++| STD CM+4 04622 M00S04344.1mb +++| SHN -14 04623 M00S04345.1mb +++| STD CM+3 04624 M00S04346.1mb +++| LDN 2 SET NUMBER OF REQUESTS 04625 M00S04347.1mb +++| STD CM+1 04626 M00S04348.1mb +++| LDD MA 04627 M00S04349.1mb +++| CWM CCOA,CM+1 04628 M00S04350.1mb +++| MONITOR UTEM 04629 M00S04351.1mb +++| LDD T3+4 SET MST ADDRESS 04630 M00S04352.1mb +++| SHN 3 04631 M00S04353.1mb +++| STD CM+4 04632 M00S04354.1mb +++| SHN -14 04633 M00S04355.1mb +++| STD CM+3 04634 M00S04356.1mb +++| LDN 2 SET NUMBER OF REQUESTS 04635 M00S04357.1mb +++| STD CM+1 04636 M00S04358.1mb +++| LDD MA 04637 M00S04359.1mb +++| CWM CCOB,CM+1 04638 M00S04360.1mb +++| MONITOR UTEM 04639 M00S04361.1mb +++| LJM CCO1 PROCESS NEXT EST ENTRY 04640 M00S04362.1mb +++| 04641 M00S04363.1mb +++| 04642 M00S04364.1mb +++| CCOA VFD 1/1,5/CTLL,6/1,6/11D,42/0 VERIFY *1SJ* BIT NOT SET 04643 M00S04365.1mb +++| VFD 1/0,5/CTLL,6/11D,6/0,42/0 CLEAR ERROR COUNT 04644 M00S04366.1mb +++| CCOB VFD 1/1,5/CTLL,6/1,6/23D,42/0 VERIFY *1SJ* BIT NOT SET 04645 M00S04367.1mb +++| VFD 1/0,5/CTLL,6/11D,6/12D,42/0 CLEAR ERROR COUNT 04646 M00S04368.1mb +++| CRC SPACE 4,10 04647 M00S04369.1mb +++|** CRC - CLEAR RELOAD COUNTS IN CONTROLWARE TABLE. 04648 M00S04370.1mb +++|* 04649 M00S04371.1mb +++|* USES CM - CM+4, CN - CN+4, T2 - T7. 04650 M00S04372.1mb +++|* 04651 M00S04373.1mb +++|* MACROS MONITOR. 04652 M00S04374.1mb +++| 04653 M00S04375.1mb +++| 04654 M00S04376.1mb +++| CRC SUBR ENTRY/EXIT 04655 M00S04377.1mb +++| LDN ZERL 04656 M00S04378.1mb +++| CRD CN 04657 M00S04379.1mb +++| ADN CHTP-ZERL FETCH CHANNEL TABLES POINTER 04658 M00S04380.1mb +++| CRD T3+1 04659 M00S04381.1mb +++| LDN 1 PARAMETER COUNT FOR *UTEM* REQUEST 04660 M00S04382.1mb +++| STD T4 04661 M00S04383.1mb +++| LDN CTALL SET CONTROLWARE TABLE LENGTH 04662 M00S04384.1mb +++| STD T3 04663 M00S04385.1mb +++| SHN 1 CONTROLWARE TABLE OFFSET 04664 M00S04386.1mb +++| RAD T7 04665 M00S04387.1mb +++| SHN -14 SET CONTROLWARE TABLE ADDRESS 04666 M00S04388.1mb +++| RAD T6 04667 M00S04389.1mb +++| SHN 14 04668 M00S04390.1mb +++| LMD T7 READ CONTROLWARE TABLE 04669 M00S04391.1mb +++| CRM IBMH,T3 04670 M00S04392.1mb +++| LDN 0 INITIAL CHANNEL VALUE 04671 M00S04393.1mb +++| STD T5 04672 M00S04394.1mb +++| LDC IBMH-1 PRESET BYTE ADDRESS FOR TABLE SCAN 04673 M00S04395.1mb +++| STD T2 04674 M00S04396.1mb +++| LDN 3 RELOAD COUNT FIELD WIDTH 04675 M00S04397.1mb +++| STD CN 04676 M00S04398.1mb +++| CRC1 AOD T2 ADVANCE CONTROLWARE TABLE SEARCH 04677 M00S04399.1mb +++| LDI T2 04678 M00S04400.1mb +++| SHN -6 POSITION RELOAD COUNT FIELD 04679 M00S04401.1mb +++| LPN 7 04680 M00S04402.1mb +++| ZJN CRC2 IF NO COUNT
| Line S04403 Modification History | |
|---|---|
M01 (Removed by) | 272l774 |
Seq # *Modification Id* Act ----------------------------+ 04681 M01S04403.272l774 ---| LMN CRTH
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 272l774 |
Seq # *Modification Id* Act ----------------------------+ 04682 M01S00004.272l774 +++| LMN /MSP/CRTH 04683 M00S04404.1mb +++| ZJN CRC2 IF RELOAD LIMIT 04684 M00S04405.1mb +++| LDM CRCA,T5 04685 M00S04406.1mb +++| STD CN+1 DEFINE RELOAD COUNT FIELD IN WORD 04686 M00S04407.1mb +++| LDD MA 04687 M00S04408.1mb +++| CWD T3 *UTEM* REQUEST TO (CM - CM+4) 04688 M00S04409.1mb +++| CRD CM 04689 M00S04410.1mb +++| CWD CN STORE PARAMETER WORD 04690 M00S04411.1mb +++| MONITOR UTEM 04691 M00S04412.1mb +++| CRC2 AOD T5 ADVANCE CHANNEL BYTE INDEX 04692 M00S04413.1mb +++| LMN 5 04693 M00S04414.1mb +++| NJN CRC1 IF NOT 5 CHANNELS CHECKED 04694 M00S04415.1mb +++| STD T5 04695 M00S04416.1mb +++| AOD T7 ADVANCE CONTROLWARE TABLE ADDRESS 04696 M00S04417.1mb +++| SHN -14 04697 M00S04418.1mb +++| RAD T6 04698 M00S04419.1mb +++| SOD T3 04699 M00S04420.1mb +++| NJN CRC1 IF MORE CHANNELS TO CHECK 04700 M00S04421.1mb +++| LJM CRCX RETURN 04701 M00S04422.1mb +++| 04702 M00S04423.1mb +++| 04703 M00S04424.1mb +++| CRCA BSS 0 RELOAD COUNT FIELD BIT POSITIONS 04704 M00S04425.1mb +++| CON 54DS6 04705 M00S04426.1mb +++| CON 42DS6 04706 M00S04427.1mb +++| CON 30DS6 04707 M00S04428.1mb +++| CON 18DS6 04708 M00S04429.1mb +++| CON 6DS6 04709 M00S04430.1mb +++| PES SPACE 4,10 04710 M00S04431.1mb +++|** PES - PROCESS ESM SECDED ERROR LOG. 04711 M00S04432.1mb +++|* 04712 M00S04433.1mb +++|* ENTRY (MF) = MAINFRAME TYPE. 04713 M00S04434.1mb +++|* 04714 M00S04435.1mb +++|* USES T1, T2, T5, CM - CM+4, CN - CN+4. 04715 M00S04436.1mb +++|* 04716 M00S04437.1mb +++|* CALLS C2D, DFM, OLB, PCI, WCF. 04717 M00S04438.1mb +++|* 04718 M00S04439.1mb +++|* MACROS DCHAN, RCHAN, RICHI, RSTC, SFA. 04719 M00S04440.1mb +++| 04720 M00S04441.1mb +++| 04721 M00S04442.1mb +++| PES SUBR ENTRY/EXIT 04722 M00S04443.1mb +++| LDN NOPE-1 SEARCH FOR EM DEVICE WITH MAINTENANCE PORT 04723 M00S04444.1mb +++| STD T5 04724 M00S04445.1mb +++| PES1 AOD T5 ADVANCE EST ORDINAL 04725 M00S04446.1mb +++| LMD EM 04726 M00S04447.1mb +++| ZJN PESX IF END OF MASS STORAGE DEVICES 04727 M00S04448.1mb +++| SFA EST,T5 READ EST ENTRY 04728 M00S04449.1mb +++| ADK EQDE 04729 M00S04450.1mb +++| CRD CN 04730 M00S04451.1mb +++| ADK EQAE-EQDE 04731 M00S04452.1mb +++| CRD CM 04732 M00S04453.1mb +++| LDD CN+3 04733 M00S04454.1mb +++| LMC 2RDE 04734 M00S04455.1mb +++| ZJN PES3 IF EXTENDED MEMORY ENTRY 04735 M00S04456.1mb +++| LMN 2RDP&2RDE 04736 M00S04457.1mb +++| PES2 NJN PES1 IF NOT EXTENDED MEMORY ENTRY 04737 M00S04458.1mb +++| 04738 M00S04459.1mb +++| PES3 LDD CM+2 SAVE MAINTENANCE PORT CHANNEL NUMBER 04739 M00S04460.1mb +++| LPN 37 04740 M00S04461.1mb +++| ZJN PES1 IF NO MAINTENANCE PORT DEFINED 04741 M00S04462.1mb +++| STD CN 04742 M00S04463.1mb +++| LMD PN SET PP NUMBER AND CHANNEL NUMBER 04743 M00S04464.1mb +++| STM IBMF+2 04744 M00S04465.1mb +++| 04745 M00S04466.1mb +++|* REQUEST MAINTENANCE PORT CHANNEL. 04746 M00S04467.1mb +++| 04747 M00S04468.1mb +++| RJM PCI PRESET CHANNEL INSTRUCTIONS 04748 M00S04469.1mb +++| RICHI REDEFINE I/O INSTRUCTIONS 04749 M00S04470.1mb +++| LDC 4000+0 REQUEST CHANNEL, RETURN IF DOWN 04750 M00S04471.1mb +++| CHTE *-1 04751 M00S04472.1mb +++| RCHAN 04752 M00S04473.1mb +++| LDD CM+1 04753 M00S04474.1mb +++| SHN 0-13 04754 M00S04475.1mb +++| NJN PES2 IF CHANNEL DOWN 04755 M00S04476.1mb +++| LDD CN+4 CHECK EM TYPE 04756 M00S04477.1mb +++| SHN 3 04757 M00S04478.1mb +++| ADN DILL 04758 M00S04479.1mb +++| CRD CM 04759 M00S04480.1mb +++| LDD CM+3 04760 M00S04481.1mb +++| SHN -6 04761 M00S04482.1mb +++| LPN 7 04762 M00S04483.1mb +++| LMN 5 04763 M00S04484.1mb +++| ZJN PES3.1 IF ESM 04764 M00S04485.1mb +++| LDK /COMSDFS/HM0173-/COMSDFS/HM0211 STORNET MESSAGE ID 04765 M00S04486.1mb +++| PES3.1 ADC /COMSDFS/HM0211 ESM MESSAGE ID 04766 M00S04487.1mb +++| STM IBMF 04767 M00S04488.1mb +++| LDD T5 SET EST ORDINAL 04768 M00S04489.1mb +++| STM IBMG 04769 M00S04490.1mb +++| SHN -3 04770 M00S04491.1mb +++| RJM C2D CONVERT UPPER TWO DIGITS 04771 M00S04492.1mb +++| STM PESA+1 04772 M00S04493.1mb +++| STM PESB+1 04773 M00S04494.1mb +++| LDD T5 CONVERT LOWER DIGIT 04774 M00S04495.1mb +++| LPN 7 04775 M00S04496.1mb +++| SHN 6 04776 M00S04497.1mb +++| ADC 2R0, 04777 M00S04498.1mb +++| STM PESA+2 04778 M00S04499.1mb +++| STM PESB+2 04779 M00S04500.1mb +++| 04780 M00S04501.1mb +++|* READ MAINTENANCE CHANNEL STATUS. 04781 M00S04502.1mb +++| 04782 M00S04503.1mb +++| AJM PES5,0 IF CHANNEL IS ACTIVE 04783 M00S04504.1mb +++| FNC FRSP,0 04784 M00S04505.1mb +++| LDN 77 04785 M00S04506.1mb +++| PES4 IJM PES6,0 IF ESM MAINTENANCE CHANNEL INACTIVE 04786 M00S04507.1mb +++| SBN 1 04787 M00S04508.1mb +++| NJN PES4 IF NOT TIMED OUT ON INACTIVE 04788 M00S04509.1mb +++| PES5 DCN 40 04789 M00S04510.1mb +++| LDC PESA ISSUE ERROR MESSAGE TO SYSTEM DAYFILE 04790 M00S04511.1mb +++| RJM DFM 04791 M00S04512.1mb +++| LDC PESA+ERLN ISSUE ERROR MESSAGE TO ERROR LOG 04792 M00S04513.1mb +++| RJM DFM 04793 M00S04514.1mb +++| LDD CN DROP CHANNEL 04794 M00S04515.1mb +++| DCHAN 04795 M00S04516.1mb +++| LJM PES1 RETURN 04796 M00S04517.1mb +++| 04797 M00S04518.1mb +++| PES6 ACN 0 04798 M00S04519.1mb +++| RJM WCF WAIT FOR CHANNEL FULL 04799 M00S04520.1mb +++| LDN 4 04800 M00S04521.1mb +++| STD NB 04801 M00S04522.1mb +++| IAM IBMH,0 04802 M00S04523.1mb +++| DCN 40 04803 M00S04524.1mb +++| FNC FCSP,0 CLEAR SIDE DOOR PORT STATUS 04804 M00S04525.1mb +++| LDK DCSP 04805 M00S04526.1mb +++| ACN 0 04806 M00S04527.1mb +++| OAN 0 04807 M00S04528.1mb +++| LDC /COMSDFS/HS0101 04808 M00S04529.1mb +++| STM IBMF+1 04809 M00S04530.1mb +++| RJM OLB OUTPUT LOG TO *BML* 04810 M00S04531.1mb +++| LDN 77 04811 M00S04532.1mb +++| FJM PES5,0 IF CLEAR OPERATION NOT COMPLETE 04812 M00S04533.1mb +++| DCN 40 04813 M00S04534.1mb +++| 04814 M00S04535.1mb +++|* READ MAINTENANCE CHANNEL STATUS. 04815 M00S04536.1mb +++| 04816 M00S04537.1mb +++| FNC FRDL,0 ISSUE ESM READ FUNCTION 04817 M00S04538.1mb +++| ACN 0 04818 M00S04539.1mb +++| RJM WCF WAIT FOR CHANNEL FULL 04819 M00S04540.1mb +++| LDC NESB 04820 M00S04541.1mb +++| STD NB 04821 M00S04542.1mb +++| IAM IBMH,0 READ LOG TO ESM SECDED TABLE 04822 M00S04543.1mb +++| DCN 40 04823 M00S04544.1mb +++| ZJN PES8 IF ALL SECDED DATA READ 04824 M00S04545.1mb +++| STD T1 SAVE COUNT OF WORDS NOT READ 04825 M00S04546.1mb +++| LDC NESB-1 PRESET INDEX TO BEGIN CLEARING TABLE 04826 M00S04547.1mb +++| STD T2 04827 M00S04548.1mb +++| PES7 LDN 0 CLEAR NEXT ESM TABLE BYTE 04828 M00S04549.1mb +++| STM IBMH,T2 04829 M00S04550.1mb +++| SOD T2 DECREMENT ESM TABLE INDEX 04830 M00S04551.1mb +++| SOD T1 DECREMENT COUNT OF WORDS TO BE CLEARED 04831 M00S04552.1mb +++| NJN PES7 IF MORE WORDS TO CLEAR 04832 M00S04553.1mb +++| LDC PESB ISSUE ERROR MESSAGE TO SYSTEM DAYFILE 04833 M00S04554.1mb +++| RJM DFM 04834 M00S04555.1mb +++| LDC PESB+ERLN ISSUE ERROR MESSAGE TO ERROR LOG 04835 M00S04556.1mb +++| RJM DFM 04836 M00S04557.1mb +++| PES8 FNC FRST,0 ISSUE ESM RESET FUNCTION 04837 M00S04558.1mb +++| LDD CN DROP CHANNEL 04838 M00S04559.1mb +++| DCHAN 04839 M00S04560.1mb +++| LDC /COMSDFS/HS0100 04840 M00S04561.1mb +++| STM IBMF+1 04841 M00S04562.1mb +++| RJM OLB OUTPUT LOG TO *BML* 04842 M00S04563.1mb +++| LJM PES1 RETURN 04843 M00S04564.1mb +++| 04844 M00S04565.1mb +++| 04845 M00S04566.1mb +++| PESA DATA C*EQ000, MAINTENANCE CHANNEL ERROR.* 04846 M00S04567.1mb +++| PESB DATA C*EQ000, INCOMPLETE SECDED READ.* 04847 M00S04568.1mb +++| OLB SPACE 4,15 04848 M00S04569.1mb +++|** OLB - OUTPUT LOG TO *BML*. 04849 M00S04570.1mb +++|* 04850 M00S04571.1mb +++|* ENTRY (NB) = NUMBER OF BYTES TO WRITE TO *BML*. 04851 M00S04572.1mb +++|* (IBMF) = *BML* MESSAGE ID. 04852 M00S04573.1mb +++|* (IBMF+1) = *BML* SYMPTOM CODE. 04853 M00S04574.1mb +++|* (IBMF+2) = 6/ PP NUMBER, 6/ EM MAINTENANCE CHANNEL. 04854 M00S04575.1mb +++|* BUFFER *IBMH* CONTAINS *BML* DATA. 04855 M00S04576.1mb +++|* 04856 M00S04577.1mb +++|* USES T3, T4, CM - CM+4. 04857 M00S04578.1mb +++|* 04858 M00S04579.1mb +++|* CALLS DFM. 04859 M00S04580.1mb +++| 04860 M00S04581.1mb +++| 04861 M00S04582.1mb +++| 04862 M00S04583.1mb +++| OLB SUBR ENTRY/EXIT 04863 M00S04584.1mb +++| LDN 0 04864 M00S04585.1mb +++| STM IBMG+1 CLEAR NOT FIRST MESSAGE/CONTINUATION 04865 M00S04586.1mb +++| LDN ZERL CLEAR FOR DAYFILE CALL 04866 M00S04587.1mb +++| CRD CM 04867 M00S04588.1mb +++| LDD NB 04868 M00S04589.1mb +++| STD T4 04869 M00S04590.1mb +++| SBN 4*5+1 04870 M00S04591.1mb +++| PJN OLB3 IF MESSAGE CONTINUES 04871 M00S04592.1mb +++| OLB1 LDD T4 SET BYTE COUNT 04872 M00S04593.1mb +++| ADN 2*5 04873 M00S04594.1mb +++| STD CM+1 04874 M00S04595.1mb +++| OLB2 LDN 0 CLEAR REMAINDER OF MESSAGE 04875 M00S04596.1mb +++| STM IBMH,T4 04876 M00S04597.1mb +++| AOD T4 04877 M00S04598.1mb +++| SBN 4*5 04878 M00S04599.1mb +++| MJN OLB2 IF MORE BYTES TO CLEAR 04879 M00S04600.1mb +++| LDM IBMG+1 CLEAR CONTINUATION BIT 04880 M00S04601.1mb +++| SCN 4 04881 M00S04602.1mb +++| UJN OLB5 STORE CONTINUATION BIT 04882 M00S04603.1mb +++| 04883 M00S04604.1mb +++| OLB3 LDN 4*5 INITIALIZE MESSAGE OFFSET 04884 M00S04605.1mb +++| STD T3 04885 M00S04606.1mb +++| OLB4 LDN 6*5 SET MESSAGE LENGTH 04886 M00S04607.1mb +++| STD CM+1 04887 M00S04608.1mb +++| LDM IBMG+1 SET CONTINUATION BIT 04888 M00S04609.1mb +++| SCN 4 04889 M00S04610.1mb +++| LMN 4 04890 M00S04611.1mb +++| OLB5 STM IBMG+1 04891 M00S04612.1mb +++| LDC IBMF+BMLN ISSUE DAYFILE MESSAGE 04892 M00S04613.1mb +++| RJM DFM 04893 M00S04614.1mb +++| LDM IBMG+1 CHECK CONTINUATION BIT 04894 M00S04615.1mb +++| LPN 4 04895 M00S04616.1mb +++| ZJP OLBX IF COMPLETE, RETURN 04896 M00S04617.1mb +++| LDN 14 04897 M00S04618.1mb +++| STM IBMG+1 04898 M00S04619.1mb +++| LDN 0 PRESET *BML* MESSAGE INDEX 04899 M00S04620.1mb +++| STD T4 04900 M00S04621.1mb +++| OLB6 LDM IBMH,T3 MOVE ONE BYTE FROM INPUT TABLE TO *BML* 04901 M00S04622.1mb +++| STM IBMH,T4 04902 M00S04623.1mb +++| AOD T4 INCREMENT BUFFER INDEX 04903 M00S04624.1mb +++| AOD T3 INCREMENT MESSAGE INDEX 04904 M00S04625.1mb +++| LMD NB 04905 M00S04626.1mb +++| ZJP OLB1 IF AT END OF MESSAGE 04906 M00S04627.1mb +++| LDD T4 04907 M00S04628.1mb +++| LMN 4*5 04908 M00S04629.1mb +++| NJN OLB6 IF NOT AT END OF BUFFER 04909 M00S04630.1mb +++| UJP OLB4 OUTPUT BUFFER 04910 M00S04631.1mb +++| WCF SPACE 4,10 04911 M00S04632.1mb +++|** WCF - WAIT FOR CHANNEL FULL. 04912 M00S04633.1mb +++|* 04913 M00S04634.1mb +++|* *WCF* WAITS 250 MICROSECONDS FOR THE CHANNEL TO BECOME FULL. 04914 M00S04635.1mb +++|* 04915 M00S04636.1mb +++|* EXIT TO *PES5* IF CHANNEL TIMES OUT. 04916 M00S04637.1mb +++| 04917 M00S04638.1mb +++| 04918 M00S04639.1mb +++| WCF SUBR ENTRY/EXIT 04919 M00S04640.1mb +++| LDM .DLY GET DELAY COUNT 04920 M00S04641.1mb +++| WCF1 FJM WCFX,0 IF MAINTENANCE CHANNEL FULL 04921 M00S04642.1mb +++| SBN 1 04922 M00S04643.1mb +++| NJN WCF1 IF NOT TIMED OUT 04923 M00S04644.1mb +++| LJM PES5 ISSUE ERROR MESSAGE 04924 M00S04645.1mb +++| 04925 M00S04646.1mb +++| 04926 M00S04647.1mb +++| RSTC RESTORE I/O INSTRUCTIONS 04927 M00S04648.1mb +++| PCI SPACE 4,10 04928 M00S04649.1mb +++|** PCI - PRESET CHANNEL INSTRUCTIONS. 04929 M00S04650.1mb +++|* 04930 M00S04651.1mb +++|* ENTRY (CN) = MAINTENANCE CHANNEL NUMBER. 04931 M00S04652.1mb +++|* (CTABLE) = FWA OF CHANNEL TABLE. 04932 M00S04653.1mb +++|* 04933 M00S04654.1mb +++|* EXIT MAINTENANCE CHANNEL NUMBER IS ADDED TO ALL 04934 M00S04655.1mb +++|* CHANNEL INSTRUCTIONS IN SUBROUTINE *PES*. 04935 M00S04656.1mb +++|* 04936 M00S04657.1mb +++|* USES T1, T2. 04937 M00S04658.1mb +++|* 04938 M00S04659.1mb +++|* MACROS CHTB. 04939 M00S04660.1mb +++| 04940 M00S04661.1mb +++| 04941 M00S04662.1mb +++| PCI SUBR ENTRY/EXIT 04942 M00S04663.1mb +++| LDC CTABLE SET START OF CHANNEL TABLE 04943 M00S04664.1mb +++| STD T1 04944 M00S04665.1mb +++| PCI1 LDI T1 04945 M00S04666.1mb +++| ZJN PCIX IF AT END OF CHANNEL TABLE 04946 M00S04667.1mb +++| STD T2 04947 M00S04668.1mb +++| LDI T2 GET NEXT CHANNEL INSTRUCTION 04948 M00S04669.1mb +++| SCN 37 04949 M00S04670.1mb +++| LMD CN SET MAINTENANCE CHANNEL 04950 M00S04671.1mb +++| STI T2 04951 M00S04672.1mb +++| AOD T1 04952 M00S04673.1mb +++| UJN PCI1 CHECK NEXT TABLE ENTRY 04953 M00S04674.1mb +++| 04954 M00S04675.1mb +++| 04955 M00S04676.1mb +++| CTABLE CHTB TABLE TO PRESET ESM I/O INSTRUCTIONS 04956 M00S04677.1mb +++| COMMON SPACE 4,10 04957 M00S04678.1mb +++|* COMMON DECKS. 04958 M00S04679.1mb +++| 04959 M00S04680.1mb +++| 04960 M00S04681.1mb +++|*CALL COMPC2D 04961 M00S04682.1mb +++| IBM SPACE 4,10 04962 M00S04683.1mb +++|* *BML* MESSAGE BUFFER. 04963 M00S04684.1mb +++| 04964 M00S04685.1mb +++| 04965 M00S04686.1mb +++| IBMF VFD 12/0,12/0,6/0,6/0,24/0 MESSAGE ID/SYMPTOM CODE 04966 M00S04687.1mb +++| IBMG VFD 12/0,9/0,1/0,2/0,36/0 MESSAGE CONTINUATION BIT 04967 M00S04688.1mb +++| IBMH BSS 0 *BML* MESSAGE BUFFER (4 CM WORDS) 04968 M00S04689.1mb +++| IBMHL EQU 4*5 END OF *BML* BUFFER 04969 M00S04690.1mb +++| SPACE 4,10 04970 M00S04691.1mb +++| .1 MAX IBMHL,NESB,CTALL*5 04971 M00S04692.1mb +++| ERRNG EPFW-IBMH-.1 BUFFER OVERFLOWS ERROR PROCESSOR 04972 M00S04693.1mb +++| OVERFLOW IHDX,EPFW 04973 M00S04694.1mb +++| SPACE 4,10 04974 M00S04695.1mb +++| TTL 1MB - HARDWARE ERROR PROCESSOR. 04975 M00S04696.1mb +++| END
cdc/nos2.source/opl.opl871/deck/1mb.002.txt · Last modified: by 127.0.0.1