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