cdc:nos2.source:opl.opl871:deck:copyb.002
Deck COPYB Part 002
11 Modifications
Listing Sections
- Deck COPYB Start
- Deck COPYB Part 1 (Line 1405)
- Deck COPYB Part 2 (Line 3064)
- Deck COPYB Part 3 (Line 4651)
Source
Seq # *Modification Id* Act ----------------------------+ 03064 M00S02449.copyb +++|* 03065 M00S02450.copyb +++|* EXIT WORD COUNT AND UNUSED BIT COUNT UPDATED AS NECESSARY. 03066 M00S02451.copyb +++|* EOR FLAG AND BLOCK TERMINATOR INDICATOR SET 03067 M00S02452.copyb +++|* APPROPRIATELY. 03068 M00S02453.copyb +++|* 03069 M00S02454.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 03070 M00S02455.copyb +++|* B - 3. 03071 M00S02456.copyb +++|* X - 1, 2, 3, 4, 6, 7. 03072 M00S02457.copyb +++|* 03073 M00S02458.copyb +++|* CALLS PDE. 03074 M00S02459.copyb +++| 03075 M00S02460.copyb +++| 03076 M00S02461.copyb +++| ISI3 NG X1,ISI4 IF ODD WORD COUNT 03077 M00S02462.copyb +++| SX2 X2+12-8 03078 M00S02463.copyb +++| ISI4 SA6 A1 UPDATE BLOCK WORD COUNT 03079 M00S02464.copyb +++| BX7 X7-X7 CLEAR UNUSED BIT COUNT 03080 M00S02465.copyb +++| IX6 X3-X6 SET EOR FLAG IF NOT FULL BLOCK 03081 M00S02466.copyb +++| SA7 A2 03082 M00S02467.copyb +++| SA6 EORF 03083 M00S02468.copyb +++| ZR X2,ISIX IF NO DATA ERROR 03084 M00S02469.copyb +++| SB3 B1 PROCESS DATA ERROR 03085 M00S02470.copyb +++| RJ PDE 03086 M00S02471.copyb +++| 03087 M00S02472.copyb +++| ISI SUBR ENTRY/EXIT 03088 M00S02473.copyb +++| SA1 RWCB GET BLOCK WORD COUNT 03089 M00S02474.copyb +++| SA2 UBCB GET UNUSED BIT COUNT 03090 M00S02475.copyb +++| SA3 I+PRU GET INPUT PRU SIZE 03091 M00S02476.copyb +++| LX6 X1 03092 M00S02477.copyb +++| IX4 X3-X1 03093 M00S02478.copyb +++| NZ X4,ISI1 IF WORD COUNT .NE. PRU SIZE 03094 M00S02479.copyb +++| ZR X2,ISI4 IF FULL BLOCK 03095 M00S02480.copyb +++| ISI1 SA4 I+TRK GET TRACK BITS 03096 M00S02481.copyb +++| LX1 -1 03097 M00S02482.copyb +++| BX7 X2 SET BLOCK TERMINATOR = UNUSED BIT COUNT 03098 M00S02483.copyb +++| NZ X2,ISI2 IF NONZERO UNUSED BIT COUNT 03099 M00S02484.copyb +++| SX7 B1+ SET TERMINATOR INDICATOR WHEN DATA ERROR 03100 M00S02485.copyb +++| ISI2 SX6 X6-1 DECREMENT BLOCK WORD COUNT 03101 M00S02486.copyb +++| SA7 BTSK SET BLOCK TERMINATOR INDICATOR 03102 M00S02487.copyb +++| SX2 X2-12 03103 M00S02488.copyb +++| NG X4,ISI3 IF 9-TRACK SI-CODED TAPE 03104 M00S02489.copyb +++| EQ ISI4 UPDATE FLAGS/COUNTS 03105 M00S02490.copyb +++| IXB SPACE 4,15 03106 M00S02491.copyb +++|** IXB - INITIALIZE X FORMAT TAPE BLOCK. 03107 M00S02492.copyb +++|* 03108 M00S02493.copyb +++|* ENTRY (RWCB) = WORD COUNT OF BLOCK. 03109 M00S02494.copyb +++|* (UBCB) = UNUSED BIT COUNT FOR BLOCK. 03110 M00S02495.copyb +++|* 03111 M00S02496.copyb +++|* EXIT WORD COUNT AND UNUSED BIT COUNT UPDATED AS 03112 M00S02497.copyb +++|* NECESSARY. EOR FLAG AND SKIP WORD INDICATOR 03113 M00S02498.copyb +++|* SET APPROPRIATELY. 03114 M00S02499.copyb +++|* 03115 M00S02500.copyb +++|* USES A - 1, 2, 3, 6, 7. 03116 M00S02501.copyb +++|* B - 3. 03117 M00S02502.copyb +++|* X - 1, 2, 3, 6, 7. 03118 M00S02503.copyb +++|* 03119 M00S02504.copyb +++|* CALLS PDE. 03120 M00S02505.copyb +++| 03121 M00S02506.copyb +++| 03122 M00S02507.copyb +++| IXB1 SA3 I+TRK GET TRACK BITS 03123 M00S02508.copyb +++| BX6 X1
| Line S02509 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03124 M01S02509.274l797 ---| PL X3,IXB3 IF 7-TRACK X TAPE
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03125 M01S00113.274l797 +++| LX3 59-58 03126 M01S00114.274l797 +++| NG X3,IXB3 IF 7-TRACK X TAPE 03127 M00S02510.copyb +++| BX3 X2 03128 M00S02511.copyb +++| LX1 -1 03129 M00S02512.copyb +++| SX2 B1 03130 M00S02513.copyb +++| NG X1,IXB2 IF ODD WORD COUNT (BAD BLOCK) 03131 M00S02514.copyb +++| BX2 X3 03132 M00S02515.copyb +++| ZR X2,IXB3 IF NO UNUSED BIT COUNT 03133 M00S02516.copyb +++| SX2 X2-48 ELIMINATE EXCESS BYTE 03134 M00S02517.copyb +++| IXB2 SX7 -B1 SET SKIP WORD INDICATOR 03135 M00S02518.copyb +++| IX6 X6+X7 DECREMENT BLOCK WORD COUNT 03136 M00S02519.copyb +++| SA7 BTSK 03137 M00S02520.copyb +++| IXB3 SA3 I+PRU GET INPUT PRU SIZE 03138 M00S02521.copyb +++| SA6 A1 UPDATE BLOCK WORD COUNT 03139 M00S02522.copyb +++| BX7 X7-X7 CLEAR UNUSED BIT COUNT 03140 M00S02523.copyb +++| IX6 X3-X6 SET EOR FLAG IF NOT FULL BLOCK 03141 M00S02524.copyb +++| SA7 A2 03142 M00S02525.copyb +++| SA6 EORF 03143 M00S02526.copyb +++| ZR X2,IXBX IF NO DATA ERROR 03144 M00S02527.copyb +++| SB3 B1 PROCESS DATA ERROR 03145 M00S02528.copyb +++| RJ PDE 03146 M00S02529.copyb +++| 03147 M00S02530.copyb +++| IXB SUBR ENTRY/EXIT 03148 M00S02531.copyb +++| SA1 RWCB GET BLOCK WORD COUNT 03149 M00S02532.copyb +++| SA2 UBCB GET UNUSED BIT COUNT 03150 M00S02533.copyb +++| SX3 X1-1 03151 M00S02534.copyb +++| NZ X3,IXB1 IF NOT TERMINATOR ONLY 03152 M00S02535.copyb +++| ZR X2,IXB1 IF NO UNUSED BIT COUNT 03153 M00S02536.copyb +++| SX2 X2-12 03154 M00S02537.copyb +++| BX6 X1 03155 M00S02538.copyb +++| EQ IXB2 SET SKIP WORD INDICATOR 03156 M00S02539.copyb +++| SIT SPACE 4,15 03157 M00S02540.copyb +++|** SIT - PROCESS SI-CODED TAPE BLOCK TERMINATOR. 03158 M00S02541.copyb +++|* 03159 M00S02542.copyb +++|* ENTRY (X2) = DATA WORD CONTAINING 48-BIT BLOCK TERMINATOR. 03160 M00S02543.copyb +++|* (BTSK) = UNUSED BIT COUNT FOR BLOCK TERMINATOR WORD. 03161 M00S02544.copyb +++|* 03162 M00S02545.copyb +++|* EXIT (X1) = -1, IF LEVEL 17B BLOCK TERMINATOR (EOF) 03163 M00S02546.copyb +++|* ENCOUNTERED ON SI-CODED TAPE. 03164 M00S02547.copyb +++|* 03165 M00S02548.copyb +++|* USES A - 1, 3, 7. 03166 M00S02549.copyb +++|* B - 2, 3. 03167 M00S02550.copyb +++|* X - 1, 2, 3, 6, 7. 03168 M00S02551.copyb +++|* 03169 M00S02552.copyb +++|* CALLS PDE. 03170 M00S02553.copyb +++| 03171 M00S02554.copyb +++| 03172 M00S02555.copyb +++| SIT2 SX7 X7+B1 03173 M00S02556.copyb +++| SA1 TELN+X7 CONVERT DISPLAY LEVEL NUMBER TO BCD 03174 M00S02557.copyb +++| BX3 X1-X2 03175 M00S02558.copyb +++| ZR X1,SIT1 IF END OF TABLE 03176 M00S02559.copyb +++| NZ X3,SIT2 IF NOT MATCH 03177 M00S02560.copyb +++| SIT3 SA7 LVL 03178 M00S02561.copyb +++| SX2 X7-17B 03179 M00S02562.copyb +++| BX1 X1-X1 03180 M00S02563.copyb +++| NZ X2,SITX IF NOT LEVEL 17B (EOF) 03181 M00S02564.copyb +++| SX1 -B1 03182 M00S02565.copyb +++| 03183 M00S02566.copyb +++| SIT SUBR ENTRY/EXIT 03184 M00S02567.copyb +++| SA1 BTSK CLEAR EXTRANEOUS DATA 03185 M00S02568.copyb +++| SB3 59 03186 M00S02569.copyb +++| SB2 X1+ 03187 M00S02570.copyb +++| SA3 I+TRK GET TRACK BITS 03188 M00S02571.copyb +++| MX1 1 03189 M00S02572.copyb +++| SB2 B3-B2 03190 M00S02573.copyb +++| AX1 B2 03191 M00S02574.copyb +++| BX2 X1*X2 03192 M00S02575.copyb +++| AX2 12 EXTRACT LEVEL NUMBER FROM BLOCK TERMINATOR 03193 M00S02576.copyb +++| MX1 -6 03194 M00S02577.copyb +++| SX7 -1 03195 M00S02578.copyb +++| BX2 -X1*X2 03196 M00S02579.copyb +++| PL X3,SIT2 IF 7-TRACK SI-CODED TAPE 03197 M00S02580.copyb +++| BX7 X2 03198 M00S02581.copyb +++| SX1 X2-20B 03199 M00S02582.copyb +++| NG X1,SIT3 IF LEGAL LEVEL NUMBER 03200 M00S02583.copyb +++| SIT1 SB3 B1 PROCESS DATA ERROR 03201 M00S02584.copyb +++| RJ PDE 03202 M00S02585.copyb +++| BX7 X7-X7 03203 M00S02586.copyb +++| EQ SIT3 CLEAR LEVEL NUMBER 03204 M00S02587.copyb +++| TDBC SPACE 4,10 03205 M00S02588.copyb +++|** TELN - TABLE OF EOR LEVEL NUMBERS. BLANK REPRESENTS 03206 M00S02589.copyb +++|* LEVEL 0. LEVELS 1 - 17B IN EXTERNAL BCD WERE CONVERTED 03207 M00S02590.copyb +++|* TO DISPLAY CODE DURING READ, AND MUST BE RE-TRANSLATED. 03208 M00S02591.copyb +++| 03209 M00S02592.copyb +++| 03210 M00S02593.copyb +++| TELN BSS 0 03211 M00S02594.copyb +++| LOC 0 03212 M00S02595.copyb +++| CON 55B LEVEL 0 EOR 03213 M00S02596.copyb +++| CON 34B LEVEL 1 EOR 03214 M00S02597.copyb +++| CON 35B LEVEL 2 EOR 03215 M00S02598.copyb +++| CON 36B LEVEL 3 EOR 03216 M00S02599.copyb +++| CON 37B LEVEL 4 EOR 03217 M00S02600.copyb +++| CON 40B LEVEL 5 EOR 03218 M00S02601.copyb +++| CON 41B LEVEL 6 EOR 03219 M00S02602.copyb +++| CON 42B LEVEL 7 EOR 03220 M00S02603.copyb +++| CON 43B LEVEL 10B EOR 03221 M00S02604.copyb +++| CON 44B LEVEL 11B EOR 03222 M00S02605.copyb +++| CON 33B LEVEL 12B EOR 03223 M00S02606.copyb +++| CON 54B LEVEL 13B EOR 03224 M00S02607.copyb +++| CON 64B LEVEL 14B EOR 03225 M00S02608.copyb +++| CON 74B LEVEL 15B EOR 03226 M00S02609.copyb +++| CON 63B LEVEL 16B EOR 03227 M00S02610.copyb +++| CON 61B LEVEL 17B EOF 03228 M00S02611.copyb +++| CON 0 END OF TABLE 03229 M00S02612.copyb +++| LOC *O 03230 M00S02613.copyb +++| SPACE 4,10 03231 M00S02614.copyb +++|** COMMON DECKS. 03232 M00S02615.copyb +++| 03233 M00S02616.copyb +++| 03234 M00S02617.copyb +++|*CALL COMCRDC 03235 M00S02618.copyb +++|*CALL COMCWTH 03236 M00S02619.copyb +++| SPACE 4,10 03237 M00S02620.copyb +++|** TCOPY BUFFERS. 03238 M00S02621.copyb +++| 03239 M00S02622.copyb +++| 03240 M00S02623.copyb +++| BUF2 BSS 0 WORKING STORAGE BUFFER 03241 M00S02624.copyb +++| IBUF2 EQU BUF2+BUFL INPUT FILE CIO BUFFER 03242 M00S02625.copyb +++| OBUF2 EQU IBUF2+FBUFL OUTPUT FILE CIO BUFFER 03243 M00S02626.copyb +++| RFL2 EQU OBUF2+FBUFL FIELD LENGTH FOR TCOPY 03244 M00S02627.copyb +++| TITLE PRESET. 03245 M00S02628.copyb +++| CTP SPACE 4,10 03246 M00S02629.copyb +++|** CTP - COPY AND TCOPY PRESET PROGRAM. 03247 M00S02630.copyb +++|* 03248 M00S02631.copyb +++|* ENTRY (X6) = -1, IF *COPY* CALL. 03249 M00S02632.copyb +++|* = 0, IF *TCOPY* CALL. 03250 M00S02633.copyb +++|* 03251 M00S02634.copyb +++|* EXIT (B1) = 1. 03252 M00S02635.copyb +++|* 03253 M00S02636.copyb +++|* USES A - 0, 1, 2, 4, 6, 7. 03254 M00S02637.copyb +++|* X - 0, 1, 2, 4, 6, 7. 03255 M00S02638.copyb +++|* 03256 M00S02639.copyb +++|* CALLS BVR, CCP, CDT, CFN, CPV, GPS, RBL, RBP, SPS, VCY, VTY. 03257 M00S02640.copyb +++| 03258 M00S02641.copyb +++| 03259 M00S02642.copyb +++| CTP2 RJ VCY VALIDATE COPY 03260 M00S02643.copyb +++| CTP3 SA0 I SET PRU SIZE ON S OR L INPUT TAPE 03261 M00S02644.copyb +++| RJ SPS 03262 M00S02645.copyb +++| RJ GPS GET INPUT PRU SIZE 03263 M00S02646.copyb +++| SA0 O SET PRU SIZE ON S OR L OUTPUT TAPE 03264 M00S02647.copyb +++| RJ SPS 03265 M00S02648.copyb +++| RJ GPS GET OUTPUT PRU SIZE 03266 M00S02649.copyb +++| RJ RBL RESET BUFFER LENGTHS FOR L AND F TAPES 03267 M00S02650.copyb +++| RJ RBP RESET BUFFER POINTERS 03268 M00S02651.copyb +++| RJ AEM ADJUST ERROR MESSAGES 03269 M00S02652.copyb +++| RJ BVR BUILD VERIFY REQUEST 03270 M00S02653.copyb +++| SA1 I+CWF 03271 M00S02654.copyb +++| ZR X1,CTPX IF CONTROL WORDS DISABLED 03272 M00S02655.copyb +++| MX1 1 SET EP BIT OF INPUT FILE FET 03273 M00S02656.copyb +++| SA2 I+1 03274 M00S02657.copyb +++| LX1 44-59 03275 M00S02658.copyb +++| BX6 X1+X2 03276 M00S02659.copyb +++| SA6 A2 03277 M00S02660.copyb +++| 03278 M00S02661.copyb +++| CTP SUBR ENTRY/EXIT 03279 M00S02662.copyb +++| SB1 1 (B1) = 1 03280 M00S02663.copyb +++| SA6 CRI SAVE CALLING ROUTINE INDICATOR 03281 M00S02664.copyb +++| SX7 1RD SET DEFAULT TERMINATION CONDITION 03282 M00S02665.copyb +++| SA0 TCYA COPY ARGUMENT TABLE 03283 M00S02666.copyb +++| LX7 -6 03284 M00S02667.copyb +++| SX0 TCYAL COPY ARGUMENT TABLE LENGTH 03285 M00S02668.copyb +++| SA7 TC 03286 M00S02669.copyb +++| NG X6,CTP1 IF NOT *TCOPY* CALL 03287 M00S02670.copyb +++| SX7 1RX SET DEFAULT X FORMAT CONVERSION 03288 M00S02671.copyb +++| LX7 -6 03289 M00S02672.copyb +++| SA7 CF 03290 M00S02673.copyb +++| SX6 BUF2+1 FWA TCOPY WORKING BUFFER 03291 M00S02674.copyb +++| SA0 TTYA TCOPY ARGUMENT TABLE 03292 M00S02675.copyb +++| SA6 FWWB 03293 M00S02676.copyb +++| SX0 TTYAL TCOPY ARGUMENT TABLE LENGTH
| Line S02677 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03294 M01S02677.v23l617 ---| CTP1 RJ CCP CRACK CONTROL CARD PARAMETERS
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03295 M01S00102.v23l617 +++| CTP1 RJ CCP CRACK COMMAND PARAMETERS 03296 M00S02678.copyb +++| RJ CPV CONVERT PARAMETER VALUES 03297 M00S02679.copyb +++| SA0 I CHECK IF CONTROL WORDS ALLOWED ON INPUT 03298 M00S02680.copyb +++| RJ CDT 03299 M00S02681.copyb +++| SA0 O CHECK IF CONTROL WORDS ALLOWED ON OUTPUT 03300 M00S02682.copyb +++| RJ CDT 03301 M00S02683.copyb +++| RJ CFN CHECK FILE NAMES 03302 M00S02684.copyb +++| SA1 CRI GET CALLING ROUTINE INDICATOR 03303 M00S02685.copyb +++| NG X1,CTP2 IF *COPY* CALL 03304 M00S02686.copyb +++| RJ VTY VALIDATE TCOPY 03305 M00S02687.copyb +++| SA1 CSMR GET CHARACTER SET MODE 03306 M00S02688.copyb +++| NG X1,CTP3 IF 64-CHARACTER SET 03307 M00S02689.copyb +++| SX6 0062B SET *SI*-CODED EOL FOR 63-CHARACTER SET 03308 M00S02690.copyb +++| SA6 CELA 03309 M00S02691.copyb +++| EQ CTP3 CONTINUE PRESET 03310 M00S02692.copyb +++| TCYA SPACE 4,10
| Line S02693 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03311 M01S02693.v23l617 ---|** TCYA - TABLE OF COPY CONTROL CARD ARGUMENTS.
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03312 M01S00103.v23l617 +++|** TCYA - TABLE OF COPY COMMAND ARGUMENTS. 03313 M00S02694.copyb +++| 03314 M00S02695.copyb +++| 03315 M00S02696.copyb +++| TCYA BSS 0 03316 M00S02697.copyb +++| I ARG I,I,400B INPUT FILE 03317 M00S02698.copyb +++| O ARG O,O,400B OUTPUT FILE 03318 M00S02699.copyb +++| V ARG =0,VF,400B VERIFY OPTION 03319 M00S02700.copyb +++| M ARG =0,CM,400B CODED MODE 03320 M00S02701.copyb +++| TC ARG =0,TC TERMINATION CONDITION 03321 M00S02702.copyb +++| N ARG =0,DCT COPY COUNT 03322 M00S02703.copyb +++| BS ARG =0,BS,400B BLOCK SIZE 03323 M00S02704.copyb +++| CC ARG =0,CC,400B CHARACTER COUNT 03324 M00S02705.copyb +++| EL ARG =0,EL ERROR LIMIT 03325 M00S02706.copyb +++| PO ARG =0,PO,400B PROCESSING OPTIONS 03326 M00S02707.copyb +++| L ARG L,L,400B ALTERNATE OUTPUT FILE
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03327 M01S00104.v23l617 +++| NS ARG =0,NS,400B NOISE SIZE 03328 M00S02708.copyb +++| TCYAL EQU *-TCYA 03329 M00S02709.copyb +++| CON 0 03330 M00S02710.copyb +++| TTYA SPACE 4,10
| Line S02711 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03331 M01S02711.v23l617 ---|** TTYA - TABLE OF TCOPY CONTROL CARD ARGUMENTS.
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03332 M01S00105.v23l617 +++|** TTYA - TABLE OF TCOPY COMMAND ARGUMENTS. 03333 M00S02712.copyb +++| 03334 M00S02713.copyb +++| 03335 M00S02714.copyb +++| TTYA BSS 0 03336 M00S02715.copyb +++| I ARG I,I,400B INPUT FILE 03337 M00S02716.copyb +++| O ARG O,O,400B OUTPUT FILE 03338 M00S02717.copyb +++| F ARG =0,CF,400B CONVERSION FORMAT 03339 M00S02718.copyb +++| TC ARG =0,TC TERMINATION CONDITION 03340 M00S02719.copyb +++| N ARG =0,DCT COPY COUNT 03341 M00S02720.copyb +++| CC ARG =0,CC,400B CHARACTER COUNT 03342 M00S02721.copyb +++| EL ARG =0,EL ERROR LIMIT 03343 M00S02722.copyb +++| PO ARG =0,PO,400B PROCESSING OPTIONS 03344 M00S02723.copyb +++| L ARG L,L,400B ALTERNATE OUTPUT FILE
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03345 M01S00106.v23l617 +++| NS ARG =0,NS,400B NOISE SIZE 03346 M00S02724.copyb +++| TTYAL EQU *-TTYA 03347 M00S02725.copyb +++| CON 0 03348 M00S02726.copyb +++| PRS SPACE 4,15 03349 M00S02727.copyb +++|** PRS - PRESET FOR COPYBR, COPYBF, COPYEI, AND COPYX. 03350 M00S02728.copyb +++|* 03351 M00S02729.copyb +++|* ENTRY (X6) = -1, IF *COPYX* CALL. 03352 M00S02730.copyb +++|* = 0, IF *COPYBR* CALL. 03353 M00S02731.copyb +++|* = 1, IF *COPYBF* CALL. 03354 M00S02732.copyb +++|* = 2, IF *COPYEI* CALL. 03355 M00S02733.copyb +++|* 03356 M00S02734.copyb +++|* EXIT (B1) = 1. 03357 M00S02735.copyb +++|* TO *PER2*, IF ARGUMENT ERROR. 03358 M00S02736.copyb +++|* 03359 M00S02737.copyb +++|* USES A - 0, 1, 2, 5, 6, 7. 03360 M00S02738.copyb +++|* B - 6, 7. 03361 M00S02739.copyb +++|* X - 0, 1, 2, 3, 5, 6, 7. 03362 M00S02740.copyb +++|* 03363 M00S02741.copyb +++|* CALLS BVR, CDT, CFN, CIC, DXB, GPS, RBL, RBP, SFM, STC. 03364 M00S02742.copyb +++| 03365 M00S02743.copyb +++| 03366 M00S02744.copyb +++| PRS7 SA7 I+CWF DISABLE CONTROL WORD READ 03367 M00S02745.copyb +++| SA7 O+CWF DISABLE CONTROL WORD WRITE 03368 M00S02746.copyb +++| 03369 M00S02747.copyb +++| PRS SUBR ENTRY/EXIT 03370 M00S02748.copyb +++| SB1 1 (B1) = 1 03371 M00S02749.copyb +++| SA6 CRI SAVE CALLING ROUTINE INDICATOR 03372 M00S02750.copyb +++| SB6 X6 03373 M00S02751.copyb +++| MX0 42 03374 M00S02752.copyb +++| SA1 ACTR GET ARGUMENT COUNT 03375 M00S02753.copyb +++| SB7 X1 03376 M00S02754.copyb +++| ZR B7,PRS6 IF NO ARGUMENTS 03377 M00S02755.copyb +++| 03378 M00S02756.copyb +++|* PROCESS INPUT FILE NAME. 03379 M00S02757.copyb +++| 03380 M00S02758.copyb +++| R= A5,ARGR INPUT FILE NAME 03381 M00S02759.copyb +++| SA2 I 03382 M00S02760.copyb +++| BX7 X0*X5 03383 M00S02761.copyb +++| SX3 X2 03384 M00S02762.copyb +++| ZR X7,PRS1 IF NULL PARAMETER 03385 M00S02763.copyb +++| BX7 X7+X3 03386 M00S02764.copyb +++| SA7 A2 03387 M00S02765.copyb +++| 03388 M00S02766.copyb +++|* PROCESS OUTPUT FILE NAME. 03389 M00S02767.copyb +++| 03390 M00S02768.copyb +++| PRS1 SB7 B7-B1 03391 M00S02769.copyb +++| ZR B7,PRS6 IF END OF ARGUMENTS 03392 M00S02770.copyb +++| SA5 A5+B1 03393 M00S02771.copyb +++| SA2 O 03394 M00S02772.copyb +++| BX7 X0*X5 03395 M00S02773.copyb +++| SX3 X2 03396 M00S02774.copyb +++| ZR X7,PRS2 IF NULL PARAMETER 03397 M00S02775.copyb +++| BX7 X7+X3 03398 M00S02776.copyb +++| SA7 A2 03399 M00S02777.copyb +++| 03400 M00S02778.copyb +++|* PROCESS COPY COUNT PARAMETER, VERIFY PARAMETER, OR 03401 M00S02779.copyb +++|* TERMINATION CONDITION PARAMETERS. 03402 M00S02780.copyb +++| 03403 M00S02781.copyb +++| PRS2 SB7 B7-1 03404 M00S02782.copyb +++| ZR B7,PRS6 IF END OF ARGUMENTS 03405 M00S02783.copyb +++| GE B6,PRS3 IF NOT COPYX CALL 03406 M00S02784.copyb +++| RJ STC PROCESS TERMINATION CONDITION PARAMETERS 03407 M00S02785.copyb +++| EQ PRS5 PROCESS MODE PARAMETER 03408 M00S02786.copyb +++| 03409 M00S02787.copyb +++| PRS3 SA5 A5+B1 03410 M00S02788.copyb +++| BX5 X0*X5 03411 M00S02789.copyb +++| ZR X5,PRS5 IF NULL PARAMETER 03412 M00S02790.copyb +++| GT B6,B1,PRS4 IF COPYEI CALL 03413 M00S02791.copyb +++| BX6 X5 03414 M00S02792.copyb +++| SA6 DCT SAVE DISPLAY CODE COPY COUNT 03415 M00S02793.copyb +++| RJ DXB CONVERT COPY COUNT 03416 M00S02794.copyb +++| NZ X4,PER2 IF CONVERSION ERROR
| Line S02795 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03417 M01S02795.v23l617 ---| ZR X6,PER2 IF ILLEGAL COUNT
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03418 M01S00107.v23l617 +++| ZR X6,PER2 IF INCORRECT COUNT 03419 M00S02796.copyb +++| SA6 CT 03420 M00S02797.copyb +++| EQ PRS5 PROCESS MODE PARAMETER 03421 M00S02798.copyb +++| 03422 M00S02799.copyb +++| PRS4 SX6 B1+ SET VERIFY FLAG 03423 M00S02800.copyb +++| SA6 VF 03424 M00S02801.copyb +++| 03425 M00S02802.copyb +++|* PROCESS MODE PARAMETER. 03426 M00S02803.copyb +++| 03427 M00S02804.copyb +++| PRS5 SB7 B7-B1 03428 M00S02805.copyb +++| ZR B7,PRS6 IF END OF ARGUMENTS 03429 M00S02806.copyb +++| SA5 A5+B1 03430 M00S02807.copyb +++| MX0 42 03431 M00S02808.copyb +++| SB7 B7-B1 03432 M00S02809.copyb +++| BX5 X0*X5 03433 M00S02810.copyb +++| SX6 -B1 03434 M00S02811.copyb +++| NZ B7,PER2 IF TOO MANY ARGUMENTS 03435 M00S02812.copyb +++| ZR X5,PRS6 IF NULL PARAMETER 03436 M00S02813.copyb +++| SA6 CM SET CODED MODE FLAG (BOTH FILES) 03437 M00S02814.copyb +++| PRS6 SA0 I CHECK IF CONTROL WORDS ALLOWED ON INPUT 03438 M00S02815.copyb +++| RJ CDT 03439 M00S02816.copyb +++| SA0 O CHECK IF CONTROL WORDS ALLOWED ON OUTPUT 03440 M00S02817.copyb +++| RJ CDT 03441 M00S02818.copyb +++| RJ SFM SET FILE MODE 03442 M00S02819.copyb +++| RJ CFN CHECK FILE NAMES 03443 M00S02820.copyb +++| RJ CIC CHECK FOR INDETERMINATE COPY
| Line S02821 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03444 M01S02821.274l797 ---| SA1 CRI GET CALLING ROUTINE INDICATOR 03445 M01S02822.274l797 ---| BX7 X7-X7 03446 M01S02823.274l797 ---| SB6 X1 03447 M01S02824.274l797 ---| LE B6,PRS7 IF COPYBR OR COPYX CALL 03448 M00S02825.copyb +++| SA0 I GET INPUT PRU SIZE 03449 M00S02826.copyb +++| RJ GPS 03450 M00S02827.copyb +++| SA0 O GET OUTPUT PRU SIZE 03451 M00S02828.copyb +++| RJ GPS
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03452 M01S00115.274l797 +++| SA1 CRI GET CALLING ROUTINE INDICATOR 03453 M01S00116.274l797 +++| BX7 X7-X7 03454 M01S00117.274l797 +++| SB6 X1 03455 M01S00118.274l797 +++| LE B6,PRS7 IF COPYBR OR COPYX CALL 03456 M00S02829.copyb +++| RJ RBL RESET BUFFER LENGTHS 03457 M00S02830.copyb +++| RJ RBP RESET BUFFER POINTERS 03458 M00S02831.copyb +++| RJ BVR BUILD VERIFY REQUEST 03459 M00S02832.copyb +++| EQ PRSX RETURN 03460 M00S02833.copyb +++| TITLE PRESET SUBROUTINES. 03461 M00S02834.copyb +++| AEM SPACE 4,10 03462 M00S02835.copyb +++|** AEM - ADJUST ERROR MESSAGES. 03463 M00S02836.copyb +++|* 03464 M00S02837.copyb +++|* EXIT ERROR MESSAGES ADJUSTED FOR TYPE OF COPY. 03465 M00S02838.copyb +++|* 03466 M00S02839.copyb +++|* USES A - 1, 2, 3, 5, 6, 7. 03467 M00S02840.copyb +++|* X - 1, 2, 3, 5, 6, 7. 03468 M00S02841.copyb +++|* 03469 M00S02842.copyb +++|* CALLS SFN. 03470 M00S02843.copyb +++| 03471 M00S02844.copyb +++| 03472 M00S02845.copyb +++| AEM SUBR ENTRY/EXIT
| Line S02846 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03473 M01S02846.v23l617 ---| SA5 NPDI NOISE BLOCKS PADDED/DELETED INDICATOR 03474 M01S02847.v23l617 ---| SA3 =10H 03475 M01S02848.v23l617 ---| SA2 =0LDELETED. 03476 M01S02849.v23l617 ---| SA1 CCDR+8 03477 M01S02850.v23l617 ---| BX6 X3 03478 M01S02851.v23l617 ---| ZR X5,AEM1 IF NOISE BLOCKS TO BE PADDED 03479 M01S02852.v23l617 ---| BX7 X2 ADJUST NOISE BLOCK SUMMARY MESSAGE
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03480 M01S00108.v23l617 +++| SA3 =10H 03481 M01S00109.v23l617 +++| SA2 =0LDELETED. 03482 M01S00110.v23l617 +++| SA1 CCDR+8 03483 M01S00111.v23l617 +++| BX6 X3 03484 M01S00112.v23l617 +++| SA5 NSFG 03485 M01S00113.v23l617 +++| NZ X5,AEM0 IF NOISE BLOCK TO BE DELETED 03486 M01S00114.v23l617 +++| SA5 NPDI 03487 M01S00115.v23l617 +++| ZR X5,AEM1 IF NOISE BLOCK TO BE PADDED 03488 M01S00116.v23l617 +++| AEM0 BX7 X2 ADJUST NOISE BLOCK SUMMARY MESSAGE 03489 M00S02853.copyb +++| SA7 IESD+3
| Line S02854 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03490 M01S02854.v23l617 ---| AEM1 SA1 A1-B1 BLANK FILL CONTROL CARD IMAGE
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03491 M01S00117.v23l617 +++| AEM1 SA1 A1-B1 BLANK FILL COMMAND IMAGE 03492 M00S02855.copyb +++| SA6 A1
| Line S02856 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03493 M01S02856.v23l617 ---| ZR X1,AEM1 IF NOT END OF CONTROL CARD 03494 M01S02857.v23l617 ---| RJ SFN BLANK FILL LAST WORD OF CONTROL CARD
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03495 M01S00118.v23l617 +++| ZR X1,AEM1 IF NOT END OF COMMAND 03496 M01S00119.v23l617 +++| RJ SFN BLANK FILL LAST WORD OF COMMAND 03497 M00S02858.copyb +++| SA6 A1 03498 M00S02859.copyb +++| EQ AEMX RETURN 03499 M00S02860.copyb +++| BVR SPACE 4,15 03500 M00S02861.copyb +++|** BVR - BUILD VERIFY REQUEST. 03501 M00S02862.copyb +++|* 03502 M00S02863.copyb +++|* EXIT IF VERIFY REQUESTED, VERIFY PARAMETERS BUILT,
| Line S02864 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03503 M01S02864.v23l617 ---|* VERIFY CONTROL CARD DAYFILE MESSAGE BUILT,
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03504 M01S00120.v23l617 +++|* VERIFY COMMAND DAYFILE MESSAGE BUILT, 03505 M00S02865.copyb +++|* AND INPUT AND OUTPUT FILES ARE REWOUND. 03506 M00S02866.copyb +++|* 03507 M00S02867.copyb +++|* USES A - 1, 2, 3, 6, 7. 03508 M00S02868.copyb +++|* B - 2, 3, 5, 6. 03509 M00S02869.copyb +++|* X - 0, 1, 2, 3, 5, 6, 7. 03510 M00S02870.copyb +++|* 03511 M00S02871.copyb +++|* CALLS CDD, CIO=, SNM. 03512 M00S02872.copyb +++| 03513 M00S02873.copyb +++| 03514 M00S02874.copyb +++| BVR7 SX6 B0+ CLEAR VERIFY FLAG 03515 M00S02875.copyb +++| SA6 VF 03516 M00S02876.copyb +++| 03517 M00S02877.copyb +++| BVR SUBR ENTRY/EXIT 03518 M00S02878.copyb +++| SA2 VF 03519 M00S02879.copyb +++| ZR X2,BVRX IF VERIFY NOT REQUESTED 03520 M00S02880.copyb +++| REWIND I REWIND FILES 03521 M00S02881.copyb +++| SA1 SK 03522 M00S02882.copyb +++| NZ X1,BVR7 IF SKIP SET 03523 M00S02883.copyb +++| REWIND O 03524 M00S02884.copyb +++| SA1 I GET INPUT FILE NAME
| Line S02885 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03525 M01S02885.v23l617 ---| SB5 VFYC BUILD VERIFY CONTROL CARD MESSAGE
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03526 M01S00121.v23l617 +++| SB5 VFYC BUILD VERIFY COMMAND MESSAGE 03527 M00S02886.copyb +++| MX5 42 03528 M00S02887.copyb +++| BX1 X5*X1 03529 M00S02888.copyb +++| SB2 1RX 03530 M00S02889.copyb +++| RJ SNM SET INPUT FLE NAME IN MESSAGE 03531 M00S02890.copyb +++| SA1 O GET OUTPUT FILE NAME 03532 M00S02891.copyb +++| SB2 1R+ 03533 M00S02892.copyb +++| BX1 X5*X1 03534 M00S02893.copyb +++| RJ SNM SET OUTPUT FILE NAME IN MESSAGE 03535 M00S02894.copyb +++| SA1 L GET ALTERNATE OUTPUT FILE NAME
| Line S02895 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03536 M01S02895.v23l617 ---| SB6 VFYA+4 BUILD VERIFY CONTROL CARD PARAMETERS
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03537 M01S00122.v23l617 +++| SB6 VFYA+4 BUILD VERIFY COMMAND PARAMETERS 03538 M00S02896.copyb +++| BX1 X5*X1 03539 M00S02897.copyb +++| SB2 1R/ 03540 M00S02898.copyb +++| LX6 X1 03541 M00S02899.copyb +++| SA6 B6-B1 03542 M00S02900.copyb +++| RJ SNM SET ALTERNATE OUTPUT FILE NAME IN MESSAGE 03543 M00S02901.copyb +++| SA3 TC 03544 M00S02902.copyb +++| SX0 1R= 03545 M00S02903.copyb +++| SX5 1R, 03546 M00S02904.copyb +++| PL X3,BVR1 IF NOT COPY TO EOI 03547 M00S02905.copyb +++| SX6 1RN 03548 M00S02906.copyb +++| LX6 -6 03549 M00S02907.copyb +++| BX1 X1-X1 03550 M00S02908.copyb +++| EQ BVR2 CHECK CODED MODE 03551 M00S02909.copyb +++| 03552 M00S02910.copyb +++| BVR1 SX6 1R0 03553 M00S02911.copyb +++| SB6 B6+1 03554 M00S02912.copyb +++| LX6 -6 03555 M00S02913.copyb +++| SA2 DCT DISPLAY CODE COPY COUNT 03556 M00S02914.copyb +++| BX1 X6+X0 03557 M00S02915.copyb +++| ZR X3,BVR2 IF COPY TO DOUBLE EOF 03558 M00S02916.copyb +++| LX6 X2 03559 M00S02917.copyb +++| BX1 X2+X0 03560 M00S02918.copyb +++| BVR2 SA6 B6 03561 M00S02919.copyb +++| LX1 -6 03562 M00S02920.copyb +++| SB2 1R( 03563 M00S02921.copyb +++| RJ SNM SET TERMINATION CONDITION IN MESSAGE 03564 M00S02922.copyb +++| SA2 CM 03565 M00S02923.copyb +++| SB6 B6+B1 03566 M00S02924.copyb +++| BX1 X1-X1 03567 M00S02925.copyb +++| ZR X2,BVR4 IF NOT CODED MODE 03568 M00S02926.copyb +++| SX6 2RC1 03569 M00S02927.copyb +++| SB2 X2 03570 M00S02928.copyb +++| EQ B2,B1,BVR3 IF FIRST FILE ONLY 03571 M00S02929.copyb +++| SX6 X6+B1 03572 M00S02930.copyb +++| GT B2,B1,BVR3 IF SECOND FILE ONLY 03573 M00S02931.copyb +++| AX6 6 03574 M00S02932.copyb +++| LX6 6 03575 M00S02933.copyb +++| BVR3 LX6 -12 03576 M00S02934.copyb +++| BX1 X6+X5 03577 M00S02935.copyb +++| SA6 B6 03578 M00S02936.copyb +++| SB6 B6+B1 03579 M00S02937.copyb +++| BVR4 SB2 1R$ 03580 M00S02938.copyb +++| LX1 -6 03581 M00S02939.copyb +++| RJ SNM SET MODE PARAMETER IN MESSAGE 03582 M00S02940.copyb +++| SA1 I+SLF 03583 M00S02941.copyb +++| SA2 O+SLF 03584 M00S02942.copyb +++| SB2 X1 03585 M00S02943.copyb +++| SB3 X2 03586 M00S02944.copyb +++| SA1 I+PRU 03587 M00S02945.copyb +++| BX3 X3-X3 03588 M00S02946.copyb +++| GT B2,BVR5 IF INPUT IS S OR L TAPE 03589 M00S02947.copyb +++| SA1 O+PRU 03590 M00S02948.copyb +++| LE B3,BVR6 IF OUTPUT NOT S OR L TAPE 03591 M00S02949.copyb +++| BVR5 RJ CDD CONVERT PRU SIZE TO DISPLAY 03592 M00S02950.copyb +++| SB2 B2-B1 BUILD BS= PARAMETER 03593 M00S02951.copyb +++| MX2 1 03594 M00S02952.copyb +++| SX7 2RBS 03595 M00S02953.copyb +++| AX2 B2 03596 M00S02954.copyb +++| LX7 -12 03597 M00S02955.copyb +++| BX6 X2*X4 03598 M00S02956.copyb +++| BX3 X7+X5 03599 M00S02957.copyb +++| SA6 B6+B1 03600 M00S02958.copyb +++| BX7 X7+X0 03601 M00S02959.copyb +++| LX3 -6 03602 M00S02960.copyb +++| BX6 X6+X0 03603 M00S02961.copyb +++| SA7 B6+ 03604 M00S02962.copyb +++| LX6 -24 03605 M00S02963.copyb +++| BX3 X3+X6 03606 M00S02964.copyb +++| BVR6 SB2 1R) 03607 M00S02965.copyb +++| BX1 X3 03608 M00S02966.copyb +++| RJ SNM SET BLOCK SIZE IN MESSAGE 03609 M00S02967.copyb +++| EQ BVRX RETURN 03610 M00S02968.copyb +++| CCP SPACE 4,15
| Line S02969 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03611 M01S02969.v23l617 ---|** CCP - CRACK CONTROL CARD PARAMETERS.
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03612 M01S00123.v23l617 +++|** CCP - CRACK THE COMMAND PARAMETERS. 03613 M00S02970.copyb +++|* 03614 M00S02971.copyb +++|* ENTRY (A0) = FWA ARGUMENT TABLE. 03615 M00S02972.copyb +++|* (X0) = ARGUMENT TABLE LENGTH. 03616 M00S02973.copyb +++|* 03617 M00S02974.copyb +++|* EXIT TO *PER2*, IF ARGUMENT ERROR. 03618 M00S02975.copyb +++|* 03619 M00S02976.copyb +++|* USES A - 6. 03620 M00S02977.copyb +++|* B - 2, 3, 4, 6. 03621 M00S02978.copyb +++|* X - 6. 03622 M00S02979.copyb +++|* 03623 M00S02980.copyb +++|* CALLS ARM, CPA, POP, USB. 03624 M00S02981.copyb +++| 03625 M00S02982.copyb +++| 03626 M00S02983.copyb +++| CCP SUBR ENTRY/EXIT
| Line S02984 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03627 M01S02984.v23l617 ---| SB2 CCDR UNPACK CONTROL STATEMENT
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03628 M01S00124.v23l617 +++| SB2 CCDR UNPACK COMMAND 03629 M00S02985.copyb +++| RJ USB 03630 M00S02986.copyb +++| RJ POP SKIP OVER PROGRAM NAME 03631 M00S02987.copyb +++| ZR B6,CCPX IF NO ARGUMENTS 03632 M00S02988.copyb +++| SB2 X0 ARGUMENT TABLE LENGTH 03633 M00S02989.copyb +++| SB3 A0 FWA ARGUMENT TABLE 03634 M00S02990.copyb +++| SB4 PASB POSITIONAL ARGUMENT STRING BUFFER 03635 M00S02991.copyb +++| RJ CPA CONVERT TO POSITIONAL ARGUMENTS 03636 M00S02992.copyb +++| NG B5,PER2 IF CONVERSION ERROR 03637 M00S02993.copyb +++| PL X1,CCPX IF NO ARGUMENTS PROCESSED 03638 M00S02994.copyb +++| SX6 B5+ LWA POSITIONAL ARGUMENT STRING 03639 M00S02995.copyb +++| SB6 PASB FWA POSITIONAL ARGUMENT STRING 03640 M00S02996.copyb +++| SA6 USBC
| Line S02997 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03641 M01S02997.v23l617 ---| RJ ARM CRACK CONTROL CARD PARAMETERS
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03642 M01S00125.v23l617 +++| RJ ARM CRACK COMMAND PARAMETERS 03643 M00S02998.copyb +++| NZ X1,PER2 IF ARGUMENT ERROR 03644 M00S02999.copyb +++| EQ CCPX RETURN 03645 M00S03000.copyb +++| CDT SPACE 4,15 03646 M00S03001.copyb +++|** CDT - CHECK DEVICE TYPE. 03647 M00S03002.copyb +++|* 03648 M00S03003.copyb +++|* ENTRY (A0) = FWA FET. 03649 M00S03004.copyb +++|* 03650 M00S03005.copyb +++|* EXIT ((A0)+CWF) .NE. 0, IF CONTROL WORDS ALLOWED. 03651 M00S03006.copyb +++|* ((A0)+SLF) = -1, IF F FORMAT TAPE. 03652 M00S03007.copyb +++|* = 1, IF S FORMAT TAPE. 03653 M00S03008.copyb +++|* = 2, IF L FORMAT TAPE. 03654 M00S03009.copyb +++|* ((A0)+NSZ) = NOISE SIZE IN FRAMES, IF TAPE FILE.
| Line S03010 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03655 M01S03010.274l797 ---|* ((A0)+TRK) = TRACK AND LABEL TYPE, IF TAPE FILE.
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03656 M01S00119.274l797 +++|* ((A0)+TRK) = TRACK BITS, TAPE TYPE AND LABEL TYPE, 03657 M01S00120.274l797 +++|* IF TAPE FILE. 03658 M00S03011.copyb +++|* ((A0)+PRU) = PRU SIZE, IF F FORMAT TAPE. 03659 M00S03012.copyb +++|* WARNING MESSAGE ISSUED IF INPUT FILE NOT FOUND. 03660 M00S03013.copyb +++|* 03661 M00S03014.copyb +++|* USES A - 1, 2, 3, 6, 7. 03662 M00S03015.copyb +++|* B - 2, 5. 03663 M00S03016.copyb +++|* X - 0, 1, 2, 3, 6, 7. 03664 M00S03017.copyb +++|* 03665 M00S03018.copyb +++|* CALLS GPS, SNM. 03666 M00S03019.copyb +++|* 03667 M00S03020.copyb +++|* MACROS FILINFO, MESSAGE. 03668 M00S03021.copyb +++| 03669 M00S03022.copyb +++| 03670 M00S03023.copyb +++| CDT4 RJ GPS CHECK FOR TERMINAL FILE 03671 M00S03024.copyb +++| SA3 A0+B1 GET DEVICE TYPE 03672 M00S03025.copyb +++| MX2 -11 03673 M00S03026.copyb +++| LX3 12 03674 M00S03027.copyb +++| BX3 -X2*X3 03675 M00S03028.copyb +++| SX7 X3-2RTT 03676 M00S03029.copyb +++| SX2 A0-I 03677 M00S03030.copyb +++| ZR X7,CDTX IF TERMINAL FILE 03678 M00S03031.copyb +++| NZ X2,CDT5 IF NOT INPUT FILE 03679 M00S03032.copyb +++| SA1 A0 GET INPUT FILE NAME 03680 M00S03033.copyb +++| SB5 -CDTA * FILE NOT FOUND - LFN.* 03681 M00S03034.copyb +++| BX1 X0*X1 03682 M00S03035.copyb +++| SB2 1RX
| Line S03036 Modification History | |
|---|---|
M01 (Removed by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 03683 M01S03036.ns2701 ---| SB3 ENDC REPLACE * EOI ENCOUNTERED.* MESSAGE
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | ns2701 |
Seq # *Modification Id* Act ----------------------------+ 03684 M01S00200.ns2701 +++| SX6 1 03685 M01S00201.ns2701 +++| SB3 ENDF REPLACE COPY COUNT MESSAGE 03686 M01S00202.ns2701 +++| SA6 ENDG FLAG *FILE NOT FOUND* 03687 M00S03037.copyb +++| RJ SNM SET NAME IN MESSAGE 03688 M00S03038.copyb +++| CDT5 SX7 B1+ ENABLE CONTROL WORDS 03689 M00S03039.copyb +++| SA7 A0+CWF 03690 M00S03040.copyb +++| 03691 M00S03041.copyb +++| CDT SUBR ENTRY/EXIT 03692 M00S03042.copyb +++| SA1 A0 SET FILE NAME IN PARAMETER BLOCK 03693 M00S03043.copyb +++| MX0 42 03694 M00S03044.copyb +++| SA2 CDTB 03695 M00S03045.copyb +++| BX1 X0*X1 03696 M00S03046.copyb +++| SX2 X2 03697 M00S03047.copyb +++| BX6 X1+X2 03698 M00S03048.copyb +++| SA6 A2 03699 M00S03049.copyb +++| FILINFO CDTB GET FILE INFORMATION 03700 M00S03050.copyb +++| SA1 CDTB+1 GET DEVICE TYPE AND STATUS 03701 M00S03051.copyb +++| BX3 X1 03702 M00S03052.copyb +++| AX3 48 03703 M00S03053.copyb +++| ZR X3,CDT4 IF FILE NOT FOUND
| Line S03054 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03704 M01S03054.274l797 ---| SX2 X3-2RNE
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03705 M01S00121.274l797 +++| SX2 X3-2ROD OPTICAL DISK DEVICE TYPE 03706 M01S00122.274l797 +++| NZ X2,CDT1 IF NOT OD DEVICE 03707 M01S00123.274l797 +++| SX7 FETODL OD FET EXTENSION LENGTH 03708 M01S00124.274l797 +++| SX2 A0+12B BUILD POINTER TO FET EXTENSION 03709 M01S00125.274l797 +++| LX7 18 03710 M01S00126.274l797 +++| BX7 X2+X7 03711 M01S00127.274l797 +++| SA7 A0+11B STORE POINTER AND LENGTH 03712 M01S00128.274l797 +++| SX7 3 INDICATE OPTICAL DISK FILE 03713 M01S00129.274l797 +++| SA7 A0+ODF 03714 M01S00130.274l797 +++| EQ CDT5 ENABLE CONTROL WORDS 03715 M01S00131.274l797 +++| 03716 M01S00132.274l797 +++| CDT1 SX2 X3-2RNE 03717 M00S03055.copyb +++| LX1 59-15 03718 M00S03056.copyb +++| NG X1,CDT5 IF FILE ON MASS STORAGE
| Line S03057 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03719 M01S03057.274l797 ---| LX1 59-19-59+15 03720 M01S03058.274l797 ---| LX7 X1,B1
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03721 M01S00133.274l797 +++| LX1 59-24-59+15 03722 M00S03059.copyb +++| ZR X2,CDT5 IF NULL EQUIPMENT
| Line S03060 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03723 M01S03060.274l797 ---| NG X1,CDT2 IF 9-TRACK TAPE 03724 M01S03061.274l797 ---| PL X7,CDTX IF NOT 7-TRACK TAPE 03725 M01S03062.274l797 ---| CDT2 MX6 2
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03726 M01S00134.274l797 +++| PL X1,CDTX IF NOT TAPE FILE 03727 M01S00135.274l797 +++| MX0 2 03728 M01S00136.274l797 +++| LX1 59-19-59+24 03729 M01S00137.274l797 +++| BX6 X0*X1 ISOLATE NT/MT FLAGS 03730 M01S00138.274l797 +++| LX1 59-26-59+19 03731 M00S03063.copyb +++| SA2 CDTB+FIPBL+1 GET LABEL TYPE
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03732 M01S00139.274l797 +++| BX1 X0*X1 ISOLATE TAPE DEVICE TYPE 03733 M01S00140.274l797 +++| LX1 -2 03734 M01S00141.274l797 +++| BX6 X6+X1 03735 M01S00142.274l797 +++| SA3 A2-B1 GET TAPE FORMAT 03736 M01S00143.274l797 +++| LX2 -12 03737 M00S03064.copyb +++| MX0 -6
| Line S03065 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03738 M01S03065.274l797 ---| LX2 -12 03739 M01S03066.274l797 ---| BX6 X6*X1 GET TRACK BITS 03740 M01S03067.274l797 ---| SA3 A2-B1 GET TAPE FORMAT 03741 M00S03068.copyb +++| BX2 -X0*X2 03742 M00S03069.copyb +++| SA1 A2+B1 GET BLOCK SIZE AND NOISE SIZE 03743 M00S03070.copyb +++| LX3 -6 03744 M00S03071.copyb +++| BX6 X6+X2 03745 M00S03072.copyb +++| LX1 -6
| Line S03073 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03746 M01S03073.274l797 ---| SA6 A0+TRK SAVE TRACK BITS AND LABEL TYPE
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03747 M01S00144.274l797 +++| SA6 A0+TRK SAVE TRACK BITS, TAPE TYPE AND LABEL TYPE 03748 M00S03074.copyb +++| BX3 -X0*X3 03749 M00S03075.copyb +++| BX6 -X0*X1 03750 M00S03076.copyb +++| SA6 A0+NSZ SAVE NOISE SIZE
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03751 M01S00145.274l797 +++| SX7 B1 03752 M01S00146.274l797 +++| SX2 X3-/MTX/TFLI 03753 M01S00147.274l797 +++| ZR X2,CDT5 IF LI FORMAT TAPE 03754 M00S03077.copyb +++| SX2 X3-/MTX/TFS
| Line S03078 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03755 M01S03078.274l797 ---| SX7 B1 03756 M01S03079.274l797 ---| ZR X2,CDT3 IF S TAPE 03757 M01S03080.274l797 ---| SX7 B1+B1
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03758 M01S00148.274l797 +++| ZR X2,CDT3 IF S FORMAT TAPE 03759 M01S00149.274l797 +++| SX7 2 03760 M00S03081.copyb +++| SX2 X3-/MTX/TFL
| Line S03082 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03761 M01S03082.274l797 ---| ZR X2,CDT3 IF L TAPE
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03762 M01S00150.274l797 +++| ZR X2,CDT3 IF L FORMAT TAPE 03763 M00S03083.copyb +++| SX7 -1 03764 M00S03084.copyb +++| SX2 X3-/MTX/TFF
| Line S03085 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03765 M01S03085.274l797 ---| NZ X2,CDT5 IF NOT F TAPE
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03766 M01S00151.274l797 +++| NZ X2,CDT5 IF NOT F FORMAT TAPE 03767 M00S03086.copyb +++| LX1 -18 03768 M00S03087.copyb +++| SX6 X1 03769 M00S03088.copyb +++| SA6 A0+PRU SET F TAPE PRU SIZE 03770 M00S03089.copyb +++| CDT3 SA7 A0+SLF SET S/L/F TAPE INDICATOR
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03771 M01S00152.274l797 +++| SA7 A0+ODF SET S/L/F/OD INDICATOR 03772 M00S03090.copyb +++| EQ CDT5 SET CONTROL WORD FLAG 03773 M00S03091.copyb +++| 03774 M00S03092.copyb +++| 03775 M00S03093.copyb +++| CDTA DATA C* FILE NOT FOUND - XXXXXXX.* 03776 M00S03094.copyb +++| 03777 M00S03095.copyb +++| CDTB VFD 42/0,6/CDTBL,12/1 *FILINFO* PARAMETER BLOCK 03778 M00S03096.copyb +++| BSS FIPBL-1 03779 M00S03097.copyb +++| CON FMTK TAPE FORMAT KEYWORD 03780 M00S03098.copyb +++| CON LTYK TAPE LABEL TYPE KEYWORD 03781 M00S03099.copyb +++| CON BSZK TAPE BLOCK SIZE, NOISE SIZE KEYWORD 03782 M00S03100.copyb +++| CDTBL EQU *-CDTB 03783 M00S03101.copyb +++| CFN SPACE 4,10 03784 M00S03102.copyb +++|** CFN - CHECK FILE NAMES. 03785 M00S03103.copyb +++|* 03786 M00S03104.copyb +++|* EXIT SKIP FLAG SET IF INPUT FILE NAME SAME AS OUTPUT 03787 M00S03105.copyb +++|* FILE NAME. 03788 M00S03106.copyb +++|* TO *PER1*, IF ALTERNATE OUTPUT FILE NAME CONFLICT. 03789 M00S03107.copyb +++|* 03790 M00S03108.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 03791 M00S03109.copyb +++|* B - 5. 03792 M00S03110.copyb +++|* X - 0, 1, 2, 3, 4, 6, 7. 03793 M00S03111.copyb +++| 03794 M00S03112.copyb +++| 03795 M00S03113.copyb +++| CFN SUBR ENTRY/EXIT 03796 M00S03114.copyb +++| SA1 I COMPARE FILE NAMES 03797 M00S03115.copyb +++| SA4 O 03798 M00S03116.copyb +++| MX0 42 03799 M00S03117.copyb +++| BX1 X0*X1 03800 M00S03118.copyb +++| SA3 L 03801 M00S03119.copyb +++| BX4 X0*X4 03802 M00S03120.copyb +++| SA2 =10H SKIPPING SET SKIP FLAG AND MESSAGE 03803 M00S03121.copyb +++| BX7 X1-X4 03804 M00S03122.copyb +++| LX6 X2 03805 M00S03123.copyb +++| NZ X7,CFN1 IF INPUT .NE. OUTPUT FILE NAME 03806 M00S03124.copyb +++| SX7 B1 03807 M00S03125.copyb +++| SA6 DRNA 03808 M00S03126.copyb +++| SA7 SK 03809 M00S03127.copyb +++| SA6 PEFB 03810 M00S03128.copyb +++| CFN1 SA2 SEWI SKIP EOF WRITE INDICATOR 03811 M00S03129.copyb +++| SB5 PERE * FILE NAME CONFLICT.* 03812 M00S03130.copyb +++| ZR X2,CFN2 IF PO=M NOT SELECTED 03813 M00S03131.copyb +++| SA6 PEFB 03814 M00S03132.copyb +++| CFN2 SX6 A3 SET ALTERNATE OUTPUT FILE POINTER 03815 M00S03133.copyb +++| BX3 X0*X3 03816 M00S03134.copyb +++| SX7 A4 SET OUTPUT FILE POINTER 03817 M00S03135.copyb +++| BX6 X6+X3 03818 M00S03136.copyb +++| SA2 EL CHECK IF ALTERNATE OUTPUT FILE TO BE USED 03819 M00S03137.copyb +++| BX7 X7+X4 03820 M00S03138.copyb +++| R= A6,ARGR 03821 M00S03139.copyb +++| BX1 X1-X3 03822 M00S03140.copyb +++| SA7 A6+B1 03823 M00S03141.copyb +++| ZR X2,CFNX IF ERROR LIMIT = 0 03824 M00S03142.copyb +++| ZR X1,PER1 IF ALTERNATE OUTPUT = INPUT FILE NAME 03825 M00S03143.copyb +++| BX7 X4-X3 03826 M00S03144.copyb +++| ZR X7,PER1 IF ALTERNATE OUTPUT = OUTPUT FILE NAME 03827 M00S03145.copyb +++| EQ CFNX RETURN 03828 M00S03146.copyb +++| CIC SPACE 4,15 03829 M00S03147.copyb +++|** CIC - CHECK FOR INDETERMINATE COPY. 03830 M00S03148.copyb +++|* 03831 M00S03149.copyb +++|* EXIT WARNING MESSAGE ISSUED IF S, L, OR F TAPE COPY. 03832 M00S03150.copyb +++|* L TAPE PRU SIZE LIMITED IF COPYBF OR COPYEI CALL. 03833 M00S03151.copyb +++|* TO *PER*, IF F TAPE PRU SIZE .GT. WORKING BUFFER SIZE. 03834 M00S03152.copyb +++|* 03835 M00S03153.copyb +++|* USES A - 1, 2, 3, 6. 03836 M00S03154.copyb +++|* B - 2, 3, 4. 03837 M00S03155.copyb +++|* X - 0, 1, 2, 3, 6. 03838 M00S03156.copyb +++|* 03839 M00S03157.copyb +++|* CALLS SYS=. 03840 M00S03158.copyb +++| 03841 M00S03159.copyb +++| 03842 M00S03160.copyb +++| CIC SUBR ENTRY/EXIT 03843 M00S03161.copyb +++| SA1 I+SLF 03844 M00S03162.copyb +++| SA2 O+SLF 03845 M00S03163.copyb +++| NZ X1,CIC1 IF S, L, OR F TAPE INPUT 03846 M00S03164.copyb +++| ZR X2,CICX IF OUTPUT NOT S, L, OR F TAPE 03847 M00S03165.copyb +++| CIC1 SA3 CRI GET CALLING ROUTINE INDICATOR 03848 M00S03166.copyb +++| SB4 X2 03849 M00S03167.copyb +++| SB2 X3 03850 M00S03168.copyb +++| SB3 X1+ 03851 M00S03169.copyb +++| LE B2,CIC5 IF COPYBR OR COPYX CALL 03852 M00S03170.copyb +++| SX6 BUFL-3 LIMIT L TAPE PRU SIZE TO WORKING BUFFER 03853 M00S03171.copyb +++| LE B3,B1,CIC2 IF INPUT NOT L TAPE 03854 M00S03172.copyb +++| SA6 I+6 SET MLRS FIELD IN INPUT FET 03855 M00S03173.copyb +++| CIC2 LE B4,B1,CIC3 IF OUTPUT NOT L TAPE 03856 M00S03174.copyb +++| SA6 O+6 SET MLRS FIELD OF OUTPUT FET 03857 M00S03175.copyb +++| CIC3 SB5 PERB * BLOCK SIZE TOO LARGE ON LFN.* 03858 M00S03176.copyb +++| GE B3,CIC4 IF INPUT NOT F TAPE 03859 M00S03177.copyb +++| SA2 I+PRU GET INPUT FILE PRU SIZE 03860 M00S03178.copyb +++| IX2 X6-X2 03861 M00S03179.copyb +++| SA1 I 03862 M00S03180.copyb +++| NG X2,PER IF F TAPE PRU SIZE EXCEEDS WORKING BUFFER 03863 M00S03181.copyb +++| CIC4 GE B4,CIC5 IF OUTPUT NOT F TAPE 03864 M00S03182.copyb +++| SA3 O+PRU GET OUTPUT FILE PRU SIZE 03865 M00S03183.copyb +++| SA1 O 03866 M00S03184.copyb +++| IX3 X6-X3 03867 M00S03185.copyb +++| NG X3,PER IF F TAPE PRU SIZE EXCEEDS WORKING BUFFER 03868 M00S03186.copyb +++| CIC5 MESSAGE CICA,3 * COPY INDETERMINATE.* 03869 M00S03187.copyb +++| EQ CICX RETURN 03870 M00S03188.copyb +++| 03871 M00S03189.copyb +++| 03872 M00S03190.copyb +++| CICA DATA C* COPY INDETERMINATE.* 03873 M00S03191.copyb +++| CNS SPACE 4,15 03874 M00S03192.copyb +++|** CNS - CALCULATE NOISE SIZE. 03875 M00S03193.copyb +++|* 03876 M00S03194.copyb +++|* ENTRY (A0) = FWA FET. 03877 M00S03195.copyb +++|* ((A0)+NSZ) = NOISE SIZE IN FRAMES. 03878 M00S03196.copyb +++|* 03879 M00S03197.copyb +++|* EXIT ((A0)+NSZ) = 24/NOISE SIZE IN BITS, 03880 M00S03198.copyb +++|* 18/MINIMUM NUMBER OF CHARACTERS IN LAST WORD, 03881 M00S03199.copyb +++|* 18/MINIMUM NUMBER OF WORDS FOR NOISE SIZE, 03882 M00S03200.copyb +++|* IF S, L, OR F TAPE. 03883 M00S03201.copyb +++|* (X6) = NOISE SIZE IN BITS, IF S, L, OR F TAPE. 03884 M00S03202.copyb +++|* 03885 M00S03203.copyb +++|* USES A - 1, 2, 3, 7. 03886 M00S03204.copyb +++|* B - 7. 03887 M00S03205.copyb +++|* X - 1, 2, 3, 4, 6, 7. 03888 M00S03206.copyb +++| 03889 M00S03207.copyb +++| 03890 M00S03208.copyb +++| CNS SUBR ENTRY/EXIT 03891 M00S03209.copyb +++| SA3 A0+SLF 03892 M00S03210.copyb +++| SA1 A0+NSZ GET NOISE SIZE IN FRAMES 03893 M00S03211.copyb +++| ZR X3,CNSX IF NOT S, L, OR F TAPE 03894 M00S03212.copyb +++| SA2 A0+TRK GET TRACK BITS
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03895 M01S00153.274l797 +++| LX2 59-56 03896 M01S00154.274l797 +++| NG X2,CNSX IF CT OR AT TAPE 03897 M01S00155.274l797 +++| LX2 59-58-59+56 03898 M00S03213.copyb +++| SX6 6
| Line S03214 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03899 M01S03214.274l797 ---| PL X2,CNS1 IF 7-TRACK
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03900 M01S00156.274l797 +++| NG X2,CNS1 IF 7-TRACK 03901 M00S03215.copyb +++| SX6 8 03902 M00S03216.copyb +++| CNS1 IX6 X1*X6 CALCULATE NOISE SIZE IN BITS 03903 M00S03217.copyb +++| SX2 5 CALCULATE MINIMUM NUMBER OF CHARACTERS 03904 M00S03218.copyb +++| IX1 X6+X2 03905 M00S03219.copyb +++| SX2 X2+B1 03906 M00S03220.copyb +++| BX7 X6 03907 M00S03221.copyb +++| IX1 X1/X2 03908 M00S03222.copyb +++| SX2 9 CALCULATE MINIMUM NUMBER OF WORDS 03909 M00S03223.copyb +++| IX3 X1+X2 03910 M00S03224.copyb +++| SX2 X2+B1 03911 M00S03225.copyb +++| BX4 X2 03912 M00S03226.copyb +++| IX3 X3/X2 03913 M00S03227.copyb +++| LX7 18 03914 M00S03228.copyb +++| SX2 X3-1 CALCULATE CHARACTERS IN LAST WORD 03915 M00S03229.copyb +++| IX4 X2*X4 03916 M00S03230.copyb +++| IX4 X1-X4 03917 M00S03231.copyb +++| BX7 X7+X4 03918 M00S03232.copyb +++| LX7 18 03919 M00S03233.copyb +++| BX7 X7+X3 03920 M00S03234.copyb +++| SA7 A1 03921 M00S03235.copyb +++| EQ CNSX RETURN 03922 M00S03236.copyb +++| CPV SPACE 4,10 03923 M00S03237.copyb +++|** CPV - CONVERT PARAMETER VALUES. 03924 M00S03238.copyb +++|* 03925 M00S03239.copyb +++|* EXIT TO *PER2*, IF CONVERSION ERROR. 03926 M00S03240.copyb +++|* 03927 M00S03241.copyb +++|* USES A - 1, 4, 5, 6, 7. 03928 M00S03242.copyb +++|* B - 6, 7. 03929 M00S03243.copyb +++|* X - 0, 1, 4, 5, 6, 7. 03930 M00S03244.copyb +++|* 03931 M00S03245.copyb +++|* CALLS DXB, RPV. 03932 M00S03246.copyb +++| 03933 M00S03247.copyb +++| 03934 M00S03248.copyb +++| CPV SUBR ENTRY/EXIT 03935 M00S03249.copyb +++| SX4 1RU CONVERT ERROR LIMIT 03936 M00S03250.copyb +++| SA5 EL 03937 M00S03251.copyb +++| LX4 -6 03938 M00S03252.copyb +++| SX6 -B1 03939 M00S03253.copyb +++| BX4 X4-X5 03940 M00S03254.copyb +++| SB7 B1 03941 M00S03255.copyb +++| ZR X4,CPV1 IF UNLIMITED ERROR LIMIT 03942 M00S03256.copyb +++| RJ DXB 03943 M00S03257.copyb +++| NZ X4,PER2 IF CONVERSION ERROR 03944 M00S03258.copyb +++| CPV1 SA6 A5+
| Line S03259 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03945 M01S03259.v23l617 ---| SA5 BS CONVERT BLOCK SIZE
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03946 M01S00126.v23l617 +++| SA5 NS NOISE SIZE 03947 M01S00127.v23l617 +++| ZR X5,CPV1.1 IF NS NOT SPECIFIED 03948 M01S00128.v23l617 +++| RJ DXB 03949 M01S00129.v23l617 +++| NZ X4,PER2 IF CONVERSION ERROR 03950 M01S00130.v23l617 +++| SX1 MNSZ 03951 M01S00131.v23l617 +++| IX4 X1-X6 03952 M01S00132.v23l617 +++| NG X4,PER2 IF EXCEEDS MAXIMUM NS SIZE 03953 M01S00133.v23l617 +++| SA6 A5 03954 M01S00134.v23l617 +++| NZ X6,CPV1.1 IF NOT NS=0 03955 M01S00135.v23l617 +++| SX6 DFNS SET TO DEFAULT NOISE SIZE 03956 M01S00136.v23l617 +++| SA6 A5+ 03957 M01S00137.v23l617 +++| CPV1.1 SA5 BS CONVERT BLOCK SIZE 03958 M00S03260.copyb +++| ZR X5,CPV2 IF BS NOT SPECIFIED 03959 M00S03261.copyb +++| RJ DXB 03960 M00S03262.copyb +++| NZ X4,PER2 IF CONVERSION ERROR 03961 M00S03263.copyb +++| ZR X6,PER2 IF BS=0 SPECIFIED 03962 M00S03264.copyb +++| SA6 A5+ 03963 M00S03265.copyb +++| CPV2 SA5 CC CONVERT CHARACTER COUNT 03964 M00S03266.copyb +++| ZR X5,CPV3 IF CC NOT SPECIFIED 03965 M00S03267.copyb +++| RJ DXB 03966 M00S03268.copyb +++| NZ X4,PER2 IF CONVERSION ERROR 03967 M00S03269.copyb +++| ZR X6,PER2 IF CC=0 SPECIFIED 03968 M00S03270.copyb +++| SA6 A5+ 03969 M00S03271.copyb +++| CPV3 SA4 TC CONVERT TERMINATION CONDITION 03970 M00S03272.copyb +++| SA1 TTCV TABLE OF TERMINATION CONDITION VALUES 03971 M00S03273.copyb +++| RJ RPV 03972 M00S03274.copyb +++| ZR X1,PER2 IF NOT LEGAL TERMINATION CONDITION 03973 M00S03275.copyb +++| SA6 A4 03974 M00S03276.copyb +++| SB6 X6 03975 M00S03277.copyb +++| SA5 DCT CONVERT COPY COUNT 03976 M00S03278.copyb +++| RJ DXB 03977 M00S03279.copyb +++| NZ X4,PER2 IF CONVERSION ERROR 03978 M00S03280.copyb +++| ZR X6,PER2 IF ZERO COPY COUNT SPECIFIED 03979 M00S03281.copyb +++| GE B6,CPV4 IF NOT COPY TO EOI 03980 M00S03282.copyb +++| SX6 -1 SET UNLIMITED COPY COUNT 03981 M00S03283.copyb +++| CPV4 SA6 CT 03982 M00S03284.copyb +++| SA4 CM CONVERT CODED MODE PARAMETER 03983 M00S03285.copyb +++| BX6 X6-X6 03984 M00S03286.copyb +++| ZR X4,CPV5 IF MODE PARAMETER NOT SPECIFIED 03985 M00S03287.copyb +++| SX6 -B1 SET DEFAULT VALUE 03986 M00S03288.copyb +++| SA1 TCMV TABLE OF CODED MODE VALUES 03987 M00S03289.copyb +++| RJ RPV 03988 M00S03290.copyb +++| CPV5 SA6 A4 03989 M00S03291.copyb +++| MX0 6 03990 M00S03292.copyb +++| SA4 CF CONVERT CONVERSION FORMAT 03991 M00S03293.copyb +++| SA5 PO 03992 M00S03294.copyb +++| SA1 TCFV TABLE OF CONVERSION FORMAT VALUES 03993 M00S03295.copyb +++| ZR X4,CPV6 IF CONVERSION FORMAT NOT SPECIFIED 03994 M00S03296.copyb +++| RJ RPV 03995 M00S03297.copyb +++| ZR X1,PER2 IF NOT LEGAL CONVERSION FORMAT 03996 M00S03298.copyb +++| SA6 A4+ 03997 M00S03299.copyb +++| CPV6 SA4 CRI GET CALLING ROUTINE INDICATOR 03998 M00S03300.copyb +++| SA1 TCPO CONVERT PROCESSING OPTIONS 03999 M00S03301.copyb +++| NG X4,CPV7 IF *COPY* CALL 04000 M00S03302.copyb +++| SA1 TTPO 04001 M00S03303.copyb +++| CPV7 ZR X5,CPVX IF END OF PROCESSING OPTIONS 04002 M00S03304.copyb +++| BX4 X0*X5 04003 M00S03305.copyb +++| BX5 -X0*X5 04004 M00S03306.copyb +++| LX5 6 04005 M00S03307.copyb +++| SX7 -B1 04006 M00S03308.copyb +++| RJ RPV GET INDICATOR ADDRESS 04007 M00S03309.copyb +++| ZR X1,PER2 IF NOT LEGAL PROCESSING OPTION 04008 M00S03310.copyb +++| SA7 X6+ 04009 M00S03311.copyb +++| EQ CPV6 CONTINUE CONVERTING PROCESSING OPTIONS 04010 M00S03312.copyb +++| TCFV SPACE 4,10 04011 M00S03313.copyb +++|** TCFV - TABLE OF CONVERSION FORMAT VALUES. 04012 M00S03314.copyb +++| 04013 M00S03315.copyb +++| 04014 M00S03316.copyb +++| TCFV BSS 0
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | copyb5 |
Seq # *Modification Id* Act ----------------------------+ 04015 M01S00178.copyb5 +++| VFD 42/0LI,18/-3 I CONVERSION FORMAT 04016 M00S03317.copyb +++| VFD 42/0LSI,18/-2 SI CONVERSION FORMAT 04017 M00S03318.copyb +++| VFD 42/0LX,18/-1 X CONVERSION FORMAT 04018 M00S03319.copyb +++| VFD 42/0LE,18/1 E CONVERSION FORMAT 04019 M00S03320.copyb +++| VFD 42/0LB,18/2 B CONVERSION FORMAT 04020 M00S03321.copyb +++| CON 0 END OF TABLE 04021 M00S03322.copyb +++| TCMV SPACE 4,10 04022 M00S03323.copyb +++|** TCMV - TABLE OF CODED MODE VALUES. 04023 M00S03324.copyb +++| 04024 M00S03325.copyb +++| 04025 M00S03326.copyb +++| TCMV BSS 0 04026 M00S03327.copyb +++| VFD 42/0LC1,18/1 CODED MODE ON INPUT ONLY 04027 M00S03328.copyb +++| VFD 42/0LC2,18/2 CODED MODE ON OUTPUT ONLY 04028 M00S03329.copyb +++| CON 0 END OF TABLE 04029 M00S03330.copyb +++| TPOA SPACE 4,10 04030 M00S03331.copyb +++|** TCPO - TABLE OF *COPY* PROCESSING OPTIONS. 04031 M00S03332.copyb +++| 04032 M00S03333.copyb +++| 04033 M00S03334.copyb +++| TCPO BSS 0 04034 M00S03335.copyb +++| VFD 42/0LE,18/ESPI PROCESS PARITY ERRORS 04035 M00S03336.copyb +++| VFD 42/0LD,18/NPDI DELETE NOISE BLOCKS 04036 M00S03337.copyb +++| VFD 42/0LR,18/RSAI ALLOW RECORD SPLIT 04037 M00S03338.copyb +++| VFD 42/0LM,18/SEWI SKIP EOF WRITE ON OUTPUT 04038 M00S03339.copyb +++| CON 0 END OF TABLE FOR COPY 04039 M00S03340.copyb +++| TTPO SPACE 4,10 04040 M00S03341.copyb +++|** TTPO - TABLE OF *TCOPY* PROCESSING OPTIONS. 04041 M00S03342.copyb +++| 04042 M00S03343.copyb +++| 04043 M00S03344.copyb +++| TTPO BSS 0 04044 M00S03345.copyb +++| VFD 42/0LE,18/ESPI PROCESS PARITY ERRORS 04045 M00S03346.copyb +++| VFD 42/0LT,18/TLLI TRUNCATE LONG LINES 04046 M00S03347.copyb +++| CON 0 04047 M00S03348.copyb +++| TTCV SPACE 4,10 04048 M00S03349.copyb +++|** TTCV - TABLE OF TERMINATION CONDITION VALUES. 04049 M00S03350.copyb +++| 04050 M00S03351.copyb +++| 04051 M00S03352.copyb +++| TTCV BSS 0 04052 M00S03353.copyb +++| VFD 42/0LI,18/-1 END OF INFORMATION 04053 M00S03354.copyb +++| VFD 42/0LEOI,18/-1 04054 M00S03355.copyb +++| VFD 42/0LD,18/0 DOUBLE END OF FILE 04055 M00S03356.copyb +++| VFD 42/0LEOD,18/0 04056 M00S03357.copyb +++| VFD 42/0LF,18/1 FILE COUNT 04057 M00S03358.copyb +++| VFD 42/0LEOF,18/1 04058 M00S03359.copyb +++| CON 0 END OF TABLE 04059 M00S03360.copyb +++| GPS SPACE 4,10 04060 M00S03361.copyb +++|** GPS - GET PRU SIZES. 04061 M00S03362.copyb +++|* 04062 M00S03363.copyb +++|* ENTRY (A0) = FWA FET. 04063 M00S03364.copyb +++|* 04064 M00S03365.copyb +++|* EXIT (A0+PRU) = PRU SIZE, IF NOT PREVIOUSLY SET. 04065 M00S03366.copyb +++|* 04066 M00S03367.copyb +++|* USES A - 1, 4, 6. 04067 M00S03368.copyb +++|* X - 1, 4, 6. 04068 M00S03369.copyb +++|* 04069 M00S03370.copyb +++|* CALLS CIO=. 04070 M00S03371.copyb +++| 04071 M00S03372.copyb +++| 04072 M00S03373.copyb +++| GPS SUBR ENTRY/EXIT 04073 M00S03374.copyb +++| SA4 A0+PRU 04074 M00S03375.copyb +++| PL X4,GPSX IF PRU SIZE ALREADY SET 04075 M00S03376.copyb +++| OPEN A0,READNR,R 04076 M00S03377.copyb +++| SA1 A0+4 GET PRU SIZE 04077 M00S03378.copyb +++| LX1 -18 04078 M00S03379.copyb +++| SX6 X1 04079 M00S03380.copyb +++| SA6 A4 04080 M00S03381.copyb +++| EQ GPSX RETURN 04081 M00S03382.copyb +++| PER SPACE 4,10 04082 M00S03383.copyb +++|** PER - PRESET ERROR PROCESSOR. 04083 M00S03384.copyb +++|* 04084 M00S03385.copyb +++|* ENTRY (B5) = FWA MESSAGE, IF ENTRY AT *PER* OR *PER1*. 04085 M00S03386.copyb +++|* (X1) = FILE NAME, IF ENTRY AT *PER*. 04086 M00S03387.copyb +++|* 04087 M00S03388.copyb +++|* USES B - 2, 5. 04088 M00S03389.copyb +++|* X - 1, 2. 04089 M00S03390.copyb +++|* 04090 M00S03391.copyb +++|* CALLS MSG=, SNM, SYS=. 04091 M00S03392.copyb +++| 04092 M00S03393.copyb +++| 04093 M00S03394.copyb +++| PER2 SB5 PERA * ARGUMENT ERROR.* 04094 M00S03395.copyb +++| EQ PER1 ISSUE ERROR MESSAGE 04095 M00S03396.copyb +++| 04096 M00S03397.copyb +++| PER MX2 42 SET NAME IN MESSAGE 04097 M00S03398.copyb +++| SB2 1RX 04098 M00S03399.copyb +++| BX1 X2*X1 04099 M00S03400.copyb +++| RJ SNM 04100 M00S03401.copyb +++| PER1 MESSAGE B5,0 04101 M00S03402.copyb +++| ABORT 04102 M00S03403.copyb +++| 04103 M00S03404.copyb +++| 04104 M00S03405.copyb +++| PERA DATA C* ARGUMENT ERROR.* 04105 M00S03406.copyb +++| PERB DATA C* BLOCK SIZE TOO LARGE ON XXXXXXX.* 04106 M00S03407.copyb +++| PERC DATA C* BLOCK SIZE TOO SMALL ON XXXXXXX.* 04107 M00S03408.copyb +++| PERD DATA C* COPY FL ABOVE USER LIMIT.* 04108 M00S03409.copyb +++| PERE DATA C* FILE NAME CONFLICT.*
| Line S03410 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04109 M01S03410.v23l617 ---| PERF DATA C* ILLEGAL COPY.* 04110 M01S03411.v23l617 ---| PERG DATA C* INVALID NOISE SIZE ON XXXXXXX.*
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04111 M01S00138.v23l617 +++| PERF DATA C* INCORRECT COPY.* 04112 M01S00139.v23l617 +++| PERG DATA C* INCORRECT NOISE SIZE ON XXXXXXX.* 04113 M00S03412.copyb +++| PERH DATA C* UNLABELED TAPE REQUIRED - XXXXXXX.* 04114 M00S03413.copyb +++| PERI DATA C* UNRECOGNIZED TERMINATION CONDITION.* 04115 M00S03414.copyb +++| PERJ DATA C* UNRECOGNIZED BACKSPACE CODE.* 04116 M00S03415.copyb +++| PERK DATA C* BLOCK SIZE NOT APPLICABLE.* 04117 M00S03416.copyb +++| PERL DATA C* PROCESSING OPTION NOT APPLICABLE.* 04118 M00S03417.copyb +++| RBL SPACE 4,40 04119 M00S03418.copyb +++|** RBL - RESET BUFFER LENGTHS. 04120 M00S03419.copyb +++|* 04121 M00S03420.copyb +++|* WHEN NO MANIPULATION OF DATA IS REQUIRED (COMPATIBLE FILES 04122 M00S03421.copyb +++|* AND SAME PRU SIZE, DOES NOT APPLY TO *TCOPY*), A SINGLE 04123 M00S03422.copyb +++|* BUFFER COPY WILL BE USED. FOR *COPY* L TO L AND F TO F
| Line S03423 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04124 M01S03423.274l797 ---|* TAPE COPIES, THE SINGLE BUFFER SIZE WILL BE INCREASED AS 04125 M01S03424.274l797 ---|* NECESSARY, PROVIDING ROOM FOR AT LEAST 2 BLOCKS IN THE CIO 04126 M01S03425.274l797 ---|* BUFFER UNTIL THE REQUIRED FL EXCEEDS THE MINIMUM OF THE 04127 M01S03426.274l797 ---|* CURRENT MAXIMUM FL (MAXFL) AND THE MAXIMUM FL FACTOR (MFLF).
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04128 M01S00157.274l797 +++|* TAPE COPIES, THE SINGLE BUFFER SIZE WILL BE SET TO PROVIDE 04129 M01S00158.274l797 +++|* ROOM FOR AT LEAST 6 BLOCKS IN THE CIO BUFFER, OR A BUFFER 04130 M01S00159.274l797 +++|* SIZE OF *SBUFL*, WHICHEVER IS GREATER. FOR ALL OTHER 04131 M01S00160.274l797 +++|* SINGLE-BUFFER COPIES, A BUFFER SIZE OF *SBUFL* WILL BE USED. 04132 M00S03427.copyb +++|* 04133 M00S03428.copyb +++|* FOR ALL OTHER TYPES OF COPIES, A DOUBLE BUFFER COPY WILL
| Line S03429 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04134 M01S03429.274l797 ---|* BE USED. FOR *COPY* L OR F TO MS/I/SI-B OR MS/I/SI-B TO 04135 M01S03430.274l797 ---|* L OR F TAPE COPY, THE BUFFER SIZES WILL BE INCREASED AS 04136 M01S03431.274l797 ---|* NECESSARY TO ALLOW ROOM FOR AT LEAST 2 BLOCKS IN THE L OR 04137 M01S03432.274l797 ---|* F TAPE CIO BUFFER UNTIL THE REQUIRED FL EXCEEDS THE 04138 M01S03433.274l797 ---|* MINIMUM OF MAXFL AND MFLF.
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04139 M01S00161.274l797 +++|* BE USED. FOR *COPY* L OR F TO MS/I/LI/SI-B OR MS/I/LI/SI-B 04140 M01S00162.274l797 +++|* TO L OR F TAPE COPY, THE BUFFER SIZES WILL BE SET TO PROVIDE 04141 M01S00163.274l797 +++|* ROOM FOR AT LEAST 3 BLOCKS IN EACH BUFFER, OR A BUFFER 04142 M01S00164.274l797 +++|* SIZE OF *FBUFL*, WHICHEVER IS GREATER. FOR ALL OTHER 04143 M01S00165.274l797 +++|* DOUBLE-BUFFER COPIES, A BUFFER SIZE OF *FBUFL* WILL BE USED. 04144 M01S00166.274l797 +++|* 04145 M01S00167.274l797 +++|* IF THE FL REQUIRED TO SUPPORT THESE BUFFER SIZES IS LESS 04146 M01S00168.274l797 +++|* THAN THE MINIMUM OF THE CURRENT MAXIMUM FL (MAXFL) AND THE 04147 M01S00169.274l797 +++|* LOWER OPTIMUM FL (LOFL), THE BUFFER SIZES WILL BE INCREASED 04148 M01S00170.274l797 +++|* UNTIL THE FL REACHES THIS VALUE. 04149 M01S00171.274l797 +++|* 04150 M01S00172.274l797 +++|* IF THE FL REQUIRED TO SUPPORT THESE BUFFER SIZES EXCEEDS THE 04151 M01S00173.274l797 +++|* MINIMUM OF THE CURRENT MAXIMUM FL (MAXFL) AND THE MAXIMUM FL 04152 M01S00174.274l797 +++|* FACTOR (MFLF), THE BUFFER SIZES WILL BE REDUCED UNTIL THE FL 04153 M01S00175.274l797 +++|* REACHES THIS VALUE. 04154 M00S03434.copyb +++|* 04155 M00S03435.copyb +++|* ENTRY (I+PRU) = INPUT FILE PRU SIZE. 04156 M00S03436.copyb +++|* (O+PRU) = OUTPUT FILE PRU SIZE. 04157 M00S03437.copyb +++|* 04158 M00S03438.copyb +++|* EXIT (WBL) = WORKING BUFFER LENGTH. 04159 M00S03439.copyb +++|* (IBL) = INPUT BUFFER LENGTH. 04160 M00S03440.copyb +++|* (OBL) = OUTPUT BUFFER LENGTH. 04161 M00S03441.copyb +++|* 04162 M00S03442.copyb +++|* USES A - 1, 2, 3, 4, 6, 7. 04163 M00S03443.copyb +++|* B - 3, 4. 04164 M00S03444.copyb +++|* X - ALL. 04165 M00S03445.copyb +++|* 04166 M00S03446.copyb +++|* CALLS SYS=. 04167 M00S03447.copyb +++| 04168 M00S03448.copyb +++|
| Line S03449 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04169 M01S03449.274l797 ---| RBL9 PL X3,RBLX IF CALCULATED FL .LE. MINIMUM(MAXFL,MFLF) 04170 M01S03450.274l797 ---| AX6 1 SET BUFFER LENGTH = BLOCK SIZE 04171 M01S03451.274l797 ---| SA6 A6
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04172 M02S00140.274l797 ---| NE B3,B4,RBLX IF NOT SAME FORMAT FILES 04173 M02S00141.274l797 ---| AX6 X1,B1 REDUCE BUFFER TO BLOCK SIZE 04174 M02S00142.274l797 ---| SA6 A1 04175 M02S00143.274l797 ---| AX7 X2,B1 04176 M02S00144.274l797 ---| SA7 A2
| Line S03452 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04177 M01S03452.274l797 ---| 04178 M00S03453.copyb +++| RBL SUBR ENTRY/EXIT 04179 M00S03454.copyb +++| MEMORY CM,STAT,R GET CURRENT MAXIMUM FL (MAXFL) 04180 M00S03455.copyb +++| SA3 STAT
| Line S03456 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04181 M01S03456.274l797 ---| SA4 CRI GET CALLING ROUTINE INDICATOR 04182 M00S03457.copyb +++| AX3 30 04183 M00S03458.copyb +++| SX0 MFLF MAXIMUM FL FACTOR 04184 M00S03459.copyb +++| SX6 X3 04185 M00S03460.copyb +++| SX5 LOFL LOWER OPTIMUM FL 04186 M00S03461.copyb +++| SX3 X3-2 04187 M00S03462.copyb +++| SA6 MAXFL
| Line S03463 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04188 M01S03463.274l797 ---| ZR X4,RBLX IF *TCOPY* 04189 M00S03464.copyb +++| IX7 X3-X0 04190 M00S03465.copyb +++| PL X7,RBL1 IF MAXFL .GE. MFLF 04191 M00S03466.copyb +++| IX2 X3-X5
| Line S03467 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04192 M01S03467.274l797 ---| BX0 X3
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04193 M01S00176.274l797 +++| BX0 X3 (X0) = MINIMUM(MAXFL,MFLF) 04194 M00S03468.copyb +++| PL X2,RBL1 IF MAXFL .GE. LOFL
| Line S03469 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04195 M01S03469.274l797 ---| BX5 X3
| Line S00177 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04196 M01S00177.274l797 +++| BX5 X3 (X5) = MINIMUM(MAXFL,LOFL)
| Line S03470 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04197 M01S03470.274l797 ---| RBL1 SA1 I+SLF 04198 M01S03471.274l797 ---| SA2 O+SLF
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04199 M01S00178.274l797 +++| RBL1 SA1 I+ODF 04200 M01S00179.274l797 +++| SA2 O+ODF
| Line S03472 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04201 M01S03472.274l797 ---| SB3 X1 04202 M01S03473.274l797 ---| SB4 X2 04203 M01S03474.274l797 ---| SA1 I+PRU 04204 M01S03475.274l797 ---| SA2 O+PRU
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04205 M01S00180.274l797 +++| SB3 X1 (B3) = I+ODF 04206 M01S00181.274l797 +++| SB4 X2 (B4) = O+ODF 04207 M01S00182.274l797 +++| SA1 I+PRU GET INPUT FILE PRU SIZE 04208 M01S00183.274l797 +++| SA2 O+PRU GET OUTPUT FILE PRU SIZE 04209 M00S03476.copyb +++| SX3 3 ALLOW FOR CONTROL WORDS 04210 M00S03477.copyb +++| IX1 X1+X3 04211 M00S03478.copyb +++| IX2 X2+X3
| Line S03479 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04212 M01S03479.274l797 ---| NE B3,B4,RBL6 IF NOT SAME FORMAT FILES
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04213 M01S00184.274l797 +++| SX6 X2-BUFL 04214 M01S00185.274l797 +++| NG X6,RBL2 IF PRU SIZE SHORTER THAN DEFAULT WBL 04215 M01S00186.274l797 +++| BX6 X2 04216 M01S00187.274l797 +++| SA6 WBL SET WORKING BUFFER = OUTPUT PRU SIZE 04217 M01S00188.274l797 +++| RBL2 SA4 CRI GET CALLING ROUTINE INDICATOR 04218 M01S00189.274l797 +++| ZR X4,RBL10 IF *TCOPY* 04219 M01S00190.274l797 +++| NE B3,B4,RBL7 IF NOT SAME FORMAT FILES
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04220 M01S00145.v23l617 +++| SA3 NSFG
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04221 M02S00146.274l797 ---| NZ X3,RBL6 IF DOUBLE BUFFER REQUIRED
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04222 M01S00191.274l797 +++| NZ X3,RBL7 IF DOUBLE BUFFER REQUIRED 04223 M00S03480.copyb +++| SX7 SBUFL DEFAULT SINGLE BUFFER LENGTH 04224 M00S03481.copyb +++| IX3 X1-X2 04225 M00S03482.copyb +++| BX2 X7 04226 M00S03483.copyb +++| SX6 SBUF FWA SINGLE BUFFER
| Line S03484 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04227 M01S03484.274l797 ---| LT B3,RBL2 IF F TO F TAPE COPY 04228 M01S03485.274l797 ---| GT B3,B1,RBL2 IF L TO L TAPE COPY
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04229 M01S00192.274l797 +++| LT B3,RBL3 IF F TO F TAPE COPY 04230 M01S00193.274l797 +++| GT B3,B1,RBL3 IF L TO L TAPE COPY 04231 M00S03486.copyb +++| SA1 I+CWF
| Line S03487 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04232 M01S03487.274l797 ---| ZR X1,RBLX IF CONTROL WORD READ DISABLED
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04233 M01S00194.274l797 +++| ZR X1,RBL10 IF CONTROL WORD READ DISABLED 04234 M00S03488.copyb +++| SA1 O+CWF
| Line S03489 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04235 M01S03489.274l797 ---| ZR X1,RBLX IF CONTROL WORD WRITE DISABLED
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04236 M01S00195.274l797 +++| ZR X1,RBL10 IF CONTROL WORD WRITE DISABLED 04237 M00S03490.copyb +++| ZR X3,RBL4 IF SAME PRU SIZE
| Line S03491 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04238 M01S03491.274l797 ---| EQ RBLX RETURN
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04239 M01S00196.274l797 +++| EQ RBL10 CHECK CALCULATED FL 04240 M00S03492.copyb +++|
| Line S03493 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04241 M01S03493.274l797 ---| RBL2 PL X4,RBL4 IF NOT *COPY* 04242 M01S03494.274l797 ---| LX7 X1,B1 SINGLE BUFFER = INPUT BLOCK SIZE * 2 04243 M01S03495.274l797 ---| IX3 X6+X7
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04244 M01S00197.274l797 +++|* RESET BUFFER LENGTHS FOR SINGLE BUFFER COPY. 04245 M01S00198.274l797 +++| 04246 M01S00199.274l797 +++| RBL3 PL X4,RBL4 IF NOT *COPY* 04247 M01S00200.274l797 +++| LX7 X1,B1 SINGLE BUFFER = INPUT BLOCK SIZE * 6 04248 M01S00201.274l797 +++| IX7 X7+X1 04249 M01S00202.274l797 +++| LX7 1 04250 M01S00203.274l797 +++| SX4 X7-SBUFL 04251 M01S00204.274l797 +++| PL X4,RBL4 IF BUFFER SIZE .GE. *SBUFL* 04252 M01S00205.274l797 +++| SX7 SBUFL SET DEFAULT SINGLE BUFFER SIZE 04253 M01S00206.274l797 +++| RBL4 IX3 X6+X7 04254 M00S03496.copyb +++| IX4 X5-X3
| Line S03497 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04255 M01S03497.274l797 ---| NG X4,RBL3 IF CALCULATED FL .GT. MINIMUM(MAXFL,LOFL)
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04256 M01S00207.274l797 +++| NG X4,RBL5 IF CALCULATED FL .GT. MINIMUM(MAXFL,LOFL) 04257 M00S03498.copyb +++| IX7 X7+X4 INCREASE SINGLE BUFFER SIZE 04258 M00S03499.copyb +++| BX2 X7
| Line S03500 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04259 M01S03500.274l797 ---| EQ RBL4 SET SINGLE BUFFER SIZE
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04260 M01S00208.274l797 +++| EQ RBL6 SET SINGLE BUFFER SIZE 04261 M00S03501.copyb +++|
| Line S03502 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04262 M01S03502.274l797 ---| RBL3 IX4 X0-X3
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04263 M01S00209.274l797 +++| RBL5 IX4 X0-X3 04264 M00S03503.copyb +++| BX2 X7
| Line S03504 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04265 M01S03504.274l797 ---| PL X4,RBL4 IF CALCULATED FL .LE. MINIMUM(MAXFL,MFLF) 04266 M01S03505.274l797 ---| AX7 1 SET SINGLE BUFFER = INPUT BLOCK SIZE
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04267 M01S00210.274l797 +++| PL X4,RBL6 IF CALCULATED FL .LE. MINIMUM(MAXFL,MFLF) 04268 M01S00211.274l797 +++| IX7 X7-X4 DECREASE SINGLE BUFFER SIZE 04269 M01S00212.274l797 +++| BX2 X7 04270 M01S00213.274l797 +++| LX3 X1,B1 04271 M01S00214.274l797 +++| IX3 X3-X7 04272 M01S00215.274l797 +++| NG X3,RBL6 IF BUFFER STILL AT LEAST TWO BLOCKS LONG 04273 M00S03506.copyb +++| BX2 X2-X2 FORCE BUFFER THRESHOLD = 0 04274 M00S03507.copyb +++|
| Line S03508 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04275 M01S03508.274l797 ---|* RESET BUFFER LENGTHS FOR SINGLE BUFFER COPY 04276 M01S03509.274l797 ---| 04277 M01S03510.274l797 ---| RBL4 SA6 FWWB SET FWA SINGLE BUFFER
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04278 M01S00216.274l797 +++| RBL6 SA6 FWWB SET FWA SINGLE BUFFER 04279 M00S03511.copyb +++| SX1 3 CALCULATE SINGLE BUFFER THRESHOLD 04280 M00S03512.copyb +++| SA7 OBL SET OUTPUT BUFFER LENGTH 04281 M00S03513.copyb +++| IX6 X2/X1 04282 M00S03514.copyb +++| BX7 X7-X7 04283 M00S03515.copyb +++| SA7 A7-B1 CLEAR INPUT BUFFER LENGTH 04284 M00S03516.copyb +++| SA6 SBT BUFFER THRESHOLD = 1/3(BUFFER SIZE) 04285 M00S03517.copyb +++| SA7 A7-B1 CLEAR WORKING BUFFER LENGTH 04286 M00S03518.copyb +++| EQ RBLX RETURN 04287 M00S03519.copyb +++|
| Line S03520 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04288 M01S03520.274l797 ---|* RESET BUFFER LENGTHS FOR L OR F TO MS/I/SI-B COPY.
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04289 M02S00147.274l797 ---|* RESET BUFFER LENGTHS FOR L TO L OR F TO F DOUBLE BUFFER COPY.
| Line S00217 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04290 M01S00217.274l797 +++|* RESET BUFFER LENGTHS FOR DOUBLE BUFFER COPY. 04291 M00S03521.copyb +++|
| Line S03522 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04292 M01S03522.v23l617 ---| RBL6 LX6 X2,B1 OUTPUT BUFFER = OUTPUT BLOCK SIZE * 2 04293 M01S03523.v23l617 ---| EQ B3,RBL7 IF INPUT IS MS/I/SI-B
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04294 M02S00148.274l797 ---| RBL6 EQ B3,RBL7 IF INPUT IS MS/I/SI-B
| Line S03524 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04295 M01S03524.274l797 ---| LX6 X1,B1 INPUT BUFFER = INPUT BUFFER SIZE * 2 04296 M01S03525.274l797 ---| EQ B3,B1,RBLX IF INPUT IS S TAPE 04297 M01S03526.274l797 ---| SA6 IBL 04298 M01S03527.274l797 ---| SX7 BUFL WORKING BUFFER LENGTH
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04299 M02S00149.274l797 ---| EQ B3,B4,RBL7 IF SAME FORMAT FILES
| Line S03528 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04300 M01S03528.274l797 ---| EQ RBL8 CHECK CALCULATED FL
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04301 M01S00218.274l797 +++| RBL7 SX3 X1 04302 M01S00219.274l797 +++| IX4 X3-X2 04303 M01S00220.274l797 +++| PL X4,RBL8 IF IBL .GE. OBL 04304 M01S00221.274l797 +++| SX3 X2 (X3) = MAXIMUM(IBL,OBL) 04305 M01S00222.274l797 +++| RBL8 LX6 X3,B1 SET BUFFER SIZE = MAXIMUM(IBL,OBL) * 3 04306 M01S00223.274l797 +++| IX6 X6+X3 04307 M01S00224.274l797 +++| SX4 X6-FBUFL 04308 M01S00225.274l797 +++| PL X4,RBL9 IF BUFFER SIZE .GE. *FBUFL* 04309 M01S00226.274l797 +++| SX6 FBUFL SET DEFAULT BUFFER SIZE 04310 M01S00227.274l797 +++| RBL9 SX7 X3 SET WORKING BUFFER = MAXIMUM(IBL,OBL) 04311 M01S00228.274l797 +++| SA6 IBL SET INPUT BUFFER LENGTH 04312 M01S00229.274l797 +++| SA7 WBL 04313 M01S00230.274l797 +++| SA6 OBL SET OUTPUT BUFFER LENGTH 04314 M00S03529.copyb +++|
| Line S03530 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04315 M01S03530.274l797 ---|* RESET BUFFER LENGTHS FOR MS/I/SI-B TO L COPY.
| Line S00231 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04316 M01S00231.274l797 +++|* CHECK CALCULATED FL FOR DOUBLE BUFFER COPY. 04317 M00S03531.copyb +++|
| Line S03532 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04318 M01S03532.274l797 ---| RBL7 LE B4,B1,RBLX IF OUTPUT NOT L TAPE
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04319 M02S00150.274l797 ---| LX6 X2,B1 OUTPUT BUFFER = OUTPUT BLOCK SIZE * 2
| Line S03533 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04320 M01S03533.274l797 ---| LX7 X2 SET WORKING BUFFER = OUTPUT BLOCK SIZE 04321 M01S03534.274l797 ---| SA6 OBL SET OUTPUT BUFFER = OUTPUT BLOCK SIZE * 2 04322 M01S03535.274l797 ---| SA7 WBL
| Line S03536 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04323 M02S03536.274l797 ---| RBL8 SX1 BUF1+1+FBUFL+X7 04324 M02S03537.274l797 ---| IX1 X1+X6 04325 M02S03538.274l797 ---| IX4 X5-X1 04326 M02S03539.274l797 ---| IX3 X0-X1
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04327 M02S00151.274l797 ---| RBL8 SA1 IBL
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04328 M01S00232.274l797 +++| RBL10 SA1 IBL
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04329 M01S00152.v23l617 +++| SA2 OBL
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04330 M02S00153.274l797 ---| SX3 BUF1+1+X7
| Line S00233 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04331 M01S00233.274l797 +++| SA3 WBL 04332 M01S00234.274l797 +++| SX3 BUF1+1+X3
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04333 M01S00154.v23l617 +++| IX3 X1+X3 04334 M01S00155.v23l617 +++| IX3 X3+X2 04335 M01S00156.v23l617 +++| IX4 X5-X3
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04336 M02S00157.274l797 ---| IX3 X0-X3
| Line S03540 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04337 M01S03540.274l797 ---| NG X4,RBL9 IF CALCULATED FL .GT. MINIMUM(MAXFL,LOFL) 04338 M01S03541.274l797 ---| IX6 X6+X4 INCREASE FL TO MINIMUM(MAXFL,LOFL) 04339 M01S03542.274l797 ---| SA6 A6
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04340 M02S00158.274l797 ---| NE B3,B4,RBLX IF NOT SAME FORMAT FILES 04341 M02S00159.274l797 ---| AX4 1 INCREASE FL TO USE MINIMUM (MAXFL,LOFL)
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04342 M01S00235.274l797 +++| IX3 X3-X0 04343 M01S00236.274l797 +++| PL X4,RBL11 IF CALCULATED FL .LE. MINIMUM(MAXFL,LOFL) 04344 M01S00237.274l797 +++| NG X3,RBLX IF CALCULATED FL .LT. MINIMUM(MAXFL,MFLF) 04345 M01S00238.274l797 +++| AX3 1 DECREASE FL TO USE MINIMUM(MAXFL,MFLF) 04346 M01S00239.274l797 +++| IX6 X1-X3 04347 M01S00240.274l797 +++| SA6 A1 04348 M01S00241.274l797 +++| IX7 X2-X3 04349 M01S00242.274l797 +++| SA7 A2 04350 M01S00243.274l797 +++| EQ RBLX RETURN 04351 M01S00244.274l797 +++| 04352 M01S00245.274l797 +++| RBL11 AX4 1 INCREASE FL TO USE MINIMUM(MAXFL,LOFL)
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04353 M01S00160.v23l617 +++| IX6 X1+X4 04354 M01S00161.v23l617 +++| SA6 A1 04355 M01S00162.v23l617 +++| IX7 X2+X4 04356 M01S00163.v23l617 +++| SA7 A2 04357 M00S03543.copyb +++| EQ RBLX RETURN 04358 M00S03544.copyb +++| RBP SPACE 4,20 04359 M00S03545.copyb +++|** RBP - RESET BUFFER POINTERS. 04360 M00S03546.copyb +++|* 04361 M00S03547.copyb +++|* RESETS INPUT AND OUTPUT BUFFER POINTERS (FIRST, IN, OUT, 04362 M00S03548.copyb +++|* AND LIMIT) AND FIELD LENGTH AS REQUIRED, OVERLAYING 04363 M00S03549.copyb +++|* NON-APPLICABLE CODE. 04364 M00S03550.copyb +++|* 04365 M00S03551.copyb +++|* ENTRY (FWWB) = FWA WORKING BUFFER. 04366 M00S03552.copyb +++|* (WBL) = WORKING BUFFER LENGTH. 04367 M00S03553.copyb +++|* (IBL) = INPUT BUFFER LENGTH. 04368 M00S03554.copyb +++|* (OBL) = OUTPUT BUFFER LENGTH. 04369 M00S03555.copyb +++|* (MAXFL) = CURRENT MAXIMUM FIELD LENGTH. 04370 M00S03556.copyb +++|* 04371 M00S03557.copyb +++|* EXIT TO *PER1*, IF FL .GT. USER LIMIT. 04372 M00S03558.copyb +++|* 04373 M00S03559.copyb +++|* USES A - 1, 2, 3, 5, 6, 7. 04374 M00S03560.copyb +++|* B - 5. 04375 M00S03561.copyb +++|* X - 0, 1, 2, 3, 5, 6, 7. 04376 M00S03562.copyb +++|* 04377 M00S03563.copyb +++|* CALLS SYS=. 04378 M00S03564.copyb +++| 04379 M00S03565.copyb +++| 04380 M00S03566.copyb +++| RBP SUBR ENTRY/EXIT 04381 M00S03567.copyb +++| SA3 FWWB FWA WORKING BUFFER 04382 M00S03568.copyb +++| SA1 WBL WORKING BUFFER LENGTH 04383 M00S03569.copyb +++| SA2 I+1 SET INPUT FILE CIO BUFFER POINTERS 04384 M00S03570.copyb +++| MX0 42 04385 M00S03571.copyb +++| BX2 X0*X2 04386 M00S03572.copyb +++| IX7 X1+X3 04387 M00S03573.copyb +++| BX6 X2+X7 04388 M00S03574.copyb +++| SA6 A2 04389 M00S03575.copyb +++| SA7 A6+B1 04390 M00S03576.copyb +++| SA1 A1+B1 INPUT BUFFER LENGTH 04391 M00S03577.copyb +++| SA7 A7+B1 04392 M00S03578.copyb +++| SA2 A7+B1 04393 M00S03579.copyb +++| IX7 X7+X1 04394 M00S03580.copyb +++| BX2 X0*X2 04395 M00S03581.copyb +++| BX6 X2+X7 04396 M00S03582.copyb +++| NZ X1,RBP1 IF NOT SINGLE BUFFERING 04397 M00S03583.copyb +++| SA3 A1+1 SINGLE BUFFER LENGTH 04398 M00S03584.copyb +++| IX3 X7+X3 04399 M00S03585.copyb +++| BX6 X2+X3 04400 M00S03586.copyb +++| RBP1 SA3 O+1 SET OUTPUT FILE CIO BUFFER POINTERS 04401 M00S03587.copyb +++| SA6 A2 04402 M00S03588.copyb +++| BX3 X0*X3 04403 M00S03589.copyb +++| BX6 X3+X7 04404 M00S03590.copyb +++| SA6 A3 04405 M00S03591.copyb +++| SA7 A6+B1 04406 M00S03592.copyb +++| SA1 A1+B1 OUTPUT BUFFER LENGTH 04407 M00S03593.copyb +++| SA7 A7+B1 04408 M00S03594.copyb +++| SA2 A7+B1 04409 M00S03595.copyb +++| IX7 X7+X1 04410 M00S03596.copyb +++| BX2 X0*X2 04411 M00S03597.copyb +++| BX6 X2+X7 04412 M00S03598.copyb +++| SA6 A2 04413 M00S03599.copyb +++| SX1 B1+B1 04414 M00S03600.copyb +++| IX7 X7+X1 04415 M00S03601.copyb +++| SA5 MAXFL GET CURRENT MAXIMUM FL 04416 M00S03602.copyb +++| SB5 PERD * COPY FL ABOVE USER LIMIT.* 04417 M00S03603.copyb +++| IX1 X5-X7 04418 M00S03604.copyb +++| LX7 30 04419 M00S03605.copyb +++| NG X1,PER1 IF REQUIRED FL .GT. MAXIMUM FL 04420 M00S03606.copyb +++| SA7 STAT 04421 M00S03607.copyb +++| MEMORY CM,STAT,R INCREASE FL 04422 M00S03608.copyb +++| EQ RBPX RETURN 04423 M00S03609.copyb +++| RPV SPACE 4,15 04424 M00S03610.copyb +++|** RPV - RETURN PARAMETER VALUE. 04425 M00S03611.copyb +++|* 04426 M00S03612.copyb +++|* ENTRY (A1) = FWA PARAMETER VALUE TABLE. 04427 M00S03613.copyb +++|* (X1) = FIRST ENTRY FROM PARAMETER VALUE TABLE. 04428 M00S03614.copyb +++|* (X4) = PARAMETER, LEFT-JUSTIFIED, ZERO FILLED. 04429 M00S03615.copyb +++|* 04430 M00S03616.copyb +++|* EXIT (X1) = 0, IF PARAMETER NOT FOUND IN TABLE. 04431 M00S03617.copyb +++|* (X6) = PARAMETER VALUE IF MATCH FOUND, OTHERWISE 04432 M00S03618.copyb +++|* UNCHANGED. 04433 M00S03619.copyb +++|* 04434 M00S03620.copyb +++|* USES A - 1. 04435 M00S03621.copyb +++|* X - 1, 2, 3, 6. 04436 M00S03622.copyb +++| 04437 M00S03623.copyb +++| 04438 M00S03624.copyb +++| RPV2 SX6 X1+ RETURN PARAMETER VALUE 04439 M00S03625.copyb +++| 04440 M00S03626.copyb +++| RPV SUBR ENTRY/EXIT 04441 M00S03627.copyb +++| RPV1 MX2 42 04442 M00S03628.copyb +++| ZR X1,RPVX IF PARAMETER NOT FOUND 04443 M00S03629.copyb +++| BX3 X2*X1 04444 M00S03630.copyb +++| BX3 X3-X4 04445 M00S03631.copyb +++| ZR X3,RPV2 IF MATCH 04446 M00S03632.copyb +++| SA1 A1+B1 04447 M00S03633.copyb +++| EQ RPV1 CONTINUE SEARCH 04448 M00S03634.copyb +++| SFM SPACE 4,10 04449 M00S03635.copyb +++|** SFM - SET FILE MODE. 04450 M00S03636.copyb +++|* 04451 M00S03637.copyb +++|* EXIT CODED MODE SET ON INPUT, OUTPUT, OR BOTH FILES, 04452 M00S03638.copyb +++|* IF REQUESTED. 04453 M00S03639.copyb +++|* 04454 M00S03640.copyb +++|* USES A - 1, 2, 6. 04455 M00S03641.copyb +++|* B - 2. 04456 M00S03642.copyb +++|* X - 1, 2, 6. 04457 M00S03643.copyb +++| 04458 M00S03644.copyb +++| 04459 M00S03645.copyb +++| SFM SUBR ENTRY/EXIT 04460 M00S03646.copyb +++| SA2 CM GET MODE INDICATOR 04461 M00S03647.copyb +++| ZR X2,SFMX IF CODED MODE NOT REQUESTED 04462 M00S03648.copyb +++| SB2 X2 04463 M00S03649.copyb +++| SX2 B1+B1 04464 M00S03650.copyb +++| GT B2,B1,SFM1 IF SECOND FILE ONLY 04465 M00S03651.copyb +++| SA1 I 04466 M00S03652.copyb +++| BX6 -X2*X1 04467 M00S03653.copyb +++| SA6 A1 04468 M00S03654.copyb +++| SFM1 EQ B2,B1,SFMX IF FIRST FILE ONLY 04469 M00S03655.copyb +++| SA1 O 04470 M00S03656.copyb +++| BX6 -X2*X1 04471 M00S03657.copyb +++| SA6 A1 04472 M00S03658.copyb +++| EQ SFMX RETURN 04473 M00S03659.copyb +++| SPS SPACE 4,10 04474 M00S03660.copyb +++|** SPS - SET PRU SIZE ON S AND L TAPES. 04475 M00S03661.copyb +++|* 04476 M00S03662.copyb +++|* ENTRY (A0) = FWA FET. 04477 M00S03663.copyb +++|* 04478 M00S03664.copyb +++|* EXIT MLRS FIELD OF S OR L TAPE FET SET TO PRU SIZE. 04479 M00S03665.copyb +++|* (A0+PRU) = PRU SIZE, IF S OR L TAPE.
| Line S03666 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04480 M01S03666.v23l617 ---|* TO *PER*, IF INVALID BLOCK SIZE.
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04481 M01S00164.v23l617 +++|* TO *PER*, IF INCORRECT BLOCK SIZE. 04482 M00S03667.copyb +++|* 04483 M00S03668.copyb +++|* USES A - 1, 2, 6, 7. 04484 M00S03669.copyb +++|* B - 2, 5. 04485 M00S03670.copyb +++|* X - 0, 1, 2, 3, 4, 6, 7. 04486 M00S03671.copyb +++| 04487 M00S03672.copyb +++| 04488 M00S03673.copyb +++| SPS SUBR ENTRY/EXIT 04489 M00S03674.copyb +++| SA1 A0+SLF 04490 M00S03675.copyb +++| SB2 X1+ 04491 M00S03676.copyb +++| LE B2,SPSX IF NOT S OR L TAPE 04492 M00S03677.copyb +++| SX6 DLPS DEFAULT L TAPE PRU SIZE 04493 M00S03678.copyb +++| GT B2,B1,SPS1 IF L TAPE 04494 M00S03679.copyb +++| SX6 DSPS DEFAULT S TAPE PRU SIZE 04495 M00S03680.copyb +++| SPS1 SA1 MCC MAXIMUM CHARACTER COUNT 04496 M00S03681.copyb +++| ZR X1,SPS2 IF CHARACTER COUNT NOT SPECIFIED 04497 M00S03682.copyb +++| SX2 9 CALCULATE PRU SIZE 04498 M00S03683.copyb +++| BX0 X1 04499 M00S03684.copyb +++| IX1 X1+X2 04500 M00S03685.copyb +++| SX2 X2+B1 04501 M00S03686.copyb +++| BX3 X2 04502 M00S03687.copyb +++| IX6 X1/X2 04503 M00S03688.copyb +++| IX7 X6*X3 CALCULATE UNUSED BIT COUNT 04504 M00S03689.copyb +++| SA2 A0+NSZ CHECK CHARACTER COUNT AGAINST NOISE SIZE 04505 M00S03690.copyb +++| IX7 X7-X0 04506 M00S03691.copyb +++| SX4 6 04507 M00S03692.copyb +++| AX2 36 04508 M00S03693.copyb +++| IX7 X7*X4 04509 M00S03694.copyb +++| SA1 A0 04510 M00S03695.copyb +++| IX4 X0*X4 04511 M00S03696.copyb +++| SB5 PERC * BLOCK SIZE TOO SMALL ON LFN.* 04512 M00S03697.copyb +++| IX4 X4-X2 04513 M00S03698.copyb +++| SA7 FUBC 04514 M00S03699.copyb +++| NG X4,PER IF BLOCK SIZE TOO SMALL 04515 M00S03700.copyb +++| GT B2,B1,SPS2 IF L TAPE 04516 M00S03701.copyb +++| SX2 MCBS CHECK CHARACTER COUNT AGAINST MAXIMUM 04517 M00S03702.copyb +++| SB5 PERB * BLOCK SIZE TOO LARGE ON LFN.* 04518 M00S03703.copyb +++| IX2 X2-X0 04519 M00S03704.copyb +++| NG X2,PER IF BLOCK SIZE TOO LARGE 04520 M00S03705.copyb +++| SPS2 SA6 A0+6 SET MLRS FIELD OF FET 04521 M00S03706.copyb +++| SA6 A0+PRU SET PRU SIZE ON S OR L TAPE 04522 M00S03707.copyb +++| EQ SPSX RETURN 04523 M00S03708.copyb +++| STC SPACE 4,20 04524 M00S03709.copyb +++|** STC - SET TERMINATION CONDITION. 04525 M00S03710.copyb +++|* 04526 M00S03711.copyb +++|* ENTRY (B7) = REMAINING ARGUMENT COUNT. 04527 M00S03712.copyb +++|* (A5) = ADDRESS OF PREVIOUS ARGUMENT. 04528 M00S03713.copyb +++|* 04529 M00S03714.copyb +++|* EXIT (B7) = UPDATED REMAINING ARGUMENT COUNT - 1. 04530 M00S03715.copyb +++|* (A5) = UPDATED ADDRESS OF PREVIOUS ARGUMENT. 04531 M00S03716.copyb +++|* (TM) = COPYX TERMINATION CONDITION (0 IF ZERO 04532 M00S03717.copyb +++|* RECORD, .GT. 0 IF RECORD NAME, .LT. 0 IF 04533 M00S03718.copyb +++|* RECORD COUNT). 04534 M00S03719.copyb +++|* (RN - RN+1) = COPYX TERMINATION RECORD NAME AND 04535 M00S03720.copyb +++|* TYPE, IF SPECIFIED. 04536 M00S03721.copyb +++|* (BK1) = COPYX LFN1 BACKSPACE CONTROL. 04537 M00S03722.copyb +++|* (BK2) = COPYX LFN2 BACKSPACE CONTROL. 04538 M00S03723.copyb +++|* TO *PER2*, IF ARGUMENT ERROR. 04539 M00S03724.copyb +++|* 04540 M00S03725.copyb +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 04541 M00S03726.copyb +++|* B - 2, 5, 7. 04542 M00S03727.copyb +++|* A - 1, 2, 5, 6, 7. 04543 M00S03728.copyb +++|* 04544 M00S03729.copyb +++|* CALLS DXB. 04545 M00S03730.copyb +++| 04546 M00S03731.copyb +++| 04547 M00S03732.copyb +++| STC SUBR ENTRY/EXIT 04548 M00S03733.copyb +++| SA5 A5+B1 04549 M00S03734.copyb +++| MX0 42 04550 M00S03735.copyb +++| SA1 =2L00 04551 M00S03736.copyb +++| BX5 X0*X5 04552 M00S03737.copyb +++| BX6 X1-X5 04553 M00S03738.copyb +++| ZR X5,STC5 IF BLANK ARGUMENT 04554 M00S03739.copyb +++| ZR X6,STC4 IF *00* 04555 M00S03740.copyb +++| RJ DXB CONVERT NUMBER 04556 M00S03741.copyb +++| SB5 PERI * UNRECOGNIZED TERMINATION CONDITION.* 04557 M00S03742.copyb +++| NZ X4,STC1 IF ASSEMBLY ERROR 04558 M00S03743.copyb +++| ZR X6,PER1 IF COUNT = 0 04559 M00S03744.copyb +++| SA6 CT SET COUNT 04560 M00S03745.copyb +++| EQ STC5 04561 M00S03746.copyb +++| 04562 M00S03747.copyb +++| STC1 SA5 A5 SET NAME 04563 M00S03748.copyb +++| MX0 42 04564 M00S03749.copyb +++| SX3 X5-1R/ CHECK SEPARATOR 04565 M00S03750.copyb +++| BX6 X0*X5 04566 M00S03751.copyb +++| MX7 1 04567 M00S03752.copyb +++| NZ X3,STC3 IF NO TYPE SPECIFIED 04568 M00S03753.copyb +++| SB7 B7-B1 04569 M00S03754.copyb +++| SA5 A5+B1 RECORD NAME 04570 M00S03755.copyb +++| LX3 X6 04571 M00S03756.copyb +++| SA2 STCA CHECK TYPE 04572 M00S03757.copyb +++| BX6 X0*X5 04573 M00S03758.copyb +++| STC2 ZR X2,PER1 IF TYPE NOT IDENTIFIED 04574 M00S03759.copyb +++| BX7 X2-X3 04575 M00S03760.copyb +++| SA2 A2+B1 04576 M00S03761.copyb +++| NZ X7,STC2 04577 M00S03762.copyb +++| SX7 A2-STCA-1 SET TYPE 04578 M00S03763.copyb +++| STC3 SA6 RN SET RECORD NAME 04579 M00S03764.copyb +++| SA7 A6+B1 SET TYPE 04580 M00S03765.copyb +++| SX6 B1 04581 M00S03766.copyb +++| STC4 SA6 TM SET TERMINATION CONDITION 04582 M00S03767.copyb +++| SX7 -B1 SET NEGATIVE COUNT 04583 M00S03768.copyb +++| SA7 CT 04584 M00S03769.copyb +++| 04585 M00S03770.copyb +++|* PROCESS BACKSPACE CONTROL. 04586 M00S03771.copyb +++| 04587 M00S03772.copyb +++| STC5 EQ B7,B1,STCX IF END OF ARGUMENTS 04588 M00S03773.copyb +++| SB7 B7-B1 04589 M00S03774.copyb +++| SA5 A5+B1 CHECK BACKSPACE ARGUMENT 04590 M00S03775.copyb +++| MX1 42 04591 M00S03776.copyb +++| BX5 X1*X5 04592 M00S03777.copyb +++| LX5 6 04593 M00S03778.copyb +++| BX1 X1*X5 04594 M00S03779.copyb +++| SB5 PERJ * UNRECOGNIZED BACKSPACE CODE.* 04595 M00S03780.copyb +++| NZ X1,PER1 IF BACKSPACE CODE TOO LONG 04596 M00S03781.copyb +++| SB2 X5-1R0 04597 M00S03782.copyb +++| ZR X5,STCX IF NULL PARAMETER 04598 M00S03783.copyb +++| ZR B2,STCX IF ZERO ARGUMENT 04599 M00S03784.copyb +++| NG B2,PER1 IF ALPHABETIC CHARACTER 04600 M00S03785.copyb +++| SB2 B2-2 04601 M00S03786.copyb +++| GT B2,B1,PER1 IF BACKSPACE CODE .GT. 3 04602 M00S03787.copyb +++| SX6 B0 04603 M00S03788.copyb +++| ZR B2,STC6 IF BACKSPACE CODE = 2 04604 M00S03789.copyb +++| SX6 B1 SET FILE 1 BACKSPACE 04605 M00S03790.copyb +++| SX7 B0 04606 M00S03791.copyb +++| STC6 NG B2,STC7 IF BACKSPACE CODE = 1 04607 M00S03792.copyb +++| SX7 B1 SET FILE 2 BACKSPACE 04608 M00S03793.copyb +++| STC7 SA6 BK1 04609 M00S03794.copyb +++| SA7 BK2 04610 M00S03795.copyb +++| EQ STCX RETURN 04611 M00S03796.copyb +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04612 M01S00003.251l664 +++| 04613 M00S03797.copyb +++| STCA BSS 0 04614 M00S03798.copyb +++| LOC 0
| Line S03799 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 04615 M01S03799.251l664 ---| CON 0LTEXT 04616 M01S03800.251l664 ---| CON 0LPP 04617 M01S03801.251l664 ---| CON 1 (UNDEFINED RECORD TYPE) 04618 M01S03802.251l664 ---| CON 0LREL 04619 M01S03803.251l664 ---| CON 0LOVL 04620 M01S03804.251l664 ---| CON 0LULIB 04621 M01S03805.251l664 ---| CON 0LOPL 04622 M01S03806.251l664 ---| CON 0LOPLC 04623 M01S03807.251l664 ---| CON 0LOPLD 04624 M01S03808.251l664 ---| CON 0LABS 04625 M01S03809.251l664 ---| CON 0LPPU 04626 M01S03810.251l664 ---| CON 1 (UNDEFINED RECORD TYPE) 04627 M01S03811.251l664 ---| CON 1 (UNDEFINED RECORD TYPE) 04628 M01S03812.251l664 ---| CON 1 (UNDEFINED RECORD TYPE) 04629 M01S03813.251l664 ---| CON 0LCAP 04630 M01S03814.251l664 ---| CON 1 (UNDEFINED RECORD TYPE) 04631 M01S03815.251l664 ---| CON 0LPROC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
04632 M01S00004.251l664 +++| .E ECHO ,RT=("RTMIC")
04633 M01S00005.251l664 +++| .A IFC NE,/RT//
04634 M01S00006.251l664 +++| DATA L/RT/
04635 M01S00007.251l664 +++| .A ELSE
04636 M01S00008.251l664 +++| DATA 1
04637 M01S00009.251l664 +++| .A ENDIF
04638 M01S00010.251l664 +++| .E ENDD
04639 M00S03816.copyb +++| CON 0 END OF TABLE
04640 M00S03817.copyb +++| LOC *O
04641 M00S03818.copyb +++| VCY SPACE 4,15
04642 M00S03819.copyb +++|** VCY - VALIDATE COPY.
04643 M00S03820.copyb +++|*
| Line S03821 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04644 M01S03821.v23l617 ---|* EXIT TO *PER*, IF INVALID NOISE SIZE OR BLOCK SIZE. 04645 M01S03822.v23l617 ---|* TO *PER1*, IF ILLEGAL COPY OR BLOCK SIZE OR
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04646 M01S00165.v23l617 +++|* EXIT TO *PER*, IF INCORRECT NOISE SIZE OR BLOCK SIZE. 04647 M01S00166.v23l617 +++|* TO *PER1*, IF INCORRECT COPY OR BLOCK SIZE OR 04648 M00S03823.copyb +++|* PROCESSING OPTION NOT APPLICABLE. 04649 M00S03824.copyb +++|* 04650 M00S03825.copyb +++|* USES A - 0, 1, 2, 3, 4, 6.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/copyb.002.txt · Last modified: by 127.0.0.1