User Tools

Site Tools


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

Deck 1MT Part 005

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06369  M01S04320.282l826 ---|          NJN    IMRX        IF NOT *MAGNET* MOVING
06370  M01S04321.282l826 ---|          PAUSE
06371  M01S04322.282l826 ---|          DELAY
06372  M01S04323.282l826 ---|          LDD    CM+1
06373  M01S04324.282l826 ---|          ZJN    IMR1        IF ERROR FLAG NOT SET
06374  M01S04325.282l826 ---|          LJM    PNR5        DROP PP
06375  M01S04326.282l826 ---|
06376  M01S04327.282l826 ---| IMR2     RJM    HNG         HANG PP
06377  M01S04328.282l826 ---| PCR      SPACE  4,25
Line S00446 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06378  M01S00446.282l826 +++| PCR      SPACE  4,15
06379  M00S04329.1mt     +++|**        PCR - PROCESS CONNECT REJECT.
06380  M00S04330.1mt     +++|*
06381  M00S04331.1mt     +++|*         ENTRY  (EC) = ERROR CODE.
06382  M00S04332.1mt     +++|*
Line S04333 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06383  M01S04333.282l826 ---|*         ERROR  IF CONNECT REJECT EXIT TO ONE OF THE FOLLOWING-
06384  M01S04334.282l826 ---|*                 1) TO ERROR MESSAGE OVERLAY IF NOT INITIAL CONNECT
06385  M01S04335.282l826 ---|*                    OR IF UNIT TURNED OFF.
06386  M01S04336.282l826 ---|*                 2) TO *.ECON* IF PROCESS FUNCTION WITHOUT CONNECT.
06387  M01S04337.282l826 ---|*                 3) TO *RET4* IF FUNCTION CANNOT BE PERFORMED
06388  M01S04338.282l826 ---|*                    WITHOUT CONNECT.
06389  M01S04339.282l826 ---|*                 4) TO *PNR* IF REQUEST IN PROGRESS OR IF NO
06390  M01S04340.282l826 ---|*                    FUNCTION PENDING.
06391  M01S04341.282l826 ---|*                (RS - RS+4) SET UP FROM UDT IF INITIAL CONNECT.
06392  M01S04342.282l826 ---|*                (CN - CN+4) = *UDT* *UJID* WORD, IF PROCESS FUNCTION.
06393  M01S04343.282l826 ---|*                (ED, BIT 10) SET IF UNIT TURNED OFF.
Line S00447 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06394  M01S00447.282l826 +++|*         EXIT    TO ERROR MESSAGE OVERLAY IF NOT INITIAL CONNECT OR IF
06395  M01S00448.282l826 +++|*                    UNIT DOWNED.
06396  M00S04344.1mt     +++|*
06397  M00S04345.1mt     +++|*         USES   CM - CM+4, CN - CN+4.
06398  M00S04346.1mt     +++|*
Line S04347 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06399  M01S04347.282l826 ---|*         CALLS  ERR, SRQ, UAD.
Line S00449 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06400  M01S00449.282l826 +++|*         CALLS  ERR, UAD.
06401  M00S04348.1mt     +++|*
06402  M00S04349.1mt     +++|*         MACROS MONITOR.
06403  M00S04350.1mt     +++|
06404  M00S04351.1mt     +++|
Line S04352 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06405  M01S04352.282l826 ---| PCR      SUBR               ENTRY/EXIT
06406  M01S04353.282l826 ---|          LDD    EC
06407  M01S04354.282l826 ---|          LMN    /MTX/CRJ
06408  M01S04355.282l826 ---|          NJN    PCRX        IF NOT CONNECT REJECT
Line S00450 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06409  M01S00450.282l826 +++| PCR      BSS    0           ENTRY
06410  M00S04356.1mt     +++|          LDM    //STW       CHECK IF INITIAL CONNECT
06411  M00S04357.1mt     +++|          LMC    //.ECUI
06412  M00S04358.1mt     +++|          NJN    PCR1        IF NOT INITIAL CONNECT
Line S04359 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06413  M01S04359.282l826 ---|          RJM    UAD         CHECK IF JOB ASSIGNED
Line S00451 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06414  M01S00451.282l826 +++|          RJM    UAD
06415  M01S00452.282l826 +++|          ADK    /MTX/UXRQ
Line S04360 Modification History
M01 (Removed by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06416  M01S04360.1mt49   ---|          CRD    RS
Line S00001 Modification History
M01 (Added by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06417  M01S00001.1mt49   +++|          CRD    CM
Line S04361 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06418  M01S04361.282l826 ---|          ADN    /MTX/UJID
Line S00453 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06419  M01S00453.282l826 +++|          ADK    /MTX/UVRI-/MTX/UXRQ
06420  M00S04362.1mt     +++|          CRD    CN
Line S04363 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06421  M01S04363.282l826 ---|          LDD    CN+4
Line S00454 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06422  M01S00454.282l826 +++|          LDD    CN
06423  M00S04364.1mt     +++|          NJN    PCR2        IF JOB ASSIGNED
06424  M00S04365.1mt     +++|
Line S04366 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06425  M01S04366.282l826 ---|*         OFF UNIT.
Line S00455 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06426  M01S00455.282l826 +++|*         DOWN UNIT.
06427  M00S04367.1mt     +++|
Line S04368 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06428  M01S04368.282l826 ---|          LDN    1           SET DOWN UNIT
06429  M01S04369.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
06430  M01S04370.282l826 ---|          RJM    UAD         PICK UP DOWN STATUS
06431  M01S04371.282l826 ---|          ADN    /MTX/UST1
06432  M01S04372.282l826 ---|          CRD    ED
06433  M01S04373.282l826 ---|          ADN    /MTX/UST2-/MTX/UST1  SET UP DIRECT CELLS FOR MESSAGE
Line S00456 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06434  M01S00456.282l826 +++|          RJM    UAD
06435  M01S00457.282l826 +++|          ADK    /MTX/UST2   SET UP DIRECT CELLS FOR MESSAGE
06436  M00S04374.1mt     +++|          CRM    EI,TR
Line S00121 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06437  M02S00121.282l826 ---|          LDD    NB          COPY FORMAT TO *FM*
06438  M02S00122.282l826 ---|          SHN    -6
06439  M02S00123.282l826 ---|          STD    FM
06440  M00S04375.1mt     +++|          LDD    EO          SET EST ORDINAL
Line S04376 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06441  M01S04376.ns22000 ---|          SHN    -6
06442  M00S04377.1mt     +++|          STD    CM+1
Line S04378 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06443  M01S04378.282l826 ---|          LDN    /CPS/OFES   SET OFF STATUS
Line S00458 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06444  M01S00458.282l826 +++|          LDN    /CPS/DWES   SET *DOWN* STATUS
06445  M00S04379.1mt     +++|          STD    CM+2
06446  M00S04380.1mt     +++|          MONITOR SEQM       SET EQUIPMENT PARAMETER
06447  M00S04381.1mt     +++| PCR1     LDD    DS          SET STATUS FOR MESSAGE
06448  M00S04382.1mt     +++|          STM    //STER
06449  M00S04383.1mt     +++|          LDN    /MTX/CRJ    SET CONNECT REJECT
06450  M00S04384.1mt     +++|          RJM    ERR         EXIT TO ISSUE MESSAGE
06451  M00S04385.1mt     +++|
Line S04386 Modification History
M01 (Removed by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06452  M01S04386.1mt49   ---| PCR2     LDD    RS
Line S00002 Modification History
M01 (Added by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06453  M01S00002.1mt49   +++| PCR2     LDD    CM
Line S04387 Modification History
M01 (Removed by) 1mt32
Seq #  *Modification Id* Act 
----------------------------+
06454  M01S04387.1mt32   ---|          LMN    /MTX/RIP
06455  M01S04388.1mt32   ---|          NJN    PCR4        IF REQUEST NOT IN PROGRESS
Line S00001 Modification History
M01 (Added by) 1mt32
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06456  M02S00001.282l826 ---|          ZJN    PCR4        IF REQUEST NOT IN PROGRESS
Line S00459 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06457  M01S00459.282l826 +++|          NJN    PCR3        IF REQUEST IN PROGRESS
Line S00460 Modification History
M01 (Added by) 282l826
M02 (Removed by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06458  M02S00460.1mt49   ---|          LDD    FN
Line S00003 Modification History
M01 (Added by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
06459  M01S00003.1mt49   +++|          LDD    CM+1
Line S00461 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06460  M01S00461.282l826 +++|          LPN    77
06461  M01S00462.282l826 +++|          NJN    PCR4        IF REQUEST PENDING
06462  M00S04389.1mt     +++| PCR3     LJM    //PNR       PROCESS NEXT UNIT
06463  M00S04390.1mt     +++|
Line S04391 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06464  M01S04391.282l826 ---| PCR4     LDD    FN
06465  M01S04392.282l826 ---|          LPN    77
06466  M01S04393.282l826 ---|          ZJN    PCR3        IF NO FUNCTION PENDING
06467  M01S04394.282l826 ---|          LMN    /MTX/MAB
06468  M01S04395.282l826 ---|          ZJN    PCR6        IF ISSUE MESSAGE AND ABORT JOB
06469  M01S04396.282l826 ---|          LMN    /MTX/FNH&/MTX/MAB
06470  M01S04397.282l826 ---|          NJN    PCR5        IF NOT PROCESS FUNCTION
06471  M01S04398.282l826 ---|          LDD    PB
06472  M01S04399.282l826 ---|          SBN    3
06473  M01S04400.282l826 ---|          ZJN    PCR6        IF CLEAR JOB ASSIGNMENT
06474  M01S04401.282l826 ---| PCR5     RJM    UAD         SET UP DIRECT CELLS FROM UDT
06475  M01S04402.282l826 ---|          ADN    /MTX/UST2
Line S00463 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06476  M01S00463.282l826 +++|*         INTERLOCK REQUEST.
06477  M01S00464.282l826 +++|
06478  M01S00465.282l826 +++| PCR4     LDM    UADA        SET UDT ADDRESS
06479  M01S00466.282l826 +++|          STD    CM+1
06480  M01S00467.282l826 +++|          LDN    0           IGNORE BUSY STATUS
06481  M01S00468.282l826 +++|          STD    CM+2
06482  M01S00469.282l826 +++|          MONITOR  TDRM      SET REQUEST IN PROGRESS
06483  M01S00470.282l826 +++|          LDD    CM+4
06484  M01S00471.282l826 +++|          ZJN    PCR3        IF REQUEST NOT INTERLOCKED
06485  M01S00472.282l826 +++|          RJM    UAD         GET UDT INFORMATION
06486  M01S00473.282l826 +++|          ADK    /MTX/UXRQ
06487  M01S00474.282l826 +++|          CRD    RS
06488  M01S00475.282l826 +++|          ADK    /MTX/UST2-/MTX/UXRQ
06489  M00S04403.1mt     +++|          CRM    EI,TR
Line S00124 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06490  M02S00124.282l826 ---|          LDD    NB          COPY FORMAT TO *FM*
06491  M02S00125.282l826 ---|          SHN    -6
06492  M02S00126.282l826 ---|          STD    FM
Line S04404 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06493  M01S04404.282l826 ---|          LJM    RET4        RETURN WITH ERROR
Line S00476 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06494  M01S00476.282l826 +++|          ADK    /MTX/UST5-/MTX/UST4-1
06495  M01S00477.282l826 +++|          CRM    DNCV,ON
06496  M01S00478.282l826 +++|          ADK    /MTX/UDS4-/MTX/UST5-1
06497  M01S00479.282l826 +++|          CRM    MTSF,TR
06498  M01S00480.282l826 +++|          ADK    /MTX/UERC-/MTX/UDS6-1
06499  M01S00481.282l826 +++|          CRM    ECNT,ON
06500  M01S00482.282l826 +++|          LDN    /MTX/CRJ    SET CONNECT REJECT
06501  M01S00483.282l826 +++|          LJM    RET3        RETURN ERROR
06502  M00S04405.1mt     +++|
Line S04406 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06503  M01S04406.282l826 ---|*         INTERLOCK UNIT VIA SOFTWARE CONNECT.
06504  M00S04407.1mt     +++|
Line S04408 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06505  M01S04408.282l826 ---| PCR6     LDN    0           SET TO PERFORM SOFTWARE CONNECT
06506  M01S04409.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
06507  M01S04410.282l826 ---|
06508  M01S04411.282l826 ---|*         PROCESS FUNCTION WITHOUT CONNECT.
06509  M01S04412.282l826 ---|
06510  M01S04413.282l826 ---|          LDC    LDNI+0      FORCE DROP OUT AFTER FUNCTION PROCESSED
06511  M01S04414.282l826 ---|          STM    PNRC
06512  M01S04415.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
06513  M01S04416.282l826 ---|          ADN    /MTX/UJID
06514  M01S04417.282l826 ---|          CRD    CN
06515  M01S04418.282l826 ---|          LDM    PCRA        DISABLE CONNECT ON THIS OPERATION
06516  M01S04419.282l826 ---|          STM    //CUIA
06517  M01S04420.282l826 ---|          LJM    //.ECON     PROCESS FUNCTION (WITHOUT CONNECT)
06518  M01S04421.282l826 ---|
06519  M01S04422.282l826 ---|
06520  M01S04423.282l826 ---| PCRA     BSS    0
06521  M01S04424.282l826 ---|          LOC    //CUIA
06522  M01S04425.282l826 ---|          UJN    //CUIX      RETURN
06523  M01S04426.282l826 ---|          LOC    *O
06524  M01S04427.282l826 ---| SRQ      SPACE  4,15
06525  M01S04428.282l826 ---|**        SRQ - SEND REQUEST TO MAGNET.
06526  M01S04429.282l826 ---|*
06527  M01S04430.282l826 ---|*         ENTRY  (A) = 0 IF PERFORM SOFTWARE CONNECT.
06528  M01S04431.282l826 ---|*                (A) = 1 IF DOWN UNIT.
06529  M01S04432.282l826 ---|*
06530  M01S04433.282l826 ---|*         ERROR  EXIT TO *PNR5* IF *TDAM* REJECT, ERROR FLAG SET
06531  M01S04434.282l826 ---|*                OR DOWN UNIT REJECT AND NO FUNCTION PENDING.
06532  M01S04435.282l826 ---|*                EXIT TO *PCR5* IF DOWN UNIT REJECT AND FUNCTION
06533  M01S04436.282l826 ---|*                PENDING.
06534  M01S04437.282l826 ---|*
06535  M01S04438.282l826 ---|*         USES   CM - CM+4.
06536  M01S04439.282l826 ---|*
06537  M01S04440.282l826 ---|*         CALLS  IMR.
06538  M01S04441.282l826 ---|*
06539  M01S04442.282l826 ---|*         MACROS PAUSE.
06540  M01S04443.282l826 ---|
06541  M01S04444.282l826 ---|
06542  M01S04445.282l826 ---| SRQ      SUBR               ENTRY/EXIT
06543  M01S04446.282l826 ---|          STD    CM+4        SAVE FUNCTION
06544  M01S04447.282l826 ---|          LDN    0
06545  M01S04448.282l826 ---|          STD    CM+2
06546  M01S04449.282l826 ---|          STD    CM+3
06547  M01S04450.282l826 ---|          LDM    UADA        SET UDT ADDRESS
06548  M01S04451.282l826 ---|          STD    CM
06549  M01S04452.282l826 ---|          LDD    CF          SET CHANNEL INDEX
06550  M01S04453.282l826 ---|          SHN    -11
06551  M01S04454.282l826 ---|          STD    CM+1
06552  M01S04455.282l826 ---|          LDN    /MTX/URIW
06553  M01S04456.282l826 ---|          RJM    IMR
06554  M01S04457.282l826 ---|          NJN    SRQ2        IF WRITE REJECT
06555  M01S04458.282l826 ---|
06556  M01S04459.282l826 ---|*         WAIT FOR *MAGNET* TO PROCESS REQUEST.
06557  M01S04460.282l826 ---|
06558  M01S04461.282l826 ---| SRQ1     LDD    RA
06559  M01S04462.282l826 ---|          SHN    6
06560  M01S04463.282l826 ---|          ADN    /MTX/URIW
06561  M01S04464.282l826 ---|          CRD    CM
06562  M01S04465.282l826 ---|          LDD    CM
06563  M01S04466.282l826 ---|          ZJN    SRQ3        IF REQUEST COMPLETE
06564  M01S04467.282l826 ---|          LDN    77          DELAY
06565  M01S04468.282l826 ---|          SBN    1
06566  M01S04469.282l826 ---|          NJN    *-1
06567  M01S04470.282l826 ---|          PAUSE
06568  M01S04471.282l826 ---|          LDD    CM+1
06569  M01S04472.282l826 ---|          ZJN    SRQ1        IF NO ERROR FLAG
06570  M01S04473.282l826 ---| SRQ2     LJM    //PNR5      DROP PP
06571  M01S04474.282l826 ---|
06572  M01S04475.282l826 ---| SRQ3     LDD    CM+4
06573  M01S04476.282l826 ---|          ZJN    SRQ4        IF UNIT DOWNED OR CONNECT COMPLETE
06574  M01S04477.282l826 ---|          LDN    ZERL        CLEAR INTERLOCK
06575  M01S04478.282l826 ---|          CRD    CM
06576  M01S04479.282l826 ---|          LDD    RA
06577  M01S04480.282l826 ---|          SHN    6
06578  M01S04481.282l826 ---|          ADN    /MTX/URIW
06579  M01S04482.282l826 ---|          CWD    CM
06580  M01S04483.282l826 ---|          LDD    FN
06581  M01S04484.282l826 ---|          LPN    77
06582  M01S04485.282l826 ---|          ZJN    SRQ2        IF NO FUNCTION PENDING
06583  M01S04486.282l826 ---|          LJM    PCR5        RETURN ERROR
06584  M01S04487.282l826 ---|
06585  M01S04488.282l826 ---| SRQ4     LJM    SRQX        RETURN
06586  M01S04489.282l826 ---|
06587  M01S04490.282l826 ---|
06588  M00S04491.1mt     +++| FRPD     CHTB               CHANNEL TABLE
Line S04492 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06589  M01S04492.282l826 ---| DME      SPACE  4,10
06590  M01S04493.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
06591  M01S04494.282l826 ---|*
06592  M01S04495.282l826 ---|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED TO USE MONITORING
06593  M01S04496.282l826 ---|*                CHANNEL, IF MONITORING IN PROGRESS.
06594  M01S04497.282l826 ---|*
06595  M01S04498.282l826 ---|*         USES   CM, T1, T2.
06596  M01S04499.282l826 ---|
06597  M01S04500.282l826 ---|
06598  M01S04501.282l826 ---| DME      SUBR               ENTRY/EXIT
06599  M01S04502.282l826 ---|          LDD    CF          CHECK FOR MONITORING IN PROGRESS
06600  M01S04503.282l826 ---|          SHN    21-2
06601  M01S04504.282l826 ---|          PJN    DMEX        IF MONITORING NOT ENABLED
06602  M01S04505.282l826 ---|          LDM    FCNA+1      SET CHANNEL
06603  M01S04506.282l826 ---|          LPN    37
06604  M01S04507.282l826 ---|          STD    CM
06605  M01S04508.282l826 ---|          LDC    DMEA        MODIFY CHANNELS
06606  M01S04509.282l826 ---|          STD    T1
06607  M01S04510.282l826 ---| DME1     LDI    T1
06608  M01S04511.282l826 ---|          ZJN    DMEX        IF END OF TABLE
06609  M01S04512.282l826 ---|          STD    T2
06610  M01S04513.282l826 ---|          LDI    T2
06611  M01S04514.282l826 ---|          SCN    37
06612  M01S04515.282l826 ---|          LMD    CM
06613  M01S04516.282l826 ---|          STI    T2
06614  M01S04517.282l826 ---|          AOD    T1
06615  M01S04518.282l826 ---|          UJN    DME1        LOOP
06616  M01S04519.282l826 ---|
06617  M01S04520.282l826 ---|
06618  M01S04521.282l826 ---| DMEA     TMOT               CHANNEL TABLE FOR MONITORING
06619  M00S04522.1mt     +++|          SPACE  4,10
06620  M00S04523.1mt     +++|**        COMMON DECKS.
06621  M00S04524.1mt     +++|
06622  M00S04525.1mt     +++|
06623  M00S04526.1mt     +++|*CALL     COMPC2D
06624  M00S04527.1mt     +++|
06625  M00S04528.1mt     +++|
06626  M00S04529.1mt     +++|          ERRNG  2*473+ERLA+5-*  FUNCTION REJECT PROCESSOR OVERFLOW
06627  M00S04530.1mt     +++|          OVERLAY (MTS/ATS ERRLOG MESSAGE PROCESSOR.),(ERLA+5),P,EMM
06628  M00S04531.1mt     +++| EMM      SPACE  4,10
06629  M00S04532.1mt     +++|**        EMM - MTS ERRLOG MESSAGE PROCESSOR.
06630  M00S04533.1mt     +++|*         THIS OVERLAY MAY BE CALLED BY ANY PART OF THE PROGRAM
06631  M00S04534.1mt     +++|*         TO ISSUE A SUITABLE MESSAGE TO THE ERRLOG.  IN ADDITION IF
06632  M00S04535.1mt     +++|*         IT IS CALLED FROM THE MAIN PROGRAM IT ALSO PROCESSES THE
Line S04536 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06633  M01S04536.282l826 ---|*         ERROR.  IF ENTERED ON A CALL FROM *ERR* AND (ERR) = 0,
06634  M01S04537.282l826 ---|*         A *CHANNEL ILL* MESSAGE WILL BE ISSUED.
Line S00484 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06635  M01S00484.282l826 +++|*         ERROR.
06636  M00S04538.1mt     +++|*
Line S04539 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06637  M01S04539.v23l617 ---|*         CALLS  BDM, IDM, *3ME*.
Line S00136 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06638  M01S00136.v23l617 +++|*         CALLS  BDM, IDM, *3MD*.
06639  M00S04540.1mt     +++|*
06640  M00S04541.1mt     +++|*         MACROS EXECUTE.
06641  M00S04542.1mt     +++|
06642  M00S04543.1mt     +++|
06643  M00S04544.1mt     +++|          ENTRY  EMM
06644  M00S04545.1mt     +++| EMM      SUBR               ENTRY/EXIT
06645  M00S04546.1mt     +++|          RJM    BDM         BUILD MESSAGE
06646  M00S04547.1mt     +++|          LDM    EMMA
06647  M00S04548.1mt     +++|          ZJN    EMM3        IF NO MESSAGE OR SPECIAL PROCESSOR
06648  M00S04549.1mt     +++|          SBN    MAXM
06649  M00S04550.1mt     +++|          MJN    EMM4        IF SPECIAL PROCESSOR NEEDED
06650  M00S04551.1mt     +++|
06651  M00S04552.1mt     +++| EMM1     LCN    0           MOVE MESSAGE
06652  M00S04553.1mt     +++|          STD    T1
06653  M00S04554.1mt     +++| EMM2     AOD    T1
06654  M00S04555.1mt     +++|          LDM    *,T1
06655  M00S04556.1mt     +++| EMMA     EQU    *-1
06656  M00S04557.1mt     +++|          STM    MESE+13,T1
06657  M00S04558.1mt     +++|          NJN    EMM2        IF NOT END OF MESSAGE
06658  M00S04559.1mt     +++| EMM3     LDD    HP
Line S04560 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06659  M01S04560.v23l617 ---|*         UJN    EMM5        (*3ME* ALREADY EXECUTED)
Line S00137 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06660  M01S00137.v23l617 +++|*         UJN    EMM5        (*3MD* ALREADY EXECUTED)
06661  M00S04561.1mt     +++| EMMB     EQU    *-1
Line S04562 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06662  M01S04562.v23l617 ---|          SHN    21-6
06663  M01S04563.v23l617 ---|          PJN    EMM5        IF NOT FSC ADAPTOR
Line S00138 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06664  M01S00138.v23l617 +++|          LPC    500
Line S00139 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06665  M02S00139.ns2466  ---|          ZJN    EMM5        IF NOT FSC OR ISMT ADAPTOR
Line S00186 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06666  M01S00186.ns2466  +++|          ZJN    EMM5        IF NOT FSC/CMTS/ISMT ADAPTOR
06667  M00S04564.1mt     +++| EMM4     EXECUTE  3MD       LOAD SPECIAL PROCESSOR
06668  M00S04565.1mt     +++| EMMC     UJN    EMM1        GO MOVE MESSAGE
06669  M00S04566.1mt     +++|*         PSN                (NO MESSAGE TO MOVE)
06670  M00S04567.1mt     +++|
06671  M00S04568.1mt     +++|*         ISSUE MESSAGES.
06672  M00S04569.1mt     +++|
06673  M00S04570.1mt     +++| EMM5     LDN    ERLN/10000  ISSUE MESSAGE TO ERROR LOG
06674  M00S04571.1mt     +++|          RJM    IDM
06675  M00S04572.1mt     +++|          LDM    CECB
06676  M00S04573.1mt     +++| EMMD     LPN    77
06677  M00S04574.1mt     +++|*         LPN    0           (MESSAGE ISSUE TO USER DISABLED)
06678  M00S04575.1mt     +++|          ZJN    EMM6        IF AT MAGNET CP
06679  M00S04576.1mt     +++|          LDN    CPON/10000  ISSUE MESSAGE TO USER
06680  M00S04577.1mt     +++|          RJM    IDM
06681  M00S04578.1mt     +++| EMM6     LJM    EMMX        RETURN
06682  M00S04579.1mt     +++| MES      SPACE  4,10
06683  M00S04580.1mt     +++|***       MESSAGE DATA.
06684  M00S04581.1mt     +++|*         MESSAGES ARE ISSUED IN THE FOLLOWING FORMAT-
Line S04582 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06685  M01S04582.ns22000 ---|*         MT,C13-0-02,ABCDEF,RD,53,S0,GS00000000.
Line S00127 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06686  M01S00127.ns22000 +++|*         MT,C13-0-02,ABCDEF,RD, 753,S0,GS00000000
06687  M00S04583.1mt     +++|*         MT,C13,D00000000000000000000000000000000
06688  M00S04584.1mt     +++|*         MT,C13,U000000000000000000000000,T0000.
06689  M00S04585.1mt     +++|*         MT,C13,A0000000000000000000000000000.
06690  M00S04586.1mt     +++|*         MT,C13,F04,I13,B000123,L5004,P00000000.
06691  M00S04587.1mt     +++|*         MT,C13,E00,H00000000, .(ADDITIONAL INFORMATION.)
06692  M00S04588.1mt     +++|*
06693  M00S04589.1mt     +++|*         THE FIRST MESSAGE WOULD TELL THE FOLLOWING-
06694  M00S04590.1mt     +++|*
06695  M00S04591.1mt     +++|*         1)     CHANNEL 13, EQUIPMENT 0, UNIT 2.
06696  M00S04592.1mt     +++|*         2)     VOLUME SERIAL NUMBER IS *ABCDEF*.
06697  M00S04593.1mt     +++|*         3)     OPERATION WAS A READ.  (ANY OPERATION NOT INVOLVING
06698  M00S04594.1mt     +++|*                AN ACTUAL READ OR WRITE WILL BE CALLED A READ.
Line S04595 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06699  M01S04595.ns22000 ---|*         4)     THE *53* IS THE EST ORDINAL OF THE UNIT THE TAPE WAS
Line S00128 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1mt30
Seq #  *Modification Id* Act 
----------------------------+
06700  M02S00128.1mt30   ---|*         4)     EST ORDINAL *753* IS THE UNIT WHICH THE TAPE WAS LAST
Line S04596 Modification History
M01 (Removed by) 1mt30
Seq #  *Modification Id* Act 
----------------------------+
06701  M01S04596.1mt30   ---|*                WRITTEN ON.  THIS WILL ONLY BE AVAILABLE FOR LABELED
06702  M01S04597.1mt30   ---|*                TAPES GENERATED UNDER KRONOS 2.1 OR NOS.  IT WILL
06703  M01S04598.1mt30   ---|*                NORMALLY BE ZERO IN ALL OTHER CASES.
Line S00001 Modification History
M01 (Added by) 1mt30
Seq #  *Modification Id* Act 
----------------------------+
06704  M01S00001.1mt30   +++|*         4)     EST ORDINAL *753* IS THE UNIT THAT THE TAPE WAS LAST
06705  M01S00002.1mt30   +++|*                LABELED ON.  THIS WILL ONLY BE AVAILABLE FOR LABELED
06706  M01S00003.1mt30   +++|*                TAPE GENERATED UNDER KRONOS 2.1 OR NOS.  IT WILL
06707  M01S00004.1mt30   +++|*                NORMALLY BE ZERO IN ALL OTHER CASES.  THIS FIELD DOES
06708  M01S00005.1mt30   +++|*                NOT REPRESENT THE EST ORDINAL OF THE TAPE UNIT THAT
06709  M01S00006.1mt30   +++|*                THE TAPE IS CURRENTLY MOUNTED ON.
06710  M00S04599.1mt     +++|*         5)     CHANNEL STATUS.
06711  M00S04600.1mt     +++|*         6)     GENERAL STATUS OF TAPE UNIT.
06712  M00S04601.1mt     +++|*         7)     BLOCK ID BYTE. ( LOWER 12 BITS OF GENERAL STATUS)
06713  M00S04602.1mt     +++|*
06714  M00S04603.1mt     +++|*         THE SECOND MESSAGE WOULD TELL THE FOLLOWING -
06715  M00S04604.1mt     +++|*
06716  M00S04605.1mt     +++|*         1)     CHANNEL 13 - THIS IS REPEATED SO THAT IF ERRORS
06717  M00S04606.1mt     +++|*                ARE OCCURING ON MORE THAN ONE TAPE CHANNEL AT THE
06718  M00S04607.1mt     +++|*                SAME TIME THE TWO MESSAGES CAN BE ASSOCIATED.
06719  M00S04608.1mt     +++|*         2)     DETAILED STATUS OF THE UNIT.
Line S00187 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06720  M01S00187.ns2466  +++|*                FOR FSC/CMTS/ISMT THIS IS WORD 3 OF ATS MAPPED STATUS
06721  M01S00188.ns2466  +++|*                AND WORDS 1 - 7 OF SENSE BYTE STATUS.
06722  M00S04609.1mt     +++|*
06723  M00S04610.1mt     +++|*         THE THIRD MESSAGE (NOT MTS) WOULD TELL THE FOLLOWING -
06724  M00S04611.1mt     +++|*
06725  M00S04612.1mt     +++|*         1)     CHANNEL 13, SAME AS ABOVE.
06726  M00S04613.1mt     +++|*         2)     UNIT STATUS.
Line S00189 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06727  M01S00189.ns2466  +++|*                FOR FSC/CMTS/ISMT THIS IS WORDS 8 - 13 OF SENSE BYTE
06728  M01S00190.ns2466  +++|*                STATUS.
06729  M00S04614.1mt     +++|*         3)     THIRD BYTE OF FORMAT PARAMETERS.
06730  M00S04615.1mt     +++|*
Line S04616 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06731  M01S04616.ns2466  ---|*         THE FOURTH MESSAGE (FSC ONLY) WOULD TELL THE FOLLOWING -
Line S00191 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06732  M01S00191.ns2466  +++|*         THE FOURTH MESSAGE (FSC/CMTS/ISMT ONLY) WOULD TELL THE
06733  M01S00192.ns2466  +++|*         FOLLOWING -
06734  M00S04617.1mt     +++|*
06735  M00S04618.1mt     +++|*         1)     CHANNEL 13, SAME AS ABOVE.
Line S04619 Modification History
M01 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06736  M01S04619.ns2466  ---|*         2)     THE ADDITIONAL SENSE BYTE STATUS NOT PLACED IN
06737  M01S04620.ns2466  ---|*                DETAILED STATUS OR UNIT STATUS FIELDS.
Line S00193 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
06738  M01S00193.ns2466  +++|*         2)     THE ADDITIONAL SENSE BYTE STATUS (WORDS 14 - 20) NOT
06739  M01S00194.ns2466  +++|*                PLACED IN DETAILED STATUS OR UNIT STATUS FIELDS.
06740  M00S04621.1mt     +++|*
06741  M00S04622.1mt     +++|*         THE FIFTH MESSAGE WOULD TELL THE FOLLOWING -
06742  M00S04623.1mt     +++|*
06743  M00S04624.1mt     +++|*         1)     CHANNEL 13, SAME AS ABOVE.
06744  M00S04625.1mt     +++|*         2)     THE ERROR OCCURED ON A SOFTWARE FUNCTION 4.
06745  M00S04626.1mt     +++|*         3)     ERROR ITERATION.
06746  M00S04627.1mt     +++|*         4)     BLOCK NUMBER ERROR OCCURRED ON WAS 123.
06747  M00S04628.1mt     +++|*         5)     BLOCK LENGTH WAS 5004 BYTES.
06748  M00S04629.1mt     +++|*         6)     *1MT* INTERNAL ERROR PARAMETERS.
06749  M00S04630.1mt     +++|*
06750  M00S04631.1mt     +++|*         THE SIXTH MESSAGE WOULD TELL THE FOLLOWING -
06751  M00S04632.1mt     +++|*
06752  M00S04633.1mt     +++|*         1)     CHANNEL 13 - SAME AS ABOVE.
06753  M00S04634.1mt     +++|*         2)     OCTAL ERROR CODE VALUE.
06754  M00S04635.1mt     +++|*         3)     UNIT FORMAT PARAMETERS.  SEE 66X/67X MANUAL FOR FIELD
06755  M00S04636.1mt     +++|*                DEFINITIONS OF FORMAT SELECTION.
06756  M00S04637.1mt     +++|*         4)     ADDITIONAL DESCRIPTION.
06757  M00S04638.1mt     +++|
06758  M00S04639.1mt     +++|****      MESSAGE DATA.
06759  M00S04640.1mt     +++|
Line S04641 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06760  M01S04641.ns22000 ---| MESA     DATA   H*MT,C00-0-00,      ,RD,  ,S0,GS00000000. *
Line S00129 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06761  M01S00129.ns22000 +++| MESA     DATA   H*MT,C00-0-00,      ,RD,    ,S0,GS00000000*
06762  M00S04642.1mt     +++|          CON    0
06763  M00S04643.1mt     +++| MESB     DATA   H*MT,C00,D00000000000000000000000000000000*
06764  M00S04644.1mt     +++|          CON    0
06765  M00S04645.1mt     +++| MESC     DATA   H*MT,C00,U000000000000000000000000,T0000. *
06766  M00S04646.1mt     +++|          CON    0
06767  M00S04647.1mt     +++| MESD     DATA   H*MT,C00,F00,I00,B000000,L0000,P00000000. *
06768  M00S04648.1mt     +++|          CON    0
06769  M00S04649.1mt     +++| MESE     DATA   C*MT,C00,E00,H00000000, .*
06770  M00S04650.1mt     +++| MESL     EQU    MESE+MESB-MESA+1
06771  M00S04651.1mt     +++| TERM     SPACE  4,10
06772  M00S04652.1mt     +++| TERM     INDEX
Line S04653 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06773  M01S04653.252l678 ---|          INDEX  0,(=C*RECOVERED.*)
06774  M01S04654.252l678 ---|          INDEX  /MTX/OPA,(=C*WRONG PARITY.*)
06775  M01S04655.252l678 ---|          INDEX  /MTX/BTL,(=C*BLOCK TOO LARGE.*)
06776  M01S04656.252l678 ---|          INDEX  /MTX/OTF,(=C*ON THE FLY.*)
Line S00175 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06777  M01S00175.252l678 +++|          INDEX  0,(=C*REC.*)
06778  M01S00176.252l678 +++|          INDEX  /MTX/OPA,(=C*OPA.*)
06779  M01S00177.252l678 +++|          INDEX  /MTX/BTL,(=C*BTL.*)
06780  M01S00178.252l678 +++|          INDEX  /MTX/BNE,BNEM
06781  M01S00179.252l678 +++|          INDEX  /MTX/NBE,(=C*NBE.*)
06782  M01S00180.252l678 +++|          INDEX  /MTX/OTF,(=C*OTF.*)
06783  M00S04657.1mt     +++|          INDEX  /MTX/RDR,WEOM
06784  M00S04658.1mt     +++|          INDEX  /MTX/FRJ,FRJM
06785  M00S04659.1mt     +++|          INDEX  /MTX/WEO,WEOM
06786  M00S04660.1mt     +++|          INDEX  /MTX/CRJ,CRJM
Line S04661 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06787  M01S04661.252l678 ---|          INDEX  /MTX/NBE,(=C*NOISE.*)
06788  M01S04662.252l678 ---|          INDEX  /MTX/BNE,BNEM
06789  M01S04663.252l678 ---|          INDEX  /MTX/STE,(=C*STATUS.*)
06790  M01S04664.252l678 ---|          INDEX  /MTX/ERA,(=C*BAD ERASE.*)
06791  M01S04665.252l678 ---|          INDEX  /MTX/PLO,(=C*POSITION LOST.*)
06792  M01S04666.252l678 ---|          INDEX  /MTX/CMF,(=C*CHANNEL ILL.*)
06793  M01S04667.252l678 ---|          INDEX  /MTX/BCR,(=C*B.C. RESTART.*)
06794  M01S04668.252l678 ---|          INDEX  /MTX/SMF,(=C*BID RECOVERY-F.*)
06795  M01S04669.252l678 ---|          INDEX  /MTX/SMB,(=C*BID RECOVERY-B.*)
06796  M01S04670.252l678 ---|          INDEX  /MTX/MDW,(=C*MARGINAL, DOWN.*)
06797  M01S04671.252l678 ---|          INDEX  /MTX/MOF,(=C*MARGINAL, OFF.*)
06798  M01S04672.252l678 ---|          INDEX  /MTX/LCH,(=C*LOAD CHECK.*)
Line S00181 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
06799  M01S00181.252l678 +++|          INDEX  /MTX/STE,(=C*STE.*)
06800  M01S00182.252l678 +++|          INDEX  /MTX/ERA,(=C*ERA.*)
06801  M01S00183.252l678 +++|          INDEX  /MTX/PLO,(=C*PLO.*)
06802  M01S00184.252l678 +++|          INDEX  /MTX/CMF,(=C*CMF.*)
06803  M01S00185.252l678 +++|          INDEX  /MTX/BCR,(=C*BCR.*)
06804  M01S00186.252l678 +++|          INDEX  /MTX/SMF,(=C*SMF.*)
06805  M01S00187.252l678 +++|          INDEX  /MTX/SMB,(=C*SMB.*)
06806  M01S00188.252l678 +++|          INDEX  /MTX/MDW,(=C*MDW.*)
06807  M01S00189.252l678 +++|          INDEX  /MTX/MOF,(=C*MOF.*)
06808  M01S00190.252l678 +++|          INDEX  /MTX/LCH,(=C*LCH.*)
06809  M01S00191.252l678 +++|          INDEX  /MTX/RCE,(=C*RCE.*)
06810  M01S00192.252l678 +++|          INDEX  /MTX/MWT,(=C*MWT.*)
06811  M01S00193.252l678 +++|          INDEX  /MTX/WVF,(=C*WVF.*)
06812  M01S00194.252l678 +++|          INDEX  /MTX/TME,(=C*TME.*)
06813  M01S00195.252l678 +++|          INDEX  /MTX/TCF,(=C*TCF.*)
06814  M01S00196.252l678 +++|          INDEX  /MTX/BFR,(=C*BFR.*)
06815  M01S00197.252l678 +++|          INDEX  /MTX/BFW,(=C*BFW.*)
06816  M00S04673.1mt     +++|          INDEX  /MTX/MERC
06817  M00S04674.1mt     +++|****
06818  M00S04675.1mt     +++|          SPACE  4,10
06819  M00S04676.1mt     +++|**        COMMON DECKS.
06820  M00S04677.1mt     +++|
06821  M00S04678.1mt     +++|
06822  M00S04679.1mt     +++|*CALL     COMPC2D
06823  M00S04680.1mt     +++|          SPACE  4,10
06824  M00S04681.1mt     +++|**        ERRORS REQUIRING ADDITIONAL OVERLAY TO BE LOADED.
06825  M00S04682.1mt     +++|
06826  M00S04683.1mt     +++|
06827  M00S04684.1mt     +++| BEGM     BSS    0
06828  M00S04685.1mt     +++|          LOC    1
06829  M00S04686.1mt     +++| FRJM     BSS    1           FUNCTION REJECT
06830  M00S04687.1mt     +++| WEOM     BSS    1           NO END OF OPERATION
06831  M00S04688.1mt     +++| CRJM     BSS    1           CONNECT REJECT
06832  M00S04689.1mt     +++| BNEM     BSS    1           BLOCK SEQUENCE ERROR
06833  M00S04690.1mt     +++| MAXM     BSS    1           MAXIMUM SPECIAL ERRORS
06834  M00S04691.1mt     +++|
06835  M00S04692.1mt     +++|          ORG    BEGM
06836  M00S04693.1mt     +++|          TITLE  SUBROUTINES.
06837  M00S04694.1mt     +++| CDA      SPACE  4,10
06838  M00S04695.1mt     +++|**        CDA - CONVERT DATA (4 DIGITS).
06839  M00S04696.1mt     +++|*
06840  M00S04697.1mt     +++|*         ENTRY  (A, 17 - 12) = ADDRESS WHERE DATA CONTAINED.
06841  M00S04698.1mt     +++|*                (A, 11 - 0) = ADDRESS WHERE TO STORE RESULT.
06842  M00S04699.1mt     +++|*
06843  M00S04700.1mt     +++|*         CALLS  C2D.
06844  M00S04701.1mt     +++|*
06845  M00S04702.1mt     +++|*         USES   T2, T3.
06846  M00S04703.1mt     +++|
06847  M00S04704.1mt     +++|
06848  M00S04705.1mt     +++| CDA      SUBR               ENTRY/EXIT
06849  M00S04706.1mt     +++|          STD    T3          SAVE DESTINATION ADDRESS
06850  M00S04707.1mt     +++|          SHN    -14
06851  M00S04708.1mt     +++|          STD    T2          SAVE DATA ADDRESS
06852  M00S04709.1mt     +++|          LDI    T2          CONVERT FIRST 2 DIGITS
06853  M00S04710.1mt     +++|          SHN    -6
06854  M00S04711.1mt     +++|          RJM    C2D
06855  M00S04712.1mt     +++|          STI    T3
06856  M00S04713.1mt     +++|          LDI    T2          CONVERT SECOND 2 DIGITS
06857  M00S04714.1mt     +++|          RJM    C2D
06858  M00S04715.1mt     +++|          STM    1,T3
06859  M00S04716.1mt     +++|          UJN    CDAX        RETURN
06860  M00S04717.1mt     +++| CDN      SPACE  4,10
06861  M00S04718.1mt     +++|**        CDN - CONVERT DATA (N DIGITS)
06862  M00S04719.1mt     +++|*
06863  M00S04720.1mt     +++|*         ENTRY  (A, 17 - 12) = LENGTH OF DATA.
06864  M00S04721.1mt     +++|*                (A, 11 - 0) = SOURCE OF DATA TO CONVERT.
06865  M00S04722.1mt     +++|*                (CN+3) = DESTINATION OF CONVERTED DATA.
06866  M00S04723.1mt     +++|*
06867  M00S04724.1mt     +++|*         CALLS  CDA.
06868  M00S04725.1mt     +++|*
06869  M00S04726.1mt     +++|*         USES   CN - CN+2
06870  M00S04727.1mt     +++|
06871  M00S04728.1mt     +++|
06872  M00S04729.1mt     +++| CDN      SUBR               ENTRY/EXIT
06873  M00S04730.1mt     +++|          STD    CN+1        SAVE ADDRESS OF DATA TO CONVERT
06874  M00S04731.1mt     +++|          SHN    -14         SAVE LENGTH
06875  M00S04732.1mt     +++|          STD    CN+2
06876  M00S04733.1mt     +++| CDN1     LDI    CN+1        CONVERT ONE BYTE OF DATA
06877  M00S04734.1mt     +++|          STD    CN
06878  M00S04735.1mt     +++|          LDC    CN*10000
06879  M00S04736.1mt     +++|          ADD    CN+3
06880  M00S04737.1mt     +++|          RJM    CDA
06881  M00S04738.1mt     +++|          LDN    2
06882  M00S04739.1mt     +++|          RAD    CN+3
06883  M00S04740.1mt     +++|          AOD    CN+1
06884  M00S04741.1mt     +++|          SOD    CN+2
06885  M00S04742.1mt     +++|          NJN    CDN1        IF NOT COMPLETE
06886  M00S04743.1mt     +++|          UJN    CDNX        RETURN
06887  M00S04744.1mt     +++| IDM      SPACE  4,10
06888  M00S04745.1mt     +++|**        IDM - ISSUE DAYFILE MESSAGES.
06889  M00S04746.1mt     +++|*
06890  M00S04747.1mt     +++|*         ENTRY  (A) = MESSAGE DESTINATION CODE
06891  M00S04748.1mt     +++|*                (IDMA) = ADDRESS OF MESSAGE LINES TABLE.
06892  M00S04749.1mt     +++|*
06893  M00S04750.1mt     +++|*         EXIT   MESSAGE LINES DEFINED IN THE *IDMC* TABLE ARE ISSUED.
06894  M00S04751.1mt     +++|*
06895  M00S04752.1mt     +++|*         USES   T8.
06896  M00S04753.1mt     +++|*
06897  M00S04754.1mt     +++|*         CALLS  DFM.
06898  M00S04755.1mt     +++|
06899  M00S04756.1mt     +++|
06900  M00S04757.1mt     +++| IDM      SUBR               ENTRY/EXIT
06901  M00S04758.1mt     +++|          LMC    LMCI        SET MESSAGE DESTINATION CODE
06902  M00S04759.1mt     +++|          STM    IDMB
06903  M00S04760.1mt     +++|          LDN    0           INITIALIZE MESSAGE INDEX
06904  M00S04761.1mt     +++|          STD    T8
06905  M00S04762.1mt     +++|
06906  M00S04763.1mt     +++|*         LOOP UNTIL ALL MESSAGE LINES ARE ISSUED TO THE DAYFILE.
06907  M00S04764.1mt     +++|
06908  M00S04765.1mt     +++| IDM1     LDM    IDMC,T8     GET NEXT MESSAGE POINTER
06909  M00S04766.1mt     +++|*         LDM    IDMD,T8     (4 LINES OF MESSAGE)
06910  M00S04767.1mt     +++|*         LDM    /3M /FSCA,T8  (6 LINES OF MESSAGE)
06911  M00S04768.1mt     +++| IDMA     EQU    *-1
06912  M00S04769.1mt     +++|          ZJN    IDMX        IF ALL MESSAGES ISSUED
06913  M00S04770.1mt     +++|          LMC    **          ADD MESSAGE DESTINATION
06914  M00S04771.1mt     +++| IDMB     EQU    *-2         (MESSAGE DESTINATION CODE)
06915  M00S04772.1mt     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
06916  M00S04773.1mt     +++|          AOD    T8          ADVANCE MESSAGE INDEX
06917  M00S04774.1mt     +++|          UJN    IDM1        ISSUE NEXT MESSAGE LINE
06918  M00S04775.1mt     +++|
06919  M00S04776.1mt     +++|
06920  M00S04777.1mt     +++|*         TABLE OF MESSAGE LINE POINTERS FOR 5 LINES.
06921  M00S04778.1mt     +++|
06922  M00S04779.1mt     +++| IDMC     BSS    0
06923  M00S04780.1mt     +++|          LOC    0
06924  M00S04781.1mt     +++|          CON    MESA        LINE 1
06925  M00S04782.1mt     +++|          CON    MESB        LINE 2
06926  M00S04783.1mt     +++|          CON    MESC        LINE 3
06927  M00S04784.1mt     +++|          CON    MESD        LINE 4
06928  M00S04785.1mt     +++|          CON    MESE        LINE 5
06929  M00S04786.1mt     +++|          CON    0           TERMINATOR
06930  M00S04787.1mt     +++|          LOC    *O
06931  M00S04788.1mt     +++|
06932  M00S04789.1mt     +++|
06933  M00S04790.1mt     +++|*         TABLE OF MESSAGE LINE POINTERS FOR 4 LINES.
06934  M00S04791.1mt     +++|
06935  M00S04792.1mt     +++| IDMD     BSS    0
06936  M00S04793.1mt     +++|          LOC    0
06937  M00S04794.1mt     +++|          CON    MESA        LINE 1
06938  M00S04795.1mt     +++|          CON    MESB        LINE 2
06939  M00S04796.1mt     +++|          CON    MESD        LINE 3
06940  M00S04797.1mt     +++|          CON    MESE        LINE 4
06941  M00S04798.1mt     +++|          CON    0           TERMINATOR
06942  M00S04799.1mt     +++|          LOC    *O
06943  M00S04800.1mt     +++| RUW      SPACE  4,10
06944  M00S04801.1mt     +++|**        RUW - READ UNIT DESCRIPTOR TABLE WORD.
Line S04802 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06945  M01S04802.274l797 ---|*         USED TO READ UDT WHEN POSSIBLY NOT AT MAGNETS CP.
Line S00673 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06946  M01S00673.274l797 +++|*         USED TO READ UDT WHEN POSSIBLY NOT AT MAGNET CP.
06947  M00S04803.1mt     +++|*
06948  M00S04804.1mt     +++|*         ENTRY  (A) = UDT WORD.
06949  M00S04805.1mt     +++|*
06950  M00S04806.1mt     +++|*         EXIT   (CN - CN+4) = WORD READ.
06951  M00S04807.1mt     +++|*
06952  M00S04808.1mt     +++|*         USES   T1, CM - CM+4, CN - CN+4.
06953  M00S04809.1mt     +++|*
06954  M00S04810.1mt     +++|*         MACROS DELAY, MONITOR, PAUSE.
06955  M00S04811.1mt     +++|
06956  M00S04812.1mt     +++|
06957  M00S04813.1mt     +++| RUW2     LDD    MA
06958  M00S04814.1mt     +++|          CRD    CN
06959  M00S04815.1mt     +++|
06960  M00S04816.1mt     +++| RUW      SUBR               ENTRY/EXIT
06961  M00S04817.1mt     +++|          STD    T1
06962  M00S04818.1mt     +++| RUW1     LDM    UADA
06963  M00S04819.1mt     +++|          ADD    T1
06964  M00S04820.1mt     +++|          STD    CM+4
06965  M00S04821.1mt     +++|          LDD    HN          REQUEST 1 WORD
06966  M00S04822.1mt     +++|          STD    CM+3
06967  M00S04823.1mt     +++|          LDN    0           REQUEST READ FROM *MAGNET*
06968  M00S04824.1mt     +++|          STD    CM+1
06969  M00S04825.1mt     +++|          LCN    7777-/SSD/MTSI  SET *MAGNET* SUBSYSTEM IDENTIFICATION
06970  M00S04826.1mt     +++|          STD    CM+2
06971  M00S04827.1mt     +++|          MONITOR TDAM
06972  M00S04828.1mt     +++|          LDD    CM+1
06973  M00S04829.1mt     +++|          LMN    1
06974  M00S04830.1mt     +++|          NJN    RUW2        IF MOVE NOT IN PROGRESS
06975  M00S04831.1mt     +++|          PAUSE  NE
06976  M00S04832.1mt     +++|          DELAY
06977  M00S04833.1mt     +++|          UJN    RUW1        REISSUE REQUEST
06978  M00S04834.1mt     +++|          TITLE  OVERLAY AREA.
06979  M00S04835.1mt     +++|          ERRNG  ERLB-*      IF OVERFLOW INTO OVERLAY AREA
06980  M00S04836.1mt     +++|
06981  M00S04837.1mt     +++|
06982  M00S04838.1mt     +++|*         NOTE - THE FOLLOWING CODE MAY BE OVERLAID IF THE
06983  M00S04839.1mt     +++|*         SPECIAL ERROR MESSAGES OVERLAY IS REQUIRED.
Line S04840 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06984  M01S04840.282l826 ---| BDM      SPACE  4,10
Line S00485 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06985  M01S00485.282l826 +++| BDM      SPACE  4,15
06986  M00S04841.1mt     +++|**        BDM - BUILD MESSAGE.
06987  M00S04842.1mt     +++|*
Line S04843 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06988  M01S04843.282l826 ---|*         EXIT   MESSAGE BUILT.  (EXCEPT DESCRIPTIVE MESSAGE IN
06989  M01S04844.282l826 ---|*                LAST LINE OF MESSAGE.)
Line S00486 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06990  M01S00486.282l826 +++|*         EXIT   MESSAGE BUILT EXCEPT FOR DESCRIPTIVE MESSAGE IN LAST
06991  M01S00487.282l826 +++|*                  LINE OF MESSAGE.
06992  M00S04845.1mt     +++|*                (EMMD) MODIFIED IF MESSAGE ISSUE TO USER DISABLED.
Line S00488 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06993  M01S00488.282l826 +++|*                *EMM* EXIT SET TO *RET4* IF CALLED FROM *ERR* AND
06994  M01S00489.282l826 +++|*                  REQUEST IN PROGRESS.
06995  M01S00490.282l826 +++|*                *EMM* EXIT SET TO *PNR* IF CALLED FROM *ERR* AND
06996  M01S00491.282l826 +++|*                  REQUEST NOT IN PROGRESS.
06997  M00S04846.1mt     +++|*
06998  M00S04847.1mt     +++|*         CALLS  CDA, CDN, C2D, HNG, MCH, RUW, SCS, UAD.
06999  M00S04848.1mt     +++|*
Line S04849 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07000  M01S04849.282l826 ---|*         MACROS CHTE.
Line S00492 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07001  M01S00492.282l826 +++|*         MACROS CHTE, SFA.
07002  M00S04850.1mt     +++|
07003  M00S04851.1mt     +++|
07004  M00S04852.1mt     +++| BDM      SUBR               ENTRY/EXIT
Line S00493 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07005  M01S00493.282l826 +++|
07006  M01S00494.282l826 +++|*         CHECK CALL TYPE.
07007  M01S00495.282l826 +++|
07008  M00S04853.1mt     +++|          LDC    CTAB        MODIFY CHANNELS
07009  M00S04854.1mt     +++|          RJM    MCH
07010  M00S04855.1mt     +++|          LDM    //LOV       CHECK CALL ORIGIN
07011  M00S04856.1mt     +++|          LMC    .EERR
Line S04857 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07012  M01S04857.282l826 ---|          NJN    BDM2        IF NOT CALLED FROM ERR
Line S00496 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07013  M01S00496.282l826 +++|          NJN    BDM2        IF NOT CALLED FROM *ERR*
07014  M00S04858.1mt     +++|          LDD    RS
07015  M00S04859.1mt     +++|          LMN    /MTX/RIP
07016  M00S04860.1mt     +++|          ZJN    BDM1        IF REQUEST IN PROGRESS
07017  M00S04861.1mt     +++|          LDC    //PNR&//RET4
07018  M00S04862.1mt     +++| BDM1     LMC    //RET4
07019  M00S04863.1mt     +++|          STM    //LOV
07020  M00S04864.1mt     +++|          LDM    //ERR
07021  M00S04865.1mt     +++|          ADC    -OVL
Line S04866 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07022  M01S04866.282l826 ---|          MJN    BDM3        IF CALLED FROM RESIDENT
Line S00497 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07023  M01S00497.282l826 +++|          MJN    BDM4        IF *ERR* CALLED FROM RESIDENT
07024  M00S04867.1mt     +++| BDM2     LDM    //STER      USE STATUS WHEN ERROR OCCURRED
07025  M00S04868.1mt     +++|          STD    DS
Line S04869 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07026  M01S04869.282l826 ---|          UJN    BDM4        CHECK ERROR CODE
07027  M01S04870.282l826 ---|
07028  M01S04871.282l826 ---| BDM3     LDM    //ERR
07029  M01S04872.282l826 ---|          NJN    BDM4        IF NOT CHANNEL ILL
07030  M01S04873.282l826 ---|          LDC    LDNI        SET DROP OUT
07031  M01S04874.282l826 ---|          STM    //PNRC
07032  M01S04875.282l826 ---|          LDN    /MTX/CMF
07033  M01S04876.282l826 ---|          STD    EC
07034  M00S04877.1mt     +++|
07035  M00S04878.1mt     +++|*         CHECK VALIDITY OF ERROR CODE.
07036  M00S04879.1mt     +++|
07037  M00S04880.1mt     +++| BDM4     LDD    EC
07038  M00S04881.1mt     +++|          SBN    /MTX/MERC
07039  M00S04882.1mt     +++|          MJN    BDM5        IF VALID ERROR CODE
07040  M00S04883.1mt     +++|          RJM    HNG         HANG PP
07041  M00S04884.1mt     +++| BDM5     LDN    0           CLEAR ERROR TYPE INDICATOR
07042  M00S04885.1mt     +++|          STM    //ERR
07043  M00S04886.1mt     +++|          LDM    TERM,EC     SAVE TABLE ENTRY
07044  M00S04887.1mt     +++|          STM    EMMA
07045  M00S04888.1mt     +++|          LDD    EC
07046  M00S04889.1mt     +++|          LMN    /MTX/LCH
07047  M00S04890.1mt     +++|          NJN    BDM6        IF NOT LOAD CHECK ERROR
07048  M00S04891.1mt     +++|          AOM    //RELA      SET UNIT CONNECTED
07049  M00S04892.1mt     +++|          RJM    UAD         SET UP DIRECT CELLS FOR MESSAGE
07050  M00S04893.1mt     +++|          ADN    /MTX/UST2
07051  M00S04894.1mt     +++|          CRM    EI,TR
Line S00130 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07052  M02S00130.282l826 ---|          LDD    NB          COPY FORMAT TO *FM*
07053  M02S00131.282l826 ---|          SHN    -6
07054  M02S00132.282l826 ---|          STD    FM
07055  M00S04895.1mt     +++|
07056  M00S04896.1mt     +++|*         MESSAGE BUILD.
07057  M00S04897.1mt     +++|
07058  M00S04898.1mt     +++| BDM6     LDD    HP          SET DEVICE TYPE IN MESSAGE LINES
07059  M00S04899.1mt     +++|          LPN    1
07060  M00S04900.1mt     +++|          SHN    6
07061  M00S04901.1mt     +++|          ADC    2RMT
07062  M00S04902.1mt     +++|          RJM    SCS         SET CHARACTERS
07063  M00S04903.1mt     +++|          CHTE   *           SET CHANNEL NUMBER
07064  M00S04904.1mt     +++|          LDN    CH
07065  M00S04905.1mt     +++|          RJM    C2D
07066  M00S04906.1mt     +++|          ADC    2*10000
07067  M00S04907.1mt     +++|          RJM    SCS
Line S04908 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07068  M01S04908.282l826 ---|          LDD    ED          SET ED NUMBER
Line S00498 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07069  M01S00498.282l826 +++|          SFA    EST,EO      GET EQUIPMENT AND UNIT NUMBER
07070  M01S00499.282l826 +++|          ADK    EQDE
07071  M01S00500.282l826 +++|          CRD    CM
07072  M01S00501.282l826 +++|          LDD    CM+4        SET EQUIPMENT NUMBER
07073  M00S04909.1mt     +++|          SHN    -11
07074  M00S04910.1mt     +++|          RAM    MESA+3
Line S04911 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07075  M01S04911.282l826 ---|          LDD    ED          SET UNIT NUMBER
Line S00502 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07076  M01S00502.282l826 +++|          LDD    CM+4        SET UNIT NUMBER
07077  M00S04912.1mt     +++|          SHN    -3
07078  M00S04913.1mt     +++|          LPN    1
07079  M00S04914.1mt     +++|          RAM    MESA+4
Line S04915 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07080  M01S04915.282l826 ---|          LDD    ED
Line S00503 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07081  M01S00503.282l826 +++|          LDD    CM+4
07082  M00S04916.1mt     +++|          LPN    7
07083  M00S04917.1mt     +++|          SHN    6
07084  M00S04918.1mt     +++|          RAM    MESA+5
07085  M00S04919.1mt     +++|          LDN    /MTX/UVSN   READ UP VSN
07086  M00S04920.1mt     +++|          RJM    RUW
07087  M00S04921.1mt     +++|          LDD    CN
07088  M00S04922.1mt     +++|          ZJN    BDM7        IF VSN NOT SPECIFIED
07089  M00S04923.1mt     +++|          STM    MESA+6
07090  M00S04924.1mt     +++|          LDD    CN+1
07091  M00S04925.1mt     +++|          STM    MESA+7
07092  M00S04926.1mt     +++|          LDD    CN+2
07093  M00S04927.1mt     +++|          STM    MESA+10
07094  M00S04928.1mt     +++| BDM7     LDM    ITMA
07095  M00S04929.1mt     +++|          LPN    77
Line S04930 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07096  M01S04930.274l797 ---|          LMN    50
Line S00674 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07097  M01S00674.274l797 +++|          LMN    F0050
07098  M00S04931.1mt     +++|          NJN    BDM8        IF NOT WRITE OPERATION
07099  M00S04932.1mt     +++|          LDN    1RW-1RR     CHANGE *RD* TO *WD*
07100  M00S04933.1mt     +++|          RAM    MESA+11
Line S04934 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07101  M01S04934.282l826 ---| BDM8     LDN    /MTX/UUFN   GET EST ORDINAL WRITTEN ON
Line S00504 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07102  M01S00504.282l826 +++| BDM8     LDN    /MTX/UGNU   GET EST ORDINAL WRITTEN ON
07103  M00S04935.1mt     +++|          RJM    RUW
Line S04936 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07104  M01S04936.282l826 ---|          LDD    CN+4
Line S00505 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07105  M01S00505.282l826 +++|          LDD    CN+1
Line S04937 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07106  M01S04937.ns22000 ---|          SHN    -6
07107  M00S04938.1mt     +++|          ZJN    BDM9        IF EST NOT AVAILABLE
Line S00133 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07108  M01S00133.ns22000 +++|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
07109  M01S00134.ns22000 +++|          ADC    2R 0
07110  M01S00135.ns22000 +++|          STM    MESA+13
Line S00136 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07111  M02S00136.282l826 ---|          LDD    CN+4        CONVERT LOWER TWO DIGITS OF EST ORDINAL
Line S00506 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07112  M01S00506.282l826 +++|          LDD    CN+1        CONVERT LOWER TWO DIGITS OF EST ORDINAL
07113  M00S04939.1mt     +++|          RJM    C2D
Line S04940 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07114  M01S04940.ns22000 ---|          STM    MESA+13
Line S00137 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07115  M01S00137.ns22000 +++|          STM    MESA+14
07116  M00S04941.1mt     +++| BDM9     LDM    STCB        SET CHANNEL STATUS
07117  M00S04942.1mt     +++|          SHN    6
Line S04943 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07118  M01S04943.ns22000 ---|          RAM    MESA+15
Line S00138 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07119  M01S00138.ns22000 +++|          RAM    MESA+16
Line S04944 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07120  M01S04944.ns22000 ---|          LDC    MESA+17     SET GENERAL STATUS
Line S00139 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07121  M01S00139.ns22000 +++|          LDC    MESA+20
07122  M00S04945.1mt     +++|          STD    CN+3
07123  M00S04946.1mt     +++|          LDC    1*10000+DS
07124  M00S04947.1mt     +++|          RJM    CDN
07125  M00S04948.1mt     +++|          LDC    1*10000+UBWB SET BID BYTE
07126  M00S04949.1mt     +++|          RJM    CDN
07127  M00S04950.1mt     +++|          LDD    EC          SET ERROR CODE
07128  M00S04951.1mt     +++|          RJM    C2D
07129  M00S04952.1mt     +++|          STM    MESE+4
07130  M00S04953.1mt     +++|          LDD    FN          CONVERT SOFTWARE FUNCTION NUMBER
07131  M00S04954.1mt     +++|          RJM    C2D
07132  M00S04955.1mt     +++|          STM    MESD+4
07133  M00S04956.1mt     +++|          LDD    EI          CONVERT ERROR ITERATION NUMBER
07134  M00S04957.1mt     +++|          RJM    C2D
07135  M00S04958.1mt     +++|          STM    MESD+6
07136  M00S04959.1mt     +++|          LDD    BL          CONVERT BLOCK NUMBER
07137  M00S04960.1mt     +++|          RJM    C2D
07138  M00S04961.1mt     +++|          STM    MESD+10
Line S04962 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07139  M01S04962.274l797 ---|          LDC    BL*10000+10000+MESD+11  CONVERY BLOCK NUMBER
Line S00675 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07140  M01S00675.274l797 +++|          LDC    BL*10000+10000+MESD+11  CONVERT BLOCK NUMBER
07141  M00S04963.1mt     +++|          RJM    CDA
07142  M00S04964.1mt     +++|          LDC    BY*10000+MESD+14  CONVERT BLOCK LENGTH
07143  M00S04965.1mt     +++|          RJM    CDA
07144  M00S04966.1mt     +++|          LDC    MESB+4      CONVERT DETAILED STATUS
07145  M00S04967.1mt     +++|          STD    CN+3
07146  M00S04968.1mt     +++|          LDC    10*10000+MTDS
07147  M00S04969.1mt     +++|          RJM    CDN
07148  M00S04970.1mt     +++|          LDN    MESD+17-MESB-24  CONVERT ERROR PARAMETERS
07149  M00S04971.1mt     +++|          RAD    CN+3
07150  M00S04972.1mt     +++|          LDC    2*10000+EP
07151  M00S04973.1mt     +++|          RJM    CDN
07152  M00S04974.1mt     +++|          LDN    MESE+6-MESD-23  CONVERT FORMAT
07153  M00S04975.1mt     +++|          RAD    CN+3
07154  M00S04976.1mt     +++|          LDC    2*10000+MTSF
07155  M00S04977.1mt     +++|          RJM    CDN
07156  M00S04978.1mt     +++|          LDD    CF
07157  M00S04979.1mt     +++|          SHN    21-7
07158  M00S04980.1mt     +++|          MJN    BDM10       IF MTS CONTROLLER
07159  M00S04981.1mt     +++|          LDC    MESC+4      SET UNIT STATUS FOR ATS
07160  M00S04982.1mt     +++|          STD    CN+3
07161  M00S04983.1mt     +++|          LDC    6*10000+ATUS
07162  M00S04984.1mt     +++|          RJM    CDN
07163  M00S04985.1mt     +++|          LDN    MESC+21-MESC-20 SET THIRD FORMAT PARAMETER
07164  M00S04986.1mt     +++|          RAD    CN+3
07165  M00S04987.1mt     +++|          LDC    1*10000+MTSF+2
07166  M00S04988.1mt     +++|          RJM    CDN
07167  M00S04989.1mt     +++|          UJN    BDM11       CHECK ERROR MESSAGE PROCESSING OPTION
07168  M00S04990.1mt     +++|
07169  M00S04991.1mt     +++| BDM10    LDC    IDMD        SET 4 LINE MESSAGE
07170  M00S04992.1mt     +++|          STM    IDMA
07171  M00S04993.1mt     +++| BDM11    LDD    SP          CHECK ERROR MESSAGE PROCESSING OPTION
07172  M00S04994.1mt     +++|          SHN    21-7
Line S04995 Modification History
M01 (Removed by) ns2585
Seq #  *Modification Id* Act 
----------------------------+
07173  M01S04995.ns2585  ---|          MJN    BDM12       IF ISSUE MESSAGES
Line S00001 Modification History
M01 (Added by) ns2585
Seq #  *Modification Id* Act 
----------------------------+
07174  M01S00001.ns2585  +++|          PJN    BDM11.1     IF USER DAYFILE MESSAGES ARE DISABLED
07175  M00S04996.1mt     +++|          LDD    EC
07176  M00S04997.1mt     +++|          ZJN    BDM12       IF RECOVERED MESSAGE
07177  M00S04998.1mt     +++|          LMN    /MTX/OTF
07178  M00S04999.1mt     +++|          ZJN    BDM12       IF ON THE FLY ERROR
07179  M00S05000.1mt     +++|          LDD    EI
07180  M00S05001.1mt     +++|          ZJN    BDM12       IF FIRST ITERATION
Line S05002 Modification History
M01 (Removed by) ns2585
Seq #  *Modification Id* Act 
----------------------------+
07181  M01S05002.ns2585  ---|          LDC    LPNI+0      DISABLE MESSAGE ISSUE
Line S00002 Modification History
M01 (Added by) ns2585
Seq #  *Modification Id* Act 
----------------------------+
07182  M01S00002.ns2585  +++| BDM11.1  LDC    LPNI+0      DISABLE MESSAGE ISSUE
07183  M00S05003.1mt     +++|          STM    EMMD
07184  M00S05004.1mt     +++| BDM12    LJM    BDMX        RETURN
07185  M00S05005.1mt     +++| SCS      SPACE  4,10
07186  M00S05006.1mt     +++|**        SCS - STORE CHARACTERS IN MESSAGE LINES.
07187  M00S05007.1mt     +++|*
07188  M00S05008.1mt     +++|*         ENTRY  (A, 17 - 12) = MESSAGE FIELD INDEX.
07189  M00S05009.1mt     +++|*                (A, 11 -  0) = CHARACTERS.
07190  M00S05010.1mt     +++|*
07191  M00S05011.1mt     +++|*         USES   T0, T1.
07192  M00S05012.1mt     +++|
07193  M00S05013.1mt     +++|
07194  M00S05014.1mt     +++| SCS      SUBR               ENTRY/EXIT
07195  M00S05015.1mt     +++|          STD    T0          SAVE CHARACTERS
07196  M00S05016.1mt     +++|          SHN    -14
07197  M00S05017.1mt     +++|          ADC    MESA
07198  M00S05018.1mt     +++|          STD    T1
07199  M00S05019.1mt     +++| SCS1     LDD    T0
07200  M00S05020.1mt     +++|          STI    T1
07201  M00S05021.1mt     +++|          LDN    MESB-MESA
07202  M00S05022.1mt     +++|          RAD    T1
07203  M00S05023.1mt     +++|          ADC    -MESL
07204  M00S05024.1mt     +++|          MJN    SCS1        LOOP
07205  M00S05025.1mt     +++|          UJN    SCSX        RETURN
07206  M00S05026.1mt     +++| BUF      SPACE  4,10
07207  M00S05027.1mt     +++|          USE    BUFFER
07208  M00S05028.1mt     +++| CTAB     SPACE  4,10
07209  M00S05029.1mt     +++|*         CHANNEL TABLE.
07210  M00S05030.1mt     +++|
07211  M00S05031.1mt     +++|
Line S05032 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07212  M01S05032.274l797 ---| CTAB     CHTB   CHANNEL TABLE
Line S00676 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07213  M01S00676.274l797 +++| CTAB     CHTB               CHANNEL TABLE
07214  M00S05033.1mt     +++|
07215  M00S05034.1mt     +++|          ERRNG  2*473+ERLA+5-*  ERROR PROCESSOR OVERFLOW
07216  M00S05035.1mt     +++|          OVERLAY (MTS/ATS SPECIAL MESSAGE PROCESSOR.),(ERLB+5),P
07217  M00S05036.1mt     +++|
07218  M00S05037.1mt     +++|
07219  M00S05038.1mt     +++|**        THIS OVERLAY IS CALLED FROM *EMM* FOR ERRORS WHICH
07220  M00S05039.1mt     +++|*         REQUIRE ADDITIONAL PROCESSING. SEE TABLE IN *EMM* FOR
07221  M00S05040.1mt     +++|*         LIST OF ERRORS WHICH REQUIRE THIS OVERLAY.
07222  M00S05041.1mt     +++| EMN      SPACE  4,10
07223  M00S05042.1mt     +++|**        EMN - MTS ERRLOG MESSAGE SPECIAL PROCESSOR.
07224  M00S05043.1mt     +++|*
07225  M00S05044.1mt     +++|*         ENTRY  (/EMM/EMMA) = INDEX TO PROCESSOR.
07226  M00S05045.1mt     +++|*
07227  M00S05046.1mt     +++|*         EXIT   (/EMM/EMMA) = MESSAGE ADDRESS.
07228  M00S05047.1mt     +++|*
07229  M00S05048.1mt     +++|*         CALLS  BNP, CKR, ECN, FRE, FSC.
07230  M00S05049.1mt     +++|
07231  M00S05050.1mt     +++|
07232  M00S05051.1mt     +++| EMN      SUBR               ENTRY/EXIT
07233  M00S05052.1mt     +++|          LDC    UJNI+/EMM/EMM5-/EMM/EMMB
07234  M00S05053.1mt     +++|          ERRPL  /EMM/EMM5-/EMM/EMMB-40  CHECK JUMP IN RANGE
Line S05054 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07235  M01S05054.v23l617 ---|          STM    /EMM/EMMB   SET *3ME* ALREADY EXECUTED
Line S00140 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07236  M01S00140.v23l617 +++|          STM    /EMM/EMMB   SET *3MD* ALREADY EXECUTED
07237  M00S05055.1mt     +++|          LDM    /EMM/EMMA   GET PROCESSOR INDEX
07238  M00S05056.1mt     +++|          ZJN    EMN2        IF ONLY CALLED FOR FSC STATUS
07239  M00S05057.1mt     +++|          STD    T1
07240  M00S05058.1mt     +++|          SBN    /EMM/MAXM
07241  M00S05059.1mt     +++|          PJN    EMN2        IF FSC STATUS CALL BUT MESSAGE DEFINED
07242  M00S05060.1mt     +++|          LDM    SPRI,T1
07243  M00S05061.1mt     +++|          STM    EMNA
07244  M00S05062.1mt     +++|          RJM    *           PROCESS ERROR
07245  M00S05063.1mt     +++| EMNA     EQU    *-1
07246  M00S05064.1mt     +++|          STM    /EMM/EMMA   SET MESSAGE ADDRESS
Line S05065 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07247  M01S05065.v23l617 ---|          LDD    HP
07248  M01S05066.v23l617 ---|          SHN    21-6
07249  M01S05067.v23l617 ---|          PJN    EMNX        IF NOT FSC ADAPTOR
07250  M01S05068.v23l617 ---| EMN1     RJM    FSC         OBTAIN AND FORMAT FSC STATUS
07251  M01S05069.v23l617 ---|          UJN    EMNX        RETURN
Line S00141 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07252  M01S00141.v23l617 +++| EMN1     LDD    HP
Line S00142 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07253  M02S00142.ns2466  ---|          SHN    21-6
07254  M02S00143.ns2466  ---|          MJN    EMN1.1      IF FSC ADAPTOR
07255  M02S00144.ns2466  ---|          SHN    21-10-21+6+22
07256  M02S00145.ns2466  ---|          PJN    EMNX        IF NOT ISMT ADAPTOR
Line S00146 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1mt6
M03 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07257  M03S00146.ns2466  ---|          LDM    MTDS        CHECK FOR ERROR CODE 70
07258  M03S00147.ns2466  ---|          LPN    77
07259  M03S00148.ns2466  ---|          LMN    70
07260  M03S00149.ns2466  ---|          ZJN    EMNX        IF ERROR CODE 70 DO NOT GET ISMT STATUS
Line S00150 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07261  M02S00150.ns2466  ---| EMN1.1   RJM    FSC         OBTAIN AND FORMAT FSC/ISMT STATUS
07262  M02S00151.ns2466  ---|          LJM    EMNX        RETURN
Line S00195 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07263  M01S00195.ns2466  +++|          LPC    500
07264  M01S00196.ns2466  +++|          ZJN    EMNX        IF NOT FSC/CMTS/ISMT ADAPTOR
07265  M01S00197.ns2466  +++|          RJM    FSC         OBTAIN AND FORMAT FSC/CMTS/ISMT STATUS
07266  M01S00198.ns2466  +++|          UJN    EMNX        RETURN
07267  M00S05070.1mt     +++|
07268  M00S05071.1mt     +++| EMN2     LDN    PSNI
07269  M00S05072.1mt     +++|          STM    /EMM/EMMC   SKIP MESSAGE MOVE
07270  M00S05073.1mt     +++|          UJN    EMN1        RETURN FSC STATUS
07271  M00S05074.1mt     +++|          TITLE  SPECIAL PROCESSORS.
07272  M00S05075.1mt     +++| SPRI     SPACE  4,10
07273  M00S05076.1mt     +++| SPRI     INDEX  0,//HNG
07274  M00S05077.1mt     +++|          INDEX  /EMM/FRJM,FRE
07275  M00S05078.1mt     +++|          INDEX  /EMM/WEOM,CKR
07276  M00S05079.1mt     +++|          INDEX  /EMM/CRJM,ECN
07277  M00S05080.1mt     +++|          INDEX  /EMM/BNEM,BNP
07278  M00S05081.1mt     +++|          INDEX  /EMM/MAXM
07279  M00S05082.1mt     +++| BNP      SPACE  4,10
07280  M00S05083.1mt     +++|**        BNP - BLOCK NUMBER PROCESSOR.
07281  M00S05084.1mt     +++|*
07282  M00S05085.1mt     +++|*         ENTRY  (BNEI) = ACTUAL BYTE LENGTH.
07283  M00S05086.1mt     +++|*                (BNEI+1 - BNEI+2) = ACTUAL BLOCK NUMBER.
07284  M00S05087.1mt     +++|*
07285  M00S05088.1mt     +++|*         EXIT   (A) = MESSAGE ADDRESS.
07286  M00S05089.1mt     +++|*
07287  M00S05090.1mt     +++|*         CALLS  /EMM/CDA, /EMM/C2D.
07288  M00S05091.1mt     +++|*
07289  M00S05092.1mt     +++|*         USES   CM.
07290  M00S05093.1mt     +++|
07291  M00S05094.1mt     +++|
07292  M00S05095.1mt     +++| BNP      SUBR               ENTRY/EXIT
07293  M00S05096.1mt     +++|          LDM    BNEI
07294  M00S05097.1mt     +++|          STD    CM
07295  M00S05098.1mt     +++|          LDC    CM*10000+BNPA+1  CONVERT EXPECTED LENGTH
07296  M00S05099.1mt     +++|          RJM    /EMM/CDA
07297  M00S05100.1mt     +++|          LDM    BNEI+1
07298  M00S05101.1mt     +++|          RJM    /EMM/C2D
07299  M00S05102.1mt     +++|          STM    BNPA+4
07300  M00S05103.1mt     +++|          LDM    BNEI+2
07301  M00S05104.1mt     +++|          STD    CM
07302  M00S05105.1mt     +++|          LDC    CM*10000+BNPA+5
07303  M00S05106.1mt     +++|          RJM    /EMM/CDA
07304  M00S05107.1mt     +++|          LDC    BNPA        SET MESSAGE ADDRESS
07305  M00S05108.1mt     +++|          UJN    BNPX        RETURN
07306  M00S05109.1mt     +++|
07307  M00S05110.1mt     +++|
07308  M00S05111.1mt     +++| BNPA     DATA   C* L0000,B000000.*
07309  M00S05112.1mt     +++| CKR      SPACE  4,10
07310  M00S05113.1mt     +++|**        CKR - CHECK IF READY OR WRITE ENABLE ERROR.
07311  M00S05114.1mt     +++|*         CLEARS LAST OPERATION WRITE FLAGS.
07312  M00S05115.1mt     +++|*
07313  M00S05116.1mt     +++|*         EXIT   (A) = MESSAGE ADDRESS.
07314  M00S05117.1mt     +++|
07315  M00S05118.1mt     +++|
07316  M00S05119.1mt     +++| CKR2     LDN    /MTX/RDR    SET READY DROP ERROR
07317  M00S05120.1mt     +++|          STD    EC
07318  M00S05121.1mt     +++| CKR3     LDC    CKRC        SET READY DROP MESSAGE
07319  M00S05122.1mt     +++|
07320  M00S05123.1mt     +++| CKR      SUBR               ENTRY/EXIT
Line S05124 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07321  M01S05124.282l826 ---|          LDD    HP          CLEAR WRITE FLAGS
07322  M01S05125.282l826 ---|          LPC    1777
07323  M01S05126.282l826 ---|          STD    HP
Line S00507 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07324  M01S00507.282l826 +++|          LDD    UP          CLEAR LAST OPERATION WRITE AND BLANK TAPE
07325  M01S00508.282l826 +++|          SCN    24
07326  M01S00509.282l826 +++|          STD    UP
07327  M00S05127.1mt     +++|          LDD    EC          CHECK FOR READY DROP ERROR
07328  M00S05128.1mt     +++|          SBN    /MTX/RDR
07329  M00S05129.1mt     +++|          ZJN    CKR3        IF READY DROP ERROR
07330  M00S05130.1mt     +++|          LDD    DS          CHECK FOR NOT READY STATUS
07331  M00S05131.1mt     +++|          SHN    21-0
07332  M00S05132.1mt     +++|          PJN    CKR2        IF NOT READY
07333  M00S05133.1mt     +++|          LDM    STWD
07334  M00S05134.1mt     +++|          LPN    2
07335  M00S05135.1mt     +++|          ZJN    CKR1        IF NOT WAIT BUSY
07336  M00S05136.1mt     +++|          LDD    DS
07337  M00S05137.1mt     +++|          LPN    2
07338  M00S05138.1mt     +++|          ZJN    CKR1        IF NOT BUSY
07339  M00S05139.1mt     +++|          LDC    CKRB        SET UNIT BUSY MESSAGE
07340  M00S05140.1mt     +++|          UJN    CKRX        RETURN
07341  M00S05141.1mt     +++|
07342  M00S05142.1mt     +++| CKR1     LDC    CKRA        SET NO EOP MESSAGE
07343  M00S05143.1mt     +++|          UJN    CKRX        RETURN
07344  M00S05144.1mt     +++|
07345  M00S05145.1mt     +++|
07346  M00S05146.1mt     +++| CKRA     DATA   C*NO EOP.*
07347  M00S05147.1mt     +++| CKRB     DATA   C*BUSY.*
07348  M00S05148.1mt     +++| CKRC     DATA   C*NOT READY.*
07349  M00S05149.1mt     +++| ECN      SPACE  4,10
07350  M00S05150.1mt     +++|**        ECN - ERROR ON CONNECT.
Line S05151 Modification History
M01 (Removed by) ns2774
Seq #  *Modification Id* Act 
----------------------------+
07351  M01S05151.ns2774  ---|*         MESSAGE IS ALTERED IF UNIT NOT TURNED OFF.
07352  M00S05152.1mt     +++|*
07353  M00S05153.1mt     +++|*         EXIT   (A) = MESSAGE ADDRESS.
Line S00510 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07354  M01S00510.282l826 +++|*
07355  M01S00511.282l826 +++|*         USES   CM - CM+4.
07356  M01S00512.282l826 +++|*
07357  M01S00513.282l826 +++|*         MACROS SFA.
07358  M00S05154.1mt     +++|
07359  M00S05155.1mt     +++|
Line S05156 Modification History
M01 (Removed by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
07360  M01S05156.1mt49   ---| ECN1     LDC    //RET4      SET TO ABORT
07361  M01S05157.1mt49   ---|          STM    //LOV
07362  M01S05158.1mt49   ---|          LDM    MTDS
Line S00004 Modification History
M01 (Added by) 1mt49
Seq #  *Modification Id* Act 
----------------------------+
07363  M01S00004.1mt49   +++| ECN1     LDM    MTDS
07364  M00S05159.1mt     +++|          LPN    77
07365  M00S05160.1mt     +++|          NJN    ECN2        IF CONNECT ERROR
07366  M00S05161.1mt     +++|
07367  M00S05162.1mt     +++|*         CHANGE MESSAGE TO *MDI* ERROR.
07368  M00S05163.1mt     +++|
07369  M00S05164.1mt     +++|          LDC    2RMD
07370  M00S05165.1mt     +++|          STM    ECNA+5
07371  M00S05166.1mt     +++|          LDC    2RI.
07372  M00S05167.1mt     +++|          STM    ECNA+6
Line S00001 Modification History
M01 (Added by) ns2774
Seq #  *Modification Id* Act 
----------------------------+
07373  M01S00001.ns2774  +++|          LDN    0
07374  M01S00002.ns2774  +++|          STM    ECNA+7
07375  M00S05168.1mt     +++| ECN2     LDC    ECNA        EXIT WITH MESSAGE ADDRESS
07376  M00S05169.1mt     +++|
07377  M00S05170.1mt     +++| ECN      SUBR               ENTRY/EXIT
Line S05171 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07378  M01S05171.282l826 ---|          LDD    ED          CHECK IF UNIT DOWN (OFF)
07379  M01S05172.282l826 ---|          SHN    21-10
07380  M01S05173.282l826 ---|          MJN    ECN1        IF UNIT DOWNED
Line S00514 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07381  M01S00514.282l826 +++|          SFA    EST,EO
07382  M01S00515.282l826 +++|          ADK    EQDE
07383  M01S00516.282l826 +++|          CRD    CM
07384  M01S00517.282l826 +++|          LDD    CM
Line S00518 Modification History
M01 (Added by) 282l826
M02 (Removed by) ns2774
Seq #  *Modification Id* Act 
----------------------------+
07385  M02S00518.ns2774  ---|          LPN    2
Line S00003 Modification History
M01 (Added by) ns2774
Seq #  *Modification Id* Act 
----------------------------+
07386  M01S00003.ns2774  +++|          LPN    3
Line S00519 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07387  M01S00519.282l826 +++|          LMN    /CPS/DWES
07388  M01S00520.282l826 +++|          ZJN    ECN1        IF UNIT DOWNED
07389  M00S05174.1mt     +++|          LDN    0           ALTER MESSAGE
07390  M00S05175.1mt     +++|          STM    ECNA+5
07391  M00S05176.1mt     +++|          UJN    ECN2        RETURN
07392  M00S05177.1mt     +++|
07393  M00S05178.1mt     +++|
Line S05179 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07394  M01S05179.282l826 ---| ECNA     DATA   C*CON. REJ. OFF.*
Line S00521 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07395  M01S00521.282l826 +++| ECNA     DATA   C*CON. REJ. DOWN.*
07396  M00S05180.1mt     +++| FRE      SPACE  4,10
07397  M00S05181.1mt     +++|**        FRE - FUNCTION REJECT ERROR.
07398  M00S05182.1mt     +++|*         DIAGNOSES ERROR BY GIVING FUNCTION AND THE ADDRESS OF
07399  M00S05183.1mt     +++|*         THE ROUTINE THAT INITIATED THE CALL.
07400  M00S05184.1mt     +++|*
07401  M00S05185.1mt     +++|*         EXIT   (A) = MESSAGE ADDRESS.
07402  M00S05186.1mt     +++|*
07403  M00S05187.1mt     +++|*         CALLS  /EMM/CDA.
07404  M00S05188.1mt     +++|*
07405  M00S05189.1mt     +++|*         USES   CM.
07406  M00S05190.1mt     +++|
07407  M00S05191.1mt     +++|
07408  M00S05192.1mt     +++| FRE      SUBR               ENTRY/EXIT
07409  M00S05193.1mt     +++|          LDM    //.OVLR+1   GET ADDRESS OF CALLER
07410  M00S05194.1mt     +++|          STD    CM
07411  M00S05195.1mt     +++|          LDC    CM*10000+FREA+4
07412  M00S05196.1mt     +++|          RJM    /EMM/CDA
07413  M00S05197.1mt     +++|          LDM    //.OVLR     CONVERT FUNCTION
07414  M00S05198.1mt     +++|          STD    CM
07415  M00S05199.1mt     +++|          LDC    CM*10000+FREA+1
07416  M00S05200.1mt     +++|          RJM    /EMM/CDA
07417  M00S05201.1mt     +++|          LDC    FREA        SET MESSAGE ADDRESS
07418  M00S05202.1mt     +++|          UJN    FREX        RETURN
07419  M00S05203.1mt     +++|
07420  M00S05204.1mt     +++|
07421  M00S05205.1mt     +++| FREA     DATA   C*FN0000,P0000.*
07422  M00S05206.1mt     +++| FSC      SPACE  4,15
Line S05207 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07423  M01S05207.v23l617 ---|**        FSC - FSC ADAPTOR STATUS
07424  M01S05208.v23l617 ---|*         OBTAINS AND INSERTS THE FSC SENSE BYTE STATUS INTO
Line S00152 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07425  M02S00152.ns2466  ---|**        FSC - FSC OR ISMT ADAPTOR STATUS.
07426  M02S00153.ns2466  ---|*         OBTAINS AND INSERTS THE FSC OR ISMT SENSE BYTE STATUS INTO
Line S00199 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07427  M01S00199.ns2466  +++|**        FSC - FSC/CMTS/ISMT ADAPTOR STATUS.
07428  M01S00200.ns2466  +++|*         OBTAINS AND INSERTS THE FSC/CMTS/ISMT SENSE BYTE STATUS INTO
07429  M00S05209.1mt     +++|*         THE ERROR LOG MESSAGE.
07430  M00S05210.1mt     +++|*
07431  M00S05211.1mt     +++|*         USES   CM - CM+4, CN - CN+3.
07432  M00S05212.1mt     +++|*
07433  M00S05213.1mt     +++|*         CALLS  /EMM/CDN, DME, FCN, MCH.
07434  M00S05214.1mt     +++|*
Line S05215 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07435  M01S05215.282l826 ---|*         MACROS CMOT.
07436  M01S05216.282l826 ---|*
07437  M00S05217.1mt     +++|*         NOTE - FSC ADAPTOR ALWAYS HAS A DEDICATED AND RESERVED
07438  M00S05218.1mt     +++|*                CHANNEL.  THE FSC STATUS (312) FUNCTION DOES NOT
07439  M00S05219.1mt     +++|*                REQUIRE A RESERVED UNIT.
07440  M00S05220.1mt     +++|
07441  M00S05221.1mt     +++|
Line S00001 Modification History
M01 (Added by) 1mt6
Seq #  *Modification Id* Act 
----------------------------+
07442  M01S00001.1mt6    +++| FSC2     LDM    /EMM/MESA   SET MT OR NT AND CHANNEL IN MESSAGE
07443  M01S00002.1mt6    +++|          STM    FSCB
07444  M01S00003.1mt6    +++|          LDM    /EMM/MESA+2
07445  M01S00004.1mt6    +++|          STM    FSCB+2
07446  M01S00005.1mt6    +++|          LDC    FSCA        INITIALIZE MESSAGE POINTER
07447  M01S00006.1mt6    +++|          STM    /EMM/IDMA
07448  M01S00007.1mt6    +++|
07449  M00S05222.1mt     +++| FSC      SUBR               ENTRY/EXIT
Line S00008 Modification History
M01 (Added by) 1mt6
Seq #  *Modification Id* Act 
----------------------------+
07450  M01S00008.1mt6    +++|          LDM    MTDS        CHECK FOR ERROR CODE 70
07451  M01S00009.1mt6    +++|          LPN    77
07452  M01S00010.1mt6    +++|          LMN    70
07453  M01S00011.1mt6    +++|          ZJP    FSC2        IF ERROR CODE 70 DO NOT GET ISMT STATUS
07454  M00S05223.1mt     +++|          LDC    FSCD        MODIFY CHANNELS
07455  M00S05224.1mt     +++|          RJM    MCH
Line S05225 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07456  M01S05225.282l826 ---|          RJM    DME         DETERMINE IF MONITORING ENABLED
07457  M00S05226.1mt     +++|          LDM    //MCCA      SKIP ACTUAL STATUS IF PREVIOUS REJECT
07458  M00S05227.1mt     +++|          LMC    LDNI+11
07459  M00S05228.1mt     +++|          NJN    FSC1        IF PREVIOUS FUNCTION REJECT
07460  M00S05229.1mt     +++|          LDC    312
Line S05230 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07461  M01S05230.v23l617 ---|          RJM    //FCN       ISSUE FSC STATUS FUNCTION
Line S00154 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07462  M02S00154.ns2466  ---|          RJM    //FCN       ISSUE FSC OR ISMT STATUS FUNCTION
Line S00201 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07463  M01S00201.ns2466  +++|          RJM    //FCN       ISSUE FSC/CMTS/ISMT STATUS FUNCTION
Line S05231 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07464  M01S05231.282l826 ---|          CMOT   *
07465  M00S05232.1mt     +++|          ACN    CH+40
07466  M00S05233.1mt     +++|          LDN    20D
Line S05234 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07467  M01S05234.282l826 ---|          CMOT   *
07468  M00S05235.1mt     +++|          IAM    FSCC,CH     INPUT STATUS
07469  M00S05236.1mt     +++| FSC1     LDC    /EMM/MESB+6
07470  M00S05237.1mt     +++|          STD    CN+3
07471  M00S05238.1mt     +++|          LDC    7*10000+FSCC  USE SENSE BYTES FOR DETAILED STATUS
07472  M00S05239.1mt     +++|          RJM    /EMM/CDN
07473  M00S05240.1mt     +++|          LDC    /EMM/MESC+4
07474  M00S05241.1mt     +++|          STD    CN+3
07475  M00S05242.1mt     +++|          LDC    6*10000+FSCC+7  SUBSTITUTE SENSE BYTES FOR UNIT STATUS
07476  M00S05243.1mt     +++|          RJM    /EMM/CDN
07477  M00S05244.1mt     +++|          LDC    FSCB+4
07478  M00S05245.1mt     +++|          STD    CN+3
07479  M00S05246.1mt     +++|          LDC    7*10000+FSCC+15  SET SENSE BYTES IN ADDITIONAL STATUS
07480  M00S05247.1mt     +++|          RJM    /EMM/CDN
Line S05248 Modification History
M01 (Removed by) 1mt6
Seq #  *Modification Id* Act 
----------------------------+
07481  M01S05248.1mt6    ---|          LDM    /EMM/MESA   SET MT OR NT AND CHANNEL IN MESSAGE
07482  M01S05249.1mt6    ---|          STM    FSCB
07483  M01S05250.1mt6    ---|          LDM    /EMM/MESA+2
07484  M01S05251.1mt6    ---|          STM    FSCB+2
07485  M01S05252.1mt6    ---|          LDC    FSCA
07486  M01S05253.1mt6    ---|          STM    /EMM/IDMA   INITIALIZE MESSAGE POINTER
07487  M01S05254.1mt6    ---|          LJM    FSCX        RETURN
Line S00012 Modification History
M01 (Added by) 1mt6
Seq #  *Modification Id* Act 
----------------------------+
07488  M01S00012.1mt6    +++|          LJM    FSC2        SET MT OR NT AND CHANNEL IN MESSAGE
07489  M00S05255.1mt     +++|
07490  M00S05256.1mt     +++|
Line S05257 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07491  M01S05257.v23l617 ---|*         TABLE OF MESSAGE LINE POINTERS FOR FSC.
Line S00155 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07492  M02S00155.ns2466  ---|*         TABLE OF MESSAGE LINE POINTERS FOR FSC OR ISMT.
Line S00202 Modification History
M01 (Added by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
07493  M01S00202.ns2466  +++|*         TABLE OF MESSAGE LINE POINTERS FOR FSC, CMTS OR ISMT.
07494  M00S05258.1mt     +++|
07495  M00S05259.1mt     +++| FSCA     BSS    0
07496  M00S05260.1mt     +++|          LOC    0
07497  M00S05261.1mt     +++|          CON    /EMM/MESA   LINE 1
07498  M00S05262.1mt     +++|          CON    /EMM/MESB   LINE 2
07499  M00S05263.1mt     +++|          CON    /EMM/MESC   LINE 3
07500  M00S05264.1mt     +++|          CON    FSCB        LINE 4
07501  M00S05265.1mt     +++|          CON    /EMM/MESD   LINE 5
07502  M00S05266.1mt     +++|          CON    /EMM/MESE   LINE 6
07503  M00S05267.1mt     +++|          CON    0           TERMINATOR
07504  M00S05268.1mt     +++|          LOC    *O
07505  M00S05269.1mt     +++|
07506  M00S05270.1mt     +++| FSCB     DATA   H*MT,C00,A0000000000000000000000000000.   *
07507  M00S05271.1mt     +++|          CON    0
07508  M00S05272.1mt     +++|
07509  M00S05273.1mt     +++| FSCC     BSSZ   20D         SENSE BYTE STATUS
07510  M00S05274.1mt     +++|
07511  M00S05275.1mt     +++| FSCD     CHTB               CHANNEL TABLE
Line S05276 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07512  M01S05276.282l826 ---| DME      SPACE  4,10
07513  M01S05277.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
07514  M01S05278.282l826 ---|*
07515  M01S05279.282l826 ---|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED TO USE MONITORING
07516  M01S05280.282l826 ---|*                CHANNEL, IF MONITORING IN PROGRESS.
07517  M01S05281.282l826 ---|*
07518  M01S05282.282l826 ---|*         USES   CM, T1, T2.
07519  M01S05283.282l826 ---|
07520  M01S05284.282l826 ---|
07521  M01S05285.282l826 ---| DME      SUBR               ENTRY/EXIT
07522  M01S05286.282l826 ---|          LDD    CF          CHECK FOR MONITORING IN PROGRESS
07523  M01S05287.282l826 ---|          SHN    21-2
07524  M01S05288.282l826 ---|          PJN    DMEX        IF MONITORING NOT ENABLED
07525  M01S05289.282l826 ---|          LDM    FCNA+1      SET CHANNEL
07526  M01S05290.282l826 ---|          LPN    37
07527  M01S05291.282l826 ---|          STD    CM
07528  M01S05292.282l826 ---|          LDC    DMEA        MODIFY CHANNELS
07529  M01S05293.282l826 ---|          STD    T1
07530  M01S05294.282l826 ---| DME1     LDI    T1
07531  M01S05295.282l826 ---|          ZJN    DMEX        IF END OF TABLE
07532  M01S05296.282l826 ---|          STD    T2
07533  M01S05297.282l826 ---|          LDI    T2
07534  M01S05298.282l826 ---|          SCN    37
07535  M01S05299.282l826 ---|          LMD    CM
07536  M01S05300.282l826 ---|          STI    T2
07537  M01S05301.282l826 ---|          AOD    T1
07538  M01S05302.282l826 ---|          UJN    DME1        LOOP
07539  M01S05303.282l826 ---|
07540  M01S05304.282l826 ---|
07541  M01S05305.282l826 ---| DMEA     TMOT               CHANNEL TABLE FOR MONITORING
07542  M00S05306.1mt     +++|          SPACE  4,10
07543  M00S05307.1mt     +++|          USE    BUFFER
07544  M00S05308.1mt     +++|          ERRNG  1*473+ERLB+5-*  ERROR PROCESSOR OVERFLOW
Line S00677 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07545  M01S00677.274l797 +++|          OVERLAY (CTS CHANNEL ERROR PROCESSOR.),(BUFB+5),P
Line S00678 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07546  M02S00678.1mt46   ---| DWSS     EQU    1           DOWN CHANNEL SUBFUNCTION
Line S00679 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07547  M01S00679.274l797 +++| CCP      SPACE  4,25
07548  M01S00680.274l797 +++|**        CCP - CTS CHANNEL ERROR PROCESSOR.
Line S00681 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07549  M02S00681.282l826 ---|*         THIS ROUTINE SETS UP DIRECT CELLS NORMALLY SET UP BY *FNJ*
07550  M02S00682.282l826 ---|*         FOR ERRORS THAT OCCUR BEFORE *FNJ* IS CALLED.  THIS
07551  M02S00683.282l826 ---|*         ROUTINE DOES ERROR RECOVERY AS FOLLOWS.
Line S00522 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07552  M01S00522.282l826 +++|*
07553  M01S00523.282l826 +++|*         THIS ROUTINE DOES ERROR RECOVERY AS FOLLOWS -
07554  M01S00524.282l826 +++|*
Line S00684 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07555  M01S00684.274l797 +++|*         IF A JOB IS ASSIGNED, BUT NO FUNCTION IS PRESET, ERROR
07556  M01S00685.274l797 +++|*              LOGGING AND ERROR RECOVERY ARE NOT PERFORMED.
07557  M01S00686.274l797 +++|*         IF (EI) = 0 OR 1 LOG ERROR, LOAD CCC, POSITION TAPE IF
07558  M01S00687.274l797 +++|*                          NECESSARY, AND REQUEUE.
07559  M01S00688.274l797 +++|*         IF (EI) .GE. 2 LOG ERROR AND RETURN A FATAL ERROR.
07560  M01S00689.274l797 +++|*
07561  M01S00690.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
07562  M01S00691.274l797 +++|*                (EI) = RETRY COUNT.
07563  M01S00692.274l797 +++|*                (PICA) = 0 IF POSITIONING OF TAPE NOT NECESSARY.
07564  M01S00693.274l797 +++|*
07565  M01S00694.274l797 +++|*         EXIT   TO *RET2* TO REQUEUE THE REQUEST.
07566  M01S00695.274l797 +++|*                TO *RET4* TO RETURN A FATAL ERROR.
Line S00003 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07567  M01S00003.ns2754  +++|*                TO *PNR* IF INITIAL CONNECT FAILED, BUT AUTOLOAD AND
07568  M01S00004.ns2754  +++|*                   ENSUING CONNECT ARE SUCCESSFUL.
Line S00696 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07569  M02S00696.282l826 ---|*                TO *PNR3.1 IF FUNCTION TIMEOUT FOR RELEASE.
Line S00525 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07570  M01S00525.282l826 +++|*                TO *PNR3 IF FUNCTION TIMEOUT FOR RELEASE.
Line S00697 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07571  M01S00697.274l797 +++|*                (EI) = (EI) + 1.
07572  M01S00698.274l797 +++|*
07573  M01S00699.274l797 +++|*         USES   CN, CM - CM+4.
07574  M01S00700.274l797 +++|*
07575  M01S00701.274l797 +++|*         CALLS  CEC, *CEM*, MCH, PCM, PCR, POS, /PRESET/RCU, UAD,
07576  M01S00702.274l797 +++|*                *0CT*.
07577  M01S00703.274l797 +++|*
07578  M01S00704.274l797 +++|*         MACROS CALL, EXECUTE.
07579  M01S00705.274l797 +++|
07580  M01S00706.274l797 +++|
07581  M01S00707.274l797 +++|          ENTRY  CCP
07582  M01S00708.274l797 +++| CCP      SUBR               ENTRY/EXIT
07583  M01S00709.274l797 +++|          LDC    CTAB
07584  M01S00710.274l797 +++|          RJM    MCH         MODIFY CHANNEL INSTRUCTIONS
07585  M01S00711.274l797 +++|          LDC    LDNI+F0002
07586  M01S00712.274l797 +++|          STM    /PRESET/GPSC  SEND CONTINUE IF COMMAND RETRY
07587  M01S00713.274l797 +++|          LDM    /PRESET/ICFA
07588  M01S00714.274l797 +++|          LMN    F0001
07589  M01S00715.274l797 +++|          NJN    CCP1        IF NOT RELEASE UNIT
07590  M01S00716.274l797 +++|          STM    RELA        INDICATE UNIT NOT CONNECTED
07591  M01S00717.274l797 +++|          LDN    PPAL        CHECK PPU AVAILABILITY
07592  M01S00718.274l797 +++|          CRD    CM
Line S00719 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07593  M02S00719.282l826 ---|          LJM    PNR3.1      PROCESS NEXT REQUEST
Line S00526 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07594  M01S00526.282l826 +++|          LJM    PNR3        PROCESS NEXT REQUEST
Line S00720 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07595  M01S00720.274l797 +++|
Line S00721 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07596  M02S00721.282l826 ---| CCP1     LDM    RELA
Line S00527 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07597  M01S00527.282l826 +++| CCP1     LDN    0           DO NOT SET FET COMPLETE
07598  M01S00528.282l826 +++|          RJM    CEC         CHANGE TO MAGNET CONTROL POINT
07599  M01S00529.282l826 +++|          LDM    RELA
Line S00722 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07600  M01S00722.274l797 +++|          NJN    CCP2        IF UNIT CONNECTED
Line S00530 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07601  M01S00530.282l826 +++|          LDD    EC          SAVE ERROR CODE
07602  M01S00531.282l826 +++|          STD    T1
Line S00723 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07603  M01S00723.274l797 +++|          RJM    UAD         GET UDT ADDRESS
07604  M01S00724.274l797 +++|          CRD    RS          SET UP DIRECT CELLS FOR MESSAGE
07605  M01S00725.274l797 +++|          ADN    /MTX/UST2
07606  M01S00726.274l797 +++|          CRM    EI,TR
Line S00727 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07607  M02S00727.282l826 ---|          LDD    NB          COPY FORMAT TO *FM*
07608  M02S00728.282l826 ---|          SHN    -6
07609  M02S00729.282l826 ---|          STD    FM
Line S00532 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07610  M01S00532.282l826 +++|          LDD    T1          RESTORE ERROR CODE
07611  M01S00533.282l826 +++|          STD    EC
Line S00730 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07612  M01S00730.274l797 +++| CCP2     LDD    EC
07613  M01S00731.274l797 +++|          LMN    /MTX/STE
07614  M01S00732.274l797 +++|          NJN    CCP3        IF NOT STATUS ERROR
07615  M01S00733.274l797 +++|          LDD    DS
07616  M01S00734.274l797 +++|          LPN    1
07617  M01S00735.274l797 +++|          NJN    CCP3        IF READY
07618  M01S00736.274l797 +++|          LDN    /MTX/RDR    NOT READY ERROR
07619  M01S00737.274l797 +++|          STD    EC
Line S00738 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07620  M02S00738.282l826 ---| CCP3     LDN    0           DO NOT SET FET COMPLETE
07621  M02S00739.282l826 ---|          RJM    CEC         CHANGE TO MAGNET CONTROL POINT
07622  M02S00740.282l826 ---|          RJM    PCM         PROCESS CHANNEL MALFUNCTION
Line S00534 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07623  M01S00534.282l826 +++| CCP3     RJM    PCM         PROCESS CHANNEL MALFUNCTION
Line S00741 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07624  M01S00741.274l797 +++|          RJM    PCR         PROCESS CONNECT REJECT
07625  M01S00742.274l797 +++|          CALL   CEM         LOG CTS ERROR MESSAGE
07626  M01S00743.274l797 +++|          LDC    LDNI
07627  M01S00744.274l797 +++|          STM    //PNRC      FORCE DROP OUT
07628  M01S00745.274l797 +++|          AOD    EI          INCREMENT RETRY COUNT
07629  M01S00746.274l797 +++|          STD    EP          SO RECOVERABLE ERROR WILL BE REPORTED
07630  M01S00747.274l797 +++|          SBN    3
07631  M01S00748.274l797 +++|          MJN    CCP4        IF RETRIES NOT COMPLETED
07632  M01S00749.274l797 +++|          LDN    0
07633  M01S00750.274l797 +++|          STD    EI          CLEAR RETRY COUNT
07634  M01S00751.274l797 +++|          LDD    FN
Line S00752 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07635  M02S00752.ns2754  ---|          ZJP    CCP8        IF NO FUNCTION
Line S00005 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07636  M01S00005.ns2754  +++|          ZJP    PNR         IF NO FUNCTION
Line S00753 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07637  M01S00753.274l797 +++|          LJM    RET4        REPORT FATAL ERROR
07638  M01S00754.274l797 +++|
07639  M01S00755.274l797 +++| CCP4     RJM    UAD         GET UDT ADDRESS
07640  M01S00756.274l797 +++|          ADN    /MTX/UST2
07641  M01S00757.274l797 +++|          CWD    EI          SAVE RETRY COUNT AND BLOCK POSITION
07642  M01S00758.274l797 +++|          ADN    /MTX/UST3-/MTX/UST2
07643  M01S00759.274l797 +++|          CWD    LG          SAVE BLOCK POSITION (EP+1)
07644  M01S00760.274l797 +++|          CHTE   *
07645  M01S00761.274l797 +++|          LDN    CH          SET CHANNEL NUMBER
07646  M01S00762.274l797 +++|          STD    CN
07647  M01S00763.274l797 +++|          LDC    ERLB        SET BUFFER ADDRESS
07648  M01S00764.274l797 +++|          STD    CN+1
07649  M01S00765.274l797 +++|          EXECUTE  0CT,ERLA+5  LOAD CTS/CCC MICROCODE
07650  M01S00766.274l797 +++|          LDD    CN
07651  M01S00767.274l797 +++|          ZJN    CCP6        IF MICROCODE LOADED
07652  M01S00768.274l797 +++|          STD    EC
07653  M01S00769.274l797 +++|          SHN    0-13
07654  M01S00770.274l797 +++|          PJN    CCP5        IF ERROR CODE ALREADY SAVED
07655  M01S00771.274l797 +++|          LDN    /MTX/CMF
07656  M01S00772.274l797 +++|          STD    EC
07657  M01S00773.274l797 +++| CCP5     LDM    CN+1        SAVE FUNCTION
07658  M01S00774.274l797 +++|          STM    /PRESET/ICFA
07659  M01S00775.274l797 +++|          UJP    CCP3        PERFORM NEXT STEP OF RECOVERY ALGORITHM
07660  M01S00776.274l797 +++|
Line S00777 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07661  M02S00777.ns2754  ---| CCP6     RJM    /PRESET/RCU RECONNECT UNIT
Line S00006 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07662  M01S00006.ns2754  +++| CCP6     LDM    RELA
07663  M01S00007.ns2754  +++|          ZJN    CCP9        IF UNIT NOT CONNECTED
07664  M01S00008.ns2754  +++|          RJM    /PRESET/RCU RECONNECT UNIT
Line S00778 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07665  M01S00778.274l797 +++|          LDM    /PRESET/PICA
07666  M01S00779.274l797 +++|          ZJN    CCP7        IF POSITIONING OF TAPE NOT NECESSARY
07667  M01S00780.274l797 +++|          RJM    POS         POSITION TAPE
07668  M01S00781.274l797 +++|          NJP    CCP3        IF ERROR
07669  M01S00782.274l797 +++| CCP7     LDN    0
07670  M01S00783.274l797 +++|          STD    EC          CLEAR ERROR CODE
Line S00784 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07671  M02S00784.ns2754  ---|          LDD    FN
07672  M02S00785.ns2754  ---|          NJN    CCP8        IF FUNCTION PRESENT
07673  M02S00786.ns2754  ---|          CALL   CEM         REPORT RECOVERED ERROR
07674  M02S00787.ns2754  ---|          LDN    0
07675  M02S00788.ns2754  ---|          STD    EI          CLEAR RETRY COUNT
07676  M02S00789.ns2754  ---|          STD    EP
07677  M02S00790.ns2754  ---| CCP8     LJM    RET2        REQUEUE THE REQUEST
Line S00009 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07678  M01S00009.ns2754  +++|          LJM    RET2        REQUEUE THE REQUEST
07679  M01S00010.ns2754  +++|
07680  M01S00011.ns2754  +++| CCP9     RJM    /PRESET/CCU CONNECT UNIT
07681  M01S00012.ns2754  +++|          LDN    0
07682  M01S00013.ns2754  +++|          STD    EC          CLEAR ERROR CODE
07683  M01S00014.ns2754  +++|          CALL   CEM         REPORT RECOVERED ERROR
07684  M01S00015.ns2754  +++|          LDN    0
07685  M01S00016.ns2754  +++|          STD    EI          CLEAR RETRY COUNT
07686  M01S00017.ns2754  +++|          STD    EP
07687  M01S00018.ns2754  +++|          LJM    PNR         PROCESS NEXT REQUEST
Line S00791 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07688  M01S00791.274l797 +++| CAU      SPACE  4,10
07689  M01S00792.274l797 +++|**        CAU - CHECK ALL UNITS.
07690  M01S00793.274l797 +++|*
07691  M01S00794.274l797 +++|*         EXIT   (A) = 0 IF NO JOB ASSIGNED AND NO FUNCTION PRESET.
07692  M01S00795.274l797 +++|*
07693  M01S00796.274l797 +++|*         USES   CM - CM+4, CN - CN+4, T1 - T5.
07694  M01S00797.274l797 +++|
07695  M01S00798.274l797 +++|
07696  M01S00799.274l797 +++| CAU      SUBR               ENTRY/EXIT
07697  M01S00800.274l797 +++|          LDM    PNRD
07698  M01S00801.274l797 +++|          STM    CAUA        SET STARTING UDT ADDRESS
Line S00802 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07699  M02S00802.282l826 ---|          LDM    PNRF
07700  M02S00803.282l826 ---|          STM    CAUB        SET SHIFT FOR PROCESSOR NUMBER
Line S00804 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07701  M01S00804.274l797 +++| CAU1     LDD    RA
07702  M01S00805.274l797 +++|          SHN    6
07703  M01S00806.274l797 +++|          ADC    0
07704  M01S00807.274l797 +++| CAUA     EQU    *-1         (UDT ADDRESS)
07705  M01S00808.274l797 +++|          CRD    T1
07706  M01S00809.274l797 +++|          ADN    /MTX/UST1
07707  M01S00810.274l797 +++|          CRD    CM
Line S00811 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07708  M02S00811.282l826 ---|          ADN    /MTX/UJID-/MTX/UST1
Line S00535 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07709  M01S00535.282l826 +++|          ADN    /MTX/UVRI-/MTX/UST1
Line S00812 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07710  M01S00812.274l797 +++|          CRD    CN
Line S00813 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07711  M02S00813.282l826 ---|          LDD    CM
07712  M02S00814.282l826 ---|          SHN    21-10
07713  M02S00815.282l826 ---|          MJN    CAU2        IF UNIT DOWN
07714  M02S00816.282l826 ---|          SHN    10-4
07715  M02S00817.282l826 ---| CAUB     EQU    *-1         (SET TO REFLECT PROCESSOR)
07716  M02S00818.282l826 ---|          PJN    CAU2        IF UNIT NOT AVAILABLE ON THIS CHANNEL
07717  M02S00819.282l826 ---|          LDD    CN+4        JOB ASSIGNED
Line S00536 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07718  M01S00536.282l826 +++|          SFA    EST,CM+2    GET CHANNEL INFORMATION
07719  M01S00537.282l826 +++|          ADK    EQDE
07720  M01S00538.282l826 +++|          CRD    CM
07721  M01S00539.282l826 +++|          LDD    CM+1
07722  M01S00540.282l826 +++|          CHTE   *
07723  M01S00541.282l826 +++|          LMN    CH
07724  M01S00542.282l826 +++|          LPN    37
07725  M01S00543.282l826 +++|          ZJN    CAU1.1      IF UNIT ON THIS CHANNEL
07726  M01S00544.282l826 +++|          LDD    CM+2
07727  M01S00545.282l826 +++|          CHTE   *
07728  M01S00546.282l826 +++|          LMN    CH
07729  M01S00547.282l826 +++|          LPN    37
07730  M01S00548.282l826 +++|          NJN    CAU2        IF UNIT NOT ON THIS CHANNEL
07731  M01S00549.282l826 +++| CAU1.1   LDD    CN          JOB ASSIGNED
Line S00820 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07732  M01S00820.274l797 +++|          ADD    T2          FUNCTION
07733  M01S00821.274l797 +++|          NJN    CAUX        IF JOB ASSIGNED OR FUNCTION PRESENT
07734  M01S00822.274l797 +++| CAU2     LDN    /MTX/UNITL
07735  M01S00823.274l797 +++|          RAM    CAUA        UPDATE TO NEXT UDT
07736  M01S00824.274l797 +++|          LMM    PNRA
07737  M01S00825.274l797 +++|          NJN    CAU1        IF NOT END OF UDT
07738  M01S00826.274l797 +++|          UJP    CAUX        RETURN
07739  M01S00827.274l797 +++| CFT      SPACE  4,10
07740  M01S00828.274l797 +++|**        CFT - CHECK FOR TWO CHANNELS.
07741  M01S00829.274l797 +++|*
07742  M01S00830.274l797 +++|*         EXIT   (A) = 0 IF TWO CHANNELS ARE ON.
07743  M01S00831.274l797 +++|*
07744  M01S00832.274l797 +++|*         USES   T1, CM - CM+4.
07745  M01S00833.274l797 +++|
07746  M01S00834.274l797 +++|
07747  M01S00835.274l797 +++| CFT      SUBR               ENTRY/EXIT
07748  M01S00836.274l797 +++|          SFA    EST,EO      READ EST ENTRY
07749  M01S00837.274l797 +++|          ADK    EQDE
07750  M01S00838.274l797 +++|          CRD    CM
07751  M01S00839.274l797 +++|          CHTE   *
07752  M01S00840.274l797 +++|          LDN    CH
07753  M01S00841.274l797 +++|          STD    T1          SAVE CHANNEL NUMBER
07754  M01S00842.274l797 +++|          LDD    CM+1
07755  M01S00843.274l797 +++|          SHN    -11
07756  M01S00844.274l797 +++|          LMN    4
07757  M01S00845.274l797 +++|          NJN    CFTX        IF 1ST CHANNEL NOT ON
07758  M01S00846.274l797 +++|          LDD    CM+1
07759  M01S00847.274l797 +++|          LMD    T1
07760  M01S00848.274l797 +++|          LPN    37
07761  M01S00849.274l797 +++|          NJN    CFT2        IF THIS IS A 2ND CHANNEL
07762  M01S00850.274l797 +++|          LDD    CM+2
07763  M01S00851.274l797 +++|          SHN    -11
07764  M01S00852.274l797 +++| CFT1     LMN    4
07765  M01S00853.274l797 +++|          NJN    CFTX        IF NO 2ND CHANNEL
07766  M01S00854.274l797 +++|          LDD    CM+2
07767  M01S00855.274l797 +++|          LMD    T1
07768  M01S00856.274l797 +++|          LPN    37
07769  M01S00857.274l797 +++|          ZJN    CFT1        IF NO 2ND CHANNEL
07770  M01S00858.274l797 +++| CFT2     LDN    0
07771  M01S00859.274l797 +++|          UJP    CFTX        RETURN
07772  M01S00860.274l797 +++| DCI      SPACE  4,10
07773  M01S00861.274l797 +++|**        DCI - DOWN CHANNEL IN EST.
07774  M01S00862.274l797 +++|*         THIS ROUTINE DOWNS THE CHANNEL IN THE EST FOR ALL UNITS
07775  M01S00863.274l797 +++|*         ON THE CHANNEL.
07776  M01S00864.274l797 +++|*
07777  M01S00865.274l797 +++|*         USES   CM - CM+4, CN - CN+4.
07778  M01S00866.274l797 +++|*
07779  M01S00867.274l797 +++|*         MACROS MONITOR.
07780  M01S00868.274l797 +++|
07781  M01S00869.274l797 +++|
07782  M01S00870.274l797 +++| DCI      SUBR               ENTRY/EXIT
07783  M01S00871.274l797 +++|          LDM    PNRD
07784  M01S00872.274l797 +++|          STM    DCIA        SET STARTING UDT ADDRESS
Line S00873 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07785  M02S00873.282l826 ---|          LDM    PNRF
07786  M02S00874.282l826 ---|          STM    DCIB        SET SHIFT FOR PROCESSOR NUMBER
Line S00875 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07787  M01S00875.274l797 +++| DCI1     LDD    RA
07788  M01S00876.274l797 +++|          SHN    6
07789  M01S00877.274l797 +++|          ADC    0
07790  M01S00878.274l797 +++| DCIA     EQU    *-1         (UDT ADDRESS)
Line S00879 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07791  M02S00879.282l826 ---|          ADN    /MTX/UST1
Line S00550 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07792  M01S00550.282l826 +++|          ADK    /MTX/UST1
Line S00880 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07793  M01S00880.274l797 +++|          CRD    CM          GET EQUIPMENT DEFINITION
Line S00881 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07794  M02S00881.282l826 ---|          ADN    /MTX/UST4-/MTX/UST1
07795  M02S00882.282l826 ---|          CRD    CN          GET EST ORDINAL
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/1mt.005.txt ยท Last modified: (external edit)