User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mt.019

Deck 1MT Part 019

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
25232  M00S15190.1mt     +++|*         LDN    0           (ATTEMPT OPPOSITE PARITY)
25233  M00S15191.1mt     +++| POTH     EQU    *-1
Line S15192 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25234  M01S15192.252l678 ---|          NJN    POT26       IF NOT 7-TRACK F FORMAT, FIRST RETRY
Line S00630 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25235  M01S00630.252l678 +++|          NJN    POT22       IF NOT 7-TRACK F FORMAT, FIRST RETRY
25236  M00S15193.1mt     +++|          STM    POTD        SET TO NOT COUNT ITERATION
25237  M00S15194.1mt     +++|          LDC    UJNI-NJNI   PREVENT BID WINDOW UPDATE
Line S15195 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25238  M01S15195.252l678 ---|          RAM    /READ/MRDN
25239  M01S15196.252l678 ---|          LJM    POT31       BACKSPACE
Line S00631 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25240  M01S00631.252l678 +++|          RAM    /READ/MRDP
25241  M01S00632.252l678 +++|          LJM    POT27       BACKSPACE
25242  M00S15197.1mt     +++|
25243  M00S15198.1mt     +++|*         REREAD MANY TIMES.
25244  M00S15199.1mt     +++|
Line S15200 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25245  M01S15200.252l678 ---| POT26    RJM    CIF         CHECK I FORMAT
Line S00633 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25246  M02S00633.274l797 ---| POT22    RJM    CIF         CHECK I FORMAT
Line S05531 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25247  M01S05531.274l797 +++| POT22    RJM    CIF         CHECK INTERNAL FORMAT
25248  M00S15201.1mt     +++|          RJM    BKS         BACKSPACE
Line S15202 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25249  M01S15202.252l678 ---| POTI     RJM    POS
25250  M01S15203.252l678 ---|*         UJN    *+2         (NO BID RECOVERY)
25251  M01S15204.252l678 ---|          RJM    POT6        SET UP READ
25252  M01S15205.252l678 ---| POT27    NJN    POT28       IF NOT TAPE MARK
25253  M01S15206.252l678 ---|          LJM    POT50       PROCESS RECOVERED ERROR
Line S00634 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25254  M01S00634.252l678 +++|          RJM    POS         POSITION TO LAST GOOD RECORD
25255  M01S00635.252l678 +++|          LDN    4           SET REENTRY CODE TO 4 (POT27)
25256  M01S00636.252l678 +++|          RJM    POT6        JUMP TO COMMON CODE TO REREAD (NO RETURN)
25257  M01S00637.252l678 +++|
25258  M01S00638.252l678 +++|*         ENTRY POINT FOR PROCESSOR TWO  (EP 5-0) = 4.
25259  M01S00639.252l678 +++|
25260  M01S00640.252l678 +++| POT23    NJN    POT24       IF NOT TAPE MARK
25261  M01S00641.252l678 +++|          LJM    POT38       PROCESS RECOVERED ERROR
25262  M00S15207.1mt     +++|
Line S15208 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25263  M01S15208.252l678 ---| POT28    LDD    T4
25264  M01S15209.252l678 ---|          NJN    POT29       IF ERROR
25265  M01S15210.252l678 ---|          LJM    POT50       PROCESS RECOVERED ERROR
Line S00642 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25266  M01S00642.252l678 +++| POT24    LDD    EC          LOAD ERROR CODE
25267  M01S00643.252l678 +++|          NJN    POT25       IF ERROR
25268  M01S00644.252l678 +++|          LJM    POT38       PROCESS RECOVERED ERROR
25269  M00S15211.1mt     +++|
Line S15212 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25270  M01S15212.252l678 ---| POT29    LDD    EP+1
Line S00645 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25271  M01S00645.252l678 +++| POT25    LDD    EP+1
25272  M00S15213.1mt     +++|          LPN    70
Line S15214 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25273  M01S15214.252l678 ---|          ZJN    POT30       IF RETRYS EXHAUSTED
Line S00646 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25274  M01S00646.252l678 +++|          ZJN    POT26       IF RETRIES EXHAUSTED
25275  M00S15215.1mt     +++|          LCN    10
25276  M00S15216.1mt     +++|          RAD    EP+1
Line S15217 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25277  M01S15217.252l678 ---|          UJN    POT26       REREAD
Line S00647 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25278  M01S00647.252l678 +++|          UJN    POT22       REREAD
25279  M00S15218.1mt     +++|
Line S15219 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25280  M01S15219.252l678 ---| POT30    LDD    HP
Line S00648 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25281  M01S00648.252l678 +++|*         CHECK FOR SEVEN OR NINE TRACK UNIT.
25282  M01S00649.252l678 +++|
25283  M01S00650.252l678 +++| POT26    LDD    HP
25284  M00S15220.1mt     +++|          LPN    1
Line S15221 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25285  M01S15221.252l678 ---|          NJN    POT33       IF 9 TRACK TAPE
Line S00651 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25286  M01S00651.252l678 +++|          NJN    POT28       IF 9 TRACK TAPE
25287  M00S15222.1mt     +++|          LDD    EP+1
25288  M00S15223.1mt     +++|          SHN    -11
Line S15224 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25289  M01S15224.252l678 ---|          NJN    POT33       IF OPTIONAL CLIPPING BEING TRIED
Line S00652 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25290  M01S00652.252l678 +++|          NJN    POT28       IF OPTIONAL CLIPPING BEING TRIED
25291  M00S15225.1mt     +++|          LDD    EP+1
25292  M00S15226.1mt     +++|          LPN    7
Line S15227 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25293  M01S15227.252l678 ---|          ZJN    POT33       IF OPPOSITE PARITY ATTEMPTS MADE
25294  M01S15228.252l678 ---| POT31    SOD    EP+1
Line S00653 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25295  M01S00653.252l678 +++|          ZJN    POT28       IF OPPOSITE PARITY ATTEMPTS MADE
25296  M01S00654.252l678 +++| POT27    SOD    EP+1
25297  M00S15229.1mt     +++|          RJM    BKS         BACKSPACE
Line S15230 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25298  M01S15230.252l678 ---| POTJ     RJM    POS
25299  M01S15231.252l678 ---|*         UJN    *+2         (NO BID RECOVERY)
25300  M01S15232.252l678 ---|          RJM    POT6        SET UP READ
25301  M01S15233.252l678 ---| POT32    LJM    POT27       CHECK FOR TAPE MARK
Line S00655 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25302  M01S00655.252l678 +++|          RJM    POS         POSITION TO LAST GOOD RECORD
25303  M01S00656.252l678 +++|          LDN    6           SET REENTRY CODE TO 6 (POT27)
25304  M01S00657.252l678 +++|          RJM    POT6        JUMP TO COMMON CODE TO REREAD (NO RETURN)
25305  M00S15234.1mt     +++|
25306  M00S15235.1mt     +++|*         CLEAN THE TAPE.
Line S15236 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25307  M01S15236.252l678 ---|*         THIS IS NOT PERFORMED ON RETRYS AT OPTIONAL CLIP LEVELS.
Line S00658 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25308  M01S00658.252l678 +++|*         THIS IS NOT PERFORMED ON RETRIES AT OPTIONAL CLIP LEVELS.
25309  M00S15237.1mt     +++|
Line S15238 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25310  M01S15238.252l678 ---| POT33    LDD    EP+1
Line S00659 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25311  M01S00659.252l678 +++| POT28    LDD    EP+1
25312  M00S15239.1mt     +++|          SHN    -11
Line S15240 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25313  M01S15240.252l678 ---|          ZJN    POT34       IF NOT OPTIONAL CLIPPING LEVEL
25314  M01S15241.252l678 ---|          LJM    POT43       BACKSPACE
25315  M01S15242.252l678 ---|
25316  M01S15243.252l678 ---| POT34    LDD    MD
25317  M01S15244.252l678 ---|          SHN    21-13
25318  M01S15245.252l678 ---| POTK     MJN    POT35       IF REVERSE DIRECTION
25319  M01S15246.252l678 ---|*         PSN                (BID POSITIONING)
25320  M01S15247.252l678 ---|          RJM    BKS         BACKSPACE
25321  M01S15248.252l678 ---| POTL     RJM    POS
25322  M01S15249.252l678 ---|*         UJN    POT35       (NOT BID RECOVERY)
25323  M01S15250.252l678 ---|          LJM    POT40       REREAD NON-STOP
25324  M01S15251.252l678 ---|
25325  M01S15252.252l678 ---| POT35    LDN    0           SET BYPASSED BLOCK COUNT
25326  M01S15253.252l678 ---|          STM    POTO
Line S15254 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25327  M02S15254.252l678 ---| POT36    RJM    RTR         READ TAPE REVERSE
Line S00480 Modification History
M01 (Added by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25328  M02S00480.252l678 ---| POT36    RJM    BKS         BACKSPACE
Line S15255 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25329  M01S15255.252l678 ---|          MJN    POT37       IF BOT
25330  M01S15256.252l678 ---|          AOM    POTO        COUNT BLOCK
25331  M01S15257.252l678 ---|          LMN    3
25332  M01S15258.252l678 ---|          NJN    POT36       IF MORE BLOCKS TO PASS
25333  M01S15259.252l678 ---|
25334  M01S15260.252l678 ---|*         REPOSITION BACK TO THE ERROR BLOCK.
25335  M01S15261.252l678 ---|
25336  M01S15262.252l678 ---| POT37    LDM    POTO
25337  M01S15263.252l678 ---|          ZJN    POT39       IF NO BLOCKS SKIPPED
25338  M01S15264.252l678 ---| POT38    RJM    RDA         READ BLOCK
25339  M01S15265.252l678 ---|          SOM    POTO
25340  M01S15266.252l678 ---|          NJN    POT38       IF MORE BLOCKS TO SKIP
25341  M01S15267.252l678 ---| POT39    LDD    MD
25342  M01S15268.252l678 ---|          SHN    21-13
25343  M01S15269.252l678 ---|          PJN    POT40       IF NOT REVERSE READ
25344  M01S15270.252l678 ---|          RJM    RDA         READ BLOCK
25345  M01S15271.252l678 ---|          RJM    RDA         READ BLOCK
Line S15272 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25346  M02S15272.252l678 ---|          RJM    RTR         READ TAPE REVERSE
Line S00481 Modification History
M01 (Added by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25347  M02S00481.252l678 ---|          RJM    BKS         BACKSPACE
Line S00660 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25348  M01S00660.252l678 +++|          NJN    POT31       IF OPTIONAL CLIPPING LEVEL
25349  M01S00661.252l678 +++|          RJM    BKS         BACK OVER BAD RECORD
25350  M01S00662.252l678 +++|          RJM    POS         POSITION TO LAST GOOD RECORD
25351  M00S15273.1mt     +++|
25352  M00S15274.1mt     +++|*         REREAD THE ERROR BLOCK NON - STOP.
25353  M00S15275.1mt     +++|
Line S15276 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25354  M01S15276.252l678 ---| POT40    AOM    POTE        SET NO REQUEUE
25355  M01S15277.252l678 ---|          RJM    POT6        SET UP REREAD
25356  M01S15278.252l678 ---| POT41    LDD    T4
25357  M01S15279.252l678 ---|          NJN    POT42       IF ERROR
25358  M01S15280.252l678 ---|          LJM    POT16       ISSUE RECOVERED MESSAGE
Line S00663 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25359  M01S00663.252l678 +++|          AOM    POTE        SET NO REQUEUE
25360  M01S00664.252l678 +++|          LDN    10          SET REENTRY CODE TO 10 (POT41)
25361  M01S00665.252l678 +++|          RJM    POT6        JUMP TO COMMON CODE TO REREAD (NO RETURN)
25362  M01S00666.252l678 +++|
25363  M01S00667.252l678 +++|*         ENTRY POINT FOR PROCESSOR FOUR  (EP 5-0) = 10.
25364  M01S00668.252l678 +++|
25365  M01S00669.252l678 +++| POT29    LDD    EC
25366  M01S00670.252l678 +++|          NJN    POT30       IF ERROR
25367  M01S00671.252l678 +++|          LJM    POT11       ISSUE RECOVERED MESSAGE
25368  M00S15281.1mt     +++|
25369  M00S15282.1mt     +++|*         RETRY THE ALGORITHM.
25370  M00S15283.1mt     +++|
Line S15284 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25371  M01S15284.252l678 ---| POT42    LDC    -100
Line S00672 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25372  M01S00672.252l678 +++| POT30    LDC    -100
25373  M00S15285.1mt     +++|          RAD    EP+1
25374  M00S15286.1mt     +++|          LPC    700
Line S15287 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25375  M01S15287.252l678 ---|          ZJN    POT43       RETRYS EXHAUSTED
25376  M01S15288.252l678 ---|          LJM    POT23       SET PARITY REREAD COUNTS
Line S00673 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25377  M01S00673.252l678 +++|          ZJN    POT31       IF RETRIES EXHAUSTED
25378  M01S00674.252l678 +++|          LJM    POT19       SET PARITY REREAD COUNTS
25379  M00S15289.1mt     +++|
Line S15290 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25380  M01S15290.252l678 ---| POT43    RJM    BKS         BACKSPACE TO CONTINUE RECOVERY PROCESS
25381  M01S15291.252l678 ---|
25382  M00S15292.1mt     +++|*         TRY THE OTHER CLIPPING LEVELS.
25383  M00S15293.1mt     +++|
Line S00675 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25384  M01S00675.252l678 +++| POT31    RJM    BKS         BACKSPACE OVER BAD PRU
25385  M00S15294.1mt     +++|          LDD    EP+1
25386  M00S15295.1mt     +++|          SBD    TH
Line S15296 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25387  M01S15296.252l678 ---|          PJN    POT44       IF NOT FIRST TIME
Line S00676 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25388  M01S00676.252l678 +++|          PJN    POT32       IF NOT FIRST TIME
25389  M00S15297.1mt     +++|          ADC    3000        SET FIRST CLIP LEVEL TO TRY
Line S15298 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25390  M01S15298.252l678 ---| POT44    STD    EP+1
Line S00677 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25391  M01S00677.252l678 +++| POT32    STD    EP+1
25392  M00S15299.1mt     +++|          SHN    -11
Line S15300 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25393  M01S15300.252l678 ---| POTM     ZJN    POT45       IF ALL CLIPPING LEVELS EXHAUSTED
25394  M01S15301.252l678 ---|*         UJN    POT45       (FSC ADAPTOR AND NINE TRACK UNIT)
25395  M01S15302.252l678 ---|          RJM    SCL
25396  M01S15303.252l678 ---|          LJM    POT14       RESET RETRY COUNT
Line S00678 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25397  M01S00678.252l678 +++| POTM     ZJN    POT33       IF ALL CLIPPING LEVELS EXHAUSTED
25398  M01S00679.252l678 +++|*         UJN    POT33       (FSC ADAPTOR AND NINE TRACK UNIT)
25399  M01S00680.252l678 +++|          RJM    SCL         SELECT NEW CLIP LEVEL
25400  M01S00681.252l678 +++|
25401  M01S00682.252l678 +++|*         RESET RETRY COUNT FOR FORWARD REREADS.
25402  M01S00683.252l678 +++|
25403  M01S00684.252l678 +++|          LDD    EP+1        RESET RETRY COUNT
25404  M01S00685.252l678 +++|          LPC    3077
25405  M01S00686.252l678 +++|          LMC    200
25406  M01S00687.252l678 +++|          STD    EP+1
25407  M01S00688.252l678 +++|          LDN    2           SET UP REENTRY CODE TO 2 (POT22)
25408  M01S00689.252l678 +++|          RJM    POT6        JUMP TO COMMON CODE (NO RETURN)
25409  M00S15304.1mt     +++|
Line S15305 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25410  M01S15305.252l678 ---| POT45    LDD    FN          LEAVE POSITIONED BEFORE BLOCK IF LABEL
Line S00690 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25411  M01S00690.252l678 +++| POT33    LDD    FN          LEAVE POSITIONED BEFORE BLOCK IF LABEL
25412  M00S15306.1mt     +++|          LMN    /MTX/RLA
Line S15307 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25413  M01S15307.252l678 ---|          ZJN    POT47       IF READ LABELS
25414  M01S15308.252l678 ---|          RJM    POT6        SET UP READ
25415  M01S15309.252l678 ---| POT46    LDN    4           SET UNUSEABLE BID
Line S00691 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25416  M01S00691.252l678 +++|          ZJN    POT35       IF READ LABELS
25417  M01S00692.252l678 +++|          LDN    12          SET UP REENTRY CODE TO 12 (POT46)
25418  M01S00693.252l678 +++|          RJM    POT6        JUMP TO COMMON CODE (NO RETURN)
25419  M01S00694.252l678 +++|
25420  M01S00695.252l678 +++|*         ENTRY POINT FOR PROCESSOR FIVE  (EP 5-0) = 12.
25421  M01S00696.252l678 +++|
25422  M01S00697.252l678 +++| POT34    LDN    4           SET UNUSABLE BID
25423  M00S15310.1mt     +++|          STM    UBWB
25424  M00S15311.1mt     +++|          RJM    UBW         UPDATE BID WINDOW
25425  M00S15312.1mt     +++|          LDD    EC
25426  M00S15313.1mt     +++|          LMN    /MTX/BTL
Line S15314 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25427  M01S15314.252l678 ---|          NJN    POT47       IF NOT *BLOCK TOO LARGE*
Line S00698 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25428  M01S00698.252l678 +++|          NJN    POT35       IF NOT *BLOCK TOO LARGE*
25429  M00S15315.1mt     +++|          RJM    BKS         INSURE POSITIONED PAST BAD BLOCK
25430  M00S15316.1mt     +++|          RJM    RDA         SKIP BLOCK
Line S15317 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25431  M01S15317.252l678 ---| POT47    LDD    FN
Line S00699 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25432  M01S00699.252l678 +++| POT35    LDD    FN
25433  M00S15318.1mt     +++|          LMN    /MTX/RDF
Line S15319 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25434  M01S15319.252l678 ---|          ZJN    POT48       IF READ
Line S00700 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25435  M01S00700.252l678 +++|          ZJN    POT36       IF READ
25436  M00S15320.1mt     +++|          LJM    RET4        RETURN FATAL ERROR
25437  M00S15321.1mt     +++|
Line S15322 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25438  M01S15322.252l678 ---| POT48    LDM    FETO
Line S00701 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25439  M01S00701.252l678 +++|*         UNRECOVERABLE READ ERROR.
25440  M01S00702.252l678 +++|
25441  M01S00703.252l678 +++| POT36    LDM    FETO
25442  M00S15323.1mt     +++|          SHN    21-10
Line S15324 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25443  M01S15324.252l678 ---|          PJN    POT49       IF ERROR PROCESSING NOT SET
Line S00704 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25444  M01S00704.252l678 +++|          PJN    POT37       IF ERROR PROCESSING NOT SET
25445  M00S15325.1mt     +++|          RJM    RSP         RESET PARAMETERS
25446  M00S15326.1mt     +++|          RJM    WIP         WRITE IN POINTER TO BUFFER
25447  M00S15327.1mt     +++|          LDD    MD
25448  M00S15328.1mt     +++|          SHN    21-5
Line S15329 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25449  M01S15329.252l678 ---|          PJN    POT49       IF NOT 200 READ
Line S00705 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25450  M01S00705.252l678 +++|          PJN    POT37       IF NOT 200 READ
25451  M00S15330.1mt     +++|          LDD    CN+3        READ CONTROL WORD
25452  M00S15331.1mt     +++|          SHN    6
25453  M00S15332.1mt     +++|          ADD    RA
25454  M00S15333.1mt     +++|          SHN    6
25455  M00S15334.1mt     +++|          ADD    CN+4
25456  M00S15335.1mt     +++|          CRD    CM
25457  M00S15336.1mt     +++|          LDC    4000        SET UNRECOVERED ERROR INDICATION
25458  M00S15337.1mt     +++|          RAD    CM
25459  M00S15338.1mt     +++|          LDD    CN+3        REWRITE CONTROL WORD
25460  M00S15339.1mt     +++|          SHN    6
25461  M00S15340.1mt     +++|          ADD    RA
25462  M00S15341.1mt     +++|          SHN    6
25463  M00S15342.1mt     +++|          ADD    CN+4
25464  M00S15343.1mt     +++|          CWD    CM
Line S15344 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25465  M01S15344.252l678 ---| POT49    LDC    RET4        SET TO GIVE FATAL USER ERROR
Line S00706 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25466  M01S00706.252l678 +++| POT37    LDC    RET4        SET TO GIVE FATAL USER ERROR
25467  M00S15345.1mt     +++|          STM    /READ/WCBD
Line S05532 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25468  M01S05532.274l797 +++| POTR     EQU    *-1
25469  M01S05533.274l797 +++|*         STM    /RLI/UIPC   (LI FORMAT)
Line S15346 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25470  M01S15346.252l678 ---|          LJM    POT18       CLEAR ERROR PARAMETER
Line S00707 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25471  M01S00707.252l678 +++|          LJM    POT13       CLEAR ERROR PARAMETER
25472  M00S15347.1mt     +++|
25473  M00S15348.1mt     +++|*         ERROR RECOVERED.
25474  M00S15349.1mt     +++|
Line S15350 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25475  M01S15350.252l678 ---| POT50    LDM    POTP
Line S00708 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25476  M01S00708.252l678 +++| POT38    LDM    POTO
25477  M00S15351.1mt     +++|          SHN    21-12
Line S15352 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25478  M01S15352.252l678 ---|          MJN    POT51       IF OPPOSITE PARITY MODE
25479  M01S15353.252l678 ---|          LJM    POT16       ISSUE RECOVERED MESSAGE
Line S00709 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25480  M01S00709.252l678 +++|          MJN    POT39       IF OPPOSITE PARITY MODE
25481  M01S00710.252l678 +++|          LJM    POT11       ISSUE RECOVERED MESSAGE
25482  M00S15354.1mt     +++|
Line S15355 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25483  M01S15355.252l678 ---| POT51    LDD    FM
Line S00711 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25484  M01S00711.252l678 +++| POT39    LDD    FM
Line S01300 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25485  M01S01300.282l826 +++|          SHN    -6
25486  M00S15356.1mt     +++|          LMN    /MTX/TFF
Line S15357 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25487  M01S15357.252l678 ---|          NJN    POT52       IF NOT F FORMAT
Line S00712 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25488  M01S00712.252l678 +++|          NJN    POT40       IF NOT F FORMAT
25489  M00S15358.1mt     +++|          RJM    BKS
Line S15359 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25490  M01S15359.252l678 ---| POTN     RJM    POS
25491  M01S15360.252l678 ---|*         UJN    *+2         (NO BID RECOVERY)
Line S00713 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25492  M01S00713.252l678 +++|          RJM    POS         POSITION TO LAST GOOD RECORD
25493  M00S15361.1mt     +++|          LDN    0           CLEAR ERROR PARAMETERS
25494  M00S15362.1mt     +++|          STD    EI
25495  M00S15363.1mt     +++|          STD    EP
25496  M00S15364.1mt     +++|          STD    EP+1
25497  M00S15365.1mt     +++|          LDD    MD          TOGGLE MODE
25498  M00S15366.1mt     +++|          LMC    100
25499  M00S15367.1mt     +++|          STD    MD
25500  M00S15368.1mt     +++|          LDD    UP
25501  M00S15369.1mt     +++|          LMN    1
25502  M00S15370.1mt     +++|          STD    UP
25503  M00S15371.1mt     +++|          LJM    RET2        REQUEUE
25504  M00S15372.1mt     +++|
Line S15373 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25505  M01S15373.252l678 ---| POT52    LDN    /MTX/OPA    TAPE WRITTEN IN OPPOSITE PARITY
Line S00714 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25506  M01S00714.252l678 +++|*         TAPE RECOVERED IN OPPOSITE PARITY MODE.
25507  M01S00715.252l678 +++|
25508  M01S00716.252l678 +++| POT40    LDN    /MTX/OPA    TAPE WRITTEN IN OPPOSITE PARITY
25509  M00S15374.1mt     +++|          STD    EC
25510  M00S15375.1mt     +++|          LDD    FN
25511  M00S15376.1mt     +++|          LMN    /MTX/RLA
Line S15377 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25512  M01S15377.252l678 ---|          ZJN    POT53       IF READ LABELS
Line S00717 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25513  M01S00717.252l678 +++|          ZJN    POT41       IF READ LABELS
25514  M00S15378.1mt     +++|          LDM    REMF        RESTORE BID
25515  M00S15379.1mt     +++|          STM    UBWB
25516  M00S15380.1mt     +++|          CALL   EMM
25517  M00S15381.1mt     +++|          AOD    BL+1        INCREMENT BLOCK COUNT
25518  M00S15382.1mt     +++|          SHN    -14
25519  M00S15383.1mt     +++|          RAD    BL
25520  M00S15384.1mt     +++|          RJM    CFC         CONNECT IF NEEDED
25521  M00S15385.1mt     +++|          LJM    RET4        RETURN FATAL ERROR
25522  M00S15386.1mt     +++|
Line S15387 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25523  M01S15387.252l678 ---| POT53    LJM    POT20       RELOAD READ LABELS
Line S00718 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25524  M01S00718.252l678 +++| POT41    LJM    POT15       RELOAD READ LABELS
25525  M00S15388.1mt     +++| PTM      SPACE  4,10
25526  M00S15389.1mt     +++|**        PTM - PROCESS TAPE MARK.
25527  M00S15390.1mt     +++|*
25528  M00S15391.1mt     +++|*         EXIT   IF NOT LABELED, EOF STATUS SET IN (RS) AND (MD).
25529  M00S15392.1mt     +++|*                (REMF) SET TO 1 IF TAPE MARK.
25530  M00S15393.1mt     +++|
25531  M00S15394.1mt     +++|
25532  M00S15395.1mt     +++| PTM4     LDN    /MTX/BEI    RETURN POSSIBLE EOI
25533  M00S15396.1mt     +++|          RAM    REMG
25534  M00S15397.1mt     +++|
25535  M00S15398.1mt     +++| PTM      SUBR               ENTRY/EXIT
25536  M00S15399.1mt     +++|          LDN    1           SET TAPE MARK INDICATION
25537  M00S15400.1mt     +++|          STM    REMF
25538  M00S15401.1mt     +++|          LDD    EP
25539  M00S15402.1mt     +++|          LPN    77
25540  M00S15403.1mt     +++|          ZJN    PTM1        IF FIRST ENTRY
Line S15404 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25541  M01S15404.252l678 ---|          LDC    POT16       SET RECOVERED TAPE MARK
Line S00719 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25542  M01S00719.252l678 +++|          LDC    POT11       SET RECOVERED TAPE MARK
25543  M00S15405.1mt     +++|          STM    POTA
25544  M00S15406.1mt     +++|          LDC    LDNI+/MTX/BEI  SET TO RETURN TAPE MARK IF READ LABELS
25545  M00S15407.1mt     +++|          STM    POTG
25546  M00S15408.1mt     +++| PTM1     LDD    FN
25547  M00S15409.1mt     +++|          LMN    /MTX/RLA
25548  M00S15410.1mt     +++|          ZJN    PTMX        IF READ LABELS
Line S15411 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25549  M01S15411.282l826 ---|          LDD    UP
25550  M01S15412.282l826 ---|          SHN    -12
25551  M01S15413.282l826 ---|          NJN    PTM4        IF LABELED
Line S01301 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25552  M01S01301.282l826 +++|          LDD    LT
25553  M01S01302.282l826 +++|          SHN    21-12
25554  M01S01303.282l826 +++|          MJN    PTM4        IF LABELED
25555  M00S15414.1mt     +++|          LDD    DS
25556  M00S15415.1mt     +++|          LPN    10
25557  M00S15416.1mt     +++|          NJN    PTM4        IF EOT
25558  M00S15417.1mt     +++|          LDD    FM
Line S01304 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25559  M01S01304.282l826 +++|          SHN    -6
25560  M00S15418.1mt     +++|          SBN    /MTX/TFSI+1
25561  M00S15419.1mt     +++|          MJN    PTM4        IF INTERNAL MODES
Line S05534 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25562  M01S05534.274l797 +++|          SBN    /MTX/TFLI-/MTX/TFSI-1
25563  M01S05535.274l797 +++|          ZJP    PTM4        IF LI FORMAT
25564  M00S15420.1mt     +++|          LDD    MD          SET EOF STATUS
25565  M00S15421.1mt     +++|          SCN    14
25566  M00S15422.1mt     +++|          LMN    10
25567  M00S15423.1mt     +++|          STD    MD
25568  M00S15424.1mt     +++|          LDN    2
25569  M00S15425.1mt     +++|          STD    TB
25570  M00S15426.1mt     +++|          LDD    FM
Line S01305 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25571  M01S01305.282l826 +++|          SHN    -6
25572  M00S15427.1mt     +++|          LMN    /MTX/TFS
25573  M00S15428.1mt     +++|          ZJN    PTM2        IF S FORMAT
25574  M00S15429.1mt     +++|          LMN    /MTX/TFL&/MTX/TFS
25575  M00S15430.1mt     +++|          NJN    PTM3        IF NOT L FORMAT
25576  M00S15431.1mt     +++| PTM2     LDM    //CIOE
25577  M00S15432.1mt     +++|          LPC    770
25578  M00S15433.1mt     +++|          LMC    260
25579  M00S15434.1mt     +++|          NJN    PTM3        IF NOT 260 READ CODE
25580  M00S15435.1mt     +++|          LDN    26          SET TO RETURN 271 STATUS
25581  M00S15436.1mt     +++|          STD    TB
25582  M00S15437.1mt     +++| PTM3     LJM    PTMX        RETURN
25583  M00S15438.1mt     +++|          TITLE  SUBROUTINES.
25584  M00S15439.1mt     +++| ABC      SPACE  4,10
25585  M00S15440.1mt     +++|**        ABC - ADJUST BYTE COUNT FOR 9 TRACK TAPES.
25586  M00S15441.1mt     +++|*
25587  M00S15442.1mt     +++|*         ENTRY  (BY) = BYTE COUNT.
25588  M00S15443.1mt     +++|*                (DS) = DEVICE STATUS.
25589  M00S15444.1mt     +++|*
25590  M00S15445.1mt     +++|*         (ABCA) = 0 IF NO BYTE ADJUSTMENT.
25591  M00S15446.1mt     +++|
25592  M00S15447.1mt     +++|
25593  M00S15448.1mt     +++| ABC      SUBR               ENTRY/EXIT
25594  M00S15449.1mt     +++|          LDD    HP
25595  M00S15450.1mt     +++|          LPN    1
25596  M00S15451.1mt     +++|          ZJN    ABCX        IF 7 TRACK
25597  M00S15452.1mt     +++|
25598  M00S15453.1mt     +++|*         CORRECT 9 TRACK BYTE COUNT.
25599  M00S15454.1mt     +++|
25600  M00S15455.1mt     +++| ABCA     LDD    DS
25601  M00S15456.1mt     +++|*         UJN    ABC1        (ATS UNIT)
25602  M00S15457.1mt     +++|          LPN    40
25603  M00S15458.1mt     +++|          ZJN    ABC1        IF NO ODD COUNT
25604  M00S15459.1mt     +++|          LDD    BY
25605  M00S15460.1mt     +++|          LPN    2
25606  M00S15461.1mt     +++|          ZJN    ABC1        IF NOT MODULO 4, 2 OR 3
25607  M00S15462.1mt     +++|          SOD    BY
25608  M00S15463.1mt     +++|
25609  M00S15464.1mt     +++|*         ADJUST BUFFER LENGTH FOR I FORMAT.
25610  M00S15465.1mt     +++|
25611  M00S15466.1mt     +++| ABC1     LDD    FM
Line S01306 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25612  M01S01306.282l826 +++|          SHN    -6
Line S15467 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25613  M01S15467.274l797 ---|          LMN    /MTX/TFI
Line S05536 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25614  M01S05536.274l797 +++|*         LMN    /MTX/TFI
25615  M01S05537.274l797 +++|          ERRNZ  /MTX/TFI
25616  M00S15468.1mt     +++|          NJN    ABCX        IF NOT I FORMAT
25617  M00S15469.1mt     +++|          LDD    BY
25618  M00S15470.1mt     +++|          ZJN    ABCX        IF NO DATA READ
25619  M00S15471.1mt     +++|          SBN    1
25620  M00S15472.1mt     +++|          ZJN    ABCX        IF POSSIBLE TAPE MARK READ
25621  M00S15473.1mt     +++|          STD    T2          CALCULATE WORD COUNT
25622  M00S15474.1mt     +++|          SHN    1           13*BYTES
25623  M00S15475.1mt     +++|          ADD    T2
25624  M00S15476.1mt     +++|          SHN    2
25625  M00S15477.1mt     +++|          ADD    T2
25626  M00S15478.1mt     +++|          SHN    14  (-6)    (13*BYTES)/64
25627  M00S15479.1mt     +++|          STD    T0
25628  M00S15480.1mt     +++|          SHN    6+2         4*13*BYTES  (52*BYTES)
25629  M00S15481.1mt     +++|          SBD    T2          51*BYTES
25630  M00S15482.1mt     +++|          ADD    T0          (51*BYTES)+((13*BYTES)/64)
25631  M00S15483.1mt     +++|          SHN    -8D         WORDS = ((51*BYTES)+((13*BYTES)/64))/256
25632  M00S15484.1mt     +++|          LPN    1
25633  M00S15485.1mt     +++|          STM    ABCB        SET EXIT CONDITION
25634  M00S15486.1mt     +++|          LJM    ABCX        RETURN
25635  M00S15487.1mt     +++|
25636  M00S15488.1mt     +++|
25637  M00S15489.1mt     +++| ABCB     CON    0
25638  M00S15490.1mt     +++| BKS      SPACE  4,10
25639  M00S15491.1mt     +++|**        BKS - BACKSPACE TAPE.
25640  M00S15492.1mt     +++|*
25641  M00S15493.1mt     +++|*         EXIT   (A) = NEGATIVE IF BOT.
25642  M00S15494.1mt     +++|*
25643  M00S15495.1mt     +++|*         CALLS  CKR, FCN, RTR, STW, WFC.
25644  M00S15496.1mt     +++|
25645  M00S15497.1mt     +++|
Line S15498 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25646  M01S15498.v23l617 ---| BKS1     RJM    RTR         READ TAPE REVERSE
25647  M01S15499.v23l617 ---|
25648  M00S15500.1mt     +++| BKS      SUBR               ENTRY/EXIT
Line S15501 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25649  M01S15501.v23l617 ---|          LDM    /READ/TDAA
25650  M01S15502.v23l617 ---|          ZJN    BKS1        IF LONG BLOCKS
25651  M00S15503.1mt     +++|          LDN    2           WAIT NOT BUSY
25652  M00S15504.1mt     +++|          RJM    STW
25653  M00S15505.1mt     +++|          RJM    CKR         CHECK READY
Line S15506 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25654  M01S15506.274l797 ---|          LDC    113         BACKSPACE
Line S05538 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25655  M01S05538.274l797 +++|          LDC    F0113       BACKSPACE
25656  M00S15507.1mt     +++| BKSA     EQU    *-1
25657  M00S15508.1mt     +++|          RJM    FCN
25658  M00S15509.1mt     +++|          RJM    WFC         WAIT FUNCTION COMPLETE
25659  M00S15510.1mt     +++|          LDD    DS          RETURN LOAD POINT STATUS
25660  M00S15511.1mt     +++|          SHN    21-2
25661  M00S15512.1mt     +++|          UJN    BKSX        RETURN
25662  M00S15513.1mt     +++| BTW      SPACE  4,10
25663  M00S15514.1mt     +++|**        BTW - BUILD TEMPORARY WINDOW.
25664  M00S15515.1mt     +++|*
25665  M00S15516.1mt     +++|*         ENTRY  (A) = NUMBER OF BLOCKS TO MOVE BACK.
25666  M00S15517.1mt     +++|*
Line S15518 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25667  M01S15518.252l678 ---|*         EXIT   (TBDW) = TEMPORARY BID WINDOW.
Line S00720 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25668  M01S00720.252l678 +++|*         EXIT   (TBDW) = TEMPORARY BID WINDOW IF FIRST BKSP NOT AT
25669  M01S00721.252l678 +++|*                         LOAD POINT.
25670  M00S15519.1mt     +++|*
25671  M00S15520.1mt     +++|*         USES   T8, T9.
25672  M00S15521.1mt     +++|*
25673  M00S15522.1mt     +++|*         CALLS  BKS, SOB.
25674  M00S15523.1mt     +++|
25675  M00S15524.1mt     +++|
25676  M00S15525.1mt     +++| BTW      SUBR               ENTRY/EXIT
25677  M00S15526.1mt     +++|          STD    T8          SAVE ENTRY CONDITION
Line S15527 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25678  M01S15527.274l797 ---|          LDC    113         INSURE BACKSPACE FUNCTION SET
Line S05539 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25679  M01S05539.274l797 +++|          LDC    F0113       INSURE BACKSPACE FUNCTION SET
25680  M00S15528.1mt     +++|          STM    BKSA
25681  M00S15529.1mt     +++|          LDN    4           SETUP FIRST BID BYTE
25682  M00S15530.1mt     +++|          STM    TBDW
25683  M00S15531.1mt     +++| BTW1     RJM    BKS         BACKSPACE
25684  M00S15532.1mt     +++|          MJN    BTW2        IF BOT
25685  M00S15533.1mt     +++|          SOD    T8
25686  M00S15534.1mt     +++|          NJN    BTW1        LOOP FOR NEXT BLOCK
Line S15535 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25687  M01S15535.252l678 ---| BTW2     LDN    0
25688  M01S15536.252l678 ---|          STD    T8
25689  M01S15537.252l678 ---|          LDM    POSB        SET BID POINTER
Line S00722 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25690  M01S00722.252l678 +++| BTW2     LDM    POSB        SET BID POINTER
25691  M00S15538.1mt     +++|          STD    T9
Line S00723 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25692  M01S00723.252l678 +++|          LDM    POSA        CHECK FOR LOAD POINT ON FIRST BKSP
25693  M01S00724.252l678 +++|          SBD    T8
25694  M01S00725.252l678 +++|          ZJN    BTWX        IF FIRST BKSP AT LOAD POINT
25695  M01S00726.252l678 +++|          LDN    0           CLEAR PRU COUNTER
25696  M01S00727.252l678 +++|          STD    T8
25697  M00S15539.1mt     +++| BTW3     RJM    SOB         SET UP AND READ ONE BLOCK
25698  M00S15540.1mt     +++|          LDM    UBWB
25699  M00S15541.1mt     +++|          STM    TBDW+1,T8
25700  M00S15542.1mt     +++|          AOD    T9          INCREMENT POINTER
25701  M00S15543.1mt     +++|          LPN    7           RESET POINTER FOR POSSIBLE WRAP AROUND
25702  M00S15544.1mt     +++|          STD    T9
25703  M00S15545.1mt     +++|          AOD    T8
25704  M00S15546.1mt     +++|          LMM    POSA
25705  M00S15547.1mt     +++|          NJN    BTW3        LOOP FOR NEXT BLOCK
25706  M00S15548.1mt     +++|          LJM    BTWX        RETURN
25707  M00S15549.1mt     +++| CBW      SPACE  4,15
25708  M00S15550.1mt     +++|**        CBW - COMPARE BID WINDOWS.
25709  M00S15551.1mt     +++|*
25710  M00S15552.1mt     +++|*         COMPARE THE PERMANENT WINDOW (BIDW) TO THE TEMPORARY
25711  M00S15553.1mt     +++|*         WINDOW (TBDW).
25712  M00S15554.1mt     +++|*
25713  M00S15555.1mt     +++|*         ENTRY  (T1) = FIRST BYTE IN BIDW TO COMPARE.
25714  M00S15556.1mt     +++|*                (T2) = FIRST BYTE IN TBDW TO COMPARE.
25715  M00S15557.1mt     +++|*
Line S15558 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25716  M01S15558.252l678 ---|*         EXIT   (A) = 0 IF MATCH.
25717  M01S15559.252l678 ---|*                (A, 17-14) .NE. 0 IF .GT. 1 BID SKIPPED DURING COMPARE.
25718  M01S15560.252l678 ---|*                (A, 13-0) .NE. 0 IF LAST BID DID NOT COMPARE.
Line S00728 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25719  M01S00728.252l678 +++|*         EXIT   (A) = 0 IF MATCH OR NOT BLOCK ID EQUIPMENT.
25720  M01S00729.252l678 +++|*                (A, 13-6) = NUMBER OF INVALID BLOCK ID-S.
25721  M01S00730.252l678 +++|*                (A, 5-0) = NUMBER OF VALID BLOCK ID MISMATCHES.
25722  M00S15561.1mt     +++|*
25723  M00S15562.1mt     +++|*         USES   T1 - T4.
25724  M00S15563.1mt     +++|
25725  M00S15564.1mt     +++|
Line S15565 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25726  M01S15565.252l678 ---| CBW4     LCN    0
25727  M01S15566.252l678 ---|
25728  M00S15567.1mt     +++| CBW      SUBR               ENTRY/EXIT
Line S00731 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25729  M01S00731.252l678 +++|          LDD    CF          CHECK IF BLOCK ID EQUIPMENT
25730  M01S00732.252l678 +++|          LPC    300
25731  M01S00733.252l678 +++|          LMC    300
25732  M01S00734.252l678 +++|          ZJN    CBWX        IF NO BLOCK ID
25733  M00S15568.1mt     +++|          LDN    0
25734  M00S15569.1mt     +++|          STD    T4
Line S15570 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25735  M01S15570.252l678 ---| CBW1     LDM    TBDW,T2     CHECK IF GOOD BLOCK
25736  M01S15571.252l678 ---|          LMN    4
25737  M01S15572.252l678 ---|          NJN    CBW2        IF GOOD BLOCK
25738  M01S15573.252l678 ---|          AOD    T4
25739  M01S15574.252l678 ---|          UJN    CBW3        SKIP OVER BLOCK
25740  M01S15575.252l678 ---|
25741  M01S15576.252l678 ---| CBW2     LMN    4
25742  M01S15577.252l678 ---|          LMM    BIDW,T1
25743  M01S15578.252l678 ---|          NJN    CBW4        EXIT IF ERROR
25744  M01S15579.252l678 ---| CBW3     AOD    T2
Line S00735 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25745  M01S00735.252l678 +++|          STD    T3
25746  M01S00736.252l678 +++|          LDD    T1          SAVE (T1)
25747  M01S00737.252l678 +++|          STM    CBWA
25748  M01S00738.252l678 +++| CBW1     LDM    BIDW,T1     LOAD HISTORY BLOCK ID
25749  M01S00739.252l678 +++|          LMN    4
25750  M01S00740.252l678 +++|          ZJN    CBW3        IF INVALID BID IN HISTORY
25751  M01S00741.252l678 +++|          LDM    TBDW,T2     LOAD BID FROM TEMP WINDOW
25752  M01S00742.252l678 +++|          LMN    4           INVALID CHECK
25753  M01S00743.252l678 +++|          NJN    CBW2        IF NOT INVALID BID IN TEMP WINDOW
25754  M01S00744.252l678 +++|          AOD    T3          CHECK NEXT BID
25755  M01S00745.252l678 +++|          UJN    CBW3        CONTINUE
25756  M01S00746.252l678 +++|
25757  M01S00747.252l678 +++| CBW2     LDM    BIDW,T1     LOAD BID FROM HISTORY
25758  M01S00748.252l678 +++|          LMM    TBDW,T2
25759  M01S00749.252l678 +++|          ZJN    CBW3        IF NO ERROR
25760  M01S00750.252l678 +++|          AOD    T4
25761  M01S00751.252l678 +++| CBW3     LDD    WP
25762  M01S00752.252l678 +++|          SBM    CBWA
25763  M01S00753.252l678 +++|          ZJN    CBW4        IF ONLY ONE BLOCK ID TO COMPARE
25764  M01S00754.252l678 +++|          AOD    T2
25765  M00S15580.1mt     +++|          AOD    T1          INCREMENT POINTER
25766  M00S15581.1mt     +++|          LPN    7           RESET POINTER FOR POSSIBLE WRAP AROUND
25767  M00S15582.1mt     +++|          STD    T1
25768  M00S15583.1mt     +++|          LMD    WP
25769  M00S15584.1mt     +++|          NJN    CBW1        IF NOT END OF COMPARE
Line S15585 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25770  M01S15585.252l678 ---|          LDD    T4          ALLOW ONLY ONE SKIPPED BLOCK
25771  M01S15586.252l678 ---|          SCN    1
25772  M01S15587.252l678 ---|          SHN    14
25773  M01S15588.252l678 ---|          LMM    TBDW,T2     LAST BID BYTE MUST COMPARE
25774  M01S15589.252l678 ---|          LMM    BIDW,T1
25775  M01S15590.252l678 ---|          UJN    CBWX        RETURN
Line S00755 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25776  M01S00755.252l678 +++| CBW4     LDD    T3          FORM BID COMPARE RESULTS EXIT
25777  M01S00756.252l678 +++|          SHN    6
25778  M01S00757.252l678 +++|          ADD    T4
25779  M01S00758.252l678 +++|          LJM    CBWX        RETURN
25780  M01S00759.252l678 +++|
25781  M01S00760.252l678 +++|
25782  M01S00761.252l678 +++| CBWA     CON    0           STORAGE FOR (T1)
25783  M00S15591.1mt     +++| CFC      SPACE  4,10
25784  M00S15592.1mt     +++|**        CFC - CHECK IF CONNECT NEEDED.
25785  M00S15593.1mt     +++|*
25786  M00S15594.1mt     +++|*         ENTRY  (RELA) = 0 IF CONNECT NEDDED.
25787  M00S15595.1mt     +++|*
25788  M00S15596.1mt     +++|*         CALLS  CUI.
25789  M00S15597.1mt     +++|
25790  M00S15598.1mt     +++|
25791  M00S15599.1mt     +++| CFC      SUBR               ENTRY/EXIT
25792  M00S15600.1mt     +++|          LDD    DS
25793  M00S15601.1mt     +++|          SHN    21-11
25794  M00S15602.1mt     +++|          PJN    CFC1        IF UNIT CONNECTED
25795  M00S15603.1mt     +++|          LDN    0
25796  M00S15604.1mt     +++|          STM    //RELA
25797  M00S15605.1mt     +++| CFC1     LDM    //RELA
25798  M00S15606.1mt     +++|          NJN    CFCX        IF CONNECTED
25799  M00S15607.1mt     +++|          STD    T1          SAVE DETAILED STATUS
25800  M00S15608.1mt     +++| CFC2     LDM    MTDS,T1
25801  M00S15609.1mt     +++|          STM    POTQ,T1
25802  M00S15610.1mt     +++|          AOD    T1
25803  M00S15611.1mt     +++|          LMN    10
25804  M00S15612.1mt     +++|          NJN    CFC2        IF NOT END OF DETAILED STATUS
25805  M00S15613.1mt     +++|          RJM    CUI         CONNECT UNIT
25806  M00S15614.1mt     +++|          LDN    0           RESTORE DETAILED STATUS
25807  M00S15615.1mt     +++|          STD    T1
25808  M00S15616.1mt     +++| CFC3     LDM    POTQ,T1
25809  M00S15617.1mt     +++|          STM    MTDS,T1
25810  M00S15618.1mt     +++|          AOD    T1
25811  M00S15619.1mt     +++|          LMN    10
25812  M00S15620.1mt     +++|          NJN    CFC3        IF NOT END OF DETAILED STATUS
25813  M00S15621.1mt     +++|          UJN    CFCX        RETURN
25814  M00S15622.1mt     +++| CIF      SPACE  4,10
Line S15623 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25815  M01S15623.274l797 ---|**        CIF - CHECK I FORMAT.
Line S05540 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25816  M01S05540.274l797 +++|**        CIF - CHECK INTERNAL FORMAT (I AND LI).
25817  M00S15624.1mt     +++|*
Line S15625 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25818  M01S15625.274l797 ---|*         CALLS  RDA, RTR.
Line S05541 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25819  M01S05541.274l797 +++|*         CALLS  BKS, RDA.
25820  M00S15626.1mt     +++|
25821  M00S15627.1mt     +++|
Line S15628 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25822  M01S15628.v23l617 ---| CIF2     RJM    RTR         READ TAPE REVERSE
Line S00482 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25823  M01S00482.v23l617 +++| CIF2     RJM    BKS         BACKSPACE
25824  M00S15629.1mt     +++|
25825  M00S15630.1mt     +++| CIF      SUBR               ENTRY/EXIT
25826  M00S15631.1mt     +++|          LDD    EC
25827  M00S15632.1mt     +++|          LMN    /MTX/BNE
25828  M00S15633.1mt     +++|          NJN    CIFX        IF NOT BLOCK NUMBER ERROR
25829  M00S15634.1mt     +++|          LDM    //BNEI
Line S05542 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25830  M01S05542.274l797 +++| CIFA     EQU    *-1
25831  M01S05543.274l797 +++|*         LDM    /RLI/VDAE   (LI FORMAT)
25832  M00S15635.1mt     +++|          LMD    BY
Line S05544 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25833  M01S05544.274l797 +++| CIFB     EQU    *-1
25834  M01S05545.274l797 +++|*         PSN                (LI FORMAT)
25835  M00S15636.1mt     +++|          NJN    CIFX        IF BLOCK LENGTH ERROR
25836  M00S15637.1mt     +++|          LDD    EI
25837  M00S15638.1mt     +++|          SCN    7
25838  M00S15639.1mt     +++|          NJN    CIF1        IF 10 ATTEMPTS
25839  M00S15640.1mt     +++|          LDM    //BNEI+2
25840  M00S15641.1mt     +++|          SBD    BL+1
25841  M00S15642.1mt     +++|          ZJN    CIFX        IF CORRECT BLOCK
25842  M00S15643.1mt     +++|          PJN    CIF2        IF MISSED A BLOCK
25843  M00S15644.1mt     +++|          RJM    RDA         SKIP OVER BLOCK
25844  M00S15645.1mt     +++|          UJN    CIFX        RETURN
25845  M00S15646.1mt     +++|
25846  M00S15647.1mt     +++| CIF1     LDM    //BNEI+1    SET BLOCK NUMBER TO CURRENT BLOCK NUMBER
25847  M00S15648.1mt     +++|          STD    BL
25848  M00S15649.1mt     +++|          LDM    //BNEI+2
25849  M00S15650.1mt     +++|          STD    BL+1
25850  M00S15651.1mt     +++|          LJM    RET4        RETURN FATAL ERROR
Line S00483 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25851  M01S00483.v23l617 +++| CIS      SPACE  4,10
25852  M01S00484.v23l617 +++|**        CIS - CHECK IF ISMT GCR SKIP REVERSE.
25853  M01S00485.v23l617 +++|*
25854  M01S00486.v23l617 +++|*         CALLS  BKS.
25855  M01S00487.v23l617 +++|
25856  M01S00488.v23l617 +++|
25857  M01S00489.v23l617 +++| CIS      SUBR               ENTRY/EXIT
25858  M01S00490.v23l617 +++|          LDD    FN
25859  M01S00491.v23l617 +++|          LMN    /MTX/SKP
25860  M01S00492.v23l617 +++|          NJN    CISX        IF NOT SKIP FUNCTION
25861  M01S00493.v23l617 +++|          LDM    /READ/ISKR
25862  M01S00494.v23l617 +++|          ZJN    CISX        IF NOT ISMT GCR SKIP REVERSE
25863  M01S00495.v23l617 +++|          RJM    BKS         POSITION TAPE CORRECTLY FOR RECOVERY
Line S00496 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25864  M02S00496.274l797 ---|          LDC    13          SET FORESPACE FUNCTION
Line S05546 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25865  M01S05546.274l797 +++|          LDN    F0013       SET FORESPACE FUNCTION
Line S00497 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
25866  M01S00497.v23l617 +++|          STM    BKSA
25867  M01S00498.v23l617 +++|          LDN    0           FORCE REQUEUE
25868  M01S00499.v23l617 +++|          STM    POTE+1
25869  M01S00500.v23l617 +++|          UJN    CISX        RETURN
25870  M01S00501.v23l617 +++|
25871  M00S15652.1mt     +++| CKR      SPACE  4,10
25872  M00S15653.1mt     +++|**        CKR - CHECK READY.
25873  M00S15654.1mt     +++|*         IF UNIT NOT READY, A TIME OUT WILL BE PERFORMED WAITING FOR
25874  M00S15655.1mt     +++|*         UNIT TO BECOME READY BEFORE GIVING A FATAL ERROR.  THIS
25875  M00S15656.1mt     +++|*         SHOULD ALLOW RECOVERY FROM MOMENTARY NOT READY CONDITONS.
25876  M00S15657.1mt     +++|*
25877  M00S15658.1mt     +++|*         CALLS  CFC, FCN.
Line S15659 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25878  M01S15659.282l826 ---|*
25879  M01S15660.282l826 ---|*         MACROS CMOT.
25880  M00S15661.1mt     +++|
25881  M00S15662.1mt     +++|
25882  M00S15663.1mt     +++| CKR      SUBR               ENTRY/EXIT
25883  M00S15664.1mt     +++|          LCN    0           PRESET TIME OUT
25884  M00S15665.1mt     +++|          STM    CKRA
Line S15666 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25885  M01S15666.274l797 ---| CKR1     LDN    12          GET STATUS
Line S05547 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25886  M01S05547.274l797 +++| CKR1     LDN    F0012       GET STATUS
25887  M00S15667.1mt     +++|          RJM    FCN
Line S15668 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25888  M01S15668.282l826 ---|          CMOT   *
25889  M00S15669.1mt     +++|          ACN    CH
Line S15670 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25890  M01S15670.282l826 ---|          CMOT   *
Line S15671 Modification History
M01 (Removed by) 1mt24
Seq #  *Modification Id* Act 
----------------------------+
25891  M01S15671.1mt24   ---|          IAN    CH
Line S00001 Modification History
M01 (Added by) 1mt24
Seq #  *Modification Id* Act 
----------------------------+
25892  M01S00001.1mt24   +++|          IAN    CH+40B
Line S15672 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
25893  M01S15672.282l826 ---|          CMOT   *
25894  M00S15673.1mt     +++|          DCN    CH+40
25895  M00S15674.1mt     +++|          SHN    21-0
25896  M00S15675.1mt     +++|          MJN    CKRX        RETURN IF READY
25897  M00S15676.1mt     +++|          SHN    22-11
25898  M00S15677.1mt     +++|          PJN    CKR2        IF UNIT CONNECTED
25899  M00S15678.1mt     +++|          RJM    CFC         CONNECT UNIT
25900  M00S15679.1mt     +++| CKR2     SOM    CKRA
25901  M00S15680.1mt     +++|          NJN    CKR1        IF NO TIME OUT
25902  M00S15681.1mt     +++|          LDN    /MTX/RDR    READY DROP
25903  M00S15682.1mt     +++|          LJM    RET3        RETURN ERROR CODE
25904  M00S15683.1mt     +++|
25905  M00S15684.1mt     +++|
25906  M00S15685.1mt     +++| CKRA     CON    7777        TIME OUT COUNTER
Line S00762 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25907  M01S00762.252l678 +++| IMU      SPACE  4,10
25908  M01S00763.252l678 +++|**        IMU - ISSUE MESSAGE TO ERROR LOG AND UNLOAD TAPE.
25909  M01S00764.252l678 +++|*
25910  M01S00765.252l678 +++|*         ENTRY  (A) = *TCF* OR *BFR*.
25911  M01S00766.252l678 +++|*
25912  M01S00767.252l678 +++|*         EXIT   TO *RET4*.
25913  M01S00768.252l678 +++|*
25914  M01S00769.252l678 +++|*         CALLS  *EMM*, FCN, WFC.
25915  M01S00770.252l678 +++|
25916  M01S00771.252l678 +++|
25917  M01S00772.252l678 +++| IMU      BSS    0           ENTRY
25918  M01S00773.252l678 +++|          STD    EC
25919  M01S00774.252l678 +++|          CALL   EMM         ISSUE MESSAGE TO ERROR LOG
25920  M01S00775.252l678 +++|          AOD    EI
Line S00776 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25921  M02S00776.274l797 ---|          LDC    110
Line S05548 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
25922  M01S05548.274l797 +++|          LDC    F0110
Line S00777 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25923  M01S00777.252l678 +++|          RJM    FCN         UNLOAD THE TAPE
25924  M01S00778.252l678 +++|          RJM    WFC         WAIT END OF OPERATION
25925  M01S00779.252l678 +++|          LJM    RET4        RETURN ERROR CODE
25926  M00S15686.1mt     +++| POS      SPACE  4,15
25927  M00S15687.1mt     +++|**        POS - POSITION TAPE.
25928  M00S15688.1mt     +++|*
25929  M00S15689.1mt     +++|*         ENTRY  (POSA) = NUMBER OF BLOCKS TO BACKUP.
25930  M00S15690.1mt     +++|*                TAPE POSITIONED BEFORE BAD BLOCK.
25931  M00S15691.1mt     +++|*
25932  M00S15692.1mt     +++|*         EXIT   TAPE POSITION VERIFIED.
25933  M00S15693.1mt     +++|*                SINGLE BLOCK MISPOSITION MESSAGES ISSUED AS NEEDED.
25934  M00S15694.1mt     +++|*
25935  M00S15695.1mt     +++|*         USES   T1, T2, T9.
25936  M00S15696.1mt     +++|*
25937  M00S15697.1mt     +++|*         CALLS  BKS, BTW, CBW, CFC, *EMM*, SOB.
25938  M00S15698.1mt     +++|*
25939  M00S15699.1mt     +++|*         MACROS CALL.
25940  M00S15700.1mt     +++|
25941  M00S15701.1mt     +++|
25942  M00S15702.1mt     +++| POS5     STD    EC
25943  M00S15703.1mt     +++|          LDM    REMF        RESTORE BID
25944  M00S15704.1mt     +++|          STM    UBWB
25945  M00S15705.1mt     +++|          CALL   EMM         ISSUE ERROR MESSAGE
25946  M00S15706.1mt     +++|          RJM    CFC         CONNECT IF NEEDED
25947  M00S15707.1mt     +++|
25948  M00S15708.1mt     +++| POS      SUBR               ENTRY/EXIT
25949  M00S15709.1mt     +++|          LDD    WP
25950  M00S15710.1mt     +++|          SBM    POSA
25951  M00S15711.1mt     +++|          ADN    1
25952  M00S15712.1mt     +++|          PJN    POS1        IF NO WRAP AROUND
25953  M00S15713.1mt     +++|          ADN    10
25954  M00S15714.1mt     +++| POS1     STM    POSB        STORE STARTING POINTER
25955  M00S15715.1mt     +++|          LDC    0
25956  M00S15716.1mt     +++| POSA     EQU    *-1
25957  M00S15717.1mt     +++|          RJM    BTW         BUILD TEMPORARY WINDOW
25958  M00S15718.1mt     +++|          LDN    1
25959  M00S15719.1mt     +++|          STD    T2
25960  M00S15720.1mt     +++|          LDC    *
25961  M00S15721.1mt     +++| POSB     EQU    *-1
25962  M00S15722.1mt     +++|          STD    T1
25963  M00S15723.1mt     +++|          RJM    CBW         COMPARE WINDOWS
25964  M00S15724.1mt     +++|          ZJN    POSX        IF GOOD COMPARE
Line S00780 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25965  M01S00780.252l678 +++|          SHN    -6          CHECK FOR INVALIDS IN RECOVERY WINDOW
25966  M01S00781.252l678 +++|          NJN    POSX        IF INVALIDS
25967  M00S15725.1mt     +++|          LDN    2           CHECK FOR TOO FAR BACKWARD
25968  M00S15726.1mt     +++|          STD    T2
25969  M00S15727.1mt     +++|          LDM    POSB
25970  M00S15728.1mt     +++|          STD    T1
25971  M00S15729.1mt     +++|          RJM    CBW
Line S15730 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25972  M01S15730.252l678 ---|          SHN    -14
Line S00782 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25973  M01S00782.252l678 +++|          LPN    77          CHECK FOR ONLY MISCOMPARES
25974  M00S15731.1mt     +++|          NJN    POS3        IF NOT TOO FAR BACKWARD
25975  M00S15732.1mt     +++|          LDD    WP
25976  M00S15733.1mt     +++|          STD    T9
25977  M00S15734.1mt     +++|          RJM    SOB         SET UP AND READ ONE BLOCK
25978  M00S15735.1mt     +++|          LDM    UBWB
25979  M00S15736.1mt     +++|          LMM    BIDW,WP
25980  M00S15737.1mt     +++|          NJN    POS2        IF POSITION LOST
25981  M00S15738.1mt     +++|          LDN    /MTX/SMB    ISSUE SINGLE BLOCK MISPOSITION MESSAGE
25982  M00S15739.1mt     +++|          LJM    POS5        ISSUE ERROR MESSAGE
25983  M00S15740.1mt     +++|
25984  M00S15741.1mt     +++| POS2     LDN    /MTX/PLO    ISSUE POSITION LOST MESSAGE
25985  M00S15742.1mt     +++|          STD    EC
25986  M00S15743.1mt     +++|          LDM    REMF        RESTORE ORIGINAL BID FOR MESSAGE
25987  M00S15744.1mt     +++|          STM    UBWB
25988  M00S15745.1mt     +++|          CALL   EMM         ISSUE MESSAGE
25989  M00S15746.1mt     +++|          RJM    CFC         CONNECT IF NEEDED
25990  M00S15747.1mt     +++|          LJM    RET4        RETURN FATAL ERROR
25991  M00S15748.1mt     +++|
25992  M00S15749.1mt     +++| POS3     LDN    0           CHECK FOR TOO FAR FORWARD
25993  M00S15750.1mt     +++|          STD    T2
25994  M00S15751.1mt     +++|          LDM    POSB
25995  M00S15752.1mt     +++|          STD    T1
25996  M00S15753.1mt     +++|          RJM    CBW
Line S00783 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
25997  M01S00783.252l678 +++|          LPN    77          CHECK FOR ONLY MISCOMPARES
25998  M00S15754.1mt     +++| POS4     NJN    POS2        IF POSITION LOST
25999  M00S15755.1mt     +++|          RJM    BKS         CORRECT FOR TOO FAR FORWARD AND RETRY
26000  M00S15756.1mt     +++|          LDM    POSA
26001  M00S15757.1mt     +++|          RJM    BTW
26002  M00S15758.1mt     +++|          LDN    1
26003  M00S15759.1mt     +++|          STD    T2
26004  M00S15760.1mt     +++|          LDM    POSB
26005  M00S15761.1mt     +++|          STD    T1
26006  M00S15762.1mt     +++|          RJM    CBW
Line S00784 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26007  M01S00784.252l678 +++|          LPN    77          CHECK FOR ONLY MISCOMPARES
26008  M00S15763.1mt     +++|          NJN    POS4        IF POSITION LOST
26009  M00S15764.1mt     +++|          LDN    /MTX/SMF    ISSUE SINGLE BLOCK MISPOSITION MESSAGE
26010  M00S15765.1mt     +++|          LJM    POS5        ISSUE ERROR MESSAGE
26011  M00S15766.1mt     +++| RCI      SPACE  4,10
26012  M00S15767.1mt     +++|**        RCI - READ *CIO* INFORMATION FROM *MAGNET,S FL.
26013  M00S15768.1mt     +++|*
26014  M00S15769.1mt     +++|*         EXIT   (T6 - T7) = FET ADDRESS.
26015  M00S15770.1mt     +++|*                (T1 - T5) = UCIC WORD.
26016  M00S15771.1mt     +++|*
26017  M00S15772.1mt     +++|*         USES   CM - CM+4.
26018  M00S15773.1mt     +++|*
26019  M00S15774.1mt     +++|*         CALLS  HNG.
26020  M00S15775.1mt     +++|*
26021  M00S15776.1mt     +++|*         MACROS DELAY, MONITOR, PAUSE.
26022  M00S15777.1mt     +++|
26023  M00S15778.1mt     +++|
26024  M00S15779.1mt     +++| RCI3     LDD    MA          READ UDT WORDS
26025  M00S15780.1mt     +++|          CRD    T6-3
26026  M00S15781.1mt     +++|          ADN    2
26027  M00S15782.1mt     +++|          CRD    T1
26028  M00S15783.1mt     +++|
26029  M00S15784.1mt     +++| RCI      SUBR               ENTRY/EXIT
26030  M00S15785.1mt     +++| RCI1     LDM    UADA        SET FWA OF DESIRED UDT WORDS
26031  M00S15786.1mt     +++|          ADN    /MTX/UCIA
26032  M00S15787.1mt     +++|          STD    CM+4
26033  M00S15788.1mt     +++|          LDC    300         REQUEST THREE WORDS
26034  M00S15789.1mt     +++|          STD    CM+3
26035  M00S15790.1mt     +++|          LDN    0           REQUEST READ FROM *MAGNET*
26036  M00S15791.1mt     +++|          STD    CM+1
26037  M00S15792.1mt     +++|          LCN    7777-/SSD/MTSI  SET *MAGNET* SUBSYSTEM IDENTIFICATION
26038  M00S15793.1mt     +++|          STD    CM+2
26039  M00S15794.1mt     +++|          MONITOR TDAM
26040  M00S15795.1mt     +++|          LDD    CM+1
26041  M00S15796.1mt     +++|          ZJN    RCI3        IF DONE
26042  M00S15797.1mt     +++|          SBN    2
26043  M00S15798.1mt     +++|          PJN    RCI2        IF MOVE NOT IN PROGRESS
26044  M00S15799.1mt     +++|          PAUSE  NE
26045  M00S15800.1mt     +++|          DELAY
26046  M00S15801.1mt     +++|          UJN    RCI1        REISSUE REQUEST
26047  M00S15802.1mt     +++|
26048  M00S15803.1mt     +++| RCI2     RJM    HNG         HANG PP
26049  M00S15804.1mt     +++| RDA      SPACE  4,10
26050  M00S15805.1mt     +++|**        RDA - READ DATA.
26051  M00S15806.1mt     +++|*
26052  M00S15807.1mt     +++|*         EXIT   (A) = (T4) = 0, NO ERROR.
26053  M00S15808.1mt     +++|*                (BY) = BYTE COUNT OF BLOCK.
26054  M00S15809.1mt     +++|*                (UBWB) SET TO 1 IF TAPE MARK.
26055  M00S15810.1mt     +++|*
26056  M00S15811.1mt     +++|*         CALLS  ABC, CKR, FCN, ITM, MCC, WEO.
26057  M00S15812.1mt     +++|
26058  M00S15813.1mt     +++|
26059  M00S15814.1mt     +++| RDA      SUBR               ENTRY/EXIT
26060  M00S15815.1mt     +++|          RJM    CKR         CHECK FOR READY
Line S15816 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26061  M01S15816.v23l617 ---|          RJM    ITM         INITIATE TAPE MOTION
Line S00502 Modification History
M01 (Added by) v23l617
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26062  M02S00502.274l797 ---|          LDN    40          READ FORWARD
Line S05549 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26063  M01S05549.274l797 +++|          LDN    F0040       READ FORWARD
Line S00503 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26064  M01S00503.v23l617 +++|          RJM    FCN         PROCESS FUNCTION
26065  M01S00504.v23l617 +++|          ACN    CH
26066  M00S15817.1mt     +++| RDA1     LCN    0           SET DATA PARAMETERS
26067  M00S15818.1mt     +++|          STD    T3
26068  M00S15819.1mt     +++|          LDN    20
26069  M00S15820.1mt     +++|          STD    T2
26070  M00S15821.1mt     +++|          LDC    1010        SET BUFFER SIZE
26071  M00S15822.1mt     +++|
26072  M00S15823.1mt     +++|*         INPUT DATA.
26073  M00S15824.1mt     +++|
26074  M00S15825.1mt     +++|          STD    BY          INPUT FIRST 1010 BYTES (104D CM WORDS)
26075  M00S15826.1mt     +++|          IAM    EBUF,CH
26076  M00S15827.1mt     +++|          ZJN    RDA2        IF NOT END OF DATA
26077  M00S15828.1mt     +++|          LMC    -0
26078  M00S15829.1mt     +++|          RAD    BY
26079  M00S15830.1mt     +++|          LJM    RDA6        ADJUST BYTE COUNT
26080  M00S15831.1mt     +++|
26081  M00S15832.1mt     +++| RDA2     LDN    50
26082  M00S15833.1mt     +++|          IAM    XBUF,CH
26083  M00S15834.1mt     +++|          NJN    RDA3        IF END OF DATA
26084  M00S15835.1mt     +++|          SOD    T3
26085  M00S15836.1mt     +++|          NJN    RDA2        IF NOT END OF INPUT
26086  M00S15837.1mt     +++|          LDN    50
26087  M00S15838.1mt     +++|          IAM    XBUF,CH
26088  M00S15839.1mt     +++|          NJN    RDA3        IF END OF DATA
26089  M00S15840.1mt     +++|          SOD    T2
26090  M00S15841.1mt     +++|          NJN    RDA2        IF NOT TIME OUT
26091  M00S15842.1mt     +++|          LDD    EC          PRESERVE ERROR CODE
26092  M00S15843.1mt     +++|          RJM    MCC
26093  M00S15844.1mt     +++|          LCN    0
26094  M00S15845.1mt     +++|          STD    BY
26095  M00S15846.1mt     +++|          LJM    RDA7        WAIT FOR END OF OPERATION
26096  M00S15847.1mt     +++|
26097  M00S15848.1mt     +++| RDA3     LMC    -0
26098  M00S15849.1mt     +++|          ADN    50
26099  M00S15850.1mt     +++|          RAD    BY
26100  M00S15851.1mt     +++| RDA4     AOD    T3
26101  M00S15852.1mt     +++|          SHN    -14
26102  M00S15853.1mt     +++|          NJN    RDA5        IF ROLLOVER
26103  M00S15854.1mt     +++|          LDN    50
26104  M00S15855.1mt     +++|          RAD    BY
26105  M00S15856.1mt     +++|          UJN    RDA4        LOOP
26106  M00S15857.1mt     +++|
26107  M00S15858.1mt     +++| RDA5     AOD    T2
26108  M00S15859.1mt     +++|          LMN    21
26109  M00S15860.1mt     +++|          ZJN    RDA6        IF ALL BYTES COUNTED
26110  M00S15861.1mt     +++|          LCN    0           SET BYTE COUNT TO 7777
26111  M00S15862.1mt     +++|          STD    BY
26112  M00S15863.1mt     +++| RDA6     RJM    ABC         ADJUST BYTE COUNT
26113  M00S15864.1mt     +++| RDA7     RJM    WEO         WAIT END OF OPERATION
26114  M00S15865.1mt     +++|          SCN    74
26115  M00S15866.1mt     +++|          ZJN    RDA9        IF NO ERRORS
26116  M00S15867.1mt     +++|          SHN    21-10
26117  M00S15868.1mt     +++| RDAA     PJN    RDA8        IF NOT NOISE
26118  M00S15869.1mt     +++|*         UJN    RDA8        (ATS UNIT)
26119  M00S15870.1mt     +++|          LDN    42          ISSUE REPEAT READ
26120  M00S15871.1mt     +++|          RJM    FCN
26121  M00S15872.1mt     +++|          ACN    CH
26122  M00S15873.1mt     +++|          LJM    RDA1        REINITIATE READ
26123  M00S15874.1mt     +++|
26124  M00S15875.1mt     +++| RDA8     LDM    MTDS
26125  M00S15876.1mt     +++|          LPC    7077
26126  M00S15877.1mt     +++| RDAB     EQU    *-1
26127  M00S15878.1mt     +++|*         LPC    7777
26128  M00S15879.1mt     +++|          ZJN    RDA9        IF ONLY WARNING STATUS
26129  M00S15880.1mt     +++|          LCN    0
26130  M00S15881.1mt     +++| RDA9     STM    RDAC
26131  M00S15882.1mt     +++|          LDC    *           SET EXIT CONDITION
26132  M00S15883.1mt     +++| RDAC     EQU    *-1
26133  M00S15884.1mt     +++|          STD    T4
26134  M00S15885.1mt     +++|          LDM    ABCB
26135  M00S15886.1mt     +++|          ZJN    RDA10       IF NO BYTE ADJUSTMENT
26136  M00S15887.1mt     +++|          SOD    BY
26137  M00S15888.1mt     +++| RDA10    LDD    DS
26138  M00S15889.1mt     +++|          LPN    20
26139  M00S15890.1mt     +++|          LMN    20
26140  M00S15891.1mt     +++|          NJN    RDA11       IF NOT TAPE MARK
26141  M00S15892.1mt     +++|          STD    BY
26142  M00S15893.1mt     +++|          LDN    1           SET TAPE MARK INDICATION
26143  M00S15894.1mt     +++|          STM    UBWB
26144  M00S15895.1mt     +++|          LDD    HP
26145  M00S15896.1mt     +++|          LPN    1
26146  M00S15897.1mt     +++|          NJN    RDA11       IF 9 TRACK
26147  M00S15898.1mt     +++|          LDD    MD
26148  M00S15899.1mt     +++|          SHN    21-6
26149  M00S15900.1mt     +++|          MJN    RDA11       IF 7 TRACK CODED
26150  M00S15901.1mt     +++|          LDN    0           CLEAR ERROR INDICATION
26151  M00S15902.1mt     +++|          STD    T4
26152  M00S15903.1mt     +++| RDA11    LDD    T4
26153  M00S15904.1mt     +++|          LJM    RDAX        RETURN
26154  M00S15905.1mt     +++| RSP      SPACE  4,10
26155  M00S15906.1mt     +++|**        RSP - RESET PROCESSOR FOR NEXT OPERATION.
26156  M00S15907.1mt     +++|*
26157  M00S15908.1mt     +++|*         EXIT   (CN - CN+4) = IN POINTER PRIOR TO READ.
26158  M00S15909.1mt     +++|*
26159  M00S15910.1mt     +++|*         CALLS  /CPP/CAL, *CPP*, /CPP/INM, RCI, /CPP/SFP.
26160  M00S15911.1mt     +++|*
26161  M00S15912.1mt     +++|*         MACROS CALL.
26162  M00S15913.1mt     +++|
26163  M00S15914.1mt     +++|
26164  M00S15915.1mt     +++| RSP      SUBR               ENTRY/EXIT
26165  M00S15916.1mt     +++|          LDM    /READ/WOCN  RESTORE WORD COUNT
26166  M00S15917.1mt     +++|          STD    WC
26167  M00S15918.1mt     +++|          CALL   CPP         RELOAD ADDRESS RELOCATOR
26168  M00S15919.1mt     +++|          LDD    FN
26169  M00S15920.1mt     +++|          LMN    /MTX/RDF
26170  M00S15921.1mt     +++|          NJN    RSPX        IF NOT READ DATA
26171  M00S15922.1mt     +++|          RJM    RCI         READ UDT
26172  M00S15923.1mt     +++|          RJM    /CPP/CAL    CALCULATE PARAMETERS
Line S15924 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26173  M01S15924.274l797 ---|          LDC    ADDR        MODIFY INSTRUCTIONS
26174  M01S15925.274l797 ---|          RJM    /CPP/INM
26175  M00S15926.1mt     +++|          LDN    2           READ IN
26176  M00S15927.1mt     +++|          RJM    /CPP/SFP
26177  M00S15928.1mt     +++|          UJN    RSPX        RETURN
Line S15929 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
26178  M01S15929.v23l617 ---| RTR      SPACE  4,10
26179  M01S15930.v23l617 ---|**        RTR - READ TAPE REVERSE.
26180  M01S15931.v23l617 ---|*
26181  M01S15932.v23l617 ---|*         EXIT   (A) = NEGATIVE, IF BOT.
26182  M01S15933.v23l617 ---|*
26183  M01S15934.v23l617 ---|*         CALLS  RDA, STW.
26184  M01S15935.v23l617 ---|
26185  M01S15936.v23l617 ---|
26186  M01S15937.v23l617 ---| RTR      SUBR               ENTRY/EXIT
26187  M01S15938.v23l617 ---|          LDC    140
26188  M01S15939.v23l617 ---|          STM    ITMA
26189  M01S15940.v23l617 ---|          LDN    2           WAIT NOT BUSY
26190  M01S15941.v23l617 ---|          RJM    STW
26191  M01S15942.v23l617 ---|          RJM    RDA         READ DATA
26192  M01S15943.v23l617 ---|          LDN    40
26193  M01S15944.v23l617 ---|          STM    ITMA
26194  M01S15945.v23l617 ---|          LDN    2           WAIT NOT BUSY
26195  M01S15946.v23l617 ---|          RJM    STW
26196  M01S15947.v23l617 ---|          SHN    21-2
26197  M01S15948.v23l617 ---|          UJN    RTRX        RETURN
26198  M00S15949.1mt     +++| SCL      SPACE  4,10
26199  M00S15950.1mt     +++|**        SCL - SET CLIPPING LEVEL.
26200  M00S15951.1mt     +++|*
26201  M00S15952.1mt     +++|*         ENTRY  (A) = CLIPPING LEVEL DESIRED.
26202  M00S15953.1mt     +++|*
26203  M00S15954.1mt     +++|*         CALLS  FCN.
26204  M00S15955.1mt     +++|
26205  M00S15956.1mt     +++|
26206  M00S15957.1mt     +++| SCL      SUBR               ENTRY/EXIT
26207  M00S15958.1mt     +++|          SHN    6
26208  M00S15959.1mt     +++|          STD    T1
26209  M00S15960.1mt     +++|          LDD    EP
26210  M00S15961.1mt     +++|          LPC    7077
26211  M00S15962.1mt     +++|          LMD    T1
26212  M00S15963.1mt     +++|          STD    EP
26213  M00S15964.1mt     +++|          LPC    300
26214  M00S15965.1mt     +++|          ZJN    SCLX        RETURN IF NORMAL CLIPPING LEVEL
26215  M00S15966.1mt     +++|          ADN    6
26216  M00S15967.1mt     +++|          RJM    FCN
26217  M00S15968.1mt     +++|          UJN    SCLX        RETURN
26218  M00S15969.1mt     +++| SOB      SPACE  4,10
26219  M00S15970.1mt     +++|**        SOB - SET UP AND READ ONE BLOCK.
26220  M00S15971.1mt     +++|*
26221  M00S15972.1mt     +++|*         ENTRY  (T9) = POINTER TO BID WINDOW.
26222  M00S15973.1mt     +++|*
26223  M00S15974.1mt     +++|*         EXIT   (UBWB) = BID OF READ CORRECTED FOR CLIPPING LEVEL AND
26224  M00S15975.1mt     +++|*                READ ERRORS.
26225  M00S15976.1mt     +++|*
26226  M00S15977.1mt     +++|*         USES   T0.
26227  M00S15978.1mt     +++|*
26228  M00S15979.1mt     +++|*         CALLS  RDA, FCN.
26229  M00S15980.1mt     +++|
26230  M00S15981.1mt     +++|
26231  M00S15982.1mt     +++| SOB2     RJM    RDA         READ A BLOCK
26232  M00S15983.1mt     +++|          ZJN    SOBX        IF GOOD READ
26233  M00S15984.1mt     +++| SOB3     LDN    4           SET UNUSABLE BID
26234  M00S15985.1mt     +++|          STM    UBWB
26235  M00S15986.1mt     +++|
26236  M00S15987.1mt     +++| SOB      SUBR               ENTRY/EXIT
26237  M00S15988.1mt     +++|          LDD    MD          CHECK IF PARITY CHANGE NEEDED
26238  M00S15989.1mt     +++|          SHN    -5
26239  M00S15990.1mt     +++|          LMM    BIDW,T9
26240  M00S15991.1mt     +++|          LPN    2
26241  M00S15992.1mt     +++|          ZJN    SOB1        IF NO CHANGE NEEDED
26242  M00S15993.1mt     +++|          LDD    HP
26243  M00S15994.1mt     +++|          LPN    1
26244  M00S15995.1mt     +++|          NJN    SOB1        IF 9 TRACK
26245  M00S15996.1mt     +++|          LDN    5           TOGGLE TO OPPOSITE PARITY
26246  M00S15997.1mt     +++|          RJM    FCN
26247  M00S15998.1mt     +++| SOB1     LDM    BIDW,T9     CHECK IF CHANGE IN CLIPPING LEVEL NEEDED
26248  M00S15999.1mt     +++|          SHN    21-2
26249  M00S16000.1mt     +++|          PJN    SOB2        IF NO CHANGE NEEDED
26250  M00S16001.1mt     +++|          LPN    7           SET CLIPPING LEVEL
26251  M00S16002.1mt     +++|          SHN    6
26252  M00S16003.1mt     +++|          ADN    6
26253  M00S16004.1mt     +++|          RJM    FCN
26254  M00S16005.1mt     +++|          RJM    RDA         READ A BLOCK
26255  M00S16006.1mt     +++|          NJN    SOB3        IF ERROR
26256  M00S16007.1mt     +++|          LDM    BIDW,T9     ADD CLIPPING LEVEL TO LAST BID
26257  M00S16008.1mt     +++|          LPN    74
26258  M00S16009.1mt     +++|          STD    T0
26259  M00S16010.1mt     +++|          LDM    UBWB
26260  M00S16011.1mt     +++|          SCN    74
26261  M00S16012.1mt     +++|          LMD    T0
26262  M00S16013.1mt     +++|          STM    UBWB
26263  M00S16014.1mt     +++|          LJM    SOBX        RETURN
26264  M00S16015.1mt     +++| WFC      SPACE  4,10
26265  M00S16016.1mt     +++|**        WFC - WAIT BACKSPACE FUNCTION COMPLETE.
26266  M00S16017.1mt     +++|*         TIMES OUT APPROXIMATELY 25 FEET OF TAPE.
26267  M00S16018.1mt     +++|*
26268  M00S16019.1mt     +++|*         EXIT   (DS) = UNIT STATUS.
26269  M00S16020.1mt     +++|*
26270  M00S16021.1mt     +++|*         USES   T2.
26271  M00S16022.1mt     +++|*
26272  M00S16023.1mt     +++|*         CALLS  //STW.
26273  M00S16024.1mt     +++|
26274  M00S16025.1mt     +++|
26275  M00S16026.1mt     +++| WFC2     CON    0           ENTERED VIA *RJM* FROM //STW
26276  M00S16027.1mt     +++|          SOD    T2
26277  M00S16028.1mt     +++|          NJN    WFC1        IF NOT TIMEOUT
26278  M00S16029.1mt     +++|          LDC    //ERR       RESET ERROR EXIT
26279  M00S16030.1mt     +++|          STM    //STWC
26280  M00S16031.1mt     +++|          UJN    WFC1        ATTEMPT 1 MORE WAIT
26281  M00S16032.1mt     +++|
26282  M00S16033.1mt     +++| WFC      SUBR               ENTRY/EXIT
Line S16034 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26283  M01S16034.252l678 ---| WFCA     LDN    **          SET DELAY ACCORDING TO UNIT SPEED
Line S00505 Modification History
M01 (Added by) v23l617
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26284  M02S00505.252l678 ---|*         LDN    34          (25 IPS UNIT)
Line S16035 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26285  M01S16035.252l678 ---|*         LDN    27          (75 IPS UNIT)
26286  M01S16036.252l678 ---|*         LDN    21          (100 IPS UNIT)
26287  M01S16037.252l678 ---|*         LDN    17          (125 IPS UNIT)
26288  M01S16038.252l678 ---|*         LDN    15          (150 IPS UNIT)
26289  M01S16039.252l678 ---|*         LDN    10          (200 IPS UNIT)
Line S00785 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26290  M01S00785.252l678 +++|          LDN    77          SET DELAY TO MAXIMUM
26291  M00S16040.1mt     +++|          STD    T2
26292  M00S16041.1mt     +++|          LDC    WFC2        SET RETURN ON TIMEOUT FROM //STW
26293  M00S16042.1mt     +++|          STM    //STWC
26294  M00S16043.1mt     +++| WFC1     LDN    2           WAIT NOT BUSY
26295  M00S16044.1mt     +++|          RJM    //STW
26296  M00S16045.1mt     +++|          LDC    //ERR       RESET ERROR EXIT
26297  M00S16046.1mt     +++|          STM    //STWC
26298  M00S16047.1mt     +++|          UJN    WFCX        RETURN
26299  M00S16048.1mt     +++| WIP      SPACE  4,15
26300  M00S16049.1mt     +++|**        WIP - WRITE IN POINTER PRIOR TO READ TO USER BUFFER.
26301  M00S16050.1mt     +++|*
26302  M00S16051.1mt     +++|*         ENTRY  (INPA - INPA+4) = POINTER TO NEXT BUFFER LOCATION.
26303  M00S16052.1mt     +++|*                (CN - CN+4) = IN POINTER PRIOR TO READ.
26304  M00S16053.1mt     +++|*
26305  M00S16054.1mt     +++|*         EXIT   IN POINTER WRITTEN TO USER CIO BUFFER.
26306  M00S16055.1mt     +++|*                PARITY ERROR BIT SET IN FET+0.
26307  M00S16056.1mt     +++|*
26308  M00S16057.1mt     +++|*         USES   CM - CM+4.
26309  M00S16058.1mt     +++|*
26310  M00S16059.1mt     +++|*         CALLS  RCI.
26311  M00S16060.1mt     +++|
26312  M00S16061.1mt     +++|
26313  M00S16062.1mt     +++| WIP      SUBR               ENTRY/EXIT
26314  M00S16063.1mt     +++|          LDM    INPA+3      CALCULATE ABSOLUTE BUFFER ADDRESS
26315  M00S16064.1mt     +++|          SHN    6
26316  M00S16065.1mt     +++|          ADD    RA
26317  M00S16066.1mt     +++|          SHN    6
26318  M00S16067.1mt     +++|          ADM    INPA+4
26319  M00S16068.1mt     +++|          CWD    CN          WRITE OLD IN POINTER TO BUFFER
26320  M00S16069.1mt     +++|          RJM    RCI         READ UDT INFORMATION
26321  M00S16070.1mt     +++|          LDD    T6          READ FET+0
26322  M00S16071.1mt     +++|          SHN    6
26323  M00S16072.1mt     +++|          ADD    RA
26324  M00S16073.1mt     +++|          SHN    6
26325  M00S16074.1mt     +++|          ADD    T7
26326  M00S16075.1mt     +++|          CRD    CM
26327  M00S16076.1mt     +++|          LDD    CM+4        SET PARITY ERROR BIT
26328  M00S16077.1mt     +++|          LPC    777
26329  M00S16078.1mt     +++|          LMC    4000
26330  M00S16079.1mt     +++|          STD    CM+4
26331  M00S16080.1mt     +++|          LDD    CM+3
26332  M00S16081.1mt     +++|          SCN    3
26333  M00S16082.1mt     +++|          STD    CM+3
26334  M00S16083.1mt     +++|          LDD    T6          REWRITE FET+0
26335  M00S16084.1mt     +++|          SHN    6
26336  M00S16085.1mt     +++|          ADD    RA
26337  M00S16086.1mt     +++|          SHN    6
26338  M00S16087.1mt     +++|          ADD    T7
26339  M00S16088.1mt     +++|          CWD    CM
26340  M00S16089.1mt     +++|          LJM    WIPX        RETURN
26341  M00S16090.1mt     +++|          SPACE  4,10
26342  M00S16091.1mt     +++| ADDR     TSAD   SMER
26343  M00S16092.1mt     +++|          SPACE  4,10
26344  M00S16093.1mt     +++|**        BUFFERS FOR READING DURING READ RECOVERY.
26345  M00S16094.1mt     +++|
26346  M00S16095.1mt     +++|
26347  M00S16096.1mt     +++| EBUF     BSS    0
26348  M00S16097.1mt     +++| XBUF     EQU    EBUF+1012
26349  M00S16098.1mt     +++|          ERRNG  7777-XBUF-50 WRAPPED AROUND
26350  M00S16099.1mt     +++| ERROVL   SPACE  4,10
26351  M00S16100.1mt     +++|          ERROVL
26352  M00S16101.1mt     +++| CTAB     SPACE  4,10
Line S00786 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26353  M01S00786.252l678 +++|          SPACE  4,10
26354  M01S00787.252l678 +++|**        NOTE - CODE AFTER THIS POINT WILL BE DESTROYED WHEN CALLING
26355  M01S00788.252l678 +++|*         THE ERROR PROCESSOR *EMM* OR WHEN THE TAPE IS POSITIONED.
26356  M01S00789.252l678 +++|*         ALL CALLS TO THIS CODE MUST BE DONE PRIOR TO THAT POINT.
26357  M01S00790.252l678 +++|          SPACE  4,10
26358  M00S16102.1mt     +++|**        CTAB - CHANNEL TABLE.
26359  M00S16103.1mt     +++|
26360  M00S16104.1mt     +++|
26361  M00S16105.1mt     +++| CTAB     CHTB
26362  M00S16106.1mt     +++| EBW      SPACE  4,20
26363  M00S16107.1mt     +++|**        EBW - EVALUATE BID WINDOW.
26364  M00S16108.1mt     +++|*
26365  M00S16109.1mt     +++|*         ENTRY  (BIDW) = BID WINDOW.
26366  M00S16110.1mt     +++|*
26367  M00S16111.1mt     +++|*         EXIT   (POSA) = NUMBER OF BLOCKS TO BACKSPACE.
Line S00791 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26368  M01S00791.252l678 +++|*                NUMBER OF BLOCKS TO BACKSPACE = 2 IF
26369  M01S00792.252l678 +++|*                  1) NO BID PRESENT.
26370  M01S00793.252l678 +++|*                  2) INVALID HISTORY BLOCK ID ENCOUNTERED.
26371  M01S00794.252l678 +++|*                  3) 9 TRACK *NRZI* *CRC* CORRECTABLE ERROR.  THIS IS
26372  M01S00795.252l678 +++|*                     BECAUSE OF HARDWARE RESTRICTIONS ON THE NEXT
26373  M01S00796.252l678 +++|*                     READ.
26374  M01S00797.252l678 +++|*                  4) .GT. 5 BLOCK ID-S ENCOUNTERED.
26375  M01S00798.252l678 +++|*                  5) END OF BLOCK ID WINDOW ENCOUNTERED.
26376  M00S16112.1mt     +++|*                (REMF) = BID FROM LAST READ.
Line S16113 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26377  M01S16113.252l678 ---|*                BLOCK ID DISABLED IF -
26378  M01S16114.252l678 ---|*                            1) NO BID PRESENT.
26379  M01S16115.252l678 ---|*                            2) I FORMAT TAPE, NOT READ LABELS.
26380  M01S16116.252l678 ---|*                            3) 9 TRACK NRZI CRC CORRECTABLE ERROR.
26381  M01S16117.252l678 ---|*                               THIS IS BECAUSE OF HARDWARE
26382  M01S16118.252l678 ---|*                               RESTRICTIONS ON THE NEXT READ.
26383  M01S16119.252l678 ---|*                            4) BID WINDOW NOT USEABLE. (I.E. .LT. 3
26384  M01S16120.252l678 ---|*                               BID-S OR ALL BID-S IDENTICAL.)
Line S00799 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26385  M01S00799.252l678 +++|*                (T2) = NUMBER OF DIFFERENT BLOCK ID-S.
26386  M01S00800.252l678 +++|*                (T4) = NUMBER OF SAME BLOCK ID-S.
26387  M00S16121.1mt     +++|*
26388  M00S16122.1mt     +++|*         USES   T1 - T4.
26389  M00S16123.1mt     +++|
Line S16124 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26390  M01S16124.252l678 ---|
26391  M01S16125.252l678 ---| EBW11    LDN    0           MODIFY INSTRUCTION FOR BID
26392  M01S16126.252l678 ---|          STM    POTK
26393  M01S16127.252l678 ---|          LDD    T2          SET NUMBER OF BLOCKS TO BACKSPACE
26394  M01S16128.252l678 ---|          STM    POSA
26395  M00S16129.1mt     +++|
26396  M00S16130.1mt     +++| EBW      SUBR               ENTRY/EXIT
Line S16131 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26397  M01S16131.252l678 ---|          LDD    CF          CHECK IF BID PRSENT
Line S00801 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26398  M01S00801.252l678 +++|          LDD    CF          CHECK IF BID PRESENT
26399  M00S16132.1mt     +++|          LPC    300
26400  M00S16133.1mt     +++|          LMC    300
26401  M00S16134.1mt     +++|          NJN    EBW2        IF BID PRESENT
Line S16135 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26402  M01S16135.252l678 ---| EBW1     LJM    EBW10       DISABLE BID PROCESSING
Line S00802 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26403  M01S00802.252l678 +++| EBW1     LJM    EBW11       FORCE BACKSPACE OF TWO BLOCKS
26404  M00S16136.1mt     +++|
26405  M00S16137.1mt     +++| EBW2     LDM    UBWB        SAVE CURRENT BID
26406  M00S16138.1mt     +++|          STM    REMF
Line S16139 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26407  M01S16139.252l678 ---|          LDD    FN
26408  M01S16140.252l678 ---|          LMN    /MTX/RLA
26409  M01S16141.252l678 ---|          ZJN    EBW3        IF READ LABELS
26410  M01S16142.252l678 ---|          LDD    FM          CHECK IF I FORMAT
26411  M01S16143.252l678 ---|          LMN    /MTX/TFI
26412  M01S16144.252l678 ---|          ZJN    EBW1        IF I FORMAT
26413  M00S16145.1mt     +++| EBW3     LDD    HP          CHECK IF 9 TRACK NRZI CRC CORRECTABLE ERROR
26414  M00S16146.1mt     +++|          LPN    1
26415  M00S16147.1mt     +++|          ZJN    EBW4        IF NOT 9 TRACK
Line S16148 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26416  M01S16148.282l826 ---|          LDD    DC
26417  M01S16149.282l826 ---|          SHN    -6
26418  M01S16150.282l826 ---|          LMN    /MTX/D08
Line S01307 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26419  M01S01307.282l826 +++|          LDM    DNCV
26420  M01S01308.282l826 +++|          LPN    70
26421  M01S01309.282l826 +++|          LMN    /MTX/D08*10
26422  M00S16151.1mt     +++|          NJN    EBW4        IF NOT 800 (NRZI)
26423  M00S16152.1mt     +++|          LDM    MTDS+3
26424  M00S16153.1mt     +++| EBWA     EQU    *-1
26425  M00S16154.1mt     +++|*         LDM    MTDS+6      (ATS CONTROLLER)
26426  M00S16155.1mt     +++| EBWB     SHN    21-12
26427  M00S16156.1mt     +++|*         SHN    21-11       (ATS CONTROLLER)
26428  M00S16157.1mt     +++|          MJN    EBW1        IF CRC CORRECTABLE ERROR
26429  M00S16158.1mt     +++| EBW4     LDD    WP          SET UP DIRECTS
26430  M00S16159.1mt     +++|          STD    T1
26431  M00S16160.1mt     +++|          LDN    0
26432  M00S16161.1mt     +++|          STD    T2
26433  M00S16162.1mt     +++|          STD    T4
Line S16163 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26434  M01S16163.252l678 ---|          UJN    EBW6        ENTER LOOP
26435  M01S16164.252l678 ---|
26436  M01S16165.252l678 ---| EBW5     LDM    BIDW,T1     COMPARE WITH PREVIOUS BLOCK
26437  M01S16166.252l678 ---|          LMD    T3
26438  M01S16167.252l678 ---|          ZJN    EBW6        IF SAME
26439  M01S16168.252l678 ---|          AOD    T4          COUNT DIFFERENCES
26440  M01S16169.252l678 ---| EBW6     LDM    BIDW,T1     CHECK IF USEABLE OR TAPE MARK
26441  M01S16170.252l678 ---|          STD    T3
26442  M01S16171.252l678 ---|          LMN    4
26443  M01S16172.252l678 ---|          ZJN    EBW10       IF UNUSABLE BID BYTE
26444  M01S16173.252l678 ---|          LPN    1
26445  M01S16174.252l678 ---|          ZJN    EBW7        IF NOT TAPE MARK
26446  M01S16175.252l678 ---|          LDD    WP          FORCE EXIT
26447  M01S16176.252l678 ---|          ADN    1
26448  M01S16177.252l678 ---|          STD    T1
26449  M01S16178.252l678 ---| EBW7     AOD    T2
26450  M01S16179.252l678 ---|          SBN    3
26451  M01S16180.252l678 ---|          MJN    EBW8        IF NOT MINIMUM BLOCKS
26452  M01S16181.252l678 ---|          LDD    T4
26453  M01S16182.252l678 ---|          ZJN    EBW8        IF NO UNIQUENESS FOUND
26454  M01S16183.252l678 ---|          LJM    EBW11       EXIT
26455  M01S16184.252l678 ---|
26456  M01S16185.252l678 ---| EBW8     SOD    T1
26457  M01S16186.252l678 ---|          PJN    EBW9        IF NO UNDERFLOW
26458  M01S16187.252l678 ---|          LDN    7
26459  M01S16188.252l678 ---|          STD    T1
26460  M01S16189.252l678 ---| EBW9     LMD    WP
26461  M01S16190.252l678 ---|          NJN    EBW5        IF NOT END OF WINDOW
26462  M01S16191.252l678 ---| EBW10    LDC    UJNI+2      DISABLE BID PROCESSING
26463  M01S16192.252l678 ---|          STM    POTI
26464  M01S16193.252l678 ---|          STM    POTJ
26465  M01S16194.252l678 ---|          STM    POTN
26466  M01S16195.252l678 ---|          LDM    EBWC
26467  M01S16196.252l678 ---|          STM    POTL
26468  M01S16197.252l678 ---|          LJM    EBWX        RETURN
26469  M01S16198.252l678 ---|
26470  M01S16199.252l678 ---|
26471  M01S16200.252l678 ---| EBWC     BSS    0
26472  M01S16201.252l678 ---|          LOC    POTL
26473  M01S16202.252l678 ---|          UJN    POT35       READ TAPE REVERSE
26474  M01S16203.252l678 ---|          LOC    *O
Line S00803 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26475  M01S00803.252l678 +++|          LCN    0
26476  M01S00804.252l678 +++|          STD    T3
26477  M01S00805.252l678 +++| EBW5     LDD    T2          CHECK FOR MAX COUNT OF 5
26478  M01S00806.252l678 +++|          ADD    T4
26479  M01S00807.252l678 +++|          SBN    5
26480  M01S00808.252l678 +++|          PJN    EBW1        IF MAX COUNT REACHED, FORCE SET 2
26481  M01S00809.252l678 +++|          LDM    BIDW,T1
26482  M01S00810.252l678 +++|          LMN    4
26483  M01S00811.252l678 +++|          ZJN    EBW12       IF INVALID, STOP SCAN
26484  M01S00812.252l678 +++|          LPN    1
26485  M01S00813.252l678 +++|          ZJN    EBW7        IF NOT TAPE MARK
26486  M01S00814.252l678 +++|          AOD    T2          FORCE BACKSPACE OVER TAPE MARK
26487  M01S00815.252l678 +++| EBW6     STM    POSA        SET BACKSPACE COUNT
26488  M01S00816.252l678 +++|          LJM    EBWX        RETURN
26489  M01S00817.252l678 +++|
26490  M01S00818.252l678 +++| EBW7     LDM    BIDW,T1
26491  M01S00819.252l678 +++|          SBD    T3
26492  M01S00820.252l678 +++|          NJN    EBW8        IF NOT SAME
26493  M01S00821.252l678 +++|          AOD    T4          INCREMENT SAME BID COUNT
26494  M01S00822.252l678 +++|          UJN    EBW9        CONTINUE BID SCAN
26495  M01S00823.252l678 +++|
26496  M01S00824.252l678 +++| EBW8     AOD    T2          INCREMENT DIFFERENT COUNT
26497  M01S00825.252l678 +++|          SBN    2
26498  M01S00826.252l678 +++|          MJN    EBW9        IF NOT TWO DIFFERENT BID-S
26499  M01S00827.252l678 +++|          LDD    T2
26500  M01S00828.252l678 +++|          ADD    T4
26501  M01S00829.252l678 +++|          UJN    EBW6        NUMBER OF BACKSPACES TO DO
26502  M01S00830.252l678 +++|
26503  M01S00831.252l678 +++| EBW9     LDM    BIDW,T1
26504  M01S00832.252l678 +++|          STD    T3          SAVE LAST BID
26505  M01S00833.252l678 +++|          SOD    T1          REDUCE POINTER
26506  M01S00834.252l678 +++|          PJN    EBW10       IF NO OVERFLOW
26507  M01S00835.252l678 +++|          LPN    7
26508  M01S00836.252l678 +++|          STD    T1
26509  M01S00837.252l678 +++| EBW10    LMD    WP          CHECK FOR END OF WINDOW
26510  M01S00838.252l678 +++|          NJN    EBW13       IF NOT END OF BID WINDOW
26511  M01S00839.252l678 +++| EBW11    LDN    2           FORCE BACKSPACE OF TWO BLOCKS
26512  M01S00840.252l678 +++|          UJN    EBW6        EXIT
26513  M01S00841.252l678 +++|
26514  M01S00842.252l678 +++| EBW12    LDD    T2
26515  M01S00843.252l678 +++|          ADD    T4
26516  M01S00844.252l678 +++|          ZJN    EBW11       IF END OF WINDOW
26517  M01S00845.252l678 +++|          UJN    EBW6        SET BACKSPACE COUNT AND EXIT
26518  M01S00846.252l678 +++|
26519  M01S00847.252l678 +++| EBW13    LJM    EBW5        CHECK NEXT BID
26520  M01S00848.252l678 +++| LPR      SPACE  4,20
26521  M01S00849.252l678 +++|**        LPR - LOAD POINT RECOVERY.
26522  M01S00850.252l678 +++|*
26523  M01S00851.252l678 +++|*         ENTRY  DETAIL STATUS BUFFERS SET UP.
26524  M01S00852.252l678 +++|*
26525  M01S00853.252l678 +++|*         EXIT   (A) .LT. 0 IF NOT *TCF* OR *BFR* ERROR OR
26526  M01S00854.252l678 +++|*                           IF *TCF* OR *BFR* ERROR WAS RECOVERED.
26527  M01S00855.252l678 +++|*                (A) = 0 IF RETRY ON *BFR* ERROR.
26528  M01S00856.252l678 +++|*
26529  M01S00857.252l678 +++|*         ERROR  TO *IMU* IF LOAD POINT PROBLEM.
26530  M01S00858.252l678 +++|*                (A) = *TCF* OR *BFR*.
26531  M01S00859.252l678 +++|*
26532  M01S00860.252l678 +++|*         USES   T1.
26533  M01S00861.252l678 +++|*
26534  M01S00862.252l678 +++|*         CALLS  *EMM*, FCN, WFC.
26535  M01S00863.252l678 +++|*
26536  M01S00864.252l678 +++|*         MACROS CALL.
26537  M01S00865.252l678 +++|
26538  M01S00866.252l678 +++|
26539  M01S00867.252l678 +++| LPR      SUBR               ENTRY/EXIT
26540  M01S00868.252l678 +++|          LDD    EC
26541  M01S00869.252l678 +++|          NJN    LPR0        IF ERROR
26542  M01S00870.252l678 +++|          RJM    DTS         GET DETAILED STATUS
26543  M01S00871.252l678 +++|
26544  M01S00872.252l678 +++|*         SAVE CURRENT EQUIPMENT STATUS.
26545  M01S00873.252l678 +++|
Line S00874 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26546  M02S00874.282l826 ---| LPR0     LDD    DS
26547  M02S00875.282l826 ---|          STM    LPRSB
Line S01310 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26548  M01S01310.282l826 +++| LPR0     LDD    DS          SAVE GENERAL STATUS
26549  M01S01311.282l826 +++|          STM    LPRA
Line S00876 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26550  M01S00876.252l678 +++|          LDM    UBWB        SAVE BLOCK ID
Line S00877 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26551  M02S00877.282l826 ---|          STM    LPRSB+1
Line S01312 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26552  M01S01312.282l826 +++|          STM    LPRB
Line S00878 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26553  M01S00878.252l678 +++|          LDN    0           SAVE DETAIL STATUS
26554  M01S00879.252l678 +++|          STD    T1
26555  M01S00880.252l678 +++| LPR1     LDM    MTDS,T1     MOVE ALL DETAIL STATUS WORDS
Line S00881 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26556  M02S00881.282l826 ---|          STM    LPRSB+2,T1
Line S01313 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26557  M01S01313.282l826 +++|          STM    LPRC,T1
Line S00882 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26558  M01S00882.252l678 +++|          AOD    T1          INCREMENT STATUS WORD COUNTER
Line S00883 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26559  M02S00883.282l826 ---|          SBN    BIDW-MTDS+1 MAX WORDS TO MOVE
Line S01314 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26560  M01S01314.282l826 +++|          SBN    16
Line S00884 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26561  M01S00884.252l678 +++|          NJN    LPR1        IF NOT ALL STATUS WORDS MOVED
26562  M01S00885.252l678 +++|          LDM    ATUS+2      GET DETAIL STATUS WORD 13
26563  M01S00886.252l678 +++|          SHN    21-2        POSITION CLEANER ACTIVE BIT
26564  M01S00887.252l678 +++|          PJN    LPR2        IF CLEANER PARKED
26565  M01S00888.252l678 +++|          LDD    EP          SET LOAD POINT ERROR FLAG
26566  M01S00889.252l678 +++|          LPC    6700
26567  M01S00890.252l678 +++|          ADC    1002
26568  M01S00891.252l678 +++|          STD    EP
26569  M01S00892.252l678 +++|          LDD    EP+1
26570  M01S00893.252l678 +++|          LPC    7077
26571  M01S00894.252l678 +++|          ADC    200
26572  M01S00895.252l678 +++|          STD    EP+1
26573  M01S00896.252l678 +++|          LDN    /MTX/TCF    CLEANER ACTIVE
26574  M01S00897.252l678 +++|          LJM    IMU         ISSUE MESSAGE TO ERROR LOG AND UNLOAD TAPE
26575  M01S00898.252l678 +++|
26576  M01S00899.252l678 +++| LPR2     LDM    MTDS        LOAD DETAIL STATUS WORD 3
26577  M01S00900.252l678 +++|          LPC    177         MASK ERROR CODES
26578  M01S00901.252l678 +++|          SBN    7
26579  M01S00902.252l678 +++|          ZJN    LPR4        IF ERROR CODE 7
26580  M01S00903.252l678 +++|          SBN    3
26581  M01S00904.252l678 +++|          ZJN    LPR4        IF ERROR CODE 12
26582  M01S00905.252l678 +++|          SBN    1
26583  M01S00906.252l678 +++|          ZJN    LPR4        IF ERROR CODE 13
26584  M01S00907.252l678 +++|          LDD    EC
26585  M01S00908.252l678 +++|          NJN    LPR3        IF NON-LOAD POINT ERROR
26586  M01S00909.252l678 +++|          LDD    EP
26587  M01S00910.252l678 +++|          SHN    21-11
26588  M01S00911.252l678 +++|          PJN    LPR3        IF NO PREVIOUS LOAD POINT ERROR
26589  M01S00912.252l678 +++|          LDN    0           CLEAR ERROR CODE
26590  M01S00913.252l678 +++|          STD    EC
26591  M01S00914.252l678 +++|          LDD    EP          CLEAR LOAD POINT ERROR FLAG
26592  M01S00915.252l678 +++|          LPC    6777
26593  M01S00916.252l678 +++|          STD    EP
26594  M01S00917.252l678 +++| LPR3     LCN    1
26595  M01S00918.252l678 +++|          LJM    LPRX        RETURN NO LOAD POINT ERROR OR RECOVERED
26596  M01S00919.252l678 +++|
26597  M01S00920.252l678 +++| LPR4     LDD    EP          SET LOAD POINT ERROR FLAG
26598  M01S00921.252l678 +++|          LPC    6700
26599  M01S00922.252l678 +++|          ADC    1002
26600  M01S00923.252l678 +++|          STD    EP
26601  M01S00924.252l678 +++|          LDD    EP+1
26602  M01S00925.252l678 +++|          LPC    7077
26603  M01S00926.252l678 +++|          ADC    200
26604  M01S00927.252l678 +++|          STD    EP+1
26605  M01S00928.252l678 +++|          LDD    EI
26606  M01S00929.252l678 +++|          LPN    77          ERROR ITERATION
26607  M01S00930.252l678 +++|          ZJN    LPR6        IF FIRST TRY ON BAD HEADER
26608  M01S00931.252l678 +++|          LPN    7
26609  M01S00932.252l678 +++|          ZJN    LPR5        IF ITERATION IS A MULTIPLE OF 4
26610  M01S00933.252l678 +++|          SBN    4
26611  M01S00934.252l678 +++|          NJN    LPR6        IF NOT A MULTIPLE OF 4
26612  M01S00935.252l678 +++| LPR5     LDN    /MTX/BFR    BAD PHASE/GCR HEADERS
26613  M01S00936.252l678 +++|          LJM    IMU         ISSUE MESSAGE TO ERROR LOG AND UNLOAD TAPE
26614  M01S00937.252l678 +++|
26615  M01S00938.252l678 +++|*         REWIND TO LOAD POINT AND ATTEMPT REREAD.
26616  M01S00939.252l678 +++|
Line S00940 Modification History
M01 (Added by) 252l678
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26617  M02S00940.274l797 ---| LPR6     LDN    10
Line S05550 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26618  M01S05550.274l797 +++| LPR6     LDN    F0010
Line S00941 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26619  M01S00941.252l678 +++|          RJM    FCN         REWIND TAPE TO LOAD POINT
26620  M01S00942.252l678 +++|          RJM    WFC         WAIT FOR BACKSPACE TO COMPLETE
26621  M01S00943.252l678 +++|
26622  M01S00944.252l678 +++|*         RESTORE EQUIPMENT ERROR STATUS BEFORE EXIT.
26623  M01S00945.252l678 +++|
26624  M01S00946.252l678 +++|          LDN    0
26625  M01S00947.252l678 +++|          STD    T1
Line S00948 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26626  M02S00948.282l826 ---|          LDM    LPRSB       RESTORE GENERAL STATUS
Line S01315 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26627  M01S01315.282l826 +++|          LDM    LPRA        RESTORE GENERAL STATUS
Line S00949 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26628  M01S00949.252l678 +++|          STD    DS
Line S00950 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26629  M02S00950.282l826 ---|          LDM    LPRSB+1     RESTORE BLOCK ID
Line S01316 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26630  M01S01316.282l826 +++|          LDM    LPRB        RESTORE BLOCK ID
Line S00951 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26631  M01S00951.252l678 +++|          STM    UBWB
Line S00952 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26632  M02S00952.282l826 ---| LPR7     LDM    LPRSB+2,T1  RESTORE ERROR STATUS
Line S01317 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26633  M01S01317.282l826 +++| LPR7     LDM    LPRC,T1     RESTORE ERROR STATUS
Line S00953 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26634  M01S00953.252l678 +++|          STM    MTDS,T1
26635  M01S00954.252l678 +++|          AOD    T1          INCREMENT COUNTER
Line S00955 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26636  M02S00955.282l826 ---|          SBN    BIDW-MTDS+1 MAX WORDS TO MOVE
Line S01318 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26637  M01S01318.282l826 +++|          SBN    16
Line S00956 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26638  M01S00956.252l678 +++|          NJN    LPR7        IF NOT ALL STATUS WORDS MOVED
Line S00957 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26639  M02S00957.282l826 ---|          LDN    0
Line S01319 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26640  M01S01319.282l826 +++|*         LDN    0
Line S00958 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26641  M01S00958.252l678 +++|          LJM    LPRX        TRY TO REWRITE FROM LOAD POINT
26642  M01S00959.252l678 +++|
26643  M01S00960.252l678 +++|
Line S00961 Modification History
M01 (Added by) 252l678
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26644  M02S00961.282l826 ---| LPRSB    BSSZ   BIDW-MTDS+3 DETAIL STATUS SAVE AREA
Line S01320 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26645  M01S01320.282l826 +++| LPRA     CON    0           GENERAL STATUS
26646  M01S01321.282l826 +++| LPRB     CON    0           BLOCK ID
26647  M01S01322.282l826 +++| LPRC     BSSZ   16          DETAILED STATUS
26648  M00S16204.1mt     +++| PRS      SPACE  4,10
26649  M00S16205.1mt     +++|**        PRS - PRESET.
26650  M00S16206.1mt     +++|*
26651  M00S16207.1mt     +++|*         CALLS  DME.
26652  M00S16208.1mt     +++|
26653  M00S16209.1mt     +++|
Line S16210 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26654  M01S16210.274l797 ---| PRS2     STM    REME        MTS - DO NOT CHECK FOR AGC FAILURE
Line S05551 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
26655  M01S05551.274l797 +++| PRS4     STM    REME        MTS - DO NOT CHECK FOR AGC FAILURE
Line S00962 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
26656  M01S00962.252l678 +++|          LDM    PRSD        DISABLE LOAD POINT RECOVERY
26657  M01S00963.252l678 +++|          STM    REMK
Line S00001 Modification History
M01 (Added by) ns2764
Seq #  *Modification Id* Act 
----------------------------+
26658  M01S00001.ns2764  +++|          LJM    PRS1        CHECK FOR LONG BLOCK PROCESSING
26659  M00S16211.1mt     +++|
26660  M00S16212.1mt     +++| PRS      SUBR               ENTRY/EXIT
Line S16213 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
26661  M01S16213.282l826 ---|          RJM    DME         DETERMINE IF MONITORING ENABLED
26662  M00S16214.1mt     +++|          LDM    //ITMA      SAVE READ FUNCTION
26663  M00S16215.1mt     +++|          STM    POTF
Proceed to Part 20
cdc/nos2.source/opl.opl871/deck/1mt.019.txt ยท Last modified: by 127.0.0.1