User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mt.006

Deck 1MT Part 006

92 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07796  M02S00883.282l826 ---|          LDD    CM
07797  M02S00884.282l826 ---|          SHN    21-10
07798  M02S00885.282l826 ---|          SHN    10-4
07799  M02S00886.282l826 ---| DCIB     EQU    *-1         (SET TO REFLECT PROCESSOR)
07800  M02S00887.282l826 ---|          PJN    DCI2        IF UNIT NOT AVAILABLE ON THIS CHANNEL
Line S00551 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07801  M01S00551.282l826 +++|          SFA    EST,CM+2
07802  M01S00552.282l826 +++|          ADK    EQDE        GET CHANNEL INFORMATION
07803  M01S00553.282l826 +++|          CRD    CN
07804  M01S00554.282l826 +++|          LDD    CN+1
07805  M01S00555.282l826 +++|          CHTE   *
07806  M01S00556.282l826 +++|          LMN    CH
07807  M01S00557.282l826 +++|          LPN    37
07808  M01S00558.282l826 +++|          ZJN    DCI1.1      IF UNIT ON THIS CHANNEL
Line S00888 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07809  M01S00888.274l797 +++|          LDD    CN+2
Line S00559 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07810  M01S00559.282l826 +++|          CHTE   *
07811  M01S00560.282l826 +++|          LMN    CH
07812  M01S00561.282l826 +++|          LPN    37
07813  M01S00562.282l826 +++|          NJN    DCI2        IF UNIT NOT ON THIS CHANNEL
07814  M01S00563.282l826 +++| DCI1.1   LDD    CM+2
Line S00889 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07815  M01S00889.274l797 +++|          STD    CM+1        EST ORDINAL
07816  M01S00890.274l797 +++|          CHTE   *
07817  M01S00891.274l797 +++|          LDN    CH
07818  M01S00892.274l797 +++|          STD    CM+2        CHANNEL NUMBER
Line S00893 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07819  M02S00893.1mt46   ---|          LDN    DWSS
Line S00001 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07820  M01S00001.1mt46   +++|          LDN    /CPS/DWSS
Line S00894 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07821  M01S00894.274l797 +++|          STD    CM+3        SUBFUNCTION
07822  M01S00895.274l797 +++|          MONITOR SCSM       DOWN CHANNEL IN EST
07823  M01S00896.274l797 +++| DCI2     LDN    /MTX/UNITL
07824  M01S00897.274l797 +++|          RAM    DCIA        UPDATE TO NEXT UDT
07825  M01S00898.274l797 +++|          LMM    PNRA
Line S00899 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07826  M02S00899.282l826 ---|          NJN    DCI1        IF NOT END OF UDT
07827  M02S00900.282l826 ---|          UJP    DCIX        RETURN
07828  M02S00901.282l826 ---| IMR      SPACE  4,15
07829  M02S00902.282l826 ---|**        IMR - ISSUE *MAGNET* REQUEST.
07830  M02S00903.282l826 ---|*
07831  M02S00904.282l826 ---|*         ENTRY  (A) = WORD IN *MAGNET* TO WRITE.
07832  M02S00905.282l826 ---|*                (CM - CM+4) = *MAGNET* REQUEST WORD.
07833  M02S00906.282l826 ---|*
07834  M02S00907.282l826 ---|*         EXIT   TO *PNR5* IF ERROR FLAG SET.
07835  M02S00908.282l826 ---|*                (A) = 0, IF REQUEST COMPLETED.
07836  M02S00909.282l826 ---|*                (A) .NE. 0, IF *TDAM* WRITE REJECT.
07837  M02S00910.282l826 ---|*
07838  M02S00911.282l826 ---|*         USES   CN, CM - CM+4.
07839  M02S00912.282l826 ---|*
07840  M02S00913.282l826 ---|*         CALLS  HNG.
07841  M02S00914.282l826 ---|*
07842  M02S00915.282l826 ---|*         MACROS DELAY, MONITOR, PAUSE.
07843  M02S00916.282l826 ---|
07844  M02S00917.282l826 ---|
07845  M02S00918.282l826 ---| IMR      SUBR               ENTRY/EXIT
07846  M02S00919.282l826 ---|          STD    CN          SAVE ADDRESS TO WRITE TO
07847  M02S00920.282l826 ---|          LDD    MA          SAVE REQUEST IN MESSAGE BUFFER
07848  M02S00921.282l826 ---|          CWD    CM
07849  M02S00922.282l826 ---| IMR1     LDN    1           SET WRITE FUNCTION
07850  M02S00923.282l826 ---|          STD    CM+1
07851  M02S00924.282l826 ---|          LCN    7777-/SSD/MTSI  SET *MAGNET* SUBSYSTEM IDENTIFICATION
07852  M02S00925.282l826 ---|          STD    CM+2
07853  M02S00926.282l826 ---|          LDD    HN          SET WORD COUNT TO WRITE
07854  M02S00927.282l826 ---|          STD    CM+3
07855  M02S00928.282l826 ---|          LDD    CN          SET ADDRESS TO WRITE TO
07856  M02S00929.282l826 ---|          STD    CM+4
07857  M02S00930.282l826 ---|          MONITOR  TDAM
07858  M02S00931.282l826 ---|          LDD    CM+1
07859  M02S00932.282l826 ---|          ZJN    IMRX        IF CALL COMPLETED
07860  M02S00933.282l826 ---|          SBN    4
07861  M02S00934.282l826 ---|          ZJN    IMR2        IF *MAGNET* NOT ACTIVE
07862  M02S00935.282l826 ---|          ADN    4-1
07863  M02S00936.282l826 ---|          NJN    IMRX        IF NOT *MAGNET* MOVING
07864  M02S00937.282l826 ---|          PAUSE
07865  M02S00938.282l826 ---|          DELAY
07866  M02S00939.282l826 ---|          LDD    CM+1
07867  M02S00940.282l826 ---|          ZJN    IMR1        IF ERROR FLAG NOT SET
07868  M02S00941.282l826 ---|          LJM    PNR5        DROP PP
07869  M02S00942.282l826 ---|
07870  M02S00943.282l826 ---| IMR2     RJM    HNG         HANG PP
Line S00564 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07871  M01S00564.282l826 +++|          NJP    DCI1        IF NOT END OF UDT
07872  M01S00565.282l826 +++|          LJM    DCIX        RETURN
Line S00944 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07873  M02S00944.1mt46   ---| PCM      SPACE  4,20
Line S00002 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07874  M01S00002.1mt46   +++| PCM      SPACE  4,25
Line S00945 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07875  M01S00945.274l797 +++|**        PCM - PROCESS CHANNEL MALFUNCTION.
07876  M01S00946.274l797 +++|*         THE CHANNEL IS DOWNED IF A CHANNEL MALFUNCTION ERROR
07877  M01S00947.274l797 +++|*         OCCURS, RECOVERY IS UNSUCCESSFUL, AND
07878  M01S00948.274l797 +++|*           1) THERE IS A 2ND CHANNEL, OR
07879  M01S00949.274l797 +++|*           2) THERE ARE NO JOBS ASSIGNED AND NO FUNCTION IS PRESENT.
07880  M01S00950.274l797 +++|*
07881  M01S00951.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
07882  M01S00952.274l797 +++|*                (EI) = RETRY COUNT.
07883  M01S00953.274l797 +++|*
07884  M01S00954.274l797 +++|*         EXIT   TO *PNR* IF CHANNEL MALFUNCTION, JOB ASSIGNED, NO 2ND
07885  M01S00955.274l797 +++|*                   CHANNEL, AND NO FUNCTION IS PRESET.  THIS BYPASSES
07886  M01S00956.274l797 +++|*                   ERROR LOGGING AND ERROR RECOVERY.
Line S00019 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07887  M01S00019.ns2754  +++|*                TO *PNR5* IF CHANNEL DOWNED AND UNIT NOT CONNECTED.
Line S00957 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07888  M02S00957.1mt46   ---|*                TO *RET2* IF CHANNEL MALFUNCTION, ERROR RECOVERY IS
Line S00003 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07889  M01S00003.1mt46   +++|*                TO *RET4* IF CHANNEL MALFUNCTION, ERROR RECOVERY IS
Line S00958 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07890  M01S00958.274l797 +++|*                   UNSUCCESSFUL, AND A 2ND CHANNEL IS PRESENT.
Line S00959 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07891  M02S00959.282l826 ---|*                TO *.ECON* IF PROCESS FUNCTION WITHOUT CONNECT.
Line S00960 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07892  M01S00960.274l797 +++|*
Line S00961 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07893  M02S00961.1mt46   ---|*         USES   CM - CM+4, CN - CN+4.
Line S00004 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07894  M01S00004.1mt46   +++|*         USES   EC, EI, CM - CM+4, CN - CN+4.
Line S00962 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07895  M01S00962.274l797 +++|*
07896  M01S00963.274l797 +++|*         CALLS  CAU, *CEM*, CFT, DCI, IMR, SRQ, UAD.
07897  M01S00964.274l797 +++|*
Line S00965 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07898  M02S00965.1mt46   ---|*         MACROS CALL.
Line S00005 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07899  M01S00005.1mt46   +++|*         MACROS CALL, MONITOR.
Line S00966 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07900  M01S00966.274l797 +++|
07901  M01S00967.274l797 +++|
07902  M01S00968.274l797 +++| PCM      SUBR               ENTRY/EXIT
07903  M01S00969.274l797 +++|          LDD    EC
07904  M01S00970.274l797 +++|          SBN    /MTX/CMF
07905  M01S00971.274l797 +++|          ZJN    PCM1        IF CHANNEL MALFUNCTION
07906  M01S00972.274l797 +++|          SBN    /MTX/FRJ-/MTX/CMF
07907  M01S00973.274l797 +++|          NJN    PCMX        IF NOT FUNCTION REJECT
07908  M01S00974.274l797 +++| PCM1     RJM    CFT         CHECK FOR TWO CHANNELS
07909  M01S00975.274l797 +++|          ZJN    PCM2        IF 2 CHANNELS
07910  M01S00976.274l797 +++|          RJM    CAU         CHECK ALL UNITS
07911  M01S00977.274l797 +++|          NJP    PCM4        IF JOB ASSIGNED OR FUNCTION PRESET
07912  M01S00978.274l797 +++| PCM2     LDD    EI
07913  M01S00979.274l797 +++|          SBN    2
07914  M01S00980.274l797 +++|          MJN    PCMX        IF RECOVERY NOT COMPLETE
07915  M01S00981.274l797 +++|
07916  M01S00982.274l797 +++|*         DOWN CHANNEL.
07917  M01S00983.274l797 +++|
Line S00984 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07918  M02S00984.282l826 ---| PCM3     LDN    ZERL
07919  M02S00985.282l826 ---|          CRD    CM
07920  M02S00986.282l826 ---|          LDN    /MTX/XCF    SET UP/DOWN CHANNEL FUNCTION
07921  M02S00987.282l826 ---|          STD    CM
07922  M02S00988.282l826 ---|          LDN    1           SET DOWN SUBFUNCTION
07923  M02S00989.282l826 ---|          STD    CM+4
07924  M02S00990.282l826 ---|          LDD    CF          SET CHANNEL POINTER
07925  M02S00991.282l826 ---|          SHN    -11
07926  M02S00992.282l826 ---|          ADN    /MTX/UITW-1
07927  M02S00993.282l826 ---|          STD    CM+2
07928  M02S00994.282l826 ---|          LDN    /MTX/XREQ   SET ADDRESS TO WRITE TO
07929  M02S00995.282l826 ---|          RJM    IMR         ISSUE *MAGNET* REQUEST
07930  M02S00996.282l826 ---|          NJN    PCM3        IF WRITE REJECT
07931  M02S00997.282l826 ---|          RJM    DCI         DOWN CHANNEL IN EST
Line S00566 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07932  M01S00566.282l826 +++| PCM3     RJM    DCI         DOWN CHANNEL IN EST
Line S00006 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07933  M01S00006.1mt46   +++|          LDN    /CPS/EEVS
07934  M01S00007.1mt46   +++|          STD    CM+1        ENTER EVENT
07935  M01S00008.1mt46   +++|          LDN    0
07936  M01S00009.1mt46   +++|          STD    CM+3
Line S00010 Modification History
M01 (Added by) 1mt46
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07937  M02S00010.282l826 ---|          LDN    /EVENT/CDSE
Line S00567 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07938  M01S00567.282l826 +++|          LDN    /EVT/CDSE
Line S00011 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07939  M01S00011.1mt46   +++|          STD    CM+4        *CHANNEL DOWNED BY SYSTEM* EVENT
07940  M01S00012.1mt46   +++|          MONITOR EATM
Line S00998 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07941  M01S00998.274l797 +++|          LDN    /MTX/MDW    CHANNEL DOWNED ERROR
07942  M01S00999.274l797 +++|          STD    EC
Line S01000 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07943  M02S01000.1mt46   ---|          RJM    CFT         CHECK FOR TWO CHANNELS
07944  M02S01001.1mt46   ---|          NJP    PCMX        IF NOT TWO CHANNELS
Line S01002 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07945  M01S01002.274l797 +++|          CALL   CEM         LOG THE ERROR
07946  M01S01003.274l797 +++|          LDN    0
Line S01004 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07947  M02S01004.1mt46   ---|          STD    EC          CLEAR ERROR CODE
Line S01005 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07948  M01S01005.274l797 +++|          STD    EI          CLEAR RETRY COUNT
Line S00020 Modification History
M01 (Added by) ns2754
Seq #  *Modification Id* Act 
----------------------------+
07949  M01S00020.ns2754  +++|          LDC    LDNI
07950  M01S00021.ns2754  +++|          STM    //PNRC      FORCE DROP OUT
07951  M01S00022.ns2754  +++|
07952  M01S00023.ns2754  +++|*         ONLY GO TO *RET* IF CONNECTED, OTHERWISE 2 PPS COULD BE
07953  M01S00024.ns2754  +++|*         CHANGING THE *UDT* AT THE SAME TIME.
07954  M01S00025.ns2754  +++|
07955  M01S00026.ns2754  +++|          LDM    RELA
07956  M01S00027.ns2754  +++|          ZJP    PNR5        IF UNIT NOT CONNECTED
Line S01006 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07957  M02S01006.1mt46   ---|          LJM    RET2        REQUEUE THE REQUEST
Line S00013 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
07958  M01S00013.1mt46   +++|          LJM    RET4        RETURN AN ERROR CODE
Line S01007 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07959  M01S01007.274l797 +++|
07960  M01S01008.274l797 +++| PCM4     LDD    FN
07961  M01S01009.274l797 +++|          ZJP    //PNR       IF NO FUNCTION PENDING
Line S01010 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07962  M02S01010.282l826 ---|          LMN    /MTX/MAB
07963  M02S01011.282l826 ---|          ZJN    PCM6        IF ISSUE MESSAGE AND ABORT JOB
07964  M02S01012.282l826 ---|          LMN    /MTX/FNH&/MTX/MAB
07965  M02S01013.282l826 ---|          NJN    PCM5        IF NOT PROCESS FUNCTION
07966  M02S01014.282l826 ---|          LDD    PB
07967  M02S01015.282l826 ---|          SBN    3
07968  M02S01016.282l826 ---|          ZJN    PCM6        IF CLEAR JOB ASSIGNMENT
Line S01017 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07969  M01S01017.274l797 +++| PCM5     LJM    PCMX        RETURN
Line S01018 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07970  M02S01018.282l826 ---|
07971  M02S01019.282l826 ---|*         INTERLOCK UNIT VIA SOFTWARE CONNECT.
07972  M02S01020.282l826 ---|
07973  M02S01021.282l826 ---| PCM6     LDN    0           SET TO PERFORM SOFTWARE CONNECT
07974  M02S01022.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
07975  M02S01023.282l826 ---|
07976  M02S01024.282l826 ---|*         PROCESS FUNCTION WITHOUT CONNECT.
07977  M02S01025.282l826 ---|
07978  M02S01026.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
07979  M02S01027.282l826 ---|          ADN    /MTX/UJID
07980  M02S01028.282l826 ---|          CRD    CN
07981  M02S01029.282l826 ---|          ISTORE //PNRC,(LDN 0)  FORCE DROP OUT
07982  M02S01030.282l826 ---|          ISTORE /PRESET/CCUA,(UJN /PRESET/CCUX)  DISABLE CONNECT
07983  M02S01031.282l826 ---|          LJM    //.ECON     PROCESS FUNCTION WITHOUT CONNECT
Line S01032 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07984  M01S01032.274l797 +++| PCR      SPACE  4,20
07985  M01S01033.274l797 +++|**        PCR - PROCESS CONNECT REJECT.
07986  M01S01034.274l797 +++|*         IF ERROR RECOVERY IS UNSUCCESSFUL, NO FUNCTION IS PRESET,
07987  M01S01035.274l797 +++|*         AND NO JOB IS ASSIGNED, THE UNIT IS TURNED OFF.
07988  M01S01036.274l797 +++|*
07989  M01S01037.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
07990  M01S01038.274l797 +++|*                (EI) = RETRY COUNT.
07991  M01S01039.274l797 +++|*
Line S01040 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07992  M02S01040.282l826 ---|*         EXIT   TO *.ECON* IF PROCESS FUNCTION WITHOUT CONNECT.
07993  M02S01041.282l826 ---|*                TO *PNR* IF CONNECT REJECT, NO FUNCTION IS PRESENT,
Line S00568 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07994  M01S00568.282l826 +++|*         EXIT   TO *PNR* IF CONNECT REJECT, NO FUNCTION IS PRESENT,
Line S01042 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
07995  M01S01042.274l797 +++|*                   AND A JOB IS ASSIGNED.  THIS BYPASSES ERROR
07996  M01S01043.274l797 +++|*                   REPORTING AND ERROR RECOVERY.
07997  M01S01044.274l797 +++|*
07998  M01S01045.274l797 +++|*         USES   CM - CM+4, CN - CN+4.
07999  M01S01046.274l797 +++|*
08000  M01S01047.274l797 +++|*         CALLS  SRQ, UAD.
08001  M01S01048.274l797 +++|*
08002  M01S01049.274l797 +++|*         MACROS MONITOR.
08003  M01S01050.274l797 +++|
08004  M01S01051.274l797 +++|
08005  M01S01052.274l797 +++| PCR      SUBR               ENTRY/EXIT
08006  M01S01053.274l797 +++|          LDD    EC
08007  M01S01054.274l797 +++|          LMN    /MTX/CRJ
08008  M01S01055.274l797 +++|          NJN    PCRX        IF NOT CONNECT REJECT
08009  M01S01056.274l797 +++|          RJM    UAD         CHECK IF JOB ASSIGNED
Line S01057 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08010  M02S01057.282l826 ---|          ADN    /MTX/UJID
Line S00569 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08011  M01S00569.282l826 +++|          ADK    /MTX/UXRQ
08012  M01S00570.282l826 +++|          CRD    RS
08013  M01S00571.282l826 +++|          ADK    /MTX/UVRI-/MTX/UXRQ
Line S01058 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08014  M01S01058.274l797 +++|          CRD    CN
Line S01059 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08015  M02S01059.282l826 ---|          LDD    CN+4
Line S00572 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08016  M01S00572.282l826 +++|          LDD    CN
Line S01060 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08017  M01S01060.274l797 +++|          NJN    PCR1        IF JOB ASSIGNED
08018  M01S01061.274l797 +++|          LDD    EI
08019  M01S01062.274l797 +++|          SBN    2
08020  M01S01063.274l797 +++|          MJN    PCRX        IF RECOVERY NOT COMPLETE
08021  M01S01064.274l797 +++|
Line S01065 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08022  M02S01065.282l826 ---|*         OFF UNIT.
Line S00573 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08023  M01S00573.282l826 +++|*         DOWN UNIT.
Line S01066 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08024  M01S01066.274l797 +++|
Line S01067 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08025  M02S01067.282l826 ---|          LDN    1           SET DOWN UNIT
08026  M02S01068.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
08027  M02S01069.282l826 ---|          RJM    UAD         PICK UP DOWN STATUS
08028  M02S01070.282l826 ---|          ADN    /MTX/UST1
08029  M02S01071.282l826 ---|          CRD    CM
08030  M02S01072.282l826 ---|          LDD    CM
08031  M02S01073.282l826 ---|          STD    ED
Line S01074 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08032  M01S01074.274l797 +++|          LDD    EO          SET EST ORDINAL
08033  M01S01075.274l797 +++|          STD    CM+1
Line S01076 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08034  M02S01076.282l826 ---|          LDN    /CPS/OFES   SET OFF STATUS
Line S00574 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08035  M01S00574.282l826 +++|          LDN    /CPS/DWES   SET DOWN STATUS
Line S01077 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08036  M01S01077.274l797 +++|          STD    CM+2
08037  M01S01078.274l797 +++|          MONITOR SEQM       SET EQUIPMENT PARAMETER
08038  M01S01079.274l797 +++|          UJP    PCRX        RETURN
08039  M01S01080.274l797 +++|
08040  M01S01081.274l797 +++| PCR1     LDD    FN
08041  M01S01082.274l797 +++|          ZJP    //PNR       IF NO FUNCTION PENDING
Line S01083 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08042  M02S01083.282l826 ---|          LMN    /MTX/MAB
08043  M02S01084.282l826 ---|          ZJN    PCR3        IF ISSUE MESSAGE AND ABORT JOB
08044  M02S01085.282l826 ---|          LMN    /MTX/FNH&/MTX/MAB
08045  M02S01086.282l826 ---|          NJN    PCR2        IF NOT PROCESS FUNCTION
08046  M02S01087.282l826 ---|          LDD    PB
08047  M02S01088.282l826 ---|          SBN    3
08048  M02S01089.282l826 ---|          ZJN    PCR3        IF CLEAR JOB ASSIGNMENT
08049  M02S01090.282l826 ---| PCR2     LJM    PCRX        RETURN
08050  M02S01091.282l826 ---|
08051  M02S01092.282l826 ---|*         INTERLOCK UNIT VIA SOFTWARE CONNECT.
08052  M02S01093.282l826 ---|
08053  M02S01094.282l826 ---| PCR3     LDN    0           SET TO PERFORM SOFTWARE CONNECT
08054  M02S01095.282l826 ---|          RJM    SRQ         SEND REQUEST TO MAGNET
08055  M02S01096.282l826 ---|
08056  M02S01097.282l826 ---|*         PROCESS FUNCTION WITHOUT CONNECT.
08057  M02S01098.282l826 ---|
08058  M02S01099.282l826 ---|          RJM    UAD         GET JOB IDENTIFICATION
08059  M02S01100.282l826 ---|          ADN    /MTX/UJID
08060  M02S01101.282l826 ---|          CRD    CN
08061  M02S01102.282l826 ---|          ISTORE //PNRC,(LDN 0)  FORCE DROP OUT
08062  M02S01103.282l826 ---|          ISTORE /PRESET/CCUA,(UJN /PRESET/CCUX)  DISABLE CONNECT
08063  M02S01104.282l826 ---|          LJM    //.ECON     PROCESS FUNCTION WITHOUT CONNECT
Line S00575 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08064  M01S00575.282l826 +++|          LJM    PCRX        RETURN
Line S01105 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08065  M01S01105.274l797 +++| POS      SPACE  4,15
08066  M01S01106.274l797 +++|**        POS - POSITION TAPE.
08067  M01S01107.274l797 +++|*         THIS ROUTINE USES THE LOCATE BLOCK COMMAND TO POSITION
08068  M01S01108.274l797 +++|*         THE TAPE TO THE EXPECTED BLOCK POSITION.
08069  M01S01109.274l797 +++|*
08070  M01S01110.274l797 +++|*         ENTRY  (BL, BL+1) = NOS BLOCK POSITION.
08071  M01S01111.274l797 +++|*                (WP, EP+1) = PHYSICAL BLOCK ID WHEN (BL,BL+1) = 0.
08072  M01S01112.274l797 +++|*
08073  M01S01113.274l797 +++|*         EXIT   (A) = 0 IF NO ERROR.
08074  M01S01114.274l797 +++|*                (EC) = ERROR CODE IF (A) .NE. 0.
08075  M01S01115.274l797 +++|*
08076  M01S01116.274l797 +++|*         USES   T3.
08077  M01S01117.274l797 +++|*
08078  M01S01118.274l797 +++|*         CALLS  /PRESET/GPS, /PRESET/ICF, /PRESET/RBI.
08079  M01S01119.274l797 +++|
08080  M01S01120.274l797 +++|
08081  M01S01121.274l797 +++| POS      SUBR               ENTRY/EXIT
08082  M01S01122.274l797 +++|          RJM    /PRESET/RBI READ BLOCK ID
08083  M01S01123.274l797 +++|          LDM    BIDW
08084  M01S01124.274l797 +++|          STM    POSA
08085  M01S01125.274l797 +++|          SBN    20
08086  M01S01126.274l797 +++|          ZJN    POS1        IF FIRST SEGMENT
08087  M01S01127.274l797 +++|          STM    POSA        SET PHYSICAL REFERENCE BLOCK ID
08088  M01S01128.274l797 +++| POS1     LDD    BL+1
08089  M01S01129.274l797 +++|          SHN    4
08090  M01S01130.274l797 +++|          ADD    EP+1
08091  M01S01131.274l797 +++|          STM    POSA+2      MOVE BLOCK NUMBER TO PARAMETERS
08092  M01S01132.274l797 +++|          SHN    -14
08093  M01S01133.274l797 +++|          STM    POSA+1
08094  M01S01134.274l797 +++|          LDD    BL
08095  M01S01135.274l797 +++|          SHN    4
08096  M01S01136.274l797 +++|          ADD    WP
08097  M01S01137.274l797 +++|          RAM    POSA+1
08098  M01S01138.274l797 +++|          LDN    F0016       LOCATE BLOCK
08099  M01S01139.274l797 +++|          RJM    /PRESET/ICF ISSUE FUNCTION
08100  M01S01140.274l797 +++|          ACN    CH
08101  M01S01141.274l797 +++|          LDN    3
08102  M01S01142.274l797 +++|          OAM    POSA,CH     OUTPUT THE 3 PARAMETER WORDS
08103  M01S01143.274l797 +++|          STD    T3          WORDS NOT TRANSFERRED
08104  M01S01144.274l797 +++|          FJM    *,CH        WAIT FOR DATA TO BE TAKEN
08105  M01S01145.274l797 +++| POS2     LDN    0           WAIT FOR END OF OPERATION
08106  M01S01146.274l797 +++|          RJM    /PRESET/GPS GET AND PROCESS GENERAL STATUS
08107  M01S01147.274l797 +++|          MJN    POS2        IF COMMAND RETRY
08108  M01S01148.274l797 +++|          SHN    21-13
08109  M01S01149.274l797 +++|          MJN    POS3        IF ERROR
08110  M01S01150.274l797 +++|          LDD    T3
08111  M01S01151.274l797 +++|          ZJN    POS5        IF ALL WORDS TRANSFERRED
08112  M01S01152.274l797 +++|          LDN    /MTX/CMF    CHANNEL MALFUNCTION
08113  M01S01153.274l797 +++|          UJN    POS4        SAVE ERROR CODE
08114  M01S01154.274l797 +++|
08115  M01S01155.274l797 +++| POS3     LDN    /MTX/STE    STATUS ERROR
08116  M01S01156.274l797 +++| POS4     STD    EC
08117  M01S01157.274l797 +++| POS5     LJM    POSX        RETURN
08118  M01S01158.274l797 +++|
08119  M01S01159.274l797 +++|
08120  M01S01160.274l797 +++| POSA     DATA   0           LOCATE BLOCK PARAMETERS
08121  M01S01161.274l797 +++|          DATA   0           UPPER 12 BITS OF BLOCK NUMBER
08122  M01S01162.274l797 +++|          DATA   0           8/LOWER BITS OF BLOCK NUMBER / 4 UNUSED
Line S01163 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08123  M02S01163.282l826 ---| SRQ      SPACE  4,15
08124  M02S01164.282l826 ---|**        SRQ - SEND REQUEST TO MAGNET.
08125  M02S01165.282l826 ---|*
08126  M02S01166.282l826 ---|*         ENTRY  (A) = 0 IF PERFORM SOFTWARE CONNECT.
08127  M02S01167.282l826 ---|*                (A) = 1 IF DOWN UNIT.
08128  M02S01168.282l826 ---|*
08129  M02S01169.282l826 ---|*         EXIT   TO *PNR5* IF *TDAM* REJECT, ERROR FLAG SET OR DOWN
08130  M02S01170.282l826 ---|*                   UNIT REJECT AND NO FUNCTION PENDING.
08131  M02S01171.282l826 ---|*                TO *RET4* IF DOWN UNIT REJECT AND FUNCTION PENDING.
08132  M02S01172.282l826 ---|*
08133  M02S01173.282l826 ---|*         USES   CM - CM+4.
08134  M02S01174.282l826 ---|*
08135  M02S01175.282l826 ---|*         CALLS  IMR.
08136  M02S01176.282l826 ---|*
08137  M02S01177.282l826 ---|*         MACROS PAUSE.
08138  M02S01178.282l826 ---|
08139  M02S01179.282l826 ---|
08140  M02S01180.282l826 ---| SRQ      SUBR               ENTRY/EXIT
08141  M02S01181.282l826 ---|          STD    CM+4        SAVE FUNCTION
08142  M02S01182.282l826 ---|          LDN    0
08143  M02S01183.282l826 ---|          STD    CM+2
08144  M02S01184.282l826 ---|          STD    CM+3
08145  M02S01185.282l826 ---|          LDM    UADA        SET UDT ADDRESS
08146  M02S01186.282l826 ---|          STD    CM
08147  M02S01187.282l826 ---|          LDD    CF          SET CHANNEL INDEX
08148  M02S01188.282l826 ---|          SHN    -11
08149  M02S01189.282l826 ---|          STD    CM+1
08150  M02S01190.282l826 ---|          LDN    /MTX/URIW
08151  M02S01191.282l826 ---|          RJM    IMR
08152  M02S01192.282l826 ---|          NJN    SRQ2        IF WRITE REJECT
08153  M02S01193.282l826 ---|
08154  M02S01194.282l826 ---|*         WAIT FOR *MAGNET* TO PROCESS REQUEST.
08155  M02S01195.282l826 ---|
08156  M02S01196.282l826 ---| SRQ1     LDD    RA
08157  M02S01197.282l826 ---|          SHN    6
08158  M02S01198.282l826 ---|          ADN    /MTX/URIW
08159  M02S01199.282l826 ---|          CRD    CM
08160  M02S01200.282l826 ---|          LDD    CM
08161  M02S01201.282l826 ---|          ZJN    SRQ3        IF REQUEST COMPLETE
08162  M02S01202.282l826 ---|          LDN    77          DELAY
08163  M02S01203.282l826 ---|          SBN    1
08164  M02S01204.282l826 ---|          NJN    *-1
08165  M02S01205.282l826 ---|          PAUSE
08166  M02S01206.282l826 ---|          LDD    CM+1
08167  M02S01207.282l826 ---|          ZJN    SRQ1        IF NO ERROR FLAG
08168  M02S01208.282l826 ---| SRQ2     LJM    //PNR5      DROP PP
08169  M02S01209.282l826 ---|
08170  M02S01210.282l826 ---| SRQ3     LDD    CM+4
08171  M02S01211.282l826 ---|          ZJN    SRQ4        IF UNIT DOWNED OR CONNECT COMPLETE
08172  M02S01212.282l826 ---|          LDN    ZERL        CLEAR INTERLOCK
08173  M02S01213.282l826 ---|          CRD    CM
08174  M02S01214.282l826 ---|          LDD    RA
08175  M02S01215.282l826 ---|          SHN    6
08176  M02S01216.282l826 ---|          ADN    /MTX/URIW
08177  M02S01217.282l826 ---|          CWD    CM
08178  M02S01218.282l826 ---|          LDD    FN
08179  M02S01219.282l826 ---|          LPN    77
08180  M02S01220.282l826 ---|          ZJN    SRQ2        IF NO FUNCTION PENDING
08181  M02S01221.282l826 ---|          LJM    RET4        RETURN ERROR
08182  M02S01222.282l826 ---|
08183  M02S01223.282l826 ---| SRQ4     LJM    SRQX        RETURN
Line S01224 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08184  M01S01224.274l797 +++|          SPACE  4,10
08185  M01S01225.274l797 +++|          ERRNG  ERLA-*      CODE OVERFLOWS HELPER OVERLAY
08186  M01S01226.274l797 +++|          ERRPL  ERLA+5+ZCTL-ERLB  *0CT* OVERFLOWS INTO BUFFER
08187  M01S01227.274l797 +++| CTAB     SPACE  4,10
08188  M01S01228.274l797 +++|*         CHANNEL TABLE.
08189  M01S01229.274l797 +++|
08190  M01S01230.274l797 +++|
08191  M01S01231.274l797 +++| CTAB     CHTB               CHANNEL TABLE
08192  M01S01232.274l797 +++|          OVERLAY (CTS ERRLOG MESSAGE PROCESSOR.),(ERLA+5),P,CEM
08193  M01S01233.274l797 +++| CEM      SPACE  4,10
08194  M01S01234.274l797 +++|**        CEM - CTS ERRLOG MESSAGE PROCESSOR.
08195  M01S01235.274l797 +++|*         THIS ROUTINE ISSUES A MESSAGE TO THE ERROR LOG.
08196  M01S01236.274l797 +++|*
08197  M01S01237.274l797 +++|*         USES   T1.
08198  M01S01238.274l797 +++|*
08199  M01S01239.274l797 +++|*         CALLS  BDM, *CSP*, IDM, MET.
08200  M01S01240.274l797 +++|*
08201  M01S01241.274l797 +++|*         MACROS CALL.
08202  M01S01242.274l797 +++|
08203  M01S01243.274l797 +++|
08204  M01S01244.274l797 +++|          ENTRY  CEM
08205  M01S01245.274l797 +++| CEM      SUBR               ENTRY/EXIT
08206  M01S01246.274l797 +++|          RJM    BDM         BUILD MESSAGE
08207  M01S01247.274l797 +++|          LDM    CEMA
08208  M01S01248.274l797 +++|          ZJN    CEM3        IF NO MESSAGE OR SPECIAL PROCESSOR
08209  M01S01249.274l797 +++|          SBN    MAXM
08210  M01S01250.274l797 +++|          MJN    CEM5        IF SPECIAL PROCESSOR NEEDED
08211  M01S01251.274l797 +++| CEM1     LCN    0           MOVE MESSAGE
08212  M01S01252.274l797 +++|          STD    T1
08213  M01S01253.274l797 +++| CEM2     AOD    T1
08214  M01S01254.274l797 +++|          LDM    *,T1
08215  M01S01255.274l797 +++| CEMA     EQU    *-1
08216  M01S01256.274l797 +++|          STM    MESF+12,T1
08217  M01S01257.274l797 +++|          NJN    CEM2        IF NOT END OF MESSAGE
08218  M01S01258.274l797 +++| CEM3     RJM    MET         MOVE ERPA MESSAGE
08219  M01S01259.274l797 +++|          LDN    ERLN/10000  ISSUE MESSAGE TO ERROR LOG
08220  M01S01260.274l797 +++|          RJM    IDM
08221  M01S01261.274l797 +++|          LDM    CECB
08222  M01S01262.274l797 +++| CEMB     LPN    77
08223  M01S01263.274l797 +++|*         LPN    0           (MESSAGE ISSUE TO USER DISABLED)
08224  M01S01264.274l797 +++|          ZJN    CEM4        IF AT MAGNET CP
08225  M01S01265.274l797 +++|          LDN    CPON/10000  ISSUE MESSAGE TO USER
08226  M01S01266.274l797 +++|          RJM    IDM
08227  M01S01267.274l797 +++| CEM4     UJP    CEMX        RETURN
08228  M01S01268.274l797 +++|
08229  M01S01269.274l797 +++| CEM5     CALL   CSP         CALL SPECIAL PROCESSOR
08230  M01S01270.274l797 +++|          UJN    CEM1        GO MOVE MESSAGE
08231  M01S01271.274l797 +++| MES      SPACE  4,10
08232  M01S01272.274l797 +++|***       MESSAGE DATA.
08233  M01S01273.274l797 +++|*         MESSAGES ARE ISSUED IN THE FOLLOWING FORMAT-
08234  M01S01274.274l797 +++|*         CT,C13-0-02,ABCDEF,RD, 753, GS00000000.
08235  M01S01275.274l797 +++|*         CT,C13,D0000000000000000000000000000000000000000.
08236  M01S01276.274l797 +++|*         CT,C13, 000000000000000000000000,A000000000000.
08237  M01S01277.274l797 +++|*         CT,C13,ERPA 00 - 000000000000000000000000000000.
08238  M01S01278.274l797 +++|*         CT,C13,F07,I02,B00000123.
08239  M01S01279.274l797 +++|*         CT,C13,E00, F=I ,U, TTTTTTTTTTTT.
08240  M01S01280.274l797 +++|*
08241  M01S01281.274l797 +++|*         THE FIRST MESSAGE WOULD TELL THE FOLLOWING-
08242  M01S01282.274l797 +++|*
08243  M01S01283.274l797 +++|*         1)     CHANNEL 13, EQUIPMENT 0, UNIT 2.
08244  M01S01284.274l797 +++|*         2)     VOLUME SERIAL NUMBER IS *ABCDEF*.
08245  M01S01285.274l797 +++|*         3)     OPERATION WAS A READ.  (ANY OPERATION NOT INVOLVING
08246  M01S01286.274l797 +++|*                AN ACTUAL READ OR WRITE WILL BE CALLED A READ.
08247  M01S01287.274l797 +++|*         4)     EST ORDINAL *753* IS THE UNIT THAT THE TAPE WAS LAST
08248  M01S01288.274l797 +++|*                LABELED ON.  THIS WILL ONLY BE AVAILABLE FOR A LABELED
08249  M01S01289.274l797 +++|*                TAPE GENERATED UNDER NOS.  IT WILL NORMALLY BE ZERO IN
08250  M01S01290.274l797 +++|*                ALL OTHER CASES.  THIS FIELD DOES NOT REPRESENT THE
08251  M01S01291.274l797 +++|*                EST ORDINAL OF THE TAPE UNIT THAT THE TAPE IS
08252  M01S01292.274l797 +++|*                CURRENTLY MOUNTED ON.
08253  M01S01293.274l797 +++|*         5)     GENERAL STATUS OF TAPE UNIT IN OCTAL.
08254  M01S01294.274l797 +++|*
08255  M01S01295.274l797 +++|*         THE SECOND MESSAGE WOULD TELL THE FOLLOWING -
08256  M01S01296.274l797 +++|*
08257  M01S01297.274l797 +++|*         1)     CHANNEL 13 - THIS IS REPEATED SO THAT IF ERRORS
08258  M01S01298.274l797 +++|*                ARE OCCURING ON MORE THAN ONE TAPE CHANNEL AT THE
08259  M01S01299.274l797 +++|*                SAME TIME THE TWO MESSAGES CAN BE ASSOCIATED.
08260  M01S01300.274l797 +++|*         2)     THIS IS THE FIRST 20 SENSE BYTES IN HEXADECIMAL.
08261  M01S01301.274l797 +++|*
08262  M01S01302.274l797 +++|*         THE THIRD MESSAGE WOULD TELL THE FOLLOWING -
08263  M01S01303.274l797 +++|*
08264  M01S01304.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08265  M01S01305.274l797 +++|*         2)     THIS IS THE LAST 12 SENSE BYTES IN HEXADECIMAL
08266  M01S01306.274l797 +++|*                FOLLOWED BY ADAPTER STATUS.  ADAPTER STATUS IS
08267  M01S01307.274l797 +++|*                DISPLAYED IN HEXADECIMAL AND IS THE LAST 48 BITS
08268  M01S01308.274l797 +++|*                OF DETAILED STATUS.
08269  M01S01309.274l797 +++|*
08270  M01S01310.274l797 +++|*         THE FOURTH MESSAGE WOULD TELL THE FOLLOWING -
08271  M01S01311.274l797 +++|*
08272  M01S01312.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08273  M01S01313.274l797 +++|*         2)     THE ERROR RECOVERY PROCEDURE ACTION CODE, FROM SENSE
08274  M01S01314.274l797 +++|*                BYTE 3, FOLLOWED BY THE TEXT MESSAGE FOR THE ERPA
08275  M01S01315.274l797 +++|*                CODE.
08276  M01S01316.274l797 +++|*
08277  M01S01317.274l797 +++|*         THE FIFTH MESSAGE WOULD TELL THE FOLLOWING -
08278  M01S01318.274l797 +++|*
08279  M01S01319.274l797 +++|*         1)     CHANNEL 13, SAME AS ABOVE.
08280  M01S01320.274l797 +++|*         2)     THE ERROR OCCURED ON A SOFTWARE FUNCTION OF 7.
08281  M01S01321.274l797 +++|*         3)     ERROR ITERATION.
08282  M01S01322.274l797 +++|*         4)     BLOCK NUMBER ERROR OCCURRED ON WAS 123.  THIS IS THE
08283  M01S01323.274l797 +++|*                NOS BLOCK NUMBER, NOT THE PHYSICAL BLOCK ID USED BY
08284  M01S01324.274l797 +++|*                THE CARTRIDGE TAPE SUBSYSTEM.  THE FIRST DATA BLOCK
08285  M01S01325.274l797 +++|*                AFTER A LABEL IS NOS BLOCK 0.
08286  M01S01326.274l797 +++|*
08287  M01S01327.274l797 +++|*         THE SIXTH MESSAGE WOULD TELL THE FOLLOWING -
08288  M01S01328.274l797 +++|*
08289  M01S01329.274l797 +++|*         1)     CHANNEL 13 - SAME AS ABOVE.
08290  M01S01330.274l797 +++|*         2)     NOS ERROR CODE.
08291  M01S01331.274l797 +++|*         3)     THE TAPE FORMAT IS I.
08292  M01S01332.274l797 +++|*         4)     THE ERROR IS UNRECOVERED.
08293  M01S01333.274l797 +++|*         5)     TTT CONTAINS ADDTIONAL STATUS.
08294  M01S01334.274l797 +++|
08295  M01S01335.274l797 +++|****      MESSAGE DATA.  NOTE THAT MESSAGES LONGER THAN 40 CHARACTERS
08296  M01S01336.274l797 +++|*         WRAP TO THE NEXT LINE IF DISPLAYED WITH DSDI.  THE START
08297  M01S01337.274l797 +++|*         OF MESSAGES SHOULD BE AT EQUAL INTERVALS SO *SCS* CAN SAVE
08298  M01S01338.274l797 +++|*         REPETITIVE INFORMATION.
08299  M01S01339.274l797 +++|
08300  M01S01340.274l797 +++| MESA     DATA   H*CT,C00-0-00,      ,RD,    , GS00000000.*
08301  M01S01341.274l797 +++|          CON    0
08302  M01S01342.274l797 +++|          BSS    26D+MESA-*
08303  M01S01343.274l797 +++| MESB     DATA   H*CT,C00,D                                        .*
08304  M01S01344.274l797 +++|          CON    0
08305  M01S01345.274l797 +++| MESC     DATA   H*CT,C00,                         ,A            .  *
08306  M01S01346.274l797 +++|          CON    0
08307  M01S01347.274l797 +++| MESD     DATA   H*CT,C00,ERPA   , *
08308  M01S01348.274l797 +++|          CON    0
08309  M01S01349.274l797 +++|          BSS    26D+MESD-*
08310  M01S01350.274l797 +++| MESE     DATA   H*CT,C00,F00,I00,B00000000.*
08311  M01S01351.274l797 +++|          CON    0
08312  M01S01352.274l797 +++|          BSS    26D+MESE-*
08313  M01S01353.274l797 +++| MESF     DATA   C*CT,C00,E00, F=I ,I, *
08314  M01S01354.274l797 +++| MESL     EQU    MESF+MESB-MESA+1
08315  M01S01355.274l797 +++| TERM     SPACE  4,10
08316  M01S01356.274l797 +++| TERM     INDEX
08317  M01S01357.274l797 +++|          INDEX  0,(=C*REC.*)
08318  M01S01358.274l797 +++|          INDEX  /MTX/BTL,(=C*BTL.*)
08319  M01S01359.274l797 +++|          INDEX  /MTX/BNE,BNEM
08320  M01S01360.274l797 +++|          INDEX  /MTX/RDR,WEOM
08321  M01S01361.274l797 +++|          INDEX  /MTX/FRJ,FRJM
08322  M01S01362.274l797 +++|          INDEX  /MTX/WEO,WEOM
08323  M01S01363.274l797 +++|          INDEX  /MTX/CRJ,CRJM
08324  M01S01364.274l797 +++|          INDEX  /MTX/STE,(=C*STE.*)
08325  M01S01365.274l797 +++|          INDEX  /MTX/CMF,(=C*CMF.*)
08326  M01S01366.274l797 +++|          INDEX  /MTX/MDW,(=C*MDW.*)
08327  M01S01367.274l797 +++|          INDEX  /MTX/BFR,(=C*BFR.*)
08328  M01S01368.274l797 +++|          INDEX  /MTX/BFW,(=C*BFW.*)
08329  M01S01369.274l797 +++|          INDEX  /MTX/MERC
08330  M01S01370.274l797 +++|****
08331  M01S01371.274l797 +++|          SPACE  4,10
08332  M01S01372.274l797 +++|**        COMMON DECKS.
08333  M01S01373.274l797 +++|
08334  M01S01374.274l797 +++|
08335  M01S01375.274l797 +++|*CALL     COMPC2D
08336  M01S01376.274l797 +++|          SPACE  4,10
08337  M01S01377.274l797 +++|**        ERRORS REQUIRING ADDITIONAL OVERLAY TO BE LOADED.
08338  M01S01378.274l797 +++|
08339  M01S01379.274l797 +++|
08340  M01S01380.274l797 +++| BEGM     BSS    0
08341  M01S01381.274l797 +++|          LOC    1
08342  M01S01382.274l797 +++| FRJM     BSS    1           FUNCTION REJECT
08343  M01S01383.274l797 +++| WEOM     BSS    1           NO END OF OPERATION
08344  M01S01384.274l797 +++| CRJM     BSS    1           CONNECT REJECT
08345  M01S01385.274l797 +++| BNEM     BSS    1           BLOCK SEQUENCE ERROR
08346  M01S01386.274l797 +++| MAXM     BSS    1           MAXIMUM SPECIAL ERRORS
08347  M01S01387.274l797 +++|
08348  M01S01388.274l797 +++|          ORG    BEGM
08349  M01S01389.274l797 +++| IDM      SPACE  4,10
08350  M01S01390.274l797 +++|**        IDM - ISSUE DAYFILE MESSAGES.
08351  M01S01391.274l797 +++|*         THIS ROUTINE ISSUES THE MESSAGE LINES DEFINED IN TABLE
08352  M01S01392.274l797 +++|*         *IDMB* TO THE DAYFILE.
08353  M01S01393.274l797 +++|*
08354  M01S01394.274l797 +++|*         ENTRY  (A) = MESSAGE DESTINATION CODE
08355  M01S01395.274l797 +++|*
08356  M01S01396.274l797 +++|*         USES   T8.
08357  M01S01397.274l797 +++|*
08358  M01S01398.274l797 +++|*         CALLS  DFM.
08359  M01S01399.274l797 +++|
08360  M01S01400.274l797 +++|
08361  M01S01401.274l797 +++| IDM      SUBR               ENTRY/EXIT
08362  M01S01402.274l797 +++|          LMC    LMCI        SET MESSAGE DESTINATION CODE
08363  M01S01403.274l797 +++|          STM    IDMA
08364  M01S01404.274l797 +++|          LDN    0           INITIALIZE MESSAGE INDEX
08365  M01S01405.274l797 +++|          STD    T8
08366  M01S01406.274l797 +++|
08367  M01S01407.274l797 +++|*         LOOP UNTIL ALL MESSAGE LINES ARE ISSUED TO THE DAYFILE.
08368  M01S01408.274l797 +++|
08369  M01S01409.274l797 +++| IDM1     LDM    IDMB,T8     GET NEXT MESSAGE POINTER
08370  M01S01410.274l797 +++|          ZJN    IDMX        IF ALL MESSAGES ISSUED
08371  M01S01411.274l797 +++|          LMC    **          ADD MESSAGE DESTINATION
08372  M01S01412.274l797 +++| IDMA     EQU    *-2         (MESSAGE DESTINATION CODE)
08373  M01S01413.274l797 +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
08374  M01S01414.274l797 +++|          AOD    T8          ADVANCE MESSAGE INDEX
08375  M01S01415.274l797 +++|          UJN    IDM1        ISSUE NEXT MESSAGE LINE
08376  M01S01416.274l797 +++|
08377  M01S01417.274l797 +++|
08378  M01S01418.274l797 +++|*         TABLE OF MESSAGE LINE POINTERS FOR 6 LINES.
08379  M01S01419.274l797 +++|
08380  M01S01420.274l797 +++| IDMB     BSS    0
08381  M01S01421.274l797 +++|          LOC    0
08382  M01S01422.274l797 +++|          CON    MESA        LINE 1
08383  M01S01423.274l797 +++|          CON    MESB        LINE 2
08384  M01S01424.274l797 +++|          CON    MESC        LINE 3
08385  M01S01425.274l797 +++|          CON    MESD        LINE 4
08386  M01S01426.274l797 +++|          CON    MESE        LINE 5
08387  M01S01427.274l797 +++|          CON    MESF        LINE 6
08388  M01S01428.274l797 +++|          CON    0           TERMINATOR
08389  M01S01429.274l797 +++|          LOC    *O
08390  M01S01430.274l797 +++| MET      SPACE  4,15
08391  M01S01431.274l797 +++|**        MET - MOVE ERPA TEXT MESSAGE.
08392  M01S01432.274l797 +++|*
08393  M01S01433.274l797 +++|*         USES   T1, T2.
08394  M01S01434.274l797 +++|*
08395  M01S01435.274l797 +++|*         CALLS  ERP.
08396  M01S01436.274l797 +++|*
08397  M01S01437.274l797 +++|*         MACROS CALL.
08398  M01S01438.274l797 +++|
08399  M01S01439.274l797 +++|
08400  M01S01440.274l797 +++| MET2     LDC    2R.
08401  M01S01441.274l797 +++|          STM    MESD+7      SET END OF LINE WHEN NO MESSAGE
08402  M01S01442.274l797 +++|
08403  M01S01443.274l797 +++| MET      SUBR               ENTRY/EXIT
08404  M01S01444.274l797 +++|          CALL   ERP         LOAD ERPA TEXT MESSAGES
08405  M01S01445.274l797 +++|          LDM    MESD+6
08406  M01S01446.274l797 +++|          LMC    2R
08407  M01S01447.274l797 +++|          ZJN    MET2        IF NO ERPA CODE
08408  M01S01448.274l797 +++|          LDM    CTSD+2
08409  M01S01449.274l797 +++|          SHN    -4
08410  M01S01450.274l797 +++|          SBN    0#21
08411  M01S01451.274l797 +++|          MJN    MET2        IF NO ENGLISH TEXT
08412  M01S01452.274l797 +++|          STD    T1          INDEX INTO TABLE OF ADDRESSES
08413  M01S01453.274l797 +++|          LDM    /ERP/ERPA,T1
08414  M01S01454.274l797 +++|          ZJN    MET2        IF NO TEXT
08415  M01S01455.274l797 +++|          STD    T1          START OF ERPA TEXT
08416  M01S01456.274l797 +++|          LDC    MESD+10
08417  M01S01457.274l797 +++|          STD    T2          DESTINATION FOR ERPA TEXT
08418  M01S01458.274l797 +++| MET1     LDI    T1
08419  M01S01459.274l797 +++|          STI    T2
08420  M01S01460.274l797 +++|          ZJN    METX        IF ALL TEXT MOVED
08421  M01S01461.274l797 +++|          AOD    T1
08422  M01S01462.274l797 +++|          AOD    T2
08423  M01S01463.274l797 +++|          UJN    MET1        CONTINUE MOVING TEXT
08424  M01S01464.274l797 +++|          TITLE  OVERLAY AREA.
08425  M01S01465.274l797 +++| CDA      SPACE  4,10
08426  M01S01466.274l797 +++|**        CDA - CONVERT DATA (4 DIGITS).
08427  M01S01467.274l797 +++|*
08428  M01S01468.274l797 +++|*         ENTRY  (A, 17 - 12) = ADDRESS WHERE DATA CONTAINED.
08429  M01S01469.274l797 +++|*                (A, 11 - 0) = ADDRESS WHERE TO STORE RESULT.
08430  M01S01470.274l797 +++|*
08431  M01S01471.274l797 +++|*         USES   T2, T3.
08432  M01S01472.274l797 +++|*
08433  M01S01473.274l797 +++|*         CALLS  C2D.
08434  M01S01474.274l797 +++|
08435  M01S01475.274l797 +++|
08436  M01S01476.274l797 +++| CDA      SUBR               ENTRY/EXIT
08437  M01S01477.274l797 +++|          STD    T3          SAVE DESTINATION ADDRESS
08438  M01S01478.274l797 +++|          SHN    -14
08439  M01S01479.274l797 +++|          STD    T2          SAVE DATA ADDRESS
08440  M01S01480.274l797 +++|          LDI    T2          CONVERT FIRST 2 DIGITS
08441  M01S01481.274l797 +++|          SHN    -6
08442  M01S01482.274l797 +++|          RJM    C2D
08443  M01S01483.274l797 +++|          STI    T3
08444  M01S01484.274l797 +++|          LDI    T2          CONVERT SECOND 2 DIGITS
08445  M01S01485.274l797 +++|          RJM    C2D
08446  M01S01486.274l797 +++|          STM    1,T3
08447  M01S01487.274l797 +++|          UJN    CDAX        RETURN
08448  M01S01488.274l797 +++|          ERRNG  ERLB-*      IF OVERFLOW INTO OVERLAY AREA
08449  M01S01489.274l797 +++|
08450  M01S01490.274l797 +++|
08451  M01S01491.274l797 +++|*         NOTE - THE FOLLOWING CODE MAY BE OVERLAID IF THE SPECIAL
08452  M01S01492.274l797 +++|*         ERROR MESSAGES OVERLAY IS REQUIRED OR IF AN ERPA CODE IS
08453  M01S01493.274l797 +++|*         PRESENT.
08454  M01S01494.274l797 +++| CDN      SPACE  4,15
08455  M01S01495.274l797 +++|**        CDN - CONVERT DATA.
08456  M01S01496.274l797 +++|*         THIS ROUTINE CONVERTS 12-BIT HEX DATA TO DISPLAY CODE.
08457  M01S01497.274l797 +++|*
08458  M01S01498.274l797 +++|*         ENTRY  (A, 21 - 14 = 8-BIT BYTES TO CONVERT.
08459  M01S01499.274l797 +++|*                (A, 13 - 0) = SOURCE OF DATA TO CONVERT.
08460  M01S01500.274l797 +++|*                (T1) = STARTING NIBBLE POSITION (0, 1, OR 2).
08461  M01S01501.274l797 +++|*                (CN+3) = DESTINATION OF CONVERTED DATA.
08462  M01S01502.274l797 +++|*
08463  M01S01503.274l797 +++|*         EXIT   (CN+3) = UPDATED TO DESTINATION FOR NEXT CONVERTED
08464  M01S01504.274l797 +++|*                         BYTE.
08465  M01S01505.274l797 +++|*
08466  M01S01506.274l797 +++|*         USES   CN+1, CN+2.
08467  M01S01507.274l797 +++|*
08468  M01S01508.274l797 +++|*         CALLS  CNN.
08469  M01S01509.274l797 +++|
08470  M01S01510.274l797 +++|
08471  M01S01511.274l797 +++| CDN      SUBR               ENTRY/EXIT
08472  M01S01512.274l797 +++|          STD    CN+1        STARTING ADDRESS OF DATA TO CONVERT
08473  M01S01513.274l797 +++|          SHN    -14
08474  M01S01514.274l797 +++|          STD    CN+2        8-BIT BYTES TO CONVERT
08475  M01S01515.274l797 +++| CDN1     RJM    CNN         CONVERT NIBBLE
08476  M01S01516.274l797 +++|          SHN    6
08477  M01S01517.274l797 +++|          STI    CN+3
08478  M01S01518.274l797 +++|          RJM    CNN         CONVERT NIBBLE
08479  M01S01519.274l797 +++|          RAI    CN+3
08480  M01S01520.274l797 +++|          AOD    CN+3        UPDATE POINTER TO DESTINATION ADDRESS
08481  M01S01521.274l797 +++|          SOD    CN+2
08482  M01S01522.274l797 +++|          NJN    CDN1        IF MORE BYTES TO CONVERT
08483  M01S01523.274l797 +++|          UJN    CDNX        RETURN
08484  M01S01524.274l797 +++|CNN       SPACE  5,15
08485  M01S01525.274l797 +++|**        CNN - CONVERT NIBBLE.
08486  M01S01526.274l797 +++|*
08487  M01S01527.274l797 +++|*         ENTRY  (T1) = NIBBLE TO CONVERT (0, 1, OR 2).
08488  M01S01528.274l797 +++|*                (CN+1) = ADDRESS OF DATA TO CONVERT.
08489  M01S01529.274l797 +++|*
08490  M01S01530.274l797 +++|*         EXIT   (A) = DISPLAY CODE FOR NIBBLE.
08491  M01S01531.274l797 +++|*                (CN+1) = UPDATED TO ADDRESS OF NEXT BYTE TO CONVERT.
08492  M01S01532.274l797 +++|*                (T1) = UPDATED TO POSITION OF NEXT NIBBLE.
08493  M01S01533.274l797 +++|*
08494  M01S01534.274l797 +++|*         USES   T1, T2.
08495  M01S01535.274l797 +++|
08496  M01S01536.274l797 +++|
08497  M01S01537.274l797 +++| CNN      SUBR               ENTRY/EXIT
08498  M01S01538.274l797 +++|          LDM    CNNB,T1
08499  M01S01539.274l797 +++|          STM    CNNA        SET SHIFT INSTRUCTION
08500  M01S01540.274l797 +++|          LDI    CN+1
08501  M01S01541.274l797 +++|          SHN    0
08502  M01S01542.274l797 +++| CNNA     EQU    *-1         SHN -10, SHN -4, OR SHN 0
08503  M01S01543.274l797 +++|          LPN    17
08504  M01S01544.274l797 +++|          SBN    11
08505  M01S01545.274l797 +++|          ZJN    CNN1        IF 9
08506  M01S01546.274l797 +++|          PJN    CNN2        IF A - F
08507  M01S01547.274l797 +++| CNN1     ADN    1R0+11      0 - 9
08508  M01S01548.274l797 +++| CNN2     STD    T2
08509  M01S01549.274l797 +++|          AOD    T1          UPDATE NIBBLE POINTER
08510  M01S01550.274l797 +++|          SBN    3
08511  M01S01551.274l797 +++|          NJN    CNN3        IF NO WRAP
08512  M01S01552.274l797 +++|          STD    T1
08513  M01S01553.274l797 +++|          AOD    CN+1        ADDRESS OF DATA TO CONVERT
08514  M01S01554.274l797 +++| CNN3     LDD    T2
08515  M01S01555.274l797 +++|          UJN    CNNX        RETURN
08516  M01S01556.274l797 +++|
08517  M01S01557.274l797 +++|
08518  M01S01558.274l797 +++| CNNB     CON    1067        SHN  -10
08519  M01S01559.274l797 +++|          CON    1073        SHN   -4
08520  M01S01560.274l797 +++|          CON    1000        SHN    0
08521  M01S01561.274l797 +++| RUW      SPACE  4,10
08522  M01S01562.274l797 +++|**        RUW - READ UNIT DESCRIPTOR TABLE WORD.
08523  M01S01563.274l797 +++|*         USED TO READ UDT WHEN POSSIBLY NOT AT MAGNET CP.
08524  M01S01564.274l797 +++|*
08525  M01S01565.274l797 +++|*         ENTRY  (A) = UDT WORD.
08526  M01S01566.274l797 +++|*
08527  M01S01567.274l797 +++|*         EXIT   (CN - CN+4) = WORD READ.
08528  M01S01568.274l797 +++|*
08529  M01S01569.274l797 +++|*         USES   T1, CM - CM+4, CN - CN+4.
08530  M01S01570.274l797 +++|*
08531  M01S01571.274l797 +++|*         MACROS DELAY, MONITOR, PAUSE.
08532  M01S01572.274l797 +++|
08533  M01S01573.274l797 +++|
08534  M01S01574.274l797 +++| RUW2     LDD    MA
08535  M01S01575.274l797 +++|          CRD    CN
08536  M01S01576.274l797 +++|
08537  M01S01577.274l797 +++| RUW      SUBR               ENTRY/EXIT
08538  M01S01578.274l797 +++|          STD    T1
08539  M01S01579.274l797 +++| RUW1     LDM    UADA
08540  M01S01580.274l797 +++|          ADD    T1
08541  M01S01581.274l797 +++|          STD    CM+4
08542  M01S01582.274l797 +++|          LDD    HN          REQUEST 1 WORD
08543  M01S01583.274l797 +++|          STD    CM+3
08544  M01S01584.274l797 +++|          LDN    0           REQUEST READ FROM *MAGNET*
08545  M01S01585.274l797 +++|          STD    CM+1
08546  M01S01586.274l797 +++|          LCN    7777-/SSD/MTSI  SET *MAGNET* SUBSYSTEM IDENTIFICATION
08547  M01S01587.274l797 +++|          STD    CM+2
08548  M01S01588.274l797 +++|          MONITOR TDAM
08549  M01S01589.274l797 +++|          LDD    CM+1
08550  M01S01590.274l797 +++|          LMN    1
08551  M01S01591.274l797 +++|          NJN    RUW2        IF MOVE NOT IN PROGRESS
08552  M01S01592.274l797 +++|          PAUSE  NE
08553  M01S01593.274l797 +++|          DELAY
08554  M01S01594.274l797 +++|          UJN    RUW1        REISSUE REQUEST
08555  M01S01595.274l797 +++| BDM      SPACE  4,15
08556  M01S01596.274l797 +++|**        BDM - BUILD MESSAGE.
08557  M01S01597.274l797 +++|*         THIS ROUTINE BUILDS THE ERROR LOG MESSAGES.  (EXCEPT THE
08558  M01S01598.274l797 +++|*         DESCRIPTIVE MESSAGE IN THE 6TH LINE AND THE ERPA TEXT
08559  M01S01599.274l797 +++|*         MESSAGE.
08560  M01S01600.274l797 +++|*
08561  M01S01601.274l797 +++|*         ENTRY  (EC) = ERROR CODE.
08562  M01S01602.274l797 +++|*                (EI) = RETRY COUNT.
08563  M01S01603.274l797 +++|*
08564  M01S01604.274l797 +++|*         USES   T1, CM - CM+4.
08565  M01S01605.274l797 +++|*
08566  M01S01606.274l797 +++|*         CALLS  CDA, CDN, C2D, MCH, RUW, SCS.
08567  M01S01607.274l797 +++|*
08568  M01S01608.274l797 +++|*         MACROS CHTE, SFA.
08569  M01S01609.274l797 +++|
08570  M01S01610.274l797 +++|
08571  M01S01611.274l797 +++| BDM      SUBR               ENTRY/EXIT
08572  M01S01612.274l797 +++|          LDC    CTAB        MODIFY CHANNELS
08573  M01S01613.274l797 +++|          RJM    MCH
08574  M01S01614.274l797 +++|          LDM    //LOV
08575  M01S01615.274l797 +++|          STM    CEM         SET RETURN ADDRESS
08576  M01S01616.274l797 +++|          LDM    TERM,EC
08577  M01S01617.274l797 +++|          STM    CEMA        SAVE TABLE ENTRY
08578  M01S01618.274l797 +++|
08579  M01S01619.274l797 +++|*         MESSAGE BUILD.
08580  M01S01620.274l797 +++|
08581  M01S01621.274l797 +++|          SFA    EST,EO      SET DEVICE TYPE IN MESSAGE LINES
Line S00576 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08582  M01S00576.282l826 +++|          ADK    EQDE
Line S01622 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08583  M01S01622.274l797 +++|          CRD    CM
08584  M01S01623.274l797 +++|          LDD    CM+3
08585  M01S01624.274l797 +++|          RJM    SCS         SET CHARACTERS
08586  M01S01625.274l797 +++|          CHTE   *           SET CHANNEL NUMBER IN MESSAGE LINES
08587  M01S01626.274l797 +++|          LDN    CH
08588  M01S01627.274l797 +++|          RJM    C2D
08589  M01S01628.274l797 +++|          ADC    2*10000
08590  M01S01629.274l797 +++|          RJM    SCS
Line S01630 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08591  M02S01630.282l826 ---|          LDD    ED          SET UNIT NUMBER
Line S00577 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08592  M01S00577.282l826 +++|          LDD    CM+4        SET UNIT NUMBER
Line S01631 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08593  M01S01631.274l797 +++|          SHN    -3
08594  M01S01632.274l797 +++|          LPN    1
08595  M01S01633.274l797 +++|          RAM    MESA+4
Line S01634 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08596  M02S01634.282l826 ---|          LDD    ED
Line S00578 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08597  M01S00578.282l826 +++|          LDD    CM+4
Line S01635 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08598  M01S01635.274l797 +++|          LPN    7
08599  M01S01636.274l797 +++|          SHN    6
08600  M01S01637.274l797 +++|          RAM    MESA+5
08601  M01S01638.274l797 +++|          LDN    /MTX/UVSN   READ UP VSN
08602  M01S01639.274l797 +++|          RJM    RUW
08603  M01S01640.274l797 +++|          LDD    CN
08604  M01S01641.274l797 +++|          ZJN    BDM1        IF VSN NOT SPECIFIED
08605  M01S01642.274l797 +++|          STM    MESA+6
08606  M01S01643.274l797 +++|          LDD    CN+1
08607  M01S01644.274l797 +++|          STM    MESA+7
08608  M01S01645.274l797 +++|          LDD    CN+2
08609  M01S01646.274l797 +++|          STM    MESA+10
08610  M01S01647.274l797 +++| BDM1     LDD    FN
08611  M01S01648.274l797 +++|          SBN    /MTX/WTF
08612  M01S01649.274l797 +++|          MJN    BDM2        IF NOT WRITE OPERATION
08613  M01S01650.274l797 +++|          LDN    1RW-1RR     CHANGE *RD* TO *WD*
08614  M01S01651.274l797 +++|          RAM    MESA+11
Line S01652 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08615  M02S01652.282l826 ---| BDM2     LDN    /MTX/UUFN   GET EST ORDINAL WRITTEN ON
Line S00579 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08616  M01S00579.282l826 +++| BDM2     LDN    /MTX/UGNU   GET EST ORDINAL WRITTEN ON
Line S01653 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08617  M01S01653.274l797 +++|          RJM    RUW
Line S01654 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08618  M02S01654.282l826 ---|          LDD    CN+4
Line S00580 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08619  M01S00580.282l826 +++|          LDD    CN+1
Line S01655 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08620  M01S01655.274l797 +++|          ZJN    BDM3        IF EST NOT AVAILABLE
08621  M01S01656.274l797 +++|          SHN    -6          CONVERT UPPER DIGIT OF EST ORDINAL
08622  M01S01657.274l797 +++|          ADC    2R 0
08623  M01S01658.274l797 +++|          STM    MESA+13
Line S01659 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08624  M02S01659.282l826 ---|          LDD    CN+4        CONVERT LOWER TWO DIGITS OF EST ORDINAL
Line S00581 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08625  M01S00581.282l826 +++|          LDD    CN+1        CONVERT LOWER TWO DIGITS OF EST ORDINAL
Line S01660 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08626  M01S01660.274l797 +++|          RJM    C2D
08627  M01S01661.274l797 +++|          STM    MESA+14
08628  M01S01662.274l797 +++|
08629  M01S01663.274l797 +++|*         MOVE GENERAL STATUS.
08630  M01S01664.274l797 +++|
08631  M01S01665.274l797 +++| BDM3     LDD    DS
08632  M01S01666.274l797 +++|          SHN    -6
08633  M01S01667.274l797 +++|          RJM    C2D
08634  M01S01668.274l797 +++|          STM    MESA+17
08635  M01S01669.274l797 +++|          LDD    DS
08636  M01S01670.274l797 +++|          RJM    C2D
08637  M01S01671.274l797 +++|          STM    MESA+20
Line S01672 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08638  M02S01672.ns2794  ---|          LDM    /PRESET/GPSA
Line S00022 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08639  M01S00022.ns2794  +++|          LDM    CTGS
Line S01673 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08640  M01S01673.274l797 +++|          SHN    -6
08641  M01S01674.274l797 +++|          RJM    C2D
08642  M01S01675.274l797 +++|          STM    MESA+21
Line S01676 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08643  M02S01676.ns2794  ---|          LDM    /PRESET/GPSA
Line S00023 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08644  M01S00023.ns2794  +++|          LDM    CTGS
Line S01677 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08645  M01S01677.274l797 +++|          RJM    C2D
08646  M01S01678.274l797 +++|          STM    MESA+22
08647  M01S01679.274l797 +++|          LDD    DS
08648  M01S01680.274l797 +++|          SHN    21-13
Line S01681 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08649  M02S01681.1mt46   ---|          PJN    BDM4        IF ALERT NOT SET
Line S00014 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08650  M01S00014.1mt46   +++|          PJP    BDM5        IF ALERT NOT SET
Line S01682 Modification History
M01 (Added by) 274l797
M02 (Removed by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08651  M02S01682.ns2794  ---|          LDM    /PRESET/GPSA
Line S00024 Modification History
M01 (Added by) ns2794
Seq #  *Modification Id* Act 
----------------------------+
08652  M01S00024.ns2794  +++|          LDM    CTGS
Line S01683 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08653  M01S01683.274l797 +++|          SHN    21-12
Line S01684 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08654  M02S01684.1mt46   ---| BDM4     PJN    BDM5        IF NOT UNIT CHECK
Line S00015 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08655  M01S00015.1mt46   +++|          MJN    BDM4        IF UNIT CHECK
08656  M01S00016.1mt46   +++|          LDC    MESC+21
08657  M01S00017.1mt46   +++|          STD    CN+3        DESTINATION ADDRESS
08658  M01S00018.1mt46   +++|          UJN    BDM4.1      SAVE CCC STATUS
Line S01685 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08659  M01S01685.274l797 +++|
08660  M01S01686.274l797 +++|*         MOVE DETAILED STATUS.
08661  M01S01687.274l797 +++|
Line S01688 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08662  M02S01688.1mt46   ---|          LDN    0
08663  M02S01689.1mt46   ---|          STD    T1          FIRST NIBBBLE
Line S00019 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08664  M01S00019.1mt46   +++| BDM4     LDN    0
08665  M01S00020.1mt46   +++|          STD    T1          FIRST NIBBLE
Line S01690 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08666  M01S01690.274l797 +++|          LDC    MESB+4
08667  M01S01691.274l797 +++|          STD    CN+3        DESTINATION ADDRESS
08668  M01S01692.274l797 +++|          LDC    20D*10000+CTSD
08669  M01S01693.274l797 +++|          RJM    CDN         CONVERT FIRST 20 SENSE BYTES
08670  M01S01694.274l797 +++|          LDC    MESC+4
08671  M01S01695.274l797 +++|          STD    CN+3        DESTINATION ADDRESS
08672  M01S01696.274l797 +++|          LDC    12D*10000+CTSD+15
08673  M01S01697.274l797 +++|          RJM    CDN         CONVERT LAST 12 SENSE BYTES
08674  M01S01698.274l797 +++|          AOD    CN+3        DESTINATION ADDRESS
Line S01699 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08675  M02S01699.1mt46   ---|          LDN    0
08676  M02S01700.1mt46   ---|          STD    T1          FIRST NIBBBLE
Line S00021 Modification History
M01 (Added by) 1mt46
Seq #  *Modification Id* Act 
----------------------------+
08677  M01S00021.1mt46   +++| BDM4.1   LDN    0
08678  M01S00022.1mt46   +++|          STD    T1          FIRST NIBBLE
Line S01701 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08679  M01S01701.274l797 +++|          LDC    6*10000+CTSD+26
08680  M01S01702.274l797 +++|          RJM    CDN         CONVERT ADAPTER STATUS
08681  M01S01703.274l797 +++|          LDM    MESB+7
08682  M01S01704.274l797 +++|          STM    MESD+6      SET ERPA CODE
08683  M01S01705.274l797 +++|          UJN    BDM6        DO CONVERSION FOR LINE 5
08684  M01S01706.274l797 +++|
08685  M01S01707.274l797 +++| BDM5     LDC    2R.         SHORTEN MESSAGE LINES WHEN NO STATUS
08686  M01S01708.274l797 +++|          STM    MESB+7
08687  M01S01709.274l797 +++|          STM    MESC+7
08688  M01S01710.274l797 +++|          LDN    0
08689  M01S01711.274l797 +++|          STM    MESB+10
08690  M01S01712.274l797 +++|          STM    MESC+10
08691  M01S01713.274l797 +++|
08692  M01S01714.274l797 +++|*         CONVERSION FOR LINE 5.
08693  M01S01715.274l797 +++|
08694  M01S01716.274l797 +++| BDM6     LDD    FN          CONVERT SOFTWARE FUNCTION NUMBER
08695  M01S01717.274l797 +++|          RJM    C2D
08696  M01S01718.274l797 +++|          STM    MESE+4
08697  M01S01719.274l797 +++|          LDD    EI          CONVERT ERROR ITERATION NUMBER
08698  M01S01720.274l797 +++|          RJM    C2D
08699  M01S01721.274l797 +++|          STM    MESE+6
08700  M01S01722.274l797 +++|          LDC    BL*10000+MESE+10  CONVERT BLOCK NUMBER
08701  M01S01723.274l797 +++|          RJM    CDA
08702  M01S01724.274l797 +++|          LDC    BL*10000+10000+MESE+12  CONVERT BLOCK NUMBER
08703  M01S01725.274l797 +++|          RJM    CDA
08704  M01S01726.274l797 +++|
08705  M01S01727.274l797 +++|*         CONVERSION FOR LINE 6.
08706  M01S01728.274l797 +++|
08707  M01S01729.274l797 +++|          LDD    EC          SET ERROR CODE
08708  M01S01730.274l797 +++|          RJM    C2D
08709  M01S01731.274l797 +++|          STM    MESF+4
Line S01732 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08710  M02S01732.282l826 ---|          LDM    BDMA,FM     SAVE FORMAT
Line S00582 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08711  M01S00582.282l826 +++|          LDD    FM          SET FORMAT
08712  M01S00583.282l826 +++|          SHN    -6
08713  M01S00584.282l826 +++|          STD    T1
08714  M01S00585.282l826 +++|          LDM    BDMA,T1     SAVE FORMAT
Line S01733 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08715  M01S01733.274l797 +++|          STM    MESF+7
08716  M01S01734.274l797 +++|          LDD    EC
08717  M01S01735.274l797 +++|          NJN    BDM7        IF NOT RECOVERABLE ERROR
08718  M01S01736.274l797 +++|          LDN    1RR-1RI
08719  M01S01737.274l797 +++|          UJN    BDM8        INDICATE RECOVERABLE MESSAGE
08720  M01S01738.274l797 +++|
08721  M01S01739.274l797 +++| BDM7     LDD    EI
08722  M01S01740.274l797 +++|          SBN    2
08723  M01S01741.274l797 +++|          MJN    BDM9        IF NOT UNRECOVERABLE
08724  M01S01742.274l797 +++|          LDN    1RU-1RI     INDICATE UNRECOVERABLE MESSAGE
08725  M01S01743.274l797 +++| BDM8     RAM    MESF+10
08726  M01S01744.274l797 +++| BDM9     LDD    SP          CHECK ERROR MESSAGE PROCESSING OPTION
08727  M01S01745.274l797 +++|          SHN    21-7
08728  M01S01746.274l797 +++|          PJN    BDM10       IF USER DAYFILE MESSAGES ARE DISABLED
08729  M01S01747.274l797 +++|          LDD    EC
08730  M01S01748.274l797 +++|          ZJN    BDM11       IF RECOVERED MESSAGE
08731  M01S01749.274l797 +++|          LDD    EI
08732  M01S01750.274l797 +++|          ZJN    BDM11       IF FIRST ITERATION
08733  M01S01751.274l797 +++| BDM10    LDC    LPNI+0      DISABLE MESSAGE ISSUE
08734  M01S01752.274l797 +++|          STM    CEMB
08735  M01S01753.274l797 +++| BDM11    LJM    BDMX        RETURN
08736  M01S01754.274l797 +++|
08737  M01S01755.274l797 +++|
08738  M01S01756.274l797 +++| BDMA     CON    2RI         I FORMAT
08739  M01S01757.274l797 +++|          CON    2RSI        SI FORMAT
08740  M01S01758.274l797 +++|          CON    2RF         F FORMAT
08741  M01S01759.274l797 +++|          CON    2RS         S FORMAT
08742  M01S01760.274l797 +++|          CON    2RL         L FORMAT
08743  M01S01761.274l797 +++|          CON    2RLI        LI FORMAT
08744  M01S01762.274l797 +++| SCS      SPACE  4,10
08745  M01S01763.274l797 +++|**        SCS - STORE CHARACTERS IN MESSAGE LINES.
08746  M01S01764.274l797 +++|*
08747  M01S01765.274l797 +++|*         ENTRY  (A, 17 - 12) = MESSAGE FIELD INDEX.
08748  M01S01766.274l797 +++|*                (A, 11 -  0) = CHARACTERS.
08749  M01S01767.274l797 +++|*
08750  M01S01768.274l797 +++|*         USES   T1.
08751  M01S01769.274l797 +++|
08752  M01S01770.274l797 +++|
08753  M01S01771.274l797 +++| SCS      SUBR               ENTRY/EXIT
08754  M01S01772.274l797 +++|          STD    T0          SAVE CHARACTERS
08755  M01S01773.274l797 +++|          SHN    -14
08756  M01S01774.274l797 +++|          ADC    MESA
08757  M01S01775.274l797 +++|          STD    T1
08758  M01S01776.274l797 +++| SCS1     LDD    T0
08759  M01S01777.274l797 +++|          STI    T1
08760  M01S01778.274l797 +++|          LDN    MESB-MESA
08761  M01S01779.274l797 +++|          RAD    T1
08762  M01S01780.274l797 +++|          ADC    -MESL
08763  M01S01781.274l797 +++|          MJN    SCS1        LOOP
08764  M01S01782.274l797 +++|          UJN    SCSX        RETURN
08765  M01S01783.274l797 +++| CTAB     SPACE  4,10
08766  M01S01784.274l797 +++|*         CHANNEL TABLE.
08767  M01S01785.274l797 +++|
08768  M01S01786.274l797 +++|
08769  M01S01787.274l797 +++| CTAB     CHTB               CHANNEL TABLE
08770  M01S01788.274l797 +++|
08771  M01S01789.274l797 +++|          ERRNG  2*473+ERLA+5-*  ERROR PROCESSOR OVERFLOW
08772  M01S01790.274l797 +++|          OVERLAY (CTS SPECIAL MESSAGE PROCESSOR.),(ERLB+5),P,CSP
08773  M01S01791.274l797 +++| CSP      SPACE  4,10
08774  M01S01792.274l797 +++|**        CSP - CTS ERRLOG MESSAGE SPECIAL PROCESSOR.
08775  M01S01793.274l797 +++|*         THIS OVERLAY IS CALLED FROM *CEM* FOR ERRORS WHICH
08776  M01S01794.274l797 +++|*         REQUIRE ADDITIONAL PROCESSING. SEE TABLE IN *CEM* FOR
08777  M01S01795.274l797 +++|*         LIST OF ERRORS WHICH REQUIRE THIS OVERLAY.
08778  M01S01796.274l797 +++|*
08779  M01S01797.274l797 +++|*         ENTRY  (/CEM/CEMA) = INDEX TO PROCESSOR.
08780  M01S01798.274l797 +++|*
08781  M01S01799.274l797 +++|*         EXIT   (/CEM/CEMA) = MESSAGE ADDRESS.
08782  M01S01800.274l797 +++|*
08783  M01S01801.274l797 +++|*         CALLS  BNP, CKR, ECN, FRE, FSC.
08784  M01S01802.274l797 +++|
08785  M01S01803.274l797 +++|
08786  M01S01804.274l797 +++|          ENTRY  CSP
08787  M01S01805.274l797 +++| CSP      SUBR               ENTRY/EXIT
08788  M01S01806.274l797 +++|          LDM    /CEM/CEMA   GET PROCESSOR INDEX
08789  M01S01807.274l797 +++|          STD    T1
08790  M01S01808.274l797 +++|          LDM    SPRI,T1
08791  M01S01809.274l797 +++|          STM    CSPA
08792  M01S01810.274l797 +++|          RJM    *           PROCESS ERROR
08793  M01S01811.274l797 +++| CSPA     EQU    *-1
08794  M01S01812.274l797 +++|          STM    /CEM/CEMA   SET MESSAGE ADDRESS
08795  M01S01813.274l797 +++|          UJN    CSPX        RETURN
08796  M01S01814.274l797 +++|
08797  M01S01815.274l797 +++|          TITLE  SPECIAL PROCESSORS.
08798  M01S01816.274l797 +++| SPRI     SPACE  4,10
08799  M01S01817.274l797 +++| SPRI     INDEX  0,//HNG
08800  M01S01818.274l797 +++|          INDEX  /CEM/FRJM,FRE
08801  M01S01819.274l797 +++|          INDEX  /CEM/WEOM,CKR
08802  M01S01820.274l797 +++|          INDEX  /CEM/CRJM,ECN
08803  M01S01821.274l797 +++|          INDEX  /CEM/BNEM,BNP
08804  M01S01822.274l797 +++|          INDEX  /CEM/MAXM
08805  M01S01823.274l797 +++| BNP      SPACE  4,15
08806  M01S01824.274l797 +++|**        BNP - BLOCK NUMBER PROCESSOR.
08807  M01S01825.274l797 +++|*
08808  M01S01826.274l797 +++|*         ENTRY  (BNEU) = ACTUAL BYTE LENGTH UPPER (LI FORMAT).
08809  M01S01827.274l797 +++|*                (BNEI) = ACTUAL BYTE LENGTH LOWER.
08810  M01S01828.274l797 +++|*                (BNEI+1 - BNEI+2) = ACTUAL BLOCK NUMBER.
08811  M01S01829.274l797 +++|*
08812  M01S01830.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08813  M01S01831.274l797 +++|*
08814  M01S01832.274l797 +++|*         USES   CM.
08815  M01S01833.274l797 +++|*
08816  M01S01834.274l797 +++|*         CALLS  /CEM/CDA, /CEM/C2D.
08817  M01S01835.274l797 +++|
08818  M01S01836.274l797 +++|
08819  M01S01837.274l797 +++| BNP      SUBR               ENTRY/EXIT
08820  M01S01838.274l797 +++|          LDD    FM
Line S00586 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08821  M01S00586.282l826 +++|          SHN    -6
Line S01839 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08822  M01S01839.274l797 +++|          LMN    /MTX/TFLI
08823  M01S01840.274l797 +++|          NJN    BNP1        IF NOT LI FORMAT
08824  M01S01841.274l797 +++|          LDM    BNEU
08825  M01S01842.274l797 +++|          RJM    /CEM/C2D    CONVERT 2 DIGITS
08826  M01S01843.274l797 +++|          STM    BNPA+1      SAVE UPPER 2 OF 6 DIGITS OF BLOCK LENGTH
08827  M01S01844.274l797 +++| BNP1     LDM    BNEI
08828  M01S01845.274l797 +++|          STD    CM
08829  M01S01846.274l797 +++|          LDC    CM*10000+BNPA+2  CONVERT EXPECTED LENGTH
08830  M01S01847.274l797 +++|          RJM    /CEM/CDA
08831  M01S01848.274l797 +++|          LDM    BNEI+1
08832  M01S01849.274l797 +++|          STD    CM
08833  M01S01850.274l797 +++|          LDC    CM*10000+BNPA+5
08834  M01S01851.274l797 +++|          RJM    /CEM/CDA    CONVERT BLOCK NUMBER
08835  M01S01852.274l797 +++|          LDM    BNEI+2
08836  M01S01853.274l797 +++|          STD    CM
08837  M01S01854.274l797 +++|          LDC    CM*10000+BNPA+7
08838  M01S01855.274l797 +++|          RJM    /CEM/CDA
08839  M01S01856.274l797 +++|          LDC    BNPA        SET MESSAGE ADDRESS
08840  M01S01857.274l797 +++|          UJP    BNPX        RETURN
08841  M01S01858.274l797 +++|
08842  M01S01859.274l797 +++|
08843  M01S01860.274l797 +++| BNPA     DATA   C* L000000,B00000000.*
08844  M01S01861.274l797 +++| CKR      SPACE  4,10
08845  M01S01862.274l797 +++|**        CKR - CHECK IF READY.
08846  M01S01863.274l797 +++|*         CLEARS LAST OPERATION WRITE FLAGS.
08847  M01S01864.274l797 +++|*
08848  M01S01865.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08849  M01S01866.274l797 +++|
08850  M01S01867.274l797 +++|
08851  M01S01868.274l797 +++| CKR3     LDC    CKRC        SET READY DROP MESSAGE
08852  M01S01869.274l797 +++|
08853  M01S01870.274l797 +++| CKR      SUBR               ENTRY/EXIT
Line S01871 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08854  M02S01871.282l826 ---|          LDD    HP          CLEAR WRITE FLAGS
08855  M02S01872.282l826 ---|          LPC    1777
08856  M02S01873.282l826 ---|          STD    HP
Line S00587 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08857  M01S00587.282l826 +++|          LDD    UP          CLEAR LAST OPERATION WRITE AND BLANK TAPE
08858  M01S00588.282l826 +++|          SCN    24
08859  M01S00589.282l826 +++|          STD    UP
Line S01874 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08860  M01S01874.274l797 +++|          LDD    EC          CHECK FOR READY DROP ERROR
08861  M01S01875.274l797 +++|          SBN    /MTX/RDR
08862  M01S01876.274l797 +++|          ZJN    CKR3        IF READY DROP ERROR
08863  M01S01877.274l797 +++|          LDM    /PRESET/GPSB
08864  M01S01878.274l797 +++|          ZJN    CKR1        IF WAIT EOP
08865  M01S01879.274l797 +++|          LDD    DS
08866  M01S01880.274l797 +++|          LPN    2
08867  M01S01881.274l797 +++|          ZJN    CKR1        IF NOT BUSY
08868  M01S01882.274l797 +++|          LDC    CKRB        SET UNIT BUSY MESSAGE
08869  M01S01883.274l797 +++|          UJN    CKRX        RETURN
08870  M01S01884.274l797 +++|
08871  M01S01885.274l797 +++| CKR1     LDC    CKRA        SET NO EOP MESSAGE
08872  M01S01886.274l797 +++|          UJN    CKRX        RETURN
08873  M01S01887.274l797 +++|
08874  M01S01888.274l797 +++|
08875  M01S01889.274l797 +++| CKRA     DATA   C*NO EOP.*
08876  M01S01890.274l797 +++| CKRB     DATA   C*BUSY.*
08877  M01S01891.274l797 +++| CKRC     DATA   C*NOT READY.*
08878  M01S01892.274l797 +++| ECN      SPACE  4,10
08879  M01S01893.274l797 +++|**        ECN - ERROR ON CONNECT.
08880  M01S01894.274l797 +++|*         MESSAGE IS ALTERED IF UNIT NOT TURNED OFF.
08881  M01S01895.274l797 +++|*
08882  M01S01896.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
Line S00590 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08883  M01S00590.282l826 +++|*
08884  M01S00591.282l826 +++|*         USES   CM - CM+4.
08885  M01S00592.282l826 +++|*
08886  M01S00593.282l826 +++|*         MACROS SFA.
Line S01897 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08887  M01S01897.274l797 +++|
08888  M01S01898.274l797 +++|
08889  M01S01899.274l797 +++| ECN2     LDC    ECNA        EXIT WITH MESSAGE ADDRESS
08890  M01S01900.274l797 +++|
08891  M01S01901.274l797 +++| ECN      SUBR               ENTRY/EXIT
Line S01902 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08892  M02S01902.282l826 ---|          LDD    ED          CHECK IF UNIT DOWN (OFF)
08893  M02S01903.282l826 ---|          SHN    21-10
08894  M02S01904.282l826 ---|          MJN    ECN2        IF UNIT DOWNED
Line S00594 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08895  M01S00594.282l826 +++|          SFA    EST,EO
08896  M01S00595.282l826 +++|          ADK    EQDE
08897  M01S00596.282l826 +++|          CRD    CM
08898  M01S00597.282l826 +++|          LDD    CM
08899  M01S00598.282l826 +++|          LPN    3
08900  M01S00599.282l826 +++|          LMN    /CPS/DWES
08901  M01S00600.282l826 +++|          ZJN    ECN2        IF UNIT DOWNED
Line S01905 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08902  M01S01905.274l797 +++|          LDN    0           ALTER MESSAGE
08903  M01S01906.274l797 +++|          STM    ECNA+5
08904  M01S01907.274l797 +++|          UJN    ECN2        RETURN
08905  M01S01908.274l797 +++|
08906  M01S01909.274l797 +++|
Line S01910 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08907  M02S01910.282l826 ---| ECNA     DATA   C*CON. REJ. OFF.*
Line S00601 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08908  M01S00601.282l826 +++| ECNA     DATA   C*CON. REJ. DOWN.*
Line S01911 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08909  M01S01911.274l797 +++| FRE      SPACE  4,10
08910  M01S01912.274l797 +++|**        FRE - FUNCTION REJECT ERROR.
08911  M01S01913.274l797 +++|*         DIAGNOSES ERROR BY GIVING FUNCTION AND THE ADDRESS OF
08912  M01S01914.274l797 +++|*         THE ROUTINE THAT INITIATED THE CALL.
08913  M01S01915.274l797 +++|*
08914  M01S01916.274l797 +++|*         EXIT   (A) = MESSAGE ADDRESS.
08915  M01S01917.274l797 +++|*
08916  M01S01918.274l797 +++|*         USES   CM.
08917  M01S01919.274l797 +++|*
08918  M01S01920.274l797 +++|*         CALLS  /CEM/CDA.
08919  M01S01921.274l797 +++|
08920  M01S01922.274l797 +++|
08921  M01S01923.274l797 +++| FRE      SUBR               ENTRY/EXIT
08922  M01S01924.274l797 +++|          LDM    /PRESET/ICF GET ADDRESS OF CALLER
08923  M01S01925.274l797 +++|          STD    CM
08924  M01S01926.274l797 +++|          LDC    CM*10000+FREA+4
08925  M01S01927.274l797 +++|          RJM    /CEM/CDA
08926  M01S01928.274l797 +++|          LDM    /PRESET/ICFA  CONVERT FUNCTION
08927  M01S01929.274l797 +++|          STD    CM
08928  M01S01930.274l797 +++|          LDC    CM*10000+FREA+1
08929  M01S01931.274l797 +++|          RJM    /CEM/CDA
08930  M01S01932.274l797 +++|          LDC    FREA        SET MESSAGE ADDRESS
08931  M01S01933.274l797 +++|          UJN    FREX        RETURN
08932  M01S01934.274l797 +++|
08933  M01S01935.274l797 +++|
08934  M01S01936.274l797 +++| FREA     DATA   C*FN0000,P0000.*
08935  M01S01937.274l797 +++|          ERRNG  1*473+ERLB+5-*  ERROR PROCESSOR OVERFLOW
08936  M00S05309.1mt     +++|          OVERLAY (DROP PPU PROCESSOR.),,NOPRS,DPP
08937  M00S05310.1mt     +++| DPP      SPACE  4,10
08938  M00S05311.1mt     +++|**        DPP - DROP CHANNEL AND PPU.
08939  M00S05312.1mt     +++|*         ALSO HANDLES ISSUE OF MESSAGE FOR ANY FUNCTION REJECTS
08940  M00S05313.1mt     +++|*         THAT COULD NOT BE DIAGNOSED WHEN THEY OCCURRED.  IT IS NOT
08941  M00S05314.1mt     +++|*         ALWAYS POSSIBLE TO LOAD AN OVERLAY AND DIAGNOSE A FUNCTION
08942  M00S05315.1mt     +++|*         REJECT AND STILL MAINTAIN THE CONTROLLER OPTIONS AETC.
08943  M00S05316.1mt     +++|*
08944  M00S05317.1mt     +++|*         CALLS  DME, *EMM*, MCH.
08945  M00S05318.1mt     +++|*
08946  M00S05319.1mt     +++|*         MACROS CALL, CHTE, DCHAN, MONITOR.
08947  M00S05320.1mt     +++|
08948  M00S05321.1mt     +++|
08949  M00S05322.1mt     +++|          ENTRY  DPP
08950  M00S05323.1mt     +++| DPP      SUBR               ENTRY/EXIT
Line S05324 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08951  M01S05324.ns22000 ---|          LDC    CTAB        MODIFY CHANNELS
Line S00140 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08952  M01S00140.ns22000 +++|          LDM    HNG         CHECK FOR *HNG* CALL
08953  M01S00141.ns22000 +++|          ZJN    DPP0        IF NORMAL DROP
08954  M01S00142.ns22000 +++|          STM    CM+4        SET (OR+4) = *HNG* CALLER
08955  M01S00143.ns22000 +++|          MONITOR HNGM       HANG PP
08956  M01S00144.ns22000 +++| DPP0     LDC    CTAB        MODIFY CHANNELS
08957  M00S05325.1mt     +++|          RJM    MCH
08958  M00S05326.1mt     +++|          LDC    DPP1        SET ADDRESS TO EXIT TO
08959  M00S05327.1mt     +++|          STM    //LOV
08960  M00S05328.1mt     +++|          UJN    DPPX        RETURN
08961  M00S05329.1mt     +++|
Line S05330 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08962  M01S05330.274l797 ---| DPP1     LDM    //FCNC
Line S01938 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08963  M01S01938.274l797 +++| DPP1     LDD    HP
08964  M01S01939.274l797 +++|          SHN    21-7
Line S01940 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08965  M02S01940.282l826 ---|          MJN    DPP3        IF CTS
Line S00602 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08966  M01S00602.282l826 +++|          MJN    DPP2        IF CTS
Line S01941 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08967  M01S01941.274l797 +++|          LDM    //FCNC
08968  M00S05331.1mt     +++|          NJN    DPP2        IF NO DELAYED REQUEST
08969  M00S05332.1mt     +++|          LDM    //.OVLR+3
08970  M00S05333.1mt     +++|          NJN    DPP2        IF NO B.C. RESTART
08971  M00S05334.1mt     +++|          LDD    DS          SET STATUS
08972  M00S05335.1mt     +++|          STM    //STER
08973  M00S05336.1mt     +++|          LDN    /MTX/BCR
08974  M00S05337.1mt     +++|          STD    EC
08975  M00S05338.1mt     +++|          CALL   EMM         CALL ERROR MESSAGE PROCESSOR
Line S05339 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08976  M01S05339.282l826 ---| DPP2     RJM    DME         DETERMINE IF MONITORING ENABLED
Line S05340 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08977  M02S05340.282l826 ---|          LDC    RTCL        CLEAR INTERLOCK
Line S01942 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08978  M02S01942.282l826 ---| DPP3     LDC    RTCL        CLEAR INTERLOCK
Line S00603 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08979  M01S00603.282l826 +++| DPP2     LDD    IA          RESET INPUT REGISTER
08980  M01S00604.282l826 +++|          CRD    IR
08981  M01S00605.282l826 +++|          LDD    RA
08982  M01S00606.282l826 +++|          SHN    6
08983  M01S00607.282l826 +++|          ADD    IR+4
08984  M01S00608.282l826 +++|          ADK    /MTX/CPST   GET PROCESSOR STATUS
08985  M00S05341.1mt     +++|          CRD    CM
Line S05342 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08986  M01S05342.282l826 ---|          LDM    UADA        SET POINTER TO LAST UDT PROCESSED
Line S00609 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08987  M01S00609.282l826 +++|          LDM    UADA        SET NEXT UDT TO PROCESS
08988  M00S05343.1mt     +++|          STD    CM+4
Line S05344 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08989  M01S05344.282l826 ---|          LDD    CF
08990  M01S05345.282l826 ---|          SHN    -11
08991  M01S05346.282l826 ---|          ADN    /MTX/UITW
08992  M01S05347.282l826 ---|          SHN    14
08993  M01S05348.282l826 ---|          ADD    RA
Line S00610 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08994  M01S00610.282l826 +++|          LDD    CM
08995  M01S00611.282l826 +++|          LPC    3777        CLEAR *1MT* ACTIVE
08996  M01S00612.282l826 +++|          STD    CM
08997  M01S00613.282l826 +++|          LDD    RA
08998  M00S05349.1mt     +++|          SHN    6
Line S00614 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08999  M01S00614.282l826 +++|          ADD    IR+4
09000  M01S00615.282l826 +++|          ADK    /MTX/CPST   UPDATE PROCESSOR STATUS
09001  M00S05350.1mt     +++|          CWD    CM
09002  M00S05351.1mt     +++|          CHTE   *
09003  M00S05352.1mt     +++|          LDN    CH          DROP CHANNEL
09004  M00S05353.1mt     +++|          DCHAN
09005  M00S05354.1mt     +++|          MONITOR DPPM       DROP PPU
09006  M00S05355.1mt     +++|          LJM    PPR         EXIT TO PP RESIDENT
09007  M00S05356.1mt     +++|
09008  M00S05357.1mt     +++|
09009  M00S05358.1mt     +++| CTAB     CHTB               CHANNEL TABLE
Line S05359 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09010  M01S05359.282l826 ---| DME      SPACE  4,10
09011  M01S05360.282l826 ---|**        DME - DETERMINE IF MONITORING ENABLED.
09012  M01S05361.282l826 ---|*
09013  M01S05362.282l826 ---|*         CALLS *TMP* OVERLAY IF MONITORING IS TO BE INITIATED.
09014  M01S05363.282l826 ---|*
09015  M01S05364.282l826 ---|*         USES   CM - CM+4.
09016  M01S05365.282l826 ---|
09017  M01S05366.282l826 ---|
09018  M01S05367.282l826 ---| DME1     SHN    21-2-21+1+22
09019  M01S05368.282l826 ---|          PJN    DMEX        IF MONITORING NOT IN PROGRESS
09020  M01S05369.282l826 ---|          LDD    RA          READ TAPE MONITORING FLAG WORD
09021  M01S05370.282l826 ---|          SHN    6
09022  M01S05371.282l826 ---|          ADN    /MTX/TMGF
09023  M01S05372.282l826 ---|          CRD    CM
09024  M01S05373.282l826 ---|          LDD    CM+2        CHECK INPUT REGISTER ADDRESS
09025  M01S05374.282l826 ---|          LMD    IA
09026  M01S05375.282l826 ---|          NJN    DMEX        IF NOT THIS PP
09027  M01S05376.282l826 ---|          STD    CM+2        CLEAR *1MT* INPUT REGISTER ADDRESS
09028  M01S05377.282l826 ---|          LDD    RA
09029  M01S05378.282l826 ---|          SHN    6
09030  M01S05379.282l826 ---|          ADN    /MTX/TMGF
09031  M01S05380.282l826 ---|          CWD    CM
09032  M01S05381.282l826 ---|
09033  M01S05382.282l826 ---| DME      SUBR               ENTRY/EXIT
09034  M01S05383.282l826 ---|          LDD    CF
09035  M01S05384.282l826 ---|          SHN    21-1
09036  M01S05385.282l826 ---|          PJN    DME1        IF MONITORING NOT TO BE INITIATED
09037  M01S05386.282l826 ---|          CALL   TMP         CALL TAPE MONITORING PRESET
09038  M01S05387.282l826 ---|          UJN    DMEX        RETURN
09039  M01S05388.282l826 ---|
09040  M01S05389.282l826 ---|
09041  M01S05390.282l826 ---| OVLA     EQU    *+5         TAPE MONITORING PRESET OVERLAY ORIGIN
09042  M00S05391.1mt     +++|          OVERLAY (CONTROL POINT/CODED PRESET.),(ERLA+5),P,CPP
09043  M00S05392.1mt     +++| PRS      SPACE  4,10
09044  M00S05393.1mt     +++|**        PRS - CONTROL POINT/CODED PRESET.
09045  M00S05394.1mt     +++|*
Line S01943 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt40
Seq #  *Modification Id* Act 
----------------------------+
09046  M02S01943.1mt40   ---|*         USES   BT, FM, HP, CM - CM+4.
Line S00001 Modification History
M01 (Added by) 1mt40
Seq #  *Modification Id* Act 
----------------------------+
09047  M01S00001.1mt40   +++|*         USES   BT, FM, CM - CM+4, T1 - T5.
Line S01944 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09048  M01S01944.274l797 +++|*
09049  M00S05395.1mt     +++|*         CALLS  CCD, UAD.
09050  M00S05396.1mt     +++|
09051  M00S05397.1mt     +++|
09052  M00S05398.1mt     +++| PRS      SUBR               ENTRY/EXIT
09053  M00S05399.1mt     +++|          LDM    //LOV       SAVE ADDRESS TO EXIT AT
09054  M00S05400.1mt     +++|          STM    CPP
09055  M00S05401.1mt     +++|          LDC    PRS1        SET ADDRESS TO EXIT TO
09056  M00S05402.1mt     +++|          STM    //LOV
09057  M00S05403.1mt     +++|          UJN    PRSX        RETURN
09058  M00S05404.1mt     +++|
Line S05405 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09059  M01S05405.274l797 ---| PRS1     LDD    HP          CHECK FOR END OF SET
09060  M01S05406.274l797 ---|          SHN    21-7
Line S01945 Modification History
M01 (Added by) 274l797
M02 (Removed by) 1mt40
Seq #  *Modification Id* Act 
----------------------------+
09061  M02S01945.1mt40   ---| PRS1     LDM    CECB
Line S00002 Modification History
M01 (Added by) 1mt40
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09062  M02S00002.282l826 ---| PRS1     LDM    CPP
09063  M02S00003.282l826 ---|          LMC    //PNRH
09064  M02S00004.282l826 ---|          NJN    PRS1.1      IF NOT CALLED FROM RESIDENT
09065  M02S00005.282l826 ---|          RJM    UAD         GET UNIT FORMAT PARAMETERS
09066  M02S00006.282l826 ---|          ADK    /MTX/UST6
09067  M02S00007.282l826 ---|          CRD    CM
09068  M02S00008.282l826 ---|          ADK    /MTX/UST7-/MTX/UST6
09069  M02S00009.282l826 ---|          CRD    T1
09070  M02S00010.282l826 ---|          LDD    CM+3        INSURE UNIT FORMAT PARAMETERS CORRECT
09071  M02S00011.282l826 ---|          STM    MTSF
09072  M02S00012.282l826 ---|          LDD    CM+4
09073  M02S00013.282l826 ---|          STM    MTSF+1
09074  M02S00014.282l826 ---|          LDD    T1
09075  M02S00015.282l826 ---|          STM    MTSF+2
09076  M02S00016.282l826 ---| PRS1.1   LDM    CECB
Line S01946 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09077  M02S01946.282l826 ---|          LPN    77
09078  M02S01947.282l826 ---|          NJN    PRS2        IF NOT AT MAGNET CP
09079  M02S01948.282l826 ---|          RJM    UAD
09080  M02S01949.282l826 ---|          ADN    /MTX/UFLA
09081  M02S01950.282l826 ---|          CRD    CM
09082  M02S01951.282l826 ---|          LDD    CM
09083  M02S01952.282l826 ---|          SHN    21-4
Line S05407 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09084  M01S05407.282l826 ---|          PJN    PRS2        IF NOT AT END OF SET
Line S05408 Modification History
M01 (Removed by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09085  M02S05408.282l826 ---|          LDC    -200        CLEAR END OF SET FLAG
09086  M02S05409.282l826 ---|          RAD    HP
Line S01953 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09087  M02S01953.282l826 ---|          LCN    20
09088  M02S01954.282l826 ---|          RAD    CM
09089  M02S01955.282l826 ---|          RJM    UAD
09090  M02S01956.282l826 ---|          ADN    /MTX/UFLA
09091  M02S01957.282l826 ---|          CWD    CM          CLEAR END OF SET
Line S05410 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09092  M01S05410.282l826 ---|          LDM    CIOE
09093  M01S05411.282l826 ---|          LPC    774
09094  M01S05412.282l826 ---|          LMC    110
09095  M01S05413.282l826 ---|          ZJN    PRS2        IF POSMF
Line S05414 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09096  M02S05414.282l826 ---|          LDN    /MTX/IOS    ILLEGAL OPERATION AT END OF SET
Line S00156 Modification History
M01 (Added by) v23l617
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09097  M02S00156.282l826 ---|          LDN    /MTX/IOS    INCORRECT OPERATION AT END OF SET
Line S05415 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09098  M01S05415.282l826 ---|          LJM    RET3        RETURN ERROR CODE
09099  M01S05416.282l826 ---|
09100  M01S05417.282l826 ---| PRS2     RJM    CCD         CHECK IF CODED
09101  M01S05418.282l826 ---|          LDM    CECB
09102  M01S05419.282l826 ---|          LPN    77
09103  M01S05420.282l826 ---|          NJN    PRS3        IF NOT AT MAGNET CP
09104  M01S05421.282l826 ---|          RJM    UAD         RESET FORMAT
09105  M01S05422.282l826 ---|          ADN    /MTX/UST4
09106  M01S05423.282l826 ---|          CRD    CM
Line S05424 Modification History
M01 (Removed by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09107  M02S05424.282l826 ---|          LDD    CM+2
Line S00145 Modification History
M01 (Added by) ns22000
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09108  M02S00145.282l826 ---|          LDD    CM+3
09109  M02S00146.282l826 ---|          SHN    -6
Line S05425 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09110  M01S05425.282l826 ---|          STD    FM
09111  M01S05426.282l826 ---| PRS3     LDC    LDNI+1      SET ACTIVITY PROCESSED
Line S00616 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09112  M01S00616.282l826 +++| PRS1     RJM    CCD         CHECK IF CODED
09113  M01S00617.282l826 +++|          LDC    LDNI+1      SET ACTIVITY PROCESSED
09114  M00S05427.1mt     +++|          STM    PNRE
Line S01958 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09115  M01S01958.274l797 +++|          IFEQ   TE,1        IF TRACE ENABLED
09116  M01S01959.274l797 +++|          RJM    TRB         SAVE TRACE INFORMATION IN CM
09117  M01S01960.274l797 +++|          ENDIF
09118  M00S05428.1mt     +++|          LDM    CPP
Line S05429 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09119  M01S05429.282l826 ---|          LMC    PNRH
Line S00618 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09120  M01S00618.282l826 +++|          LMC    PNRI
Line S05430 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09121  M01S05430.274l797 ---|          NJN    CPPX        IF NOT CALLED FROM MAIN PROGRAM
Line S01961 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
09122  M01S01961.274l797 +++|          NJN    CPPX        IF NOT CALLED FROM MAIN PROGRAM
09123  M00S05431.1mt     +++|          LDD    BT          SET ENTRY ADDRESS
09124  M00S05432.1mt     +++|          STM    CPP
09125  M00S05433.1mt     +++|          LDD    SC
09126  M00S05434.1mt     +++|          LPN    20
09127  M00S05435.1mt     +++|          NJN    CPP1        IF CP CHANGE
09128  M00S05436.1mt     +++|          STD    BT          PRESET BLOCKS TRANSFERRED
Line S00147 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
09129  M01S00147.ns22000 +++|*         LJM    //LOVX      RETURN (TO CALLER OF *LOV*)
09130  M00S05437.1mt     +++| CPP      SPACE  4,20
09131  M00S05438.1mt     +++|**        CPP - CONTROL POINT OPERATION PRESET.
09132  M00S05439.1mt     +++|*
09133  M00S05440.1mt     +++|*         ENTRY  (CN) = ADDRESS OF LIST OF INSTRUCTIONS TO MODIFY.
09134  M00S05441.1mt     +++|*                (CN+4) = RELATIVE ADDRESS OF WORD IN FET (IN OR OUT).
09135  M00S05442.1mt     +++|*                THIS WORD WILL BE READ UP AND VALIDATED.
09136  M00S05443.1mt     +++|*
Line S05444 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09137  M01S05444.273l780 ---|*         EXIT   CHANGED TO CORRECT CP. EXITS IMMEDIATELY IF NOT AT
09138  M01S05445.273l780 ---|*                *MAGNET* CP.
Line S00008 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09139  M01S00008.273l780 +++|*         EXIT   CHANGED TO CORRECT CP.
09140  M00S05446.1mt     +++|*                (EI) = 0, ERROR ITERATION PRESET.
09141  M00S05447.1mt     +++|*                (CN - CN+4) = SELECTED FET WORD VALIDATED.  (IF ERROR
09142  M00S05448.1mt     +++|*                            EXITS TO *BAE*.)
09143  M00S05449.1mt     +++|*                (LNUM) = LEVEL NUMBER FOR OPERATION.
09144  M00S05450.1mt     +++|*                (FETO) = FET OPTIONS.
09145  M00S05451.1mt     +++|*                (CIOE) = EXTERNAL CIO CODE.
09146  M00S05452.1mt     +++|*
Line S05453 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09147  M01S05453.273l780 ---|*         USES   T0 - CM+7.
Line S00009 Modification History
M01 (Added by) 273l780
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09148  M02S00009.282l826 ---|*         USES   T1 - T7, CM -  CM+4, CN - CN+4.
Line S00619 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09149  M01S00619.282l826 +++|*         USES   BT, T8, T1 - T7, CM -  CM+4, CN - CN+4.
09150  M00S05454.1mt     +++|*
09151  M00S05455.1mt     +++|*         CALLS  CAL, HNG, INM, SFP, UAD.
09152  M00S05456.1mt     +++|*
09153  M00S05457.1mt     +++|*         MACROS MONITOR.
09154  M00S05458.1mt     +++|
09155  M00S05459.1mt     +++|
09156  M00S05460.1mt     +++|          ENTRY  CPP
09157  M00S05461.1mt     +++|
09158  M00S05462.1mt     +++| CPP      SUBR               ENTRY/EXIT
09159  M00S05463.1mt     +++| CPP1     LDD    CN          SAVE ADDRESS MODIFICATION POINTERS
09160  M00S05464.1mt     +++|          STM    CPPB
09161  M00S05465.1mt     +++|          LDD    CN+4
09162  M00S05466.1mt     +++|          STM    CPPC
09163  M00S05467.1mt     +++|          RJM    UAD         READ UDT FET INFORMATION
09164  M00S05468.1mt     +++|          ADN    /MTX/UCIA   FET ADDRESS
09165  M00S05469.1mt     +++|          CRD    T6-3
09166  M00S05470.1mt     +++|          ADN    /MTX/UCIC-/MTX/UCIA  FIRST, LIMIT, AND FL
09167  M00S05471.1mt     +++|          CRD    T1
Line S05472 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09168  M01S05472.282l826 ---|          ADN    /MTX/UJID-/MTX/UCIC  GET JOB IDENTIFICATION
Line S00620 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09169  M01S00620.282l826 +++|          ADN    /MTX/UVRI-/MTX/UCIC  GET EJT ORDINAL
09170  M00S05473.1mt     +++|          CRD    CN
09171  M00S05474.1mt     +++|          LDN    0           PRESET BLOCKS TRANSFERRED COUNT
09172  M00S05475.1mt     +++|          STD    BT
Line S00010 Modification History
M01 (Added by) 273l780
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09173  M02S00010.282l826 ---|          LDK    CMCL
09174  M02S00011.282l826 ---|          CRD    CM
Line S05476 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09175  M01S05476.282l826 ---|          LDD    CN+2        CHANGE CONTROL POINTS
09176  M01S05477.282l826 ---|          SHN    -7
09177  M01S05478.282l826 ---|          ZJN    CPP2        IF JOB ROLLED OUT
Line S00621 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09178  M01S00621.282l826 +++|          LDD    CN          SAVE EJT ORDINAL
09179  M01S00622.282l826 +++|          STD    T8
09180  M01S00623.282l826 +++|          SFA    EJT         SET EJT ADDRESS
09181  M01S00624.282l826 +++|          ADK    JSNE
09182  M01S00625.282l826 +++|          CRD    CM          GET JOB STATUS
09183  M01S00626.282l826 +++|          ADK    SCHE-JSNE
09184  M01S00627.282l826 +++|          CRD    CN          GET CP NUMBER
09185  M01S00628.282l826 +++|          LDD    CM+4
09186  M01S00629.282l826 +++|          LPC    176
09187  M01S00630.282l826 +++|          LMN    /EJT/EXJS*2
09188  M01S00631.282l826 +++|          NJN    CPP2        IF JOB ROLLED OR ROLLING OUT
09189  M01S00632.282l826 +++|          LDD    CN+3        SET CP NUMBER
09190  M01S00633.282l826 +++|          ADK    /CPS/RCMS+/CPS/ALCS  SET MOVE REJECT AND ALTERNATE CP
Line S05479 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09191  M01S05479.273l780 ---|          LMD    TH          SET REJECT ON MOVE FLAG REQUEST
09192  M00S05480.1mt     +++|          STD    CM+1
Line S05481 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09193  M01S05481.273l780 ---|          MONITOR CCAM
Line S00012 Modification History
M01 (Added by) 273l780
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09194  M02S00012.282l826 ---|          LMD    CM
09195  M02S00013.282l826 ---|          ZJN    CPP2        IF CP MOVING
09196  M02S00014.282l826 ---|          MONITOR CCAM       CHANGE TO USER CP
Line S00634 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09197  M01S00634.282l826 +++|          MONITOR CCAM       SET ACCESS TO USER CP
09198  M00S05482.1mt     +++|          LDD    CM+1
09199  M00S05483.1mt     +++|          NJN    CPP2        IF CHANGE NOT MADE
09200  M00S05484.1mt     +++|          AOM    //CECB      SET CP CHANGED FLAG
Line S05485 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09201  M01S05485.273l780 ---|          LDD    CN+2        SET CP ADDRESS
09202  M01S05486.273l780 ---|          LPC    7600
09203  M01S05487.273l780 ---|          STD    CP
Line S00015 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09204  M01S00015.273l780 +++|          LDD    CP
09205  M00S05488.1mt     +++|          ADN    TFSW        VERIFY JOB EJT ORDINAL
09206  M00S05489.1mt     +++|          CRD    CM
Line S05490 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09207  M01S05490.282l826 ---|          LDD    CN+4
09208  M01S05491.282l826 ---|          LMD    CM
Line S00635 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09209  M01S00635.282l826 +++|          LDD    CM
09210  M01S00636.282l826 +++|          LMD    T8
09211  M00S05492.1mt     +++|          ZJN    CPP3        IF CORRECT JOB
Line S05493 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09212  M01S05493.282l826 ---| CPP2     LDN    /MTX/REQ    REQUEUE WITH DELAY
Line S00637 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
09213  M01S00637.282l826 +++| CPP2     LDN    /MTX/RJB    REQUEUE ON JOB ROLLED OUT
09214  M00S05494.1mt     +++|          LJM    RET5        EXIT
09215  M00S05495.1mt     +++|
Line S05496 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
09216  M01S05496.ns21000 ---| CPP3     LDN    CPUL        READ CPU CONFIGURATION
09217  M01S05497.ns21000 ---|          CRD    CM
09218  M01S05498.ns21000 ---|          LDD    CM+3
09219  M01S05499.ns21000 ---|          SHN    21-10
09220  M01S05500.ns21000 ---|          PJN    CPP4        IF NOT CENTRAL MEMORY EXTENSION
Line S00015 Modification History
M01 (Added by) ns21000
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09221  M02S00015.273l780 ---| CPP3     LDK    MABL        CHECK MAINFRAME TYPE
09222  M02S00016.273l780 ---|          CRD    CM
09223  M02S00017.273l780 ---|          LDD    CM+1
09224  M02S00018.273l780 ---|          SHN    21-13
09225  M02S00019.273l780 ---|          MJN    CPP4        IF NOT CENTRAL MEMORY EXTENSION
Line S05501 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09226  M01S05501.273l780 ---|          AOM    CPPA        FORCE READ OF FLSW+1
09227  M01S05502.273l780 ---| CPP4     LDD    CP          READ CP STATUS
09228  M01S05503.273l780 ---|          ADN    FLSW
09229  M01S05504.273l780 ---|*         ADN    FLSW+1      (CENTRAL MEMORY EXTENSION)
09230  M01S05505.273l780 ---| CPPA     EQU    *-1
09231  M01S05506.273l780 ---|          CRD    CM
09232  M01S05507.273l780 ---|          LRD    CM+1        (R) = REFERENCE ADDRESS
09233  M01S05508.273l780 ---|          LDD    CM+3
09234  M01S05509.273l780 ---|          STD    RA
09235  M01S05510.273l780 ---|          LDD    CM+4
09236  M01S05511.273l780 ---|          STD    FL
Line S00016 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
09237  M01S00016.273l780 +++| CPP3     LDD    FL
09238  M00S05512.1mt     +++|          SBD    T1
09239  M00S05513.1mt     +++|          PJN    CPP6        IF NO FL REDUCTION
09240  M00S05514.1mt     +++|
09241  M00S05515.1mt     +++|*         RECHECK BUFFER PARAMTERS.
09242  M00S05516.1mt     +++|
09243  M00S05517.1mt     +++|          LDD    .FE
09244  M00S05518.1mt     +++|          SHN    6
09245  M00S05519.1mt     +++|          ADD    RA
09246  M00S05520.1mt     +++|          SHN    6
09247  M00S05521.1mt     +++|          ADD    .FE+1
09248  M00S05522.1mt     +++|          ADN    1
09249  M00S05523.1mt     +++|          CRD    CM
09250  M00S05524.1mt     +++|          LDD    CM+3
09251  M00S05525.1mt     +++|          SHN    -6
09252  M00S05526.1mt     +++|          ADD    .FE+1
09253  M00S05527.1mt     +++|          ADN    4
09254  M00S05528.1mt     +++|          SHN    6
09255  M00S05529.1mt     +++|          ADD    .FE
09256  M00S05530.1mt     +++|          SHN    14
09257  M00S05531.1mt     +++|          SHN    -6
09258  M00S05532.1mt     +++|          SBD    FL
09259  M00S05533.1mt     +++|          PJN    CPP5        IF FET LWA .GT FL
09260  M00S05534.1mt     +++|          LDD    .LM
09261  M00S05535.1mt     +++|          SHN    14
09262  M00S05536.1mt     +++|          LMD    .LM+1
09263  M00S05537.1mt     +++|          SBN    1
09264  M00S05538.1mt     +++|          SHN    -6
09265  M00S05539.1mt     +++|          SBD    FL
09266  M00S05540.1mt     +++|          MJN    CPP6        IF LIMIT .LT FL
Line S05541 Modification History
M01 (Removed by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
09267  M01S05541.ns2773  ---| CPP5     LDD    FN
09268  M01S05542.ns2773  ---|          LMN    /MTX/MAB
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/1mt.006.txt ยท Last modified: by 127.0.0.1