User Tools

Site Tools


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

Deck 1MT Part 032

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
28603  M01S06254.274l797 +++|          ZJN    PRS30       IF I FORMAT
28604  M01S17152.1mt     +++|          LDC    LDDI&ADDI   SET FOR SI FORMAT
Line S17153 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28605  M02S17153.274l797 ---| PRS21    LMC    ADDI+BY
28606  M01S06255.274l797 +++| PRS30    LMC    ADDI+BY
28607  M01S17154.1mt     +++|          STM    SIFA
Line S17155 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28608  M02S17155.274l797 ---| PRS22    LDC    SIF
Line S17156 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28609  M02S17156.274l797 ---|          UJN    PRS25       SET CALL TO SIF
28610  M01S06256.274l797 +++| PRS31    LDC    SIF
28611  M01S06257.274l797 +++|          UJN    PRS34       SET CALL TO SIF
28612  M01S17157.1mt     +++|
Line S17158 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28613  M02S17158.274l797 ---| PRS23    LDD    FM
Line S06258 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28614  M02S06258.282l826 ---| PRS32    LDD    FM
28615  M01S01394.282l826 +++| PRS32    LDD    T8
28616  M01S17159.1mt     +++|          LMN    /MTX/TFSI
Line S17160 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28617  M02S17160.274l797 ---|          ZJN    PRS22       IF SI FORMAT
Line S17161 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28618  M02S17161.274l797 ---| PRS24    LDC    LDNI
28619  M01S06259.274l797 +++|          ZJN    PRS31       IF SI FORMAT
28620  M01S06260.274l797 +++| PRS33    LDC    LDNI
28621  M01S17162.1mt     +++|          STM    CNWL
Line S17163 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28622  M02S17163.274l797 ---| PRS25    STM    CNWL+1
28623  M01S06261.274l797 +++| PRS34    STM    CNWL+1
Line S17164 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28624  M02S17164.282l826 ---|          LDD    FM
28625  M01S01395.282l826 +++|          LDD    T8
28626  M01S17165.1mt     +++|          LMN    /MTX/TFI
Line S17166 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28627  M02S17166.274l797 ---|          ZJN    PRS26       IF NOT SI FORMAT
28628  M01S06262.274l797 +++|          ZJN    PRS35       IF NOT SI FORMAT
28629  M01S17167.1mt     +++|          LDC    0           SET TO INITIALIZE SI BLOCK
28630  M01S17168.1mt     +++|          ORG    *-1
28631  M01S17169.1mt     +++|          LOC    IBFB
28632  M01S17170.1mt     +++|          ZJN    IBF3        IF FULL BLOCK SI FORMAT
28633  M01S17171.1mt     +++|          LOC    *O
28634  M01S17172.1mt     +++|          STM    IBFB
28635  M01S17173.1mt     +++|          LDN    0
28636  M01S17174.1mt     +++|          STM    IBFC
28637  M01S17175.1mt     +++|          STM    IBFC+1
28638  M01S17176.1mt     +++|          LCN    4
Line S17177 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28639  M02S17177.274l797 ---| PRS26    ADN    4
28640  M01S06263.274l797 +++| PRS35    ADN    4
Line S17178 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28641  M02S17178.251l664 ---|          RAM    WRTF+1      SET MAXIMUM BLOCK SIZE
28642  M01S00109.251l664 +++|          RAM    WRTC+1      SET MAXIMUM BLOCK SIZE
28643  M01S06264.274l797 +++| PRSA     EQU    *-1
28644  M01S06265.274l797 +++|*         RAM    WCTD+1      (CTS)
28645  M01S17179.1mt     +++|          LDD    MD
28646  M01S17180.1mt     +++|          LPN    40
Line S17181 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28647  M02S17181.274l797 ---|          ZJN    PRS27       IF NOT 204 WRITE
28648  M01S06266.274l797 +++|          ZJN    PRS36       IF NOT 204 WRITE
28649  M01S17182.1mt     +++|          LDN    BY          SET TO GET LEVEL NUMBER FROM TRAILER
28650  M01S17183.1mt     +++|          RAM    IBFA
28651  M01S17184.1mt     +++|          LDC    BUF
28652  M01S17185.1mt     +++|          STM    IBFA+1
Line S17186 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28653  M02S17186.274l797 ---| PRS27    LDD    MD
28654  M01S06267.274l797 +++| PRS36    LDD    MD
28655  M01S17187.1mt     +++|          LPN    60
28656  M01S17188.1mt     +++|          SHN    -4
28657  M01S17189.1mt     +++|          STD    T7
Line S17190 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28658  M02S17190.274l797 ---|          ZJN    PRS29       IF NOT CONTROL WORD
28659  M01S06268.274l797 +++|          ZJN    PRS38       IF NOT CONTROL WORD
28660  M01S17191.1mt     +++|          LMC    LDNI
28661  M01S17192.1mt     +++|          STM    CNWA
28662  M01S17193.1mt     +++|          LPN    3
28663  M01S17194.1mt     +++|          RAM    CNWI
28664  M01S17195.1mt     +++|          LDC    LDDI+CN+3
28665  M01S17196.1mt     +++|          STM    CNWF
28666  M01S17197.1mt     +++|          LDC    BUFC
Line S17198 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28667  M02S17198.251l664 ---|          STM    PWRG+1
28668  M01S17199.1mt     +++|          STM    RCBA
Line S17200 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28669  M02S17200.282l826 ---|          LDD    FM
28670  M01S01396.282l826 +++|          LDD    T8
28671  M01S17201.1mt     +++|          SBN    /MTX/TFSI+1
Line S17202 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28672  M02S17202.274l797 ---|          MJN    PRS29       IF I OR SI FORMAT
28673  M01S06269.274l797 +++|          MJN    PRS38       IF I OR SI FORMAT
28674  M01S17203.1mt     +++|          LDD    T7
28675  M01S17204.1mt     +++|          LPN    2
Line S17205 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28676  M02S17205.274l797 ---|          ZJN    PRS28       IF NOT 204 WRITE
28677  M01S06270.274l797 +++|          ZJN    PRS37       IF NOT 204 WRITE
28678  M01S17206.1mt     +++|          LCN    -12D+57D
Line S17207 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28679  M02S17207.274l797 ---| PRS28    ADC    SBNI+57D
28680  M01S06271.274l797 +++| PRS37    ADC    SBNI+57D
28681  M01S17208.1mt     +++|          STM    CNWJ
Line S17209 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28682  M02S17209.274l797 ---| PRS29    LDD    T7
28683  M01S06272.274l797 +++| PRS38    LDD    T7
28684  M01S17210.1mt     +++|          LPN    2
Line S17211 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28685  M02S17211.274l797 ---|          ZJN    PRS31       IF NOT 204 WRITE
28686  M01S06273.274l797 +++|          ZJN    PRS40       IF NOT 204 WRITE
28687  M01S17212.1mt     +++|          LDC    STDI+BY
28688  M01S17213.1mt     +++|          STM    CNWG
Line S17214 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28689  M02S17214.282l826 ---|          LDD    FM
28690  M01S01397.282l826 +++|          LDD    T8
28691  M01S17215.1mt     +++|          LMN    /MTX/TFF
Line S17216 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28692  M02S17216.274l797 ---|          NJN    PRS30       IF NOT F FORMAT
28693  M01S06274.274l797 +++|          NJN    PRS39       IF NOT F FORMAT
28694  M01S17217.1mt     +++|          LDC    LDDI+MD     ENABLE MODE CHANGE
28695  M01S17218.1mt     +++|          STM    CNWH
Line S17219 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28696  M02S17219.274l797 ---| PRS30    UJN    PRS33       CONTINUE PRESET
28697  M01S06275.274l797 +++| PRS39    UJN    PRS42       CONTINUE PRESET
28698  M01S17220.1mt     +++|
Line S17221 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28699  M02S17221.274l797 ---| PRS31    LDD    T7
Line S17222 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28700  M02S17222.274l797 ---|          NJN    PRS33       IF CONTROL WORD WRITE
28701  M01S06276.274l797 +++| PRS40    LDD    T7
28702  M01S06277.274l797 +++|          NJN    PRS42       IF CONTROL WORD WRITE
28703  M01S17223.1mt     +++|          LDM    CIOE        SET TYPE OF WRITE OPERATION
28704  M01S17224.1mt     +++|          SHN    -3
28705  M01S17225.1mt     +++|          SHN    2
28706  M01S17226.1mt     +++|          LMD    MD
28707  M01S17227.1mt     +++|          LPN    14
28708  M01S17228.1mt     +++|          LMD    MD
28709  M01S17229.1mt     +++|          STD    MD
28710  M01S17230.1mt     +++|          LPN    14
Line S17231 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28711  M02S17231.274l797 ---|          NJN    PRS32       IF NOT PRU WRITE
Line S17232 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28712  M02S17232.274l797 ---|          LDN    0
28713  M01S06278.274l797 +++|          NJN    PRS41       IF NOT PRU WRITE (004)
28714  M01S06279.274l797 +++|*         LDN    0
Line S17233 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28715  M02S17233.251l664 ---|          STM    WTFB
Line S17234 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28716  M02S17234.251l664 ---|          LDC    WTF6
Line S17235 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28717  M02S17235.251l664 ---|          STM    WTFC
28718  M01S00110.251l664 +++|          STM    WTFF
28719  M01S00111.251l664 +++|          LDC    WTF8
28720  M01S00112.251l664 +++|          STM    WTFG
Line S17236 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28721  M02S17236.274l797 ---| PRS32    LDD    MD
28722  M01S06280.274l797 +++| PRS41    LDD    MD
28723  M01S17237.1mt     +++|          LPN    14
28724  M01S17238.1mt     +++|          LMN    4
Line S17239 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28725  M02S17239.274l797 ---|          ZJN    PRS33       IF BUFFERED WRITE
Line S17240 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns22000
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28726  M03S17240.274l797 ---|          LDN    0
Line S00338 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28727  M02S00338.274l797 ---|          LDC    UJNI+2      BYPASS *DRCM* ISSUE
28728  M01S06281.274l797 +++|          ZJN    PRS42       IF WRITE (014)
28729  M01S06282.274l797 +++|          LDC    UJNI+2      BYPASS *DRCM*
Line S17241 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28730  M02S17241.251l664 ---|          STM    WRTK
28731  M01S00113.251l664 +++|          STM    WRTJ
Line S17242 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28732  M02S17242.274l797 ---| PRS33    LDD    FM
Line S06283 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28733  M02S06283.282l826 ---| PRS42    LDD    FM
28734  M01S01398.282l826 +++| PRS42    LDD    T8
28735  M01S17243.1mt     +++|          SBN    /MTX/TFSI+1
Line S17244 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28736  M02S17244.274l797 ---|          MJN    PRS34       IF I OR SI FORMAT
28737  M01S06284.274l797 +++|          MJN    PRS43       IF I OR SI FORMAT
28738  M01S17245.1mt     +++|          LDD    T7
28739  M01S17246.1mt     +++|          LPN    2
28740  M01S17247.1mt     +++|          LMN    2
Line S17248 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28741  M02S17248.274l797 ---|          NJN    PRS34       IF NOT 204 WRITE
28742  M01S06285.274l797 +++|          NJN    PRS43       IF NOT 204 WRITE
28743  M01S17249.1mt     +++|          STM    CNWK
Line S17250 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28744  M02S17250.274l797 ---| PRS34    LDD    FM
Line S06286 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28745  M02S06286.282l826 ---| PRS43    LDD    FM
28746  M01S01399.282l826 +++| PRS43    LDD    T8
28747  M01S17251.1mt     +++|          LMN    /MTX/TFS
Line S17252 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28748  M02S17252.274l797 ---|          ZJN    PRS35       IF S FORMAT
28749  M01S06287.274l797 +++|          ZJN    PRS44       IF S FORMAT
28750  M01S17253.1mt     +++|          LMN    /MTX/TFL&/MTX/TFS
Line S17254 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28751  M02S17254.274l797 ---|          NJN    PRS37       IF NOT L FORMAT
Line S17255 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28752  M02S17255.274l797 ---| PRS35    LDD    T7
Line S17256 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28753  M02S17256.274l797 ---|          NJN    PRS36       IF CONTROL WORD OPERATION
28754  M01S06288.274l797 +++|          NJN    PRS46       IF NOT L FORMAT
28755  M01S06289.274l797 +++| PRS44    LDD    T7
28756  M01S06290.274l797 +++|          NJN    PRS45       IF CONTROL WORD OPERATION
28757  M01S06291.274l797 +++|*         LDN    0
28758  M01S06292.274l797 +++|          STM    WTFF        SET FOR PRU OPERATION
28759  M01S06293.274l797 +++|          LDC    WTF8
28760  M01S06294.274l797 +++|          STM    WTFG
28761  M01S17257.1mt     +++|          LDC    STDI+CM+4
28762  M01S17258.1mt     +++|          STM    CNWC
28763  M01S17259.1mt     +++|          LDM    LNUM        SET UBC
28764  M01S17260.1mt     +++|          LPN    77
28765  M01S17261.1mt     +++|          RAM    CNWB
28766  M01S17262.1mt     +++|          LDC    SBNI+57D
28767  M01S17263.1mt     +++|          STM    CNWJ
Line S17264 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28768  M02S17264.274l797 ---|          LDN    0           SET FOR PRU OPERATION
Line S17265 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28769  M03S17265.274l797 ---|          STM    WTFB
Line S17266 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28770  M03S17266.274l797 ---|          LDC    WTF6
Line S17267 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28771  M03S17267.274l797 ---|          STM    WTFC
Line S00114 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28772  M02S00114.274l797 ---|          STM    WTFF
Line S00115 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28773  M02S00115.274l797 ---|          LDC    WTF8
Line S00116 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28774  M02S00116.274l797 ---|          STM    WTFG
28775  M01S17268.1mt     +++|          LDC    NJNI-PJNI
28776  M01S17269.1mt     +++|          RAM    CNWD
Line S17270 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28777  M02S17270.274l797 ---| PRS36    UJN    PRS38       CONTINUE PRESET
28778  M01S06295.274l797 +++| PRS45    UJN    PRS47       CONTINUE PRESET
28779  M01S17271.1mt     +++|
Line S17272 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28780  M02S17272.274l797 ---| PRS37    LDD    T7
Line S17273 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28781  M02S17273.274l797 ---|          NJN    PRS38       IF CONTROL WORD WRITE
28782  M01S06296.274l797 +++| PRS46    LDD    T7
28783  M01S06297.274l797 +++|          NJN    PRS47       IF CONTROL WORD WRITE
28784  M01S17274.1mt     +++|          LDC    RADI+CM+4
28785  M01S17275.1mt     +++|          STM    CNWE
Line S17276 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28786  M02S17276.274l797 ---| PRS38    LDM    LNUM        SET LEVEL NUMBER
28787  M01S06298.274l797 +++| PRS47    LDM    LNUM        SET LEVEL NUMBER
28788  M01S17277.1mt     +++|          SHN    -10
28789  M01S17278.1mt     +++|          STM    LNUM
28790  M01S17279.1mt     +++|          LDD    FN
28791  M01S17280.1mt     +++|          LMN    /MTX/WTF
Line S17281 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28792  M02S17281.274l797 ---|          NJN    PRS39       IF NOT WRITE DATA
28793  M01S06299.274l797 +++|          NJN    PRS48       IF NOT WRITE DATA
28794  M01S17282.1mt     +++|          LDD    MD
28795  M01S17283.1mt     +++|          LPN    14
28796  M01S17284.1mt     +++|          LMN    14
Line S17285 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28797  M02S17285.274l797 ---| PRS39    NJN    PRS41       IF NOT EOF WRITE
28798  M01S06300.274l797 +++| PRS48    NJN    PRS50       IF NOT EOF WRITE
Line S17286 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28799  M02S17286.282l826 ---|          LDD    FM
28800  M01S01400.282l826 +++|          LDD    T8
28801  M01S17287.1mt     +++|          SBN    /MTX/TFSI+1
Line S17288 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28802  M02S17288.274l797 ---|          PJN    PRS40       IF NOT I/SI FORMAT
28803  M01S06301.274l797 +++|          PJN    PRS49       IF NOT I/SI FORMAT
28804  M01S17289.1mt     +++|          LDC    EOF         SET TO WRITE EOF
Line S17290 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28805  M02S17290.251l664 ---|          STM    WTFD
28806  M01S00117.251l664 +++|          STM    WTFH
28807  M01S17291.1mt     +++|          LDM    LNUM
28808  M01S17292.1mt     +++|          LMN    17
Line S17293 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28809  M02S17293.274l797 ---|          NJN    PRS40       IF NOT LEVEL 17
28810  M01S06302.274l797 +++|          NJN    PRS49       IF NOT LEVEL 17
28811  M01S17294.1mt     +++|          STM    LNUM        DO NOT WRITE DOUBLE EOF
Line S17295 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28812  M02S17295.274l797 ---| PRS40    LDD    MD          CLEAR EOR/EOF FLAG THIS OPERATION
28813  M01S06303.274l797 +++| PRS49    LDD    MD          CLEAR EOR/EOF FLAG THIS OPERATION
28814  M01S17296.1mt     +++|          LPC    7377
28815  M01S17297.1mt     +++|          STD    MD
Line S17298 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28816  M02S17298.282l826 ---|          LDD    HP          CHECK LAST OPERATION EOR/EOF
Line S17299 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28817  M02S17299.282l826 ---|          SHN    -12
Line S17300 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28818  M02S17300.282l826 ---|          LMN    2
28819  M01S01401.282l826 +++|          LDD    UP          CHECK LAST OPERATION EOR/EOF
28820  M01S01402.282l826 +++|          LPN    30
28821  M01S01403.282l826 +++|          LMN    20
Line S17301 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28822  M02S17301.274l797 ---|          ZJN    PRS41       IF LAST OPERATION INCOMPLETE WRITE
28823  M01S06304.274l797 +++|          ZJN    PRS50       IF LAST OPERATION INCOMPLETE WRITE
28824  M01S17302.1mt     +++|          LDM    CIOE
28825  M01S17303.1mt     +++|          SHN    21-12
Line S17304 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28826  M02S17304.274l797 ---|          MJN    PRS41       IF DATA IN BUFFER
28827  M01S06305.274l797 +++|          MJN    PRS50       IF DATA IN BUFFER
28828  M01S17305.1mt     +++|          LDC    400         SET EOR/EOF FLAG THIS OPERATION
28829  M01S17306.1mt     +++|          RAD    MD
Line S17307 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28830  M02S17307.274l797 ---| PRS41    LDD    HP          SET LAST OPERATION WRITE FLAG
Line S17308 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28831  M02S17308.274l797 ---|          LPC    3777
Line S06306 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28832  M02S06306.282l826 ---| PRS50    LDD    HP          SET LAST OPERATION WRITE FLAG
Line S06307 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28833  M02S06307.282l826 ---|          LPC    2777        CLEAR BLANK TAPE FLAG
Line S17309 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28834  M02S17309.282l826 ---|          LMC    4000
Line S17310 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28835  M02S17310.282l826 ---|          STD    HP
28836  M01S01404.282l826 +++| PRS50    LDD    UP
28837  M01S01405.282l826 +++|          SCN    24          CLEAR BLANK TAPE FLAG
28838  M01S01406.282l826 +++|          LMN    20          SET LAST OPERATION WRITE FLAG
28839  M01S01407.282l826 +++|          STD    UP
Line S17311 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28840  M02S17311.274l797 ---|          LDC    PRSA        MODIFY CHANNELS
Line S17312 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28841  M02S17312.274l797 ---|          RJM    MCH
Line S17313 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28842  M02S17313.274l797 ---|          LDN    50          SELECT WRITE FUNCTION
Line S17314 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28843  M02S17314.274l797 ---|          STM    //ITMA
Line S17315 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28844  M02S17315.274l797 ---|          LDC    4635
Line S17316 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28845  M02S17316.274l797 ---|          STM    //WEOA
Line S17317 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28846  M02S17317.274l797 ---|          LDD    DC
Line S17318 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28847  M02S17318.274l797 ---|          SCN    77
Line S17319 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28848  M02S17319.274l797 ---|          SBD    HN
Line S17320 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28849  M02S17320.274l797 ---|          LDC    0201
Line S17321 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28850  M02S17321.274l797 ---|          STM    //WEOB
Line S17322 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28851  M02S17322.274l797 ---|          LDD    HP          CLEAR BLANK TAPE FLAG
Line S17323 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28852  M02S17323.274l797 ---|          LPC    6777
Line S17324 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28853  M02S17324.274l797 ---|          STD    HP
Line S17325 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28854  M02S17325.274l797 ---|          LDC    PRSB        SET UP FOR INSTRUCTION MODIFICATION!
28855  M01S06308.274l797 +++|          LDC    PRSC        SET UP FOR INSTRUCTION MODIFICATION
28856  M01S17326.1mt     +++|          STD    CN
28857  M01S17327.1mt     +++|          LDN    3           SET TO RETURN OUT POINTER
28858  M01S17328.1mt     +++|          STD    CN+4
28859  M01S17329.1mt     +++|          LDC    /SRU/ITRW*100  SET SRU INCREMENT
28860  M01S17330.1mt     +++|          STM    //CECA
28861  M01S17331.1mt     +++|          LDD    OV
Line S17332 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28862  M02S17332.274l797 ---|          ZJN    PRS43       IF NOT POSSIBLE LONG BLOCKS
28863  M01S06309.274l797 +++|          ZJN    PRS52       IF NOT POSSIBLE LONG BLOCKS
Line S17333 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
28864  M02S17333.282l826 ---|          LDD    FM
28865  M01S01408.282l826 +++|          LDD    T8
28866  M01S17334.1mt     +++|          LMN    /MTX/TFL
Line S17335 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28867  M02S17335.274l797 ---|          ZJN    PRS42       IF L FORMAT
28868  M01S06310.274l797 +++|          ZJN    PRS51       IF L FORMAT
28869  M01S17336.1mt     +++|          LMN    /MTX/TFF&/MTX/TFL
Line S17337 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28870  M02S17337.274l797 ---|          NJN    PRS43       IF NOT F FORMAT
Line S17338 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28871  M02S17338.274l797 ---| PRS42    LDD    FN
28872  M01S06311.274l797 +++|          NJN    PRS52       IF NOT F FORMAT
28873  M01S06312.274l797 +++| PRS51    LDD    FN
28874  M01S17339.1mt     +++|          LMN    /MTX/WTF
Line S17340 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28875  M02S17340.274l797 ---|          NJN    PRS44       IF NOT WRITE
28876  M01S06313.274l797 +++|          NJN    PRS53       IF NOT WRITE
28877  M01S17341.1mt     +++|          AOD    SC          SET TO LOAD LONG BLOCK OVERLAY
Line S17342 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28878  M02S17342.274l797 ---| PRS43    LDD    FN
28879  M01S06314.274l797 +++| PRS52    LDD    FN
28880  M01S17343.1mt     +++|          LMN    /MTX/WTF
Line S17344 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28881  M02S17344.274l797 ---|          NJN    PRS44       IF NOT WRITE DATA
Line S17345 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28882  M02S17345.274l797 ---|          LDC    PRS45       SET TO RETURN HERE IF NOT LONG BLOCKS
28883  M01S06315.274l797 +++|          NJN    PRS53       IF NOT WRITE DATA
28884  M01S06316.274l797 +++|          LDC    PRS54       SET TO RETURN HERE IF NOT LONG BLOCKS
28885  M01S17346.1mt     +++|          STD    BT
Line S17347 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28886  M02S17347.274l797 ---| PRS44    LJM    PRSX        RETURN
28887  M01S06317.274l797 +++| PRS53    LJM    PRSX        RETURN
28888  M01S17348.1mt     +++|
28889  M01S17349.1mt     +++|*         RETURN HERE AFTER ALL ROUTINES LOADED IF WRITE DATA.
28890  M01S17350.1mt     +++|
Line S17351 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28891  M02S17351.274l797 ---| PRS45    RJM    CNW         CHECK FIRST WRITE
Line S17352 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28892  M02S17352.274l797 ---|          ZJN    PRS46       IF WRITE OK
28893  M01S06318.274l797 +++| PRS54    LDD    HP
28894  M01S06319.274l797 +++|          SHN    21-7
28895  M01S06320.274l797 +++|          PJN    PRS55       IF NOT CTS
28896  M01S06321.274l797 +++|          LDD    CN+3
28897  M01S06322.274l797 +++|          STM    OPTU        SAVE OUT POINTER FOR COMMAND RETRY
28898  M01S06323.274l797 +++|          LDD    CN+4
28899  M01S06324.274l797 +++|          STM    OPTL
28900  M01S06325.274l797 +++| PRS55    RJM    CNW         CHECK FIRST WRITE
28901  M01S06326.274l797 +++|          ZJN    PRS56       IF WRITE OK
Line S17353 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28902  M02S17353.251l664 ---|          LJM    WTF2        PROCESS ERROR CONDITION
28903  M01S00118.251l664 +++|          LJM    WTF4        PROCESS ERROR CONDITION
28904  M01S17354.1mt     +++|
Line S17355 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28905  M02S17355.274l797 ---| PRS46    LDD    HP
Line S17356 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28906  M03S17356.274l797 ---|          SHN    21-6
Line S17357 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 251l664
M04 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28907  M04S17357.274l797 ---|          PJN    PRS47       IF NOT FSC ADAPTER
Line S00239 Modification History
M01 (Added by) ns21000
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28908  M03S00239.274l797 ---|          PJN    PRS46.1     IF NOT FSC ADAPTER
Line S17358 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28909  M03S17358.274l797 ---|          LDC    LDCI+0      LDC COMMAND
Line S17359 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28910  M03S17359.274l797 ---|          STM    PWRF        MODIFY FOR FSC TAPE SUBSYSTEM
Line S00240 Modification History
M01 (Added by) ns21000
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28911  M03S00240.274l797 ---|          UJN    PRS47       FSC ADAPTER
Line S00241 Modification History
M01 (Added by) ns21000
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28912  M03S00241.274l797 ---|
Line S00242 Modification History
M01 (Added by) ns21000
M02 (Updated by) 251l664
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28913  M03S00242.274l797 ---| PRS46.1  SHN    21-5-21+6+22
Line S00119 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28914  M02S00119.274l797 ---|          SHN    21-5
Line S00243 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28915  M02S00243.274l797 ---|          PJN    PRS47       IF NOT MTS UNIT
28916  M01S06327.274l797 +++| PRS56    LDD    HP
28917  M01S06328.274l797 +++|          SHN    21-7
28918  M01S06329.274l797 +++|          PJN    PRS59       IF NOT CTS
28919  M01S06330.274l797 +++|          LDD    MD
28920  M01S06331.274l797 +++|          SHN    21-6
28921  M01S06332.274l797 +++|          PJN    PRS58       IF NOT CODED
28922  M01S06333.274l797 +++|          LDD    BY
28923  M01S06334.274l797 +++|          LMN    LABL
28924  M01S06335.274l797 +++|          ZJN    PRS57       IF CORRECT LENGTH FOR LABEL
Line S06336 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2757
Seq #  *Modification Id* Act 
----------------------------+
28925  M02S06336.ns2757  ---|          LDN    /MTX/SCI    ILLEGAL CODED FORMAT
28926  M01S00003.ns2757  +++|          LDN    /MTX/SCI    CODED I/O NOT SUPPORTED
28927  M01S06337.274l797 +++|          LJM    RET3        RETURN ERROR CODE
28928  M01S06338.274l797 +++|
28929  M01S06339.274l797 +++| PRS57    LDC    F0250
28930  M01S06340.274l797 +++|          STM    ITMA        SHORT WRITE
28931  M01S06341.274l797 +++|          STM    XBFE
28932  M01S06342.274l797 +++|          LDC    LDNI+CCW/10000
28933  M01S06343.274l797 +++|          STM    WCTA        DO CODE CONVERSION
28934  M01S06344.274l797 +++|          LDC    LDNI+CLBL
28935  M01S06345.274l797 +++|          STM    WCTB        LENGTH TO WRITE
28936  M01S06346.274l797 +++| PRS58    UJN    PRS61       SET BLOCKS WRITTEN FLAG
28937  M01S06347.274l797 +++|
28938  M01S06348.274l797 +++| PRS59    SHN    21-5-21+7
28939  M01S06349.274l797 +++|          PJN    PRS60       IF NOT MTS UNIT
28940  M01S00244.ns21000 +++|          LDC    UJNI-NJNI
Line S00245 Modification History
M01 (Added by) ns21000
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28941  M02S00245.251l664 ---|          RAM    WRTM
Line S17360 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28942  M02S17360.251l664 ---| PRS47    RJM    SMA         DETERMINE IF MOTION AHEAD ALLOWED
Line S17361 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28943  M02S17361.251l664 ---|          LDC    4000        SET BLOCKS WRITTEN FLAG
28944  M01S00120.251l664 +++|          RAM    WRTF
Line S00121 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28945  M02S00121.274l797 ---| PRS47    LDM    DLYA
28946  M01S06350.274l797 +++| PRS60    LDM    DLYA
28947  M01S00122.251l664 +++|          LPN    14
Line S00123 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28948  M02S00123.274l797 ---|          ZJN    PRS48       IF 1X PPU SPEED
28949  M01S06351.274l797 +++|          ZJN    PRS61       IF 1X PPU SPEED
28950  M01S00124.251l664 +++|          LPN    4
Line S00125 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28951  M02S00125.274l797 ---|          ZJN    PRS48       IF 2X PPU SPEED
28952  M01S06352.274l797 +++|          ZJN    PRS61       IF 2X PPU SPEED
28953  M01S00126.251l664 +++|          LDC    ITM         ENABLE MOTION AHEAD
28954  M01S00127.251l664 +++|          STM    WTFA+1
28955  M01S00128.251l664 +++|          LDC    RCB
28956  M01S00129.251l664 +++|          STM    WTFB
Line S00130 Modification History
M01 (Added by) 251l664
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28957  M02S00130.274l797 ---| PRS48    LDC    4000        SET BLOCKS WRITTEN FLAG
28958  M01S06353.274l797 +++| PRS61    LDC    4000        SET BLOCKS WRITTEN FLAG
28959  M01S17362.1mt     +++|          STD    BT
28960  M01S17363.1mt     +++|          LJM    WTF         INITIATE WRITE
28961  M01S17364.1mt     +++|
Line S17365 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28962  M02S17365.274l797 ---| PRSA     CHTB
Line S17366 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28963  M02S17366.274l797 ---| PRSB     TSAD
28964  M01S17367.1mt     +++|
28965  M01S06354.274l797 +++| PRSB     CHTB
28966  M01S06355.274l797 +++| PRSC     TSAD
28967  M01S06356.274l797 +++| WCT      SPACE  4,15
28968  M01S06357.274l797 +++|**        WCT - WRITE CARTRIDGE TAPE.
Line S06358 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
28969  M02S06358.1mt38   ---|*         THIS ROUTINE OVERLAYS *WRT* FOR CTS.
28970  M01S00008.1mt38   +++|*
28971  M01S00009.1mt38   +++|*         THIS ROUTINE OVERLAYS THE FIRST PART OF *WRT* FOR CTS.
28972  M01S00010.1mt38   +++|*         THE LENGTH OF THIS ROUTINE MUST BE THE SAME AS THE LENGTH
28973  M01S00011.1mt38   +++|*         OF THE FIRST PART OF *WRT*.
28974  M01S06359.274l797 +++|*
28975  M01S06360.274l797 +++|*         ENTRY  (BY) = BYTES TO TRANSFER.
28976  M01S06361.274l797 +++|*
28977  M01S06362.274l797 +++|*         EXIT   (CN+3, CN+4) = OUT POINTER.
28978  M01S06363.274l797 +++|*                TO */WLB/ODAB* IF COMMAND RETRY FOR LONG BLOCKS.
28979  M01S06364.274l797 +++|*
28980  M01S06365.274l797 +++|*         USES   CM - CM+4, CN - CN+2.
28981  M01S06366.274l797 +++|*
28982  M01S06367.274l797 +++|*         CALLS  CNW, *CWP*, IBF, ITM, LOV, RCB, /PRESET/WFE.
28983  M01S06368.274l797 +++|*
28984  M01S06369.274l797 +++|*         MACROS CALL.
28985  M01S06370.274l797 +++|
28986  M01S06371.274l797 +++|
28987  M01S06372.274l797 +++| .WCT     BSS    0
28988  M01S06373.274l797 +++|          LOC    WRTX
28989  M01S06374.274l797 +++| WCT      SUBR               ENTRY/EXIT
28990  M01S06375.274l797 +++| WCT1     UJN    WCT2        WRITE DATA, NOT LONG BLOCKS
28991  M01S06376.274l797 +++| WCTA     EQU    *-1
28992  M01S06377.274l797 +++|*         LDN    CCW/10000   (CODE CONVERSION OVERLAY NUMBER)
28993  M01S06378.274l797 +++|*         UJN    WCT3        (LONG BLOCKS)
28994  M01S06379.274l797 +++|          RJM    LOV         LOAD OVERLAY AND DO CODE CONVERSION
28995  M01S06380.274l797 +++| WCT2     RJM    ITM
28996  M01S06381.274l797 +++|          LDD    BY
28997  M01S06382.274l797 +++| WCTB     EQU    *-1
28998  M01S06383.274l797 +++|*         LDN    CLBL        (CTS LABEL LENGTH)
28999  M01S06384.274l797 +++|          OAM    BUF,CH      OUTPUT BLOCK
29000  M01S06385.274l797 +++|          FJM    *,CH
29001  M01S06386.274l797 +++|
29002  M01S06387.274l797 +++|*         DELAY 10 MICROSECONDS TO PREVENT A HARDWARE ERROR IN THE
29003  M01S06388.274l797 +++|*         CCC.  THE DISCONNECT WOULD SOMETIMES CAUSE THE LAST BYTE TO
29004  M01S06389.274l797 +++|*         BE LOST.
29005  M01S06390.274l797 +++|
29006  M01S06391.274l797 +++|          LDN    20
29007  M01S06392.274l797 +++|          SBN    1
29008  M01S06393.274l797 +++|          NJN    *-1
29009  M01S06394.274l797 +++|          DCN    CH+40
Line S06395 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29010  M02S06395.282l826 ---| WCT3     LDD    HP
Line S00012 Modification History
M01 (Added by) 1mt38
M02 (Updated by) 1mt41
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29011  M03S00012.282l826 ---|          STD    T8          SAVE HARDWARE OPTIONS
Line S06396 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29012  M02S06396.282l826 ---|          LPC    5777        CLEAR EOR/EOF LAST BLOCK FLAG
Line S06397 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29013  M02S06397.282l826 ---|          STD    HP
29014  M01S01409.282l826 +++| WCT3     LDD    UP
29015  M01S01410.282l826 +++|          SCN    10          CLEAR EOR/EOF LAST BLOCK FLAG
29016  M01S01411.282l826 +++|          STD    UP
29017  M01S06398.274l797 +++|          LDD    MD
Line S00013 Modification History
M01 (Added by) 1mt38
M02 (Updated by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
29018  M02S00013.1mt41   ---|          STD    T9          SAVE MODE FUNCTION
29019  M01S06399.274l797 +++|          LPC    7377        CLEAR EOR/EOF THIS OPERATION FLAG
29020  M01S06400.274l797 +++|          STD    MD
29021  M01S06401.274l797 +++|          LDC    *           BLOCK LENGTH (I, SI FORMAT)
29022  M01S06402.274l797 +++| WCTC     EQU    *-2
29023  M01S06403.274l797 +++|*         PSN                (NOT I, SI FORMAT)
29024  M01S06404.274l797 +++|*         LDD    BY          (NOT I, SI FORMAT)
29025  M01S06405.274l797 +++|          LMC    5000
29026  M01S06406.274l797 +++| WCTD     EQU    *-2
29027  M01S06407.274l797 +++|*         LMC    5004        (I FORMAT)
29028  M01S06408.274l797 +++|*         LDN    0           (WRITE LABEL)
29029  M01S06409.274l797 +++|*         LDN    0           (WRITE LABEL)
29030  M01S06410.274l797 +++|          ZJN    WCT4        IF NOT EOR/EOF WRITTEN
Line S06411 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29031  M02S06411.282l826 ---|          LDC    2000
Line S06412 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
29032  M02S06412.282l826 ---|          RAD    HP          SET EOR/EOF FLAGS
29033  M01S01412.282l826 +++|          LDN    10
29034  M01S01413.282l826 +++|          RAD    UP          SET EOR/EOF FLAGS
29035  M01S06413.274l797 +++|          LDC    400
29036  M01S06414.274l797 +++|          RAD    MD
29037  M01S06415.274l797 +++| WCT4     LDD    MA
29038  M01S06416.274l797 +++|          CWD    CN          SAVE OLD OUT POINTER
29039  M01S06417.274l797 +++|          RJM    CNW         CHECK NEXT WRITE
29040  M01S06418.274l797 +++| WCTE     EQU    *-2
29041  M01S06419.274l797 +++|*         UJN    WCT5        (WRITE LABEL)
29042  M01S06420.274l797 +++|          LDM    WTFE
29043  M01S06421.274l797 +++|          ADD    DF
29044  M01S06422.274l797 +++|          NJN    WCT5        IF NO MORE DATA OR DROP OUT SET
29045  M01S06423.274l797 +++| WCTF     EQU    *-1
29046  M01S06424.274l797 +++|*         UJN    WCT5        (LONG BLOCKS)
29047  M01S06425.274l797 +++|          RJM    RCB         READ NEXT BLOCK FROM CENTRAL BUFFER
29048  M01S06426.274l797 +++| WCT5     RJM    /PRESET/WFE WAIT FOR END OF OPERATION
Line S06427 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
29049  M02S06427.1mt38   ---|          PJN    WCT8        IF NOT COMMAND RETRY
29050  M01S00014.1mt38   +++|          PJP    WCT8        IF NOT COMMAND RETRY
29051  M01S06428.274l797 +++|          LDM    OPTU        RESET OUT POINTER
29052  M01S06429.274l797 +++| WCTG     EQU    *-2
29053  M01S06430.274l797 +++|*         UJN    WCT7        (WRITE LABELS)
29054  M01S06431.274l797 +++|          STD    CN+3
29055  M01S06432.274l797 +++|          LDM    OPTL
29056  M01S06433.274l797 +++|          STD    CN+4
Line S00015 Modification History
M01 (Added by) 1mt38
M02 (Updated by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
29057  M02S00015.1mt41   ---|          LDD    T8          RESTORE HARDWARE OPTIONS
Line S00016 Modification History
M01 (Added by) 1mt38
M02 (Updated by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
29058  M02S00016.1mt41   ---|          STD    HP
Line S00017 Modification History
M01 (Added by) 1mt38
M02 (Updated by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
29059  M02S00017.1mt41   ---|          LDD    T9          RESTORE MODE FUNCTION
29060  M01S00022.1mt41   +++|          LDD    MD
29061  M01S00023.1mt41   +++|          LPC    7377        CLEAR EOR/EOF THIS OPERATION FLAG
29062  M01S00018.1mt38   +++|          STD    MD
29063  M01S06434.274l797 +++|          RJM    CNW         CHECK NEXT WRITE
29064  M01S06435.274l797 +++|          LDM    WCT
29065  M01S06436.274l797 +++|          LMC    EOFC
29066  M01S06437.274l797 +++|          NJN    WCT6        IF NOT CALLED FROM *EOF*
29067  M01S06438.274l797 +++|          STD    T6
29068  M01S06439.274l797 +++|          STD    BY          SET TO WRITE EOF
29069  M01S06440.274l797 +++|          RJM    IBF
29070  M01S06441.274l797 +++|          UJN    WCT7        ISSUE THE CONTINUE FUNCTION
29071  M01S06442.274l797 +++|
29072  M01S06443.274l797 +++|*         FOR LONG BLOCKS, THE FOLLOWING CODE IS OVERLAYED WITH
29073  M01S06444.274l797 +++|*         */WLB/.WCT*.
29074  M01S06445.274l797 +++|
29075  M01S06446.274l797 +++|*         LDN    F0002       (LONG BLOCKS)
29076  M01S06447.274l797 +++|*         STM    ITMA        (LONG BLOCKS)
29077  M01S06448.274l797 +++|*         LJM    /WLB/ODAB   (LONG BLOCKS)
29078  M01S06449.274l797 +++|
29079  M01S06450.274l797 +++| WCT6     RJM    RCB         READ CENTRAL BUFFER
29080  M01S06451.274l797 +++|          RJM    IBF         PROCESS I/SI FORMAT
29081  M01S06452.274l797 +++| WCTH     EQU    *-2
29082  M01S06453.274l797 +++|*         UJN    *+2         (NOT I/SI FORMAT)
29083  M01S06454.274l797 +++| WCT7     LDN    F0002
29084  M01S06455.274l797 +++|          STM    ITMA        CONTINUE IS THE NEXT FUNCTION
29085  M01S06456.274l797 +++|          LJM    WCT1        RETRY THE WRITE
29086  M01S06457.274l797 +++| WCTI     EQU    *-1
29087  M01S06458.274l797 +++|*         LJM    WCT2        (WRITE LABEL)
29088  M01S06459.274l797 +++|
29089  M01S06460.274l797 +++| WCT8     ZJN    WCT9        IF NO ERROR
29090  M01S06461.274l797 +++|          LDN    /MTX/STE    STATUS ERROR
29091  M01S06462.274l797 +++| WCT9     STD    EC
29092  M01S06463.274l797 +++|          ADD    EI
29093  M01S06464.274l797 +++|          ZJN    WCT10       IF NO ERROR OR NO RECOVERED ERROR
29094  M01S06465.274l797 +++|          LDD    MA
29095  M01S06466.274l797 +++|          CRD    CN          RESET TO OLD OUT POINTER
29096  M01S06467.274l797 +++|          CALL   CWP
29097  M01S06468.274l797 +++|
29098  M01S06469.274l797 +++|*         RETURN HERE IF END OF TAPE OR RECOVERED ERROR.
29099  M01S06470.274l797 +++|
29100  M01S06471.274l797 +++|          LDM    WTFE
29101  M01S06472.274l797 +++|          ADD    DF
29102  M01S06473.274l797 +++|          NJN    WCT10       IF NO MORE DATA OR DROP OUT
29103  M01S06474.274l797 +++| WCTJ     EQU    *-1
29104  M01S06475.274l797 +++|*         UJN    WCT10       (LONG BLOCKS)
29105  M01S06476.274l797 +++|*         UJN    WRT7        (WRITE LABEL)
29106  M01S06477.274l797 +++|          LDM    WRTK
29107  M01S06478.274l797 +++|          LMC    WRTX
29108  M01S06479.274l797 +++|          NJN    WCT10       IF END OF TAPE
29109  M01S06480.274l797 +++|          RJM    RCB         READ CENTRAL BUFFER
29110  M01S06481.274l797 +++| WCT10    LDD    MA
29111  M01S00019.1mt38   +++| WCTM     EQU    *-1
29112  M01S00020.1mt38   +++|*         UJN    WRT7        (WRITE LABEL)
29113  M01S06482.274l797 +++|          CRD    CM
29114  M01S06483.274l797 +++|          LDD    CM+3
29115  M01S06484.274l797 +++|          STM    OPTU        SAVE OUT POINTER FOR COMMAND RETRY
29116  M01S06485.274l797 +++|          LDD    CM+4
29117  M01S06486.274l797 +++|          STM    OPTL
Line S06487 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
29118  M02S06487.1mt38   ---|          IFNE   *,WRT5.1,1
Line S06488 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
29119  M02S06488.1mt38   ---|          UJN    WRT5.1      WRITE OUT POINTER TO FET
Line S06489 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt38
Seq #  *Modification Id* Act 
----------------------------+
29120  M02S06489.1mt38   ---|          BSSZ   WRT5.1-*    GENERATE ERROR IF OVERFLOW
29121  M01S00021.1mt38   +++|
29122  M01S00024.1mt41   +++| WCTL     EQU    *-WCTX      LENGTH OF *WCT*
29123  M01S00022.1mt38   +++|          ERRNZ  WRT5.1-*    ADJUST *BSS* BEFORE *WRT5.1*
29124  M01S00023.1mt38   +++|
29125  M01S06490.274l797 +++|          LOC    *O
Line S06491 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt41
Seq #  *Modification Id* Act 
----------------------------+
29126  M02S06491.1mt41   ---| WCTL     EQU    WRT5.1-WCTX LENGTH OF *WCT*
29127  M01S06492.274l797 +++|
29128  M01S06493.274l797 +++| WCTK     CHTB               CHANNEL TABLE
29129  M01S17368.1mt     +++| SMA      SPACE  4,10
Line S17369 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29130  M02S17369.251l664 ---|**        SMA - SET MOTION AHEAD LENGTH FACTOR.
Line S17370 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29131  M02S17370.251l664 ---|*
Line S17371 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29132  M02S17371.251l664 ---|*         EXIT   (TB) = READ AHEAD LENGTH FACTOR, IF ANY.
Line S17372 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29133  M02S17372.251l664 ---|*                (PWRB) MODIFIED IF FULL MOTION AHEAD NOT ALLOWED.
Line S17373 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29134  M02S17373.251l664 ---|*
Line S17374 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29135  M02S17374.251l664 ---|*         CALLS  DTS.
Line S17375 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29136  M02S17375.251l664 ---|*
Line S17376 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29137  M02S17376.251l664 ---|*         USES   T1.
Line S17377 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29138  M02S17377.251l664 ---|
Line S17378 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29139  M02S17378.251l664 ---|
Line S17379 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29140  M02S17379.251l664 ---| SMA7     LDD    HP
Line S17380 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29141  M02S17380.251l664 ---|          LPN    3
Line S17381 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29142  M02S17381.251l664 ---|          ZJN    SMA8        IF 7 TRACK
Line S17382 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29143  M02S17382.251l664 ---|          LPN    2
Line S17383 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29144  M02S17383.251l664 ---|          ZJN    SMA9        IF NOT GCR UNIT
Line S17384 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29145  M02S17384.251l664 ---|          LDN    SMAE-SMAD   SET 6250/1600 CPI UNIT
Line S17385 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29146  M02S17385.251l664 ---| SMA8     ADC    SMAD        SET 7 TRACK TABLE
Line S17386 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29147  M02S17386.251l664 ---|          STM    SMAA
Line S17387 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29148  M02S17387.251l664 ---| SMA9     LDD    HP          SET LENGTH FACTOR ACCORDING TO UNIT SPEED
Line S17388 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29149  M02S17388.251l664 ---|          SHN    -1
Line S17389 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29150  M02S17389.251l664 ---|          LPN    6
Line S17390 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29151  M02S17390.251l664 ---|          RAD    T1
Line S17391 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29152  M02S17391.251l664 ---|          LDM    SMAB,T1
Line S17392 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29153  M02S17392.251l664 ---|*         LDM    SMAC,T1     (ATS 6250 CPI)
Line S17393 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29154  M02S17393.251l664 ---|*         LDM    SMAD,T1     (MTS/ATS 7 TRACK)
Line S17394 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29155  M02S17394.251l664 ---|*         LDM    SMAE,T1     (GCR UNIT, 1600 CPI DENSITY)
Line S17395 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29156  M02S17395.251l664 ---| SMAA     EQU    *-1
Line S17396 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29157  M02S17396.251l664 ---|          ZJN    SMAX        IF FULL MOTION AHEAD ALLOWED
Line S17397 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29158  M02S17397.251l664 ---|          STD    TB          SET LENGTH FACTOR
Line S17398 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29159  M02S17398.251l664 ---| SMA10    LDC    LDDI+T6     DISABLE FULL MOTION AHEAD
Line S17399 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29160  M02S17399.251l664 ---|          STM    PWRB
Line S17400 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29161  M02S17400.251l664 ---|
Line S17401 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29162  M02S17401.251l664 ---| SMA      SUBR               ENTRY/EXIT
Line S00523 Modification History
M01 (Added by) v23l617
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29163  M02S00523.251l664 ---|          LDD    HP
Line S00524 Modification History
M01 (Added by) v23l617
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29164  M02S00524.251l664 ---|          SHN    21-10
Line S00525 Modification History
M01 (Added by) v23l617
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29165  M02S00525.251l664 ---|          MJN    SMAX        IF ISMT UNIT
Line S17402 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29166  M02S17402.251l664 ---|          LDM    DLYA        SET PPU SPEED
Line S17403 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29167  M02S17403.251l664 ---|          LPN    14
Line S17404 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29168  M02S17404.251l664 ---|          ZJN    SMA2        IF 1 TIMES PPU SPEED
Line S17405 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29169  M02S17405.251l664 ---|          LPN    4           MASK FOR 4 TIMES PPU SPEED
Line S17406 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29170  M02S17406.251l664 ---|          ZJN    SMA1        IF NOT 4 TIMES PPU SPEED
Line S17407 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29171  M02S17407.251l664 ---|          LDD    HP
Line S17408 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29172  M02S17408.251l664 ---|          SHN    21-6
Line S17409 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29173  M02S17409.251l664 ---|          PJN    SMAX        IF NOT *FSC* TAPE EQUIPMENT
Line S17410 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29174  M02S17410.251l664 ---|          LDC    SBNI+2
Line S17411 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29175  M02S17411.251l664 ---|          STM    PWRC
Line S17412 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29176  M02S17412.251l664 ---|          LDC    STDI+TB
Line S17413 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29177  M02S17413.251l664 ---|          STM    PWRD
Line S17414 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29178  M02S17414.251l664 ---|          LDC    LDNI+2
Line S17415 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29179  M02S17415.251l664 ---|          STM    PWRE
Line S17416 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29180  M02S17416.251l664 ---|          UJN    SMA10       EXIT FOR PRE-READ *FSC* ON 4 X PPU SPEED
Line S17417 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29181  M02S17417.251l664 ---|
Line S17418 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29182  M02S17418.251l664 ---| SMA1     LDN    1
Line S17419 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29183  M02S17419.251l664 ---| SMA2     STD    T1          SET INDEX FOR READ AHEAD TABLE VALUE
Line S17420 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29184  M02S17420.251l664 ---|          LDD    HP
Line S17421 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29185  M02S17421.251l664 ---|          SHN    21-5
Line S17422 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29186  M02S17422.251l664 ---|          PJN    SMA3        IF NOT MTS DRIVE
Line S17423 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29187  M02S17423.251l664 ---|          LJM    SMA7        PROCESS MTS PRE-READ
Line S17424 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29188  M02S17424.251l664 ---|
Line S17425 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29189  M02S17425.251l664 ---| SMA3     LDD    DS
Line S17426 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29190  M02S17426.251l664 ---|          LPN    4
Line S17427 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29191  M02S17427.251l664 ---|          ZJN    SMA4        IF NOT LOAD POINT
Line S17428 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29192  M02S17428.251l664 ---|          LDD    DC          CHECK USER SUPPLIED DENSITY
Line S17429 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29193  M02S17429.251l664 ---|          SHN    -6
Line S17430 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29194  M02S17430.251l664 ---|          LMN    /MTX/D62
Line S17431 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29195  M02S17431.251l664 ---|          UJN    SMA5        CHECK FOR 6250 CPI
Line S17432 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29196  M02S17432.251l664 ---|
Line S17433 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29197  M02S17433.251l664 ---| SMA4     RJM    DTS         INSURE CORRECT DENSITY IN STATUS
Line S17434 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29198  M02S17434.251l664 ---|          LDM    ATUS        CHECK ACTUAL TAPE DENSITY
Line S17435 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29199  M02S17435.251l664 ---|          LPN    30
Line S17436 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29200  M02S17436.251l664 ---|          LMN    30
Line S17437 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29201  M02S17437.251l664 ---| SMA5     ZJN    SMA6        IF 6250 CPI
Line S17438 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29202  M02S17438.251l664 ---|          LJM    SMA7        NOT 6250 CPI
Line S17439 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29203  M02S17439.251l664 ---|
Line S17440 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29204  M02S17440.251l664 ---| SMA6     LDC    SMAC        SET 6250 CPI
Line S17441 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29205  M02S17441.251l664 ---|          STM    SMAA
Line S17442 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29206  M02S17442.251l664 ---|          LJM    SMA9        SET BLOCK LENGTH FOR READ AHEAD
Line S17443 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29207  M02S17443.251l664 ---|
Line S17444 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29208  M02S17444.251l664 ---|
Line S17445 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29209  M02S17445.251l664 ---|*         IN THE FOLLOWING TABLES, THE FIRST NUMBER IS USED
Line S17446 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29210  M02S17446.251l664 ---|*         FOR 1X PPU SPEED AND THE SECOND NUMBER IS FOR 2X PPU
Line S17447 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29211  M02S17447.251l664 ---|*         SPEED.  A ZERO TABLE ENTRY INDICATES THAT FULL MOTION
Line S17448 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29212  M02S17448.251l664 ---|*         AHEAD IS ALLOWED. THERE IS A SEPARATE TABLE FOR 1600
Line S17449 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29213  M02S17449.251l664 ---|*         CPI DENSITY ON GCR DRIVES BECAUSE OF A FASTER ACCESS
Line S17450 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29214  M02S17450.251l664 ---|*         TIME ON THE DRIVE.
Line S17451 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29215  M02S17451.251l664 ---|*         SEE ROUTINE *PWR* FOR DETAILS ON HOW READ AHEAD IS
Line S17452 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29216  M02S17452.251l664 ---|*         PERFORMED.
Line S17453 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29217  M02S17453.251l664 ---|
Line S17454 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29218  M02S17454.251l664 ---|
Line S17455 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29219  M02S17455.251l664 ---| SMAB     BSS    0           MTS/ATS NON GCR 9 TRACK
Line S17456 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29220  M02S17456.251l664 ---|          LOC    0
Line S17457 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29221  M02S17457.251l664 ---|          CON    0,0         100 IPS
Line S17458 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29222  M02S17458.251l664 ---|          CON    560,0       150 IPS
Line S17459 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29223  M02S17459.251l664 ---|          CON    420,0       200 IPS
Line S17460 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29224  M02S17460.251l664 ---|          LOC    *O
Line S17461 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29225  M02S17461.251l664 ---|
Line S17462 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29226  M02S17462.251l664 ---| SMAC     BSS    0           ATS 6250 CPI
Line S17463 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29227  M02S17463.251l664 ---|          LOC    0
Line S17464 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29228  M02S17464.251l664 ---|          CON    400,0       100 IPS
Line S17465 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29229  M02S17465.251l664 ---|          CON    260,400     150 IPS
Line S17466 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29230  M02S17466.251l664 ---|          CON    200,400     200 IPS
Line S17467 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29231  M02S17467.251l664 ---|          LOC    *O
Line S17468 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29232  M02S17468.251l664 ---|
Line S17469 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29233  M02S17469.251l664 ---| SMAD     BSS    0           MTS/ATS 7 TRACK
Line S17470 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29234  M02S17470.251l664 ---|          LOC    0
Line S17471 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29235  M02S17471.251l664 ---|          CON    0,0         100 IPS
Line S17472 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29236  M02S17472.251l664 ---|          CON    0,0         150 IPS
Line S17473 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29237  M02S17473.251l664 ---|          CON    630,0       200 IPS
Line S17474 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29238  M02S17474.251l664 ---|          LOC    *O
Line S17475 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29239  M02S17475.251l664 ---|
Line S17476 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29240  M02S17476.251l664 ---| SMAE     BSS    0           GCR DRIVE, 1600 CPI DENSITY
Line S17477 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29241  M02S17477.251l664 ---|          LOC    0
Line S17478 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29242  M02S17478.251l664 ---|          CON    0,0         100 IPS
Line S17479 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29243  M02S17479.251l664 ---|          CON    400,0       150 IPS
Line S17480 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29244  M02S17480.251l664 ---|          CON    250,600     200 IPS
Line S17481 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29245  M02S17481.251l664 ---|          LOC    *O
29246  M01S17482.1mt     +++|          OVERLAY (WRITE LONG BLOCK PROCESSOR.),(BUFC+12),,WLB
29247  M01S17483.1mt     +++| .IM      SET    1           SET FOR ADDRESS MODIFICATION ON ERRORS
29248  M01S17484.1mt     +++|
29249  M01S17485.1mt     +++|*         LOCAL TO OVERLAY DEFINITIONS.
29250  M01S17486.1mt     +++|
29251  M01S17487.1mt     +++| NC       EQU    PA          NUMBER OF CHUNKS
29252  M01S17488.1mt     +++| BC       EQU    PB          BYTE COUNT LAST CHUNK
29253  M01S17489.1mt     +++| ODA      SPACE  4,10
29254  M01S17490.1mt     +++|**        ODA - OUTPUT DATA.
29255  M01S17491.1mt     +++|*
Line S17492 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29256  M02S17492.251l664 ---|*         CALLS  ADP, CRA, ITM, OPA, OPD, OPI, OPL, RDA, SRQ,
Line S17493 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29257  M02S17493.251l664 ---|*                /WRITE/WRT.
29258  M01S00131.251l664 +++|*         CALLS  ADP, CRA, ITM, OPA, OPD, OPI, OPL, RDA, SRQ.
29259  M01S17494.1mt     +++|*
29260  M01S17495.1mt     +++|*         MACROS CHTE.
29261  M01S17496.1mt     +++|
29262  M01S17497.1mt     +++|
29263  M01S17498.1mt     +++| ODA      SUBR               ENTRY/EXIT
29264  M01S17499.1mt     +++|          RJM    //ITM       INITIATE TAPE MOTION
29265  M01S17500.1mt     +++|*         UJN    *+2         (ANY GCR UNIT AT 1X PPU SPEED
29266  M01S17501.1mt     +++|*                            OR 200 IPS GCR UNIT AT 2X SPEED)
29267  M01S06494.274l797 +++|*         UJN    *+2         (CTS)
29268  M01S17502.1mt     +++| ODAA     EQU    *-1
29269  M01S17503.1mt     +++| ODAB     LDN    0           ALLOW FOR CONTROL WORD
29270  M01S17504.1mt     +++|*         LDN    1           (204/264 WRITE)
29271  M01S17505.1mt     +++|          RJM    ADP
29272  M01S17506.1mt     +++|          LDN    0           PRESET CHUNKS OUTPUT COUNT
29273  M01S17507.1mt     +++|          STD    CM+7
29274  M01S17508.1mt     +++|          LDC    LBBY
29275  M01S17509.1mt     +++|          STD    BY
29276  M01S17510.1mt     +++|          LDM    OPAB        SET FIRST CHUNK FLAGS
Line S17511 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
29277  M02S17511.ns21000 ---|*         LDM    OPIB        (CYBER 170-8X5 IOU)
Line S00246 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29278  M02S00246.1mt51   ---|*         LDM    OPIB        (CYBER 170-815/825/835/855 IOU)
29279  M01S00165.1mt51   +++|*         LDM    OPIB        (CYBER 180)
29280  M01S17512.1mt     +++| ODAC     EQU    *-1
29281  M01S17513.1mt     +++|          STM    OPAA
Line S17514 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
29282  M02S17514.ns21000 ---|*         STM    OPIA        (CYBER 170-8X5 IOU)
Line S00247 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29283  M02S00247.1mt51   ---|*         STM    OPIA        (CYBER 170-815/825/835/855 IOU)
29284  M01S00166.1mt51   +++|*         STM    OPIA        (CYBER 180)
29285  M01S17515.1mt     +++|*         STM    OPDA        (MTS)
29286  M01S17516.1mt     +++| ODAD     EQU    *-1
Line S17517 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29287  M02S17517.1mt51   ---|          CHTE   *
Line S17518 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29288  M02S17518.1mt51   ---|          LDN    CH
Line S17519 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29289  M02S17519.1mt51   ---|          ADC    AJMI
Line S17520 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29290  M03S17520.1mt51   ---|*         ADC    IJMI        (CYBER 170-8X5 IOU)
Line S00248 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29291  M02S00248.1mt51   ---|*         ADC    IJMI        (CYBER 170-815/825/835/855 IOU)
Line S17521 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29292  M02S17521.1mt51   ---| ODAE     EQU    *-1
29293  M01S00167.1mt51   +++|          LDN    PSNI        ENABLE WAIT FOR *1LT*
29294  M01S17522.1mt     +++|          STM    OPLA
Line S17523 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
29295  M02S17523.ns21000 ---|*         STM    OPEA        (CYBER 170-8X5 IOU)
Line S00249 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29296  M02S00249.1mt51   ---|*         STM    OPEA        (CYBER 170-815/825/835/855 IOU)
29297  M01S00168.1mt51   +++|*         STM    OPEA        (CYBER 180)
29298  M01S00169.1mt51   +++|*         STM    ODAF        (MTS)
29299  M01S17524.1mt     +++| ODAF     EQU    *-1
29300  M01S17525.1mt     +++|          LDD    NC
29301  M01S17526.1mt     +++|          ZJN    ODA5        IF *1LT* NOT NEEDED
29302  M01S17527.1mt     +++|          SBN    2
29303  M01S17528.1mt     +++|          PJN    ODA1        IF *1LT* NEEDED
29304  M01S17529.1mt     +++|          LDD    BC
29305  M01S17530.1mt     +++|          ZJN    ODA4        IF *1LT* NOT NEEDED
29306  M01S17531.1mt     +++|          ADC    LBBY-LCKS   SET BYTE COUNT FOR CHECKSUM
29307  M01S17532.1mt     +++|          MJN    ODA2        IF .LT. L TAPE SIZE
29308  M01S17533.1mt     +++| ODA1     LDN    0
29309  M01S17534.1mt     +++| ODA2     ADC    LCKS
29310  M01S17535.1mt     +++|          STM    RDAB
Line S17536 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29311  M02S17536.274l797 ---|          AOM    ODAL        SET *1LT* CALLED FLAG
29312  M01S06495.274l797 +++|          LDC    LDNI+1
29313  M01S06496.274l797 +++|          STM    ODAL        SET *1LT* CALLED FLAG
29314  M01S17537.1mt     +++|          LDN    0           SET UP POINTERS FOR *1LT*
29315  M01S17538.1mt     +++|          RJM    ADP
29316  M01S17539.1mt     +++| ODAG     LDN    1           SEND REQUEST TO *1LT*
29317  M01S17540.1mt     +++|*         UJN    ODA3        (ANY GCR UNIT AT 1X PPU SPEED
29318  M01S17541.1mt     +++|*                            OR 200 IPS GCR UNIT AT 2X SPEED)
29319  M01S06497.274l797 +++|*         UJN    ODA3        (CTS)
29320  M01S17542.1mt     +++|          RJM    SRQ
29321  M01S17543.1mt     +++| ODA3     UJN    ODA8        OUTPUT DATA
29322  M01S17544.1mt     +++|
29323  M01S17545.1mt     +++| ODA4     LDC    LBBY
29324  M01S17546.1mt     +++|          STD    BC
29325  M01S17547.1mt     +++|          LDC    /MTX/LBWD
29326  M01S17548.1mt     +++|          STM    .WC
29327  M01S17549.1mt     +++| ODA5     LDM    OPLB        SET *1LT* NOT NEEDED FLAGS
Line S17550 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
29328  M02S17550.ns21000 ---|*         LDM    OPEB        (CYBER 170-8X5 IOU)
Line S00250 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29329  M02S00250.1mt51   ---|*         LDM    OPEB        (CYBER 170-815/825/835/855 IOU)
29330  M01S00170.1mt51   +++|*         LDM    OPEB        (CYBER 180)
29331  M01S17551.1mt     +++| ODAH     EQU    *-1
29332  M01S17552.1mt     +++|          STM    OPLA
Line S17553 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
29333  M02S17553.ns21000 ---|*         STM    OPEA        (CYBER 170-8X5 IOU)
Line S00251 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29334  M02S00251.1mt51   ---|*         STM    OPEA        (CYBER 170-815/825/835/855 IOU)
29335  M01S00171.1mt51   +++|*         STM    OPEA        (CYBER 180)
29336  M01S17554.1mt     +++| ODAI     EQU    *-1
29337  M01S17555.1mt     +++|          LDD    BC
29338  M01S17556.1mt     +++|          STM    RDAB        SET BYTE COUNT FOR CHECKSUM
29339  M01S17557.1mt     +++|          STD    BY
29340  M01S17558.1mt     +++|          LJM    ODA11       SET UP TO READ NEXT BLOCK
29341  M01S17559.1mt     +++|
29342  M01S17560.1mt     +++| ODA6     LDN    2           INCREMENT CHUNK COUNT
29343  M01S17561.1mt     +++|          RAD    CM+7
29344  M01S17562.1mt     +++|          SBD    NC
29345  M01S17563.1mt     +++|          PJN    ODA9        IF NO MORE FULL CHUNKS
29346  M01S17564.1mt     +++|          ADN    1
29347  M01S17565.1mt     +++|          NJN    ODA7        IF NOT 1 CHUNK LEFT
29348  M01S17566.1mt     +++|          LDD    BC
29349  M01S17567.1mt     +++|          ZJN    ODA9        IF ZERO REMAINDER
29350  M01S17568.1mt     +++| ODA7     LDC    /MTX/LBWD   SKIP OVER DATA *1LT* OUTPUT
29351  M01S17569.1mt     +++|          RJM    ADP
29352  M01S17570.1mt     +++| ODA8     LDC    /MTX/LBWD   SET UP TO READ NEXT DATA CHUNK
29353  M01S17571.1mt     +++|          RJM    RDA         READ DATA
29354  M01S17572.1mt     +++|          RJM    OPD         OUTPUT DATA
Line S17573 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29355  M02S17573.1mt51   ---|*         RJM    OPA         (ATS CONTROLLER - OUTPUT DATA)
Line S17574 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29356  M03S17574.1mt51   ---|*         RJM    OPI         (CYBER 170-8X5 IOU)
Line S00252 Modification History
M01 (Added by) ns21000
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29357  M02S00252.1mt51   ---|*         RJM    OPI         (CYBER 170-815/825/835/855 IOU)
29358  M01S00172.1mt51   +++|*         RJM    OPA         (ATS NON-CYBER 180)
29359  M01S00173.1mt51   +++|*         RJM    OPI         (CYBER 180)
29360  M01S17575.1mt     +++| ODAJ     EQU    *-1
29361  M01S17576.1mt     +++|          ZJN    ODA6        IF FULL BLOCK OUTPUT
Line S17577 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29362  M02S17577.274l797 ---|          UJN    ODA14       STORE BYTES NOT WRITTEN
29363  M01S06498.274l797 +++|          UJP    ODA14       STORE BYTES NOT WRITTEN
29364  M01S17578.1mt     +++|
29365  M01S17579.1mt     +++| ODA9     ZJN    ODA10       IF TRANSFER NOT COMPLETE FOR *1MT*
29366  M01S17580.1mt     +++|          LDM    .WC         ADVANCE POINTER OVER *1LT,S* CHUNK
29367  M01S17581.1mt     +++|          RJM    ADP
29368  M01S17582.1mt     +++|          UJN    ODA15       CHECK IF *1LT* WAS CALLED
29369  M01S17583.1mt     +++|
29370  M01S17584.1mt     +++| ODA10    AOD    CM+7        COUNT CHUNK
29371  M01S17585.1mt     +++|          LDC    /MTX/LBWD   SKIP OVER DATA *1LT* OUTPUT
29372  M01S17586.1mt     +++|          RJM    ADP
29373  M01S17587.1mt     +++|          LDD    BC
29374  M01S17588.1mt     +++|          ZJN    ODA12       IF POSSIBLE OUTPUT COMPLETE
29375  M01S17589.1mt     +++|          STD    BY
29376  M01S17590.1mt     +++| ODA11    LDM    .WC         SET UP TO READ UP NEXT BLOCK
29377  M01S17591.1mt     +++|          UJN    ODA13       READ DATA
29378  M01S17592.1mt     +++|
29379  M01S17593.1mt     +++| ODA12    LDD    NC
29380  M01S17594.1mt     +++|          LPN    1
29381  M01S17595.1mt     +++|          ZJN    ODA15       IF OUTPUT COMPLETE
29382  M01S17596.1mt     +++|          LDC    /MTX/LBWD
29383  M01S17597.1mt     +++| ODA13    RJM    RDA         READ DATA
29384  M01S17598.1mt     +++|          RJM    OPD         OUTPUT DATA
Line S17599 Modification History
M01 (Added by) 1mt
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29385  M02S17599.1mt51   ---|*         RJM    OPL         (ATS - OUTPUT LAST PARTIAL CHUNK)
Line S17600 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns21000
M03 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29386  M03S17600.1mt51   ---|*         RJM    OPL         (CYBER 170-8X5 IOU)
Line S00253 Modification History
M01 (Added by) ns21000
M02 (Updated by) 274l797
M03 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29387  M03S00253.1mt51   ---|*         RJM    OPL         (CYBER 170-815/825/835/855 IOU)
Line S06499 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt51
Seq #  *Modification Id* Act 
----------------------------+
29388  M02S06499.1mt51   ---|*         RJM    OPE         (CYBER 170-815/825/835/855 IOU)
29389  M01S00174.1mt51   +++|*         RJM    OPL         (ATS NON-CYBER 180 - OUTPUT LAST CHUNK)
29390  M01S00175.1mt51   +++|*         RJM    OPE         (CYBER 180 - OUTPUT LAST CHUNK)
29391  M01S17601.1mt     +++| ODAK     EQU    *-1
29392  M01S17602.1mt     +++|          FJM    *,CH
29393  M01S17603.1mt     +++|          NJN    ODA14       IF INCOMPLETE TRANSFER
Line S17604 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29394  M02S17604.274l797 ---|          DCN    CH+40
29395  M01S06500.274l797 +++|
29396  M01S06501.274l797 +++|*         A 10 MICROSECOND DELAY MUST BE DONE TO PREVENT POSSIBLE LOSS
29397  M01S06502.274l797 +++|*         OF THE LAST BYTE OF THE TRANSFER BY THE CCC FOR CTS.
29398  M01S06503.274l797 +++|
29399  M01S06504.274l797 +++|          LDN    20
29400  M01S06505.274l797 +++|          SBN    1
29401  M01S06506.274l797 +++|          NJN    *-1
29402  M01S06507.274l797 +++|          DCN    CH+40
29403  M01S17605.1mt     +++| ODA14    STM    /WRITE/BYRM
29404  M01S17606.1mt     +++| ODA15    LDN    0
29405  M01S17607.1mt     +++| ODAL     EQU    *-1
29406  M01S17608.1mt     +++|          ZJN    ODA17       IF *1LT* NOT CALLED
29407  M01S17609.1mt     +++|          SOM    ODAL        CLEAR *1LT* CALLED FLAG
29408  M01S17610.1mt     +++| ODA16    RJM    CRA         CHECK REQUEST ACCEPTANCE FROM *1LT*
29409  M01S17611.1mt     +++|          LMN    2
29410  M01S17612.1mt     +++|          NJN    ODA16       IF NOT ACCEPT
29411  M01S17613.1mt     +++|          STD    CM          ACKNOWLEDGE *1LT*
29412  M01S17614.1mt     +++|          LDM    CPDA
29413  M01S17615.1mt     +++|          ADN    2
29414  M01S17616.1mt     +++|          CWD    CM
29415  M01S17617.1mt     +++| ODA17    LDD    CM+7
29416  M01S17618.1mt     +++|          ZJN    ODA18       IF NO FULL CHUNKS OUTPUT
29417  M01S17619.1mt     +++|          LCN    0           SET TO NOT CONTROL BACKSPACE
29418  M01S17620.1mt     +++|          STM    /WRITE/BYWR
29419  M01S17621.1mt     +++| ODA18    LDN    0           SKIP TRAILER CONTROL WORD IF PRESENT
29420  M01S17622.1mt     +++| ODAM     EQU    *-1
29421  M01S17623.1mt     +++|*         LDN    1           (204 WRITE)
29422  M01S17624.1mt     +++|          RJM    ADP
Line S17625 Modification History
M01 (Added by) 1mt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29423  M02S17625.251l664 ---|          RJM    /WRITE/WRT  PROCESS WRITE COMPLETION
29424  M01S17626.1mt     +++|          LJM    ODAX        RETURN
29425  M01S17627.1mt     +++|          TITLE  SUBROUTINES.
29426  M01S17628.1mt     +++| ADP      SPACE  4,15
29427  M01S17629.1mt     +++|**        ADP - ADVANCE POINTER.
29428  M01S17630.1mt     +++|*
29429  M01S17631.1mt     +++|*         ENTRY  (CN+3 - CN+4) = OUT POINTER.
Line S17632 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29430  M02S17632.274l797 ---|*                (A) = WORDS TO INCREMENT IN BY.
29431  M01S06508.274l797 +++|*                (A) = WORDS TO INCREMENT OUT BY.
29432  M01S17633.1mt     +++|*
29433  M01S17634.1mt     +++|*         EXIT   (T4 - T5) = STARTING OUT POINTER.
29434  M01S17635.1mt     +++|*                (CN+3 - CN+4) = UPDATED OUT POINTER.
29435  M01S17636.1mt     +++|*                (T6) = FIRST PART WORD COUNT.
29436  M01S17637.1mt     +++|*                (T7) = SECOND PART WORD COUNT.
29437  M01S17638.1mt     +++|*
29438  M01S17639.1mt     +++|*         MACROS SADT.
29439  M01S17640.1mt     +++|
29440  M01S17641.1mt     +++|
29441  M01S17642.1mt     +++| ADP      SUBR               ENTRY/EXIT
29442  M01S17643.1mt     +++|          STD    T6
29443  M01S17644.1mt     +++|          LDD    CN+3        SAVE OUT
29444  M01S17645.1mt     +++|          STD    T4
29445  M01S17646.1mt     +++|          LDD    CN+4
29446  M01S17647.1mt     +++|          STD    T5
29447  M01S17648.1mt     +++|          LDN    0           PRESET SECOND PART WORD COUNT
29448  M01S17649.1mt     +++|          STD    T7
Line S17650 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29449  M02S17650.274l797 ---|          LDD    T6          UPDATE IN
Proceed to Part 33
cdc/nos2.source/opl.opl871/deck/1mt.032.txt ยท Last modified: (external edit)