Seq # *Modification Id* Act
----------------------------+
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
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
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
09269 M01S05543.ns2773 ---| ZJN CPP6 IF MESSAGE ISSUE
09270 M01S05544.ns2773 ---| LDN /MTX/BAE BUFFER ARGUMENT ERROR
| Line S00001 Modification History |
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act
----------------------------+
09271 M01S00001.ns2773 +++| CPP5 LDN /MTX/BAE BUFFER ARGUMENT ERROR
09272 M00S05545.1mt +++| LJM RET3 RETURN ERROR CODE
09273 M00S05546.1mt +++|
09274 M00S05547.1mt +++| CPP6 RJM CAL CALCULATE PARAMETERS
09275 M00S05548.1mt +++| LDC * MODIFY INSTRUCTIONS
09276 M00S05549.1mt +++| CPPB EQU *-1
09277 M00S05550.1mt +++| RJM INM
09278 M00S05551.1mt +++| LDC *
09279 M00S05552.1mt +++| CPPC EQU *-1
09280 M00S05553.1mt +++| ZJN CPP7 IF NO FET POINTER CHECK
09281 M00S05554.1mt +++| RJM SFP SET FET POINTER
09282 M00S05555.1mt +++| NJN CPP5 IF BAD FET POINTER
09283 M00S05556.1mt +++| CPP7 LDD WC
09284 M00S05557.1mt +++| ADC -1001
| Line S05558 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09285 M01S05558.v23l617 ---| PJN CPP8 IF ILLEGAL WORD COUNT
| Line S00157 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09286 M01S00157.v23l617 +++| PJN CPP8 IF INCORRECT WORD COUNT
09287 M00S05559.1mt +++| LJM CPPX RETURN
09288 M00S05560.1mt +++|
09289 M00S05561.1mt +++| CPP8 RJM HNG HANG PP
09290 M00S05562.1mt +++| TITLE SUBROUTINES.
| Line S05563 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09291 M01S05563.274l797 ---| CAL SPACE 4,10
| Line S01962 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09292 M01S01962.274l797 +++| CAL SPACE 4,15
09293 M00S05564.1mt +++|** CAL - CALCULATE PARAMETERS.
09294 M00S05565.1mt +++|*
09295 M00S05566.1mt +++|* ENTRY (T1 - T5) = UCIC FROM UDT.
| Line S05567 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09296 M01S05567.274l797 ---|* (T6 - T7) = FET ADDRESS.
| Line S01963 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09297 M01S01963.274l797 +++|* (.FT - .FT+1) = FIRST.
09298 M01S01964.274l797 +++|* (.LM - .LM+1) = LIMIT.
09299 M01S01965.274l797 +++|* (.FE - .FE+1) = FET ADDRESS.
09300 M00S05568.1mt +++|*
| Line S05569 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09301 M01S05569.274l797 ---|* EXIT (T2 - CM+3) = VALUES NEEDED FOR ADDRESS RELOCATION.
09302 M01S05570.274l797 ---|* SEE MACRO DEFINTIONS.
| Line S01966 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09303 M01S01966.274l797 +++|* EXIT (.FT - .FT+1) = FIRST.
09304 M01S01967.274l797 +++|* (.LM - .LM+1) = LIMIT.
09305 M01S01968.274l797 +++|* (.FE - .FE+1) = FET ADDRESS.
09306 M01S01969.274l797 +++|* (.LF - .LF+1) = LIMIT - FIRST.
09307 M01S01970.274l797 +++|* (.BS - .BS+1) = BLOCK SIZE.
09308 M01S01971.274l797 +++|* (BUFC - BUFC+4) = PRESET IF CONTROL WORD READ AND NOT
09309 M01S01972.274l797 +++|* *LI* FORMAT.
| Line S05571 Modification History |
M01 (Removed by) | 1mt47 |
Seq # *Modification Id* Act
----------------------------+
09310 M01S05571.1mt47 ---|* (BUF - BUFC+4) = PRESET IF CONTROL WORD READ.
| Line S01973 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09311 M01S01973.274l797 +++|*
09312 M01S01974.274l797 +++|* USES T1, .BS - .BS+1, .LF - .LF+1.
09313 M00S05572.1mt +++|
09314 M00S05573.1mt +++|
09315 M00S05574.1mt +++| CAL SUBR ENTRY/EXIT
| Line S05575 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09316 M01S05575.274l797 ---| LDD T1+3 LIMIT - FIRST
09317 M01S05576.274l797 ---| SBD T1+1
| Line S01975 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09318 M01S01975.274l797 +++| LDD .LM LIMIT - FIRST
09319 M01S01976.274l797 +++| SBD .FT
09320 M00S05577.1mt +++| SHN 14
| Line S05578 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09321 M01S05578.274l797 ---| ADD T1+4
09322 M01S05579.274l797 ---| SBD T1+2
09323 M01S05580.274l797 ---| STD CM+1
| Line S01977 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09324 M01S01977.274l797 +++| ADD .LM+1
09325 M01S01978.274l797 +++| SBD .FT+1
09326 M01S01979.274l797 +++| STD .LF+1
09327 M00S05581.1mt +++| SHN -14
| Line S05582 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09328 M01S05582.274l797 ---| STD CM
| Line S01980 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09329 M01S01980.274l797 +++| STD .LF
09330 M00S05583.1mt +++| LDD MD SET MAXIMUM BLOCK SIZE
09331 M00S05584.1mt +++| SHN -4
09332 M00S05585.1mt +++| LPN 3
09333 M00S05586.1mt +++| ADD WC
| Line S05587 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09334 M01S05587.274l797 ---| STD CM+3
| Line S01981 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09335 M01S01981.274l797 +++| STD .BS+1
09336 M00S05588.1mt +++| LDN 0
| Line S05589 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09337 M01S05589.274l797 ---| STD CM+2
| Line S01982 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09338 M01S01982.274l797 +++| STD .BS
09339 M00S05590.1mt +++| LDD OV BLOCK SIZE = WC + OV*LBWD + CONTROL WORDS
09340 M00S05591.1mt +++| ZJN CAL2 IF NOT LONG BLOCK OPERATION
09341 M00S05592.1mt +++| STD T0
09342 M00S05593.1mt +++| CAL1 LDC /MTX/LBWD
| Line S05594 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09343 M01S05594.274l797 ---| RAD CM+3
| Line S01983 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09344 M01S01983.274l797 +++| RAD .BS+1
09345 M00S05595.1mt +++| SHN -14
| Line S05596 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09346 M01S05596.274l797 ---| RAD CM+2
| Line S01984 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09347 M01S01984.274l797 +++| RAD .BS
09348 M00S05597.1mt +++| SOD T0
09349 M00S05598.1mt +++| NJN CAL1 IF OVERFLOW COUNT NOT EXHAUSTED
09350 M00S05599.1mt +++| CAL2 LDD MD
09351 M00S05600.1mt +++| SHN -4
09352 M00S05601.1mt +++| LPN 3
09353 M00S05602.1mt +++| STD T1
09354 M00S05603.1mt +++| ZJN CAL4 IF NOT CONTROL WORD OPERATION
09355 M00S05604.1mt +++| LDD FN
09356 M00S05605.1mt +++| LMN /MTX/RDF
09357 M00S05606.1mt +++| NJN CAL4 IF NOT READ NORMAL BLOCK
09358 M01S01985.274l797 +++| LDD FM
| Line S00638 Modification History |
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act
----------------------------+
09359 M01S00638.282l826 +++| SHN -6
| Line S01986 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09360 M01S01986.274l797 +++| LMN /MTX/TFLI
09361 M01S01987.274l797 +++| ZJN CAL4 IF LI FORMAT
09362 M00S05607.1mt +++| LDN ZERL
09363 M00S05608.1mt +++| CRM BUFC,ON PRESET CONTROL WORD
09364 M00S05609.1mt +++| LDD T1
09365 M00S05610.1mt +++| LPN 2
09366 M00S05611.1mt +++| ZJN CAL3 IF NOT 200 READ CODE
09367 M00S05612.1mt +++| LDD MD SET PARITY INDICATION
09368 M00S05613.1mt +++| LPC 100
09369 M00S05614.1mt +++| STM BUFC
| Line S05615 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09370 M01S05615.274l797 ---| LDD CM+2 SET BLOCK SIZE
| Line S01988 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09371 M01S01988.274l797 +++| LDD .BS SET BLOCK SIZE
09372 M00S05616.1mt +++| SHN 14
| Line S05617 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09373 M01S05617.274l797 ---| LMD CM+3
| Line S01989 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
09374 M01S01989.274l797 +++| LMD .BS+1