cdc:nos2.source:opl.opl871:deck:1mu.004
Deck 1MU Part 004
5 Modifications
Listing Sections
- Deck 1MU Start
- Deck 1MU Part 1 (Line 1863)
- Deck 1MU Part 2 (Line 3510)
- Deck 1MU Part 3 (Line 4493)
- Deck 1MU Part 4 (Line 5935)
Source
Seq # *Modification Id* Act ----------------------------+ 05935 M01S00219.@000017 +++|* .LT. 0 IF TIMEOUT OR CHANNEL ACTIVE UPON ENTRY. 05936 M01S00220.@000017 +++| 05937 M01S00221.@000017 +++| 05938 M01S00222.@000017 +++| FNC SUBR ENTRY/EXIT 05939 M01S00223.@000017 +++| AJM FNC2,CH IF CHANNEL ALREADY ACTIVE 05940 M01S00224.@000017 +++| FAN CH 05941 M01S00225.@000017 +++| FNC1 ADD ON 05942 M01S00226.@000017 +++| IJM FNC3,CH IF FUNCTION ACCEPTED 05943 M01S00227.@000017 +++| NJN FNC1 IF NOT TIMEOUT YET 05944 M01S00228.@000017 +++| FNC2 DCN CH+40 05945 M01S00229.@000017 +++| LCN 0 RETURN ERROR STATUS 05946 M01S00230.@000017 +++| UJN FNCX RETURN 05947 M01S00231.@000017 +++| 05948 M01S00232.@000017 +++| FNC3 LDN 0 RETURN SUCCESSFUL STATUS 05949 M01S00233.@000017 +++| UJN FNCX RETURN 05950 M01S00234.@000017 +++| 05951 M01S00235.@000017 +++| 05952 M01S00236.@000017 +++| CTAB BSS 0 TABLE OF CHANNEL INSTRUCTION ADDRESSES 05953 M01S00237.@000017 +++| CHTB 05954 M01S02298.1mu +++| SPACE 4,10 05955 M01S02299.1mu +++|** COMMON DECKS. 05956 M01S02300.1mu +++| 05957 M01S02301.1mu +++| 05958 M01S02302.1mu +++|*CALL COMPC2D 05959 M01S00238.@000017 +++|*CALL COMPSDR 05960 M01S02303.1mu +++|*CALL COMPSMI 05961 M01S02304.1mu +++| VTE SPACE 4,15 05962 M01S02305.1mu +++|** VTE - VERIFY TRT EOI SECTORS. 05963 M01S02306.1mu +++|* 05964 M01S02307.1mu +++|* ENTRY (EQ) = EST ORDINAL BEING PROCESSED. 05965 M01S02308.1mu +++|* 05966 M01S02309.1mu +++|* USES T6, T7. 05967 M01S02310.1mu +++|* 05968 M01S02311.1mu +++|* CALLS CMI, CPF, CPS, FEB, FFT, PCV, WEI. 05969 M01S02312.1mu +++|* 05970 M01S02313.1mu +++|* MACROS SETMS. 05971 M01S02314.1mu +++| 05972 M01S02315.1mu +++| 05973 M01S02316.1mu +++| VTE SUBR ENTRY/EXIT 05974 M01S02317.1mu +++| RJM PCV PRESET 05975 M01S02318.1mu +++| VTE1 RJM FEB FIND *EOI* BYTE IN TRT 05976 M01S02319.1mu +++| ZJN VTEX IF FINISHED WITH *EOI* PROCESSING 05977 M01S02320.1mu +++| RJM FFT FIND FIRST TRACK OF TRT CHAIN 05978 M01S02321.1mu +++| RJM CPS CHECK IF FILE IS PRESERVED 05979 M01S02322.1mu +++| ZJN VTE5 IF FILE IS NOT PRESERVED 05980 M01S02323.1mu +++| RJM CPF CHECK PRESERVED FILE INTERLOCKS 05981 M01S02324.1mu +++| NJN VTE1 IF FILE INTERLOCKED ON OTHER MAINFRAME 05982 M01S02325.1mu +++| VTE2 LDD T9 SETUP TO WRITE AN ENHANCED EOI SECTOR 05983 M01S02326.1mu +++| SBN 1 05984 M01S02327.1mu +++| STD T6 05985 M01S02328.1mu +++| LDD EI 05986 M01S02329.1mu +++| STD T7 05987 M01S02330.1mu +++| SETMS IO,(AD,ND,NR) 05988 M01S02331.1mu +++| RJM WEI WRITE PROPER EOI SECTOR 05989 M01S02332.1mu +++| 05990 M01S02333.1mu +++|* CHECK FOR MS ERROR. 05991 M01S02334.1mu +++| 05992 M01S02335.1mu +++| ENDMS 05993 M01S02336.1mu +++| VTE3 UJP VTE1 CONTINUE TO NEXT EOI 05994 M01S02337.1mu +++| 05995 M01S02338.1mu +++| VTE5 RJM CMI CHECK MACHINE RECOVERY TABLE INTERLOCK 05996 M01S02339.1mu +++| ZJN VTE3 IF FILE NOT LOCAL TO THIS MAINFRAME 05997 M01S02340.1mu +++| UJP VTE2 GO WRITE CORRECT EOI TO FILE 05998 M01S02341.1mu +++| CMI SPACE 4,15 05999 M01S02342.1mu +++|** CMI - CHECK MACHINE RECOVERY TABLE INTERLOCK. 06000 M01S02343.1mu +++|* 06001 M01S02344.1mu +++|* ENTRY (T6) = FIRST TRACK NUMBER OF FILE. 06002 M01S02345.1mu +++|* (T8) = BYTE NUMBER IN TRT WORD. 06003 M01S02346.1mu +++|* (CM - CM+4) = TRT WORD CONTAINING (T6). 06004 M01S02347.1mu +++|* (FTPB) = LENGTH OF TRT BEING PROCESSED. 06005 M01S02348.1mu +++|* 06006 M01S02349.1mu +++|* EXIT (A) = 0 IF FILE IS NOT LOCAL TO THIS MAINFRAME. 06007 M01S02350.1mu +++|* .NE. 0 IF FILE IS LOCAL TO THIS MAINFRAME. 06008 M01S02351.1mu +++|* 06009 M01S02352.1mu +++|* USES T1, T2, CM - CM+4. 06010 M01S02353.1mu +++| 06011 M01S02354.1mu +++| 06012 M01S02355.1mu +++| CMI3 LDN 1 RETURN WITH LOCAL FILE STATUS 06013 M01S02356.1mu +++| 06014 M01S02357.1mu +++| CMI SUBR ENTRY/EXIT 06015 M01S02358.1mu +++| LDD CM+4 CHECK TRACK INTERLOCK 06016 M01S02359.1mu +++| LMM TCMI,T8 06017 M01S02360.1mu +++| SBD CM+4 06018 M01S02361.1mu +++| PJN CMI3 IF FILE NOT INTERLOCKED 06019 M01S02362.1mu +++| 06020 M01S02363.1mu +++|* CHECK MRT TO DETERMINE WHO HAS FILE INTERLOCKED. 06021 M01S02364.1mu +++| 06022 M01S02365.1mu +++| CMI1 LDD T6 CALCULATE WORD OFFSET INTO MRT 06023 M01S02366.1mu +++| SHN 21-4 06024 M01S02367.1mu +++| STD T1 06025 M01S02368.1mu +++| SHN 4-21 SAVE BIT INTERLOCK NUMBER (BITS 0-4) 06026 M01S02369.1mu +++| STD T2 06027 M01S02370.1mu +++| CMIB LDC ** GET TRT FWA 06028 M01S02371.1mu +++| ADM FTPB ADD LENGTH OF TRT 06029 M01S02372.1mu +++| ADD T1 ADD OFFSET INTO MRT 06030 M01S02373.1mu +++| CRD CM 06031 M01S02374.1mu +++| LDN CM+5 SET BYTE POINTER WITHIN MRT WORD 06032 M01S02375.1mu +++| STD T0 06033 M01S02376.1mu +++| CMI2 SOD T0 06034 M01S02377.1mu +++| LCN 14 06035 M01S02378.1mu +++| RAD T2 06036 M01S02379.1mu +++| PJN CMI2 IF NOT POSITIONED TO PROPER BYTE 06037 M01S02380.1mu +++| ADC SHNI+21-0+14 06038 M01S02381.1mu +++| STM CMIC 06039 M01S02382.1mu +++| LDI T0 06040 M01S02383.1mu +++| CMIC SHN ** 06041 M01S02384.1mu +++| SHN 0-21 06042 M01S02385.1mu +++| UJP CMIX RETURN 06043 M01S02386.1mu +++| 06044 M01S02387.1mu +++| 06045 M01S02388.1mu +++| TCMI CON 200,100,40,20 TABLE OF TRACK INTERLOCK BITS 06046 M01S02389.1mu +++| CPF SPACE 4,15 06047 M01S02390.1mu +++|** CPF - CHECK PRESERVED FILE STATUS. 06048 M01S02391.1mu +++|* 06049 M01S02392.1mu +++|* ENTRY (MT) = FIRST TRACK NUMBER OF FILE. 06050 M01S02393.1mu +++|* 06051 M01S02394.1mu +++|* EXIT (A) = 0 IF FILE IS NOT INTERLOCKED. 06052 M01S02395.1mu +++|* .NE. 0 IF FILE IS INTERLOCKED ON OTHER MAINFRAME. 06053 M01S02396.1mu +++|* 06054 M01S02397.1mu +++|* USES T6, T7. 06055 M01S02398.1mu +++|* 06056 M01S02399.1mu +++|* CALLS CPI, RDS. 06057 M01S02400.1mu +++|* 06058 M01S02401.1mu +++|* MACROS ENDMS, SETMS. 06059 M01S02402.1mu +++| 06060 M01S02403.1mu +++| 06061 M01S02404.1mu +++| CPF SUBR ENTRY/EXIT 06062 M01S02405.1mu +++| LDD MT SETUP TO READ SYSTEM SECTOR 06063 M01S02406.1mu +++| STD T6 06064 M01S02407.1mu +++| LDN 0 06065 M01S02408.1mu +++| STD T7 06066 M01S02409.1mu +++| SETMS IO,(AD,ND) 06067 M01S02410.1mu +++| LDC BFMS READ SYSTEM SECTOR 06068 M01S02411.1mu +++| RJM RDS 06069 M01S02412.1mu +++| 06070 M01S02413.1mu +++|* CHECK FOR MS ERROR. 06071 M01S02414.1mu +++| 06072 M01S02415.1mu +++| ENDMS 06073 M01S02416.1mu +++| LDM BFMS+2+4 06074 M01S02417.1mu +++| SHN -6 06075 M01S02418.1mu +++| LMN PMFT 06076 M01S02419.1mu +++| ZJN CPF1 IF DIRECT ACCESS PERMANENT FILE 06077 M01S02420.1mu +++| LMN FAFT&PMFT 06078 M01S02421.1mu +++| NJN CPF2 IF NOT FAST ATTACH PERMANENT FILE 06079 M01S02422.1mu +++| CPF1 LDD ES 06080 M01S02423.1mu +++| LPC 1020 06081 M01S02424.1mu +++| ZJN CPF2 IF DEVICE NOT A SHARED DEVICE 06082 M01S02425.1mu +++| RJM CPI CHECK MMF PERMANENT FILE INTERLOCKS 06083 M01S02426.1mu +++| CPF2 UJP CPFX RETURN 06084 M01S02427.1mu +++| CPS SPACE 4,10 06085 M01S02428.1mu +++|** CPS - CHECK FOR PRESERVED FILE STATUS. 06086 M01S02429.1mu +++|* 06087 M01S02430.1mu +++|* ENTRY (T6) = FIRST TRACK NUMBER. 06088 M01S02431.1mu +++|* (T8) = BYTE NUMBER IN TRT WORD. 06089 M01S02432.1mu +++|* (CM - CM+4) = TRT WORD CONTAINING (T6). 06090 M01S02433.1mu +++|* 06091 M01S02434.1mu +++|* EXIT (A) = 0 IF FILE IS NOT PRESERVED. 06092 M01S02435.1mu +++|* .NE. 0 IF FILE IS PRESERVED FILE. 06093 M01S02436.1mu +++| 06094 M01S02437.1mu +++| 06095 M01S02438.1mu +++| CPS SUBR ENTRY/EXIT 06096 M01S02439.1mu +++| LDD CM+4 CHECK FOR PRESERVED BIT 06097 M01S02440.1mu +++| LMM TCPS,T8 06098 M01S02441.1mu +++| SBD CM+4 06099 M01S02442.1mu +++| SHN -21 06100 M01S02443.1mu +++| UJN CPSX RETURN 06101 M01S02444.1mu +++| 06102 M01S02445.1mu +++|* BIT MASKS FOR INTERLOCK TESTS. 06103 M01S02446.1mu +++| 06104 M01S02447.1mu +++| TCPS CON 4000,2000,1000,0400 06105 M01S02448.1mu +++| CPI SPACE 4,10 06106 M01S02449.1mu +++|** CPI - CHECK MMF PERMANENT FILE INTERLOCKS. 06107 M01S02450.1mu +++|* 06108 M01S02451.1mu +++|* ENTRY (BFMS) = SYSTEM SECTOR OF PRESERVED FILE. 06109 M01S02452.1mu +++|* 06110 M01S02453.1mu +++|* EXIT (A) = 0 IF FILE IS NOT INTERLOCKED. 06111 M01S02454.1mu +++|* .NE. 0 IF FILE IS INTERLOCKED ON OTHER MAINFRAME. 06112 M01S02455.1mu +++|* 06113 M01S02456.1mu +++|* USES T2, T3, T5. 06114 M01S02457.1mu +++|* 06115 M01S02458.1mu +++|* CALLS SMI. 06116 M01S02459.1mu +++| 06117 M01S02460.1mu +++| 06118 M01S02461.1mu +++| CPI SUBR ENTRY/EXIT 06119 M01S02462.1mu +++| LDD EQ 06120 M01S02463.1mu +++| STD T5 06121 M01S02464.1mu +++| RJM SMI GET CURRENT MACHINE INDEX 06122 M01S02465.1mu +++| STD T2 06123 M01S02466.1mu +++| SHN 1 06124 M01S02467.1mu +++| STD T3 *2 06125 M01S02468.1mu +++| ADD T3 *4 06126 M01S02469.1mu +++| RAD T2 *5 06127 M01S02470.1mu +++| UJN CPIX RETURN 06128 M01S02471.1mu +++| FEB SPACE 4,15 06129 M01S02472.1mu +++|** FEB - FIND EOI TRT BYTE. 06130 M01S02473.1mu +++|* 06131 M01S02474.1mu +++|* ENTRY (T9) = TRACK NUMBER TO BEGIN SEARCH. 06132 M01S02475.1mu +++|* 06133 M01S02476.1mu +++|* EXIT (A) = 0 IF NO EOI BYTE FOUND. 06134 M01S02477.1mu +++|* (T6) = TRACK NUMBER CONTAINING EOI BYTE, IF FOUND. 06135 M01S02478.1mu +++|* (T9) = UPDATED TO BEGIN NEXT SEARCH. 06136 M01S02479.1mu +++|* 06137 M01S02480.1mu +++|* USES T2. 06138 M01S02481.1mu +++|* 06139 M01S02482.1mu +++|* CALLS FTP. 06140 M01S02483.1mu +++| 06141 M01S02484.1mu +++| 06142 M01S02485.1mu +++| FEB SUBR ENTRY/EXIT 06143 M01S02486.1mu +++| LDN 0 06144 M01S02487.1mu +++| STD T2 06145 M01S02488.1mu +++| LDD T9 06146 M01S02489.1mu +++| RJM FTP 06147 M01S02490.1mu +++| ZJN FEBX IF NO *EOI* FOUND 06148 M01S02491.1mu +++| ADN 1 06149 M01S02492.1mu +++| STD T9 06150 M01S02493.1mu +++| UJN FEBX RETURN 06151 M01S02494.1mu +++| FFT SPACE 4,10 06152 M01S02495.1mu +++|** FFT - FIND FIRST TRACK LINK. 06153 M01S02496.1mu +++|* 06154 M01S02497.1mu +++|* ENTRY (T6) = TRACK NUMBER TO LINK BACK TO *BOI*. 06155 M01S02498.1mu +++|* 06156 M01S02499.1mu +++|* EXIT (A) = (MT) = (T6) = TRACK NUMBER OF FIRST TRACK. 06157 M01S02500.1mu +++|* 06158 M01S02501.1mu +++|* USES MT, T2, T6. 06159 M01S02502.1mu +++|* 06160 M01S02503.1mu +++|* CALLS FTP. 06161 M01S02504.1mu +++| 06162 M01S02505.1mu +++| 06163 M01S02506.1mu +++| FFT SUBR ENTRY/EXIT 06164 M01S02507.1mu +++| FFT1 LDD T6 06165 M01S02508.1mu +++| STD T2 06166 M01S02509.1mu +++| LDN 0 BEGIN SEARCH FROM BEGINNING OF TRT 06167 M01S02510.1mu +++| RJM FTP 06168 M01S02511.1mu +++| NJN FFT1 IF FIRST LINK NOT FOUND 06169 M01S02512.1mu +++| LDD T6 SAVE FIRST TRACK NUMBER 06170 M01S02513.1mu +++| STD MT 06171 M01S02514.1mu +++| UJN FFTX RETURN 06172 M01S02515.1mu +++| FTP SPACE 4,15 06173 M01S02516.1mu +++|** FTP - FIND TRT BYTE PATTERN. 06174 M01S02517.1mu +++|* 06175 M01S02518.1mu +++|* ENTRY (A) = TRACK NUMBER IN TRT TO BEGIN WITH. 06176 M01S02519.1mu +++|* (T2) = PATTERN TO FIND IN TRT BYTES. 06177 M01S02520.1mu +++|* 06178 M01S02521.1mu +++|* EXIT (A) = (T6) = TRACK NUMBER OF PATTERN MATCH. 06179 M01S02522.1mu +++|* (EI) = *EOI* SECTOR NUMBER, IF FOUND AS MATCH. 06180 M01S02523.1mu +++|* (T8) = BYTE NUMBER IN TRT WORD. 06181 M01S02524.1mu +++|* 06182 M01S02525.1mu +++|* USES EI, T1, T2, T6, T8, CM - CM+4. 06183 M01S02526.1mu +++| 06184 M01S02527.1mu +++| 06185 M01S02528.1mu +++| FTP SUBR ENTRY/EXIT 06186 M01S02529.1mu +++| STD T6 06187 M01S02530.1mu +++| LPN 3 CALCULATE FIRST OFFSET 06188 M01S02531.1mu +++| ADN CM 06189 M01S02532.1mu +++| STD T1 06190 M01S02533.1mu +++| LDD T6 CALCULATE TRT WORD OFFSET 06191 M01S02534.1mu +++| LPC 3777 06192 M01S02535.1mu +++| SHN -2 06193 M01S02536.1mu +++| STD T6 06194 M01S02537.1mu +++| FTP1 LDC ** READ TRT WORD 06195 M01S02538.1mu +++| FTPA EQU *-1 06196 M01S02539.1mu +++| ADD T6 06197 M01S02540.1mu +++| CRD CM 06198 M01S02541.1mu +++| FTP2 LDI T1 06199 M01S02542.1mu +++| SHN 21-13 06200 M01S02543.1mu +++| PJN FTP4 IF *EOI* BYTE 06201 M01S02544.1mu +++| SHN 21+1-21+13 06202 M01S02545.1mu +++| LMD T2 06203 M01S02546.1mu +++| ZJN FTP5 IF PATTERN MATCH 06204 M01S02547.1mu +++| FTP3 AOD T1 06205 M01S02548.1mu +++| SBN CM+4 06206 M01S02549.1mu +++| NJN FTP2 IF NOT THROUGH ALL TRT BYTES 06207 M01S02550.1mu +++| LDN CM 06208 M01S02551.1mu +++| STD T1 06209 M01S02552.1mu +++| LDC ** CHECK IF DONE WITH TRT 06210 M01S02553.1mu +++| FTPB EQU *-1 (NUMBER OF WORDS IN TRT) 06211 M01S02554.1mu +++| SBD T6 06212 M01S02555.1mu +++| ZJN FTPX IF NO PATTERN MATCH FOUND 06213 M01S02556.1mu +++| AOD T6 INCREMENT TRT WORD OFFSET 06214 M01S02557.1mu +++| UJN FTP1 CONTINUE SEARCHING TRT 06215 M01S02558.1mu +++| 06216 M01S02559.1mu +++| FTP4 LDD T2 06217 M01S02560.1mu +++| NJN FTP3 IF NOT SEARCHING FOR *EOI* 06218 M01S02561.1mu +++| LDI T1 SAVE *EOI* SECTOR NUMBER 06219 M01S02562.1mu +++| STD EI 06220 M01S02563.1mu +++| FTP5 LDD T1 CONSTRUCT TRACK NUMBER 06221 M01S02564.1mu +++| SBN CM 06222 M01S02565.1mu +++| STD T8 SAVE BYTE NUMBER IN TRT WORD 06223 M01S02566.1mu +++| SHN 21-2 06224 M01S02567.1mu +++| ADD T6 06225 M01S02568.1mu +++| SHN 2 06226 M01S02569.1mu +++| ADC 4000 06227 M01S02570.1mu +++| STD T6 06228 M01S02571.1mu +++| LJM FTPX RETURN 06229 M01S02572.1mu +++| PCV SPACE 4,20 06230 M01S02573.1mu +++|** PCV - PRESET CONDITIONS FOR *VTE*. 06231 M01S02574.1mu +++|* 06232 M01S02575.1mu +++|* ENTRY (ES - ES+4) = EST ENTRY. 06233 M01S02576.1mu +++|* 06234 M01S02577.1mu +++|* EXIT (FTPB) = TRT LENGTH IN CM WORDS. 06235 M01S02578.1mu +++|* 06236 M01S02579.1mu +++|* USES CM - CM+4, CN - CN+4. 06237 M01S02580.1mu +++|* 06238 M01S02581.1mu +++|* CALLS IRA. 06239 M01S02582.1mu +++| 06240 M01S02583.1mu +++| 06241 M01S02584.1mu +++| PCV SUBR ENTRY/EXIT 06242 M01S02585.1mu +++| RJM IRA SET ADDRESSES 06243 M01S02586.1mu +++| LDD ES+4 06244 M01S02587.1mu +++| SHN 3 06245 M01S02588.1mu +++| ADK TDGL GET TRT LENGTH 06246 M01S02589.1mu +++| CRD CN 06247 M01S02590.1mu +++| ADN TRLL-TDGL GET TRT FWA 06248 M01S02591.1mu +++| CRD CM 06249 M01S02592.1mu +++| LDD CN+2 06250 M01S02593.1mu +++| STM FTPB 06251 M01S02594.1mu +++| LDD CM+4 PRESET TRT ADDRESS 06252 M01S02595.1mu +++| STM CMIB+1 06253 M01S02596.1mu +++| STM FTPA 06254 M01S02597.1mu +++| LDD CM+3 06255 M01S02598.1mu +++| LPN 77 06256 M01S02599.1mu +++| LMC LDCI 06257 M01S02600.1mu +++| STM CMIB 06258 M01S02601.1mu +++| STM FTPA-1 06259 M01S02602.1mu +++| UJP PCVX RETURN 06260 M01S02603.1mu +++| 06261 M01S02604.1mu +++| QUAL * 06262 M01S02605.1mu +++| 06263 M01S02606.1mu +++| OVERFLOW OVLA,BFMS 06264 M01S02607.1mu +++| TITLE 06265 M01S02608.1mu +++| END
cdc/nos2.source/opl.opl871/deck/1mu.004.txt · Last modified: by 127.0.0.1