User Tools

Site Tools


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

Deck 1MT Part 009

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01013 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07965  M02S01013.282l826 ---|          NJN    PCM5        IF NOT PROCESS FUNCTION
Line S01014 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07966  M02S01014.282l826 ---|          LDD    PB
Line S01015 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07967  M02S01015.282l826 ---|          SBN    3
Line S01016 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07968  M02S01016.282l826 ---|          ZJN    PCM6        IF CLEAR JOB ASSIGNMENT
07969  M01S01017.274l797 +++| PCM5     LJM    PCMX        RETURN
Line S01018 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07970  M02S01018.282l826 ---|
Line S01019 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07971  M02S01019.282l826 ---|*         INTERLOCK UNIT VIA SOFTWARE CONNECT.
Line S01020 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07972  M02S01020.282l826 ---|
Line S01021 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07973  M02S01021.282l826 ---| PCM6     LDN    0           SET TO PERFORM SOFTWARE CONNECT
Line S01022 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07974  M02S01022.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
Line S01023 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07975  M02S01023.282l826 ---|
Line S01024 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07976  M02S01024.282l826 ---|*         PROCESS FUNCTION WITHOUT CONNECT.
Line S01025 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07977  M02S01025.282l826 ---|
Line S01026 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07978  M02S01026.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
Line S01027 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07979  M02S01027.282l826 ---|          ADN    /MTX/UJID
Line S01028 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07980  M02S01028.282l826 ---|          CRD    CN
Line S01029 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07981  M02S01029.282l826 ---|          ISTORE //PNRC,(LDN 0)  FORCE DROP OUT
Line S01030 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07982  M02S01030.282l826 ---|          ISTORE /PRESET/CCUA,(UJN /PRESET/CCUX)  DISABLE CONNECT
Line S01031 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07983  M02S01031.282l826 ---|          LJM    //.ECON     PROCESS FUNCTION WITHOUT CONNECT
07984  M01S01032.274l797 +++| PCR      SPACE  4,20
07985  M01S01033.274l797 +++|**        PCR - PROCESS CONNECT REJECT.
07986  M01S01034.274l797 +++|*         IF ERROR RECOVERY IS UNSUCCESSFUL, NO FUNCTION IS PRESET,
07987  M01S01035.274l797 +++|*         AND NO JOB IS ASSIGNED, THE UNIT IS TURNED OFF.
07988  M01S01036.274l797 +++|*
07989  M01S01037.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
07990  M01S01038.274l797 +++|*                (EI) = RETRY COUNT.
07991  M01S01039.274l797 +++|*
Line S01040 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07992  M02S01040.282l826 ---|*         EXIT   TO *.ECON* IF PROCESS FUNCTION WITHOUT CONNECT.
Line S01041 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07993  M02S01041.282l826 ---|*                TO *PNR* IF CONNECT REJECT, NO FUNCTION IS PRESENT,
07994  M01S00568.282l826 +++|*         EXIT   TO *PNR* IF CONNECT REJECT, NO FUNCTION IS PRESENT,
07995  M01S01042.274l797 +++|*                   AND A JOB IS ASSIGNED.  THIS BYPASSES ERROR
07996  M01S01043.274l797 +++|*                   REPORTING AND ERROR RECOVERY.
07997  M01S01044.274l797 +++|*
07998  M01S01045.274l797 +++|*         USES   CM - CM+4, CN - CN+4.
07999  M01S01046.274l797 +++|*
08000  M01S01047.274l797 +++|*         CALLS  SRQ, UAD.
08001  M01S01048.274l797 +++|*
08002  M01S01049.274l797 +++|*         MACROS MONITOR.
08003  M01S01050.274l797 +++|
08004  M01S01051.274l797 +++|
08005  M01S01052.274l797 +++| PCR      SUBR               ENTRY/EXIT
08006  M01S01053.274l797 +++|          LDD    EC
08007  M01S01054.274l797 +++|          LMN    /MTX/CRJ
08008  M01S01055.274l797 +++|          NJN    PCRX        IF NOT CONNECT REJECT
08009  M01S01056.274l797 +++|          RJM    UAD         CHECK IF JOB ASSIGNED
Line S01057 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08010  M02S01057.282l826 ---|          ADN    /MTX/UJID
08011  M01S00569.282l826 +++|          ADK    /MTX/UXRQ
08012  M01S00570.282l826 +++|          CRD    RS
08013  M01S00571.282l826 +++|          ADK    /MTX/UVRI-/MTX/UXRQ
08014  M01S01058.274l797 +++|          CRD    CN
Line S01059 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08015  M02S01059.282l826 ---|          LDD    CN+4
08016  M01S00572.282l826 +++|          LDD    CN
08017  M01S01060.274l797 +++|          NJN    PCR1        IF JOB ASSIGNED
08018  M01S01061.274l797 +++|          LDD    EI
08019  M01S01062.274l797 +++|          SBN    2
08020  M01S01063.274l797 +++|          MJN    PCRX        IF RECOVERY NOT COMPLETE
08021  M01S01064.274l797 +++|
Line S01065 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08022  M02S01065.282l826 ---|*         OFF UNIT.
08023  M01S00573.282l826 +++|*         DOWN UNIT.
08024  M01S01066.274l797 +++|
Line S01067 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08025  M02S01067.282l826 ---|          LDN    1           SET DOWN UNIT
Line S01068 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08026  M02S01068.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
Line S01069 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08027  M02S01069.282l826 ---|          RJM    UAD         PICK UP DOWN STATUS
Line S01070 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08028  M02S01070.282l826 ---|          ADN    /MTX/UST1
Line S01071 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08029  M02S01071.282l826 ---|          CRD    CM
Line S01072 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08030  M02S01072.282l826 ---|          LDD    CM
Line S01073 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08031  M02S01073.282l826 ---|          STD    ED
08032  M01S01074.274l797 +++|          LDD    EO          SET EST ORDINAL
08033  M01S01075.274l797 +++|          STD    CM+1
Line S01076 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08034  M02S01076.282l826 ---|          LDN    /CPS/OFES   SET OFF STATUS
08035  M01S00574.282l826 +++|          LDN    /CPS/DWES   SET DOWN STATUS
08036  M01S01077.274l797 +++|          STD    CM+2
08037  M01S01078.274l797 +++|          MONITOR SEQM       SET EQUIPMENT PARAMETER
08038  M01S01079.274l797 +++|          UJP    PCRX        RETURN
08039  M01S01080.274l797 +++|
08040  M01S01081.274l797 +++| PCR1     LDD    FN
08041  M01S01082.274l797 +++|          ZJP    //PNR       IF NO FUNCTION PENDING
Line S01083 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08042  M02S01083.282l826 ---|          LMN    /MTX/MAB
Line S01084 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08043  M02S01084.282l826 ---|          ZJN    PCR3        IF ISSUE MESSAGE AND ABORT JOB
Line S01085 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08044  M02S01085.282l826 ---|          LMN    /MTX/FNH&/MTX/MAB
Line S01086 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08045  M02S01086.282l826 ---|          NJN    PCR2        IF NOT PROCESS FUNCTION
Line S01087 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08046  M02S01087.282l826 ---|          LDD    PB
Line S01088 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08047  M02S01088.282l826 ---|          SBN    3
Line S01089 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08048  M02S01089.282l826 ---|          ZJN    PCR3        IF CLEAR JOB ASSIGNMENT
Line S01090 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08049  M02S01090.282l826 ---| PCR2     LJM    PCRX        RETURN
Line S01091 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08050  M02S01091.282l826 ---|
Line S01092 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08051  M02S01092.282l826 ---|*         INTERLOCK UNIT VIA SOFTWARE CONNECT.
Line S01093 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08052  M02S01093.282l826 ---|
Line S01094 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08053  M02S01094.282l826 ---| PCR3     LDN    0           SET TO PERFORM SOFTWARE CONNECT
Line S01095 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08054  M02S01095.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
Line S01096 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08055  M02S01096.282l826 ---|
Line S01097 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08056  M02S01097.282l826 ---|*         PROCESS FUNCTION WITHOUT CONNECT.
Line S01098 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08057  M02S01098.282l826 ---|
Line S01099 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08058  M02S01099.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
Line S01100 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08059  M02S01100.282l826 ---|          ADN    /MTX/UJID
Line S01101 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08060  M02S01101.282l826 ---|          CRD    CN
Line S01102 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08061  M02S01102.282l826 ---|          ISTORE //PNRC,(LDN 0)  FORCE DROP OUT
Line S01103 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08062  M02S01103.282l826 ---|          ISTORE /PRESET/CCUA,(UJN /PRESET/CCUX)  DISABLE CONNECT
Line S01104 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08063  M02S01104.282l826 ---|          LJM    //.ECON     PROCESS FUNCTION WITHOUT CONNECT
08064  M01S00575.282l826 +++|          LJM    PCRX        RETURN
08065  M01S01105.274l797 +++| POS      SPACE  4,15
08066  M01S01106.274l797 +++|**        POS - POSITION TAPE.
08067  M01S01107.274l797 +++|*         THIS ROUTINE USES THE LOCATE BLOCK COMMAND TO POSITION
08068  M01S01108.274l797 +++|*         THE TAPE TO THE EXPECTED BLOCK POSITION.
08069  M01S01109.274l797 +++|*
08070  M01S01110.274l797 +++|*         ENTRY  (BL, BL+1) = NOS BLOCK POSITION.
08071  M01S01111.274l797 +++|*                (WP, EP+1) = PHYSICAL BLOCK ID WHEN (BL,BL+1) = 0.
08072  M01S01112.274l797 +++|*
08073  M01S01113.274l797 +++|*         EXIT   (A) = 0 IF NO ERROR.
08074  M01S01114.274l797 +++|*                (EC) = ERROR CODE IF (A) .NE. 0.
08075  M01S01115.274l797 +++|*
08076  M01S01116.274l797 +++|*         USES   T3.
08077  M01S01117.274l797 +++|*
08078  M01S01118.274l797 +++|*         CALLS  /PRESET/GPS, /PRESET/ICF, /PRESET/RBI.
08079  M01S01119.274l797 +++|
08080  M01S01120.274l797 +++|
08081  M01S01121.274l797 +++| POS      SUBR               ENTRY/EXIT
08082  M01S01122.274l797 +++|          RJM    /PRESET/RBI READ BLOCK ID
08083  M01S01123.274l797 +++|          LDM    BIDW
08084  M01S01124.274l797 +++|          STM    POSA
08085  M01S01125.274l797 +++|          SBN    20
08086  M01S01126.274l797 +++|          ZJN    POS1        IF FIRST SEGMENT
08087  M01S01127.274l797 +++|          STM    POSA        SET PHYSICAL REFERENCE BLOCK ID
08088  M01S01128.274l797 +++| POS1     LDD    BL+1
08089  M01S01129.274l797 +++|          SHN    4
08090  M01S01130.274l797 +++|          ADD    EP+1
08091  M01S01131.274l797 +++|          STM    POSA+2      MOVE BLOCK NUMBER TO PARAMETERS
08092  M01S01132.274l797 +++|          SHN    -14
08093  M01S01133.274l797 +++|          STM    POSA+1
08094  M01S01134.274l797 +++|          LDD    BL
08095  M01S01135.274l797 +++|          SHN    4
08096  M01S01136.274l797 +++|          ADD    WP
08097  M01S01137.274l797 +++|          RAM    POSA+1
08098  M01S01138.274l797 +++|          LDN    F0016       LOCATE BLOCK
08099  M01S01139.274l797 +++|          RJM    /PRESET/ICF ISSUE FUNCTION
08100  M01S01140.274l797 +++|          ACN    CH
08101  M01S01141.274l797 +++|          LDN    3
08102  M01S01142.274l797 +++|          OAM    POSA,CH     OUTPUT THE 3 PARAMETER WORDS
08103  M01S01143.274l797 +++|          STD    T3          WORDS NOT TRANSFERRED
08104  M01S01144.274l797 +++|          FJM    *,CH        WAIT FOR DATA TO BE TAKEN
08105  M01S01145.274l797 +++| POS2     LDN    0           WAIT FOR END OF OPERATION
08106  M01S01146.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS GENERAL STATUS
08107  M01S01147.274l797 +++|          MJN    POS2        IF COMMAND RETRY
08108  M01S01148.274l797 +++|          SHN    21-13
08109  M01S01149.274l797 +++|          MJN    POS3        IF ERROR
08110  M01S01150.274l797 +++|          LDD    T3
08111  M01S01151.274l797 +++|          ZJN    POS5        IF ALL WORDS TRANSFERRED
08112  M01S01152.274l797 +++|          LDN    /MTX/CMF    CHANNEL MALFUNCTION
08113  M01S01153.274l797 +++|          UJN    POS4        SAVE ERROR CODE
08114  M01S01154.274l797 +++|
08115  M01S01155.274l797 +++| POS3     LDN    /MTX/STE    STATUS ERROR
08116  M01S01156.274l797 +++| POS4     STD    EC
08117  M01S01157.274l797 +++| POS5     LJM    POSX        RETURN
08118  M01S01158.274l797 +++|
08119  M01S01159.274l797 +++|
08120  M01S01160.274l797 +++| POSA     DATA   0           LOCATE BLOCK PARAMETERS
08121  M01S01161.274l797 +++|          DATA   0           UPPER 12 BITS OF BLOCK NUMBER
08122  M01S01162.274l797 +++|          DATA   0           8/LOWER BITS OF BLOCK NUMBER / 4 UNUSED
Line S01163 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08123  M02S01163.282l826 ---| SRQ      SPACE  4,15
Line S01164 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08124  M02S01164.282l826 ---|**        SRQ - SEND REQUEST TO MAGNET.
Line S01165 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08125  M02S01165.282l826 ---|*
Line S01166 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08126  M02S01166.282l826 ---|*         ENTRY  (A) = 0 IF PERFORM SOFTWARE CONNECT.
Line S01167 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08127  M02S01167.282l826 ---|*                (A) = 1 IF DOWN UNIT.
Line S01168 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08128  M02S01168.282l826 ---|*
Line S01169 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08129  M02S01169.282l826 ---|*         EXIT   TO *PNR5* IF *TDAM* REJECT, ERROR FLAG SET OR DOWN
Line S01170 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08130  M02S01170.282l826 ---|*                   UNIT REJECT AND NO FUNCTION PENDING.
Line S01171 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08131  M02S01171.282l826 ---|*                TO *RET4* IF DOWN UNIT REJECT AND FUNCTION PENDING.
Line S01172 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08132  M02S01172.282l826 ---|*
Line S01173 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08133  M02S01173.282l826 ---|*         USES   CM - CM+4.
Line S01174 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08134  M02S01174.282l826 ---|*
Line S01175 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08135  M02S01175.282l826 ---|*         CALLS  IMR.
Line S01176 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08136  M02S01176.282l826 ---|*
Line S01177 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08137  M02S01177.282l826 ---|*         MACROS PAUSE.
Line S01178 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08138  M02S01178.282l826 ---|
Line S01179 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08139  M02S01179.282l826 ---|
Line S01180 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08140  M02S01180.282l826 ---| SRQ      SUBR               ENTRY/EXIT
Line S01181 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08141  M02S01181.282l826 ---|          STD    CM+4        SAVE FUNCTION
Line S01182 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08142  M02S01182.282l826 ---|          LDN    0
Line S01183 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08143  M02S01183.282l826 ---|          STD    CM+2
Line S01184 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08144  M02S01184.282l826 ---|          STD    CM+3
Line S01185 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08145  M02S01185.282l826 ---|          LDM    UADA        SET UDT ADDRESS
Line S01186 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08146  M02S01186.282l826 ---|          STD    CM
Line S01187 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08147  M02S01187.282l826 ---|          LDD    CF          SET CHANNEL INDEX
Line S01188 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08148  M02S01188.282l826 ---|          SHN    -11
Line S01189 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08149  M02S01189.282l826 ---|          STD    CM+1
Line S01190 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08150  M02S01190.282l826 ---|          LDN    /MTX/URIW
Line S01191 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08151  M02S01191.282l826 ---|          RJM    IMR
Line S01192 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08152  M02S01192.282l826 ---|          NJN    SRQ2        IF WRITE REJECT
Line S01193 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08153  M02S01193.282l826 ---|
Line S01194 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08154  M02S01194.282l826 ---|*         WAIT FOR *MAGNET* TO PROCESS REQUEST.
Line S01195 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08155  M02S01195.282l826 ---|
Line S01196 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08156  M02S01196.282l826 ---| SRQ1     LDD    RA
Line S01197 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08157  M02S01197.282l826 ---|          SHN    6
Line S01198 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08158  M02S01198.282l826 ---|          ADN    /MTX/URIW
Line S01199 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08159  M02S01199.282l826 ---|          CRD    CM
Line S01200 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08160  M02S01200.282l826 ---|          LDD    CM
Line S01201 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08161  M02S01201.282l826 ---|          ZJN    SRQ3        IF REQUEST COMPLETE
Line S01202 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08162  M02S01202.282l826 ---|          LDN    77          DELAY
Line S01203 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08163  M02S01203.282l826 ---|          SBN    1
Line S01204 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08164  M02S01204.282l826 ---|          NJN    *-1
Line S01205 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08165  M02S01205.282l826 ---|          PAUSE
Line S01206 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08166  M02S01206.282l826 ---|          LDD    CM+1
Line S01207 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08167  M02S01207.282l826 ---|          ZJN    SRQ1        IF NO ERROR FLAG
Line S01208 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08168  M02S01208.282l826 ---| SRQ2     LJM    //PNR5      DROP PP
Line S01209 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08169  M02S01209.282l826 ---|
Line S01210 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08170  M02S01210.282l826 ---| SRQ3     LDD    CM+4
Line S01211 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08171  M02S01211.282l826 ---|          ZJN    SRQ4        IF UNIT DOWNED OR CONNECT COMPLETE
Line S01212 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08172  M02S01212.282l826 ---|          LDN    ZERL        CLEAR INTERLOCK
Line S01213 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08173  M02S01213.282l826 ---|          CRD    CM
Line S01214 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08174  M02S01214.282l826 ---|          LDD    RA
Line S01215 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08175  M02S01215.282l826 ---|          SHN    6
Line S01216 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08176  M02S01216.282l826 ---|          ADN    /MTX/URIW
Line S01217 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08177  M02S01217.282l826 ---|          CWD    CM
Line S01218 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08178  M02S01218.282l826 ---|          LDD    FN
Line S01219 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08179  M02S01219.282l826 ---|          LPN    77
Line S01220 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08180  M02S01220.282l826 ---|          ZJN    SRQ2        IF NO FUNCTION PENDING
Line S01221 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08181  M02S01221.282l826 ---|          LJM    RET4        RETURN ERROR
Line S01222 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08182  M02S01222.282l826 ---|
Line S01223 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08183  M02S01223.282l826 ---| SRQ4     LJM    SRQX        RETURN
08184  M01S01224.274l797 +++|          SPACE  4,10
08185  M01S01225.274l797 +++|          ERRNG  ERLA-*      CODE OVERFLOWS HELPER OVERLAY
08186  M01S01226.274l797 +++|          ERRPL  ERLA+5+ZCTL-ERLB  *0CT* OVERFLOWS INTO BUFFER
08187  M01S01227.274l797 +++| CTAB     SPACE  4,10
08188  M01S01228.274l797 +++|*         CHANNEL TABLE.
08189  M01S01229.274l797 +++|
08190  M01S01230.274l797 +++|
08191  M01S01231.274l797 +++| CTAB     CHTB               CHANNEL TABLE
08192  M01S01232.274l797 +++|          OVERLAY (CTS ERRLOG MESSAGE PROCESSOR.),(ERLA+5),P,CEM
08193  M01S01233.274l797 +++| CEM      SPACE  4,10
08194  M01S01234.274l797 +++|**        CEM - CTS ERRLOG MESSAGE PROCESSOR.
08195  M01S01235.274l797 +++|*         THIS ROUTINE ISSUES A MESSAGE TO THE ERROR LOG.
08196  M01S01236.274l797 +++|*
08197  M01S01237.274l797 +++|*         USES   T1.
08198  M01S01238.274l797 +++|*
08199  M01S01239.274l797 +++|*         CALLS  BDM, *CSP*, IDM, MET.
08200  M01S01240.274l797 +++|*
08201  M01S01241.274l797 +++|*         MACROS CALL.
08202  M01S01242.274l797 +++|
08203  M01S01243.274l797 +++|
08204  M01S01244.274l797 +++|          ENTRY  CEM
08205  M01S01245.274l797 +++| CEM      SUBR               ENTRY/EXIT
08206  M01S01246.274l797 +++|          RJM    BDM         BUILD MESSAGE
08207  M01S01247.274l797 +++|          LDM    CEMA
08208  M01S01248.274l797 +++|          ZJN    CEM3        IF NO MESSAGE OR SPECIAL PROCESSOR
08209  M01S01249.274l797 +++|          SBN    MAXM
08210  M01S01250.274l797 +++|          MJN    CEM5        IF SPECIAL PROCESSOR NEEDED
08211  M01S01251.274l797 +++| CEM1     LCN    0           MOVE MESSAGE
08212  M01S01252.274l797 +++|          STD    T1
08213  M01S01253.274l797 +++| CEM2     AOD    T1
08214  M01S01254.274l797 +++|          LDM    *,T1
08215  M01S01255.274l797 +++| CEMA     EQU    *-1
08216  M01S01256.274l797 +++|          STM    MESF+12,T1
08217  M01S01257.274l797 +++|          NJN    CEM2        IF NOT END OF MESSAGE
08218  M01S01258.274l797 +++| CEM3     RJM    MET         MOVE ERPA MESSAGE
08219  M01S01259.274l797 +++|          LDN    ERLN/10000  ISSUE MESSAGE TO ERROR LOG
08220  M01S01260.274l797 +++|          RJM    IDM
08221  M01S01261.274l797 +++|          LDM    CECB
08222  M01S01262.274l797 +++| CEMB     LPN    77
08223  M01S01263.274l797 +++|*         LPN    0           (MESSAGE ISSUE TO USER DISABLED)
08224  M01S01264.274l797 +++|          ZJN    CEM4        IF AT MAGNET CP
08225  M01S01265.274l797 +++|          LDN    CPON/10000  ISSUE MESSAGE TO USER
08226  M01S01266.274l797 +++|          RJM    IDM
08227  M01S01267.274l797 +++| CEM4     UJP    CEMX        RETURN
08228  M01S01268.274l797 +++|
08229  M01S01269.274l797 +++| CEM5     CALL   CSP         CALL SPECIAL PROCESSOR
08230  M01S01270.274l797 +++|          UJN    CEM1        GO MOVE MESSAGE
08231  M01S01271.274l797 +++| MES      SPACE  4,10
08232  M01S01272.274l797 +++|***       MESSAGE DATA.
08233  M01S01273.274l797 +++|*         MESSAGES ARE ISSUED IN THE FOLLOWING FORMAT-
08234  M01S01274.274l797 +++|*         CT,C13-0-02,ABCDEF,RD, 753, GS00000000.
08235  M01S01275.274l797 +++|*         CT,C13,D0000000000000000000000000000000000000000.
08236  M01S01276.274l797 +++|*         CT,C13, 000000000000000000000000,A000000000000.
08237  M01S01277.274l797 +++|*         CT,C13,ERPA 00 - 000000000000000000000000000000.
08238  M01S01278.274l797 +++|*         CT,C13,F07,I02,B00000123.
08239  M01S01279.274l797 +++|*         CT,C13,E00, F=I ,U, TTTTTTTTTTTT.
08240  M01S01280.274l797 +++|*
08241  M01S01281.274l797 +++|*         THE FIRST MESSAGE WOULD TELL THE FOLLOWING-
08242  M01S01282.274l797 +++|*
08243  M01S01283.274l797 +++|*         1)     CHANNEL 13, EQUIPMENT 0, UNIT 2.
08244  M01S01284.274l797 +++|*         2)     VOLUME SERIAL NUMBER IS *ABCDEF*.
08245  M01S01285.274l797 +++|*         3)     OPERATION WAS A READ.  (ANY OPERATION NOT INVOLVING
08246  M01S01286.274l797 +++|*                AN ACTUAL READ OR WRITE WILL BE CALLED A READ.
08247  M01S01287.274l797 +++|*         4)     EST ORDINAL *753* IS THE UNIT THAT THE TAPE WAS LAST
08248  M01S01288.274l797 +++|*                LABELED ON.  THIS WILL ONLY BE AVAILABLE FOR A LABELED
08249  M01S01289.274l797 +++|*                TAPE GENERATED UNDER NOS.  IT WILL NORMALLY BE ZERO IN
08250  M01S01290.274l797 +++|*                ALL OTHER CASES.  THIS FIELD DOES NOT REPRESENT THE
08251  M01S01291.274l797 +++|*                EST ORDINAL OF THE TAPE UNIT THAT THE TAPE IS
08252  M01S01292.274l797 +++|*                CURRENTLY MOUNTED ON.
08253  M01S01293.274l797 +++|*         5)     GENERAL STATUS OF TAPE UNIT IN OCTAL.
08254  M01S01294.274l797 +++|*
08255  M01S01295.274l797 +++|*         THE SECOND MESSAGE WOULD TELL THE FOLLOWING -
08256  M01S01296.274l797 +++|*
08257  M01S01297.274l797 +++|*         1)     CHANNEL 13 - THIS IS REPEATED SO THAT IF ERRORS
08258  M01S01298.274l797 +++|*                ARE OCCURING ON MORE THAN ONE TAPE CHANNEL AT THE
08259  M01S01299.274l797 +++|*                SAME TIME THE TWO MESSAGES CAN BE ASSOCIATED.
08260  M01S01300.274l797 +++|*         2)     THIS IS THE FIRST 20 SENSE BYTES IN HEXADECIMAL.
08261  M01S01301.274l797 +++|*
08262  M01S01302.274l797 +++|*         THE THIRD MESSAGE WOULD TELL THE FOLLOWING -
08263  M01S01303.274l797 +++|*
08264  M01S01304.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08265  M01S01305.274l797 +++|*         2)     THIS IS THE LAST 12 SENSE BYTES IN HEXADECIMAL
08266  M01S01306.274l797 +++|*                FOLLOWED BY ADAPTER STATUS.  ADAPTER STATUS IS
08267  M01S01307.274l797 +++|*                DISPLAYED IN HEXADECIMAL AND IS THE LAST 48 BITS
08268  M01S01308.274l797 +++|*                OF DETAILED STATUS.
08269  M01S01309.274l797 +++|*
08270  M01S01310.274l797 +++|*         THE FOURTH MESSAGE WOULD TELL THE FOLLOWING -
08271  M01S01311.274l797 +++|*
08272  M01S01312.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08273  M01S01313.274l797 +++|*         2)     THE ERROR RECOVERY PROCEDURE ACTION CODE, FROM SENSE
08274  M01S01314.274l797 +++|*                BYTE 3, FOLLOWED BY THE TEXT MESSAGE FOR THE ERPA
08275  M01S01315.274l797 +++|*                CODE.
08276  M01S01316.274l797 +++|*
08277  M01S01317.274l797 +++|*         THE FIFTH MESSAGE WOULD TELL THE FOLLOWING -
08278  M01S01318.274l797 +++|*
08279  M01S01319.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08280  M01S01320.274l797 +++|*         2)     THE ERROR OCCURED ON A SOFTWARE FUNCTION OF 7.
08281  M01S01321.274l797 +++|*         3)     ERROR ITERATION.
08282  M01S01322.274l797 +++|*         4)     BLOCK NUMBER ERROR OCCURRED ON WAS 123.  THIS IS THE
08283  M01S01323.274l797 +++|*                NOS BLOCK NUMBER, NOT THE PHYSICAL BLOCK ID USED BY
08284  M01S01324.274l797 +++|*                THE CARTRIDGE TAPE SUBSYSTEM.  THE FIRST DATA BLOCK
08285  M01S01325.274l797 +++|*                AFTER A LABEL IS NOS BLOCK 0.
08286  M01S01326.274l797 +++|*
08287  M01S01327.274l797 +++|*         THE SIXTH MESSAGE WOULD TELL THE FOLLOWING -
08288  M01S01328.274l797 +++|*
08289  M01S01329.274l797 +++|*         1)     CHANNEL 13 - SAME AS ABOVE.
08290  M01S01330.274l797 +++|*         2)     NOS ERROR CODE.
08291  M01S01331.274l797 +++|*         3)     THE TAPE FORMAT IS I.
08292  M01S01332.274l797 +++|*         4)     THE ERROR IS UNRECOVERED.
08293  M01S01333.274l797 +++|*         5)     TTT CONTAINS ADDTIONAL STATUS.
08294  M01S01334.274l797 +++|
08295  M01S01335.274l797 +++|****      MESSAGE DATA.  NOTE THAT MESSAGES LONGER THAN 40 CHARACTERS
08296  M01S01336.274l797 +++|*         WRAP TO THE NEXT LINE IF DISPLAYED WITH DSDI.  THE START
08297  M01S01337.274l797 +++|*         OF MESSAGES SHOULD BE AT EQUAL INTERVALS SO *SCS* CAN SAVE
08298  M01S01338.274l797 +++|*         REPETITIVE INFORMATION.
08299  M01S01339.274l797 +++|
08300  M01S01340.274l797 +++| MESA     DATA   H*CT,C00-0-00,      ,RD,    , GS00000000.*
08301  M01S01341.274l797 +++|          CON    0
08302  M01S01342.274l797 +++|          BSS    26D+MESA-*
08303  M01S01343.274l797 +++| MESB     DATA   H*CT,C00,D                                        .*
08304  M01S01344.274l797 +++|          CON    0
08305  M01S01345.274l797 +++| MESC     DATA   H*CT,C00,                         ,A            .  *
08306  M01S01346.274l797 +++|          CON    0
08307  M01S01347.274l797 +++| MESD     DATA   H*CT,C00,ERPA   , *
08308  M01S01348.274l797 +++|          CON    0
08309  M01S01349.274l797 +++|          BSS    26D+MESD-*
08310  M01S01350.274l797 +++| MESE     DATA   H*CT,C00,F00,I00,B00000000.*
08311  M01S01351.274l797 +++|          CON    0
08312  M01S01352.274l797 +++|          BSS    26D+MESE-*
08313  M01S01353.274l797 +++| MESF     DATA   C*CT,C00,E00, F=I ,I, *
08314  M01S01354.274l797 +++| MESL     EQU    MESF+MESB-MESA+1
08315  M01S01355.274l797 +++| TERM     SPACE  4,10
08316  M01S01356.274l797 +++| TERM     INDEX
08317  M01S01357.274l797 +++|          INDEX  0,(=C*REC.*)
08318  M01S01358.274l797 +++|          INDEX  /MTX/BTL,(=C*BTL.*)
08319  M01S01359.274l797 +++|          INDEX  /MTX/BNE,BNEM
08320  M01S01360.274l797 +++|          INDEX  /MTX/RDR,WEOM
08321  M01S01361.274l797 +++|          INDEX  /MTX/FRJ,FRJM
08322  M01S01362.274l797 +++|          INDEX  /MTX/WEO,WEOM
08323  M01S01363.274l797 +++|          INDEX  /MTX/CRJ,CRJM
08324  M01S01364.274l797 +++|          INDEX  /MTX/STE,(=C*STE.*)
08325  M01S01365.274l797 +++|          INDEX  /MTX/CMF,(=C*CMF.*)
08326  M01S01366.274l797 +++|          INDEX  /MTX/MDW,(=C*MDW.*)
08327  M01S01367.274l797 +++|          INDEX  /MTX/BFR,(=C*BFR.*)
08328  M01S01368.274l797 +++|          INDEX  /MTX/BFW,(=C*BFW.*)
08329  M01S01369.274l797 +++|          INDEX  /MTX/MERC
08330  M01S01370.274l797 +++|****
08331  M01S01371.274l797 +++|          SPACE  4,10
08332  M01S01372.274l797 +++|**        COMMON DECKS.
08333  M01S01373.274l797 +++|
08334  M01S01374.274l797 +++|
08335  M01S01375.274l797 +++|*CALL     COMPC2D
08336  M01S01376.274l797 +++|          SPACE  4,10
08337  M01S01377.274l797 +++|**        ERRORS REQUIRING ADDITIONAL OVERLAY TO BE LOADED.
08338  M01S01378.274l797 +++|
08339  M01S01379.274l797 +++|
08340  M01S01380.274l797 +++| BEGM     BSS    0
08341  M01S01381.274l797 +++|          LOC    1
08342  M01S01382.274l797 +++| FRJM     BSS    1           FUNCTION REJECT
08343  M01S01383.274l797 +++| WEOM     BSS    1           NO END OF OPERATION
08344  M01S01384.274l797 +++| CRJM     BSS    1           CONNECT REJECT
08345  M01S01385.274l797 +++| BNEM     BSS    1           BLOCK SEQUENCE ERROR
08346  M01S01386.274l797 +++| MAXM     BSS    1           MAXIMUM SPECIAL ERRORS
08347  M01S01387.274l797 +++|
08348  M01S01388.274l797 +++|          ORG    BEGM
08349  M01S01389.274l797 +++| IDM      SPACE  4,10
08350  M01S01390.274l797 +++|**        IDM - ISSUE DAYFILE MESSAGES.
08351  M01S01391.274l797 +++|*         THIS ROUTINE ISSUES THE MESSAGE LINES DEFINED IN TABLE
08352  M01S01392.274l797 +++|*         *IDMB* TO THE DAYFILE.
08353  M01S01393.274l797 +++|*
08354  M01S01394.274l797 +++|*         ENTRY  (A) = MESSAGE DESTINATION CODE
08355  M01S01395.274l797 +++|*
08356  M01S01396.274l797 +++|*         USES   T8.
08357  M01S01397.274l797 +++|*
08358  M01S01398.274l797 +++|*         CALLS  DFM.
08359  M01S01399.274l797 +++|
08360  M01S01400.274l797 +++|
08361  M01S01401.274l797 +++| IDM      SUBR               ENTRY/EXIT
08362  M01S01402.274l797 +++|          LMC    LMCI        SET MESSAGE DESTINATION CODE
08363  M01S01403.274l797 +++|          STM    IDMA
08364  M01S01404.274l797 +++|          LDN    0           INITIALIZE MESSAGE INDEX
08365  M01S01405.274l797 +++|          STD    T8
08366  M01S01406.274l797 +++|
08367  M01S01407.274l797 +++|*         LOOP UNTIL ALL MESSAGE LINES ARE ISSUED TO THE DAYFILE.
08368  M01S01408.274l797 +++|
08369  M01S01409.274l797 +++| IDM1     LDM    IDMB,T8     GET NEXT MESSAGE POINTER
08370  M01S01410.274l797 +++|          ZJN    IDMX        IF ALL MESSAGES ISSUED
08371  M01S01411.274l797 +++|          LMC    **          ADD MESSAGE DESTINATION
08372  M01S01412.274l797 +++| IDMA     EQU    *-2         (MESSAGE DESTINATION CODE)
08373  M01S01413.274l797 +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
08374  M01S01414.274l797 +++|          AOD    T8          ADVANCE MESSAGE INDEX
08375  M01S01415.274l797 +++|          UJN    IDM1        ISSUE NEXT MESSAGE LINE
08376  M01S01416.274l797 +++|
08377  M01S01417.274l797 +++|
08378  M01S01418.274l797 +++|*         TABLE OF MESSAGE LINE POINTERS FOR 6 LINES.
08379  M01S01419.274l797 +++|
08380  M01S01420.274l797 +++| IDMB     BSS    0
08381  M01S01421.274l797 +++|          LOC    0
08382  M01S01422.274l797 +++|          CON    MESA        LINE 1
08383  M01S01423.274l797 +++|          CON    MESB        LINE 2
08384  M01S01424.274l797 +++|          CON    MESC        LINE 3
08385  M01S01425.274l797 +++|          CON    MESD        LINE 4
08386  M01S01426.274l797 +++|          CON    MESE        LINE 5
08387  M01S01427.274l797 +++|          CON    MESF        LINE 6
08388  M01S01428.274l797 +++|          CON    0           TERMINATOR
08389  M01S01429.274l797 +++|          LOC    *O
08390  M01S01430.274l797 +++| MET      SPACE  4,15
08391  M01S01431.274l797 +++|**        MET - MOVE ERPA TEXT MESSAGE.
08392  M01S01432.274l797 +++|*
08393  M01S01433.274l797 +++|*         USES   T1, T2.
08394  M01S01434.274l797 +++|*
08395  M01S01435.274l797 +++|*         CALLS  ERP.
08396  M01S01436.274l797 +++|*
08397  M01S01437.274l797 +++|*         MACROS CALL.
08398  M01S01438.274l797 +++|
08399  M01S01439.274l797 +++|
08400  M01S01440.274l797 +++| MET2     LDC    2R.
08401  M01S01441.274l797 +++|          STM    MESD+7      SET END OF LINE WHEN NO MESSAGE
08402  M01S01442.274l797 +++|
08403  M01S01443.274l797 +++| MET      SUBR               ENTRY/EXIT
08404  M01S01444.274l797 +++|          CALL   ERP         LOAD ERPA TEXT MESSAGES
08405  M01S01445.274l797 +++|          LDM    MESD+6
08406  M01S01446.274l797 +++|          LMC    2R
08407  M01S01447.274l797 +++|          ZJN    MET2        IF NO ERPA CODE
08408  M01S01448.274l797 +++|          LDM    CTSD+2
08409  M01S01449.274l797 +++|          SHN    -4
08410  M01S01450.274l797 +++|          SBN    0#21
08411  M01S01451.274l797 +++|          MJN    MET2        IF NO ENGLISH TEXT
08412  M01S01452.274l797 +++|          STD    T1          INDEX INTO TABLE OF ADDRESSES
08413  M01S01453.274l797 +++|          LDM    /ERP/ERPA,T1
08414  M01S01454.274l797 +++|          ZJN    MET2        IF NO TEXT
08415  M01S01455.274l797 +++|          STD    T1          START OF ERPA TEXT
08416  M01S01456.274l797 +++|          LDC    MESD+10
08417  M01S01457.274l797 +++|          STD    T2          DESTINATION FOR ERPA TEXT
08418  M01S01458.274l797 +++| MET1     LDI    T1
08419  M01S01459.274l797 +++|          STI    T2
08420  M01S01460.274l797 +++|          ZJN    METX        IF ALL TEXT MOVED
08421  M01S01461.274l797 +++|          AOD    T1
08422  M01S01462.274l797 +++|          AOD    T2
08423  M01S01463.274l797 +++|          UJN    MET1        CONTINUE MOVING TEXT
08424  M01S01464.274l797 +++|          TITLE  OVERLAY AREA.
08425  M01S01465.274l797 +++| CDA      SPACE  4,10
08426  M01S01466.274l797 +++|**        CDA - CONVERT DATA (4 DIGITS).
08427  M01S01467.274l797 +++|*
08428  M01S01468.274l797 +++|*         ENTRY  (A, 17 - 12) = ADDRESS WHERE DATA CONTAINED.
08429  M01S01469.274l797 +++|*                (A, 11 - 0) = ADDRESS WHERE TO STORE RESULT.
08430  M01S01470.274l797 +++|*
08431  M01S01471.274l797 +++|*         USES   T2, T3.
08432  M01S01472.274l797 +++|*
08433  M01S01473.274l797 +++|*         CALLS  C2D.
08434  M01S01474.274l797 +++|
08435  M01S01475.274l797 +++|
08436  M01S01476.274l797 +++| CDA      SUBR               ENTRY/EXIT
08437  M01S01477.274l797 +++|          STD    T3          SAVE DESTINATION ADDRESS
08438  M01S01478.274l797 +++|          SHN    -14
08439  M01S01479.274l797 +++|          STD    T2          SAVE DATA ADDRESS
08440  M01S01480.274l797 +++|          LDI    T2          CONVERT FIRST 2 DIGITS
08441  M01S01481.274l797 +++|          SHN    -6
08442  M01S01482.274l797 +++|          RJM    C2D
08443  M01S01483.274l797 +++|          STI    T3
08444  M01S01484.274l797 +++|          LDI    T2          CONVERT SECOND 2 DIGITS
08445  M01S01485.274l797 +++|          RJM    C2D
08446  M01S01486.274l797 +++|          STM    1,T3
08447  M01S01487.274l797 +++|          UJN    CDAX        RETURN
08448  M01S01488.274l797 +++|          ERRNG  ERLB-*      IF OVERFLOW INTO OVERLAY AREA
08449  M01S01489.274l797 +++|
08450  M01S01490.274l797 +++|
08451  M01S01491.274l797 +++|*         NOTE - THE FOLLOWING CODE MAY BE OVERLAID IF THE SPECIAL
08452  M01S01492.274l797 +++|*         ERROR MESSAGES OVERLAY IS REQUIRED OR IF AN ERPA CODE IS
08453  M01S01493.274l797 +++|*         PRESENT.
08454  M01S01494.274l797 +++| CDN      SPACE  4,15
08455  M01S01495.274l797 +++|**        CDN - CONVERT DATA.
08456  M01S01496.274l797 +++|*         THIS ROUTINE CONVERTS 12-BIT HEX DATA TO DISPLAY CODE.
08457  M01S01497.274l797 +++|*
08458  M01S01498.274l797 +++|*         ENTRY  (A, 21 - 14 = 8-BIT BYTES TO CONVERT.
08459  M01S01499.274l797 +++|*                (A, 13 - 0) = SOURCE OF DATA TO CONVERT.
08460  M01S01500.274l797 +++|*                (T1) = STARTING NIBBLE POSITION (0, 1, OR 2).
08461  M01S01501.274l797 +++|*                (CN+3) = DESTINATION OF CONVERTED DATA.
08462  M01S01502.274l797 +++|*
08463  M01S01503.274l797 +++|*         EXIT   (CN+3) = UPDATED TO DESTINATION FOR NEXT CONVERTED
08464  M01S01504.274l797 +++|*                         BYTE.
08465  M01S01505.274l797 +++|*
08466  M01S01506.274l797 +++|*         USES   CN+1, CN+2.
08467  M01S01507.274l797 +++|*
08468  M01S01508.274l797 +++|*         CALLS  CNN.
08469  M01S01509.274l797 +++|
08470  M01S01510.274l797 +++|
08471  M01S01511.274l797 +++| CDN      SUBR               ENTRY/EXIT
08472  M01S01512.274l797 +++|          STD    CN+1        STARTING ADDRESS OF DATA TO CONVERT
08473  M01S01513.274l797 +++|          SHN    -14
08474  M01S01514.274l797 +++|          STD    CN+2        8-BIT BYTES TO CONVERT
08475  M01S01515.274l797 +++| CDN1     RJM    CNN         CONVERT NIBBLE
08476  M01S01516.274l797 +++|          SHN    6
08477  M01S01517.274l797 +++|          STI    CN+3
08478  M01S01518.274l797 +++|          RJM    CNN         CONVERT NIBBLE
08479  M01S01519.274l797 +++|          RAI    CN+3
08480  M01S01520.274l797 +++|          AOD    CN+3        UPDATE POINTER TO DESTINATION ADDRESS
08481  M01S01521.274l797 +++|          SOD    CN+2
08482  M01S01522.274l797 +++|          NJN    CDN1        IF MORE BYTES TO CONVERT
08483  M01S01523.274l797 +++|          UJN    CDNX        RETURN
08484  M01S01524.274l797 +++|CNN       SPACE  5,15
08485  M01S01525.274l797 +++|**        CNN - CONVERT NIBBLE.
08486  M01S01526.274l797 +++|*
08487  M01S01527.274l797 +++|*         ENTRY  (T1) = NIBBLE TO CONVERT (0, 1, OR 2).
08488  M01S01528.274l797 +++|*                (CN+1) = ADDRESS OF DATA TO CONVERT.
08489  M01S01529.274l797 +++|*
08490  M01S01530.274l797 +++|*         EXIT   (A) = DISPLAY CODE FOR NIBBLE.
08491  M01S01531.274l797 +++|*                (CN+1) = UPDATED TO ADDRESS OF NEXT BYTE TO CONVERT.
08492  M01S01532.274l797 +++|*                (T1) = UPDATED TO POSITION OF NEXT NIBBLE.
08493  M01S01533.274l797 +++|*
08494  M01S01534.274l797 +++|*         USES   T1, T2.
08495  M01S01535.274l797 +++|
08496  M01S01536.274l797 +++|
08497  M01S01537.274l797 +++| CNN      SUBR               ENTRY/EXIT
08498  M01S01538.274l797 +++|          LDM    CNNB,T1
08499  M01S01539.274l797 +++|          STM    CNNA        SET SHIFT INSTRUCTION
08500  M01S01540.274l797 +++|          LDI    CN+1
08501  M01S01541.274l797 +++|          SHN    0
08502  M01S01542.274l797 +++| CNNA     EQU    *-1         SHN -10, SHN -4, OR SHN 0
08503  M01S01543.274l797 +++|          LPN    17
08504  M01S01544.274l797 +++|          SBN    11
08505  M01S01545.274l797 +++|          ZJN    CNN1        IF 9
08506  M01S01546.274l797 +++|          PJN    CNN2        IF A - F
08507  M01S01547.274l797 +++| CNN1     ADN    1R0+11      0 - 9
08508  M01S01548.274l797 +++| CNN2     STD    T2
08509  M01S01549.274l797 +++|          AOD    T1          UPDATE NIBBLE POINTER
08510  M01S01550.274l797 +++|          SBN    3
08511  M01S01551.274l797 +++|          NJN    CNN3        IF NO WRAP
08512  M01S01552.274l797 +++|          STD    T1
08513  M01S01553.274l797 +++|          AOD    CN+1        ADDRESS OF DATA TO CONVERT
08514  M01S01554.274l797 +++| CNN3     LDD    T2
08515  M01S01555.274l797 +++|          UJN    CNNX        RETURN
08516  M01S01556.274l797 +++|
08517  M01S01557.274l797 +++|
08518  M01S01558.274l797 +++| CNNB     CON    1067        SHN  -10
08519  M01S01559.274l797 +++|          CON    1073        SHN   -4
08520  M01S01560.274l797 +++|          CON    1000        SHN    0
08521  M01S01561.274l797 +++| RUW      SPACE  4,10
08522  M01S01562.274l797 +++|**        RUW - READ UNIT DESCRIPTOR TABLE WORD.
08523  M01S01563.274l797 +++|*         USED TO READ UDT WHEN POSSIBLY NOT AT MAGNET CP.
08524  M01S01564.274l797 +++|*
08525  M01S01565.274l797 +++|*         ENTRY  (A) = UDT WORD.
08526  M01S01566.274l797 +++|*
08527  M01S01567.274l797 +++|*         EXIT   (CN - CN+4) = WORD READ.
08528  M01S01568.274l797 +++|*
08529  M01S01569.274l797 +++|*         USES   T1, CM - CM+4, CN - CN+4.
08530  M01S01570.274l797 +++|*
08531  M01S01571.274l797 +++|*         MACROS DELAY, MONITOR, PAUSE.
08532  M01S01572.274l797 +++|
08533  M01S01573.274l797 +++|
08534  M01S01574.274l797 +++| RUW2     LDD    MA
08535  M01S01575.274l797 +++|          CRD    CN
08536  M01S01576.274l797 +++|
08537  M01S01577.274l797 +++| RUW      SUBR               ENTRY/EXIT
08538  M01S01578.274l797 +++|          STD    T1
08539  M01S01579.274l797 +++| RUW1     LDM    UADA
08540  M01S01580.274l797 +++|          ADD    T1
08541  M01S01581.274l797 +++|          STD    CM+4
08542  M01S01582.274l797 +++|          LDD    HN          REQUEST 1 WORD
08543  M01S01583.274l797 +++|          STD    CM+3
08544  M01S01584.274l797 +++|          LDN    0           REQUEST READ FROM *MAGNET*
08545  M01S01585.274l797 +++|          STD    CM+1
08546  M01S01586.274l797 +++|          LCN    7777-/SSD/MTSI  SET *MAGNET* SUBSYSTEM IDENTIFICATION
08547  M01S01587.274l797 +++|          STD    CM+2
08548  M01S01588.274l797 +++|          MONITOR TDAM
08549  M01S01589.274l797 +++|          LDD    CM+1
08550  M01S01590.274l797 +++|          LMN    1
08551  M01S01591.274l797 +++|          NJN    RUW2        IF MOVE NOT IN PROGRESS
08552  M01S01592.274l797 +++|          PAUSE  NE
08553  M01S01593.274l797 +++|          DELAY
08554  M01S01594.274l797 +++|          UJN    RUW1        REISSUE REQUEST
08555  M01S01595.274l797 +++| BDM      SPACE  4,15
08556  M01S01596.274l797 +++|**        BDM - BUILD MESSAGE.
08557  M01S01597.274l797 +++|*         THIS ROUTINE BUILDS THE ERROR LOG MESSAGES.  (EXCEPT THE
08558  M01S01598.274l797 +++|*         DESCRIPTIVE MESSAGE IN THE 6TH LINE AND THE ERPA TEXT
08559  M01S01599.274l797 +++|*         MESSAGE.
08560  M01S01600.274l797 +++|*
08561  M01S01601.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
08562  M01S01602.274l797 +++|*                (EI) = RETRY COUNT.
08563  M01S01603.274l797 +++|*
08564  M01S01604.274l797 +++|*         USES   T1, CM - CM+4.
08565  M01S01605.274l797 +++|*
08566  M01S01606.274l797 +++|*         CALLS  CDA, CDN, C2D, MCH, RUW, SCS.
08567  M01S01607.274l797 +++|*
08568  M01S01608.274l797 +++|*         MACROS CHTE, SFA.
08569  M01S01609.274l797 +++|
08570  M01S01610.274l797 +++|
08571  M01S01611.274l797 +++| BDM      SUBR               ENTRY/EXIT
08572  M01S01612.274l797 +++|          LDC    CTAB        MODIFY CHANNELS
08573  M01S01613.274l797 +++|          RJM    MCH
08574  M01S01614.274l797 +++|          LDM    //LOV
08575  M01S01615.274l797 +++|          STM    CEM         SET RETURN ADDRESS
08576  M01S01616.274l797 +++|          LDM    TERM,EC
08577  M01S01617.274l797 +++|          STM    CEMA        SAVE TABLE ENTRY
08578  M01S01618.274l797 +++|
08579  M01S01619.274l797 +++|*         MESSAGE BUILD.
08580  M01S01620.274l797 +++|
08581  M01S01621.274l797 +++|          SFA    EST,EO      SET DEVICE TYPE IN MESSAGE LINES
08582  M01S00576.282l826 +++|          ADK    EQDE
08583  M01S01622.274l797 +++|          CRD    CM
08584  M01S01623.274l797 +++|          LDD    CM+3
08585  M01S01624.274l797 +++|          RJM    SCS         SET CHARACTERS
08586  M01S01625.274l797 +++|          CHTE   *           SET CHANNEL NUMBER IN MESSAGE LINES
08587  M01S01626.274l797 +++|          LDN    CH
08588  M01S01627.274l797 +++|          RJM    C2D
08589  M01S01628.274l797 +++|          ADC    2*10000
08590  M01S01629.274l797 +++|          RJM    SCS
Line S01630 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08591  M02S01630.282l826 ---|          LDD    ED          SET UNIT NUMBER
08592  M01S00577.282l826 +++|          LDD    CM+4        SET UNIT NUMBER
08593  M01S01631.274l797 +++|          SHN    -3
08594  M01S01632.274l797 +++|          LPN    1
08595  M01S01633.274l797 +++|          RAM    MESA+4
Line S01634 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08596  M02S01634.282l826 ---|          LDD    ED
08597  M01S00578.282l826 +++|          LDD    CM+4
08598  M01S01635.274l797 +++|          LPN    7
08599  M01S01636.274l797 +++|          SHN    6
08600  M01S01637.274l797 +++|          RAM    MESA+5
08601  M01S01638.274l797 +++|          LDN    /MTX/UVSN   READ UP VSN
08602  M01S01639.274l797 +++|          RJM    RUW
08603  M01S01640.274l797 +++|          LDD    CN
08604  M01S01641.274l797 +++|          ZJN    BDM1        IF VSN NOT SPECIFIED
08605  M01S01642.274l797 +++|          STM    MESA+6
08606  M01S01643.274l797 +++|          LDD    CN+1
08607  M01S01644.274l797 +++|          STM    MESA+7
08608  M01S01645.274l797 +++|          LDD    CN+2
08609  M01S01646.274l797 +++|          STM    MESA+10
08610  M01S01647.274l797 +++| BDM1     LDD    FN
08611  M01S01648.274l797 +++|          SBN    /MTX/WTF
08612  M01S01649.274l797 +++|          MJN    BDM2        IF NOT WRITE OPERATION
08613  M01S01650.274l797 +++|          LDN    1RW-1RR     CHANGE *RD* TO *WD*
08614  M01S01651.274l797 +++|          RAM    MESA+11
Line S01652 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08615  M02S01652.282l826 ---| BDM2     LDN    /MTX/UUFN   GET EST ORDINAL WRITTEN ON
08616  M01S00579.282l826 +++| BDM2     LDN    /MTX/UGNU   GET EST ORDINAL WRITTEN ON
08617  M01S01653.274l797 +++|          RJM    RUW
Line S01654 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08618  M02S01654.282l826 ---|          LDD    CN+4
08619  M01S00580.282l826 +++|          LDD    CN+1
08620  M01S01655.274l797 +++|          ZJN    BDM3        IF EST NOT AVAILABLE
08621  M01S01656.274l797 +++|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
08622  M01S01657.274l797 +++|          ADC    2R 0
08623  M01S01658.274l797 +++|          STM    MESA+13
Line S01659 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08624  M02S01659.282l826 ---|          LDD    CN+4        CONVERT LOWER TWO DIGITS OF EST ORDINAL
08625  M01S00581.282l826 +++|          LDD    CN+1        CONVERT LOWER TWO DIGITS OF EST ORDINAL
08626  M01S01660.274l797 +++|          RJM    C2D
08627  M01S01661.274l797 +++|          STM    MESA+14
08628  M01S01662.274l797 +++|
08629  M01S01663.274l797 +++|*         MOVE GENERAL STATUS.
08630  M01S01664.274l797 +++|
08631  M01S01665.274l797 +++| BDM3     LDD    DS
08632  M01S01666.274l797 +++|          SHN    -6
08633  M01S01667.274l797 +++|          RJM    C2D
08634  M01S01668.274l797 +++|          STM    MESA+17
08635  M01S01669.274l797 +++|          LDD    DS
08636  M01S01670.274l797 +++|          RJM    C2D
08637  M01S01671.274l797 +++|          STM    MESA+20
Line S01672 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08638  M02S01672.ns2794  ---|          LDM    /PRESET/GPSA
08639  M01S00022.ns2794  +++|          LDM    CTGS
08640  M01S01673.274l797 +++|          SHN    -6
08641  M01S01674.274l797 +++|          RJM    C2D
08642  M01S01675.274l797 +++|          STM    MESA+21
Line S01676 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08643  M02S01676.ns2794  ---|          LDM    /PRESET/GPSA
08644  M01S00023.ns2794  +++|          LDM    CTGS
08645  M01S01677.274l797 +++|          RJM    C2D
08646  M01S01678.274l797 +++|          STM    MESA+22
08647  M01S01679.274l797 +++|          LDD    DS
08648  M01S01680.274l797 +++|          SHN    21-13
Line S01681 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08649  M02S01681.1mt46   ---|          PJN    BDM4        IF ALERT NOT SET
08650  M01S00014.1mt46   +++|          PJP    BDM5        IF ALERT NOT SET
Line S01682 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08651  M02S01682.ns2794  ---|          LDM    /PRESET/GPSA
08652  M01S00024.ns2794  +++|          LDM    CTGS
08653  M01S01683.274l797 +++|          SHN    21-12
Line S01684 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08654  M02S01684.1mt46   ---| BDM4     PJN    BDM5        IF NOT UNIT CHECK
08655  M01S00015.1mt46   +++|          MJN    BDM4        IF UNIT CHECK
08656  M01S00016.1mt46   +++|          LDC    MESC+21
08657  M01S00017.1mt46   +++|          STD    CN+3        DESTINATION ADDRESS
08658  M01S00018.1mt46   +++|          UJN    BDM4.1      SAVE CCC STATUS
08659  M01S01685.274l797 +++|
08660  M01S01686.274l797 +++|*         MOVE DETAILED STATUS.
08661  M01S01687.274l797 +++|
Line S01688 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08662  M02S01688.1mt46   ---|          LDN    0
Line S01689 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08663  M02S01689.1mt46   ---|          STD    T1          FIRST NIBBBLE
08664  M01S00019.1mt46   +++| BDM4     LDN    0
08665  M01S00020.1mt46   +++|          STD    T1          FIRST NIBBLE
08666  M01S01690.274l797 +++|          LDC    MESB+4
08667  M01S01691.274l797 +++|          STD    CN+3        DESTINATION ADDRESS
08668  M01S01692.274l797 +++|          LDC    20D*10000+CTSD
08669  M01S01693.274l797 +++|          RJM    CDN         CONVERT FIRST 20 SENSE BYTES
08670  M01S01694.274l797 +++|          LDC    MESC+4
08671  M01S01695.274l797 +++|          STD    CN+3        DESTINATION ADDRESS
08672  M01S01696.274l797 +++|          LDC    12D*10000+CTSD+15
08673  M01S01697.274l797 +++|          RJM    CDN         CONVERT LAST 12 SENSE BYTES
08674  M01S01698.274l797 +++|          AOD    CN+3        DESTINATION ADDRESS
Line S01699 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08675  M02S01699.1mt46   ---|          LDN    0
Line S01700 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08676  M02S01700.1mt46   ---|          STD    T1          FIRST NIBBBLE
08677  M01S00021.1mt46   +++| BDM4.1   LDN    0
08678  M01S00022.1mt46   +++|          STD    T1          FIRST NIBBLE
08679  M01S01701.274l797 +++|          LDC    6*10000+CTSD+26
08680  M01S01702.274l797 +++|          RJM    CDN         CONVERT ADAPTER STATUS
08681  M01S01703.274l797 +++|          LDM    MESB+7
08682  M01S01704.274l797 +++|          STM    MESD+6      SET ERPA CODE
08683  M01S01705.274l797 +++|          UJN    BDM6        DO CONVERSION FOR LINE 5
08684  M01S01706.274l797 +++|
08685  M01S01707.274l797 +++| BDM5     LDC    2R.         SHORTEN MESSAGE LINES WHEN NO STATUS
08686  M01S01708.274l797 +++|          STM    MESB+7
08687  M01S01709.274l797 +++|          STM    MESC+7
08688  M01S01710.274l797 +++|          LDN    0
08689  M01S01711.274l797 +++|          STM    MESB+10
08690  M01S01712.274l797 +++|          STM    MESC+10
08691  M01S01713.274l797 +++|
08692  M01S01714.274l797 +++|*         CONVERSION FOR LINE 5.
08693  M01S01715.274l797 +++|
08694  M01S01716.274l797 +++| BDM6     LDD    FN          CONVERT SOFTWARE FUNCTION NUMBER
08695  M01S01717.274l797 +++|          RJM    C2D
08696  M01S01718.274l797 +++|          STM    MESE+4
08697  M01S01719.274l797 +++|          LDD    EI          CONVERT ERROR ITERATION NUMBER
08698  M01S01720.274l797 +++|          RJM    C2D
08699  M01S01721.274l797 +++|          STM    MESE+6
08700  M01S01722.274l797 +++|          LDC    BL*10000+MESE+10  CONVERT BLOCK NUMBER
08701  M01S01723.274l797 +++|          RJM    CDA
08702  M01S01724.274l797 +++|          LDC    BL*10000+10000+MESE+12  CONVERT BLOCK NUMBER
08703  M01S01725.274l797 +++|          RJM    CDA
08704  M01S01726.274l797 +++|
08705  M01S01727.274l797 +++|*         CONVERSION FOR LINE 6.
08706  M01S01728.274l797 +++|
08707  M01S01729.274l797 +++|          LDD    EC          SET ERROR CODE
08708  M01S01730.274l797 +++|          RJM    C2D
08709  M01S01731.274l797 +++|          STM    MESF+4
Line S01732 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08710  M02S01732.282l826 ---|          LDM    BDMA,FM     SAVE FORMAT
08711  M01S00582.282l826 +++|          LDD    FM          SET FORMAT
08712  M01S00583.282l826 +++|          SHN    -6
08713  M01S00584.282l826 +++|          STD    T1
08714  M01S00585.282l826 +++|          LDM    BDMA,T1     SAVE FORMAT
08715  M01S01733.274l797 +++|          STM    MESF+7
08716  M01S01734.274l797 +++|          LDD    EC
08717  M01S01735.274l797 +++|          NJN    BDM7        IF NOT RECOVERABLE ERROR
08718  M01S01736.274l797 +++|          LDN    1RR-1RI
08719  M01S01737.274l797 +++|          UJN    BDM8        INDICATE RECOVERABLE MESSAGE
08720  M01S01738.274l797 +++|
08721  M01S01739.274l797 +++| BDM7     LDD    EI
08722  M01S01740.274l797 +++|          SBN    2
08723  M01S01741.274l797 +++|          MJN    BDM9        IF NOT UNRECOVERABLE
08724  M01S01742.274l797 +++|          LDN    1RU-1RI     INDICATE UNRECOVERABLE MESSAGE
08725  M01S01743.274l797 +++| BDM8     RAM    MESF+10
08726  M01S01744.274l797 +++| BDM9     LDD    SP          CHECK ERROR MESSAGE PROCESSING OPTION
08727  M01S01745.274l797 +++|          SHN    21-7
08728  M01S01746.274l797 +++|          PJN    BDM10       IF USER DAYFILE MESSAGES ARE DISABLED
08729  M01S01747.274l797 +++|          LDD    EC
08730  M01S01748.274l797 +++|          ZJN    BDM11       IF RECOVERED MESSAGE
08731  M01S01749.274l797 +++|          LDD    EI
08732  M01S01750.274l797 +++|          ZJN    BDM11       IF FIRST ITERATION
08733  M01S01751.274l797 +++| BDM10    LDC    LPNI+0      DISABLE MESSAGE ISSUE
08734  M01S01752.274l797 +++|          STM    CEMB
08735  M01S01753.274l797 +++| BDM11    LJM    BDMX        RETURN
08736  M01S01754.274l797 +++|
08737  M01S01755.274l797 +++|
08738  M01S01756.274l797 +++| BDMA     CON    2RI         I FORMAT
08739  M01S01757.274l797 +++|          CON    2RSI        SI FORMAT
08740  M01S01758.274l797 +++|          CON    2RF         F FORMAT
08741  M01S01759.274l797 +++|          CON    2RS         S FORMAT
08742  M01S01760.274l797 +++|          CON    2RL         L FORMAT
08743  M01S01761.274l797 +++|          CON    2RLI        LI FORMAT
08744  M01S01762.274l797 +++| SCS      SPACE  4,10
08745  M01S01763.274l797 +++|**        SCS - STORE CHARACTERS IN MESSAGE LINES.
08746  M01S01764.274l797 +++|*
08747  M01S01765.274l797 +++|*         ENTRY  (A, 17 - 12) = MESSAGE FIELD INDEX.
08748  M01S01766.274l797 +++|*                (A, 11 -  0) = CHARACTERS.
08749  M01S01767.274l797 +++|*
08750  M01S01768.274l797 +++|*         USES   T1.
08751  M01S01769.274l797 +++|
08752  M01S01770.274l797 +++|
08753  M01S01771.274l797 +++| SCS      SUBR               ENTRY/EXIT
08754  M01S01772.274l797 +++|          STD    T0          SAVE CHARACTERS
08755  M01S01773.274l797 +++|          SHN    -14
08756  M01S01774.274l797 +++|          ADC    MESA
08757  M01S01775.274l797 +++|          STD    T1
08758  M01S01776.274l797 +++| SCS1     LDD    T0
08759  M01S01777.274l797 +++|          STI    T1
08760  M01S01778.274l797 +++|          LDN    MESB-MESA
08761  M01S01779.274l797 +++|          RAD    T1
08762  M01S01780.274l797 +++|          ADC    -MESL
08763  M01S01781.274l797 +++|          MJN    SCS1        LOOP
08764  M01S01782.274l797 +++|          UJN    SCSX        RETURN
08765  M01S01783.274l797 +++| CTAB     SPACE  4,10
08766  M01S01784.274l797 +++|*         CHANNEL TABLE.
08767  M01S01785.274l797 +++|
08768  M01S01786.274l797 +++|
08769  M01S01787.274l797 +++| CTAB     CHTB               CHANNEL TABLE
08770  M01S01788.274l797 +++|
08771  M01S01789.274l797 +++|          ERRNG  2*473+ERLA+5-*  ERROR PROCESSOR OVERFLOW
08772  M01S01790.274l797 +++|          OVERLAY (CTS SPECIAL MESSAGE PROCESSOR.),(ERLB+5),P,CSP
08773  M01S01791.274l797 +++| CSP      SPACE  4,10
08774  M01S01792.274l797 +++|**        CSP - CTS ERRLOG MESSAGE SPECIAL PROCESSOR.
08775  M01S01793.274l797 +++|*         THIS OVERLAY IS CALLED FROM *CEM* FOR ERRORS WHICH
08776  M01S01794.274l797 +++|*         REQUIRE ADDITIONAL PROCESSING. SEE TABLE IN *CEM* FOR
08777  M01S01795.274l797 +++|*         LIST OF ERRORS WHICH REQUIRE THIS OVERLAY.
08778  M01S01796.274l797 +++|*
08779  M01S01797.274l797 +++|*         ENTRY  (/CEM/CEMA) = INDEX TO PROCESSOR.
08780  M01S01798.274l797 +++|*
08781  M01S01799.274l797 +++|*         EXIT   (/CEM/CEMA) = MESSAGE ADDRESS.
08782  M01S01800.274l797 +++|*
08783  M01S01801.274l797 +++|*         CALLS  BNP, CKR, ECN, FRE, FSC.
08784  M01S01802.274l797 +++|
08785  M01S01803.274l797 +++|
08786  M01S01804.274l797 +++|          ENTRY  CSP
08787  M01S01805.274l797 +++| CSP      SUBR               ENTRY/EXIT
08788  M01S01806.274l797 +++|          LDM    /CEM/CEMA   GET PROCESSOR INDEX
08789  M01S01807.274l797 +++|          STD    T1
08790  M01S01808.274l797 +++|          LDM    SPRI,T1
08791  M01S01809.274l797 +++|          STM    CSPA
08792  M01S01810.274l797 +++|          RJM    *           PROCESS ERROR
08793  M01S01811.274l797 +++| CSPA     EQU    *-1
08794  M01S01812.274l797 +++|          STM    /CEM/CEMA   SET MESSAGE ADDRESS
08795  M01S01813.274l797 +++|          UJN    CSPX        RETURN
08796  M01S01814.274l797 +++|
08797  M01S01815.274l797 +++|          TITLE  SPECIAL PROCESSORS.
08798  M01S01816.274l797 +++| SPRI     SPACE  4,10
08799  M01S01817.274l797 +++| SPRI     INDEX  0,//HNG
08800  M01S01818.274l797 +++|          INDEX  /CEM/FRJM,FRE
08801  M01S01819.274l797 +++|          INDEX  /CEM/WEOM,CKR
08802  M01S01820.274l797 +++|          INDEX  /CEM/CRJM,ECN
08803  M01S01821.274l797 +++|          INDEX  /CEM/BNEM,BNP
08804  M01S01822.274l797 +++|          INDEX  /CEM/MAXM
08805  M01S01823.274l797 +++| BNP      SPACE  4,15
08806  M01S01824.274l797 +++|**        BNP - BLOCK NUMBER PROCESSOR.
08807  M01S01825.274l797 +++|*
08808  M01S01826.274l797 +++|*         ENTRY  (BNEU) = ACTUAL BYTE LENGTH UPPER (LI FORMAT).
08809  M01S01827.274l797 +++|*                (BNEI) = ACTUAL BYTE LENGTH LOWER.
08810  M01S01828.274l797 +++|*                (BNEI+1 - BNEI+2) = ACTUAL BLOCK NUMBER.
08811  M01S01829.274l797 +++|*
08812  M01S01830.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08813  M01S01831.274l797 +++|*
08814  M01S01832.274l797 +++|*         USES   CM.
08815  M01S01833.274l797 +++|*
08816  M01S01834.274l797 +++|*         CALLS  /CEM/CDA, /CEM/C2D.
08817  M01S01835.274l797 +++|
08818  M01S01836.274l797 +++|
08819  M01S01837.274l797 +++| BNP      SUBR               ENTRY/EXIT
08820  M01S01838.274l797 +++|          LDD    FM
08821  M01S00586.282l826 +++|          SHN    -6
08822  M01S01839.274l797 +++|          LMN    /MTX/TFLI
08823  M01S01840.274l797 +++|          NJN    BNP1        IF NOT LI FORMAT
08824  M01S01841.274l797 +++|          LDM    BNEU
08825  M01S01842.274l797 +++|          RJM    /CEM/C2D    CONVERT 2 DIGITS
08826  M01S01843.274l797 +++|          STM    BNPA+1      SAVE UPPER 2 OF 6 DIGITS OF BLOCK LENGTH
08827  M01S01844.274l797 +++| BNP1     LDM    BNEI
08828  M01S01845.274l797 +++|          STD    CM
08829  M01S01846.274l797 +++|          LDC    CM*10000+BNPA+2  CONVERT EXPECTED LENGTH
08830  M01S01847.274l797 +++|          RJM    /CEM/CDA
08831  M01S01848.274l797 +++|          LDM    BNEI+1
08832  M01S01849.274l797 +++|          STD    CM
08833  M01S01850.274l797 +++|          LDC    CM*10000+BNPA+5
08834  M01S01851.274l797 +++|          RJM    /CEM/CDA    CONVERT BLOCK NUMBER
08835  M01S01852.274l797 +++|          LDM    BNEI+2
08836  M01S01853.274l797 +++|          STD    CM
08837  M01S01854.274l797 +++|          LDC    CM*10000+BNPA+7
08838  M01S01855.274l797 +++|          RJM    /CEM/CDA
08839  M01S01856.274l797 +++|          LDC    BNPA        SET MESSAGE ADDRESS
08840  M01S01857.274l797 +++|          UJP    BNPX        RETURN
08841  M01S01858.274l797 +++|
08842  M01S01859.274l797 +++|
08843  M01S01860.274l797 +++| BNPA     DATA   C* L000000,B00000000.*
08844  M01S01861.274l797 +++| CKR      SPACE  4,10
08845  M01S01862.274l797 +++|**        CKR - CHECK IF READY.
08846  M01S01863.274l797 +++|*         CLEARS LAST OPERATION WRITE FLAGS.
08847  M01S01864.274l797 +++|*
08848  M01S01865.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08849  M01S01866.274l797 +++|
08850  M01S01867.274l797 +++|
08851  M01S01868.274l797 +++| CKR3     LDC    CKRC        SET READY DROP MESSAGE
08852  M01S01869.274l797 +++|
08853  M01S01870.274l797 +++| CKR      SUBR               ENTRY/EXIT
Line S01871 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08854  M02S01871.282l826 ---|          LDD    HP          CLEAR WRITE FLAGS
Line S01872 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08855  M02S01872.282l826 ---|          LPC    1777
Line S01873 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08856  M02S01873.282l826 ---|          STD    HP
08857  M01S00587.282l826 +++|          LDD    UP          CLEAR LAST OPERATION WRITE AND BLANK TAPE
08858  M01S00588.282l826 +++|          SCN    24
08859  M01S00589.282l826 +++|          STD    UP
08860  M01S01874.274l797 +++|          LDD    EC          CHECK FOR READY DROP ERROR
08861  M01S01875.274l797 +++|          SBN    /MTX/RDR
08862  M01S01876.274l797 +++|          ZJN    CKR3        IF READY DROP ERROR
08863  M01S01877.274l797 +++|          LDM    /PRESET/GPSB
08864  M01S01878.274l797 +++|          ZJN    CKR1        IF WAIT EOP
08865  M01S01879.274l797 +++|          LDD    DS
08866  M01S01880.274l797 +++|          LPN    2
08867  M01S01881.274l797 +++|          ZJN    CKR1        IF NOT BUSY
08868  M01S01882.274l797 +++|          LDC    CKRB        SET UNIT BUSY MESSAGE
08869  M01S01883.274l797 +++|          UJN    CKRX        RETURN
08870  M01S01884.274l797 +++|
08871  M01S01885.274l797 +++| CKR1     LDC    CKRA        SET NO EOP MESSAGE
08872  M01S01886.274l797 +++|          UJN    CKRX        RETURN
08873  M01S01887.274l797 +++|
08874  M01S01888.274l797 +++|
08875  M01S01889.274l797 +++| CKRA     DATA   C*NO EOP.*
08876  M01S01890.274l797 +++| CKRB     DATA   C*BUSY.*
08877  M01S01891.274l797 +++| CKRC     DATA   C*NOT READY.*
08878  M01S01892.274l797 +++| ECN      SPACE  4,10
08879  M01S01893.274l797 +++|**        ECN - ERROR ON CONNECT.
08880  M01S01894.274l797 +++|*         MESSAGE IS ALTERED IF UNIT NOT TURNED OFF.
08881  M01S01895.274l797 +++|*
08882  M01S01896.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08883  M01S00590.282l826 +++|*
08884  M01S00591.282l826 +++|*         USES   CM - CM+4.
08885  M01S00592.282l826 +++|*
08886  M01S00593.282l826 +++|*         MACROS SFA.
08887  M01S01897.274l797 +++|
08888  M01S01898.274l797 +++|
08889  M01S01899.274l797 +++| ECN2     LDC    ECNA        EXIT WITH MESSAGE ADDRESS
08890  M01S01900.274l797 +++|
08891  M01S01901.274l797 +++| ECN      SUBR               ENTRY/EXIT
Line S01902 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08892  M02S01902.282l826 ---|          LDD    ED          CHECK IF UNIT DOWN (OFF)
Line S01903 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08893  M02S01903.282l826 ---|          SHN    21-10
Line S01904 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08894  M02S01904.282l826 ---|          MJN    ECN2        IF UNIT DOWNED
08895  M01S00594.282l826 +++|          SFA    EST,EO
08896  M01S00595.282l826 +++|          ADK    EQDE
08897  M01S00596.282l826 +++|          CRD    CM
08898  M01S00597.282l826 +++|          LDD    CM
08899  M01S00598.282l826 +++|          LPN    3
08900  M01S00599.282l826 +++|          LMN    /CPS/DWES
08901  M01S00600.282l826 +++|          ZJN    ECN2        IF UNIT DOWNED
08902  M01S01905.274l797 +++|          LDN    0           ALTER MESSAGE
08903  M01S01906.274l797 +++|          STM    ECNA+5
08904  M01S01907.274l797 +++|          UJN    ECN2        RETURN
08905  M01S01908.274l797 +++|
08906  M01S01909.274l797 +++|
Line S01910 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08907  M02S01910.282l826 ---| ECNA     DATA   C*CON. REJ. OFF.*
08908  M01S00601.282l826 +++| ECNA     DATA   C*CON. REJ. DOWN.*
08909  M01S01911.274l797 +++| FRE      SPACE  4,10
08910  M01S01912.274l797 +++|**        FRE - FUNCTION REJECT ERROR.
08911  M01S01913.274l797 +++|*         DIAGNOSES ERROR BY GIVING FUNCTION AND THE ADDRESS OF
08912  M01S01914.274l797 +++|*         THE ROUTINE THAT INITIATED THE CALL.
08913  M01S01915.274l797 +++|*
08914  M01S01916.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08915  M01S01917.274l797 +++|*
08916  M01S01918.274l797 +++|*         USES   CM.
08917  M01S01919.274l797 +++|*
08918  M01S01920.274l797 +++|*         CALLS  /CEM/CDA.
08919  M01S01921.274l797 +++|
08920  M01S01922.274l797 +++|
08921  M01S01923.274l797 +++| FRE      SUBR               ENTRY/EXIT
08922  M01S01924.274l797 +++|          LDM    /PRESET/ICF GET ADDRESS OF CALLER
08923  M01S01925.274l797 +++|          STD    CM
08924  M01S01926.274l797 +++|          LDC    CM*10000+FREA+4
08925  M01S01927.274l797 +++|          RJM    /CEM/CDA
08926  M01S01928.274l797 +++|          LDM    /PRESET/ICFA  CONVERT FUNCTION
08927  M01S01929.274l797 +++|          STD    CM
08928  M01S01930.274l797 +++|          LDC    CM*10000+FREA+1
08929  M01S01931.274l797 +++|          RJM    /CEM/CDA
08930  M01S01932.274l797 +++|          LDC    FREA        SET MESSAGE ADDRESS
08931  M01S01933.274l797 +++|          UJN    FREX        RETURN
08932  M01S01934.274l797 +++|
08933  M01S01935.274l797 +++|
08934  M01S01936.274l797 +++| FREA     DATA   C*FN0000,P0000.*
08935  M01S01937.274l797 +++|          ERRNG  1*473+ERLB+5-*  ERROR PROCESSOR OVERFLOW
08936  M01S05309.1mt     +++|          OVERLAY (DROP PPU PROCESSOR.),,NOPRS,DPP
08937  M01S05310.1mt     +++| DPP      SPACE  4,10
08938  M01S05311.1mt     +++|**        DPP - DROP CHANNEL AND PPU.
08939  M01S05312.1mt     +++|*         ALSO HANDLES ISSUE OF MESSAGE FOR ANY FUNCTION REJECTS
08940  M01S05313.1mt     +++|*         THAT COULD NOT BE DIAGNOSED WHEN THEY OCCURRED.  IT IS NOT
08941  M01S05314.1mt     +++|*         ALWAYS POSSIBLE TO LOAD AN OVERLAY AND DIAGNOSE A FUNCTION
08942  M01S05315.1mt     +++|*         REJECT AND STILL MAINTAIN THE CONTROLLER OPTIONS AETC.
08943  M01S05316.1mt     +++|*
08944  M01S05317.1mt     +++|*         CALLS  DME, *EMM*, MCH.
08945  M01S05318.1mt     +++|*
08946  M01S05319.1mt     +++|*         MACROS CALL, CHTE, DCHAN, MONITOR.
08947  M01S05320.1mt     +++|
08948  M01S05321.1mt     +++|
08949  M01S05322.1mt     +++|          ENTRY  DPP
08950  M01S05323.1mt     +++| DPP      SUBR               ENTRY/EXIT
Line S05324 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08951  M02S05324.ns22000 ---|          LDC    CTAB        MODIFY CHANNELS
08952  M01S00140.ns22000 +++|          LDM    HNG         CHECK FOR *HNG* CALL
08953  M01S00141.ns22000 +++|          ZJN    DPP0        IF NORMAL DROP
08954  M01S00142.ns22000 +++|          STM    CM+4        SET (OR+4) = *HNG* CALLER
08955  M01S00143.ns22000 +++|          MONITOR HNGM       HANG PP
08956  M01S00144.ns22000 +++| DPP0     LDC    CTAB        MODIFY CHANNELS
08957  M01S05325.1mt     +++|          RJM    MCH
08958  M01S05326.1mt     +++|          LDC    DPP1        SET ADDRESS TO EXIT TO
08959  M01S05327.1mt     +++|          STM    //LOV
08960  M01S05328.1mt     +++|          UJN    DPPX        RETURN
08961  M01S05329.1mt     +++|
Line S05330 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08962  M02S05330.274l797 ---| DPP1     LDM    //FCNC
08963  M01S01938.274l797 +++| DPP1     LDD    HP
08964  M01S01939.274l797 +++|          SHN    21-7
Line S01940 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08965  M02S01940.282l826 ---|          MJN    DPP3        IF CTS
08966  M01S00602.282l826 +++|          MJN    DPP2        IF CTS
08967  M01S01941.274l797 +++|          LDM    //FCNC
08968  M01S05331.1mt     +++|          NJN    DPP2        IF NO DELAYED REQUEST
08969  M01S05332.1mt     +++|          LDM    //.OVLR+3
08970  M01S05333.1mt     +++|          NJN    DPP2        IF NO B.C. RESTART
08971  M01S05334.1mt     +++|          LDD    DS          SET STATUS
08972  M01S05335.1mt     +++|          STM    //STER
08973  M01S05336.1mt     +++|          LDN    /MTX/BCR
08974  M01S05337.1mt     +++|          STD    EC
08975  M01S05338.1mt     +++|          CALL   EMM         CALL ERROR MESSAGE PROCESSOR
Line S05339 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08976  M02S05339.282l826 ---| DPP2     RJM    DME         DETERMINE IF MONITORING ENABLED
Line S05340 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08977  M03S05340.282l826 ---|          LDC    RTCL        CLEAR INTERLOCK
Line S01942 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08978  M02S01942.282l826 ---| DPP3     LDC    RTCL        CLEAR INTERLOCK
08979  M01S00603.282l826 +++| DPP2     LDD    IA          RESET INPUT REGISTER
08980  M01S00604.282l826 +++|          CRD    IR
08981  M01S00605.282l826 +++|          LDD    RA
08982  M01S00606.282l826 +++|          SHN    6
08983  M01S00607.282l826 +++|          ADD    IR+4
08984  M01S00608.282l826 +++|          ADK    /MTX/CPST   GET PROCESSOR STATUS
08985  M01S05341.1mt     +++|          CRD    CM
Line S05342 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08986  M02S05342.282l826 ---|          LDM    UADA        SET POINTER TO LAST UDT PROCESSED
08987  M01S00609.282l826 +++|          LDM    UADA        SET NEXT UDT TO PROCESS
08988  M01S05343.1mt     +++|          STD    CM+4
Line S05344 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08989  M02S05344.282l826 ---|          LDD    CF
Line S05345 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08990  M02S05345.282l826 ---|          SHN    -11
Line S05346 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08991  M02S05346.282l826 ---|          ADN    /MTX/UITW
Line S05347 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08992  M02S05347.282l826 ---|          SHN    14
Line S05348 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08993  M02S05348.282l826 ---|          ADD    RA
08994  M01S00610.282l826 +++|          LDD    CM
08995  M01S00611.282l826 +++|          LPC    3777        CLEAR *1MT* ACTIVE
08996  M01S00612.282l826 +++|          STD    CM
08997  M01S00613.282l826 +++|          LDD    RA
08998  M01S05349.1mt     +++|          SHN    6
08999  M01S00614.282l826 +++|          ADD    IR+4
09000  M01S00615.282l826 +++|          ADK    /MTX/CPST   UPDATE PROCESSOR STATUS
09001  M01S05350.1mt     +++|          CWD    CM
09002  M01S05351.1mt     +++|          CHTE   *
09003  M01S05352.1mt     +++|          LDN    CH          DROP CHANNEL
09004  M01S05353.1mt     +++|          DCHAN
09005  M01S05354.1mt     +++|          MONITOR DPPM       DROP PPU
09006  M01S05355.1mt     +++|          LJM    PPR         EXIT TO PP RESIDENT
09007  M01S05356.1mt     +++|
09008  M01S05357.1mt     +++|
09009  M01S05358.1mt     +++| CTAB     CHTB               CHANNEL TABLE
Line S05359 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09010  M02S05359.282l826 ---| DME      SPACE  4,10
Line S05360 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09011  M02S05360.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
Line S05361 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09012  M02S05361.282l826 ---|*
Line S05362 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09013  M02S05362.282l826 ---|*         CALLS *TMP* OVERLAY IF MONITORING IS TO BE INITIATED.
Line S05363 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09014  M02S05363.282l826 ---|*
Line S05364 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09015  M02S05364.282l826 ---|*         USES   CM - CM+4.
Line S05365 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09016  M02S05365.282l826 ---|
Line S05366 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09017  M02S05366.282l826 ---|
Line S05367 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09018  M02S05367.282l826 ---| DME1     SHN    21-2-21+1+22
Line S05368 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09019  M02S05368.282l826 ---|          PJN    DMEX        IF MONITORING NOT IN PROGRESS
Line S05369 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09020  M02S05369.282l826 ---|          LDD    RA          READ TAPE MONITORING FLAG WORD
Line S05370 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09021  M02S05370.282l826 ---|          SHN    6
Line S05371 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09022  M02S05371.282l826 ---|          ADN    /MTX/TMGF
Line S05372 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09023  M02S05372.282l826 ---|          CRD    CM
Line S05373 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09024  M02S05373.282l826 ---|          LDD    CM+2        CHECK INPUT REGISTER ADDRESS
Line S05374 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09025  M02S05374.282l826 ---|          LMD    IA
Line S05375 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09026  M02S05375.282l826 ---|          NJN    DMEX        IF NOT THIS PP
Line S05376 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09027  M02S05376.282l826 ---|          STD    CM+2        CLEAR *1MT* INPUT REGISTER ADDRESS
Line S05377 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09028  M02S05377.282l826 ---|          LDD    RA
Line S05378 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09029  M02S05378.282l826 ---|          SHN    6
Line S05379 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09030  M02S05379.282l826 ---|          ADN    /MTX/TMGF
Line S05380 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09031  M02S05380.282l826 ---|          CWD    CM
Line S05381 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09032  M02S05381.282l826 ---|
Line S05382 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09033  M02S05382.282l826 ---| DME      SUBR               ENTRY/EXIT
Line S05383 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09034  M02S05383.282l826 ---|          LDD    CF
Line S05384 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09035  M02S05384.282l826 ---|          SHN    21-1
Line S05385 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09036  M02S05385.282l826 ---|          PJN    DME1        IF MONITORING NOT TO BE INITIATED
Line S05386 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09037  M02S05386.282l826 ---|          CALL   TMP         CALL TAPE MONITORING PRESET
Line S05387 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09038  M02S05387.282l826 ---|          UJN    DMEX        RETURN
Line S05388 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09039  M02S05388.282l826 ---|
Line S05389 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09040  M02S05389.282l826 ---|
Line S05390 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09041  M02S05390.282l826 ---| OVLA     EQU    *+5         TAPE MONITORING PRESET OVERLAY ORIGIN
09042  M01S05391.1mt     +++|          OVERLAY (CONTROL POINT/CODED PRESET.),(ERLA+5),P,CPP
09043  M01S05392.1mt     +++| PRS      SPACE  4,10
09044  M01S05393.1mt     +++|**        PRS - CONTROL POINT/CODED PRESET.
09045  M01S05394.1mt     +++|*
Line S01943 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt40
Seq #  *Modification Id* Act 
----------------------------+
09046  M02S01943.1mt40   ---|*         USES   BT, FM, HP, CM - CM+4.
09047  M01S00001.1mt40   +++|*         USES   BT, FM, CM - CM+4, T1 - T5.
09048  M01S01944.274l797 +++|*
09049  M01S05395.1mt     +++|*         CALLS  CCD, UAD.
09050  M01S05396.1mt     +++|
09051  M01S05397.1mt     +++|
09052  M01S05398.1mt     +++| PRS      SUBR               ENTRY/EXIT
09053  M01S05399.1mt     +++|          LDM    //LOV       SAVE ADDRESS TO EXIT AT
09054  M01S05400.1mt     +++|          STM    CPP
09055  M01S05401.1mt     +++|          LDC    PRS1        SET ADDRESS TO EXIT TO
09056  M01S05402.1mt     +++|          STM    //LOV
09057  M01S05403.1mt     +++|          UJN    PRSX        RETURN
09058  M01S05404.1mt     +++|
Line S05405 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09059  M02S05405.274l797 ---| PRS1     LDD    HP          CHECK FOR END OF SET
Line S05406 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09060  M02S05406.274l797 ---|          SHN    21-7
Line S01945 Modification History
M01 (Added by) 274l797
M02 (Updated by) 1mt40
Seq #  *Modification Id* Act 
----------------------------+
09061  M02S01945.1mt40   ---| PRS1     LDM    CECB
Line S00002 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09062  M02S00002.282l826 ---| PRS1     LDM    CPP
Line S00003 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09063  M02S00003.282l826 ---|          LMC    //PNRH
Line S00004 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09064  M02S00004.282l826 ---|          NJN    PRS1.1      IF NOT CALLED FROM RESIDENT
Line S00005 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09065  M02S00005.282l826 ---|          RJM    UAD         GET UNIT FORMAT PARAMETERS
Line S00006 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09066  M02S00006.282l826 ---|          ADK    /MTX/UST6
Line S00007 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09067  M02S00007.282l826 ---|          CRD    CM
Line S00008 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09068  M02S00008.282l826 ---|          ADK    /MTX/UST7-/MTX/UST6
Line S00009 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09069  M02S00009.282l826 ---|          CRD    T1
Line S00010 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09070  M02S00010.282l826 ---|          LDD    CM+3        INSURE UNIT FORMAT PARAMETERS CORRECT
Line S00011 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09071  M02S00011.282l826 ---|          STM    MTSF
Line S00012 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09072  M02S00012.282l826 ---|          LDD    CM+4
Line S00013 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09073  M02S00013.282l826 ---|          STM    MTSF+1
Line S00014 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09074  M02S00014.282l826 ---|          LDD    T1
Line S00015 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09075  M02S00015.282l826 ---|          STM    MTSF+2
Line S00016 Modification History
M01 (Added by) 1mt40
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09076  M02S00016.282l826 ---| PRS1.1   LDM    CECB
Line S01946 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09077  M02S01946.282l826 ---|          LPN    77
Line S01947 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09078  M02S01947.282l826 ---|          NJN    PRS2        IF NOT AT MAGNET CP
Line S01948 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09079  M02S01948.282l826 ---|          RJM    UAD
Line S01949 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09080  M02S01949.282l826 ---|          ADN    /MTX/UFLA
Line S01950 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09081  M02S01950.282l826 ---|          CRD    CM
Line S01951 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09082  M02S01951.282l826 ---|          LDD    CM
Line S01952 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09083  M02S01952.282l826 ---|          SHN    21-4
Line S05407 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09084  M02S05407.282l826 ---|          PJN    PRS2        IF NOT AT END OF SET
Line S05408 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09085  M03S05408.282l826 ---|          LDC    -200        CLEAR END OF SET FLAG
Line S05409 Modification History
M01 (Added by) 1mt
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09086  M03S05409.282l826 ---|          RAD    HP
Line S01953 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09087  M02S01953.282l826 ---|          LCN    20
Line S01954 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09088  M02S01954.282l826 ---|          RAD    CM
Line S01955 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09089  M02S01955.282l826 ---|          RJM    UAD
Line S01956 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09090  M02S01956.282l826 ---|          ADN    /MTX/UFLA
Line S01957 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09091  M02S01957.282l826 ---|          CWD    CM          CLEAR END OF SET
Line S05410 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09092  M02S05410.282l826 ---|          LDM    CIOE
Line S05411 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09093  M02S05411.282l826 ---|          LPC    774
Line S05412 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09094  M02S05412.282l826 ---|          LMC    110
Line S05413 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09095  M02S05413.282l826 ---|          ZJN    PRS2        IF POSMF
Line S05414 Modification History
M01 (Added by) 1mt
M02 (Updated by) v23l617
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09096  M03S05414.282l826 ---|          LDN    /MTX/IOS    ILLEGAL OPERATION AT END OF SET
Line S00156 Modification History
M01 (Added by) v23l617
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09097  M02S00156.282l826 ---|          LDN    /MTX/IOS    INCORRECT OPERATION AT END OF SET
Line S05415 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09098  M02S05415.282l826 ---|          LJM    RET3        RETURN ERROR CODE
Line S05416 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09099  M02S05416.282l826 ---|
Line S05417 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09100  M02S05417.282l826 ---| PRS2     RJM    CCD         CHECK IF CODED
Line S05418 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09101  M02S05418.282l826 ---|          LDM    CECB
Line S05419 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09102  M02S05419.282l826 ---|          LPN    77
Line S05420 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09103  M02S05420.282l826 ---|          NJN    PRS3        IF NOT AT MAGNET CP
Line S05421 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09104  M02S05421.282l826 ---|          RJM    UAD         RESET FORMAT
Line S05422 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09105  M02S05422.282l826 ---|          ADN    /MTX/UST4
Line S05423 Modification History
M01 (Added by) 1mt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09106  M02S05423.282l826 ---|          CRD    CM
Line S05424 Modification History
M01 (Added by) 1mt
M02 (Updated by) ns22000
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09107  M03S05424.282l826 ---|          LDD    CM+2
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/1mt.009.txt ยท Last modified: (external edit)