cdc:nos2.source:opl.opl871:deck:fcopy.002
Deck FCOPY Part 002
10 Modifications
Listing Sections
- Deck FCOPY Start
- Deck FCOPY Part 1 (Line 1853)
- Deck FCOPY Part 2 (Line 3337)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03337 M01S00041.fcopy9 +++| PRS15 ZR X2,PRS1 IF END OF *TCHT* TABLE 03338 M00S03181.fcopy +++| BX6 X1-X2 03339 M00S03182.fcopy +++| BX6 X0*X6
| Line S03183 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03340 M01S03183.fcopy3 ---| ZR X6,PRS5 IF LEGAL *PC* VALUE
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03341 M02S00056.fcopy9 ---| ZR X6,PRS12 IF LEGAL *PC* VALUE
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03342 M01S00042.fcopy9 +++| ZR X6,PRS16 IF LEGAL *PC* VALUE 03343 M00S03184.fcopy +++| SA2 A2+2
| Line S03185 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03344 M01S03185.fcopy3 ---| EQ PRS4 READ NEXT TABLE ENTRY
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03345 M02S00057.fcopy9 ---| EQ PRS11 READ NEXT TABLE ENTRY
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03346 M01S00043.fcopy9 +++| EQ PRS15 READ NEXT TABLE ENTRY 03347 M00S03186.fcopy +++|
| Line S03187 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03348 M01S03187.fcopy3 ---| PRS5 SA2 A2+1 GET FWA OF INPUT BASE TABLE
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03349 M02S00058.fcopy9 ---| PRS12 SA2 A2+B1 GET FWA OF INPUT BASE TABLE
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03350 M01S00044.fcopy9 +++| PRS16 SA2 A2+B1 GET FWA OF INPUT BASE TABLE 03351 M00S03188.fcopy +++| SB6 X2 03352 M00S03189.fcopy +++| AX2 18
| Line S03190 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03353 M01S03190.fcopy3 ---| SX1 B1+
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03354 M01S00059.fcopy3 +++| SX1 B1 03355 M00S03191.fcopy +++| BX1 X2*X1 GET STRANGER TAPE ALLOWED FLAG 03356 M00S03192.fcopy +++| AX2 30 03357 M00S03193.fcopy +++| SB4 X2+ 03358 M00S03194.fcopy +++| SA2 STPI 03359 M00S03195.fcopy +++| SX3 PRSF * INCORRECT FILE TYPE FOR SPECIFIED ... * 03360 M00S03196.fcopy +++| IX2 X1+X2
| Line S03197 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03361 M01S03197.fcopy3 ---| ZR X2,PRS5.5 IF INPUT FILE NOT STRANGER TAPE
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03362 M02S00060.fcopy9 ---| ZR X2,PRS13 IF INPUT FILE NOT STRANGER TAPE
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03363 M01S00045.fcopy9 +++| ZR X2,PRS17 IF INPUT FILE NOT STRANGER TAPE 03364 M00S03198.fcopy +++| SX2 X2-2
| Line S03199 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03365 M01S03199.fcopy3 ---| NZ X2,PRS0 IF INCORRECT FILE TYPE FOR CHARACTER SET
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03366 M01S00061.fcopy3 +++| NZ X2,PRS1 IF INCORRECT FILE TYPE FOR CHARACTER SET 03367 M00S03200.fcopy +++| SA1 FL 03368 M00S03201.fcopy +++| SA2 LB
| Line S03202 Modification History | |
|---|---|
M01 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03369 M01S03202.fcopy9 ---| SB7 B4
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03370 M01S00046.fcopy9 +++| SB7 B4+ 03371 M00S03203.fcopy +++| RJ FBH FORM INPUT FILE BLOCK HEADER WORD 03372 M00S03204.fcopy +++| SA6 IBHW 03373 M00S03205.fcopy +++| SA6 P+6 SAVE HEADER WORD IN FET+6
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03374 M01S00047.fcopy9 +++| MX5 -18 03375 M01S00048.fcopy9 +++| BX5 -X5*X6 03376 M01S00049.fcopy9 +++| SX5 X5-PBUFL+2 03377 M01S00050.fcopy9 +++| NG X5,PRS17 IF LESS THAN ALLOCATED SIZE 03378 M01S00051.fcopy9 +++| MEMORY ,PRSG,R GET CURRENT FIELD LENGTH 03379 M01S00052.fcopy9 +++| SA1 PRSG 03380 M01S00053.fcopy9 +++| AX1 30 03381 M01S00054.fcopy9 +++| IX6 X1+X5 NEW FIELD LENGTH 03382 M01S00055.fcopy9 +++| LX6 30 03383 M01S00056.fcopy9 +++| SA6 A1 03384 M01S00057.fcopy9 +++| MEMORY ,PRSG,R SET NEW FIELD LENGTH 03385 M01S00058.fcopy9 +++| SETFET P,BUF=(PBUF,X5+PBUFL) SET BUFFER POINTERS 03386 M01S00059.fcopy9 +++| SETFET N,BUF=(X5+NBUF,NBUFL)
| Line S03206 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03387 M01S03206.fcopy3 ---| PRS5.5 SA1 NC
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03388 M02S00062.fcopy9 ---| PRS13 SA1 NC
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03389 M01S00060.fcopy9 +++| PRS17 SA1 NC 03390 M00S03207.fcopy +++| SA2 TCHT 03391 M00S03208.fcopy +++| SX3 PRSC * UNRECOGNIZED CODE SET PARAMETER.*
| Line S03209 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03392 M01S03209.fcopy3 ---| PRS6 ZR X2,PRS0 IF END OF *TCHT* TABLE
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03393 M02S00063.fcopy9 ---| PRS14 ZR X2,PRS1 IF END OF *TCHT* TABLE
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03394 M01S00061.fcopy9 +++| PRS18 ZR X2,PRS1 IF END OF *TCHT* TABLE 03395 M00S03210.fcopy +++| BX6 X1-X2 03396 M00S03211.fcopy +++| BX6 X0*X6
| Line S03212 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03397 M01S03212.fcopy3 ---| ZR X6,PRS7 IF LEGAL *NC* VALUE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03398 M02S00064.fcopy9 ---| ZR X6,PRS15 IF LEGAL *NC* VALUE
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03399 M01S00062.fcopy9 +++| ZR X6,PRS19 IF LEGAL *NC* VALUE 03400 M00S03213.fcopy +++| SA2 A2+2
| Line S03214 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03401 M01S03214.fcopy3 ---| EQ PRS6 READ NEXT TABLE ENTRY
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03402 M02S00065.fcopy9 ---| EQ PRS14 READ NEXT TABLE ENTRY
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03403 M01S00063.fcopy9 +++| EQ PRS18 READ NEXT TABLE ENTRY 03404 M00S03215.fcopy +++|
| Line S03216 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03405 M01S03216.fcopy3 ---| PRS7 SA2 A2+1 GET FWA OF OUTPUT BASE TABLE
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03406 M02S00066.fcopy9 ---| PRS15 SA2 A2+1 GET FWA OF OUTPUT BASE TABLE
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03407 M01S00064.fcopy9 +++| PRS19 SA2 A2+1 GET FWA OF OUTPUT BASE TABLE 03408 M00S03217.fcopy +++| SB2 X2 03409 M00S03218.fcopy +++| AX2 18 03410 M00S03219.fcopy +++| SX1 B1+ 03411 M00S03220.fcopy +++| BX1 X2*X1 GET STRANGER TAPE ALLOWED FLAG 03412 M00S03221.fcopy +++| AX2 30 03413 M00S03222.fcopy +++| SB5 X2+ 03414 M00S03223.fcopy +++| SA2 STPO 03415 M00S03224.fcopy +++| SX3 PRSF * INCORRECT FILE TYPE FOR SPECIFIED ... * 03416 M00S03225.fcopy +++| IX2 X1+X2
| Line S03226 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03417 M01S03226.fcopy3 ---| ZR X2,PRS7.1 IF OUTPUT FILE NOT STRANGER TAPE
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03418 M02S00067.fcopy9 ---| ZR X2,PRS16 IF OUTPUT FILE NOT STRANGER TAPE
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03419 M01S00065.fcopy9 +++| ZR X2,PRS21 IF OUTPUT FILE NOT STRANGER TAPE 03420 M00S03227.fcopy +++| SX2 X2-2
| Line S03228 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03421 M01S03228.fcopy3 ---| NZ X2,PRS0 IF INCORRECT FILE TYPE FOR CHARACTER SET
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03422 M01S00068.fcopy3 +++| NZ X2,PRS1 IF INCORRECT FILE TYPE FOR CHARACTER SET 03423 M00S03229.fcopy +++| SA1 FL 03424 M00S03230.fcopy +++| SA2 LB 03425 M00S03231.fcopy +++| SB7 B5+ 03426 M00S03232.fcopy +++| RJ FBH FORM OUTPUT FILE BLOCK HEADER WORD 03427 M00S03233.fcopy +++| SA6 OBHW 03428 M00S03234.fcopy +++| SA6 N+6 SAVE HEADER WORD IN FET+6
| Line S03235 Modification History | |
|---|---|
M01 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03429 M01S03235.fcopy9 ---| SA1 LB PRESET NUMBER OF LINES IN OUTPUT BLOCK
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03430 M01S00066.fcopy9 +++| MX5 -18 03431 M01S00067.fcopy9 +++| BX5 -X5*X6 03432 M01S00068.fcopy9 +++| SX5 X5-NBUFL+2 03433 M01S00069.fcopy9 +++| NG X5,PRS20 IF LESS THAN ALLOCATED SIZE 03434 M01S00070.fcopy9 +++| MEMORY ,PRSG,R GET CURRENT FIELD LENGTH 03435 M01S00071.fcopy9 +++| SA1 PRSG 03436 M01S00072.fcopy9 +++| AX1 30 03437 M01S00073.fcopy9 +++| IX6 X1+X5 NEW FIELD LENGTH 03438 M01S00074.fcopy9 +++| LX6 30 03439 M01S00075.fcopy9 +++| SA6 A1 03440 M01S00076.fcopy9 +++| MEMORY ,PRSG,R SET NEW FIELD LENGTH 03441 M01S00077.fcopy9 +++| SA1 N+1 FIRST 03442 M01S00078.fcopy9 +++| SETFET N,BUF=(X1,X5+NBUFL) SET BUFFER POINTERS 03443 M01S00079.fcopy9 +++| PRS20 SA1 LB PRESET NUMBER OF LINES IN OUTPUT BLOCK 03444 M00S03236.fcopy +++| SA2 FL PRESET NUMBER OF CHARACTERS IN OUTPUT LINE 03445 M00S03237.fcopy +++| BX6 X1 03446 M00S03238.fcopy +++| BX7 X2 03447 M00S03239.fcopy +++| SA6 OLCT 03448 M00S03240.fcopy +++| SA7 OLCC 03449 M00S03241.fcopy +++| SA3 N+2 PRESET POINTER TO SPACE FOR HEADER WORD 03450 M00S03242.fcopy +++| BX6 X3 03451 M00S03243.fcopy +++| SA6 IPTR 03452 M00S03244.fcopy +++| SA1 SPAC SET PROPER BLANK FOR FILLING SHORT LINES 03453 M00S03245.fcopy +++| SA2 X1+B2 03454 M00S03246.fcopy +++| AX2 18 03455 M00S03247.fcopy +++| BX7 X2 03456 M00S03248.fcopy +++| SA7 A1+
| Line S03249 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03457 M01S03249.fcopy3 ---| PRS7.1 SB7 B2+
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03458 M02S00069.fcopy9 ---| PRS16 SB7 B2+
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03459 M01S00080.fcopy9 +++| PRS21 SB7 B2+ 03460 M00S03250.fcopy +++| SA2 STPI 03461 M00S03251.fcopy +++| SA1 PL OLD FILE LINE TERMINATOR 03462 M00S03252.fcopy +++| SX6 X1+
| Line S03253 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03463 M01S03253.fcopy3 ---| NZ X2,PRS7.3 IF INPUT FILE IS STRANGER TAPE
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03464 M02S00070.fcopy9 ---| NZ X2,PRS17 IF INPUT FILE IS STRANGER TAPE
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03465 M01S00081.fcopy9 +++| NZ X2,PRS22 IF INPUT FILE IS STRANGER TAPE 03466 M00S03254.fcopy +++| SB2 B4 CHARACTER LENGTH 03467 M00S03255.fcopy +++| SB3 B6 FWA OF CONVERSION TABLE 03468 M00S03256.fcopy +++| RJ VLC VERIFY LINE TERMINATOR WITH CODE SET
| Line S03257 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03469 M01S03257.fcopy3 ---| NZ X3,PRS0 IF AN ERROR 03470 M01S03258.fcopy3 ---| PRS7.3 SA6 PL SAVE CONVERTED LINE TERMINATOR
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03471 M01S00071.fcopy3 +++| NZ X3,PRS1 IF AN ERROR
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03472 M02S00072.fcopy9 ---| PRS17 SA6 PL SAVE CONVERTED LINE TERMINATOR
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03473 M01S00082.fcopy9 +++| PRS22 SA6 PL SAVE CONVERTED LINE TERMINATOR 03474 M00S03259.fcopy +++| SA2 STPO 03475 M00S03260.fcopy +++| SA1 NL NEW FILE LINE TERMINATOR 03476 M00S03261.fcopy +++| SX6 X1+
| Line S03262 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03477 M01S03262.fcopy3 ---| NZ X2,PRS7.5 IF OUTPUT FILE IS STRANGER TAPE
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03478 M02S00073.fcopy9 ---| NZ X2,PRS18 IF OUTPUT FILE IS STRANGER TAPE
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03479 M01S00083.fcopy9 +++| NZ X2,PRS23 IF OUTPUT FILE IS STRANGER TAPE 03480 M00S03263.fcopy +++| SB2 B5 CHARACTER LENGTH 03481 M00S03264.fcopy +++| SB3 B7 FWA OF CONVERSION TABLE 03482 M00S03265.fcopy +++| RJ VLC VERIFY LINE TERMINATOR WITH CODE SET
| Line S03266 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03483 M01S03266.fcopy3 ---| NZ X3,PRS0 IF AN ERROR 03484 M01S03267.fcopy3 ---| PRS7.5 SA6 NL SAVE CONVERTED LINE TERMINATOR
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03485 M01S00074.fcopy3 +++| NZ X3,PRS1 IF AN ERROR
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03486 M02S00075.fcopy9 ---| PRS18 SA6 NL SAVE CONVERTED LINE TERMINATOR
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03487 M01S00084.fcopy9 +++| PRS23 SA6 NL SAVE CONVERTED LINE TERMINATOR
| Line S03268 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03488 M01S03268.274l797 ---| SA1 PL
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03489 M01S00033.274l797 +++| OPEN P,READNR,R OPEN INPUT FILE 03490 M01S00034.274l797 +++| OPEN N,READNR,R OPEN OUTPUT FILE 03491 M01S00035.274l797 +++| SA1 PL INPUT FILE LINE TERMINATOR 03492 M01S00036.274l797 +++| SA2 NL OUTPUT FILE LINE TERMINATOR 03493 M00S03269.fcopy +++| SA3 STPI
| Line S03270 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03494 M01S03270.274l797 ---| BX6 X6-X1
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03495 M01S00037.274l797 +++| BX6 X1-X2
| Line S03271 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03496 M01S03271.fcopy3 ---| NZ X6,PRS7.7 IF LINE TERMINATORS ARE DIFFERENT 03497 M01S03272.fcopy3 ---| NE B4,B5,PRS7.7 IF CHARACTER LENGTHS ARE DIFFERENT 03498 M01S03273.fcopy3 ---| NZ X3,PRS7.7 IF STRANGER TAPE(S) INVOLVED 03499 M01S03274.fcopy3 ---| EQ B6,B7,PRS8 IF JUST COPY, NO CONVERSION 03500 M01S03275.fcopy3 ---| PRS7.7 RJ BLD BUILD CONVERSION TABLE
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03501 M02S00076.fcopy9 ---| NZ X6,PRS19 IF LINE TERMINATORS ARE DIFFERENT 03502 M02S00077.fcopy9 ---| NE B4,B5,PRS19 IF CHARACTER LENGTHS ARE DIFFERENT 03503 M02S00078.fcopy9 ---| NZ X3,PRS19 IF STRANGER TAPE(S) INVOLVED 03504 M02S00079.fcopy9 ---| EQ B6,B7,PRS20 IF JUST COPY, NO CONVERSION 03505 M02S00080.fcopy9 ---| PRS19 RJ BLD BUILD CONVERSION TABLE
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03506 M01S00085.fcopy9 +++| NZ X6,PRS24 IF LINE TERMINATORS ARE DIFFERENT 03507 M01S00086.fcopy9 +++| NE B4,B5,PRS24 IF CHARACTER LENGTHS ARE DIFFERENT 03508 M01S00087.fcopy9 +++| NZ X3,PRS24 IF STRANGER TAPE(S) INVOLVED 03509 M01S00088.fcopy9 +++| EQ B6,B7,PRS25 IF JUST COPY, NO CONVERSION 03510 M01S00089.fcopy9 +++| PRS24 RJ BLD BUILD CONVERSION TABLE 03511 M00S03276.fcopy +++| SB2 B0+ ZERO CURRENT POSITION IN INPUT WORD 03512 M00S03277.fcopy +++| SB3 60D RESET CURRENT POSITION IN OUTPUT WORD 03513 M00S03278.fcopy +++| EQ PRSX RETURN 03514 M00S03279.fcopy +++|
| Line S03280 Modification History | |
|---|---|
M01 (Removed by) | fcopy3 |
Seq # *Modification Id* Act ----------------------------+ 03515 M01S03280.fcopy3 ---| PRS8 SA0 B0+ SET FOR SIMPLE COPY
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | fcopy3 |
M02 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03516 M02S00081.fcopy9 ---| PRS20 SA0 B0+ SET FOR SIMPLE COPY
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03517 M01S00090.fcopy9 +++| PRS25 SA0 B0+ SET FOR SIMPLE COPY 03518 M00S03281.fcopy +++| EQ PRSX RETURN 03519 M00S03282.fcopy +++| 03520 M00S03283.fcopy +++| PRSA DATA C* ERROR IN FCOPY ARGUMENTS.* 03521 M00S03284.fcopy +++| PRSB DATA C* FILE NAME CONFLICT.* 03522 M00S03285.fcopy +++| PRSC DATA C* UNRECOGNIZED CODE SET PARAMETER.* 03523 M00S03286.fcopy +++| PRSD DATA C* INPUT FILE NOT FOUND.* 03524 M00S03287.fcopy +++| PRSF DATA C* INCORRECT FILE TYPE FOR SPECIFIED CHARACTER SET.*
| Line S03288 Modification History | |
|---|---|
M01 (Removed by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03525 M01S03288.fcopy9 ---| PRSG DATA C* BLOCK TOO LONG FOR BUFFERS.* 03526 M00S03289.fcopy +++| PRSE VFD 42/0,6/PRSEL,12/1 *FILINFO* PARAMETER BLOCK 03527 M00S03290.fcopy +++| BSS FIPBL-1 *FILINFO* PARAMETER BLOCK LENGTH 03528 M00S03291.fcopy +++| VFD 54/0,6/FMTK 03529 M00S03292.fcopy +++| PRSEL EQU *-PRSE
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | fcopy9 |
Seq # *Modification Id* Act ----------------------------+ 03530 M01S00091.fcopy9 +++| PRSG BSSZ 1 MEMORY WORD 03531 M00S03293.fcopy +++| SPACE 4,10 03532 M00S03294.fcopy +++|* PRESET COMMON DECKS. 03533 M00S03295.fcopy +++| 03534 M00S03296.fcopy +++| 03535 M00S03297.fcopy +++|*CALL COMCARG 03536 M00S03298.fcopy +++|*CALL COMCDXB 03537 M00S03299.fcopy +++| SPACE 4,10 03538 M00S03300.fcopy +++|** TARG - ARGUMENT TABLE. 03539 M00S03301.fcopy +++| 03540 M00S03302.fcopy +++| 03541 M00S03303.fcopy +++| TARG BSS 0 03542 M00S03304.fcopy +++| P ARG P,P OLD FILE NAME 03543 M00S03305.fcopy +++| N ARG N,N NEW FILE NAME 03544 M00S03306.fcopy +++| PC ARG PC,PC OLD FILE INTERNAL CHARACTERISTIC 03545 M00S03307.fcopy +++| NC ARG NC,NC NEW FILE INTERNAL CHARACTERISTIC
| Line S03308 Modification History | |
|---|---|
M01 (Removed by) | fcopy8 |
Seq # *Modification Id* Act ----------------------------+ 03546 M01S03308.fcopy8 ---| PL ARG PL,PL OLD LINE TERMINATOR 03547 M01S03309.fcopy8 ---| NL ARG NL,NL NEW LINE TERMINATOR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy8 |
Seq # *Modification Id* Act ----------------------------+ 03548 M01S00001.fcopy8 +++| PL ARG PL,PL,400B OLD LINE TERMINATOR 03549 M01S00002.fcopy8 +++| NL ARG NL,NL,400B NEW LINE TERMINATOR 03550 M00S03310.fcopy +++| FL ARG FL,FL FIXED LINE LENGTH (STRANGER TAPE ONLY) 03551 M00S03311.fcopy +++| LB ARG LB,LB BLOCK LENGTH (STRANGER TAPE ONLY) 03552 M00S03312.fcopy +++| R ARG -ASV,R REWIND
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | fcopy4 |
Seq # *Modification Id* Act ----------------------------+ 03553 M01S00018.fcopy4 +++| A ARG -ASV,A ABORT 03554 M00S03313.fcopy +++| ARG 03555 M00S03314.fcopy +++| SPACE 4,10 03556 M00S03315.fcopy +++|** TCHT - CHARACTER TYPE TABLE. 03557 M00S03316.fcopy +++|* 03558 M00S03317.fcopy +++|*T 42/CS, 18/0
Figure
03559 M00S03318.fcopy +++|*T 12/CCL, 29/0, 1/STF, 18/CBTA
Figure
03560 M00S03319.fcopy +++|* 03561 M00S03320.fcopy +++|* CS = CHARACTER SET NAME. 03562 M00S03321.fcopy +++|* CCL = CHARACTER CODE LENGTH. 03563 M00S03322.fcopy +++|* STF = 1 IF CHARACTER SET ONLY USED WITH STRANGER TAPE. 03564 M00S03323.fcopy +++|* CBTA = CONVERSION BASE TABLE FWA. 03565 M00S03324.fcopy +++| 03566 M00S03325.fcopy +++| 03567 M00S03326.fcopy +++| TCHT BSS 0 03568 M00S03327.fcopy +++| VFD 42/0LDIS,18/0 03569 M00S03328.fcopy +++| ADTP VFD 12/6,30/0,18/TD64 03570 M00S03329.fcopy +++| VFD 42/0LDIS63,18/0 03571 M00S03330.fcopy +++| ADTE VFD 12/6,30/0,18/TD63 03572 M00S03331.fcopy +++| VFD 42/0LDIS64,18/0 03573 M00S03332.fcopy +++| VFD 12/6,30/0,18/TD64 03574 M00S03333.fcopy +++| VFD 42/0LASCII,18/0 03575 M00S03334.fcopy +++| AATP VFD 12/6,30/0,18/TA64 03576 M00S03335.fcopy +++| VFD 42/0LASCII63,18/0 03577 M00S03336.fcopy +++| AATE VFD 12/6,30/0,18/TA63 03578 M00S03337.fcopy +++| VFD 42/0LASCII64,18/0 03579 M00S03338.fcopy +++| VFD 12/6,30/0,18/TA64 03580 M00S03339.fcopy +++| VFD 42/0LASCII8,18/0 03581 M00S03340.fcopy +++| VFD 12/12,30/0,18/TAS8 03582 M00S03341.fcopy +++| ASCI VFD 42/0LASCII88,18/0 03583 M00S03342.fcopy +++| VFD 12/8,30/0,18/TASC 03584 M00S03343.fcopy +++| VFD 42/0LASCFL,18/0 03585 M00S03344.fcopy +++| VFD 12/8,29/0,1/1,18/TASC 03586 M00S03345.fcopy +++| VFD 42/0LEBCFL,18/0 03587 M00S03346.fcopy +++| VFD 12/8,29/0,1/1,18/TEBC 03588 M00S03347.fcopy +++| VFD 42/0LICS,18/0 03589 M00S03348.fcopy +++| VFD 12/12,30/0,18/0 03590 M00S03349.fcopy +++| CON 0 03591 M00S03350.fcopy +++| 03592 M00S03351.fcopy +++| SPACE 4,10 03593 M00S03352.fcopy +++|** TLNT - TABLE OF LINE TERMINATORS. 03594 M00S03353.fcopy +++|* 03595 M00S03354.fcopy +++|*T 42/TERMINATOR NAME,18/0
Figure
03596 M00S03355.fcopy +++|*T 1/D, 1/C, 42/0, 16/TERMINATOR VALUE(S)
Figure
03597 M00S03356.fcopy +++|* 03598 M00S03357.fcopy +++|* D = DOUBLE LENGTH FLAG. 03599 M00S03358.fcopy +++|* C = CONVERTED TERMINATOR FLAG. 03600 M00S03359.fcopy +++| 03601 M00S03360.fcopy +++| TLNT BSS 0 03602 M00S03361.fcopy +++| VFD 42/0LZB,18/0 03603 M00S03362.fcopy +++| DTRM VFD 1/0,1/1,42/0,16/ZBCH 03604 M00S03363.fcopy +++| VFD 42/0LCR,18/0 03605 M00S03364.fcopy +++| VFD 1/0,1/0,42/0,16/15B 03606 M00S03365.fcopy +++| VFD 42/0LFF,18/0 03607 M00S03366.fcopy +++| VFD 1/0,1/0,42/0,16/14B 03608 M00S03367.fcopy +++| VFD 42/0LLF,18/0 03609 M00S03368.fcopy +++| VFD 1/0,1/0,42/0,16/12B 03610 M00S03369.fcopy +++| VFD 42/0LUS,18/0 03611 M00S03370.fcopy +++| ATRM VFD 1/0,1/0,42/0,16/37B 03612 M00S03371.fcopy +++| VFD 42/0LRS,18/0 03613 M00S03372.fcopy +++| VFD 1/0,1/0,42/0,16/36B 03614 M00S03373.fcopy +++| VFD 42/0LCRLF,18/0 03615 M00S03374.fcopy +++| VFD 1/1,1/0,42/0,8/15B,8/12B 03616 M00S03375.fcopy +++| VFD 42/0LLFCR,18/0 03617 M00S03376.fcopy +++| VFD 1/1,1/0,42/0,8/12B,8/15B 03618 M00S03377.fcopy +++| CON 0 03619 M00S03378.fcopy +++| SPACE 4,10 03620 M00S03379.fcopy +++|** BLD - BUILD TABLE. 03621 M00S03380.fcopy +++|*
| Line S03381 Modification History | |
|---|---|
M01 (Removed by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03622 M01S03381.fcopy12 ---|* ENTRY (B6) = FWA INPUT CONVERSION BASE TABLE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03623 M01S00001.fcopy12 +++|* ENTRY (B5) = OUTPUT CHARACTER LENGTH. 03624 M01S00002.fcopy12 +++|* (B6) = FWA INPUT CONVERSION BASE TABLE. 03625 M00S03382.fcopy +++|* (B7) = FWA OUTPUT CONVERSION BASE TABLE. 03626 M00S03383.fcopy +++|* 03627 M00S03384.fcopy +++|* EXIT (A0) = FWA CONVERSION TABLE. 03628 M00S03385.fcopy +++|*
| Line S03386 Modification History | |
|---|---|
M01 (Removed by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03629 M01S03386.fcopy12 ---|* USES X - 1, 2, 3, 4, 5, 6, 7. 03630 M01S03387.fcopy12 ---|* A - 0, 1, 2, 5, 6, 7.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03631 M01S00003.fcopy12 +++|* USES X - ALL. 03632 M01S00004.fcopy12 +++|* A - 0, 1, 2, 4, 5, 6, 7. 03633 M00S03388.fcopy +++|* B - 2, 3, 6, 7. 03634 M00S03389.fcopy +++| 03635 M00S03390.fcopy +++| 03636 M00S03391.fcopy +++| BLD SUBR ENTRY/EXIT 03637 M00S03392.fcopy +++| SB2 TLEN SET BASE TABLE LENGTH 03638 M00S03393.fcopy +++| SA0 TCVT SET ADDRESS OF CONVERSION TABLE 03639 M00S03394.fcopy +++| MX0 5 FORM MASKS 03640 M00S03395.fcopy +++| MX2 -11 03641 M00S03396.fcopy +++| MX5 -12 03642 M00S03397.fcopy +++| SB3 B0 INITIALIZE TABLE OFFSET 03643 M00S03398.fcopy +++| BLD1 SA1 B6+B3 GET NEXT TABLE ENTRY 03644 M00S03399.fcopy +++| NZ B6,BLD2 IF INPUT CHARACTER IS NOT *ICS* 03645 M00S03400.fcopy +++| SA1 B7+B3 GET NEXT TABLE ENTRY 03646 M00S03401.fcopy +++| AX1 18 03647 M00S03402.fcopy +++| BLD2 LX1 59-17 EXTRACT FLAGS 03648 M00S03403.fcopy +++| BX6 X0*X1 03649 M00S03404.fcopy +++| NZ X6,BLD3 IF EITHER FLAG IS SET 03650 M00S03405.fcopy +++| ZR B6,BLD3 IF INPUT CHARACTER SET IS *ICS* 03651 M00S03406.fcopy +++| ZR B7,BLD3 IF OUTPUT CHARACTER SET IS *ICS* 03652 M00S03407.fcopy +++| LX1 -59+17 03653 M00S03408.fcopy +++| BX1 -X2*X1 GET *ICS* CHARACTER 03654 M00S03409.fcopy +++| SA1 B7+X1 GET CONVERSION FOR CHARACTER 03655 M00S03410.fcopy +++| LX1 59-35 EXTRACT FLAGS 03656 M00S03411.fcopy +++| BX6 X0*X1 03657 M00S03412.fcopy +++| BLD3 LX1 59-30-59+35 FORM COUNT 03658 M00S03413.fcopy +++| SX4 B1 03659 M00S03414.fcopy +++| PL X1,BLD4 IF DOUBLE LENGTH FLAG NOT SET 03660 M00S03415.fcopy +++| SX4 2 03661 M00S03416.fcopy +++| BLD4 LX1 59-17-59+30 EXTRACT CHARACTER FIELD 03662 M00S03417.fcopy +++| BX1 -X5*X1 03663 M00S03418.fcopy +++| LX4 54 FORM FINAL TABLE WORD 03664 M00S03419.fcopy +++| LX6 59-32-59+35 03665 M00S03420.fcopy +++| BX4 X4+X1 03666 M00S03421.fcopy +++| BX6 X4+X6 03667 M00S03422.fcopy +++| SA6 A0+B3 SAVE TABLE WORD 03668 M00S03423.fcopy +++| SB3 B3+B1 INCREMENT TABLE POINTER 03669 M00S03424.fcopy +++| LE B3,B2,BLD1 IF MORE TABLE ENTRIES TO BUILD 03670 M00S03425.fcopy +++| 03671 M00S03426.fcopy +++|* ADD LINE TERMINATOR CONVERSIONS TO TABLE. 03672 M00S03427.fcopy +++| 03673 M00S03428.fcopy +++| SA1 PL GET OLD LINE TERMINATOR 03674 M00S03429.fcopy +++| SA2 NL GET NEW LINE TERMINATOR 03675 M00S03430.fcopy +++| SX4 1 FORM NEW LINE TERMINATOR LENGTH 03676 M00S03431.fcopy +++| PL X2,BLD5 IF NEW TERMINATOR IS DOUBLE LENGTH 03677 M00S03432.fcopy +++| SX4 2 03678 M00S03433.fcopy +++| BLD5 MX0 1 EXTRACT CHARACTERS 03679 M00S03434.fcopy +++| BX6 -X0*X2 03680 M00S03435.fcopy +++| LX4 59-5 FORM NEW LINE TERMINATOR WORD 03681 M00S03436.fcopy +++| BX6 X4+X6 03682 M00S03437.fcopy +++| NG X1,BLD6 IF OLD TERMINATOR IS DOUBLE LENGTH 03683 M00S03438.fcopy +++| SB3 X1 03684 M00S03439.fcopy +++| SA6 A0+B3 SAVE LINE TERMINATOR WORD 03685 M00S03440.fcopy +++| EQ BLDX RETURN 03686 M00S03441.fcopy +++| 03687 M00S03442.fcopy +++| BLD6 SA6 BLDA SAVE NEW LINE TERMINATOR WORD 03688 M00S03443.fcopy +++| SB3 B4-B1 FORM MASK FOR OLD CHARACTERS 03689 M00S03444.fcopy +++| AX0 B3 03690 M00S03445.fcopy +++| LX0 B4 03691 M00S03446.fcopy +++| BX3 X0*X1 EXTRACT SECOND CHARACTER OF OLD TERMINATOR 03692 M00S03447.fcopy +++| AX1 B4 EXTRACT FIRST CHARACTER OF OLD TERMINATOR 03693 M00S03448.fcopy +++| BX1 X0*X1 03694 M00S03449.fcopy +++| SB7 6 03695 M00S03450.fcopy +++| SX4 TLEN+1 PRESET OFFSET TO TERMINATOR CONVERSION 03696 M00S03451.fcopy +++| NE B4,B7,BLD7 IF OLD CHARACTER SET IS NOT 6/12 03697 M00S03452.fcopy +++| SX5 X1-74B CHECK FOR 74B ESCAPE CODE 03698 M00S03453.fcopy +++| SX4 200B SET OFFSET FOR 74B ESCAPE CODE 03699 M00S03454.fcopy +++| ZR X5,BLD7 IF FIRST CHARACTER IS 74B ESCAPE CODE 03700 M00S03455.fcopy +++| SX4 300B SET OFFSET FOR 76B ESCAPE CODE 03701 M00S03456.fcopy +++| BLD7 MX7 1 FORM OFFSET WORD 03702 M00S03457.fcopy +++| BX7 X7+X4 03703 M00S03458.fcopy +++| SB6 X4+ SET OFFSET TO TABLE EXTENSION 03704 M00S03459.fcopy +++| SA7 BLDB SAVE OFFSET WORD 03705 M00S03460.fcopy +++| EQ B4,B7,BLD10 IF CHARACTER SET IS 6/12 03706 M00S03461.fcopy +++| 03707 M00S03462.fcopy +++|* BUILD CONVERSION TABLE EXTENSION. 03708 M00S03463.fcopy +++| 03709 M00S03464.fcopy +++| SB3 B0 INITIALIZE TABLE POINTER
| Line S03465 Modification History | |
|---|---|
M01 (Removed by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03710 M01S03465.fcopy12 ---| SX2 1 SET INCREMENT FOR CHARACTER COUNT 03711 M01S03466.fcopy12 ---| LX4 X1,B4 PLACE FIRST EOL CHAR FOR ALTERATION WORD 03712 M01S03467.fcopy12 ---| LX2 59-5 03713 M01S03468.fcopy12 ---| BX4 X2+X4 FORM ALTERATION WORD FOR NORMAL CONVERT 03714 M01S03469.fcopy12 ---| BX2 X2+X1 FORM ALTERATION WORD FOR DELETION ENTRY 03715 M01S03470.fcopy12 ---| BLD8 SA5 A0+B3 GET NEXT TABLE ENTRY 03716 M01S03471.fcopy12 ---| IX7 X4+X5 FORM NORMAL CONVERSION ENTRY FOR EXTENSION
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03717 M01S00005.fcopy12 +++| SB7 X1+ (B7) = FIRST CHARACTER OF OLD TERMINATOR 03718 M01S00006.fcopy12 +++| SA4 A0+B7 TRANSLATE TERMINATOR CHARACTER 03719 M01S00007.fcopy12 +++| MX0 3 FORM MASK FOR CHARACTER COUNT 03720 M01S00008.fcopy12 +++| LX0 60-3 03721 M01S00009.fcopy12 +++| BX7 X0*X4 EXTRACT CHARACTER COUNT 03722 M01S00010.fcopy12 +++| MX2 -36 03723 M01S00011.fcopy12 +++| SA7 BLDC 03724 M01S00012.fcopy12 +++| BX6 -X2*X4 EXTRACT CONVERTED TERMINATOR CHARACTERS 03725 M01S00013.fcopy12 +++| BX2 X4 FORM ALTERATION WORD FOR DELETION ENTRY 03726 M01S00014.fcopy12 +++| BLD8 SA5 A0+B3 GET NEXT TABLE ENTRY 03727 M01S00015.fcopy12 +++| BX7 X0*X5 EXTRACT TRANSLATION CHARACTER COUNT 03728 M01S00016.fcopy12 +++| LX7 6 03729 M01S00017.fcopy12 +++| SX4 B5 03730 M01S00018.fcopy12 +++| IX7 X7*X4 COMPUTE TOTAL BITS 03731 M01S00019.fcopy12 +++| SB2 X7 03732 M01S00020.fcopy12 +++| LX7 X6,B2 CONVERTED FIRST TERMINATOR CHARACTER 03733 M01S00021.fcopy12 +++| SA4 BLDC CHARACTER COUNT 03734 M01S00022.fcopy12 +++| BX7 X5+X7 CURRENT CONVERTED CHARACTER 03735 M01S00023.fcopy12 +++| IX7 X4+X7 FINAL CONVERSION CHARACTER COUNT 03736 M00S03472.fcopy +++| LX5 1 03737 M00S03473.fcopy +++| PL X5,BLD9 IF NORMAL CONVERSION ENTRY 03738 M00S03474.fcopy +++| BX7 X2 USE ALTERATION WORD FOR DELETION ENTRY 03739 M00S03475.fcopy +++| BLD9 SB7 B6+B3 SAVE EXTENSION ENTRY 03740 M00S03476.fcopy +++| SA7 A0+B7 03741 M00S03477.fcopy +++| SB3 B3+B1 INCREMENT TABLE POINTER 03742 M00S03478.fcopy +++| LT B3,B6,BLD8 IF TABLE EXTENSION NOT COMPLETE 03743 M00S03479.fcopy +++| SX7 B7+ SET NEW TABLE LENGTH 03744 M00S03480.fcopy +++| SA7 TCVTL 03745 M00S03481.fcopy +++| BLD10 SA4 BLDB GET OFFSET-TO-TABLE-EXTENSION ENTRY 03746 M00S03482.fcopy +++| SA5 BLDA GET NEW TERMINATOR ENTRY 03747 M00S03483.fcopy +++| BX6 X4 03748 M00S03484.fcopy +++| SB2 X1 03749 M00S03485.fcopy +++| BX7 X5 03750 M00S03486.fcopy +++| SB6 B6+X3 03751 M00S03487.fcopy +++| SA6 A0+B2 SAVE OFFSET ENTRY 03752 M00S03488.fcopy +++| SA7 A0+B6 SAVE NEW TERMINATOR ENTRY 03753 M00S03489.fcopy +++| EQ BLDX RETURN 03754 M00S03490.fcopy +++| 03755 M00S03491.fcopy +++| 03756 M00S03492.fcopy +++| BLDA CON 0 TEMPORARY STORAGE 03757 M00S03493.fcopy +++| BLDB CON 0 TEMPORARY STORAGE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | fcopy12 |
Seq # *Modification Id* Act ----------------------------+ 03758 M01S00024.fcopy12 +++| BLDC CON 0 TEMPORARY STORAGE 03759 M00S03494.fcopy +++| CLP SPACE 4,15 03760 M00S03495.fcopy +++|** CLP - CHECK LINE TERMINATOR PARAMETER. 03761 M00S03496.fcopy +++|* 03762 M00S03497.fcopy +++|* ENTRY (X1) = LINE TERMINATOR PARAMETER VALUE. 03763 M00S03498.fcopy +++|* (X3) = CHARACTER SET PARAMETER VALUE. 03764 M00S03499.fcopy +++|* (X4) = STRANGER FORMAT TAPE FLAG. 03765 M00S03500.fcopy +++|* 03766 M00S03501.fcopy +++|* EXIT (X3) = 0 IF NO ERROR, OTHERWISE ERROR MESSAGE ADDRESS. 03767 M00S03502.fcopy +++|* 03768 M00S03503.fcopy +++|* USES X - 0, 2, 3, 4, 5, 6. 03769 M00S03504.fcopy +++|* A - 2, 4, 6. 03770 M00S03505.fcopy +++|* B - 7. 03771 M00S03506.fcopy +++|* 03772 M00S03507.fcopy +++|* CALLS DXB. 03773 M00S03508.fcopy +++| 03774 M00S03509.fcopy +++| 03775 M00S03510.fcopy +++| CLP4 SX3 CLPA * UNRECOGNIZED LINE TERMINATOR PARAMETER.* 03776 M00S03511.fcopy +++| 03777 M00S03512.fcopy +++| CLP SUBR ENTRY/EXIT 03778 M00S03513.fcopy +++| MX0 42 03779 M00S03514.fcopy +++| SA2 TLNT 03780 M00S03515.fcopy +++| NZ X1,CLP0.1 IF LINE TERMINATOR WAS INPUT 03781 M00S03516.fcopy +++| SA4 ASCI CHECK CHARACTER SET 03782 M00S03517.fcopy +++| SA2 DTRM SET DEFAULT TERMINATOR 03783 M00S03518.fcopy +++| MX0 42 03784 M00S03519.fcopy +++| BX4 X4-X3 03785 M00S03520.fcopy +++| BX4 X0*X4 03786 M00S03521.fcopy +++| NZ X4,CLP3 IF CHARACTER SET NOT *ASCII88* 03787 M00S03522.fcopy +++| SA2 ATRM SET DEFAULT TERMINATOR FOR *ASCII88* 03788 M00S03523.fcopy +++| EQ CLP3 SAVE DEFAULT TERMINATOR 03789 M00S03524.fcopy +++| 03790 M00S03525.fcopy +++| CLP0.1 ZR X4,CLP1 IF NOT STRANGER TAPE 03791 M00S03526.fcopy +++| SX3 CLPB * LINE TERMINATORS NOT USED ... * 03792 M00S03527.fcopy +++| EQ CLPX RETURN 03793 M00S03528.fcopy +++| 03794 M00S03529.fcopy +++| CLP1 ZR X2,CLP2 IF END OF *TLNT* TABLE 03795 M00S03530.fcopy +++| BX6 X1-X2 03796 M00S03531.fcopy +++| BX6 X0*X6 03797 M00S03532.fcopy +++| SA2 A2+1 03798 M00S03533.fcopy +++| ZR X6,CLP3 IF LEGAL LINE TERMINATOR VALUE 03799 M00S03534.fcopy +++| SA2 A2+1 03800 M00S03535.fcopy +++| EQ CLP1 READ NEXT TABLE ENTRY 03801 M00S03536.fcopy +++| 03802 M00S03537.fcopy +++| CLP2 SB7 B0 ASSUME OCTAL 03803 M00S03538.fcopy +++| BX5 X1*X0 03804 M00S03539.fcopy +++| RJ DXB CONVERT FROM DISPLAY CODE 03805 M00S03540.fcopy +++| NZ X4,CLP4 IF ERROR IN CONVERSION 03806 M00S03541.fcopy +++| MX2 1 03807 M00S03542.fcopy +++| LX2 -1 03808 M00S03543.fcopy +++| BX2 X6+X2 SET CONVERTED LINE TERMINATOR FLAG 03809 M00S03544.fcopy +++| CLP3 BX6 X2 03810 M00S03545.fcopy +++| SA6 A1 SAVE LINE TERMINATOR VALUE 03811 M00S03546.fcopy +++| BX3 X3-X3 SET NO ERROR 03812 M00S03547.fcopy +++| EQ CLPX RETURN 03813 M00S03548.fcopy +++| 03814 M00S03549.fcopy +++| 03815 M00S03550.fcopy +++| CLPA DATA C* UNRECOGNIZED LINE TERMINATOR PARAMETER.* 03816 M00S03551.fcopy +++| CLPB DATA C* LINE TERMINATORS NOT USED ON A STRANGER TAPE.* 03817 M00S03552.fcopy +++| VLC SPACE 4,15 03818 M00S03553.fcopy +++|** VLC - VERIFY LINE TERMINATOR WITH CODE SET. 03819 M00S03554.fcopy +++|* 03820 M00S03555.fcopy +++|* ENTRY (B2) = CHARACTER LENGTH. 03821 M00S03556.fcopy +++|* (B3) = FWA OF CONVERSION TABLE. 03822 M00S03557.fcopy +++|* (X1) = LINE TERMINATOR. 03823 M00S03558.fcopy +++|* 03824 M00S03559.fcopy +++|* EXIT (X3) = 0 IF NO ERROR, OTHERWISE ERROR MESSAGE ADDRESS. 03825 M00S03560.fcopy +++|* (X6) = CONVERTED LINE TERMINATOR. 03826 M00S03561.fcopy +++|* 03827 M00S03562.fcopy +++|* USES X - 1, 2, 3, 4, 5, 6. 03828 M00S03563.fcopy +++|* A - 1, 2. 03829 M00S03564.fcopy +++|* B - 2. 03830 M00S03565.fcopy +++| 03831 M00S03566.fcopy +++| VLC6 SX3 VLCA *CODE SET LINE TERMINATOR CONFLICT* 03832 M00S03567.fcopy +++| 03833 M00S03568.fcopy +++| VLC SUBR ENTRY/EXIT 03834 M00S03569.fcopy +++| SX3 B0+ PRESET TO NO ERROR 03835 M00S03570.fcopy +++| BX6 X1 03836 M00S03571.fcopy +++| LX6 59-58 03837 M00S03572.fcopy +++| PL X6,VLC4 IF TERMINATOR NEEDS TO BE CONVERTED 03838 M00S03573.fcopy +++| SB2 B2-B1 03839 M00S03574.fcopy +++| SX1 X1 REMOVE FLAGS 03840 M00S03575.fcopy +++| SX2 X1-ZBCH 03841 M00S03576.fcopy +++| BX6 X1 03842 M00S03577.fcopy +++| NZ X2,VLC1 IF TERMINATOR NOT ZERO BYTE 03843 M00S03578.fcopy +++| SX2 B3-TASC 03844 M00S03579.fcopy +++| ZR X2,VLC6 IF CHARACTER SET IS *ASCII88* 03845 M00S03580.fcopy +++| EQ VLCX RETURN 03846 M00S03581.fcopy +++| 03847 M00S03582.fcopy +++| VLC1 MX6 1 03848 M00S03583.fcopy +++| AX6 B2 03849 M00S03584.fcopy +++| SB2 B2+1 03850 M00S03585.fcopy +++| LX6 B2 03851 M00S03586.fcopy +++| BX5 -X6*X1 03852 M00S03587.fcopy +++| NZ X5,VLC2 IF TERMINATOR LARGER THAN CHARACTER LENGTH 03853 M00S03588.fcopy +++| BX6 X1*X6 03854 M00S03589.fcopy +++| EQ VLCX RETURN LINE TERMINATOR VALUE 03855 M00S03590.fcopy +++| 03856 M00S03591.fcopy +++| VLC2 SX2 B3-TA64 03857 M00S03592.fcopy +++| ZR X2,VLC3 IF 6/12 CHARACTER SET 03858 M00S03593.fcopy +++| SX2 B3-TA63 03859 M00S03594.fcopy +++| NZ X2,VLC3 IF NOT 6/12 CHARACTER SET 03860 M00S03595.fcopy +++| VLC3 AX4 X1,B2 CHECK FIRST CHARACTER OF TERMINATOR 03861 M00S03596.fcopy +++| SX2 X4-74B 03862 M00S03597.fcopy +++| ZR X2,VLCX IF FIRST CHARACTER IS 74B ESCAPE CODE 03863 M00S03598.fcopy +++| SX2 X4-76B 03864 M00S03599.fcopy +++| ZR X2,VLCX IF FIRST CHARACTER IS 76B ESCAPE CODE 03865 M00S03600.fcopy +++| EQ VLC6 ERROR IN TERMINATOR 03866 M00S03601.fcopy +++| 03867 M00S03602.fcopy +++| VLC4 MX6 60-8 03868 M00S03603.fcopy +++| NG X1,VLC5 IF DOUBLE LENGTH TERMINATOR 03869 M00S03604.fcopy +++| BX1 -X6*X1 03870 M00S03605.fcopy +++| SA1 B3+X1 GET CHARACTER FROM TABLE 03871 M00S03606.fcopy +++| MX6 60-12 03872 M00S03607.fcopy +++| AX1 18 03873 M00S03608.fcopy +++| BX6 -X6*X1 EXTRACT CHARACTER 03874 M00S03609.fcopy +++| MX2 1 03875 M00S03610.fcopy +++| LX1 59-12 03876 M00S03611.fcopy +++| BX2 X1*X2 03877 M00S03612.fcopy +++| BX6 X2+X6 MERGE DOUBLE LENGTH FLAG 03878 M00S03613.fcopy +++| MX2 60-5 03879 M00S03614.fcopy +++| BX1 -X2*X1 EXTRACT SPECIAL FLAGS 03880 M00S03615.fcopy +++| NZ X1,VLC6 IF SPECIAL FLAGS SET 03881 M00S03616.fcopy +++| EQ VLCX RETURN 03882 M00S03617.fcopy +++| 03883 M00S03618.fcopy +++| VLC5 LX1 -8 03884 M00S03619.fcopy +++| BX2 -X6*X1 03885 M00S03620.fcopy +++| SA2 B3+X2 GET CHARACTER FROM TABLE 03886 M00S03621.fcopy +++| MX4 60-12 03887 M00S03622.fcopy +++| AX2 18 03888 M00S03623.fcopy +++| BX5 -X4*X2 EXTRACT CHARACTER 03889 M00S03624.fcopy +++| AX2 12 03890 M00S03625.fcopy +++| NZ X2,VLC6 IF ANY FLAGS SET 03891 M00S03626.fcopy +++| LX5 X5,B2 03892 M00S03627.fcopy +++| LX1 8 03893 M00S03628.fcopy +++| BX2 -X6*X1 03894 M00S03629.fcopy +++| SA2 B3+X2 03895 M00S03630.fcopy +++| AX2 18 03896 M00S03631.fcopy +++| BX6 -X4*X2 EXTRACT CHARACTER 03897 M00S03632.fcopy +++| AX2 12 03898 M00S03633.fcopy +++| NZ X2,VLC6 IF ANY FLAGS SET 03899 M00S03634.fcopy +++| BX6 X5+X6 MERGE CHARACTERS 03900 M00S03635.fcopy +++| MX1 1 03901 M00S03636.fcopy +++| BX6 X6+X1 SET DOUBLE LENGTH FLAG 03902 M00S03637.fcopy +++| EQ VLCX RETURN 03903 M00S03638.fcopy +++| 03904 M00S03639.fcopy +++| 03905 M00S03640.fcopy +++| VLCA DATA C* CODE SET LINE TERMINATOR CONFLICT.* 03906 M00S03641.fcopy +++| SPACE 4,10 03907 M00S03642.fcopy +++| END FCOPY
cdc/nos2.source/opl.opl871/deck/fcopy.002.txt · Last modified: by 127.0.0.1