92 Modifications

Seq #  *Modification Id* Act 
----------------------------+
09269  M01S05543.ns2773  ---|          ZJN    CPP6        IF MESSAGE ISSUE
09270  M01S05544.ns2773  ---|          LDN    /MTX/BAE    BUFFER ARGUMENT ERROR

Seq #  *Modification Id* Act 
----------------------------+
09271  M01S00001.ns2773  +++| CPP5     LDN    /MTX/BAE    BUFFER ARGUMENT ERROR
09272  M00S05545.1mt     +++|          LJM    RET3        RETURN ERROR CODE
09273  M00S05546.1mt     +++|
09274  M00S05547.1mt     +++| CPP6     RJM    CAL         CALCULATE PARAMETERS
09275  M00S05548.1mt     +++|          LDC    *           MODIFY INSTRUCTIONS
09276  M00S05549.1mt     +++| CPPB     EQU    *-1
09277  M00S05550.1mt     +++|          RJM    INM
09278  M00S05551.1mt     +++|          LDC    *
09279  M00S05552.1mt     +++| CPPC     EQU    *-1
09280  M00S05553.1mt     +++|          ZJN    CPP7        IF NO FET POINTER CHECK
09281  M00S05554.1mt     +++|          RJM    SFP         SET FET POINTER
09282  M00S05555.1mt     +++|          NJN    CPP5        IF BAD FET POINTER
09283  M00S05556.1mt     +++| CPP7     LDD    WC
09284  M00S05557.1mt     +++|          ADC    -1001

Seq #  *Modification Id* Act 
----------------------------+
09285  M01S05558.v23l617 ---|          PJN    CPP8        IF ILLEGAL WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
09286  M01S00157.v23l617 +++|          PJN    CPP8        IF INCORRECT WORD COUNT
09287  M00S05559.1mt     +++|          LJM    CPPX        RETURN
09288  M00S05560.1mt     +++|
09289  M00S05561.1mt     +++| CPP8     RJM    HNG         HANG PP
09290  M00S05562.1mt     +++|          TITLE  SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
09291  M01S05563.274l797 ---| CAL      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
09292  M01S01962.274l797 +++| CAL      SPACE  4,15
09293  M00S05564.1mt     +++|**        CAL - CALCULATE PARAMETERS.
09294  M00S05565.1mt     +++|*
09295  M00S05566.1mt     +++|*         ENTRY  (T1 - T5) = UCIC FROM UDT.

Seq #  *Modification Id* Act 
----------------------------+
09296  M01S05567.274l797 ---|*                (T6 - T7) = FET ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
09297  M01S01963.274l797 +++|*                (.FT - .FT+1) = FIRST.
09298  M01S01964.274l797 +++|*                (.LM - .LM+1) = LIMIT.
09299  M01S01965.274l797 +++|*                (.FE - .FE+1) = FET ADDRESS.
09300  M00S05568.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
09301  M01S05569.274l797 ---|*         EXIT   (T2 - CM+3) = VALUES NEEDED FOR ADDRESS RELOCATION.
09302  M01S05570.274l797 ---|*                SEE MACRO DEFINTIONS.

Seq #  *Modification Id* Act 
----------------------------+
09303  M01S01966.274l797 +++|*         EXIT   (.FT - .FT+1) = FIRST.
09304  M01S01967.274l797 +++|*                (.LM - .LM+1) = LIMIT.
09305  M01S01968.274l797 +++|*                (.FE - .FE+1) = FET ADDRESS.
09306  M01S01969.274l797 +++|*                (.LF - .LF+1) = LIMIT - FIRST.
09307  M01S01970.274l797 +++|*                (.BS - .BS+1) = BLOCK SIZE.
09308  M01S01971.274l797 +++|*                (BUFC - BUFC+4) = PRESET IF CONTROL WORD READ AND NOT
09309  M01S01972.274l797 +++|*                                 *LI* FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
09310  M01S05571.1mt47   ---|*                (BUF - BUFC+4) = PRESET IF CONTROL WORD READ.

Seq #  *Modification Id* Act 
----------------------------+
09311  M01S01973.274l797 +++|*
09312  M01S01974.274l797 +++|*         USES   T1, .BS - .BS+1, .LF - .LF+1.
09313  M00S05572.1mt     +++|
09314  M00S05573.1mt     +++|
09315  M00S05574.1mt     +++| CAL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09316  M01S05575.274l797 ---|          LDD    T1+3        LIMIT - FIRST
09317  M01S05576.274l797 ---|          SBD    T1+1

Seq #  *Modification Id* Act 
----------------------------+
09318  M01S01975.274l797 +++|          LDD    .LM         LIMIT - FIRST
09319  M01S01976.274l797 +++|          SBD    .FT
09320  M00S05577.1mt     +++|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
09321  M01S05578.274l797 ---|          ADD    T1+4
09322  M01S05579.274l797 ---|          SBD    T1+2
09323  M01S05580.274l797 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
09324  M01S01977.274l797 +++|          ADD    .LM+1
09325  M01S01978.274l797 +++|          SBD    .FT+1
09326  M01S01979.274l797 +++|          STD    .LF+1
09327  M00S05581.1mt     +++|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
09328  M01S05582.274l797 ---|          STD    CM

Seq #  *Modification Id* Act 
----------------------------+
09329  M01S01980.274l797 +++|          STD    .LF
09330  M00S05583.1mt     +++|          LDD    MD          SET MAXIMUM BLOCK SIZE
09331  M00S05584.1mt     +++|          SHN    -4
09332  M00S05585.1mt     +++|          LPN    3
09333  M00S05586.1mt     +++|          ADD    WC

Seq #  *Modification Id* Act 
----------------------------+
09334  M01S05587.274l797 ---|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
09335  M01S01981.274l797 +++|          STD    .BS+1
09336  M00S05588.1mt     +++|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
09337  M01S05589.274l797 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
09338  M01S01982.274l797 +++|          STD    .BS
09339  M00S05590.1mt     +++|          LDD    OV          BLOCK SIZE = WC + OV*LBWD + CONTROL WORDS
09340  M00S05591.1mt     +++|          ZJN    CAL2        IF NOT LONG BLOCK OPERATION
09341  M00S05592.1mt     +++|          STD    T0
09342  M00S05593.1mt     +++| CAL1     LDC    /MTX/LBWD

Seq #  *Modification Id* Act 
----------------------------+
09343  M01S05594.274l797 ---|          RAD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
09344  M01S01983.274l797 +++|          RAD    .BS+1
09345  M00S05595.1mt     +++|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
09346  M01S05596.274l797 ---|          RAD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
09347  M01S01984.274l797 +++|          RAD    .BS
09348  M00S05597.1mt     +++|          SOD    T0
09349  M00S05598.1mt     +++|          NJN    CAL1        IF OVERFLOW COUNT NOT EXHAUSTED
09350  M00S05599.1mt     +++| CAL2     LDD    MD
09351  M00S05600.1mt     +++|          SHN    -4
09352  M00S05601.1mt     +++|          LPN    3
09353  M00S05602.1mt     +++|          STD    T1
09354  M00S05603.1mt     +++|          ZJN    CAL4        IF NOT CONTROL WORD OPERATION
09355  M00S05604.1mt     +++|          LDD    FN
09356  M00S05605.1mt     +++|          LMN    /MTX/RDF
09357  M00S05606.1mt     +++|          NJN    CAL4        IF NOT READ NORMAL BLOCK

Seq #  *Modification Id* Act 
----------------------------+
09358  M01S01985.274l797 +++|          LDD    FM

Seq #  *Modification Id* Act 
----------------------------+
09359  M01S00638.282l826 +++|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
09360  M01S01986.274l797 +++|          LMN    /MTX/TFLI
09361  M01S01987.274l797 +++|          ZJN    CAL4        IF LI FORMAT
09362  M00S05607.1mt     +++|          LDN    ZERL
09363  M00S05608.1mt     +++|          CRM    BUFC,ON     PRESET CONTROL WORD
09364  M00S05609.1mt     +++|          LDD    T1
09365  M00S05610.1mt     +++|          LPN    2
09366  M00S05611.1mt     +++|          ZJN    CAL3        IF NOT 200 READ CODE
09367  M00S05612.1mt     +++|          LDD    MD          SET PARITY INDICATION
09368  M00S05613.1mt     +++|          LPC    100
09369  M00S05614.1mt     +++|          STM    BUFC

Seq #  *Modification Id* Act 
----------------------------+
09370  M01S05615.274l797 ---|          LDD    CM+2        SET BLOCK SIZE

Seq #  *Modification Id* Act 
----------------------------+
09371  M01S01988.274l797 +++|          LDD    .BS         SET BLOCK SIZE
09372  M00S05616.1mt     +++|          SHN    14

Seq #  *Modification Id* Act 
----------------------------+
09373  M01S05617.274l797 ---|          LMD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
09374  M01S01989.274l797 +++|          LMD    .BS+1
09375  M00S05618.1mt     +++|          SBD    T1
09376  M00S05619.1mt     +++| CAL3     STM    BUFC+1
09377  M00S05620.1mt     +++|          SHN    -14
09378  M00S05621.1mt     +++|          RAM    BUFC
09379  M00S05622.1mt     +++| CAL4     LJM    CALX        RETURN
09380  M00S05623.1mt     +++| INM      SPACE  4,10
09381  M00S05624.1mt     +++|**        INM - INSTRUCTION MODIFICATION.
09382  M00S05625.1mt     +++|*
09383  M00S05626.1mt     +++|*         ENTRY  (A) = FWA OF INSTRUCTION MODIFICATION LIST.
09384  M00S05627.1mt     +++|*
09385  M00S05628.1mt     +++|*         USES   SC, CM+4, CM+5.
09386  M00S05629.1mt     +++|
09387  M00S05630.1mt     +++|
09388  M00S05631.1mt     +++|          ENTRY  INM
09389  M00S05632.1mt     +++|
09390  M00S05633.1mt     +++| INM      SUBR               ENTRY/EXIT
09391  M00S05634.1mt     +++|          ZJN    INMX        IF NO MODIFICATIONS
09392  M00S05635.1mt     +++|          STD    SC
09393  M00S05636.1mt     +++| INM1     LDI    SC
09394  M00S05637.1mt     +++|          ZJN    INMX        IF END OF LIST
09395  M00S05638.1mt     +++|          SHN    21-0
09396  M00S05639.1mt     +++|          STD    T1          SAVE INSTRUCTION ADDRESS
09397  M00S05640.1mt     +++|          SHN    -21
09398  M00S05641.1mt     +++|          SHN    1           COMPLEMENT FLAG * 2
09399  M00S05642.1mt     +++|          LMC    UJNI+3
09400  M00S05643.1mt     +++|          STM    INMA
09401  M00S05644.1mt     +++|          LDI    T1          PRESERVE INSTRUCTION OP CODE
09402  M00S05645.1mt     +++|          SCN    77
09403  M00S05646.1mt     +++|          STI    T1
09404  M00S05647.1mt     +++|          LDM    1,SC        EXTRACT DIRECT CELL TO REFERENCE
09405  M00S05648.1mt     +++|          SHN    14
09406  M00S05649.1mt     +++|          STD    CM+4
09407  M00S05650.1mt     +++|          SCN    77          CLEAR DIRECT CELL ADDRESS
09408  M00S05651.1mt     +++|          SHN    3           EXTRACT BIAS
09409  M00S05652.1mt     +++|          STD    CM+5
09410  M00S05653.1mt     +++|          SCN    7           CLEAR BIAS
09411  M00S05654.1mt     +++|          ADI    CM+4        ADD UPPER PORITON OF VALUE
09412  M00S05655.1mt     +++|          PJN    INM2        IF RELATIVE VALUE DESIRED
09413  M00S05656.1mt     +++|          SHN    6
09414  M00S05657.1mt     +++|          SCN    40          CLEAR ABSOLUTE FLAG
09415  M00S05658.1mt     +++|          ADD    RA
09416  M00S05659.1mt     +++|          SHN    14
09417  M00S05660.1mt     +++| INM2     SHN    14
09418  M00S05661.1mt     +++|          ADM    1,CM+4      ADD LOWER PORTION OF VALUE
09419  M00S05662.1mt     +++|          ADD    CM+5        ADD BIAS
09420  M00S05663.1mt     +++|
09421  M00S05664.1mt     +++|*         NOTE CODE SHOULD NOT BE ADDED IN NEXT THREE LINES.
09422  M00S05665.1mt     +++|
09423  M00S05666.1mt     +++| INMA     UJN    3           COMPLEMENT NOT NEEDED
09424  M00S05667.1mt     +++|*         UJN    1           COMPLEMENT NEEDED
09425  M00S05668.1mt     +++|          LMC    -0
09426  M00S05669.1mt     +++|          STM    1,T1        MODIFY INSTRUCTION
09427  M00S05670.1mt     +++|          SHN    -14
09428  M00S05671.1mt     +++|          RAI    T1
09429  M00S05672.1mt     +++|          LDN    2           INCREMENT TO NEXT ITEM IN LIST
09430  M00S05673.1mt     +++|          RAD    SC
09431  M00S05674.1mt     +++|          LJM    INM1        CONTINUE INSTRUCTION MODIFICATION
09432  M00S05675.1mt     +++| SFP      SPACE  4,10
09433  M00S05676.1mt     +++|**        SFP - SET FET POINTER.
09434  M00S05677.1mt     +++|*
09435  M00S05678.1mt     +++|*         ENTRY  (A) = POINTER TO DESIRED FET WORD (IN OR OUT).
09436  M00S05679.1mt     +++|*
09437  M00S05680.1mt     +++|*         EXIT   (CN - CN+4) = FET POINTER.
09438  M00S05681.1mt     +++|*                (A) = 0, IF POINTER VALID.
09439  M00S05682.1mt     +++|
09440  M00S05683.1mt     +++|
09441  M00S05684.1mt     +++| SFP1     LDN    1
09442  M00S05685.1mt     +++|
09443  M00S05686.1mt     +++| SFP      SUBR               ENTRY/EXIT
09444  M00S05687.1mt     +++|          STD    T0
09445  M00S05688.1mt     +++|          LDD    .FE         READ DESIRED FET POINTER
09446  M00S05689.1mt     +++|          SHN    6
09447  M00S05690.1mt     +++|          ADD    RA
09448  M00S05691.1mt     +++|          SHN    6
09449  M00S05692.1mt     +++|          ADD    .FE+1
09450  M00S05693.1mt     +++|          ADD    T0
09451  M00S05694.1mt     +++|          CRD    CN
09452  M00S05695.1mt     +++|          LDD    CN
09453  M00S05696.1mt     +++|          ADD    CN+1
09454  M00S05697.1mt     +++|          ADD    CN+2
09455  M00S05698.1mt     +++|          NJN    SFP1        IF BAD POINTER
09456  M00S05699.1mt     +++|          LDD    CN+3
09457  M00S05700.1mt     +++|          LPN    37
09458  M00S05701.1mt     +++|          STD    CN+3
09459  M00S05702.1mt     +++|          SBD    .FT         CHECK AGAINST FIRST
09460  M00S05703.1mt     +++|          SHN    14
09461  M00S05704.1mt     +++|          ADD    CN+4
09462  M00S05705.1mt     +++|          SBD    .FT+1
09463  M00S05706.1mt     +++|          MJN    SFP1        IF IN/OUT .GE. FIRST
09464  M00S05707.1mt     +++|          LDD    CN+3
09465  M00S05708.1mt     +++|          SBD    .LM
09466  M00S05709.1mt     +++|          SHN    14
09467  M00S05710.1mt     +++|          ADD    CN+4
09468  M00S05711.1mt     +++|          SBD    .LM+1
09469  M00S05712.1mt     +++|          PJN    SFP1        IF IN/OUT NOT .LT. LIMIT
09470  M00S05713.1mt     +++|          LDN    0
09471  M00S05714.1mt     +++|          UJN    SFPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09472  M01S01990.274l797 +++| TRB      SPACE  4,25
09473  M01S01991.274l797 +++|          IFEQ   TE,1        IF SAVING TRACE INFORMATION
09474  M01S01992.274l797 +++|**        TRB - TRACE BUFFER.
09475  M01S01993.274l797 +++|*
09476  M01S01994.274l797 +++|*         THE TRACE BUFFER STARTS AT BYTE ADDRESS 2000000(16).  A
09477  M01S01995.274l797 +++|*         MODIFICATION TO *STL* AND SEVERAL OTHER DECKS MUST BE
09478  M01S01996.274l797 +++|*         EDITED ONTO THE DEADSTART TAPE TO DISABLE MEMORY BOUNDS
09479  M01S01997.274l797 +++|*         CHECKING.  THE TRACE IS UPDATED WITH EACH CALL TO
09480  M01S01998.274l797 +++|*         *CPP* AND CONSISTS OF 2 CP WORDS PER TRACE AS FOLLOWS.
09481  M01S01999.274l797 +++|*         LOCATION 10 IS THE POINTER TO THE TRACE BUFFER.  A MAXMIMUM
09482  M01S02000.274l797 +++|*         OF 16 MB WILL BE STORED IN THE TRACE BUFFER.  THE BUFFER
09483  M01S02001.274l797 +++|*         WILL NOT WRAP.  TO RESTART THE TRACE, JUST CLEAR LOCATION
09484  M01S02002.274l797 +++|*         10.
09485  M01S02003.274l797 +++|*
09486  M01S02004.274l797 +++|*         0 - 12/EO, 12/FN, 12/BL+1, 12/DS, 12,EC
09487  M01S02005.274l797 +++|*         1 - 12/PA, 12/PB, 12/HP, 12/MD, 12/FM
09488  M01S02006.274l797 +++|*
09489  M01S02007.274l797 +++|*         NOTE - THIS CODE IS ONLY FOR CHECKOUT.
09490  M01S02008.274l797 +++|*
09491  M01S02009.274l797 +++|*         USES   T1 - T7.
09492  M01S02010.274l797 +++|
09493  M01S02011.274l797 +++|
09494  M01S02012.274l797 +++| TRB      SUBR               ENTRY/EXIT
09495  M01S02013.274l797 +++|          LDD    HP
09496  M01S02014.274l797 +++|          SHN    21-7
09497  M01S02015.274l797 +++|          PJN    TRBX        IF NOT CTS
09498  M01S02016.274l797 +++|          SRD    T1          SAVE R REGISTER
09499  M01S02017.274l797 +++|          LDN    10
09500  M01S02018.274l797 +++|          CRD    T3
09501  M01S02019.274l797 +++|          LDD    T3
09502  M01S02020.274l797 +++|          ZJN    TRB1        IF TRACE NOT STARTED
09503  M01S02021.274l797 +++|          LPN    10
09504  M01S02022.274l797 +++|          NJN    TRBX        IF TRACE BUFFER FULL
09505  M01S02023.274l797 +++|          UJN    TRB2        MOVE EST ORDINAL
09506  M01S02024.274l797 +++|
09507  M01S02025.274l797 +++| TRB1     LDN    20          INITIALIZE TRACE START ADDRESS
09508  M01S02026.274l797 +++|          STD    T3
09509  M01S02027.274l797 +++|          LDN    0
09510  M01S02028.274l797 +++|          STD    T4
09511  M01S02029.274l797 +++|          STD    T5
09512  M01S02030.274l797 +++| TRB2     LRD    T3
09513  M01S02031.274l797 +++|          LDD    EO          EST ORDINAL
09514  M01S02032.274l797 +++|          STM    TRBB
09515  M01S02033.274l797 +++|          LDD    FN          FUNCTION NUMBER
09516  M01S02034.274l797 +++|          STM    TRBB+1
09517  M01S02035.274l797 +++|          LDD    BL+1        RIGHT-MOST 12 BITS OF BLOCK NUMBER
09518  M01S02036.274l797 +++|          STM    TRBB+2
09519  M01S02037.274l797 +++|          LDD    DS          GENERAL STATUS
09520  M01S02038.274l797 +++|          STM    TRBB+3
09521  M01S02039.274l797 +++|          LDD    EC          ERROR CODE
09522  M01S02040.274l797 +++|          STM    TRBB+4
09523  M01S02041.274l797 +++|          LDD    PA          PARAMETER
09524  M01S02042.274l797 +++|          STM    TRBB+5
09525  M01S02043.274l797 +++|          LDD    PB          PARAMETER
09526  M01S02044.274l797 +++|          STM    TRBB+6
09527  M01S02045.274l797 +++|          LDD    HP          HARDWARE OPTIONS
09528  M01S02046.274l797 +++|          STM    TRBB+7
09529  M01S02047.274l797 +++|          LDD    MD          MODES
09530  M01S02048.274l797 +++|          STM    TRBB+10
09531  M01S02049.274l797 +++|          LDD    FM          FORMAT
09532  M01S02050.274l797 +++|          STM    TRBB+11
09533  M01S02051.274l797 +++|          LDN    2
09534  M01S02052.274l797 +++|          STD    T6
09535  M01S02053.274l797 +++|          LDD    T5
09536  M01S02054.274l797 +++|          LMC    400000
09537  M01S02055.274l797 +++|          CWM    TRBB,T6
09538  M01S02056.274l797 +++|          LDN    2
09539  M01S02057.274l797 +++|          RAD    T5
09540  M01S02058.274l797 +++|          SHN    -6
09541  M01S02059.274l797 +++|          RAD    T4
09542  M01S02060.274l797 +++|          SHN    -14
09543  M01S02061.274l797 +++|          RAD    T3
09544  M01S02062.274l797 +++|          LDD    T5
09545  M01S02063.274l797 +++|          LPN    77
09546  M01S02064.274l797 +++|          STD    T5
09547  M01S02065.274l797 +++|          LDN    10
09548  M01S02066.274l797 +++|          CWD    T3          UPDATE POINTER TO TRACE BUFFER
09549  M01S02067.274l797 +++|          LRD    T1          RESTORE R REGISTER
09550  M01S02068.274l797 +++|          LJM    TRBX        RETURN
09551  M01S02069.274l797 +++|
09552  M01S02070.274l797 +++|
09553  M01S02071.274l797 +++| TRBB     BSS    12
09554  M01S02072.274l797 +++|          ENDIF
09555  M00S05715.1mt     +++| CCD      SPACE  4,15
09556  M00S05716.1mt     +++|**        CCD - CHECK CODED REQUEST AND BUILD FORMAT PARAMETERS.
09557  M00S05717.1mt     +++|*
09558  M00S05718.1mt     +++|*         ENTRY  (SC) = FUNCTION TABLE ENTRY WHEN CALLED FROM RESIDENT.
09559  M00S05719.1mt     +++|*
09560  M00S05720.1mt     +++|*         EXIT   UNIT FORMAT PARAMETERS BUILT.
09561  M00S05721.1mt     +++|*                CORRECT BID ACCUMULATION LOOP MOVED TO RESIDENT.
09562  M00S05722.1mt     +++|*                UNIT CONNECTED OR FORMATED IF NECESSARY.

Seq #  *Modification Id* Act 
----------------------------+
09563  M01S02073.274l797 +++|*                BLOCKS TO TRANSFER BEFORE DROP OUT SET FOR CTS.
09564  M00S05723.1mt     +++|*
09565  M00S05724.1mt     +++|*         USES   T1, T2, T3.
09566  M00S05725.1mt     +++|*

Seq #  *Modification Id* Act 
----------------------------+
09567  M01S05726.274l797 ---|*         CALLS  CUI, DDR.

Seq #  *Modification Id* Act 
----------------------------+
09568  M01S02074.274l797 +++|*         CALLS  CUI, DDR, /PRESET/RCU.
09569  M00S05727.1mt     +++|
09570  M00S05728.1mt     +++|
09571  M00S05729.1mt     +++| CCD      SUBR               ENTRY/EXIT
09572  M00S05730.1mt     +++|          LDD    MD
09573  M00S05731.1mt     +++|          SHN    21-6
09574  M00S05732.1mt     +++|          PJN    CCD1        IF NOT CODED OPERATION
09575  M00S05733.1mt     +++|          LDD    FM

Seq #  *Modification Id* Act 
----------------------------+
09576  M01S00639.282l826 +++|          SHN    -6
09577  M00S05734.1mt     +++|          LMN    /MTX/TFSI
09578  M00S05735.1mt     +++|          NJN    CCD1        IF NOT SI FORMAT
09579  M00S05736.1mt     +++|          LDD    FN
09580  M00S05737.1mt     +++|          LMN    /MTX/RLA
09581  M00S05738.1mt     +++|          ZJN    CCD1        IF READ LABEL
09582  M00S05739.1mt     +++|          LMN    /MTX/WLA&/MTX/RLA

Seq #  *Modification Id* Act 
----------------------------+
09583  M01S05740.274l797 ---|          ZJN    CCD1        IF NOT READ, WRITE OR SKIP
09584  M01S05741.274l797 ---|          LDN    /MTX/SCI

Seq #  *Modification Id* Act 
----------------------------+
09585  M01S02075.274l797 +++|          NJN    CCD3        IF READ, WRITE OR SKIP
09586  M01S02076.274l797 +++| CCD1     LDD    HP
09587  M01S02077.274l797 +++|          SHN    21-7

Seq #  *Modification Id* Act 
----------------------------+
09588  M02S02078.ns2794  ---|          PJN    CCD6        IF NOT CTS

Seq #  *Modification Id* Act 
----------------------------+
09589  M01S00025.ns2794  +++|          PJP    CCD6        IF NOT CTS

Seq #  *Modification Id* Act 
----------------------------+
09590  M01S02079.274l797 +++|          LDC    -BLKC
09591  M01S02080.274l797 +++|          STM    CDOC        BLOCKS TO TRANSFER BEFORE DROP OUT
09592  M01S02081.274l797 +++|
09593  M01S02082.274l797 +++|*         THE BLANK COMMAND WRITES LABELS WITH AN S FORMAT CODED
09594  M01S02083.274l797 +++|*         OPERATION.  THE CTS SUBSYSTEM DOES NOT SUPPORT CODE
09595  M01S02084.274l797 +++|*         CONVERSION, SO THE DRIVER DOES SOFTWARE CONVERSION.
09596  M01S02085.274l797 +++|
09597  M01S02086.274l797 +++|          LDD    MD
09598  M01S02087.274l797 +++|          SHN    21-6
09599  M01S02088.274l797 +++|          PJN    CCD4        IF NOT CODED
09600  M01S02089.274l797 +++|          LDD    FN
09601  M01S02090.274l797 +++|          SBN    /MTX/RDF
09602  M01S02091.274l797 +++|          ZJN    CCD2        IF READ
09603  M01S02092.274l797 +++|          SBN    /MTX/WTF-/MTX/RDF
09604  M01S02093.274l797 +++|          NJN    CCD4        IF NOT WRITE
09605  M01S02094.274l797 +++| CCD2     LDD    FM

Seq #  *Modification Id* Act 
----------------------------+
09606  M01S00640.282l826 +++|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
09607  M01S02095.274l797 +++|          LMN    /MTX/TFS
09608  M01S02096.274l797 +++|          ZJN    CCD4        IF S FORMAT

Seq #  *Modification Id* Act 
----------------------------+
09609  M02S02097.ns2757  ---| CCD3     LDN    /MTX/SCI    INVALID CODED FORMAT

Seq #  *Modification Id* Act 
----------------------------+
09610  M01S00001.ns2757  +++| CCD3     LDN    /MTX/SCI    CODED I/O NOT SUPPORTED
09611  M00S05742.1mt     +++|          LJM    RET3        RETURN ERROR CODE
09612  M00S05743.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
09613  M02S02098.ns2794  ---| CCD4     LDM    RELA

Seq #  *Modification Id* Act 
----------------------------+
09614  M01S00026.ns2794  +++| CCD4     LDM    CPP
09615  M01S00027.ns2794  +++|          LMC    PNRI
09616  M01S00028.ns2794  +++|          NJN    CCD4.1      IF NOT CALLED FROM MAIN PROGRAM
09617  M01S00029.ns2794  +++|          LDD    FN
09618  M01S00030.ns2794  +++|          LMN    /MTX/WTF
09619  M01S00031.ns2794  +++|          NJN    CCD5        IF NOT DATA WRITE
09620  M01S00032.ns2794  +++|          LDD    SP
09621  M01S00033.ns2794  +++|          LPC    100
09622  M01S00034.ns2794  +++|          ZJN    CCD5        IF COMPRESSED MODE WRITE NOT SELECTED
09623  M01S00035.ns2794  +++|          SHN    7-6
09624  M01S00036.ns2794  +++|          RAM    /PRESET/CCUA  SET COMPRESSED MODE
09625  M01S00037.ns2794  +++|          ERRNZ  F0220-F0020-200
09626  M01S00038.ns2794  +++|          UJN    CCD4.2      RECONNECT UNIT AND SET COMPRESSED MODE
09627  M01S00039.ns2794  +++|
09628  M01S00040.ns2794  +++| CCD4.1   LDM    RELA

Seq #  *Modification Id* Act 
----------------------------+
09629  M01S02099.274l797 +++|          NJN    CCD5        IF CONNECTED

Seq #  *Modification Id* Act 
----------------------------+
09630  M02S02100.ns2794  ---|          RJM    /PRESET/RCU RECONNECT UNIT

Seq #  *Modification Id* Act 
----------------------------+
09631  M01S00041.ns2794  +++| CCD4.2   RJM    /PRESET/RCU RECONNECT UNIT

Seq #  *Modification Id* Act 
----------------------------+
09632  M01S02101.274l797 +++| CCD5     UJP    CCDX        RETURN
09633  M01S02102.274l797 +++|
09634  M00S05744.1mt     +++|*         REBUILD FORMAT PARAMETERS.
09635  M00S05745.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
09636  M01S05746.274l797 ---| CCD1     LDM    CPP

Seq #  *Modification Id* Act 
----------------------------+
09637  M01S02103.274l797 +++| CCD6     LDM    CPP

Seq #  *Modification Id* Act 
----------------------------+
09638  M01S05747.282l826 ---|          LMC    //PNRH

Seq #  *Modification Id* Act 
----------------------------+
09639  M01S00641.282l826 +++|          LMC    //PNRI

Seq #  *Modification Id* Act 
----------------------------+
09640  M01S05748.274l797 ---|          ZJN    CCD3        IF CALLED FROM RESIDENT
09641  M01S05749.274l797 ---| CCD2     LDM    RELA        CHECK IF CONNECTED
09642  M01S05750.274l797 ---|          NJN    CCDX        IF CONNECTED
09643  M01S05751.274l797 ---|          LJM    CCD8        RECONNECT UNIT

Seq #  *Modification Id* Act 
----------------------------+
09644  M01S02104.274l797 +++|          ZJN    CCD8        IF CALLED FROM RESIDENT
09645  M01S02105.274l797 +++| CCD7     LDM    RELA        CHECK IF CONNECTED
09646  M01S02106.274l797 +++|          NJN    CCD5        IF CONNECTED
09647  M01S02107.274l797 +++|          LJM    CCD14       RECONNECT UNIT
09648  M00S05752.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
09649  M01S05753.274l797 ---| CCD3     LDD    SC

Seq #  *Modification Id* Act 
----------------------------+
09650  M01S02108.274l797 +++| CCD8     LDD    SC
09651  M00S05754.1mt     +++|          SHN    21-5

Seq #  *Modification Id* Act 
----------------------------+
09652  M01S05755.274l797 ---|          PJN    CCD2        IF FUNCTION DOES NOT REQUIRE UNIT FORMATED

Seq #  *Modification Id* Act 
----------------------------+
09653  M01S02109.274l797 +++|          PJN    CCD7        IF FUNCTION DOES NOT REQUIRE UNIT FORMATED

Seq #  *Modification Id* Act 
----------------------------+
09654  M01S05756.v23l617 ---|          RJM    DDR         SET DIRECTION FOR BID ACCUMULATION

Seq #  *Modification Id* Act 
----------------------------+
09655  M01S00158.v23l617 +++|          LDD    HP
09656  M01S00159.v23l617 +++|          SHN    21-10

Seq #  *Modification Id* Act 
----------------------------+
09657  M02S00160.274l797 ---|          PJN    CCD3.1      IF NOT ISMT DEVICE

Seq #  *Modification Id* Act 
----------------------------+
09658  M01S02110.274l797 +++|          PJN    CCD9        IF NOT ISMT DEVICE

Seq #  *Modification Id* Act 
----------------------------+
09659  M01S00161.v23l617 +++|          LDC    -BLKX       BLOCKS TO TRANSFER BEFORE DROPOUT (ISMT)
09660  M01S00162.v23l617 +++|          STM    CDOC

Seq #  *Modification Id* Act 
----------------------------+
09661  M02S00163.274l797 ---| CCD3.1   RJM    DDR         SET DIRECTION FOR BID ACCUMULATION

Seq #  *Modification Id* Act 
----------------------------+
09662  M01S02111.274l797 +++| CCD9     RJM    DDR         SET DIRECTION FOR BID ACCUMULATION

Seq #  *Modification Id* Act 
----------------------------+
09663  M01S00164.v23l617 +++|          LDC    LDNI+2      SET TO INPUT 2 WORDS OF DETAILED STATUS
09664  M01S00165.v23l617 +++|          STM    //STWE
09665  M00S05757.1mt     +++|          LDM    MTSF        BUILD FORMAT PARAMETERS
09666  M00S05758.1mt     +++|          LPC    4237
09667  M00S05759.1mt     +++|          STM    MTSF
09668  M00S05760.1mt     +++|          LDM    MTSF+1
09669  M00S05761.1mt     +++|          LPC    6740
09670  M00S05762.1mt     +++|          STM    MTSF+1
09671  M00S05763.1mt     +++|          LDD    HP          PRESET A/D MODE FOR BINARY
09672  M00S05764.1mt     +++|          LPN    1
09673  M00S05765.1mt     +++|          SHN    5           SET PACKED MODE FOR 9 TRACK
09674  M00S05766.1mt     +++|          STD    T1
09675  M00S05767.1mt     +++|          LDD    MD          CHECK FOR CODED OPERATION
09676  M00S05768.1mt     +++|          SHN    21-6

Seq #  *Modification Id* Act 
----------------------------+
09677  M01S05769.274l797 ---|          MJN    CCD4        IF CODED

Seq #  *Modification Id* Act 
----------------------------+
09678  M01S02112.274l797 +++|          MJN    CCD10       IF CODED
09679  M00S05770.1mt     +++|          LDD    T1

Seq #  *Modification Id* Act 
----------------------------+
09680  M01S05771.274l797 ---|          NJN    CCD6        IF NOT 7 TRACK

Seq #  *Modification Id* Act 
----------------------------+
09681  M01S02113.274l797 +++|          NJN    CCD12       IF NOT 7 TRACK
09682  M00S05772.1mt     +++|          LDC    3400        SET CONVERSION TABLE 7
09683  M00S05773.1mt     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
09684  M01S05774.274l797 ---|          UJN    CCD6        SET NOISE SIZE

Seq #  *Modification Id* Act 
----------------------------+
09685  M01S02114.274l797 +++|          UJN    CCD12       SET NOISE SIZE
09686  M00S05775.1mt     +++|

Seq #  *Modification Id* Act 
----------------------------+
09687  M01S05776.274l797 ---| CCD4     LDD    T1          SET EVEN PARITY IF 7 TRACK

Seq #  *Modification Id* Act 
----------------------------+
09688  M01S02115.274l797 +++| CCD10    LDD    T1          SET EVEN PARITY IF 7 TRACK
09689  M00S05777.1mt     +++|          LMN    40
09690  M00S05778.1mt     +++|          SHN    4
09691  M00S05779.1mt     +++|          RAM    MTSF+1

Seq #  *Modification Id* Act 
----------------------------+
09692  M01S05780.282l826 ---|          LDD    DC          SET CONVERSION TABLE

Seq #  *Modification Id* Act 
----------------------------+
09693  M01S00642.282l826 +++|          LDM    DNCV        SET CONVERSION TABLE
09694  M00S05781.1mt     +++|          LPN    7

Seq #  *Modification Id* Act 
----------------------------+
09695  M01S05782.274l797 ---|          ZJN    CCD6        IF NO CONVERSION REQUEST

Seq #  *Modification Id* Act 
----------------------------+
09696  M01S02116.274l797 +++|          ZJN    CCD12       IF NO CONVERSION REQUEST
09697  M00S05783.1mt     +++|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
09698  M01S05784.274l797 ---|          ZJN    CCD5        IF BCD TYPE

Seq #  *Modification Id* Act 
----------------------------+
09699  M01S02117.274l797 +++|          ZJN    CCD11       IF BCD TYPE
09700  M00S05785.1mt     +++|          SBN    4-1

Seq #  *Modification Id* Act 
----------------------------+
09701  M01S05786.274l797 ---| CCD5     ADN    3

Seq #  *Modification Id* Act 
----------------------------+
09702  M01S02118.274l797 +++| CCD11    ADN    3
09703  M00S05787.1mt     +++|          SHN    10
09704  M00S05788.1mt     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
09705  M01S05789.274l797 ---| CCD6     LDD    T1

Seq #  *Modification Id* Act 
----------------------------+
09706  M01S02119.274l797 +++| CCD12    LDD    T1
09707  M00S05790.1mt     +++|          RAM    MTSF

Seq #  *Modification Id* Act 
----------------------------+
09708  M01S05791.282l826 ---|          LDD    NB          SET NOISE SIZE

Seq #  *Modification Id* Act 
----------------------------+
09709  M01S00643.282l826 +++|          LDD    FM          SET NOISE SIZE
09710  M00S05792.1mt     +++|          LPN    37
09711  M00S05793.1mt     +++|          STD    T2
09712  M00S05794.1mt     +++|          SHN    1           NB*2
09713  M00S05795.1mt     +++|          STD    T3
09714  M00S05796.1mt     +++|          LDD    HP
09715  M00S05797.1mt     +++|          LPN    1

Seq #  *Modification Id* Act 
----------------------------+
09716  M01S05798.274l797 ---|          ZJN    CCD7        IF 7 TRACK

Seq #  *Modification Id* Act 
----------------------------+
09717  M01S02120.274l797 +++|          ZJN    CCD13       IF 7 TRACK
09718  M00S05799.1mt     +++|          LDD    T2
09719  M00S05800.1mt     +++|          ADD    T3          NB*3
09720  M00S05801.1mt     +++|          SHN    -1          (NB*3)/2
09721  M00S05802.1mt     +++|          STD    T3

Seq #  *Modification Id* Act 
----------------------------+
09722  M01S05803.274l797 ---| CCD7     LDD    NB          ADJUST NOISE SIZE IF FILL STATUS

Seq #  *Modification Id* Act 
----------------------------+
09723  M02S02121.282l826 ---| CCD13    LDD    NB          ADJUST NOISE SIZE IF FILL STATUS

Seq #  *Modification Id* Act 
----------------------------+
09724  M01S00644.282l826 +++| CCD13    LDD    FM          ADJUST NOISE SIZE IF FILL STATUS
09725  M00S05804.1mt     +++|          LPN    40
09726  M00S05805.1mt     +++|          SHN    -5
09727  M00S05806.1mt     +++|          STD    T1
09728  M00S05807.1mt     +++|          LDD    T3
09729  M00S05808.1mt     +++|          SBD    T1
09730  M00S05809.1mt     +++|          RAM    MTSF+1
09731  M00S05810.1mt     +++|          LDD    HP
09732  M00S05811.1mt     +++|          LPN    40

Seq #  *Modification Id* Act 
----------------------------+
09733  M01S05812.274l797 ---|          NJN    CCD8        IF MTS CONTROLLER

Seq #  *Modification Id* Act 
----------------------------+
09734  M01S02122.274l797 +++|          NJN    CCD14       IF MTS CONTROLLER
09735  M00S05813.1mt     +++|          LDC    4000
09736  M00S05814.1mt     +++|          STM    MTSF+2

Seq #  *Modification Id* Act 
----------------------------+
09737  M01S05815.282l826 ---|          LDD    DC
09738  M01S05816.282l826 ---|          SHN    -6
09739  M01S05817.282l826 ---|          LMN    /MTX/D62

Seq #  *Modification Id* Act 
----------------------------+
09740  M01S00645.282l826 +++|          LDM    DNCV
09741  M01S00646.282l826 +++|          LPN    70
09742  M01S00647.282l826 +++|          LMN    /MTX/D62*10

Seq #  *Modification Id* Act 
----------------------------+
09743  M01S05818.274l797 ---|          NJN    CCD8        IF NOT 6250 CPI

Seq #  *Modification Id* Act 
----------------------------+
09744  M01S02123.274l797 +++|          NJN    CCD14       IF NOT 6250 CPI
09745  M00S05819.1mt     +++|          LDD    FN          CHECK FUNCTION IN PROGRESS
09746  M00S05820.1mt     +++|          SBN    /MTX/WTF

Seq #  *Modification Id* Act 
----------------------------+
09747  M01S05821.274l797 ---|          MJN    CCD8        IF NOT WRITE OPERATION

Seq #  *Modification Id* Act 
----------------------------+
09748  M01S02124.274l797 +++|          MJN    CCD14       IF NOT WRITE OPERATION
09749  M00S05822.1mt     +++|          LDD    SP          SET ERROR CORRECTION ENABLE/DISABLE (ATS)
09750  M00S05823.1mt     +++|          LPC    100
09751  M00S05824.1mt     +++|          SHN    4
09752  M00S05825.1mt     +++|          RAM    MTSF+2

Seq #  *Modification Id* Act 
----------------------------+
09753  M01S05826.274l797 ---| CCD8     LDN    0           CLEAR CONNECTED FLAG

Seq #  *Modification Id* Act 
----------------------------+
09754  M01S02125.274l797 +++| CCD14    LDN    0           CLEAR CONNECTED FLAG
09755  M00S05827.1mt     +++|          STM    //RELA
09756  M00S05828.1mt     +++|          RJM    CUI         FORMAT UNIT
09757  M00S05829.1mt     +++|          LJM    CCDX        RETURN
09758  M00S05830.1mt     +++| DDR      SPACE  4,10
09759  M00S05831.1mt     +++|**        DDR - DETERMINE DIRECTION FOR BID ACCUMULATION.
09760  M00S05832.1mt     +++|*
09761  M00S05833.1mt     +++|*         ENTRY  (MD, 12 - 13) = 0 IF FORWARD DIRECTION.
09762  M00S05834.1mt     +++|*
09763  M00S05835.1mt     +++|*         EXIT   CORRECT BID ACCUMULATION ROUTINE MOVED TO RESIDENT.
09764  M00S05836.1mt     +++|*
09765  M00S05837.1mt     +++|*         USES   T1, T2.
09766  M00S05838.1mt     +++|
09767  M00S05839.1mt     +++|
09768  M00S05840.1mt     +++| DDR      SUBR               ENTRY/EXIT
09769  M00S05841.1mt     +++|          LDD    MD
09770  M00S05842.1mt     +++|          SHN    -12
09771  M00S05843.1mt     +++|          ZJN    DDR1        IF FORWARD DIRECTION
09772  M00S05844.1mt     +++|          LDC    DDRB-DDRA   SET REVERSE DIRECTION TABLE
09773  M00S05845.1mt     +++| DDR1     ADC    DDRA
09774  M00S05846.1mt     +++|          STD    T1
09775  M00S05847.1mt     +++|          LDI    T1
09776  M00S05848.1mt     +++|          LMM    //UBWA
09777  M00S05849.1mt     +++|          ZJN    DDRX        IF CORRECT ROUTINE LOADED
09778  M00S05850.1mt     +++|          LDN    0
09779  M00S05851.1mt     +++|          STD    T2
09780  M00S05852.1mt     +++| DDR2     LDI    T1          MOVE CODE
09781  M00S05853.1mt     +++|          STM    UBWA,T2
09782  M00S05854.1mt     +++|          AOD    T1
09783  M00S05855.1mt     +++|          AOD    T2
09784  M00S05856.1mt     +++|          LMN    //UBWAL
09785  M00S05857.1mt     +++|          NJN    DDR2        IF MORE CODE TO MOVE
09786  M00S05858.1mt     +++|          UJN    DDRX        RETURN
09787  M00S05859.1mt     +++|
09788  M00S05860.1mt     +++|
09789  M00S05861.1mt     +++| DDRA     BSS    0           CODE FOR FORWARD ACCUMULATION
09790  M00S05862.1mt     +++|          LOC    //UBWA
09791  M00S05863.1mt     +++|          AOD    WP
09792  M00S05864.1mt     +++|          LPN    7
09793  M00S05865.1mt     +++|          STD    WP
09794  M00S05866.1mt     +++|          LDM    UBWB
09795  M00S05867.1mt     +++|          STM    BIDW,WP
09796  M00S05868.1mt     +++|          LOC    *O
09797  M00S05869.1mt     +++| DDRAL    EQU    *-DDRA      LENGTH OF OVERLAID CODE
09798  M00S05870.1mt     +++|
09799  M00S05871.1mt     +++|          ERRNZ  //UBWAL-DDRAL  OVERLAID CODE NOT CORRECT LENGTH
09800  M00S05872.1mt     +++|
09801  M00S05873.1mt     +++| DDRB     BSS    0           CODE FOR REVERSE ACCUMULATION
09802  M00S05874.1mt     +++|          LOC    //UBWA
09803  M00S05875.1mt     +++|          LDN    4           SET UNAVAILABLE BID
09804  M00S05876.1mt     +++|          STM    BIDW,WP
09805  M00S05877.1mt     +++|          SOD    WP
09806  M00S05878.1mt     +++|          PJN    UBWX        IF NO UNDERFLOW
09807  M00S05879.1mt     +++|          LDN    7           RESET POINTER
09808  M00S05880.1mt     +++|          STD    WP
09809  M00S05881.1mt     +++|          LOC    *O
09810  M00S05882.1mt     +++| DDRBL    EQU    *-DDRB
09811  M00S05883.1mt     +++|
09812  M00S05884.1mt     +++|          ERRNZ  //UBWAL-DDRBL  OVERLAID CODE NOT CORRECT LENGTH
09813  M00S05885.1mt     +++|
09814  M00S05886.1mt     +++|
09815  M00S05887.1mt     +++|          USE    BUFFER
09816  M00S05888.1mt     +++|
09817  M00S05889.1mt     +++|          ERRNG  2*473+ERLA+5-*  CPP OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
09818  M01S05890.282l826 ---|          OVERLAY (COMPLETE USER FET.)
09819  M01S05891.282l826 ---| CUF      SPACE  4,10
09820  M01S05892.282l826 ---|**        CUF - COMPLETE USER FET.
09821  M01S05893.282l826 ---|*         COMPLETES THE FET AND HANDLES SPECIAL REQUIREMENTS
09822  M01S05894.282l826 ---|*         FOR CLOSE CODES.
09823  M01S05895.282l826 ---|*
09824  M01S05896.282l826 ---|*T        12/ 0,12/ CUF,18/,18/ RETURN CODE

Figure

09825  M01S05897.282l826 ---|*
09826  M01S05898.282l826 ---|*         CALLS  CUL, CUP.
09827  M01S05899.282l826 ---|
09828  M01S05900.282l826 ---|
09829  M01S05901.282l826 ---|          ENTRY  CUF
09830  M01S05902.282l826 ---| CUF      LDC    0           SET BLOCKS SKIPPED
09831  M01S05903.282l826 ---| CUFA     EQU    *-1
09832  M01S05904.282l826 ---|          STD    BT
09833  M01S05905.282l826 ---|          LCN    1           SEARCH FOR SPECIAL PROCESSOR
09834  M01S05906.282l826 ---|          STD    T1
09835  M01S05907.282l826 ---| CUF1     LDN    2
09836  M01S05908.282l826 ---|          RAD    T1
09837  M01S05909.282l826 ---|          LDM    CUFC,T1
09838  M01S05910.282l826 ---|          ZJN    CUF2        IF END OF TABLE
09839  M01S05911.282l826 ---|          LMM    CIOE        COMPARE WITH I/O REQUEST
09840  M01S05912.282l826 ---|          LPC    774
09841  M01S05913.282l826 ---|          NJN    CUF1        IF NO MATCH
09842  M01S05914.282l826 ---|          LDM    CUFC+1,T1   EXECUTE SPECIAL PROCESSOR
09843  M01S05915.282l826 ---|          STM    CUFB
09844  M01S05916.282l826 ---|          RJM    *
09845  M01S05917.282l826 ---| CUFB     EQU    *-1
09846  M01S05918.282l826 ---| CUF2     LDD    PA          COMPLETE FET
09847  M01S05919.282l826 ---|          LPN    77
09848  M01S05920.282l826 ---|          SHN    14
09849  M01S05921.282l826 ---|          LMD    PB
09850  M01S05922.282l826 ---|          SCN    3           INSURE COMPLETE BIT SET
09851  M01S05923.282l826 ---|          ADN    1
09852  M01S05924.282l826 ---|          LJM    RET         COMPLETE FET
09853  M01S05925.282l826 ---|
09854  M01S05926.282l826 ---|
09855  M01S05927.282l826 ---| CUFC     BSS    0           TABLE OF CIO CODES NEEDING SPECIAL CARE
09856  M01S05928.282l826 ---|          CON    170,CUL     CLOSE/UNLOAD
09857  M01S05929.282l826 ---|          CON    174,CUL     CLOSE/UNLOAD
09858  M01S05930.282l826 ---|          CON    330,CUP     CLOSER
09859  M01S05931.282l826 ---|          CON    350,CUP     CLOSER
09860  M01S05932.282l826 ---|          CON    370,CUP     CLOSER/UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
09861  M02S00001.282l826 ---|          CON    374,CUL     CLOSER/RETURN

Seq #  *Modification Id* Act 
----------------------------+
09862  M01S05933.282l826 ---|          CON    0           END OF TABLE
09863  M01S05934.282l826 ---| CUL      SPACE  4,10
09864  M01S05935.282l826 ---|**        CUL - CLOSE/UNLOAD PROCESSOR.
09865  M01S05936.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
09866  M02S05937.282l826 ---|*         CALLS  CUI, REL, SAF, SFB, *0DF*.

Seq #  *Modification Id* Act 
----------------------------+
09867  M02S02126.282l826 ---|*         CALLS  CUI, /PRESET/PNC, REL, SAF, SFB, *0DF*.

Seq #  *Modification Id* Act 
----------------------------+
09868  M01S05938.282l826 ---|*
09869  M01S05939.282l826 ---|*         MACROS CHTE, DCHAN, EXECUTE, RCHAN, SADT.
09870  M01S05940.282l826 ---|
09871  M01S05941.282l826 ---|
09872  M01S05942.282l826 ---| CUL      SUBR               ENTRY/EXIT
09873  M01S05943.282l826 ---|          SADT   .FE,,,A
09874  M01S05944.282l826 ---|          LDC    *           READ FILE NAME
09875  M01S05945.282l826 ---|          CRD    FN

Seq #  *Modification Id* Act 
----------------------------+
09876  M02S05946.282l826 ---|          LDD    IR+1        SET UP FOR SAF
09877  M02S05947.282l826 ---|          STM    CULA
09878  M02S05948.282l826 ---|          LDD    CP
09879  M02S05949.282l826 ---|          SHN    -7
09880  M02S05950.282l826 ---|          STD    IR+1
09881  M02S05951.282l826 ---|          RJM    SAF         SEARCH FOR ASSIGNED FILE
09882  M02S05952.282l826 ---|          STD    T1
09883  M02S05953.282l826 ---|          LDC    *
09884  M02S05954.282l826 ---| CULA     EQU    *-1
09885  M02S05955.282l826 ---|          STD    IR+1
09886  M02S05956.282l826 ---|          LDD    T1

Seq #  *Modification Id* Act 
----------------------------+
09887  M02S00001.282l826 ---|          RJM    SAF         SEARCH FOR ASSIGNED FILE

Seq #  *Modification Id* Act 
----------------------------+
09888  M01S05957.282l826 ---|          ZJN    CULX        IF FILE NOT FOUND
09889  M01S05958.282l826 ---|          RJM    SFB         SET FILE BUSY
09890  M01S05959.282l826 ---|          NJN    CULX        IF FILE NOT SET BUSY
09891  M01S05960.282l826 ---|          RJM    REL         RELEASE UNIT
09892  M01S05961.282l826 ---|          CHTE   *
09893  M01S05962.282l826 ---|          LDN    CH          DROP CHANNEL
09894  M01S05963.282l826 ---|          DCHAN

Seq #  *Modification Id* Act 
----------------------------+
09895  M02S00002.282l826 ---|          LDD    MA          SAVE DIRECT CELLS
09896  M02S00003.282l826 ---|          CWD    20
09897  M02S00004.282l826 ---|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
09898  M01S05964.282l826 ---|          LDM    CIOE        SET RETURN/UNLOAD FLAG FOR *0DF*
09899  M01S05965.282l826 ---|          SHN    -2
09900  M01S05966.282l826 ---|          LPN    1
09901  M01S05967.282l826 ---|          LMN    1
09902  M01S05968.282l826 ---|          STM    B0DF-1
09903  M01S05969.282l826 ---|          EXECUTE 0DF,B0DF   DROP FILE

Seq #  *Modification Id* Act 
----------------------------+
09904  M02S00005.282l826 ---|          SHN    -14
09905  M02S00006.282l826 ---|          STD    T1          SAVE *0DF* STATUS
09906  M02S00007.282l826 ---|          LDD    MA
09907  M02S00008.282l826 ---|          CWD    CN          RESTORE DIRECT CELLS
09908  M02S00009.282l826 ---|          CRD    20

Seq #  *Modification Id* Act 
----------------------------+
09909  M01S05970.282l826 ---|          CHTE   *           RESERVE CHANNEL
09910  M01S05971.282l826 ---|          LDN    CH
09911  M01S05972.282l826 ---|          RCHAN
09912  M01S05973.282l826 ---|          LDN    0           RECONNECT UNIT
09913  M01S05974.282l826 ---|          RJM    CUI

Seq #  *Modification Id* Act 
----------------------------+
09914  M02S02127.282l826 ---| CULA     EQU    *-2
09915  M02S02128.282l826 ---|*         UJN    CUL1        (CTS)

Seq #  *Modification Id* Act 
----------------------------+
09916  M02S05975.282l826 ---|          LJM    CULX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09917  M02S02129.282l826 ---| CUL1     LJM    CULX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09918  M01S05976.282l826 ---| CUP      SPACE  4,10
09919  M01S05977.282l826 ---|**        CUP - CHECK USER PROCESSING ON CLOSER.
09920  M01S05978.282l826 ---|*
09921  M01S05979.282l826 ---|*         EXIT   (PA - PB) = UPDATED IF NEEDED.
09922  M01S05980.282l826 ---|*
09923  M01S05981.282l826 ---|*         MACROS SADT.
09924  M01S05982.282l826 ---|
09925  M01S05983.282l826 ---|
09926  M01S05984.282l826 ---| CUP      SUBR               ENTRY/EXIT
09927  M01S05985.282l826 ---|          LDM    FETO
09928  M01S05986.282l826 ---|          SHN    21-11
09929  M01S05987.282l826 ---|          PJN    CUP1        IF UP NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
09930  M02S00001.282l826 ---|          LDD    PA          CHECK ERROR CODE
09931  M02S00002.282l826 ---|          LPN    3
09932  M02S00003.282l826 ---|          SHN    14
09933  M02S00004.282l826 ---|          ADD    PB
09934  M02S00005.282l826 ---|          SHN    -12
09935  M02S00006.282l826 ---|          NJN    CUPX        IF ERROR, RETURN

Seq #  *Modification Id* Act 
----------------------------+
09936  M01S05988.282l826 ---|          LDM    CIOE        SET TO RETURN END OF REEL
09937  M01S05989.282l826 ---|          LPC    774
09938  M01S05990.282l826 ---|          LMC    2001
09939  M01S05991.282l826 ---|          STD    PB
09940  M01S05992.282l826 ---|          UJN    CUPX        RETURN
09941  M01S05993.282l826 ---|
09942  M01S05994.282l826 ---| CUP1     LDD    UP
09943  M01S05995.282l826 ---|          SHN    -13
09944  M01S05996.282l826 ---|          ZJN    CUPX        IF NOT LABELED
09945  M01S05997.282l826 ---|          LDM    FETO
09946  M01S05998.282l826 ---|          SHN    21-5
09947  M01S05999.282l826 ---|          MJN    CUPX        IF EXTENDED LABELS
09948  M01S06000.282l826 ---| CUPA     LDN    0           FET LENGTH - 5
09949  M01S06001.282l826 ---|          SBN    10
09950  M01S06002.282l826 ---|          MJN    CUPX        IF FET NOT LONG ENOUGH FOR LABEL PORTION
09951  M01S06003.282l826 ---|          SADT   .FE,,,A
09952  M01S06004.282l826 ---|          LDC    *           UPDATE REEL NUMBER IN FET
09953  M01S06005.282l826 ---|          ADN    14
09954  M01S06006.282l826 ---|          CRD    CM
09955  M01S06007.282l826 ---|          AOD    CM+4
09956  M01S06008.282l826 ---|          LPN    77
09957  M01S06009.282l826 ---|          LMN    1R9+1
09958  M01S06010.282l826 ---|          NJN    CUP2        IF NO OVERFLOW
09959  M01S06011.282l826 ---|          LDN    100-1R9-1+1R0
09960  M01S06012.282l826 ---|          RAD    CM+4
09961  M01S06013.282l826 ---|          SHN    -6
09962  M01S06014.282l826 ---|          LMN    1R9+1
09963  M01S06015.282l826 ---|          NJN    CUP2        IF NO OVERFLOW
09964  M01S06016.282l826 ---|          LDC    -1R9*100-100+1R0*100
09965  M01S06017.282l826 ---|          RAD    CM+4
09966  M01S06018.282l826 ---|          AOD    CM+3
09967  M01S06019.282l826 ---|          LPN    77
09968  M01S06020.282l826 ---|          LMN    1R9+1
09969  M01S06021.282l826 ---|          NJN    CUP2        IF NO OVERFLOW
09970  M01S06022.282l826 ---|          LDN    100-1R9-1+1R0
09971  M01S06023.282l826 ---|          RAD    CM+3
09972  M01S06024.282l826 ---|          SADT   .FE,,,A
09973  M01S06025.282l826 ---| CUP2     LDC    *
09974  M01S06026.282l826 ---|          ADN    14
09975  M01S06027.282l826 ---|          CWD    CM
09976  M01S06028.282l826 ---|          LJM    CUPX        RETURN
09977  M01S06029.282l826 ---|          SPACE  4,10
09978  M01S06030.282l826 ---|*         LOCAL TO OVERLAY DEFINITIONS.
09979  M01S06031.282l826 ---|
09980  M01S06032.282l826 ---| FS       EQU    CN
09981  M01S06033.282l826 ---| FN       EQU    WC
09982  M01S06034.282l826 ---| FA       EQU    57
09983  M01S06035.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
09984  M02S00010.282l826 ---|          ERRPL  24-CN       *0DF* USES LOCATIONS 20 - 24

Seq #  *Modification Id* Act 
----------------------------+
09985  M01S06036.282l826 ---|          ERRNZ  FA-SC       IF LOCATION 57 NOT SCRATCH
09986  M01S06037.282l826 ---|          SPACE  4,10
09987  M01S06038.282l826 ---|**        COMMON DECKS.
09988  M01S06039.282l826 ---|
09989  M01S06040.282l826 ---|
09990  M01S06041.282l826 ---|*CALL     COMPSAF
09991  M01S06042.282l826 ---|*CALL     COMPSFB
09992  M01S06043.282l826 ---|
09993  M01S06044.282l826 ---|
09994  M01S06045.282l826 ---| TADD     TSAD               ADDRESS TABLE
09995  M01S06046.282l826 ---|
09996  M01S06047.282l826 ---|
09997  M01S06048.282l826 ---| B0DF     EQU    *+1         *0DF* OVERLAY BUFFER
09998  M01S06049.282l826 ---|          ERRNG  BFMS-B0DF-ZDFL  CHECK LENGTH OF *0DF*
09999  M01S06050.282l826 ---|
10000  M01S06051.282l826 ---|
10001  M01S06052.282l826 ---|          ERROVL
10002  M01S06053.282l826 ---| PRS      SPACE  4,10
10003  M01S06054.282l826 ---|**        PRS - PRESET.
10004  M01S06055.282l826 ---|*
10005  M01S06056.282l826 ---|*         CALLS  MCH, UAD.
10006  M01S06057.282l826 ---|
10007  M01S06058.282l826 ---|
10008  M01S06059.282l826 ---| PRS      LDC    CTAB        MODIFY CHANNELS
10009  M01S06060.282l826 ---|          RJM    MCH
10010  M01S06061.282l826 ---|          LDC    TADD        SET TO MODIFY INSTRUCTIONS
10011  M01S06062.282l826 ---|          STD    CN
10012  M01S06063.282l826 ---|          RJM    UAD
10013  M01S06064.282l826 ---|          ADN    /MTX/UCIA   GET FET LENGTH
10014  M01S06065.282l826 ---|          CRD    T1
10015  M01S06066.282l826 ---|          ADN    /MTX/UBLC-/MTX/UCIA  READ BLOCK ACCUMULATOR
10016  M01S06067.282l826 ---|          CRD    CM
10017  M01S06068.282l826 ---|          LDD    T1+1        SET FET LENGTH - 5
10018  M01S06069.282l826 ---|          SHN    -6
10019  M01S06070.282l826 ---|          RAM    CUPA
10020  M01S06071.282l826 ---|          LDD    CM+4
10021  M01S06072.282l826 ---|          ZJN    PRS1        IF NO BLOCKS SKIPPED
10022  M01S06073.282l826 ---|          STM    CUFA
10023  M01S06074.282l826 ---|          LDN    0           CLEAR COUNTER
10024  M01S06075.282l826 ---|          STD    CM+4
10025  M01S06076.282l826 ---|          RJM    UAD         REWRITE WORD
10026  M01S06077.282l826 ---|          ADN    /MTX/UBLC
10027  M01S06078.282l826 ---|          CWD    CM
10028  M01S06079.282l826 ---|          LDC    /SRU/ITPO*100  SET SRU INCREMENT
10029  M01S06080.282l826 ---|          STM    //CECA

Seq #  *Modification Id* Act 
----------------------------+
10030  M02S06081.282l826 ---| PRS1     LJM    PRSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10031  M02S02130.282l826 ---| PRS1     LDD    HP
10032  M02S02131.282l826 ---|          SHN    21-7
10033  M02S02132.282l826 ---|          PJN    PRS2        IF NOT CTS
10034  M02S02133.282l826 ---|          ISTORE CULA,(UJN CUL1)  SKIP CONNECT
10035  M02S02134.282l826 ---| PRS2     LJM    PRSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10036  M01S06082.282l826 ---|
10037  M01S06083.282l826 ---|
10038  M01S06084.282l826 ---| CTAB     CHTB               CHANNEL TABLE
10039  M01S06085.282l826 ---|          OVERLAY (ISSUE USER MESSAGE(S).)
10040  M01S06086.282l826 ---| MAB      SPACE  4,15
10041  M01S06087.282l826 ---|**        MAB - ISSUE MESSAGE(S) TO USER AND ABORT JOB.
10042  M01S06088.282l826 ---|*         WILL ISSUE ADDITIONAL MESSAGES FOR SOME ERROR CODES AND/OR
10043  M01S06089.282l826 ---|*         IF FIRST BLOCK ON TAPE SO AS TO BETTER DIAGNOSE THE PROBLEM.
10044  M01S06090.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10045  M02S06091.282l826 ---|*T        12/ 1,12/ MAB,12/,12/ SK,12/ ERROR CODE

Figure

10046  M02S06092.282l826 ---|*         IF ERROR CODE = 0, THEN CHECK IF JOB ABORTED AND RETURN

Seq #  *Modification Id* Act 
----------------------------+
10047  M03S06093.282l826 ---|*         STATUS TO *MAGNET*.  IF SK .NE. 0, DO NOT ALLOW *ODET*.

Seq #  *Modification Id* Act 
----------------------------+
10048  M03S00001.282l826 ---|*         STATUS TO *MAGNET*. IF SK=0, *0DET* AND ERROR FLAGS *SPET*
10049  M03S00002.282l826 ---|*         OR ABOVE ARE RETURNED. IF SK=1, ONLY ERROR FLAGS *SPET*
10050  M03S00003.282l826 ---|*         OR ABOVE ARE RETURNED. IF SK=2, ANY ERROR FLAG IS RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
10051  M03S00198.282l826 ---|*         IF SK=3, *FSET* AND ERROR FLAGS *ODET* OR ABOVE ARE
10052  M03S00199.282l826 ---|*         RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
10053  M02S02135.282l826 ---|*T UXRQ   12/ 1,12/ MAB,12/,12/ EP,12/ EC

Figure UXRQ

Seq #  *Modification Id* Act 
----------------------------+
10054  M01S06094.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10055  M02S02136.282l826 ---|*         EC = *COMSMTX* ERROR CODE IF .NE. 0.
10056  M02S02137.282l826 ---|*         EC = 0 IF TO CHECK JOB ERROR FLAG.
10057  M02S02138.282l826 ---|*         EP = OPTIONAL ERROR PARAMETER (ERROR CODE DEPENDENT).
10058  M02S02139.282l826 ---|*            = *COMSATF* RESPONSE CODE IF *AME* ERROR.
10059  M02S02140.282l826 ---|*            = *COMSMTX* *DSD* ERROR CODE IF *RRJ* ERROR.
10060  M02S02141.282l826 ---|*
10061  M02S02142.282l826 ---|*         IF EC = 0, THE JOB ERROR FLAG WILL BE CHECKED FOR *ODET*,
10062  M02S02143.282l826 ---|*         *TAET*, *FSET*, OR .GT. *SPET*. IF ANY OF THESE CONDITIONS IS
10063  M02S02144.282l826 ---|*         TRUE, PROCESSING WILL BE THE SAME AS FOR AN *EFT* ERROR AND
10064  M02S02145.282l826 ---|*         THE ERROR FLAG WILL BE RETURNED TO *MAGNET*.
10065  M02S02146.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10066  M01S06095.282l826 ---|*T, EXIT  12/ 2,12/ MAB,12/,12/ EF,12/ 0

Figure EXIT

Seq #  *Modification Id* Act 
----------------------------+
10067  M02S06096.282l826 ---|*         EF = ERROR FLAG VALUE.

Seq #  *Modification Id* Act 
----------------------------+
10068  M01S06097.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10069  M02S06098.282l826 ---|*         CALLS  CEF, C2D, IDM, MFM, NWE, OPM, PKM, STM.

Seq #  *Modification Id* Act 
----------------------------+
10070  M03S00200.282l826 ---|*         CALLS  CEF, C2D, IDM, IPD, MFM, NWE, OPM, PKM, STM.

Seq #  *Modification Id* Act 
----------------------------+
10071  M02S02147.282l826 ---|*         EF = ERROR FLAG VALUE IF CHECK ERROR FLAG CALL.
10072  M02S02148.282l826 ---|*
10073  M02S02149.282l826 ---|*         CALLS  CEF, C2D, IDM, MFM, NWE, OPM, PKM, STM.

Seq #  *Modification Id* Act 
----------------------------+
10074  M01S06099.282l826 ---|*
10075  M01S06100.282l826 ---|*         MACROS MONITOR, SADT.
10076  M01S06101.282l826 ---|
10077  M01S06102.282l826 ---|
10078  M01S06103.282l826 ---|          ENTRY  MAB
10079  M01S06104.282l826 ---|          LDC    0           SET BLOCKS SKIPPED
10080  M01S06105.282l826 ---| MABA     EQU    *-1
10081  M01S06106.282l826 ---|          STD    BT
10082  M01S06107.282l826 ---|          LDD    PB
10083  M01S06108.282l826 ---|          NJN    MAB1        IF MESSAGE TO ISSUE
10084  M01S06109.282l826 ---|          RJM    CEF         CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
10085  M02S06110.282l826 ---|          PJN    MAB1        IF ERROR FLAG SET
10086  M02S06111.282l826 ---|          LDN    0           CLEAR ERROR RETURN
10087  M02S06112.282l826 ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
10088  M02S02150.282l826 ---|          LDD    PA
10089  M02S02151.282l826 ---|          NJN    MAB1        IF ERROR FLAG TO BE PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
10090  M01S06113.282l826 ---|          LJM    RET1        RETURN
10091  M01S06114.282l826 ---|
10092  M01S06115.282l826 ---| MAB1     LDD    FL
10093  M01S06116.282l826 ---|          SHN    6
10094  M01S06117.282l826 ---|          SADT   .FE,C,1
10095  M01S06118.282l826 ---|          ADC    -*
10096  M01S06119.282l826 ---|          PJN    MAB2        IF FET WITHIN FL
10097  M01S06120.282l826 ---|          LDN    ZERL
10098  M01S06121.282l826 ---|          UJN    MAB3        DO NOT READ FET NAME
10099  M01S06122.282l826 ---|
10100  M01S06123.282l826 ---|          SADT   .FE,,,A

Seq #  *Modification Id* Act 
----------------------------+
10101  M02S06124.282l826 ---| MAB2     LDC    *           READ FET NAME

Seq #  *Modification Id* Act 
----------------------------+
10102  M02S02152.282l826 ---| MAB2     LDC    *           READ FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
10103  M01S06125.282l826 ---| MAB3     CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
10104  M03S00201.282l826 ---|          RJM    IPD         ISSUE POSITION TO DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
10105  M02S02153.282l826 ---|          LDD    CN+3        TERMINATE FILE NAME FOR MESSAGE ASSEMBLY
10106  M02S02154.282l826 ---|          SCN    77
10107  M02S02155.282l826 ---|          STD    CN+3

Seq #  *Modification Id* Act 
----------------------------+
10108  M01S06126.282l826 ---|          LDM    TUEM,PB     SET MESSAGE ADDRESS
10109  M01S06127.282l826 ---|          NJN    MAB4        IF DEFINED
10110  M01S06128.282l826 ---|          LDD    PB
10111  M01S06129.282l826 ---|          RJM    C2D
10112  M01S06130.282l826 ---|          STM    TERR+6
10113  M01S06131.282l826 ---|          LDC    TERR        SET HARDWARE ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10114  M02S06132.282l826 ---| MAB4     RJM    PKM         PACK MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10115  M03S06133.282l826 ---|          LDC    BFMS+NMSN   ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10116  M03S00148.282l826 ---|          LDC    BFMS        ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10117  M02S06134.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
10118  M02S02156.282l826 ---| MAB4     RJM    IDF         ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10119  M01S06135.282l826 ---|          LDM    TSPC,PB
10120  M01S06136.282l826 ---|          ZJN    MAB5        IF NO SPECIAL PROCESSOR
10121  M01S06137.282l826 ---|          STD    T1
10122  M01S06138.282l826 ---|          RJM    0,T1
10123  M01S06139.282l826 ---| MAB5     LDD    BL
10124  M01S06140.282l826 ---|          NJN    MAB6        IF NOT FIRST BLOCK
10125  M01S06141.282l826 ---|          LDD    BL+1
10126  M01S06142.282l826 ---|          SBN    2           0 OR 1 CONSIDERED FIRST BLOCK
10127  M01S06143.282l826 ---|          PJN    MAB6        IF NOT FIRST BLOCK
10128  M01S06144.282l826 ---|          LDM    TAME,EC
10129  M01S06145.282l826 ---|          ZJN    MAB6        IF NO SPECIAL MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10130  M02S06146.282l826 ---|          LMC    NMSN        ISSUE SPECIAL MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10131  M01S06147.282l826 ---|          RJM    IDM
10132  M01S06148.282l826 ---| MAB6     LDD    PB
10133  M01S06149.282l826 ---|          LMN    /MTX/ERM
10134  M01S06150.282l826 ---|          NJN    MAB7        IF NOT END OF REEL MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10135  M02S06151.282l826 ---|          LJM    RET1        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10136  M02S02157.282l826 ---|          LJM    MAB11       SWITCH TO MAGNET CP

Seq #  *Modification Id* Act 
----------------------------+
10137  M01S06152.282l826 ---|
10138  M01S06153.282l826 ---| MAB7     LDN    0           CLEAR ERROR PARAMETERS
10139  M01S06154.282l826 ---|          STD    EP
10140  M01S06155.282l826 ---|          STD    EP+1

Seq #  *Modification Id* Act 
----------------------------+
10141  M02S02158.282l826 ---| MABF     EQU    *-1
10142  M02S02159.282l826 ---|*         PSN                (CTS)

Seq #  *Modification Id* Act 
----------------------------+
10143  M01S06156.282l826 ---|          STD    EI
10144  M01S06157.282l826 ---|          LDD    PB
10145  M01S06158.282l826 ---|          ZJN    MAB9        IF JOB ABORTED
10146  M01S06159.282l826 ---|          SBN    /MTX/MFAT
10147  M01S06160.282l826 ---|          MJN    MAB8        IF FATAL USER ERROR
10148  M01S06161.282l826 ---|          LDD    SP
10149  M01S06162.282l826 ---|          SHN    21-0
10150  M01S06163.282l826 ---|          MJN    MAB8        IF IGNORE EP SET
10151  M01S06164.282l826 ---|          LDM    FETO
10152  M01S06165.282l826 ---|          SHN    21-10
10153  M01S06166.282l826 ---|          MJN    MAB9        IF ERROR PROCESSING SET
10154  M01S06167.282l826 ---|          LDD    SP
10155  M01S06168.282l826 ---|          SHN    21-1
10156  M01S06169.282l826 ---|          PJN    MAB8        IF NOT ACCEPT DATA WITHOUT EP SET
10157  M01S06170.282l826 ---|          LDN    1           SET TO NOT RETURN ERROR CODE
10158  M01S06171.282l826 ---|          STM    MABD
10159  M01S06172.282l826 ---|          UJN    MAB9        DO NOT SET ERROR FLAG
10160  M01S06173.282l826 ---|
10161  M01S06174.282l826 ---| MAB8     LDN    PPET        SET ERROR FLAG
10162  M01S06175.282l826 ---|          STD    CM+1
10163  M01S06176.282l826 ---|          MONITOR CEFM
10164  M01S06177.282l826 ---| MAB9     LDC    0           EXTERNAL CIO CODE
10165  M01S06178.282l826 ---| MABB     EQU    *-1
10166  M01S06179.282l826 ---|          LMC    200
10167  M01S06180.282l826 ---|          NJN    MAB10       IF NOT CONTROL WORD READ
10168  M01S06181.282l826 ---|          LDM    MABD
10169  M01S06182.282l826 ---|          LMN    1
10170  M01S06183.282l826 ---|          ZJN    MAB10       IF NOT RETURN ERROR CODE
10171  M01S06184.282l826 ---|          LDC    0           PRESERVE LEVEL NUMBER
10172  M01S06185.282l826 ---| MABC     EQU    *-1
10173  M01S06186.282l826 ---|          RAM    MABD-1
10174  M01S06187.282l826 ---| MAB10    LDM    MABB        GET EXTERNAL CIO CODE
10175  M01S06188.282l826 ---|          LMC    4001
10176  M01S06189.282l826 ---| MABD     EQU    *-1

Seq #  *Modification Id* Act 
----------------------------+
10177  M02S06190.282l826 ---|          LJM    RET         SET FET COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
10178  M02S02160.282l826 ---|          RJM    CEC         SET FET COMPLETE
10179  M02S02161.282l826 ---| MAB11    LDM    MABE
10180  M02S02162.282l826 ---|          ZJN    MAB12       IF NO CHANGE TO *UFLA*
10181  M02S02163.282l826 ---|          RJM    UAD
10182  M02S02164.282l826 ---|          ADN    /MTX/UFLA
10183  M02S02165.282l826 ---|          CRD    CM
10184  M02S02166.282l826 ---|          LDN    20
10185  M02S02167.282l826 ---|          RAD    CM
10186  M02S02168.282l826 ---|          RJM    UAD         STARTING ADDRESS OF UDT
10187  M02S02169.282l826 ---|          ADN    /MTX/UFLA
10188  M02S02170.282l826 ---|          CWD    CM          SET *END OF SET* FLAG IN *UFLA*
10189  M02S02171.282l826 ---| MAB12    LJM    RET1        RETURN
10190  M02S02172.282l826 ---|
10191  M02S02173.282l826 ---|
10192  M02S02174.282l826 ---| MABE     DATA   0           SET *END OF SET* IN *UFLA* IF NONZERO

Seq #  *Modification Id* Act 
----------------------------+
10193  M01S06191.282l826 ---|          TITLE  SUBROUTINES.
10194  M01S06192.282l826 ---| CEF      SPACE  4,10
10195  M01S06193.282l826 ---|**        CEF - CHECK ERROR FLAG.
10196  M01S06194.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10197  M02S06195.282l826 ---|*         ENTRY  (PA) .NE. 0 IF CHECK ERROR FLAG DURING SKIP.

Seq #  *Modification Id* Act 
----------------------------+
10198  M03S00004.282l826 ---|*         ENTRY  (PA) = 0    IF ERROR FLAG TO BE CHECKED FOR *0DET* OR
10199  M03S00005.282l826 ---|*                            FOR *SPET* OR ABOVE.

Seq #  *Modification Id* Act 
----------------------------+
10200  M03S00001.282l826 ---|*         ENTRY  (PA) = 0    IF ERROR FLAG TO BE CHECKED FOR *ODET*,
10201  M03S00002.282l826 ---|*                            FOR *TAET*, OR FOR *SPET* OR ABOVE.

Seq #  *Modification Id* Act 
----------------------------+
10202  M03S00006.282l826 ---|*                (PA) = 1    IF ERROR FLAG TO BE CHECKED FOR *SPET*
10203  M03S00007.282l826 ---|*                            OR ABOVE.
10204  M03S00008.282l826 ---|*                (PA) = 2    IF ERROR FLAG TO BE CHECKED FOR ANY ERROR.

Seq #  *Modification Id* Act 
----------------------------+
10205  M04S00202.282l826 ---|*                (PA) = 3    IF ERROR FLAG TO BE CHECKED FOR *FSET* OR
10206  M04S00203.282l826 ---|*                            FOR *ODET* OR ABOVE.

Seq #  *Modification Id* Act 
----------------------------+
10207  M03S00003.282l826 ---|*                (PA) = 3    IF ERROR FLAG TO BE CHECKED FOR *FSET*,
10208  M03S00004.282l826 ---|*                            FOR *TAET*, OR FOR *ODET* OR ABOVE.

Seq #  *Modification Id* Act 
----------------------------+
10209  M02S06196.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10210  M03S06197.282l826 ---|*         EXIT   (A) .LT. 0 IF NO *ODET* OR ERROR ABOVE *SPET*.

Seq #  *Modification Id* Act 
----------------------------+
10211  M03S00009.282l826 ---|*         EXIT   (A) .LT. 0  IF NO ERROR.

Seq #  *Modification Id* Act 
----------------------------+
10212  M02S06198.282l826 ---|*                (PA) = ERROR FLAG VALUE.

Seq #  *Modification Id* Act 
----------------------------+
10213  M02S02175.282l826 ---|*         EXIT   (PA) = ERROR FLAG IF ERROR IS *ODET*, *TAET*, *FSET*,
10214  M02S02176.282l826 ---|*                       OR .GE. *SPET*.
10215  M02S02177.282l826 ---|*                (PA) = 0 IF NO ERROR OR IF ERROR NOT *ODET*, *TAET*,
10216  M02S02178.282l826 ---|*                       *FSET*, OR .GE. *SPET*.

Seq #  *Modification Id* Act 
----------------------------+
10217  M01S06199.282l826 ---|*
10218  M01S06200.282l826 ---|*         USES   PA, CM - CM+4.
10219  M01S06201.282l826 ---|
10220  M01S06202.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
10221  M02S06203.282l826 ---| CEF1     LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
10222  M03S06204.282l826 ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
10223  M02S06205.282l826 ---| CEF2     SBN    SPET

Seq #  *Modification Id* Act 
----------------------------+
10224  M03S00204.282l826 ---| CEF2     LDD    CM+1
10225  M03S00205.282l826 ---| CEF3     SBN    SPET

Seq #  *Modification Id* Act 
----------------------------+
10226  M02S06206.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
10227  M01S06207.282l826 ---| CEF      SUBR               ENTRY/EXIT
10228  M01S06208.282l826 ---|          LDD    CP          READ ERROR FLAG
10229  M01S06209.282l826 ---|          ADN    STSW
10230  M01S06210.282l826 ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
10231  M02S06211.282l826 ---|          LDD    PA

Seq #  *Modification Id* Act 
----------------------------+
10232  M03S06212.282l826 ---|          NJN    CEF1        IF CHECK DURING SKIP

Seq #  *Modification Id* Act 
----------------------------+
10233  M03S00010.282l826 ---|          STD    CM          SAVE ERROR SELECTION FLAG
10234  M03S00011.282l826 ---|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
10235  M02S02179.282l826 ---|          LDD    CM+1        PRESET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
10236  M02S00012.282l826 ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
10237  M03S00013.282l826 ---|          ZJN    CEF2        IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
10238  M03S00206.282l826 ---|          ZJN    CEF3        IF NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
10239  M03S00014.282l826 ---|          LDD    CM
10240  M03S00015.282l826 ---|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
10241  M04S00016.282l826 ---|          ZJN    CEF1        IF CHECKING FOR *SPET* OR ABOVE

Seq #  *Modification Id* Act 
----------------------------+
10242  M03S00207.282l826 ---|          ZJN    CEF2        IF CHECKING FOR *SPET* OR ABOVE

Seq #  *Modification Id* Act 
----------------------------+
10243  M04S00017.282l826 ---|          PJN    CEFX        IF CHECKING FOR ANY ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
10244  M03S00208.282l826 ---|          SBN    1
10245  M03S00209.282l826 ---|          ZJN    CEFX        IF PA=2
10246  M03S00210.282l826 ---|          PJN    CEF1        IF PA=3

Seq #  *Modification Id* Act 
----------------------------+
10247  M02S06213.282l826 ---|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
10248  M02S06214.282l826 ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
10249  M01S06215.282l826 ---|          LMN    ODET
10250  M01S06216.282l826 ---|          ZJN    CEFX        IF OPERATOR DROP

Seq #  *Modification Id* Act 
----------------------------+
10251  M02S00005.282l826 ---|          LMN    TAET&ODET
10252  M02S00006.282l826 ---|          ZJN    CEFX        IF USER BREAK TWO

Seq #  *Modification Id* Act 
----------------------------+
10253  M02S06217.282l826 ---|          LMN    ODET
10254  M02S06218.282l826 ---|          UJN    CEF2        CHECK IF *SPET* OR ABOVE

Seq #  *Modification Id* Act 
----------------------------+
10255  M03S00018.282l826 ---|          UJN    CEF1        CHECK IF *SPET* OR ABOVE

Seq #  *Modification Id* Act 
----------------------------+
10256  M03S00211.282l826 ---|          UJN    CEF2        CHECK IF *SPET* OR ABOVE
10257  M03S00212.282l826 ---|
10258  M03S00213.282l826 ---| CEF1     LDD    CM+1
10259  M03S00214.282l826 ---|          SBN    ODET
10260  M03S00215.282l826 ---|          PJN    CEFX        IF *ODET* OR ABOVE

Seq #  *Modification Id* Act 
----------------------------+
10261  M03S00007.282l826 ---|          SBK    TAET-ODET
10262  M03S00008.282l826 ---|          ZJN    CEFX        IF USER BREAK TWO

Seq #  *Modification Id* Act 
----------------------------+
10263  M03S00216.282l826 ---|          LDD    CM+1
10264  M03S00217.282l826 ---|          SBN    FSET
10265  M03S00218.282l826 ---|          ZJN    CEFX        IF *FSET*
10266  M03S00219.282l826 ---|          LCN    1
10267  M03S00220.282l826 ---|          UJN    CEFX        NO ERROR

Seq #  *Modification Id* Act 
----------------------------+
10268  M02S06219.282l826 ---| CVA      SPACE  4,10
10269  M02S06220.282l826 ---|**        CVA - CONVERT ADDRESS.
10270  M02S06221.282l826 ---|*
10271  M02S06222.282l826 ---|*         ENTRY  (T2) = CHARACTER ADDRESS.
10272  M02S06223.282l826 ---|*
10273  M02S06224.282l826 ---|*         EXIT   (T2) ADVANCED.
10274  M02S06225.282l826 ---|*
10275  M02S06226.282l826 ---|*         USES   CM+3 - CM+4, T2.
10276  M02S06227.282l826 ---|*
10277  M02S06228.282l826 ---|*         MACROS SADT.
10278  M02S06229.282l826 ---|
10279  M02S06230.282l826 ---|
10280  M02S06231.282l826 ---| CVA      SUBR               ENTRY/EXIT
10281  M02S06232.282l826 ---|          SADT   .FE
10282  M02S06233.282l826 ---|          LDC    *           SET FET ADDRESS
10283  M02S06234.282l826 ---|          STD    CM+4
10284  M02S06235.282l826 ---|          SHN    -14
10285  M02S06236.282l826 ---|          STD    CM+3
10286  M02S06237.282l826 ---|          ZJN    CVA2        IF DIGITS 4, 5 = 0
10287  M02S06238.282l826 ---|          SHN    -3
10288  M02S06239.282l826 ---|          ZJN    CVA1        IF DIGIT 5 = 0
10289  M02S06240.282l826 ---|          ADN    1R0         CONVERT DIGIT 5
10290  M02S06241.282l826 ---|          STI    T2
10291  M02S06242.282l826 ---|          AOD    T2
10292  M02S06243.282l826 ---| CVA1     LDD    CM+3        CONVERT DIGIT 4
10293  M02S06244.282l826 ---|          LPN    7
10294  M02S06245.282l826 ---|          ADN    1R0
10295  M02S06246.282l826 ---|          STI    T2
10296  M02S06247.282l826 ---|          AOD    T2
10297  M02S06248.282l826 ---| CVA2     LDD    CM+3        DIGITS 2, 3
10298  M02S06249.282l826 ---|          SHN    14
10299  M02S06250.282l826 ---|          LMD    CM+4
10300  M02S06251.282l826 ---|          SHN    -6
10301  M02S06252.282l826 ---|          ZJN    CVA4        IF DIGITS 2, 3 = 0
10302  M02S06253.282l826 ---|          SHN    -3
10303  M02S06254.282l826 ---|          ZJN    CVA3        IF DIGIT 3 = 0
10304  M02S06255.282l826 ---|          LPN    7           CONVERT DIGIT 3
10305  M02S06256.282l826 ---|          ADN    1R0
10306  M02S06257.282l826 ---|          STI    T2
10307  M02S06258.282l826 ---|          AOD    T2
10308  M02S06259.282l826 ---| CVA3     LDD    CM+4        CONVERT DIGIT 2
10309  M02S06260.282l826 ---|          SHN    -6
10310  M02S06261.282l826 ---|          LPN    7
10311  M02S06262.282l826 ---|          ADN    1R0
10312  M02S06263.282l826 ---|          STI    T2
10313  M02S06264.282l826 ---|          AOD    T2
10314  M02S06265.282l826 ---| CVA4     LDD    CM+3        DIGITS 0, 1
10315  M02S06266.282l826 ---|          SHN    14
10316  M02S06267.282l826 ---|          LMD    CM+4
10317  M02S06268.282l826 ---|          SHN    -3
10318  M02S06269.282l826 ---|          ZJN    CVA5        IF DIGITS 0, 1 = 0
10319  M02S06270.282l826 ---|          LPN    7           CONVERT DIGIT 1
10320  M02S06271.282l826 ---|          ADN    1R0
10321  M02S06272.282l826 ---|          STI    T2
10322  M02S06273.282l826 ---|          AOD    T2
10323  M02S06274.282l826 ---| CVA5     LDD    CM+4        CONVERT DIGIT 0
10324  M02S06275.282l826 ---|          LPN    7
10325  M02S06276.282l826 ---|          ADN    1R0
10326  M02S06277.282l826 ---|          STI    T2
10327  M02S06278.282l826 ---|          AOD    T2
10328  M02S06279.282l826 ---|          LDN    1R.
10329  M02S06280.282l826 ---|          STI    T2
10330  M02S06281.282l826 ---|          LDN    0
10331  M02S06282.282l826 ---|          STM    1,T2
10332  M02S06283.282l826 ---|          STM    2,T2
10333  M02S06284.282l826 ---|          STM    3,T2
10334  M02S06285.282l826 ---|          LJM    CVAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10335  M02S02180.282l826 ---|          LMN    FSET&TAET
10336  M02S02181.282l826 ---|          ZJN    CEFX        IF FORCED ERROR
10337  M02S02182.282l826 ---|          LMN    FSET
10338  M02S02183.282l826 ---|          SBN    SPET
10339  M02S02184.282l826 ---|          PJN    CEFX        IF SPECIAL PROCESSING ERROR
10340  M02S02185.282l826 ---|          LDN    0           SET ERROR NOT TO BE PROCESSED
10341  M02S02186.282l826 ---|          STD    PA
10342  M02S02187.282l826 ---|          UJN    CEFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10343  M01S06286.282l826 ---| IDM      SPACE  4,10
10344  M01S06287.282l826 ---|**        IDM - ISSUE DAYFILE MESSAGE.
10345  M01S06288.282l826 ---|*         DROP CHANNEL BEFORE ISSUING MESSAGE IF NOT DEDICATED.
10346  M01S06289.282l826 ---|*
10347  M01S06290.282l826 ---|*         ENTRY  (A) = ADDRESS OF MESSAGE.
10348  M01S06291.282l826 ---|*
10349  M01S06292.282l826 ---|*         USES   T4, T5, T6.
10350  M01S06293.282l826 ---|*
10351  M01S06294.282l826 ---|*         CALLS  CUI, DFM, REL.
10352  M01S06295.282l826 ---|*
10353  M01S06296.282l826 ---|*         MACROS CHTE, DCHAN, RCHAN.
10354  M01S06297.282l826 ---|
10355  M01S06298.282l826 ---|
10356  M01S06299.282l826 ---| IDM      SUBR               ENTRY/EXIT
10357  M01S06300.282l826 ---|          STD    T4
10358  M01S06301.282l826 ---|          SHN    -14
10359  M01S06302.282l826 ---|          STD    T5
10360  M01S06303.282l826 ---|          LDM    //LOVA      CHECK CHANNEL
10361  M01S06304.282l826 ---|          LMC    RJMI
10362  M01S06305.282l826 ---|          STD    T6
10363  M01S06306.282l826 ---|          NJN    IDM1        IF DEDICATED CHANNEL
10364  M01S06307.282l826 ---|          RJM    REL         RELEASE UNIT
10365  M01S06308.282l826 ---|          CHTE   *
10366  M01S06309.282l826 ---|          LDN    CH          DROP CHANNEL
10367  M01S06310.282l826 ---|          DCHAN
10368  M01S06311.282l826 ---| IDM1     LDD    T5          ISSUE MESSAGE
10369  M01S06312.282l826 ---|          SHN    14
10370  M01S06313.282l826 ---|          ADD    T4
10371  M01S06314.282l826 ---|          RJM    DFM
10372  M01S06315.282l826 ---|          LDD    T6
10373  M01S06316.282l826 ---|          NJN    IDMX        IF DEDICATED CHANNEL
10374  M01S06317.282l826 ---|          CHTE   *
10375  M01S06318.282l826 ---|          LDN    CH          REQUEST TAPE CHANNEL
10376  M01S06319.282l826 ---|          RCHAN
10377  M01S06320.282l826 ---|          LDN    0           CONNECT IF NEEDED
10378  M01S06321.282l826 ---|          RJM    CUI
10379  M01S06322.282l826 ---|          LJM    IDMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10380  M03S00221.282l826 ---| IPD      SPACE  4,10
10381  M03S00222.282l826 ---|**        IPD - ISSUE POSITION TO DAYFILE.

Seq #  *Modification Id* Act 
----------------------------+
10382  M02S02188.282l826 ---| IDF      SPACE  4,10
10383  M02S02189.282l826 ---|**        IDF - ISSUE DAYFILE MESSAGE WITH FILE NAME AND FET ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
10384  M02S00223.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10385  M03S00224.282l826 ---|*         ENTRY  (BL - BL+1) = BLOCK NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
10386  M02S02190.282l826 ---|*         ENTRY  (A) = ADDRESS OF MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
10387  M02S00225.282l826 ---|*                (CN - CN+3) = FILE NAME.
10388  M02S00226.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10389  M03S00227.282l826 ---|*         CALLS  C2D, IDM, PKM.

Seq #  *Modification Id* Act 
----------------------------+
10390  M02S02191.282l826 ---|*         EXIT   MESSAGE ISSUED TO DAYFILE.
10391  M02S02192.282l826 ---|*
10392  M02S02193.282l826 ---|*         USES   T1, T2.
10393  M02S02194.282l826 ---|*
10394  M02S02195.282l826 ---|*         CALLS  ACS, ANS, IDM.

Seq #  *Modification Id* Act 
----------------------------+
10395  M02S00228.282l826 ---|
10396  M02S00229.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
10397  M03S00230.282l826 ---| IPD      SUBR               ENTRY/EXIT
10398  M03S00231.282l826 ---|          LDD    BL          CONVERT BLOCK NUMBER
10399  M03S00232.282l826 ---|          RJM    C2D
10400  M03S00233.282l826 ---|          STM    IPDA+7
10401  M03S00234.282l826 ---|          LDD    BL+1
10402  M03S00235.282l826 ---|          SHN    -6
10403  M03S00236.282l826 ---|          RJM    C2D
10404  M03S00237.282l826 ---|          STM    IPDA+10B
10405  M03S00238.282l826 ---|          LDD    BL+1
10406  M03S00239.282l826 ---|          RJM    C2D
10407  M03S00240.282l826 ---|          STM    IPDA+11B
10408  M03S00241.282l826 ---|          LDC    IPDA        SET FWA OF MESSAGE
10409  M03S00242.282l826 ---|          RJM    PKM         PACK MESSAGE
10410  M03S00243.282l826 ---|          LDC    BFMS
10411  M03S00244.282l826 ---|          RJM    IDM         ISSUE DAYFILE MESSAGE
10412  M03S00245.282l826 ---|          UJN    IPDX        RETURN
10413  M03S00246.282l826 ---|
10414  M03S00247.282l826 ---|
10415  M03S00248.282l826 ---| IPDA     DATA   Z* BLOCK NUMBER 000000, *

Seq #  *Modification Id* Act 
----------------------------+
10416  M02S02196.282l826 ---| IDF      SUBR               ENTRY/EXIT
10417  M02S02197.282l826 ---|          STD    T2          SAVE MESSAGE ADDRESS
10418  M02S02198.282l826 ---|          LDC    BFMS        SET ASSEMBLY ADDRESS
10419  M02S02199.282l826 ---|          STD    T1
10420  M02S02200.282l826 ---|          LDN    0           INITIALIZE MESSAGE ASSEMBLY
10421  M02S02201.282l826 ---|          STI    T1
10422  M02S02202.282l826 ---|          LDD    T2
10423  M02S02203.282l826 ---|          RJM    ACS         ASSEMBLE MESSAGE TEXT
10424  M02S02204.282l826 ---|          LDN    CN
10425  M02S02205.282l826 ---|          RJM    ACS         ASSEMBLE FILE NAME
10426  M02S02206.282l826 ---|          LDC    =Z* AT *
10427  M02S02207.282l826 ---|          RJM    ACS         ASSEMBLE * AT *
10428  M02S02208.282l826 ---|          SADT   .FE
10429  M02S02209.282l826 ---|          LDC    *           SET FET ADDRESS
10430  M02S02210.282l826 ---|          RJM    ANS         ASSEMBLE FET ADDRESS
10431  M02S02211.282l826 ---|          LDC    =Z*.*
10432  M02S02212.282l826 ---|          RJM    ACS         ASSEMBLE MESSAGE TERMINATOR
10433  M02S02213.282l826 ---|          LDC    BFMS        ISSUE MESSAGE TO DAYFILE
10434  M02S02214.282l826 ---|          RJM    IDM
10435  M02S02215.282l826 ---|          UJN    IDFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
10436  M01S06323.282l826 ---| MFM      SPACE  4,10
10437  M01S06324.282l826 ---|**        MFM - MULTI-FILE MISSING MESSAGE.
10438  M01S06325.282l826 ---|*
10439  M01S06326.282l826 ---|*         ENTRY  (LG) = REQUESTED FILE SECTION NUMBER.
10440  M01S06327.282l826 ---|*                (LG+1) = HIGHEST EXISTING FILE SECTION NUMBER.
10441  M01S06328.282l826 ---|*
10442  M01S06329.282l826 ---|*         EXIT   (LG - LG+1) = 0.
10443  M01S06330.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
10444  M02S06331.282l826 ---|*         CALLS  C2D, IDM.

Seq #  *Modification Id* Act 
----------------------------+
10445  M02S02216.282l826 ---|*         USES   CM - CM+4.
10446  M02S02217.282l826 ---|*
10447  M02S02218.282l826 ---|*         CALLS  C2D, IDM, UAD.

Seq #  *Modification Id* Act 
----------------------------+
10448  M01S06332.282l826 ---|
10449  M01S06333.282l826 ---|
10450  M01S06334.282l826 ---| MFM1     LDC    MFMD        SET FILE IDENTIFIER NOT FOUND
10451  M01S06335.282l826 ---|          STM    MFMA

Seq #  *Modification Id* Act 
----------------------------+
10452  M02S06336.282l826 ---| MFM2     LDC    MFMC+NMSN   ISSUE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
10453  M02S00149.282l826 ---| MFM2     LDC    MFMC        * FOUND SECTION  NNNN.*
10454  M02S00150.282l826 ---|*         LDC    MFMD        * FILE IDENTIFIER NOT FOUND.*

Seq #  *Modification Id* Act 
----------------------------+
10455  M01S06337.282l826 ---| MFMA     EQU    *-1
10456  M01S06338.282l826 ---|          RJM    IDM

Seq #  *Modification Id* Act 
----------------------------+
10457  M02S06339.282l826 ---| MFM3     LDC    200         SET END OF SET FLAG
10458  M02S06340.282l826 ---|          RAD    HP

Seq #  *Modification Id* Act 
----------------------------+
10459  M02S02219.282l826 ---|
10460  M02S02220.282l826 ---|*         SET FLAG TO CAUSE END OF SET FLAG IN *UFLA* TO BE SET
10461  M02S02221.282l826 ---|*         LATER.  IT CAN NOT BE SET UNTIL AT MAGNET CONTROL POINT.
10462  M02S02222.282l826 ---|
10463  M02S02223.282l826 ---| MFM3     AOM    MABE

Seq #  *Modification Id* Act 
----------------------------+
10464  M01S06341.282l826 ---|          LDN    2           SET END OF SET ERROR STATUS
10465  M01S06342.282l826 ---|          RAM    MABD-1
10466  M01S06343.282l826 ---|          LDC    1001
10467  M01S06344.282l826 ---|          STM    MABD
10468  M01S06345.282l826 ---|
10469  M01S06346.282l826 ---| MFM      SUBR               ENTRY/EXIT
10470  M01S06347.282l826 ---|          LDD    PB          CHECK ERROR MESSAGE
10471  M01S06348.282l826 ---|          LMN    /MTX/IOS

Seq #  *Modification Id* Act 
----------------------------+
10472  M02S06349.282l826 ---|          ZJN    MFM3        IF ILLEGAL OPERATION AT END OF SET

Seq #  *Modification Id* Act 
----------------------------+
10473  M02S00166.282l826 ---|          ZJN    MFM3        IF INCORRECT OPERATION AT END OF SET

Seq #  *Modification Id* Act 
----------------------------+
10474  M01S06350.282l826 ---|          LDD    LG
10475  M01S06351.282l826 ---|          ADD    LG+1

Seq #  *Modification Id* Act 
----------------------------+
10476  M02S06352.282l826 ---|          ZJN    MFM1        IF FILE IDENTIFIER NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
10477  M02S02224.282l826 ---|          ZJP    MFM1        IF FILE IDENTIFIER NOT FOUND

Proceed to Part 8