User Tools

Site Tools


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

Deck 1MT Part 038

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S20455 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35399  M02S20455.252l678 ---|          NJN    RDA2        IF NOT END OF INPUT
Line S20456 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35400  M02S20456.252l678 ---|          LDN    50
Line S20457 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35401  M02S20457.252l678 ---|          IAM    XBUF,CH
Line S20458 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35402  M02S20458.252l678 ---|          NJN    RDA3        IF END OF DATA
Line S20459 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35403  M02S20459.252l678 ---|          SOD    T2
Line S20460 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35404  M02S20460.252l678 ---|          NJN    RDA2        IF NOT TIME OUT
Line S20461 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35405  M02S20461.252l678 ---|          RJM    MCC
Line S20462 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35406  M02S20462.252l678 ---|          LCN    0
Line S20463 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35407  M02S20463.252l678 ---|          STD    BY
Line S20464 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35408  M02S20464.252l678 ---|          AOM    RDAD        SET BLOCK LENGTH .GT. 7777 BYTES
Line S20465 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35409  M02S20465.252l678 ---|          LJM    RDA7        CHECK FOR ERRORS
Line S20466 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35410  M02S20466.252l678 ---|
Line S20467 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35411  M02S20467.252l678 ---| RDA3     LMC    -0
Line S20468 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35412  M02S20468.252l678 ---|          ADN    50
Line S20469 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35413  M02S20469.252l678 ---|          STD    T4
Line S20470 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35414  M02S20470.252l678 ---|          RAD    BY
Line S20471 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35415  M02S20471.252l678 ---|          LDD    T4
Line S20472 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35416  M02S20472.252l678 ---|          NJN    RDA4        IF REMAINDER
Line S20473 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35417  M02S20473.252l678 ---|          LDN    50
Line S20474 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35418  M02S20474.252l678 ---|          STD    T4
Line S20475 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35419  M02S20475.252l678 ---| RDA4     AOD    T3
Line S20476 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35420  M02S20476.252l678 ---|          SHN    -14
Line S20477 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35421  M02S20477.252l678 ---|          NJN    RDA5        IF ROLLOVER
Line S20478 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35422  M02S20478.252l678 ---|          LDN    50
Line S20479 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35423  M02S20479.252l678 ---|          RAD    BY
Line S20480 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35424  M02S20480.252l678 ---|          SHN    -14
Line S20481 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35425  M02S20481.252l678 ---|          ZJN    RDA4        IF BLOCK .LE. 7777 BYTES
Line S20482 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35426  M02S20482.252l678 ---|          AOM    RDAD        SET BLOCK LENGTH .GT. 7777
Line S20483 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35427  M02S20483.252l678 ---|          UJN    RDA4        LOOP
Line S20484 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35428  M02S20484.252l678 ---|
Line S20485 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35429  M02S20485.252l678 ---| RDA5     AOD    T2
Line S20486 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35430  M02S20486.252l678 ---|          LMN    21
Line S20487 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35431  M02S20487.252l678 ---|          ZJN    RDA6        IF ALL BYTES COUNTED
Line S20488 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35432  M02S20488.252l678 ---|          LCN    0           SET BYTE COUNT TO 7777
Line S20489 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35433  M02S20489.252l678 ---|          STD    BY
Line S20490 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35434  M02S20490.252l678 ---| RDA6     LDC    XBUF-1
Line S20491 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35435  M02S20491.252l678 ---|          STM    RDAC
35436  M01S01645.252l678 +++| RDA1     LDN    0
35437  M01S01646.252l678 +++|          STD    T3          CLEAR LOOP COUNTER
35438  M01S01647.252l678 +++|          STD    BY
35439  M01S01648.252l678 +++|
Line S01649 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35440  M02S01649.274l797 ---|*         FLUSH DATA BUT COUNT BYTES AND SAVE LAST CHUNK.
35441  M01S08176.274l797 +++|*         FLUSH DATA, COUNT BYTES, SAVE TRAILER (I FORMAT), SAVE
35442  M01S08177.274l797 +++|*         PREFIX (LI FORMAT).
35443  M01S01650.252l678 +++|
35444  M01S01651.252l678 +++| RDA2     LDC    500         INPUT DATA IN 500B WORD CHUNKS
35445  M01S01652.252l678 +++|          IAM    EBUF,CH
35446  M01S08178.274l797 +++| RDAD     EQU    *-1
35447  M01S08179.274l797 +++|*         IAM    EBUF-1,CH   (LI FORMAT)
35448  M01S01653.252l678 +++|          NJN    RDA3        IF END OF DATA
Line S01654 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35449  M02S01654.274l797 ---|          AOD    T3          INCREMENT LOOP COUNTER
35450  M01S08180.274l797 +++| RDA2.1   AOD    T3          INCREMENT LOOP COUNTER
35451  M01S01655.252l678 +++|          UJN    RDA2        LOOP UNTIL END OF DATA
Line S01656 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35452  M02S01656.274l797 ---|
35453  M01S08181.274l797 +++| RDAE     EQU    *-1
35454  M01S08182.274l797 +++|*         LDC    500         (LI FORMAT)
35455  M01S08183.274l797 +++|          DATA   500
35456  M01S08184.274l797 +++|          IAM    EBUF+4,CH
35457  M01S08185.274l797 +++|          ZJN    RDA2.1      IF ALL WORDS TRANSFERRED
35458  M01S01657.252l678 +++| RDA3     STD    T4          SAVE REMAINDER
35459  M01S01658.252l678 +++|          LDC    500
35460  M01S01659.252l678 +++|          SBD    T4
35461  M01S01660.252l678 +++|          STD    T4
Line S01661 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35462  M02S01661.274l797 ---| RDA4     LDD    T3          LOAD LOOP COUNT
35463  M01S08186.274l797 +++|          LDD    T3          LOAD LOOP COUNT
35464  M01S01662.252l678 +++|          ZJN    RDA5        IF NOT GREATER THAN 500 WORDS
Line S01663 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35465  M02S01663.274l797 ---| RDA4.1   LDC    500
35466  M01S08187.274l797 +++| RDA4     LDC    500
35467  M01S01664.252l678 +++|          RAD    BY
35468  M01S01665.252l678 +++|          SHN    -12D
35469  M01S01666.252l678 +++|          NJN    RDA6        IF GREATER THAN 7777 WORDS
35470  M01S01667.252l678 +++|          SOD    T3          DECREMENT LOOP COUNT
Line S01668 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35471  M02S01668.274l797 ---|          NJN    RDA4.1      IF NOT LAST CHUNK
35472  M01S08188.274l797 +++|          NJN    RDA4        IF NOT LAST CHUNK
35473  M01S01669.252l678 +++| RDA5     LDD    T4          LOAD REMAINDER
35474  M01S01670.252l678 +++|          NJN    RDA5.1      IF NOT EVEN CHUNK
35475  M01S01671.252l678 +++|          LDC    500         SET TO LAST ADDRESS OF CHUNK
35476  M01S01672.252l678 +++|          STD    T4
35477  M01S01673.252l678 +++|          UJN    RDA7        EXIT
35478  M01S01674.252l678 +++|
35479  M01S01675.252l678 +++| RDA5.1   RAD    BY
35480  M01S01676.252l678 +++|          SHN    -12D
35481  M01S01677.252l678 +++|          ZJN    RDA7        IF NO BORROW
35482  M01S01678.252l678 +++| RDA6     LCN    0
35483  M01S01679.252l678 +++|          STD    BY          SET BYTE COUNT TO 7777
35484  M01S20492.1mt     +++| RDA7     RJM    WEO         WAIT END OF OPERATION
35485  M01S20493.1mt     +++|          SCN    74
35486  M01S20494.1mt     +++|          ZJN    RDA9        IF NO ERRORS
35487  M01S20495.1mt     +++|          SHN    21-10
35488  M01S20496.1mt     +++| RDAA     PJN    RDA8        IF NOT NOISE
35489  M01S20497.1mt     +++|*         UJN    RDA8        (ATS UNIT)
35490  M01S20498.1mt     +++|          LDN    42          ISSUE REPEAT READ
35491  M01S20499.1mt     +++|          RJM    FCN
35492  M01S20500.1mt     +++|          ACN    CH
35493  M01S20501.1mt     +++|          LJM    RDA1        REINITIATE READ
35494  M01S20502.1mt     +++|
35495  M01S20503.1mt     +++| RDA8     LDM    MTDS
35496  M01S20504.1mt     +++|          LPC    7077
35497  M01S20505.1mt     +++| RDAB     EQU    *-1
35498  M01S20506.1mt     +++|*         LPC    7777        (ATS UNIT)
35499  M01S20507.1mt     +++|          ZJN    RDA9        IF ONLY WARNING STATUS
35500  M01S20508.1mt     +++|          LCN    0
Line S20509 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35501  M02S20509.252l678 ---| RDA9     STM    RDAF
35502  M01S01680.252l678 +++| RDA9     STM    RDAC
35503  M01S20510.1mt     +++|          RJM    ABC
35504  M01S20511.1mt     +++|          ZJN    RDA10       IF NO BYTE ADJUSTMENT
35505  M01S20512.1mt     +++|          SOD    T4
35506  M01S20513.1mt     +++|
35507  M01S20514.1mt     +++|*         MOVE I FORMAT TRAILOR INFORMATION.
35508  M01S20515.1mt     +++|
35509  M01S20516.1mt     +++| RDA10    LDN    3
35510  M01S08189.274l797 +++| RDAF     EQU    *-1
35511  M01S08190.274l797 +++|*         UJN    RDA15       (LI FORMAT)
35512  M01S20517.1mt     +++|          STD    T5
35513  M01S20518.1mt     +++| RDA11    LDM    EBUF-1,T4
Line S20519 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35514  M02S20519.252l678 ---|*         LDM    XBUF-1,T4   (BUFFER OVERFLOW)
Line S20520 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35515  M02S20520.252l678 ---| RDAC     EQU    *-1
Line S20521 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35516  M02S20521.252l678 ---|          STM    XBUF,T5
35517  M01S01681.252l678 +++|          STM    EBUF,T5
35518  M01S20522.1mt     +++|          SOD    T4
35519  M01S20523.1mt     +++|          SOD    T5
35520  M01S20524.1mt     +++|          PJN    RDA11       IF MORE DATA TO MOVE
Line S20525 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35521  M02S20525.252l678 ---|
Line S20526 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35522  M02S20526.252l678 ---|*         CHECKSUM DATA.
Line S20527 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35523  M02S20527.252l678 ---|
Line S20528 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35524  M02S20528.252l678 ---|          LDD    LG+1        GENERATE BLOCK CHECKSUM FOR BLOCK READ
Line S20529 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35525  M02S20529.252l678 ---|          STD    T7
Line S20530 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35526  M02S20530.252l678 ---|          LDD    BY
Line S20531 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35527  M02S20531.252l678 ---|          STD    T6
Line S20532 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35528  M03S20532.252l678 ---|          LDM    /WRITE/CKSC  SAVE BUFFER ADDRESS
Line S20533 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35529  M03S20533.252l678 ---|          STM    RDAE
Line S20534 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35530  M02S20534.252l678 ---|          LDD    FM
Line S20535 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35531  M02S20535.252l678 ---|          LMN    /MTX/TFL
Line S20536 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35532  M02S20536.252l678 ---|          ZJN    RDA12       IF L FORMAT
Line S20537 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35533  M02S20537.252l678 ---|          LMN    /MTX/TFF&/MTX/TFL
Line S20538 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35534  M02S20538.252l678 ---|          NJN    RDA14       IF NOT F FORMAT
Line S20539 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35535  M02S20539.252l678 ---| RDA12    LDC    0
Line S20540 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35536  M02S20540.252l678 ---| RDAD     EQU    *-1
Line S20541 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35537  M02S20541.252l678 ---|          NJN    RDA13       IF BLOCK .GT. 7777 BYTES
Line S20542 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35538  M02S20542.252l678 ---|          LDD    BY
Line S20543 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35539  M02S20543.252l678 ---|          ADC    -LCKS
Line S20544 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35540  M02S20544.252l678 ---|          MJN    RDA14       IF BLOCK .LT. 5000 BYTES
Line S20545 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35541  M02S20545.252l678 ---| RDA13    LCN    0           RESET BYTE COUNT
Line S20546 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35542  M02S20546.252l678 ---|          STD    T6
Line S20547 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35543  M03S20547.252l678 ---|          LDC    LCKS        SET BYTE COUNT FOR CHECKSUM
Line S20548 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35544  M03S20548.252l678 ---|          STD    BY
Line S20549 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35545  M03S20549.252l678 ---| RDA14    LDC    EBUF
Line S20550 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35546  M03S20550.252l678 ---|          STM    /WRITE/CKSC
Line S20551 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35547  M03S20551.252l678 ---|          RJM    /WRITE/CKS
Line S20552 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35548  M03S20552.252l678 ---|          LDC    *           RESTORE BUFFER ADDRESS
Line S20553 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35549  M03S20553.252l678 ---| RDAE     EQU    *-1
Line S20554 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35550  M03S20554.252l678 ---|          STM    /WRITE/CKSC
Line S20555 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35551  M03S20555.252l678 ---|          LDD    T6          RESTORE BYTE COUNT
Line S00280 Modification History
M01 (Added by) ns21000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35552  M02S00280.252l678 ---| RDA14    LDM    UBWB        USE HARDWARE CHECKSUM
Line S00281 Modification History
M01 (Added by) ns21000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35553  M02S00281.252l678 ---|          STD    LG+1
Line S00282 Modification History
M01 (Added by) ns21000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35554  M02S00282.252l678 ---|          NJN    RDA14.1     IF NOT INCREMENT LAST BLOCK COUNT
Line S00283 Modification History
M01 (Added by) ns21000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35555  M02S00283.252l678 ---|          AOD    LG+1
Line S00284 Modification History
M01 (Added by) ns21000
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35556  M02S00284.252l678 ---| RDA14.1  LDD    T6          RESTORE BYTE COUNT
Line S20556 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35557  M02S20556.252l678 ---|          STD    BY
Line S20557 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35558  M02S20557.252l678 ---|          LDD    LG+1        SAVE CHECKSUM FOR THIS BLOCK
Line S20558 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35559  M02S20558.252l678 ---|          STM    RDAG
Line S20559 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35560  M02S20559.252l678 ---|          LDD    T7          RESTORE PREVIOUS CHECKSUM
Line S20560 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35561  M02S20560.252l678 ---|          STD    LG+1
Line S20561 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35562  M02S20561.252l678 ---|
Line S20562 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35563  M02S20562.252l678 ---|*         SET STATUSES.
Line S20563 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35564  M02S20563.252l678 ---|
Line S20564 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35565  M02S20564.252l678 ---|          LDC    *           SET EXIT CONDITION
Line S20565 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35566  M02S20565.252l678 ---| RDAF     EQU    *-1
Line S20566 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35567  M02S20566.252l678 ---|          STD    T4
Line S20567 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35568  M02S20567.252l678 ---|          LDD    LG+1        SET CHECKSUM COMPARE FLAG
Line S20568 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35569  M02S20568.252l678 ---|          LMM    RDAG
Line S20569 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35570  M02S20569.252l678 ---|          STD    T7
35571  M01S20570.1mt     +++|          LDM    ABCC
35572  M01S20571.1mt     +++|          ZJN    RDA15       IF NO ADJUSTMENT
35573  M01S20572.1mt     +++|          SOD    BY
35574  M01S20573.1mt     +++| RDA15    LDD    DS          CHECK FOR TAPE MARK
35575  M01S20574.1mt     +++|          LPN    20
35576  M01S20575.1mt     +++|          LMN    20
35577  M01S20576.1mt     +++|          NJN    RDA17       IF NOT TAPE MARK
35578  M01S20577.1mt     +++|          STD    BY
Line S20578 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35579  M02S20578.252l678 ---|          STM    RDAG
35580  M01S20579.1mt     +++|          LDN    1           SET TAPE MARK INDICATION
35581  M01S20580.1mt     +++|          STM    UBWB
Line S20581 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35582  M02S20581.252l678 ---|          LDD    LG+1
Line S20582 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35583  M02S20582.252l678 ---|          NJN    RDA16       IF LGB NOT TAPE MARK
Line S20583 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35584  M02S20583.252l678 ---|          STD    T7
Line S20584 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35585  M02S20584.274l797 ---| RDA16    LDD    HP
35586  M01S08191.274l797 +++|          LDD    HP
35587  M01S20585.1mt     +++|          LPN    1
35588  M01S20586.1mt     +++|          NJN    RDA17       IF 9 TRACK
35589  M01S20587.1mt     +++|          LDD    MD
35590  M01S20588.1mt     +++|          SHN    21-6
35591  M01S20589.1mt     +++|          MJN    RDA17       IF 7 TRACK CODED
35592  M01S20590.1mt     +++|          LDN    0           CLEAR ERROR INDICATION
Line S20591 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35593  M02S20591.252l678 ---|          STD    T4
Line S20592 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35594  M02S20592.252l678 ---| RDA17    LDD    T4
35595  M01S01682.252l678 +++|          STM    RDAC
35596  M01S01683.252l678 +++| RDA17    LDM    RDAC        LOAD EXIT FLAG
35597  M01S01684.252l678 +++|          STD    T4
35598  M01S20593.1mt     +++|          LJM    RDAX        RETURN
35599  M01S20594.1mt     +++|
Line S20595 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35600  M02S20595.252l678 ---|
Line S20596 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35601  M02S20596.252l678 ---| RDAG     CON    0           CHECKSUM FOR BLOCK READ
35602  M01S01685.252l678 +++|
35603  M01S01686.252l678 +++| RDAC     CON    0           EXIT FLAG
Line S20597 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35604  M02S20597.v23l617 ---| RTR      SPACE  4,10
Line S20598 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35605  M02S20598.v23l617 ---|**        RTR - READ TAPE REVERSE.
Line S20599 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35606  M02S20599.v23l617 ---|*
Line S20600 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35607  M02S20600.v23l617 ---|*         EXIT   (A) = NEGATIVE, IF BOT.
Line S20601 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35608  M02S20601.v23l617 ---|*
Line S20602 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35609  M02S20602.v23l617 ---|*         CALLS  CKR, RDA, STW.
Line S20603 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35610  M02S20603.v23l617 ---|
Line S20604 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35611  M02S20604.v23l617 ---|
Line S20605 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35612  M02S20605.v23l617 ---| RTR      SUBR               ENTRY/EXIT
Line S20606 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35613  M02S20606.v23l617 ---|          RJM    CKR         CHECK FOR READY
Line S20607 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35614  M02S20607.v23l617 ---|          LDN    2           WAIT NOT BUSY
Line S20608 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35615  M02S20608.v23l617 ---|          RJM    STW
Line S20609 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35616  M02S20609.v23l617 ---|          LDC    140
Line S20610 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35617  M02S20610.v23l617 ---|          RJM    RDA         READ DATA
Line S20611 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35618  M02S20611.v23l617 ---|          LDN    2           WAIT NOT BUSY
Line S20612 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35619  M02S20612.v23l617 ---|          RJM    STW
Line S20613 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35620  M02S20613.v23l617 ---|          SHN    21-2
Line S20614 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35621  M02S20614.v23l617 ---|          UJN    RTRX        RETURN
35622  M01S20615.1mt     +++| SOB      SPACE  4,10
35623  M01S20616.1mt     +++|**        SOB - SET UP AND READ ONE BLOCK.
35624  M01S20617.1mt     +++|*
35625  M01S20618.1mt     +++|*         ENTRY  (T9) = POINTER TO BID WINDOW.
35626  M01S20619.1mt     +++|*
35627  M01S20620.1mt     +++|*         EXIT   (UBWB) = BID OF READ CORRECTED FOR CLIPPING LEVEL AND
35628  M01S20621.1mt     +++|*                READ ERRORS.
35629  M01S20622.1mt     +++|*
35630  M01S20623.1mt     +++|*         USES   T0.
35631  M01S20624.1mt     +++|*
Line S20625 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35632  M02S20625.v23l617 ---|*         CALLS  FCN, RBL.
35633  M01S00581.v23l617 +++|*         CALLS  FCN, RDA.
35634  M01S20626.1mt     +++|
35635  M01S20627.1mt     +++|
Line S20628 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35636  M02S20628.v23l617 ---| SOB2     RJM    RBL         READ A BLOCK
35637  M01S00582.v23l617 +++| SOB2     RJM    RDA         READ BLOCK
35638  M01S20629.1mt     +++|          ZJN    SOBX        IF GOOD READ
35639  M01S20630.1mt     +++| SOB3     LDN    4           SET UNUSABLE BID
35640  M01S20631.1mt     +++|          STM    UBWB
35641  M01S20632.1mt     +++|
35642  M01S20633.1mt     +++| SOB      SUBR               ENTRY/EXIT
35643  M01S20634.1mt     +++|          LDD    MD          CHECK IF PARITY CHANGE NEEDED
35644  M01S20635.1mt     +++|          SHN    -5
35645  M01S20636.1mt     +++|          LMM    BIDW,T9
35646  M01S20637.1mt     +++|          LPN    2
35647  M01S20638.1mt     +++|          ZJN    SOB1        IF NO CHANGE NEEDED
35648  M01S20639.1mt     +++|          LDD    HP
35649  M01S20640.1mt     +++|          LPN    1
35650  M01S20641.1mt     +++|          NJN    SOB1        IF 9 TRACK
35651  M01S20642.1mt     +++|          LDN    5           TOGGLE TO OPPOSITE PARITY
35652  M01S20643.1mt     +++|          RJM    FCN
35653  M01S20644.1mt     +++| SOB1     LDM    BIDW,T9     CHECK IF CHANGE IN CLIPPING LEVEL NEEDED
35654  M01S20645.1mt     +++|          SHN    21-2
35655  M01S20646.1mt     +++|          PJN    SOB2        IF NO CHANGE NEEDED
35656  M01S20647.1mt     +++|          LPN    7           SET CLIPPING LEVEL
35657  M01S20648.1mt     +++|          SHN    6
35658  M01S20649.1mt     +++|          ADN    6
35659  M01S20650.1mt     +++|          RJM    FCN
Line S20651 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
35660  M02S20651.v23l617 ---|          RJM    RBL         READ A BLOCK
35661  M01S00583.v23l617 +++|          RJM    RDA         READ BLOCK
35662  M01S20652.1mt     +++|          NJN    SOB3        IF ERROR
35663  M01S20653.1mt     +++|          LDM    BIDW,T9     ADD CLIPPING LEVEL TO LAST BID
35664  M01S20654.1mt     +++|          LPN    74
35665  M01S20655.1mt     +++|          STD    T0
35666  M01S20656.1mt     +++|          LDM    UBWB
35667  M01S20657.1mt     +++|          SCN    74
35668  M01S20658.1mt     +++|          LMD    T0
35669  M01S20659.1mt     +++|          STM    UBWB
35670  M01S20660.1mt     +++|          LJM    SOBX        RETURN
35671  M01S20661.1mt     +++| WFC      SPACE  4,10
35672  M01S20662.1mt     +++|**        WFC - WAIT BACKSPACE FUNCTION COMPLETE.
35673  M01S20663.1mt     +++|*         TIMES OUT APPROXIMATELY 25 FEET OF TAPE.
35674  M01S20664.1mt     +++|*
35675  M01S20665.1mt     +++|*         EXIT   (DS) = UNIT STATUS.
35676  M01S20666.1mt     +++|*
35677  M01S20667.1mt     +++|*         USES   T2.
35678  M01S20668.1mt     +++|*
35679  M01S20669.1mt     +++|*         CALLS  //STW.
35680  M01S20670.1mt     +++|
35681  M01S20671.1mt     +++|
35682  M01S20672.1mt     +++| WFC2     CON    0           ENTERED VIA *RJM* FROM //STW
35683  M01S20673.1mt     +++|          SOD    T2
35684  M01S20674.1mt     +++|          NJN    WFC1        IF NOT TIMEOUT
35685  M01S20675.1mt     +++|          LDC    //ERR       RESET ERROR EXIT
35686  M01S20676.1mt     +++|          STM    //STWC
35687  M01S20677.1mt     +++|          UJN    WFC1        ATTEMPT 1 MORE WAIT
35688  M01S20678.1mt     +++|
35689  M01S20679.1mt     +++| WFC      SUBR               ENTRY/EXIT
Line S20680 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35690  M02S20680.252l678 ---| WFCA     LDN    **          SET DELAY ACCORDING TO UNIT SPEED
Line S00584 Modification History
M01 (Added by) v23l617
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35691  M02S00584.252l678 ---|*         LDN    34          (25 IPS ISMT UNIT)
Line S20681 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35692  M02S20681.252l678 ---|*         LDN    27          (75 IPS UNIT)
Line S20682 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35693  M02S20682.252l678 ---|*         LDN    21          (100 IPS UNIT)
Line S20683 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35694  M02S20683.252l678 ---|*         LDN    17          (125 IPS UNIT)
Line S20684 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35695  M02S20684.252l678 ---|*         LDN    15          (150 IPS UNIT)
Line S20685 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35696  M02S20685.252l678 ---|*         LDN    10          (200 IPS UNIT)
35697  M01S01687.252l678 +++|          LDC    2000        SET TIME OUT
35698  M01S20686.1mt     +++|          STD    T2
35699  M01S20687.1mt     +++|          LDC    WFC2        SET RETURN ON TIMEOUT IN //STW
35700  M01S20688.1mt     +++|          STM    //STWC
35701  M01S20689.1mt     +++| WFC1     LDN    2           WAIT NOT BUSY
35702  M01S20690.1mt     +++|          RJM    //STW
35703  M01S20691.1mt     +++|          LDC    //ERR       RESET ERROR EXIT
35704  M01S20692.1mt     +++|          STM    //STWC
35705  M01S20693.1mt     +++|          UJN    WFCX        RETURN
Line S20694 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35706  M02S20694.1mt36   ---| WNB      SPACE  4,10
Line S20695 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35707  M02S20695.1mt36   ---|**        WNB - WAIT NOT BUSY.
Line S20696 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35708  M02S20696.1mt36   ---|*
Line S20697 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35709  M02S20697.1mt36   ---|*         CALLS  STW.
Line S20698 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35710  M02S20698.1mt36   ---|*
Line S20699 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35711  M02S20699.1mt36   ---|*         USES   T2.
Line S20700 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35712  M02S20700.1mt36   ---|
Line S20701 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35713  M02S20701.1mt36   ---|
Line S20702 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35714  M02S20702.1mt36   ---| WNB2     CON    0           ENTERED VIA *RJM* FROM //STW
Line S20703 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35715  M02S20703.1mt36   ---|          SOD    T2
Line S20704 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35716  M02S20704.1mt36   ---|          NJN    WNB1        IF NOT TIMEOUT
Line S20705 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35717  M02S20705.1mt36   ---|          LDC    //ERR       RESET ERROR EXIT
Line S20706 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35718  M02S20706.1mt36   ---|          STM    //STWC
Line S20707 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35719  M02S20707.1mt36   ---|          UJN    WNB1        ATTEMPT 1 MORE WAIT
Line S20708 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35720  M02S20708.1mt36   ---|
Line S20709 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35721  M02S20709.1mt36   ---| WNB      SUBR               ENTRY/EXIT
Line S20710 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35722  M02S20710.1mt36   ---|          LDM    /WRITE/CNWA
Line S20711 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35723  M02S20711.1mt36   ---|          LMC    LJMI
Line S20712 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35724  M02S20712.1mt36   ---|          NJN    WNB1        IF NOT LONG BLOCKS
Line S20713 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35725  M02S20713.1mt36   ---|          LDC    WNB2        SET RETURN ON TIMEOUT FROM //STW
Line S20714 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35726  M02S20714.1mt36   ---|          STM    //STWC
Line S20715 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35727  M02S20715.1mt36   ---|          LDD    OV          SET TIMEOUT ACCORDING TO BLOCK LENGTH
Line S20716 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35728  M02S20716.1mt36   ---|          SHN    -2
Line S20717 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35729  M02S20717.1mt36   ---|          ADN    1           INSURE NON-ZERO
Line S20718 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35730  M02S20718.1mt36   ---|          STD    T2
Line S20719 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35731  M02S20719.1mt36   ---| WNB1     LDN    2           WAIT NOT BUSY
Line S20720 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35732  M02S20720.1mt36   ---|          RJM    //STW
Line S20721 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35733  M02S20721.1mt36   ---|          LDC    //ERR       RESET ERROR EXIT
Line S20722 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35734  M02S20722.1mt36   ---|          STM    //STWC
Line S20723 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35735  M02S20723.1mt36   ---|          UJN    WNBX        RETURN
35736  M01S00001.1mt36   +++| WNB      SPACE  4,10
35737  M01S00002.1mt36   +++|**        WNB - WAIT NOT BUSY ON *CMTS* OR *FSC* CONTROLLER.
35738  M01S00003.1mt36   +++|*
35739  M01S01531.282l826 +++|*         USES   T2, CM - CM+4.
35740  M01S01532.282l826 +++|*
35741  M01S00004.1mt36   +++|*         CALLS  ERR, FCN, STW.
35742  M01S00005.1mt36   +++|*
Line S00006 Modification History
M01 (Added by) 1mt36
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35743  M02S00006.282l826 ---|*         USES   T2.
35744  M01S01533.282l826 +++|*         MACROS SFA.
35745  M01S00007.1mt36   +++|
35746  M01S00008.1mt36   +++|
35747  M01S00009.1mt36   +++| WNB      SUBR               ENTRY/EXIT
35748  M01S00010.1mt36   +++|          LDC    2000
35749  M01S00011.1mt36   +++|          STD    T2
35750  M01S00012.1mt36   +++| WNB1     LDN    0
35751  M01S00013.1mt36   +++|          RJM    //STW       WAIT FOR END OF OPERATION
35752  M01S00014.1mt36   +++|          LPN    2
35753  M01S00015.1mt36   +++|          ZJN    WNBX        IF UNIT NOT BUSY
35754  M01S00016.1mt36   +++|          SOD    T2
35755  M01S00017.1mt36   +++|          ZJN    WNB2        IF TIMEOUT
35756  M01S00018.1mt36   +++|          LDN    1
35757  M01S00019.1mt36   +++|          RJM    FCN         RELEASE UNIT
Line S00020 Modification History
M01 (Added by) 1mt36
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35758  M02S00020.282l826 ---|          LDD    ED
35759  M01S01534.282l826 +++|          SFA    EST,EO
35760  M01S01535.282l826 +++|          ADK    EQDE
35761  M01S01536.282l826 +++|          CRD    CM
35762  M01S01537.282l826 +++|          LDD    CM+4
35763  M01S00021.1mt36   +++|          LPN    17          GET UNIT NUMBER
35764  M01S00022.1mt36   +++|          LMN    20
35765  M01S00023.1mt36   +++|          RJM    FCN         CONNECT UNIT
35766  M01S00024.1mt36   +++|          UJN    WNB1        CONTINUE WAITING
35767  M01S00025.1mt36   +++|
35768  M01S00026.1mt36   +++| WNB2     LDN    /MTX/WEO
35769  M01S00027.1mt36   +++|          RJM    ERR         ISSUE ERROR MESSAGE
35770  M01S20724.1mt     +++|          SPACE  4,10
35771  M01S20725.1mt     +++| ADDR     TSAD   SMER
35772  M01S20726.1mt     +++|          SPACE  4,10
35773  M01S20727.1mt     +++|**        BUFFERS FOR READING DURING WRITE RECOVERY.
35774  M01S20728.1mt     +++|
35775  M01S20729.1mt     +++|
35776  M01S20730.1mt     +++| EBUF     BSS    0
Line S20731 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35777  M02S20731.252l678 ---| XBUF     EQU    EBUF+1012
Line S20732 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35778  M02S20732.252l678 ---|          ERRNG  7777-XBUF-50 WRAPPED AROUND
Line S01688 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35779  M02S01688.274l797 ---|          ERRNG  7777-EBUF-510  BUFFER DOES NOT FIT WITHIN PP
35780  M01S08192.274l797 +++|          ERRNG  7777-EBUF-4-510  BUFFER DOES NOT FIT WITHIN PP
Line S20733 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35781  M02S20733.1mt36   ---| ERROVL   SPACE  4,10
Line S20734 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35782  M02S20734.1mt36   ---|          ERROVL
Line S20735 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35783  M02S20735.1mt36   ---| CTAB     SPACE  4,10
Line S01689 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35784  M02S01689.1mt36   ---|**        NOTE - CODE AFTER THIS POINT WILL BE DESTROYED WHEN CALLING
Line S01690 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35785  M02S01690.1mt36   ---|*         THE ERROR PROCESSOR *EMM* OR WHEN THE TAPE IS POSITIONED.
Line S01691 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35786  M02S01691.1mt36   ---|*         ALL CALLS TO THIS CODE MUST BE DONE PRIOR TO THAT POINT.
35787  M01S01692.252l678 +++| WLP      SPACE  4,15
35788  M01S01693.252l678 +++|**        WLP - LOAD POINT RECOVERY.
35789  M01S01694.252l678 +++|*
35790  M01S01695.252l678 +++|*         ENTRY  DETAIL STATUS BUFFERS SET UP.
35791  M01S01696.252l678 +++|*
35792  M01S01697.252l678 +++|*         EXIT   (A) .LT. 0 IF NOT *TCF* OR *BFW* ERROR OR
35793  M01S01698.252l678 +++|*                           IF *TCF* OR *BFW* ERROR WAS RECOVERED.
35794  M01S01699.252l678 +++|*                (A) = 0 IF RETRY ON *BFW* ERROR.
35795  M01S01700.252l678 +++|*
35796  M01S01701.252l678 +++|*         ERROR  TO *RET4* IF LOAD POINT PROBLEM.
35797  M01S01702.252l678 +++|*                (EC) = *TCF* OR *BFW*.
35798  M01S01703.252l678 +++|*
Line S01704 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35799  M02S01704.1mt36   ---|*         CALLS  *EMM*, FCN, WFC.
35800  M01S00028.1mt36   +++|*         USES   T1.
35801  M01S00029.1mt36   +++|*
Line S00030 Modification History
M01 (Added by) 1mt36
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35802  M02S00030.282l826 ---|*         CALLS  *EMM*, FCN, WFC, WNB.
35803  M01S01538.282l826 +++|*         CALLS  DTS, *EMM*, FCN, WFC, WNB.
35804  M01S01705.252l678 +++|*
35805  M01S01706.252l678 +++|*         MACROS CALL.
35806  M01S01707.252l678 +++|
35807  M01S01708.252l678 +++|
35808  M01S01709.252l678 +++| WLP      SUBR               ENTRY/EXIT
35809  M01S01710.252l678 +++|          LDD    EC
35810  M01S01711.252l678 +++|          NJN    WLP0        IF ERROR
35811  M01S01712.252l678 +++|          RJM    DTS         GET DETAILED STATUS
35812  M01S01713.252l678 +++|
35813  M01S01714.252l678 +++|*         SAVE CURRENT EQUIPMENT STATUS.
35814  M01S01715.252l678 +++|
35815  M01S01716.252l678 +++| WLP0     LDD    DS          SAVE GENERAL STATUS
Line S01717 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35816  M02S01717.282l826 ---|          STM    WLPSB
35817  M01S01539.282l826 +++|          STM    WLPA
35818  M01S01718.252l678 +++|          LDM    UBWB        SAVE BLOCK ID
Line S01719 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35819  M02S01719.282l826 ---|          STM    WLPSB+1
35820  M01S01540.282l826 +++|          STM    WLPB
35821  M01S01720.252l678 +++|          LDN    0           SAVE DETAIL STATUS
35822  M01S01721.252l678 +++|          STD    T1
35823  M01S01722.252l678 +++| WLP1     LDM    MTDS,T1     MOVE ALL DETAIL STATUS WORDS
Line S01723 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35824  M02S01723.282l826 ---|          STM    WLPSB+2,T1
35825  M01S01541.282l826 +++|          STM    WLPC,T1
35826  M01S01724.252l678 +++|          AOD    T1          INCREMENT STATUS WORD COUNTER
Line S01725 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35827  M02S01725.282l826 ---|          SBN    BIDW-MTDS+1 MAXIMUM NUMBER OF WORDS TO MOVE
35828  M01S01542.282l826 +++|          SBN    16
35829  M01S01726.252l678 +++|          NJN    WLP1        IF NOT ALL STATUS WORDS MOVED
35830  M01S01727.252l678 +++|          LDM    ATUS+2      GET DETAIL STATUS WORD 13
35831  M01S01728.252l678 +++|          SHN    21-2        POSITION CLEANER ACTIVE BIT
35832  M01S01729.252l678 +++|          PJN    WLP2        IF CLEANER PARKED
35833  M01S01730.252l678 +++|          LDD    EP          SET LOAD POINT ERROR FLAG
35834  M01S01731.252l678 +++|          LPC    6777
35835  M01S01732.252l678 +++|          ADC    1000
35836  M01S01733.252l678 +++|          STD    EP
35837  M01S01734.252l678 +++|          LDN    /MTX/TCF    CLEANER ACTIVE
35838  M01S01735.252l678 +++|          LJM    WLP10       ISSUE ERROR MESSAGE AND UNLOAD TAPE
35839  M01S01736.252l678 +++|
35840  M01S01737.252l678 +++| WLP2     LDM    MTDS        LOAD DETAIL STATUS WORD 3
35841  M01S01738.252l678 +++|          LPC    177         MASK ERROR CODES
35842  M01S01739.252l678 +++|          SBN    7
Line S01740 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35843  M02S01740.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 7
35844  M01S00001.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 7
35845  M01S01741.252l678 +++|          SBN    3
Line S01742 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35846  M02S01742.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 12
35847  M01S00002.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 12
35848  M01S01743.252l678 +++|          SBN    1
Line S01744 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35849  M02S01744.1mt26   ---|          ZJN    WLP3        IF ERROR CODE 13
35850  M01S00003.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 13
35851  M01S01745.252l678 +++|          SBN    3
Line S01746 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35852  M02S01746.1mt26   ---|          NJN    WLP4        IF NO LOAD POINT ERROR
Line S01747 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35853  M02S01747.1mt26   ---| WLP3     LJM    WLP8        ERROR CODE 7, 12, 13, OR 16
35854  M01S00004.1mt26   +++|          ZJN    WLP8        IF ERROR CODE 16
Line S01748 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35855  M02S01748.1mt26   ---|
Line S01749 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35856  M02S01749.1mt26   ---|*         CHECK FOR WRITING LABELS FROM LOAD POINT
Line S01750 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35857  M02S01750.1mt26   ---|
Line S01751 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35858  M02S01751.1mt26   ---| WLP4     LDD    FN          CHECK FOR WRITE LABEL FUNCTION
Line S01752 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35859  M02S01752.1mt26   ---|          LMN    /MTX/WLA
Line S01753 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35860  M02S01753.1mt26   ---|          NJN    WLP5        IF NOT LABEL FUNCTION
Line S01754 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35861  M02S01754.1mt26   ---|          LDD    PB
Line S01755 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35862  M02S01755.1mt26   ---|          SHN    -6
Line S01756 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35863  M02S01756.1mt26   ---|          ZJN    WLP7        IF INITIAL LABEL
Line S01757 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35864  M02S01757.1mt26   ---|          SBN    3           WRITE VOL1 ON LABEL
Line S01758 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35865  M02S01758.1mt26   ---|          ZJN    WLP7        IF WRITE VOL1 LABEL
Line S01759 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35866  M02S01759.1mt26   ---|          SBN    2           WRITE VOL1 ON REEL SWAP
Line S01760 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35867  M02S01760.1mt26   ---|          ZJN    WLP7        IF WRITE VOL1 FROM REEL SWAP
Line S01761 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35868  M02S01761.1mt26   ---| WLP5     LDD    EC
35869  M01S00005.1mt26   +++|          LDD    EC
35870  M01S01762.252l678 +++|          NJN    WLP6        IF NON-LOAD POINT ERROR
35871  M01S01763.252l678 +++|          LDD    EP
35872  M01S01764.252l678 +++|          SHN    21-11
35873  M01S01765.252l678 +++|          PJN    WLP6        IF NO PREVIOUS LOAD POINT ERROR
35874  M01S01766.252l678 +++|          LDN    0           CLEAR ERROR CODE
35875  M01S01767.252l678 +++|          STD    EC
35876  M01S01768.252l678 +++|          LDD    EP          CLEAR LOAD POINT ERROR FLAG
35877  M01S01769.252l678 +++|          LPC    6777
35878  M01S01770.252l678 +++|          STD    EP
35879  M01S01771.252l678 +++| WLP6     LDD    EP          CLEAR LOAD POINT RECOVERY FLAG
35880  M01S01772.252l678 +++|          LPC    7377
35881  M01S01773.252l678 +++|          STD    EP
35882  M01S01774.252l678 +++|          LCN    0
35883  M01S01775.252l678 +++|          LJM    WLPX        RETURN NO LOAD POINT ERROR OR RECOVERED
35884  M01S01776.252l678 +++|
Line S01777 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35885  M02S01777.1mt26   ---| WLP7     LDD    PA          CLEAR SECTION FLAGS FOR LABEL REWRITE
Line S01778 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35886  M02S01778.1mt26   ---|          LPC    7700
Line S01779 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35887  M02S01779.1mt26   ---|          STD    PA
Line S01780 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35888  M02S01780.1mt26   ---|          LDD    PB
Line S01781 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35889  M02S01781.1mt26   ---|          LPC    7700
Line S01782 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35890  M02S01782.1mt26   ---|          STD    PB
Line S01783 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35891  M02S01783.1mt26   ---|          UJN    WLP5        CONTINUE
Line S01784 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt26
Seq #  *Modification Id* Act 
----------------------------+
35892  M02S01784.1mt26   ---|
35893  M01S01785.252l678 +++| WLP8     LDD    EP          SET LOAD POINT ERROR AND RECOVERY FLAGS
35894  M01S01786.252l678 +++|          LPC    6377
35895  M01S01787.252l678 +++|          LMC    1400
35896  M01S01788.252l678 +++|          STD    EP
35897  M01S01789.252l678 +++|          LDD    EI
35898  M01S01790.252l678 +++|          LPN    77          ERROR ITERATION
35899  M01S01791.252l678 +++|          ZJN    WLP11       IF FIRST TRY ON BAD HEADER
35900  M01S01792.252l678 +++|          LPN    7
35901  M01S01793.252l678 +++|          ZJN    WLP9        IF ITERATION IS A MULTIPLE OF 4
35902  M01S01794.252l678 +++|          SBN    4
35903  M01S01795.252l678 +++|          NJN    WLP11       IF NOT A MULTIPLE OF 4
35904  M01S01796.252l678 +++| WLP9     LDN    /MTX/BFW    BAD PHASE/GCR HEADERS
35905  M01S01797.252l678 +++| WLP10    STD    EC
35906  M01S01798.252l678 +++|          CALL   EMM         ISSUE MESSAGE TO ERROR LOG
35907  M01S01799.252l678 +++|          AOD    EI
35908  M01S01800.252l678 +++|          LDC    110         UNLOAD THE TAPE
35909  M01S01801.252l678 +++|          RJM    FCN
35910  M01S00031.1mt36   +++|          LDD    HP
35911  M01S00032.1mt36   +++|          SHN    21-6
35912  M01S00033.1mt36   +++|          MJN    WLP10.2     IF *CMTS* OR *FSC* CONTROLLER
35913  M01S01802.252l678 +++|          RJM    WFC         WAIT END OF OPERATION
Line S01803 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1mt36
Seq #  *Modification Id* Act 
----------------------------+
35914  M02S01803.1mt36   ---|          LJM    RET4        RETURN ERROR CODE
35915  M01S00034.1mt36   +++| WLP10.1  LJM    RET4        RETURN ERROR CODE
35916  M01S00035.1mt36   +++|
35917  M01S00036.1mt36   +++| WLP10.2  RJM    WNB         WAIT END OF OPERATION
35918  M01S00037.1mt36   +++|          UJN    WLP10.1     RETURN ERROR CODE
35919  M01S01804.252l678 +++|
35920  M01S01805.252l678 +++|*         REWIND TO LOAD POINT AND ATTEMPT REWRITE.
35921  M01S01806.252l678 +++|
Line S01807 Modification History
M01 (Added by) 252l678
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
35922  M02S01807.274l797 ---| WLP11    LDN    10          REWIND TAPE TO LOAD POINT
35923  M01S08193.274l797 +++| WLP11    LDN    F0010       REWIND TAPE TO LOAD POINT
35924  M01S01808.252l678 +++|          RJM    FCN
35925  M01S01809.252l678 +++|          RJM    WFC
35926  M01S01810.252l678 +++|
35927  M01S01811.252l678 +++|*         RESTORE EQUIPMENT ERROR STATUS BEFORE EXIT.
35928  M01S01812.252l678 +++|
35929  M01S01813.252l678 +++|          LDN    0
35930  M01S01814.252l678 +++|          STD    T1
Line S01815 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35931  M02S01815.282l826 ---|          LDM    WLPSB       RESTORE GENERAL STATUS
35932  M01S01543.282l826 +++|          LDM    WLPA        RESTORE GENERAL STATUS
35933  M01S01816.252l678 +++|          STD    DS
Line S01817 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35934  M02S01817.282l826 ---|          LDM    WLPSB+1     RESTORE BLOCK ID
35935  M01S01544.282l826 +++|          LDM    WLPB        RESTORE BLOCK ID
35936  M01S01818.252l678 +++|          STM    UBWB
Line S01819 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35937  M02S01819.282l826 ---| WLP12    LDM    WLPSB+2,T1  RESTORE ERROR STATUS
35938  M01S01545.282l826 +++| WLP12    LDM    WLPC,T1     RESTORE ERROR STATUS
35939  M01S01820.252l678 +++|          STM    MTDS,T1
35940  M01S01821.252l678 +++|          AOD    T1          INCREMENT COUNTER
Line S01822 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35941  M02S01822.282l826 ---|          SBN    BIDW-MTDS+1 MAXIMUM NUMBER OF WORDS TO MOVE
35942  M01S01546.282l826 +++|          SBN    16
35943  M01S01823.252l678 +++|          NJN    WLP12       IF NOT ALL STATUS WORDS MOVED
Line S01824 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35944  M02S01824.282l826 ---|          LDN    0
35945  M01S01547.282l826 +++|*         LDN    0
35946  M01S01825.252l678 +++|          LJM    WLPX        TRY TO REWRITE FROM LOAD POINT
35947  M01S01826.252l678 +++|
35948  M01S01827.252l678 +++|
Line S01828 Modification History
M01 (Added by) 252l678
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
35949  M02S01828.282l826 ---| WLPSB    BSSZ   BIDW-MTDS+3 DETAIL STATUS SAVE BUFFER
35950  M01S01548.282l826 +++| WLPA     CON    0           GENERAL STATUS
35951  M01S01549.282l826 +++| WLPB     CON    0           BLOCK ID
35952  M01S01550.282l826 +++| WLPC     BSSZ   16          DETAILED STATUS
35953  M01S00038.1mt36   +++|          SPACE  4,10
35954  M01S20736.1mt     +++|**        CTAB - CHANNEL TABLE.
35955  M01S20737.1mt     +++|
35956  M01S20738.1mt     +++|
35957  M01S20739.1mt     +++| CTAB     CHTB
35958  M01S00039.1mt36   +++|          TITLE  OVERLAYABLE SUBROUTINES.
35959  M01S00040.1mt36   +++|          SPACE  4,10
35960  M01S00041.1mt36   +++|**        NOTE - CODE AFTER THIS POINT WILL BE DESTROYED WHEN
35961  M01S00042.1mt36   +++|*         CALLING THE ERROR PROCESSOR *EMM*.  ALL CALLS TO CODE
35962  M01S00043.1mt36   +++|*         LOCATED AFTER THIS POINT MUST BE DONE PRIOR TO CALLING
35963  M01S00044.1mt36   +++|*         *EMM*.
35964  M01S00045.1mt36   +++|
35965  M01S00046.1mt36   +++|
35966  M01S00047.1mt36   +++|          ERROVL
35967  M01S20740.1mt     +++| EBW      SPACE  4,15
35968  M01S20741.1mt     +++|**        EBW - EVALUATE BID WINDOW.
35969  M01S20742.1mt     +++|*
35970  M01S20743.1mt     +++|*         ENTRY  (BIDW) = BID WINDOW.
35971  M01S20744.1mt     +++|*
35972  M01S20745.1mt     +++|*         EXIT   (POSA) = NUMBER OF BLOCKS TO BACKSPACE.
35973  M01S01829.252l678 +++|*                NUMBER OF BLOCKS TO BACKSPACE = 2 IF
35974  M01S01830.252l678 +++|*                   1) NO BID PRESENT.
35975  M01S01831.252l678 +++|*                   2) INVALID HISTORY BLOCK ID ENCOUNTERED.
35976  M01S01832.252l678 +++|*                   3) .GT. 5 BLOCK ID-S ENCOUNTERED.
35977  M01S01833.252l678 +++|*                   4) END OF BLOCK ID WINDOW ENCOUNTERED.
35978  M01S20746.1mt     +++|*                (WEMD) = BID FROM LAST WRITE.
Line S20747 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35979  M02S20747.252l678 ---|*                BID DISABLED IF -
Line S20748 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35980  M02S20748.252l678 ---|*                            1) NO BID PRESENT.
Line S20749 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35981  M02S20749.252l678 ---|*                            2) BID WINDOW NOT USEABLE. (I.E. .LT. 3
Line S20750 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35982  M02S20750.252l678 ---|*                               BID-S OR ALL BID-S IDENTICAL.)
35983  M01S01834.252l678 +++|*                (T2) = NUMBER OF DIFFERENT BLOCK ID-S.
35984  M01S01835.252l678 +++|*                (T4) = NUMBER OF SAME BLOCK ID-S.
35985  M01S20751.1mt     +++|*
35986  M01S20752.1mt     +++|*         USES   T1 - T4.
35987  M01S20753.1mt     +++|
35988  M01S20754.1mt     +++|
Line S20755 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35989  M02S20755.252l678 ---| EBW8     LDD    T2          SET NUMBER OF BLOCKS TO BACKSPACE
Line S20756 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35990  M02S20756.252l678 ---|          STM    POSA
Line S20757 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35991  M02S20757.252l678 ---|
35992  M01S20758.1mt     +++| EBW      SUBR               ENTRY/EXIT
35993  M01S20759.1mt     +++|          LDD    CF          CHECK IF BID PRESENT
35994  M01S20760.1mt     +++|          LPC    300
35995  M01S20761.1mt     +++|          LMC    300
Line S20762 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35996  M02S20762.252l678 ---|          NJN    EBW1        IF BID PRESENT
Line S20763 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
35997  M02S20763.252l678 ---|          LJM    EBW7        DISABLE BID PROCESSING
35998  M01S01836.252l678 +++|          NJN    EBW2        IF BID PRESENT
35999  M01S01837.252l678 +++| EBW1     LJM    EBW9        FORCE BACKSPACE OF TWO BLOCKS
36000  M01S20764.1mt     +++|
Line S20765 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36001  M02S20765.252l678 ---| EBW1     LDM    UBWB        SAVE CURRENT BID
36002  M01S01838.252l678 +++| EBW2     LDM    UBWB        SAVE CURRENT BID
36003  M01S20766.1mt     +++|          STM    WEMD
36004  M01S20767.1mt     +++|          LDD    WP          SET UP DIRECTS
36005  M01S20768.1mt     +++|          STD    T1
36006  M01S20769.1mt     +++|          LDN    0
36007  M01S20770.1mt     +++|          STD    T2
36008  M01S20771.1mt     +++|          STD    T4
Line S20772 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36009  M02S20772.252l678 ---|          UJN    EBW3        ENTER LOOP
Line S20773 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36010  M02S20773.252l678 ---|
Line S20774 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36011  M02S20774.252l678 ---| EBW2     LDM    BIDW,T1     COMPARE WITH PREVIOUS BLOCK
Line S20775 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36012  M02S20775.252l678 ---|          LMD    T3
Line S20776 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36013  M02S20776.252l678 ---|          ZJN    EBW3        IF SAME
Line S20777 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36014  M02S20777.252l678 ---|          AOD    T4          COUNT DIFFERENCES
Line S20778 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36015  M02S20778.252l678 ---| EBW3     LDM    BIDW,T1     CHECK FOR UNUSEABLE OR TAPE MARK
Line S20779 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36016  M02S20779.252l678 ---|          STD    T3
Line S20780 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36017  M02S20780.252l678 ---|          LMN    4
Line S20781 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36018  M02S20781.252l678 ---|          ZJN    EBW7        IF UNUSABLE BID BYTE
Line S20782 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36019  M02S20782.252l678 ---|          LPN    1
Line S20783 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36020  M02S20783.252l678 ---|          ZJN    EBW4        IF NOT TAPE MARK
Line S20784 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36021  M02S20784.252l678 ---|          LDD    WP          FORCE EXIT
Line S20785 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36022  M02S20785.252l678 ---|          ADN    1
Line S20786 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36023  M02S20786.252l678 ---|          STD    T1
Line S20787 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36024  M02S20787.252l678 ---| EBW4     AOD    T2
Line S20788 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36025  M02S20788.252l678 ---|          SBN    3
Line S20789 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36026  M02S20789.252l678 ---|          MJN    EBW5        IF NOT MINIMUM BLOCKS
Line S20790 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36027  M02S20790.252l678 ---|          LDD    T4
Line S20791 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36028  M02S20791.252l678 ---|          ZJN    EBW5        IF NO UNIQUENESS FOUND
Line S20792 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36029  M02S20792.252l678 ---|          LJM    EBW8        SET NUMBER OF BLOCKS TO BACKSPACE
Line S20793 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36030  M02S20793.252l678 ---|
Line S20794 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36031  M02S20794.252l678 ---| EBW5     SOD    T1
Line S20795 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36032  M02S20795.252l678 ---|          PJN    EBW6        IF NO UNDER FLOW
Line S20796 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36033  M02S20796.252l678 ---|          LDN    7
Line S20797 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36034  M02S20797.252l678 ---|          STD    T1
Line S20798 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36035  M02S20798.252l678 ---| EBW6     LMD    WP
Line S20799 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36036  M02S20799.252l678 ---|          NJN    EBW2        IF NOT END OF WINDOW
Line S20800 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36037  M02S20800.252l678 ---| EBW7     LDC    POT8        DISABLE BID PROCESSING
Line S20801 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36038  M02S20801.252l678 ---|          STM    POTE
Line S20802 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36039  M02S20802.252l678 ---|          LDC    POT7
Line S20803 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36040  M02S20803.252l678 ---|          STM    POTF
Line S20804 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36041  M02S20804.252l678 ---|          STM    POTH
Line S20805 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36042  M02S20805.252l678 ---|          LDC    POT10
Line S20806 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36043  M02S20806.252l678 ---|          STM    POTG
Line S20807 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36044  M02S20807.252l678 ---|          LDC    RJMI
Line S20808 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36045  M02S20808.252l678 ---|          STM    POT32
Line S20809 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36046  M02S20809.252l678 ---|          LDM    EBWA
Line S20810 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36047  M02S20810.252l678 ---|          STM    POTC
Line S20811 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36048  M02S20811.252l678 ---|          LJM    EBWX        RETURN
Line S20812 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36049  M02S20812.252l678 ---|
Line S20813 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36050  M02S20813.252l678 ---|
Line S20814 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36051  M02S20814.252l678 ---| EBWA     BSS    0
Line S20815 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36052  M02S20815.252l678 ---|          LOC    POTC
Line S20816 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36053  M02S20816.252l678 ---|          UJN    POT8        IF NO BID RECOVERY
Line S20817 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36054  M02S20817.252l678 ---|          LOC    *O
36055  M01S01839.252l678 +++|          LCN    0
36056  M01S01840.252l678 +++|          STD    T3
36057  M01S01841.252l678 +++| EBW3     LDD    T2          CHECK FOR MAX COUNT OF 5
36058  M01S01842.252l678 +++|          ADD    T4
36059  M01S01843.252l678 +++|          SBN    5
36060  M01S01844.252l678 +++|          PJN    EBW1        IF MAX COUNT REACHED, FORCE SET 2
36061  M01S01845.252l678 +++|          LDM    BIDW,T1
36062  M01S01846.252l678 +++|          LMN    4
36063  M01S01847.252l678 +++|          ZJN    EBW10       IF INVALID, STOP SCAN
36064  M01S01848.252l678 +++|          LPN    1
36065  M01S01849.252l678 +++|          ZJN    EBW5        IF NOT TAPE MARK
36066  M01S01850.252l678 +++|          AOD    T2          FORCE BACKSPACE OVER TAPE MARK
36067  M01S01851.252l678 +++| EBW4     STM    POSA        SET BACKSPACE COUNT
36068  M01S01852.252l678 +++|          LJM    EBWX        RETURN
36069  M01S01853.252l678 +++|
36070  M01S01854.252l678 +++| EBW5     LDM    BIDW,T1
36071  M01S01855.252l678 +++|          SBD    T3
36072  M01S01856.252l678 +++|          NJN    EBW6        IF NOT SAME
36073  M01S01857.252l678 +++|          AOD    T4          INCREMENT SAME BID COUNT
36074  M01S01858.252l678 +++|          UJN    EBW7        CONTINUE BID SCAN
36075  M01S01859.252l678 +++|
36076  M01S01860.252l678 +++| EBW6     AOD    T2          INCREMENT DIFFERENT COUNT
36077  M01S01861.252l678 +++|          SBN    2
36078  M01S01862.252l678 +++|          MJN    EBW7        IF NOT TWO DIFFERENT BID-S
36079  M01S01863.252l678 +++|          LDD    T2
36080  M01S01864.252l678 +++|          ADD    T4
36081  M01S01865.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36082  M01S01866.252l678 +++|
36083  M01S01867.252l678 +++| EBW7     LDM    BIDW,T1
36084  M01S01868.252l678 +++|          STD    T3          SAVE LAST BID
36085  M01S01869.252l678 +++|          SOD    T1          REDUCE POINTER
36086  M01S01870.252l678 +++|          PJN    EBW8        IF NO OVERFLOW
36087  M01S01871.252l678 +++|          LPN    7
36088  M01S01872.252l678 +++|          STD    T1
36089  M01S01873.252l678 +++| EBW8     LMD    WP          CHECK FOR END OF WINDOW
36090  M01S01874.252l678 +++|          NJN    EBW11       IF NOT END OF WINDOW
36091  M01S01875.252l678 +++| EBW9     LDN    2           FORCE BACKSPACE OF TWO BLOCKS
36092  M01S01876.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36093  M01S01877.252l678 +++|
36094  M01S01878.252l678 +++| EBW10    LDD    T2
36095  M01S01879.252l678 +++|          ADD    T4
36096  M01S01880.252l678 +++|          ZJN    EBW9        IF END OF WINDOW
36097  M01S01881.252l678 +++|          UJN    EBW4        STORE BACKSPACE COUNT AND EXIT
36098  M01S01882.252l678 +++|
36099  M01S01883.252l678 +++| EBW11    LJM    EBW3        CHECK NEXT BID
36100  M01S20818.1mt     +++| PRS      SPACE  4,10
36101  M01S20819.1mt     +++|**        PRS - PRESET.
36102  M01S20820.1mt     +++|*
36103  M01S20821.1mt     +++|*         CALLS  DME.
36104  M01S20822.1mt     +++|
36105  M01S20823.1mt     +++|
36106  M01S20824.1mt     +++|
36107  M01S20825.1mt     +++| PRS      SUBR               ENTRY/EXIT
Line S20826 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
36108  M02S20826.282l826 ---|          RJM    DME         DETERMINE IF MONITORING ENABLED
Line S20827 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36109  M02S20827.252l678 ---|          LDD    HP          SET BACKSPACE DELAY
Line S20828 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36110  M02S20828.252l678 ---|          SHN    -2
Line S20829 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36111  M02S20829.252l678 ---|          LPN    3
Line S20830 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36112  M02S20830.252l678 ---|          STD    T1
Line S20831 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36113  M02S20831.252l678 ---|          LDM    PRSC,T1
Line S20832 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36114  M02S20832.252l678 ---|          STM    WFCA
36115  M01S20833.1mt     +++|          LDD    HP
36116  M01S20834.1mt     +++|          LPN    20
Line S20835 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
36117  M02S20835.v23l617 ---|          ZJN    PRSX        IF NOT ATS CONTROLLER
Line S00585 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36118  M02S00585.ns2466  ---|          ZJN    PRSX        IF NOT ATS/FSC/ISMT CONTROLLER
Line S20836 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36119  M02S20836.ns2466  ---|
Line S20837 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36120  M03S20837.ns2466  ---|*         MODIFY INSTRUCTIONS FOR ATS CONTROLLER.
Line S00586 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
36121  M02S00586.ns2466  ---|*         MODIFY INSTRUCTIONS FOR ATS/FSC/ISMT CONTROLLER.
Line S00288 Modification History
M01 (Added by) ns2466
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36122  M02S00288.252l678 ---|          ZJN    PRSX        IF NOT ATS-TYPE CONTROLLER
36123  M01S01884.252l678 +++|          NJN    PRS1        IF ATS-TYPE CONTROLLER
36124  M01S01885.252l678 +++|          LDM    PRSF        DISABLE LOAD POINT RECOVERY
36125  M01S01886.252l678 +++|          STM    WEML
36126  M01S01887.252l678 +++|          UJN    PRSX        EXIT PRESET
36127  M01S00289.ns2466  +++|
36128  M01S00290.ns2466  +++|*         MODIFY INSTRUCTIONS FOR ATS-TYPE CONTROLLER.
36129  M01S20838.1mt     +++|
Line S20839 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36130  M02S20839.252l678 ---|          LDM    /WRITE/BYWR
Line S20840 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36131  M02S20840.252l678 ---|          LMC    7777
Line S20841 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36132  M02S20841.252l678 ---|          ZJN    PRS1        IF LONG BLOCKS
Line S20842 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36133  M02S20842.252l678 ---|          LDM    PRSD
Line S20843 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36134  M02S20843.252l678 ---|          STM    CBSA
Line S20844 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36135  M02S20844.252l678 ---| PRS1     LDC    177
Line S20845 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36136  M02S20845.252l678 ---|          STM    CBSE
Line S20846 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36137  M02S20846.252l678 ---|          LDM    PRSA
36138  M01S01888.252l678 +++| PRS1     LDM    PRSA
36139  M01S20847.1mt     +++|          STM    ABCA
36140  M01S20848.1mt     +++|          LDC    LPNI-LDNI
36141  M01S20849.1mt     +++|          RAM    ABCB
Line S20850 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36142  M02S20850.252l678 ---|          LDM    PRSB
Line S20851 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36143  M02S20851.252l678 ---|          STM    POTA
36144  M01S01889.252l678 +++|          LDC    5000        FUNCTION CODE FOR *LDM*
36145  M01S01890.252l678 +++|          STM    BTWA
36146  M01S20852.1mt     +++|          LCN    0
36147  M01S20853.1mt     +++|          STM    WEMA
36148  M01S20854.1mt     +++|          STM    WEMB
36149  M01S20855.1mt     +++|          STM    RDAB
36150  M01S20856.1mt     +++|          LDC    UJNI-PJNI
36151  M01S20857.1mt     +++|          RAM    RDAA
36152  M01S20858.1mt     +++|          LDC    LDMI
36153  M01S20859.1mt     +++|          STM    WEMC
Line S20860 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36154  M02S20860.252l678 ---|          LDD    HP
Line S20861 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36155  M03S20861.252l678 ---|          SHN    21-6
Line S20862 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36156  M03S20862.252l678 ---|          PJN    PRS2        IF NOT FSC ADAPTOR
Line S00587 Modification History
M01 (Added by) v23l617
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36157  M02S00587.252l678 ---|          LPC    500
Line S00588 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2466
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36158  M03S00588.252l678 ---|          ZJN    PRS2        IF NOT FSC OR ISMT ADAPTOR
Line S00291 Modification History
M01 (Added by) ns2466
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36159  M02S00291.252l678 ---|          ZJN    PRS2        IF NOT FSC/CMTS/ISMT ADAPTOR
Line S20863 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36160  M02S20863.252l678 ---|          LDM    PRSE,T1     SET BACKSPACE DELAY
Line S20864 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36161  M02S20864.252l678 ---|          STM    WFCA
Line S20865 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36162  M02S20865.252l678 ---|          UJN    PRS3        CHANGE TO BACKSPACE FUNCTION
Line S20866 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36163  M02S20866.252l678 ---|
Line S20867 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36164  M02S20867.252l678 ---| PRS2     LDM    /WRITE/BYWR CHECK LENGTH OF LAST BLOCK WRITTEN
Line S20868 Modification History
M01 (Added by) 1mt
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36165  M02S20868.252l678 ---|          NJN    PRS4        IF LAST BLOCK NOT TAPE MARK
Line S20869 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36166  M03S20869.252l678 ---| PRS3     LDC    BKS         CHANGE CONTROLLED BACKSPACE TO BACKSPACE
Line S20870 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36167  M03S20870.252l678 ---|          STM    POTB
Line S00589 Modification History
M01 (Added by) v23l617
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36168  M02S00589.252l678 ---| PRS3     LDC    RJMI        CHANGE CONTROLLED BACKSPACE TO BACKSPACE
Line S00590 Modification History
M01 (Added by) v23l617
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
36169  M02S00590.252l678 ---|          STM    CBSG
Proceed to Part 39
cdc/nos2.source/opl.opl871/deck/1mt.038.txt ยท Last modified: (external edit)