User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:mtr

Deck MTR

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.mtr     +++|          IDENT  MTR,0
00002  M00S00002.mtr     +++|          PERIPH J
00003  M00S00003.mtr     +++|          BASE   MIXED
Line S00004 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.271l716 ---|          SST    FTN,IA,MA,PPR,TH,.EST
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00001.271l750 ---|          SST    FTN,IA,PPR,TH,.EST
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.271l750 +++|          SST    FTN,IA,PPR,TH,.EST,SSCP
00007  M00S00005.mtr     +++|*COMMENT  MTR - PPU MONITOR.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00006.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP.  1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M00S00007.mtr     +++|          TITLE  MTR - PP MONITOR.
00011  M00S00008.mtr     +++|          SPACE  4
00012  M00S00009.mtr     +++|***       MTR - PP MONITOR.
00013  M00S00010.mtr     +++|*         G. R. MANSFIELD.   70/12/13.
00014  M00S00011.mtr     +++|*         R. E. TATE.        76/11/10.
00015  M00S00012.mtr     +++|          SPACE  4
00016  M00S00013.mtr     +++|***              *MTR* IS LOADED INTO PP 0 AT DEAD START TIME AND
00017  M00S00014.mtr     +++|*         REMAINS THERE FOR THE DURATION OF SYSTEM EXECUTION.
00018  M00S00015.mtr     +++|*
00019  M00S00016.mtr     +++|*                *MTR* PERFORMS THE FOLLOWING FUNCTIONS.
00020  M00S00017.mtr     +++|*         1.  PROCESS CERTAIN PPU REQUESTS.
00021  M00S00018.mtr     +++|*         2.  ALLOCATION OF CENTRAL MEMORY.
00022  M00S00019.mtr     +++|*         3.  MAINTAIN TIME OF DAY AND DATE.
00023  M00S00020.mtr     +++|*         4.  MAINTAIN THE REAL TIME CLOCK.
00024  M00S00021.mtr     +++|*         5.  CHECK THE CONTENTS OF (RA+1) OF ACTIVE CENTRAL
00025  M00S00022.mtr     +++|*                PROGRAMS FOR SYSTEM REQUESTS.
00026  M00S00023.mtr     +++|*
00027  M00S00024.mtr     +++|*         *MTR* INPUT REGISTER.
00028  M00S00025.mtr     +++|*
Line S00026 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00026.273l780 ---|*T, IR    18/ *MTR*,6/ CP,36/0
Figure IR

02903035364142590 CP *MTR*


Line S00001 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00001.273l780 +++|*T, IR    18/ *MTR*,6/ SC,36/0
Figure IR

02903035364142590 SC *MTR*

00031  M00S00027.mtr     +++|*
Line S00028 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00028.273l780 ---|*         CP     CONTROL POINT FOR MONITOR FUNCTION BEING PERFORMED.
Line S00002 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00002.273l780 +++|*         SC     SYSTEM CONTROL POINT NUMBER.
00034  M00S00029.mtr     +++|*
00035  M00S00030.mtr     +++|*         *MTR* MAINTAINS THE FOLLOWING DATA IN THE
00036  M00S00031.mtr     +++|*         STATISTICAL DATA AREA.
00037  M00S00032.mtr     +++|*
00038  M00S00033.mtr     +++|*T, MTRS  12/0,12/ CLOCK,12/ MXN,12/ WCT,12/ CCT
Figure MTRS

01112232429 CCT WCT MXN303536474859 MXN CLOCK0

00039  M00S00034.mtr     +++|*
00040  M00S00035.mtr     +++|*         CLOCK  COUNT OF TIMES *TIM* CALLED AND CLOCK UPDATE MISSED.
00041  M00S00036.mtr     +++|*         MXN    WORST CASE TIME TO DO AN MXN.  (MICRO SECONDS)
00042  M00S00037.mtr     +++|*         WCT    WORST CASE CYCLE TIME.  (MILLISECONDS)
00043  M00S00038.mtr     +++|*         CCT    CURRENT CYCLE TIME.  (MILLISECONDS)
00044  M00S00039.mtr     +++|          SPACE  4
00045  M00S00040.mtr     +++|*CALL     COMPMAC
Line S00001 Modification History
M01 (Added by) mtr54
Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00001.mtr54   +++|*CALL     COMPIOU
00047  M00S00041.mtr     +++|*CALL     COMSCPS
00048  M00S00042.mtr     +++|*CALL     COMSMSC
00049  M00S00043.mtr     +++|          QUAL   DSL
00050  M00S00044.mtr     +++|*CALL     COMSDSL
00051  M00S00045.mtr     +++|          QUAL   *
Line S00001 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00001.ns2418  +++|*CALL     COMSDFT
Line S00001 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00001.243l647 +++|*CALL     COMSDST
Line S00002 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00002.271l750 +++|*CALL     COMSIOU
00055  M00S00046.mtr     +++|*CALL     COMSJCE
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00056  M01S00002.271l716 +++|          LIST   X
00057  M00S00047.mtr     +++|*CALL     COMSMTR
Line S00003 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00003.271l716 +++|          LIST   *
00059  M00S00048.mtr     +++|*CALL     COMSMST
00060  M00S00049.mtr     +++|*CALL     COMSPIM
Line S00004 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00004.271l716 +++|*CALL     COMSPRD
00062  M00S00050.mtr     +++|          QUAL   REM
00063  M00S00051.mtr     +++|*CALL     COMSREM
Line S00052 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00052.271l716 ---|          QUAL
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00005.271l716 +++|          QUAL   *
00066  M00S00053.mtr     +++|*CALL     COMSSSD
00067  M00S00054.mtr     +++|          QUAL   MSP
00068  M00S00055.mtr     +++|*CALL     COMSMSP
Line S00056 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00056.271l716 ---|          QUAL
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00006.271l716 +++|          QUAL   *
00071  M00S00057.mtr     +++|*CALL     COMSSCR
00072  M00S00058.mtr     +++|          QUAL   IOU
00073  M00S00059.mtr     +++|*CALL     COMSIOU
00074  M00S00060.mtr     +++|          QUAL   *
00075  M00S00061.mtr     +++|          SPACE  4
00076  M00S00062.mtr     +++|****      DIRECT LOCATION ASSIGNENTS.
00077  M00S00063.mtr     +++|
00078  M00S00064.mtr     +++|
00079  M00S00065.mtr     +++|          ORG    0
00080  M00S00066.mtr     +++|
00081  M00S00067.mtr     +++| T0       CON    PRS-1       TEMPORARY STORAGE
Line S00068 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00068.271l716 ---| T1       CON    0
Line S00069 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00069.271l716 ---| T2       CON    20D*10B     SET FOR PRS
Line S00001 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
M03 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00084  M03S00001.271l716 ---| JD       EQU    T1 - T1+4   JULIAN DATE
Line S00001 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00001.271l716 ---| PD       EQU    T1 - T1+4   PACKED DATE AND TIME (*PDTL*)
Line S00007 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00007.271l716 +++|
00087  M01S00008.271l716 +++| PD       EQU    T0 - T0+4   PACKED DATE AND TIME (*PDTL*)
00088  M01S00009.271l716 +++|
00089  M01S00010.271l716 +++| T1       CON    0
Line S00002 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00002.251l664 +++| T2       CON    0
00091  M00S00070.mtr     +++| T3       CON    0
00092  M00S00071.mtr     +++| T4       CON    0
00093  M00S00072.mtr     +++| T5       CON    0
00094  M00S00073.mtr     +++| T6       CON    0
Line S00003 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00003.253l688 ---| PD       EQU    JD+5 - JD+11  PACKED DATE AND TIME
Line S00002 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00002.271l716 ---| TI       EQU    PD+5 - PD+11  DISPLAY CODE TIME (*TIML*)
00097  M00S00074.mtr     +++| T7       CON    0
00098  M00S00075.mtr     +++|
00099  M00S00076.mtr     +++|
00100  M00S00077.mtr     +++| CM       VFD    60/0        CM WORD BUFFER
Line S00004 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00004.253l688 ---| TI       EQU    JD+12 - JD+16  TIME
Line S00078 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00078.253l688 ---|
Line S00079 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00079.271l716 ---| T8       CON    TRELL-2     TEMPORARY STORAGE - SET FOR PRS
Line S00080 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00080.271l716 ---| T9       CON    0           TEMPORARY STORAGE
00105  M02S00081.271l716 ---|          CON    0           TEMPORARY STORAGE
Line S00005 Modification History
M01 (Added by) 251l664
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00005.271l716 ---|          CON    0           (TEMPORARY - USED BY DATE/TIME AND *DSWM*)
00107  M02S00006.271l716 ---|          CON    0           (TEMPORARY - USED BY DATE/TIME AND *DSWM*)
Line S00011 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00108  M01S00011.271l716 +++| TI       EQU    CM - CM+4   DISPLAY CODE TIME (*TIML*)
00109  M01S00012.271l716 +++|
Line S00013 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00013.273l780 ---| T8       CON    TRELL-2     TEMPORARY STORAGE - SET FOR *PRS*
Line S00003 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00003.273l780 +++| T8       CON    0           TEMPORARY STORAGE
Line S00014 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00014.271l716 +++| MB       CON    0,0         MEMORY BLOCKS - TEMPORARY
00113  M00S00082.mtr     +++|
00114  M00S00083.mtr     +++|
00115  M00S00084.mtr     +++| CN       VFD    60/0        CM WORD BUFFER
Line S00007 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00007.253l688 ---| DT       EQU    JD+17 - JD+23  DATE
Line S00085 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00117  M01S00085.253l688 ---|
00118  M00S00086.mtr     +++| LS       CON    7777        LATEST SECOND COUNT
Line S00087 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00087.271l716 ---|
00120  M01S00088.271l716 ---| LO       CON    0           LAST EST ORDINAL + 1
00121  M01S00089.271l716 ---|
00122  M01S00090.271l716 ---| MA       CON    MABL        *MABL* POINTER
Line S00015 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00123  M01S00015.271l716 +++| BA       CON    0           BYTE ADDRESS
00124  M01S00016.271l716 +++| PA       CON    0           PARAMETER ADDRESS
00125  M00S00091.mtr     +++|
00126  M00S00092.mtr     +++|
00127  M00S00093.mtr     +++| CS       VFD    60/0        CONTROL POINT STATUS WORD
00128  M00S00094.mtr     +++|
00129  M00S00095.mtr     +++| RC       CON    RQRL        RECALL STACK POINTER
00130  M00S00096.mtr     +++| RQ       CON    RQRL        *RQRL* POINTER
Line S00097 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00097.251l664 ---| CF       CON    0           CHANNEL TABLE WRITE FLAG
Line S00008 Modification History
M01 (Added by) 251l664
M02 (Removed by) ns2492
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00008.ns2492  ---| CF       CON    0           CHANNEL TABLE WRITE FLAG
Line S00001 Modification History
M01 (Added by) ns2492
Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00001.ns2492  +++| CF       CON    1           CHANNEL TABLE WRITE FLAG
00134  M00S00098.mtr     +++|
00135  M00S00099.mtr     +++|
00136  M00S00100.mtr     +++| MM       BSS    0           MEMORY MANAGEMENT
Line S00101 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00101.271l716 ---|          CON    7777        CONTROL POINT MOVING
00138  M01S00102.271l716 ---|          CON    0           MOVE INCREMENT
00139  M01S00103.271l716 ---|          CON    0           LOWER MOVE CONTROL POINT
00140  M01S00104.271l716 ---|          CON    0           CONTROL POINT REQUESTING MOVE
00141  M01S00105.271l716 ---|          CON    0           PP REQUESTING MOVE
Line S00017 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00142  M01S00017.271l716 +++| MM.0     CON    7777        CONTROL POINT MOVING
00143  M01S00018.271l716 +++| MM.1     CON    0           MOVE INCREMENT
00144  M01S00019.271l716 +++| MM.2     CON    0           LOWER MOVE CONTROL POINT
00145  M01S00020.271l716 +++| MM.3     CON    0           CONTROL POINT REQUESTING MOVE
00146  M01S00021.271l716 +++| MM.4     CON    0           PP REQUESTING MOVE
00147  M00S00106.mtr     +++|
Line S00107 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00107.251l664 ---| NP       CON    20D         NUMBER OF PPUS
Line S00009 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00009.251l664 +++| NP       CON    0           NUMBER OF PPS
00150  M00S00108.mtr     +++| NC       CON    0           NUMBER OF CONTROL POINTS
00151  M00S00109.mtr     +++|
00152  M00S00110.mtr     +++|
00153  M00S00111.mtr     +++| TM       BSS    0           REAL TIME CLOCK
00154  M00S00112.mtr     +++|          VFD    24/0        SECONDS
00155  M00S00113.mtr     +++|          VFD    36/0        MILLISECONDS
00156  M00S00114.mtr     +++|
00157  M00S00115.mtr     +++| MS       CON    0           LAST MICROSECOND COUNT
00158  M00S00116.mtr     +++| ST       CON    1000D       SECOND TIMER
00159  M00S00117.mtr     +++|
00160  M00S00118.mtr     +++| FT       CON    4000        CONSTANT 4000
00161  M00S00119.mtr     +++| SC       CON    SCRL        *SCRL* POINTER
00162  M00S00120.mtr     +++|
00163  M00S00121.mtr     +++|
00164  M00S00122.mtr     +++| OR       VFD    60/0        PP OUTPUT REGISTER
00165  M00S00123.mtr     +++|
00166  M00S00124.mtr     +++| OF       CON    0           ADDRESS OF FIRST PP OUTPUT REGISTER
Line S00125 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00125.251l664 ---| CT       CON    CTALL       WORD COUNT OF CHANNEL TABLE
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00010.251l664 +++| PP       CON    0           CURRENT PP NUMBER
00169  M00S00126.mtr     +++| PR       CON    0           PRIORITY SEEK REQUEST PP
00170  M00S00127.mtr     +++| ON       CON    1           CONSTANT 1
00171  M00S00128.mtr     +++| HN       CON    100         CONSTANT 100
00172  M00S00129.mtr     +++| FR       CON    4           CONSTANT FOUR
00173  M00S00130.mtr     +++| TR       CON    3           CONSTANT 3
Line S00131 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00131.271l716 ---| CP       CON    0           CONTROL POINT ADDRESS
Line S00022 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00022.271l716 +++| CP       CON    0           CONTROL POINT NUMBER
00176  M00S00132.mtr     +++| CY       CON    0           START OF CURRENT CYCLE
00177  M00S00133.mtr     +++| OA       CON    0           CURRENT OUTPUT REGISTER ADDRESS
00178  M00S00134.mtr     +++|
00179  M00S00135.mtr     +++| ZR       VFD    60/0        CM ZERO WORD (5 LOCATIONS)
00180  M00S00136.mtr     +++|
00181  M00S00137.mtr     +++|
00182  M00S00138.mtr     +++|
00183  M00S00139.mtr     +++|
00184  M00S00140.mtr     +++|*         ASSEMBLY CONSTANTS.
00185  M00S00141.mtr     +++|
00186  M00S00142.mtr     +++|
00187  M00S00143.mtr     +++| MLSC     EQU    1000D       MICROSECONDS/MILLISECOND
00188  M00S00144.mtr     +++| CH       EQU    CHSC        S/C REGISTER CHANNEL
00189  M00S00145.mtr     +++| MR       EQU    CHMR        CYBER 170-8X5 MAINTENANCE CHANNEL
Line S00146 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00146.251l664 ---| JD       EQU    T1 - T5     JULIAN DATE
00191  M01S00147.251l664 ---| PD       EQU    T6 - T6+4   PACKED DATE AND TIME
00192  M01S00148.251l664 ---| TI       EQU    13 - 17     TIME
00193  M01S00149.251l664 ---| DT       EQU    CN - CN+4   DATE
00194  M00S00150.mtr     +++| MXRC     EQU    3           MAXIMUM RECALL REQUESTS PER LOOP
Line S00023 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00023.271l716 +++| MBCS     EQU    6           MEMORY BLOCK CONVERSION SHIFT COUNT
00196  M00S00151.mtr     +++|
00197  M00S00152.mtr     +++|
00198  M00S00153.mtr     +++|****
Line S00154 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00154.273l780 ---|          SPACE  4
00200  M01S00155.273l780 ---|**        MESSAGE BUFFER INDICES OF RELOCATION ADDRESSES.
00201  M01S00156.273l780 ---|
00202  M01S00157.273l780 ---|
00203  M01S00158.273l780 ---| CX       EQU    0           EXCHANGE REQUEST WORDS
00204  M01S00159.273l780 ---| XP       EQU    1           EXCHANGE PACKAGE ADDRESS
00205  M01S00160.273l780 ---| TL       EQU    2           *TLDA* ADDRESS
00206  M00S00161.mtr     +++|          TITLE  MACRO DEFINITIONS.
00207  M00S00162.mtr     +++| PPR      SPACE  4
00208  M00S00163.mtr     +++| MSTA     SPACE  4,20
00209  M00S00164.mtr     +++|**        MSTA - GENERATE MST ADDRESS.
00210  M00S00165.mtr     +++|*
00211  M00S00166.mtr     +++|*         THIS MACRO IS TO BE USED FOR ALL MST ADDRESSES IN ORDER TO
00212  M00S00167.mtr     +++|*         ALLOW FOR EST EXPANSION.
00213  M00S00168.mtr     +++|*
00214  M00S00169.mtr     +++|*         MSTA   WORD,PP,DC,EO
00215  M00S00170.mtr     +++|*         ENTRY  WORD = MST WORD DESIRED.
00216  M00S00171.mtr     +++|*                PP = PP NUMBER USED TO ACCESS PP TABLE OF MST
00217  M00S00172.mtr     +++|*                ADDRESSES (*TPMS*).
00218  M00S00173.mtr     +++|*                DC = 5 BYTES OF SCRATCH DIRECT CELLS.
00219  M00S00174.mtr     +++|*                EO = IF SUPPLIED, (A) = EST ORDINAL.
00220  M00S00175.mtr     +++|*
00221  M00S00176.mtr     +++|*         EXIT   (A) = CM ADDRESS IF *WORD* SUPPLIED.
00222  M00S00177.mtr     +++|*                (DC - DC+4) = *EQDE* WORD OF EST ENTRY IF *DC* IS
00223  M00S00178.mtr     +++|*                              SUPPLIED.
00224  M00S00179.mtr     +++|*
00225  M00S00180.mtr     +++|*         IF *DC* IS SUPPLIED MST ADDRESS IS OBTAINED FROM THE
00226  M00S00181.mtr     +++|*         EST, AND IF *PP* IS SUPPLIED, IT IS STORED INTO *TPMS*.
00227  M00S00182.mtr     +++|*         IF *DC* IS NOT SUPPLIED, THE MST ADDRESS IS OBTAINED FROM
00228  M00S00183.mtr     +++|*         *TPMS*.  IF *WORD* IS NOT SUPPLIED THE CM ADDRESS IS NOT
00229  M00S00184.mtr     +++|*         RETURNED.
00230  M00S00185.mtr     +++|
00231  M00S00186.mtr     +++|
00232  M00S00187.mtr     +++| MSTA     MACRO  WORD,PP,DC,EO
00233  M00S00188.mtr     +++|          MACREF MSTA
00234  M00S00189.mtr     +++| .M1      IFC    NE,*DC**
00235  M00S00190.mtr     +++|          IFC    EQ,*EO**,1
00236  M00S00191.mtr     +++|          LDD    T5
00237  M00S00192.mtr     +++|          SFA    EST
00238  M00S00193.mtr     +++|          ADK    EQDE
00239  M00S00194.mtr     +++|          CRD    DC
00240  M00S00195.mtr     +++|          LDD    DC+4
00241  M00S00196.mtr     +++|          IFC    NE,*PP**,1
00242  M00S00197.mtr     +++|          STM    TPMS,PP
00243  M00S00198.mtr     +++| .M1      ELSE
00244  M00S00199.mtr     +++|          LDM    TPMS,PP
00245  M00S00200.mtr     +++| .M1      ENDIF
00246  M00S00201.mtr     +++|          IFC    NE,*WORD**,2
00247  M00S00202.mtr     +++|          SHN    3
00248  M00S00203.mtr     +++|          ADN    WORD
00249  M00S00204.mtr     +++|          ENDM
00250  M00S00205.mtr     +++| NSDJ     SPACE  4,10
00251  M00S00206.mtr     +++|**        NSDJ - NO SHARED DEVICES JUMP.
00252  M00S00207.mtr     +++|*
00253  M00S00208.mtr     +++|*         THE INSTRUCTION FOLLOWING THIS MACRO IS REPLACED BY A *UJN*
00254  M00S00209.mtr     +++|*         IF THERE ARE NO SHARED DEVICES IN THE SYSTEM.
00255  M00S00210.mtr     +++|*
00256  M00S00211.mtr     +++|*         NSDJ   ADDR
00257  M00S00212.mtr     +++|*         ENTRY  ADDR = ADDRESS TO JUMP TO.
00258  M00S00213.mtr     +++|
00259  M00S00214.mtr     +++|
00260  M00S00215.mtr     +++| NSDJ     MACRO  A
00261  M00S00216.mtr     +++|          LOCAL  AA
00262  M00S00217.mtr     +++|          MACREF NSDJ
00263  M00S00218.mtr     +++| AA       EQU    *
00264  M00S00219.mtr     +++| NSDJ     RMT
00265  M00S00220.mtr     +++|          CON    AA
00266  M00S00221.mtr     +++|          LOC    AA
00267  M00S00222.mtr     +++|          UJN    A
00268  M00S00223.mtr     +++|          LOC    *O
00269  M00S00224.mtr     +++| NSDJ     RMT
00270  M00S00225.mtr     +++|          ENDM
00271  M00S00226.mtr     +++| N8SJ     SPACE  4,10
00272  M00S00227.mtr     +++|**        N8SJ - NO ISD SUBSYSTEM JUMP.
00273  M00S00228.mtr     +++|*
00274  M00S00229.mtr     +++|*         THE INSTRUCTION FOLLOWING THIS MACRO IS REPLACED BY A *UJN*
00275  M00S00230.mtr     +++|*         IF THERE IS NO ISD SUBSYSTEM PRESENT.
00276  M00S00231.mtr     +++|*
00277  M00S00232.mtr     +++|*         N8SJ   ADDR
00278  M00S00233.mtr     +++|*         ENTRY  ADDR = ADDRESS TO JUMP TO.
00279  M00S00234.mtr     +++|
00280  M00S00235.mtr     +++|
00281  M00S00236.mtr     +++| N8SJ     MACRO  A
00282  M00S00237.mtr     +++|          LOCAL  AA
00283  M00S00238.mtr     +++|          MACREF N8SJ
00284  M00S00239.mtr     +++| AA       EQU    *
00285  M00S00240.mtr     +++| N8SJ     RMT
00286  M00S00241.mtr     +++|          CON    AA
00287  M00S00242.mtr     +++|          LOC    AA
00288  M00S00243.mtr     +++|          UJN    A
00289  M00S00244.mtr     +++|          LOC    *O
00290  M00S00245.mtr     +++| N8SJ     RMT
00291  M00S00246.mtr     +++|          ENDM
00292  M00S00247.mtr     +++| PPR      SPACE  4,10
00293  M00S00248.mtr     +++|**        PPR - SET PP REQUEST PROCESSOR.
00294  M00S00249.mtr     +++|*
00295  M00S00250.mtr     +++|*         PPR    FCN,PRC
00296  M00S00251.mtr     +++|*         ENTRY  *FCN* = FUNCTION NUMBER.
00297  M00S00252.mtr     +++|*                IF *PRC* IS SPECIFIED, *.PRC* IS ADDRESS OF PROCESSOR.
00298  M00S00253.mtr     +++|*                OTHERWISE, *.FCN* IS ADDRESS OF PROCESSOR.
00299  M00S00254.mtr     +++|
00300  M00S00255.mtr     +++|
00301  M00S00256.mtr     +++| PPR      MACRO  FCN,PRC
00302  M00S00257.mtr     +++|          LOCAL  J,K
00303  M00S00258.mtr     +++|          MACREF PPR
00304  M00S00259.mtr     +++| J        OCTMIC FCN
00305  M00S00260.mtr     +++|          IFC    EQ,$PRC$$
00306  M00S00261.mtr     +++| K        MICRO  1,3, FCN
00307  M00S00262.mtr     +++| K        MICRO  1,4,*."K"*
00308  M00S00263.mtr     +++| "K"      CON    FCN
00309  M00S00264.mtr     +++|          ORG    *-1
00310  M00S00265.mtr     +++|          ELSE   1
00311  M00S00266.mtr     +++| K        MICRO  1,, PRC
00312  M00S00267.mtr     +++| PPR      RMT
00313  M00S00268.mtr     +++|          ORG    TPPR+FCN
00314  M00S00269.mtr     +++|          CON    "K"
00315  M00S00270.mtr     +++| PPR      RMT
00316  M00S00271.mtr     +++|          ENDM
00317  M00S00272.mtr     +++| SUBFUN   SPACE  4,10
00318  M00S00273.mtr     +++|**        SUBFUN - SET SUBFUNCTION PROCESSOR.
00319  M00S00274.mtr     +++|*
00320  M00S00275.mtr     +++|*SFA      SUBFUN FNC,SFN
00321  M00S00276.mtr     +++|*         ENTRY  SFA = SUBFUNCTION PROCESSOR ENTRY NAME.
00322  M00S00277.mtr     +++|*                FNC = FUNCTION NAME.
00323  M00S00278.mtr     +++|*                SFN = SUBFUNCTION NAME.
00324  M00S00279.mtr     +++|*
00325  M00S00280.mtr     +++|*         THIS MACRO BUILDS A TABLE OF SUBFUNCTION PROCESSORS.
00326  M00S00281.mtr     +++|*         THE TABLE IS NAMED T*FNC*, AND EACH ENTRY IS THE
00327  M00S00282.mtr     +++|*         ADDRESS OF THE PROCESSOR FOR THE SUBFUNCTION.
00328  M00S00283.mtr     +++|
00329  M00S00284.mtr     +++|
00330  M00S00285.mtr     +++|          MACRO  SUBFUN,SFA,FNC,SFN
Line S00001 Modification History
M01 (Added by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00001.ns2726  +++|          MACREF SUBFUN
00332  M00S00286.mtr     +++| SFA  BSS    0
00333  M00S00287.mtr     +++|          IRP    SFN
00334  M00S00288.mtr     +++| T_FNC    RMT
00335  M00S00289.mtr     +++|          ORG    T_FNC+SFN
00336  M00S00290.mtr     +++|          CON    SFA
00337  M00S00291.mtr     +++| T_FNC    RMT
00338  M00S00292.mtr     +++|          IRP
00339  M00S00293.mtr     +++|          ENDM
Line S00294 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00294.273l780 ---| TLDC     SPACE  4,15
00341  M01S00295.273l780 ---|**        TLDC - RELOCATE ADDRESS FOR LDC.
00342  M01S00296.273l780 ---|*
00343  M01S00297.273l780 ---|*         TLDC   C,R,D
00344  M01S00298.273l780 ---|*         ENTRY  C = CONSTANT TO ADD TO RELOCATION ADDRESS.
00345  M01S00299.273l780 ---|*                R = INDEX INTO MESSAGE BUFFER WHERE RELOCATION
00346  M01S00300.273l780 ---|*                    ADDRESS IS FOUND.
00347  M01S00301.273l780 ---|*                D = IF DEFINED, *C* IS A DIRECT CELL CONTAINING VALUE
00348  M01S00302.273l780 ---|*                    TO ADD TO RELOCATION ADDRESS.
00349  M01S00303.273l780 ---|
00350  M01S00304.273l780 ---|
00351  M01S00305.273l780 ---| TLDC     MACRO  C,R,D
00352  M01S00306.273l780 ---|          LOCAL  A
00353  M01S00307.273l780 ---|          MACREF TLDC
00354  M01S00308.273l780 ---|          IFC    EQ,$D$$
00355  M01S00309.273l780 ---| A        EQU    *
00356  M01S00310.273l780 ---|          LDC    C
00357  M01S00311.273l780 ---|          ELSE   3
00358  M01S00312.273l780 ---|          LDD    D
00359  M01S00313.273l780 ---| A        EQU    *
00360  M01S00314.273l780 ---|          ADC    C
00361  M01S00315.273l780 ---|          ERRPL  R-7
00362  M01S00316.273l780 ---| REL      RMT
00363  M01S00317.273l780 ---|          CON    A
00364  M01S00318.273l780 ---|          CON    R
00365  M01S00319.273l780 ---| REL      RMT
00366  M01S00320.273l780 ---|          ENDM
Line S00321 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00367  M01S00321.ns2418  ---|          TITLE  INITIALIZE TABLES.
00368  M01S00322.ns2418  ---|          TITLE  DEBUG UNDER PP0.
00369  M00S00323.mtr     +++|          TITLE  MAIN PROGRAM.
Line S00324 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00370  M01S00324.251l664 ---| MTR      SPACE  4
Line S00011 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00371  M01S00011.251l664 +++| MRP      SPACE  4,10
00372  M01S00012.251l664 +++|**        MONITOR RE-ENTRY PROCESSOR.
00373  M01S00013.251l664 +++|
00374  M01S00014.251l664 +++|
00375  M01S00015.251l664 +++| MRP      CON    0           REENTRY ADDRESS
00376  M01S00016.251l664 +++|          LDM    MRP
00377  M01S00017.251l664 +++|          STM    TREA,PP
00378  M01S00018.251l664 +++|*         UJN    MTR         CHECK NEXT PP
00379  M01S00019.251l664 +++| MTR      SPACE  4,10
00380  M00S00325.mtr     +++|**        MTR - MAIN PROGRAM.
00381  M00S00326.mtr     +++|
00382  M00S00327.mtr     +++|
Line S00328 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00328.251l664 ---| MTR      LDC    10          SET PP 1 OUTPUT REGISTER ADDRESS
00384  M01S00329.251l664 ---|          STD    OA
00385  M01S00330.251l664 ---|          CRD    OR          READ OUTPUT REGISTER
Line S00020 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00386  M01S00020.251l664 +++| MTR      AOD    PP          GET NEXT OUTPUT REGISTER ADDRESS
00387  M01S00021.251l664 +++| MTRA     SBN    **          (NUMBER OF NON-CONCURRENT PPS)
00388  M01S00022.251l664 +++| MTRB     NJN    MTR1        IF NOT LAST NPP
00389  M01S00023.251l664 +++|*         UJN    MTR2        (NO CONCURRENT PPS PRESENT)
Line S00001 Modification History
M01 (Added by) mtr27
Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00001.mtr27   +++|*         UJN    MTR1        (MONITOR STEP SET)
Line S00024 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00391  M01S00024.251l664 +++|          LDN    PPRL        CHECK FOR CPP REQUESTS
00392  M01S00025.251l664 +++|          CRD    CM
00393  M01S00026.251l664 +++|          LDD    CM
00394  M01S00027.251l664 +++|          ZJN    MTR4        IF NO CPP REQUESTS
00395  M01S00028.251l664 +++|          LDN    0           CLEAR CPP REQUEST FLAG
00396  M01S00029.251l664 +++|          STD    CM
00397  M01S00030.251l664 +++|          LDK    PPRL
00398  M01S00031.251l664 +++|          CWD    CM
00399  M01S00032.251l664 +++| MTR1     SBN    **          (NUMBER OF CONCURRENT PPS)
00400  M01S00033.251l664 +++| MTRC     EQU    *-1
00401  M01S00034.251l664 +++|          ERRPL  10-PPRL     *PPRL* MIGHT EQUAL NUMBER OF CPPS
00402  M01S00035.251l664 +++| MTR2     ZJN    MTR4        IF ALL OUTPUT REGISTERS CHECKED
00403  M01S00036.251l664 +++|          LDD    PP          READ PP-S OUTPUT REGISTER
00404  M01S00037.251l664 +++| MTR3     SHN    3
00405  M01S00038.251l664 +++|          ADD    OF
00406  M01S00039.251l664 +++|          STD    OA
00407  M01S00040.251l664 +++|          CRD    OR
00408  M01S00041.251l664 +++|          LDM    TREA,PP     GET PP-S REENTRY ADDRESS
00409  M01S00042.251l664 +++|          STM    MTRD
00410  M00S00331.mtr     +++|          LDD    OR
Line S00332 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00411  M01S00332.251l664 ---|          ZJN    *+3         IF NO REQUEST
00412  M01S00333.251l664 ---|          LJM    DSD         PROCESS *DSD* REQUEST
00413  M01S00334.251l664 ---|
00414  M01S00335.251l664 ---|*         CHECK PP OUTPUT REGISTERS 2 - N.
00415  M01S00336.251l664 ---|
00416  M01S00337.251l664 ---| .1       SET    20
00417  M01S00338.251l664 ---|
00418  M01S00339.251l664 ---|          DUP    18,7
00419  M01S00340.251l664 ---|          LDC    .1          SET OUTPUT REGISTER ADDRESS
00420  M01S00341.251l664 ---|          STD    OA
00421  M01S00342.251l664 ---|          CRD    OR          READ OUTPUT REGISTER
00422  M01S00343.251l664 ---|          LDD    OR
00423  M01S00344.251l664 ---|          ZJN    *+3         IF NO REQUEST
00424  M01S00345.251l664 ---|          LJM    PPR         PROCESS REQUEST
00425  M01S00346.251l664 ---| .1       SET    .1+10
Line S00043 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00043.251l664 +++|          ZJN    MTR         IF NO REQUEST
00427  M01S00044.251l664 +++|          LJM    **          EXIT TO PROCESSOR
00428  M01S00045.251l664 +++| MTRD     EQU    *-1
00429  M00S00347.mtr     +++|
00430  M00S00348.mtr     +++|*         PERFORM SYSTEM FUNCTIONS.
00431  M00S00349.mtr     +++|
Line S00350 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00350.251l664 ---| MTR2     RJM    TIM         UPDATE TIME
Line S00046 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00433  M01S00046.251l664 +++| MTR4     RJM    TIM         UPDATE TIME
00434  M00S00351.mtr     +++|          RJM    CRQ         CHECK RECALL QUEUE
Line S00352 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00352.251l664 ---|          LDC    0           WRITE CHANNEL TABLE
00436  M01S00353.251l664 ---| MTRA     EQU    *-1
Line S00047 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00047.251l664 +++|          LDD    CF
00438  M01S00048.251l664 +++|          ZJN    MTR5        IF NO CHANNEL UPDATES
00439  M01S00049.251l664 +++| MTRE     LDN    CTALL       WORD COUNT OF CHANNEL TABLE
00440  M01S00050.251l664 +++|*         LDN    NCTAL       (CCH-S NOT PRESENT)
00441  M01S00051.251l664 +++|          STD    CF
00442  M01S00052.251l664 +++|          LDC    **          WRITE CHANNEL TABLE
00443  M01S00053.251l664 +++| MTRF     EQU    *-1
Line S00354 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00444  M01S00354.251l664 ---|          CWM    TCHS,CT
00445  M01S00355.251l664 ---| MTRB     RJM    PHE         PROCESS HARDWARE ERRORS
Line S00054 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00054.251l664 +++|          CWM    TCHS,CF
00447  M01S00055.251l664 +++|          LDN    0           CLEAR CHANNEL UPDATE FLAG
00448  M01S00056.251l664 +++|          STD    CF
00449  M01S00057.251l664 +++| MTR5     RJM    PHE         PROCESS HARDWARE ERRORS
00450  M01S00058.251l664 +++| MTRG     EQU    *-2
00451  M00S00356.mtr     +++|*         UJN    *+2         (6000 SERIES)
00452  M00S00357.mtr     +++|
00453  M00S00358.mtr     +++|*         UPDATE STATISTICAL DATA.
00454  M00S00359.mtr     +++|
Line S00360 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00360.251l664 ---| MTRC     LDC    MTRS        READ *MTR* STATISTICAL DATA
Line S00059 Modification History
M01 (Added by) 251l664
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00059.273l780 ---| MTRH     LDC    MTRS        READ *MTR* STATISTICAL DATA
Line S00361 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00361.273l780 ---|*         LDC    (SDAP)+MTRS (*MTR* DATA ADDRESS)
Line S00004 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00004.273l780 +++|          TLDC   MTRS,SDA    READ *MTR* STATISTICAL DATA
00459  M00S00362.mtr     +++|          CRD    CM
Line S00363 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00363.251l664 ---|          LDC    **          SET MISSED CLOCK UPDATE COUNT
00461  M01S00364.251l664 ---| MTRD     EQU    *-1         (MISSED CLOCK UPDATE COUNT)
00462  M01S00365.251l664 ---|          STD    CM+1
Line S00060 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00060.251l664 +++|          LDC    **          UPDATE MISSED CLOCK UPDATE COUNT
00464  M01S00061.251l664 +++| MTRI     EQU    *-1         (MISSED CLOCK UPDATE COUNT)
00465  M01S00062.251l664 +++|          RAD    CM+1
00466  M01S00063.251l664 +++|          LDN    0           RESET CURRENT CYCLE MISSED CLOCK UPDATES
00467  M01S00064.251l664 +++|          STM    MTRI
00468  M00S00366.mtr     +++|          LDD    TM+4        CALCULATE ELAPSED CYCLE TIME
00469  M00S00367.mtr     +++|          SBD    CY
Line S00368 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00368.251l664 ---|          PJN    MTR4        IF NO OVERFLOW
Line S00065 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00471  M01S00065.251l664 +++|          PJN    MTR6        IF NO OVERFLOW
00472  M00S00369.mtr     +++|          ADC    10000
Line S00370 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00370.251l664 ---| MTR4     STD    CM+4
Line S00066 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00066.251l664 +++| MTR6     STD    CM+4
00475  M00S00371.mtr     +++|          RAD    CY
00476  M00S00372.mtr     +++|          LDD    CM+4
00477  M00S00373.mtr     +++|          SBD    CM+3
Line S00374 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00478  M01S00374.251l664 ---|          MJN    MTR5        IF NOT NEW WORST CASE TIME
00479  M01S00375.251l664 ---|          RAD    CM+3        UPDATE WORST CASE
00480  M01S00376.251l664 ---| MTR5     LDC    **          SET WORST CASE *MXN* TIME
00481  M01S00377.251l664 ---| MTRE     EQU    *-1         (WORST CASE *MXN* TIME)
00482  M01S00378.251l664 ---|          STD    CM+2
Line S00067 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00067.251l664 +++|          MJN    MTR7        IF NOT NEW WORST CASE TIME
00484  M01S00068.251l664 +++|          RAD    CM+3        UPDATE WORST CASE CYCLE TIME
00485  M01S00069.251l664 +++| MTR7     LDC    **          SET WORST CASE *MXN* TIME
00486  M01S00070.251l664 +++| MTRJ     EQU    *-1         (WORST CASE *MXN* TIME)
00487  M01S00071.251l664 +++|          SBD    CM+2
00488  M01S00072.251l664 +++|          MJN    MTR8        IF NOT WORST CASE *MXN* TIME
00489  M01S00073.251l664 +++|          RAD    CM+2        UPDATE WORST CASE *MXN* TIME
Line S00379 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00379.251l664 ---| MTRF     LDC    **
Line S00074 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00074.251l664 +++| MTR8     LDN    0           RESET CURRENT CYCLE WORST CASE *MXN* TIME
00492  M01S00075.251l664 +++|          STM    MTRJ
Line S00076 Modification History
M01 (Added by) 251l664
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00076.273l780 ---| MTRK     LDC    **
Line S00380 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00494  M01S00380.273l780 ---|*         LDC    (SDAP)+MTRS (*MTR* DATA ADDRESS)
Line S00005 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00005.273l780 +++|          TLDC   MTRS,SDA    WRITE *MTR* STATISTICAL DATA
00496  M00S00381.mtr     +++|          CWD    CM
00497  M00S00382.mtr     +++|
00498  M00S00383.mtr     +++|*         THE CPU SWITCH IS DONE AS LONG AS POSSIBLE AFTER THE CALL
00499  M00S00384.mtr     +++|*         TO *CRQ* TO ALLOW *CPUMTR* TO HAVE FINISHED PROCESSING CPU
00500  M00S00385.mtr     +++|*         RECALLS.  THE CALL TO *WXP* IS MADE TO INSURE ANY RECALLS
00501  M00S00386.mtr     +++|*         HAVE COMPLETED.
00502  M00S00387.mtr     +++|
00503  M00S00388.mtr     +++|          RJM    WXP         WAIT RECALL COMPLETION
00504  M00S00389.mtr     +++|          RJM    CCS         CHECK CPU SWITCH
00505  M00S00390.mtr     +++|          RJM    CCP         CHECK CENTRAL PROGRAM
Line S00077 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00506  M01S00077.251l664 +++|          LDN    0           SET UP OUTPUT REGISTER SCAN
00507  M01S00078.251l664 +++|          STD    PP
00508  M00S00391.mtr     +++|          LJM    MTR         LOOP
Line S00392 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00392.251l664 ---|
00510  M01S00393.251l664 ---| MTR1     EQU    MTR-10      BASE ADDRESS FOR PP INDEX
00511  M00S00394.mtr     +++|          TITLE  TIMEKEEPING.
00512  M00S00395.mtr     +++| AVC      SPACE  4
00513  M00S00396.mtr     +++|**        AVC - ADVANCE CLOCK.
00514  M00S00397.mtr     +++|*
00515  M00S00398.mtr     +++|*         ENTRY MUST BE MADE AT LEAST EVERY 4 MILLISECONDS.
00516  M00S00399.mtr     +++|*
00517  M00S00400.mtr     +++|*         IF THE MACHINE IS IN A MULTI-MAINFRAME COMPLEX THE
00518  M00S00401.mtr     +++|*         FOLLOWING IS DONE.
00519  M00S00402.mtr     +++|*         1)     STATUS FLAG REGISTER BITS.
00520  M00S00403.mtr     +++|*         2)     WRITE REAL TIME CLOCK TO ECS.
00521  M00S00404.mtr     +++|*         3)     STATUS MAINFRAMES ECS CLOCKS EVERY 2 SECONDS.
00522  M00S00405.mtr     +++|*
00523  M00S00406.mtr     +++|*         USES   CM - CM+4, T3.
00524  M00S00407.mtr     +++|*
00525  M00S00408.mtr     +++|*         CALLS  AVT, CPR, TIM.
00526  M00S00409.mtr     +++|
00527  M00S00410.mtr     +++|
00528  M00S00411.mtr     +++| AVC4     BSS    0
00529  M00S00412.mtr     +++| AVCB     LDC    10000B+ARTF ADVANCE CPU-1 RUNNING TIME
Line S00413 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00413.271l716 ---|*         UJN    *+4         (1 CPU ONLY)
Line S00024 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00531  M01S00024.271l716 +++|*         UJN    AVC5        (1 CPU)
00532  M00S00414.mtr     +++|          RJM    CPR
Line S00415 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00533  M01S00415.271l716 ---|          LDD    HN          RESET RETURN
Line S00025 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00025.271l716 +++| AVC5     LDD    HN          RESET RETURN
00535  M00S00416.mtr     +++|          STM    AVCA
00536  M00S00417.mtr     +++|          RJM    AVT         ADVANCE TIME OF DAY
00537  M00S00418.mtr     +++| AVCC     LDD    TM+1
00538  M00S00419.mtr     +++|*         UJN    AVCD        (NO MULTI-MAINFRAME PROCESSING)
00539  M00S00420.mtr     +++|          LPN    1
00540  M00S00421.mtr     +++|          STD    CN+2        SET TIME TO STATUS MAINFRAMES
00541  M00S00422.mtr     +++| AVCD     LDN    ARMF        ADVANCE RUNNING TIME
00542  M00S00423.mtr     +++|*         LDN    ARTF        (NO MULTI-MAINFRAME PROCESSING)
00543  M00S00424.mtr     +++|          RJM    CPR
00544  M00S00425.mtr     +++|
00545  M00S00426.mtr     +++| AVC      SUBR               ENTRY/EXIT
00546  M00S00427.mtr     +++|*         UJN    AVC4        (ONE SECOND ELAPSED)
00547  M00S00428.mtr     +++| AVCA     EQU    *-2
00548  M00S00429.mtr     +++|          RJM    TIM         ADVANCE MILLISECOND CLOCK
Line S00430 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00430.273l780 ---| AVC1     TLDC   0,CX        READ CPU 0 EXCHANGE REQUEST
Line S00006 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00550  M01S00006.273l780 +++| AVC1     TLDC   CACX,CMT    READ CPU 0 EXCHANGE REQUEST
00551  M00S00431.mtr     +++|*         UJN    AVCX        (1 CPU ONLY)
00552  M00S00432.mtr     +++| CX1      EQU    *-2
00553  M00S00433.mtr     +++|          CRD    CM
00554  M00S00434.mtr     +++|          LDN    0           CLEAR EXCHANGE REQUEST OUTSTANDING FLAG
00555  M00S00435.mtr     +++|          STD    T3
00556  M00S00436.mtr     +++|          LDD    CM+1
00557  M00S00437.mtr     +++|          ADD    CM+2
00558  M00S00438.mtr     +++|          ZJN    AVC2        IF NO EXCHANGE REQUEST
00559  M00S00439.mtr     +++|          AOD    T3
00560  M00S00440.mtr     +++|          LDN    PCXF        PROCESS CPU 0 EXCHANGE REQUEST
00561  M00S00441.mtr     +++|          RJM    CPR
Line S00442 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00442.273l780 ---| AVC2     TLDC   1,CX        READ CPU 1 EXCHANGE REQUEST
Line S00007 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00007.273l780 +++| AVC2     TLDC   CACX+1,CMT  READ CPU 1 EXCHANGE REQUEST
00564  M00S00443.mtr     +++|          CRD    CM
00565  M00S00444.mtr     +++|          LDD    CM+1
00566  M00S00445.mtr     +++|          ADD    CM+2
00567  M00S00446.mtr     +++|          ZJN    AVC3        IF NO EXCHANGE REQUEST
00568  M00S00447.mtr     +++|          AOD    T3
00569  M00S00448.mtr     +++|          LDC    10000+PCXF  PROCESS CPU 1 EXCHANGE REQUEST
00570  M00S00449.mtr     +++|          RJM    CPR
00571  M00S00450.mtr     +++| AVC3     LDD    T3
00572  M00S00451.mtr     +++|          NJN    AVC1        IF EXCHANGE REQUEST OUTSTANDING
00573  M00S00452.mtr     +++|          UJN    AVCX        RETURN
Line S00453 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00453.251l664 ---| TIM      SPACE  4,10
Line S00079 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00575  M01S00079.251l664 +++| TIM      SPACE  4,20
00576  M00S00454.mtr     +++|**        TIM - UPDATE REAL TIME CLOCK.
00577  M00S00455.mtr     +++|*
Line S00456 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00578  M01S00456.ns2418  ---|*         THE REAL TIME CLOCK IN CM IS UPDATE EVERY MILLISECOND.  THIS
00579  M01S00457.ns2418  ---|*         ROUTINE WHEN CALLED FROM OTHER THAN AVC IS USED TO MAINTAIN
00580  M01S00458.ns2418  ---|*         TIME ACCURACY WITHOUT CALLS TO CPR.  IN DUAL STATE, THE REAL
00581  M01S00459.ns2418  ---|*         TIME CLOCK IS READ AFTER EVERY EXCHANGE TO *CPUMTR*, SINCE IN
00582  M01S00460.ns2418  ---|*         DUAL STATE CPUMTR CONTROLS THE CLOCK USING THE FREE RUNNING
00583  M01S00461.ns2418  ---|*         COUNTER AS THE REFERENCE.  BETWEEN EXCHANGES, *TIM* MAINTAINS
00584  M01S00462.ns2418  ---|*         THE REAL TIME CLOCK IN THE USUAL WAY SO AS TO MAINTAIN TIME
00585  M01S00463.ns2418  ---|*         ACCURACY DURING PERIODS OF *CPUMTR* INACTIVITY.
Line S00002 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00002.ns2418  +++|*         THE REAL TIME CLOCK IN CM IS UPDATED EVERY MILLISECOND.  THIS
00587  M01S00003.ns2418  +++|*         ROUTINE WHEN CALLED FROM OTHER THAN *AVC* IS USED TO MAINTAIN
00588  M01S00004.ns2418  +++|*         TIME ACCURACY WITHOUT CALLS TO *CPR*.  ON CYBER 180 AND
00589  M01S00005.ns2418  +++|*         CYBER 170-865/875 MAINFRAMES, THE REAL TIME CLOCK IS READ
00590  M01S00006.ns2418  +++|*         AFTER EVERY EXCHANGE TO *CPUMTR*, SINCE *CPUMTR* CONTROLS
00591  M01S00007.ns2418  +++|*         THE CLOCK USING THE CPU CLOCK.  BETWEEN EXCHANGES, *MTR*
00592  M01S00008.ns2418  +++|*         MAINTAINS THE REAL TIME CLOCK IN THE USUAL WAY TO ENSURE
00593  M01S00009.ns2418  +++|*         ACCURACY DURING PERIODS WHEN *CPUMTR* IS INACTIVE.
00594  M00S00464.mtr     +++|*
00595  M00S00465.mtr     +++|*         EXIT   (RTCL) UPDATED IN CM IF MILLISECOND OR MORE ELAPSED.
Line S00466 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00596  M01S00466.251l664 ---|*                (MTRD) = COUNT OF TIMES CLOCK UPDATE MISSED.
Line S00080 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00080.251l664 +++|*                (MTRI) = COUNT OF TIMES CLOCK UPDATE MISSED.
00598  M00S00467.mtr     +++|*
Line S00081 Modification History
M01 (Added by) 251l664
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00081.271l716 ---|*         USES   CM - CM+4.
Line S00026 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00600  M01S00026.271l716 +++|*         USES   LS, MS, ST, CM - CM+4, TM - TM+4.
00601  M00S00468.mtr     +++|*
00602  M00S00469.mtr     +++|*         CALLS  ETA.
00603  M00S00470.mtr     +++|
00604  M00S00471.mtr     +++|
00605  M00S00472.mtr     +++| TIM5     LDD    HN          RESET RETURN
00606  M00S00473.mtr     +++|          STM    TIMX
00607  M00S00474.mtr     +++|          UJN    TIM1        REENTER LOOP
00608  M00S00475.mtr     +++|
00609  M00S00476.mtr     +++| TIM6     STD    MS
Line S00477 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00610  M01S00477.273l780 ---|          TLDC   6,XP        READ (MA), (A6), (B6)
Line S00008 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00611  M01S00008.273l780 +++|          TLDC   /EXPACS/MXP+6,XBP  READ (MA), (A6), (B6)
00612  M00S00478.mtr     +++|          CRD    CM
00613  M00S00479.mtr     +++|          LDD    CM
00614  M00S00480.mtr     +++|          ADD    CM+1
00615  M00S00481.mtr     +++|          NJN    TIMX        IF EXCHANGE PACKAGE NOT READY
00616  M00S00482.mtr     +++|          LDC    RTCL
00617  M00S00483.mtr     +++|          CRD    TM          READ THE MILLISECOND CLOCK
00618  M00S00484.mtr     +++|          LDD    TM+1
00619  M00S00485.mtr     +++|          SBD    LS
00620  M00S00486.mtr     +++|          ZJN    TIM8        IF NO CHANGE IN SECONDS
Line S00487 Modification History
M01 (Removed by) ncctmkp
Seq #  *Modification Id* Act 
----------------------------+
00621  M01S00487.ncctmkp ---|          PJN    TIM7        IF NO OVERFLOW
00622  M01S00488.ncctmkp ---|          ADC    10000
Line S00001 Modification History
M01 (Added by) ncctmkp
Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00001.ncctmkp +++|          LDN    1           FORCE DELTA TO 1 SECOND
00624  M00S00489.mtr     +++| TIM7     RJM    ETA         ENABLE TIME ADVANCE
00625  M00S00490.mtr     +++|          LDD    TM+1        MARK CURRENT SECONDS
00626  M00S00491.mtr     +++|          STD    LS
00627  M00S00492.mtr     +++| TIM8     LDN    PSNI        RESET EXCHANGE SWITCH
00628  M00S00493.mtr     +++|          STM    TIMB
00629  M00S00494.mtr     +++|
00630  M00S00495.mtr     +++| TIM      SUBR               ENTRY/EXIT
00631  M00S00496.mtr     +++| TIM1     IAN    14          READ CLOCK
00632  M00S00497.mtr     +++| TIMB     PSN                NORMAL
Line S00498 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00633  M01S00498.ns2418  ---|*         UJN    TIMX        UNTIL FIRST EXCHANGE (DUAL STATE ENABLED)
00634  M01S00499.ns2418  ---|*         UJN    TIM6        EXCHANGE OUTSTANDING (DUAL STATE ENABLED)
Line S00010 Modification History
M01 (Added by) ns2418
M02 (Removed by) mtr39
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00010.mtr39   ---|*         UJN    TIMX        UNTIL FIRST EXCHANGE (CPU CLOCK)
Line S00011 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00636  M01S00011.ns2418  +++|*         UJN    TIM6        EXCHANGE OUTSTANDING (CPU CLOCK)
00637  M00S00500.mtr     +++|          SBD    MS
00638  M00S00501.mtr     +++|          PJN    TIM2        IF NO OVERFLOW
00639  M00S00502.mtr     +++|          ADC    10000
Line S00503 Modification History
M01 (Removed by) fixclok
Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00503.fixclok ---| TIM2     ADC    -MLSC+35    CYCLES TILL RTCL WRITTEN
00641  M01S00504.fixclok ---|*         ADC    -MLSC+17    (2X PP SPEED)
00642  M01S00505.fixclok ---|*         ADC    -MLSC+10    (4X PP SPEED)
00643  M01S00506.fixclok ---| TIMA     EQU    *-1
Line S00001 Modification History
M01 (Added by) fixclok
Seq #  *Modification Id* Act 
----------------------------+
00644  M01S00001.fixclok +++| TIM2     ADC    -MLSC       CYCLES TILL RTCL WRITTEN
00645  M00S00507.mtr     +++|          MJN    TIMX        IF NOT .GE. 1 MILLISECOND ELAPSED
00646  M00S00508.mtr     +++|          SHN    -12
00647  M00S00509.mtr     +++|          ZJN    TIM3        IF REMAINDER .LT. 1024 MICROSECONDS
Line S00510 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00648  M01S00510.251l664 ---|          AOM    MTRD        COUNT MISSED CLOCK UPDATE
Line S00082 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00649  M01S00082.251l664 +++|          AOM    MTRI        COUNT MISSED CLOCK UPDATE
Line S00511 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00650  M01S00511.ns2418  ---|          LDC    UJNI+77+TIM5-TIMX SET TO LOOP
00651  M01S00512.ns2418  ---|          ERRPL  TIMX-TIM5-40  JUMP OUT OF BOUNDS
00652  M01S00513.ns2418  ---|          STM    TIMX
Line S00012 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00653  M01S00012.ns2418  +++|          ISTORE TIMX,(UJN TIM5)  SET UP TO LOOP
00654  M00S00514.mtr     +++| TIM3     LDC    MLSC
00655  M00S00515.mtr     +++|          RAD    MS
00656  M00S00516.mtr     +++|          AOD    TM+4        ADVANCE MILLISECOND CLOCK
00657  M00S00517.mtr     +++|          SHN    -14
00658  M00S00518.mtr     +++|          ZJN    TIM4        IF NO OVERFLOW
00659  M00S00519.mtr     +++|          RAD    TM+3        UPDATE MILLISECONDS ON OVERFLOW
00660  M00S00520.mtr     +++|          SHN    -14
00661  M00S00521.mtr     +++|          RAD    TM+2
00662  M00S00522.mtr     +++| TIM4     SOD    ST          UPDATE SECOND TIMER
00663  M00S00523.mtr     +++|          NJN    TIM4.1      IF NOT 1 SECOND ELAPSED
00664  M00S00524.mtr     +++|          LDN    1           SET INCREMENT FOR *AVT*
00665  M00S00525.mtr     +++|          RJM    ETA         ENABLE TIME ADVANCE
00666  M00S00526.mtr     +++|          AOD    TM+1        UPDATE SECONDS
00667  M00S00527.mtr     +++|          STD    LS          MARK CURRENT SECONDS
00668  M00S00528.mtr     +++|          SHN    -14
00669  M00S00529.mtr     +++|          RAD    TM
00670  M00S00530.mtr     +++| TIM4.1   LDC    RTCL        UPDATE CLOCK
00671  M00S00531.mtr     +++|          CWD    TM
00672  M00S00532.mtr     +++|          LJM    TIMX        EXIT
00673  M00S00533.mtr     +++| ETA      SPACE  4
00674  M00S00534.mtr     +++|**        ETA - ENABLE TIME ADVANCE.
00675  M00S00535.mtr     +++|*
00676  M00S00536.mtr     +++|*         THE UPDATE OF THE DATE AND TIME IS ENABLED, THE
00677  M00S00537.mtr     +++|*         NUMBER OF SECONDS TO ADVANCE IT IS ESTABLISHED,
00678  M00S00538.mtr     +++|*         AND THE SECOND TIMER IS RESET.
00679  M00S00539.mtr     +++|*
00680  M00S00540.mtr     +++|*         ENTRY  (A) .EQ. NUMBER OF SECONDS TO ADVANCE TIME.
00681  M00S00541.mtr     +++|*
00682  M00S00542.mtr     +++|*         EXIT   TIME ADVANCE IS ENABLED.
00683  M00S00543.mtr     +++|
00684  M00S00544.mtr     +++|
00685  M00S00545.mtr     +++| ETA      SUBR               ENTRY/EXIT
00686  M00S00546.mtr     +++|          STM    AVTC        SET SECONDS INCREMENT
Line S00547 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00687  M01S00547.ns2418  ---|          LDC    UJNI+77+AVC4-AVCX  ENABLE CLOCK UPDATE
00688  M01S00548.ns2418  ---|          ERRPL  AVCX-AVC4-40  JUMP OUT OF BOUNDS
00689  M01S00549.ns2418  ---|          STM    AVCA
Line S00013 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00690  M01S00013.ns2418  +++|          ISTORE AVCA,(UJN AVC4)  ENABLE CLOCK UPDATE
00691  M00S00550.mtr     +++|          LDC    1000D       RESET SECOND TIMER
00692  M00S00551.mtr     +++|          STD    ST
00693  M00S00552.mtr     +++|          UJN    ETAX        EXIT
Line S00553 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00694  M01S00553.251l664 ---| AVT      SPACE  4
Line S00083 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00695  M01S00083.251l664 +++| AVT      SPACE  4,10
00696  M00S00554.mtr     +++|**        AVT - ADVANCE TIME.
00697  M00S00555.mtr     +++|*
00698  M00S00556.mtr     +++|*         ADVANCES THE TIME OF DAY AND DATE IN RESPONSE TO THE REAL
00699  M00S00557.mtr     +++|*         TIME CLOCK AND STORES THEM IN CENTRAL MEMORY.  ON THE HOUR,
00700  M00S00558.mtr     +++|*         THE TIME PROCESSING FUNCTION CODE IS SET IN THE *1MB* CALL
00701  M00S00559.mtr     +++|*         WORD.
Line S00560 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00702  M01S00560.271l716 ---|*
00703  M01S00561.271l716 ---|*         ENTRY  (TM - TM+4) = REAL TIME CLOCK.
00704  M00S00562.mtr     +++|*
Line S00563 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00705  M01S00563.ns2418  ---|*         EXIT   (SCAT - SCAT+4) = CURRENT (MSCL).
Line S00014 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
00706  M01S00014.ns2418  +++|*         EXIT   (PDTL), (JDAL), (TIML), (DTEL) UPDATED IN CMR.
Line S00003 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00707  M01S00003.253l688 +++|*
Line S00004 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00004.271l716 ---|*         USES   CN.
Line S00027 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00709  M01S00027.271l716 +++|*         USES   CN, PD - PD+4(T0 - T0+4), TI - TI+4(CM - CM+4).
Line S00005 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00710  M01S00005.253l688 +++|*
00711  M01S00006.253l688 +++|*         CALLS  CPR.
00712  M00S00564.mtr     +++|
00713  M00S00565.mtr     +++|
Line S00566 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00566.253l688 ---| AVT10    LDN    JDAL        WRITE TIME AND DATE WORDS
00715  M01S00567.253l688 ---|          CWM    JD,FR
Line S00007 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00716  M01S00007.253l688 +++| AVT2     LDN    PDTL        WRITE *PDTL* AND *TIML*
00717  M01S00008.253l688 +++|          CWD    PD
Line S00009 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00009.271l716 ---|          ERRNZ  TIML-PDTL-1 CODE DEPENDS ON VALUES
00719  M02S00010.271l716 ---|          ADN    1
Line S00028 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00028.271l716 +++|          ADK    TIML-PDTL
Line S00011 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00721  M01S00011.253l688 +++|          CWD    TI
00722  M01S00012.253l688 +++|          LDD    CN
00723  M01S00013.253l688 +++|          NJN    AVTX        IF NOT TOP OF HOUR
00724  M01S00014.253l688 +++|*         LDN    0           CLEAR BUFFER ADDRESS
00725  M01S00015.253l688 +++|*         STD    CN
00726  M01S00016.253l688 +++|          LDN    ADTF        CALL *CPUMTR* TO COMPLETE THE ADVANCE
00727  M01S00017.253l688 +++|          RJM    CPR
00728  M00S00568.mtr     +++|
00729  M00S00569.mtr     +++| AVT      SUBR               ENTRY/EXIT
Line S00570 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00730  M01S00570.253l688 ---|          LDN    JDAL        READ DATE AND TIME WORDS
00731  M01S00571.253l688 ---|          CRM    JD,FR
Line S00018 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00732  M01S00018.253l688 +++|          LDN    PDTL        READ *PDTL* AND *TIML*
00733  M01S00019.253l688 +++|          CRD    PD
Line S00020 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00020.271l716 ---|          ERRNZ  TIML-PDTL-1 CODE DEPENDS ON VALUES
00735  M02S00021.271l716 ---|          ADN    1
Line S00029 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00736  M01S00029.271l716 +++|          ADK    TIML-PDTL
Line S00022 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00737  M01S00022.253l688 +++|          CRD    TI
00738  M00S00572.mtr     +++|          LDC    1           ADVANCE SECONDS
00739  M00S00573.mtr     +++| AVTC     EQU    *-1
Line S00023 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00023.253l688 +++|          STD    CN          INITIALIZE TOP OF HOUR FLAG
00741  M00S00574.mtr     +++|          RAD    PD+4
00742  M00S00575.mtr     +++|          LDM    AVTC
00743  M00S00576.mtr     +++|          SHN    6
00744  M00S00577.mtr     +++|          RAD    TI+4
00745  M00S00578.mtr     +++|          SHN    -6
00746  M00S00579.mtr     +++|          SBN    1R9+1
Line S00580 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00747  M01S00580.253l688 ---| AVT1     MJN    AVT10       IF NOT 10 SECONDS
Line S00024 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00748  M01S00024.253l688 +++| AVT1     MJN    AVT2        IF NOT 10 SECONDS
00749  M00S00581.mtr     +++|          SHN    6
00750  M00S00582.mtr     +++|          ADC    2R0.        RESET SECONDS
00751  M00S00583.mtr     +++|          STD    TI+4
00752  M00S00584.mtr     +++|          AOD    TI+3        ADVANCE 10 SECONDS
00753  M00S00585.mtr     +++|          LPN    77
00754  M00S00586.mtr     +++|          SBN    1R6
00755  M00S00587.mtr     +++|          MJN    AVT1        IF NOT 60 SECONDS
00756  M00S00588.mtr     +++|          LDN    100-60D     ADVANCE MINUTES, RESET SECONDS
00757  M00S00589.mtr     +++|          RAD    PD+4
00758  M00S00590.mtr     +++|          LDC    2R.0        RESET 10 SECONDS
00759  M00S00591.mtr     +++|          STD    TI+3
00760  M00S00592.mtr     +++|          AOD    TI+2        ADVANCE MINUTES
00761  M00S00593.mtr     +++|          LPN    77
00762  M00S00594.mtr     +++|          SBN    1R9+1
00763  M00S00595.mtr     +++|          MJN    AVT1        IF NOT 10 MINUTES
00764  M00S00596.mtr     +++|          LDN    100+1R0-1R9-1 ADVANCE 10 MINUTES
00765  M00S00597.mtr     +++|          RAD    TI+2
00766  M00S00598.mtr     +++|          SHN    -6
00767  M00S00599.mtr     +++|          SBN    1R6
Line S00600 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00768  M01S00600.253l688 ---| AVT2     MJN    AVT1        IF NOT 60 MINUTES
Line S00025 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00769  M01S00025.253l688 +++|          MJN    AVT1        IF NOT 60 MINUTES
Line S00601 Modification History
M01 (Removed by) mtr42
Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00601.mtr42   ---| AVTA     LDN    SPTP        SET TIME PROCESSING FUNCTION FOR *1MB*
00771  M01S00602.mtr42   ---|*         LDN    0           (NO TIME CALL FOR C70 NON-SIMULATION)
Line S00001 Modification History
M01 (Added by) mtr42
Seq #  *Modification Id* Act 
----------------------------+
00772  M01S00001.mtr42   +++|          LDM    PHED+2
00773  M01S00002.mtr42   +++|          SCN    SPTP
00774  M01S00003.mtr42   +++| AVTA     LMN    SPTP        SET TIME PROCESSING FUNCTION FOR *1MB*
00775  M01S00004.mtr42   +++|*         LMN    0           (NO TIME CALL FOR C70 NON-SIMULATION)
00776  M00S00603.mtr     +++|          ERRNZ  SPTP-1      (ERROR IF TIME FUNCTION VALUE CHANGES)
Line S00604 Modification History
M01 (Removed by) mtr42
Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00604.mtr42   ---|          RAM    PHED+2
Line S00005 Modification History
M01 (Added by) mtr42
Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00005.mtr42   +++|          STM    PHED+2
Line S00605 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00605.253l688 ---|          LDN    0           RESET SECONDS, MINUTES
00780  M01S00606.253l688 ---|          STD    PD+4
00781  M01S00607.253l688 ---|          AOD    PD+3        ADVANCE HOURS
00782  M01S00608.253l688 ---|          LDC    2R00        RESET MINUTES
00783  M01S00609.253l688 ---|          STD    TI+2
00784  M01S00610.253l688 ---|          LDD    HN          ADVANCE HOURS
00785  M01S00611.253l688 ---|          RAD    TI+1
00786  M01S00612.253l688 ---|          SHN    -6
00787  M01S00613.253l688 ---|          SBN    1R9+1
00788  M01S00614.253l688 ---|          MJN    AVT3        IF NOT 10 HOURS
Line S00615 Modification History
M01 (Removed by) mtr37
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00615.253l688 ---|          LDD    TI+4        RESET HOURS
Line S00001 Modification History
M01 (Added by) mtr37
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00001.253l688 ---|          LDC    2R0.        RESET HOURS
Line S00616 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00616.253l688 ---|          STD    TI+1
00792  M01S00617.253l688 ---|          AOD    TI          ADVANCE 10 HOURS
00793  M01S00618.253l688 ---| AVT3     LDD    PD+3        CHECK HOUR COUNT
00794  M01S00619.253l688 ---|          LPN    77
00795  M01S00620.253l688 ---|          SBN    24D
00796  M01S00621.253l688 ---|          MJN    AVT2        IF NOT 24 HOURS
00797  M01S00622.253l688 ---|          LDN    100-24D
00798  M01S00623.253l688 ---|          RAD    PD+3
00799  M01S00624.253l688 ---|          LCN    1R2-1R0     RESET HOURS
00800  M01S00625.253l688 ---|          RAD    TI
00801  M01S00626.253l688 ---|          LDD    TI+4
00802  M01S00627.253l688 ---|          STD    TI+1
00803  M01S00628.253l688 ---|          AOD    JD+4        ADVANCE JULIAN DAY
00804  M01S00629.253l688 ---|          LMC    2R99+1
00805  M01S00630.253l688 ---|          ZJN    AVT4        IF 100 JULIAN DAYS
00806  M01S00631.253l688 ---|          LPN    77
00807  M01S00632.253l688 ---|          NJN    AVT5        IF NOT 10 JULIAN DAYS
00808  M01S00633.253l688 ---|          LDN    100-1R9-1+1R0  ADVANCE 10 JULIAN DAYS
00809  M01S00634.253l688 ---|          RAD    JD+4
00810  M01S00635.253l688 ---|          UJN    AVT5
00811  M01S00636.253l688 ---|
00812  M01S00637.253l688 ---| AVT4     LDD    TI+2        ADVANCE 100 JULIAN DAYS
00813  M01S00638.253l688 ---|          STD    JD+4
00814  M01S00639.253l688 ---|          AOD    JD+3
00815  M01S00640.253l688 ---| AVT5     LDD    HN          ADVANCE DAYS
00816  M01S00641.253l688 ---|          RAD    DT+4
00817  M01S00642.253l688 ---|          SHN    -6
00818  M01S00643.253l688 ---|          SBN    1R9+1
00819  M01S00644.253l688 ---|          MJN    AVT6        IF NOT 10 DAYS
00820  M01S00645.253l688 ---|          LDD    TI+4        RESET DAYS
00821  M01S00646.253l688 ---|          STD    DT+4
00822  M01S00647.253l688 ---|          AOD    DT+3        ADVANCE 10 DAYS
00823  M01S00648.253l688 ---| AVT6     LDD    PD+3
00824  M01S00649.253l688 ---|          SHN    -6
00825  M01S00650.253l688 ---|          LMC    *
00826  M01S00651.253l688 ---| AVTB     EQU    *-1         (DAY LIMIT FOR CURRENT MONTH)
00827  M01S00652.253l688 ---|          NJN    AVT8        IF DAY LIMIT NOT REACHED
00828  M01S00653.253l688 ---|          LDD    HN          RESET DAYS
00829  M01S00654.253l688 ---|          STD    PD+3
00830  M01S00655.253l688 ---|          AOD    PD+2        ADVANCE MONTHS
00831  M01S00656.253l688 ---|          LDC    2R1.        RESET DAYS
00832  M01S00657.253l688 ---|          STD    DT+4
00833  M01S00658.253l688 ---|          LDC    2R/0
00834  M01S00659.253l688 ---|          STD    DT+3
00835  M01S00660.253l688 ---|          AOD    DT+2        ADVANCE MONTH
00836  M01S00661.253l688 ---|          LPN    77
00837  M01S00662.253l688 ---|          SBN    1R9+1
00838  M01S00663.253l688 ---|          MJN    AVT7        IF NOT 10 MONTHS
00839  M01S00664.253l688 ---|          LDN    100+1R0-1R9-1  ADVANCE 10 MONTHS
00840  M01S00665.253l688 ---|          RAD    DT+2
00841  M01S00666.253l688 ---| AVT7     LDD    DT+2        CHECK MONTH COUNT
00842  M01S00667.253l688 ---|          LMC    2R13
00843  M01S00668.253l688 ---|          ZJN    AVT9        IF 13 MONTHS
00844  M01S00669.253l688 ---| AVT8     LJM    AVT10
00845  M01S00670.253l688 ---|
00846  M01S00671.253l688 ---| AVT9     LDN    100-12D     ADVANCE YEAR
00847  M01S00672.253l688 ---|          RAD    PD+2
00848  M01S00673.253l688 ---|          LDC    2R01        RESET MONTHS
00849  M01S00674.253l688 ---|          STD    DT+2
00850  M01S00675.253l688 ---|          STD    JD+4        RESET JULIAN DAYS
00851  M01S00676.253l688 ---|          LDD    HN          ADVANCE YEAR
00852  M01S00677.253l688 ---|          RAD    DT+1
00853  M01S00678.253l688 ---|          LDN    100-1R3+1R0 ADVANCE JULIAN YEAR
00854  M01S00679.253l688 ---|          RAD    JD+3
00855  M01S00680.253l688 ---|          SHN    -6
00856  M01S00681.253l688 ---|          SBN    1R9+1
00857  M01S00682.253l688 ---|          MJN    AVT8        IF NOT 10 YEARS
00858  M01S00683.253l688 ---|          LDC    -10D*100    ADVANCE 10 JULIAN YEARS
00859  M01S00684.253l688 ---|          RAD    JD+3
00860  M01S00685.253l688 ---|          AOD    JD+2
00861  M01S00686.253l688 ---|          LDC    2R0/        RESET YEARS
00862  M01S00687.253l688 ---|          STD    DT+1
00863  M01S00688.253l688 ---|          AOD    DT          ADVANCE 10 YEARS
00864  M01S00689.253l688 ---|          LPN    77
00865  M01S00690.253l688 ---|          SBN    1R9+1
00866  M01S00691.253l688 ---|          MJN    AVT8        IF NOT 100 YEARS
00867  M01S00692.253l688 ---|          LDC    2R 0        RESET YEARS
00868  M01S00693.253l688 ---|          STD    DT
00869  M01S00694.253l688 ---|          LDN    1R0         RESET JULIAN YEARS
00870  M01S00695.253l688 ---|          STD    JD+2
00871  M01S00696.253l688 ---|          UJN    AVT8
Line S00026 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00026.253l688 +++|          LDN    0           CLEAR BUFFER ADDRESS
00873  M01S00027.253l688 +++|          STD    CN
00874  M01S00028.253l688 +++|          LJM    AVT2        CALL *CPUMTR* TO COMPLETE THE ADVANCE
00875  M00S00697.mtr     +++|          TITLE RECALL CRITERION PROCESSING.
00876  M00S00698.mtr     +++| CRQ      SPACE  4,10
00877  M00S00699.mtr     +++|**        CRQ - CHECK RECALL CRITERION.
00878  M00S00700.mtr     +++|*
00879  M00S00701.mtr     +++|*         THIS ROUTINE PROCESSED UP TO *MXRC* ENTRIES OF THE RECALL
00880  M00S00702.mtr     +++|*         REQUEST QUEUE.  EACH ENTRY IS CHECKED TO SEE IF THE
00881  M00S00703.mtr     +++|*         RECALL CRITERION HAS BEEN SATISFIED.  IF IT HAS, *CPUMTR* IS
00882  M00S00704.mtr     +++|*         CALLED TO BRING THE REQUEST OUT OF RECALL.
00883  M00S00705.mtr     +++|*
00884  M00S00706.mtr     +++|*         CALLS  CPR, RCP.
00885  M00S00707.mtr     +++|
00886  M00S00708.mtr     +++|
00887  M00S00709.mtr     +++| CRQ6     LDD    CN+2        CHECK REQUEST
00888  M00S00710.mtr     +++|          LPN    77
Line S00711 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00889  M01S00711.271l750 ---|          LMN    CRCW
Line S00003 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00003.271l750 +++|          LMN    CRCW-100
00891  M01S00004.271l750 +++|          ERRNG  CRCW-100    *CRCW* MUST BE .GE. 100
00892  M00S00712.mtr     +++|          ZJN    CRQ7        IF CPU IN RECALL
Line S00713 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00893  M01S00713.271l716 ---|          LDN    PRQF        PROCESS REQUEST
Line S00030 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00030.271l716 +++|          LDC    10000+PRQF
00895  M00S00714.mtr     +++|          RJM    CPR
00896  M00S00715.mtr     +++|          UJN    CRQ3        CHECK NEXT REQUEST
00897  M00S00716.mtr     +++|
00898  M00S00717.mtr     +++| CRQ7     RJM    RCP         RECALL CPU
00899  M00S00718.mtr     +++|
00900  M00S00719.mtr     +++| CRQ      SUBR               ENTRY/EXIT
00901  M00S00720.mtr     +++|          LDN    MXRC        SET MAXIMUM NUMBER OF REQUESTS TO PROCESS
00902  M00S00721.mtr     +++|          STD    T3
00903  M00S00722.mtr     +++|          LDD    RC
00904  M00S00723.mtr     +++|          LMD    RQ
00905  M00S00724.mtr     +++|          NJN    CRQ4        IF NOT POINTER WORD
00906  M00S00725.mtr     +++|          AOD    T3
00907  M00S00726.mtr     +++|
00908  M00S00727.mtr     +++|*         THIS CODE IS USED TO RESET THE LIST POINTER TO THE
00909  M00S00728.mtr     +++|*         BEGINNING IN THE INFREQUENT EVENT THAT *MTR* TRIES
00910  M00S00729.mtr     +++|*         TO USE A BAD POINTER, WHICH IS USUALLY CAUSED BY
00911  M00S00730.mtr     +++|*         *CPUMTR* MAKING CHANGES IN THE LIST WHILE *MTR* IS
00912  M00S00731.mtr     +++|*         SCANNING IT.
00913  M00S00732.mtr     +++|
00914  M00S00733.mtr     +++| CRQ2     LDD    RQ          RESET TO START OF LIST
00915  M00S00734.mtr     +++|          CRD    CM
00916  M00S00735.mtr     +++|          LDD    CM+4        SET TO PROCESS FIRST ENTRY
00917  M00S00736.mtr     +++|          STD    RC
00918  M00S00737.mtr     +++| CRQ3     SOD    T3
00919  M00S00738.mtr     +++|          MJN    CRQX        IF LIMIT OF ENTRIES TO PROCESS
00920  M00S00739.mtr     +++| CRQ4     LDD    RC
00921  M00S00740.mtr     +++| CRQ5     CRD    CM
00922  M00S00741.mtr     +++|          STD    CN+2
00923  M00S00742.mtr     +++|          LDD    CM+4        SET NEXT ENTRY
00924  M00S00743.mtr     +++|          STD    RC
00925  M00S00744.mtr     +++|          SCN    17
00926  M00S00745.mtr     +++|          ZJN    CRQ2        IF END OF LIST
00927  M00S00746.mtr     +++|
00928  M00S00747.mtr     +++|*         THE FOLLOWING LOGIC IS DEPENDENT ON THE RECALL TYPES BEING
00929  M00S00748.mtr     +++|*         IN A CERTAIN ORDER.
00930  M00S00749.mtr     +++|
00931  M00S00750.mtr     +++|          ERRNZ  PCBF-1      LOGIC REQUIRES THIS VALUE
00932  M00S00751.mtr     +++|          ERRNZ  PTRF-2      LOGIC REQUIRES THIS VALUE
00933  M00S00752.mtr     +++|          ERRNZ  PTMF-3      LOGIC REQUIRES THIS VALUE
00934  M00S00753.mtr     +++|
00935  M00S00754.mtr     +++|          LDD    CM
00936  M00S00755.mtr     +++|          SBN    PTMF
00937  M00S00756.mtr     +++|          ZJN    PTM         IF TIMED RECALL
00938  M00S00757.mtr     +++|          PJN    CRQ2        IF ILLEGAL RECALL CRITERION
00939  M00S00758.mtr     +++|          ADN    -PCBF+PTMF
00940  M00S00759.mtr     +++| CRQA     ZJN    PCB         IF PROCESS COMPLETION BIT
00941  M00S00760.mtr     +++|*         ZJN    PCB3        (CME PRESENT)
00942  M00S00761.mtr     +++|          MJN    CRQ2        IF NOT TIMED RECALL
00943  M00S00762.mtr     +++| PTM      SPACE  4,10
00944  M00S00763.mtr     +++|**        PTM - TIMED RECALL PROCESSOR.
00945  M00S00764.mtr     +++|*
00946  M00S00765.mtr     +++|*T, CM    12/  PTMF,36/  RT,12/  LK
Figure CM

0111229 LK RT30474859 RT PTMF

00947  M00S00766.mtr     +++|*         RT     RECALL TIME.
00948  M00S00767.mtr     +++|*         LK     NEXT RECALL ENTRY.
00949  M00S00768.mtr     +++|
00950  M00S00769.mtr     +++|
00951  M00S00770.mtr     +++| PTM      LDD    TM+2
00952  M00S00771.mtr     +++|          SBD    CM+1
00953  M00S00772.mtr     +++|          NJN    PTM1        IF LIMIT PASSED OR NOT REACHED
00954  M00S00773.mtr     +++|          LDD    TM+3
00955  M00S00774.mtr     +++|          SBD    CM+2
00956  M00S00775.mtr     +++|          NJN    PTM1        IF LIMIT PASSED OR NOT REACHED
00957  M00S00776.mtr     +++|          LDD    TM+4
00958  M00S00777.mtr     +++|          SBD    CM+3
00959  M00S00778.mtr     +++| PTM1     MJN    PTM3        IF NOT TIME TO RECALL REQUEST
00960  M00S00779.mtr     +++| PTM2     LJM    CRQ6        RECALL REQUEST
00961  M00S00780.mtr     +++|
Line S00781 Modification History
M01 (Removed by) mtr43
Seq #  *Modification Id* Act 
----------------------------+
00962  M01S00781.mtr43   ---| PTM3     LDD    RQ          RESET POINTER TO START OF LIST
Line S00001 Modification History
M01 (Added by) mtr43
Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00001.mtr43   +++| PTM3     LDD    CM
00964  M01S00002.mtr43   +++|          LMN    PTRF
00965  M01S00003.mtr43   +++|          ZJN    PCB2        IF *PTRF* ENTRY PRESENT
00966  M01S00004.mtr43   +++|          LDD    RQ          RESET POINTER TO START OF LIST
00967  M00S00782.mtr     +++|          STD    RC
00968  M00S00783.mtr     +++|          LJM    CRQX        RETURN
00969  M00S00784.mtr     +++| PCB      SPACE  4,10
00970  M00S00785.mtr     +++|**        PCB - COMPLETION BIT PROCESSOR.
00971  M00S00786.mtr     +++|*
00972  M00S00787.mtr     +++|*T, CM    12/  PCBF,12/,24/  AD,12/  LK
Figure CM

0111229 LK AD303536474859 AD PCBF

00973  M00S00788.mtr     +++|*         AD     ADDRESS OF WORD TO CHECK COMPLETION BIT.
00974  M00S00789.mtr     +++|*         LK     NEXT RECALL ENTRY.
00975  M00S00790.mtr     +++|
00976  M00S00791.mtr     +++|
00977  M00S00792.mtr     +++| PCB      LDD    CM+2        CHECK COMPLETION BIT
00978  M00S00793.mtr     +++| PCB1     SHN    14
00979  M00S00794.mtr     +++|          ADD    CM+3
00980  M00S00795.mtr     +++|          CRD    OR
00981  M00S00796.mtr     +++|          LDD    OR+4
00982  M00S00797.mtr     +++|          LPN    1
00983  M00S00798.mtr     +++|          NJN    PTM2        IF COMPLETE
00984  M00S00799.mtr     +++| PCB2     LJM    CRQ3        CHECK NEXT REQUEST
00985  M00S00800.mtr     +++|
00986  M00S00801.mtr     +++|*         COMPLETION BIT PROCESSOR FOR CME MAINFRAMES.
00987  M00S00802.mtr     +++|
00988  M00S00803.mtr     +++| PCB3     LDD    CM+2        SET R-REGISTER TO UPPER 12 BITS
00989  M00S00804.mtr     +++|          SHN    6
00990  M00S00805.mtr     +++|          STD    OR+1
00991  M00S00806.mtr     +++|          SHN    -14
00992  M00S00807.mtr     +++|          STD    OR
00993  M00S00808.mtr     +++|          LDC    0           GET UPPER HALF OF MACHINE SIZE/100B
00994  M00S00809.mtr     +++| PCBA     EQU    *-1
00995  M00S00810.mtr     +++|          SBD    OR
00996  M00S00811.mtr     +++|          MJN    PCB2        IF ADDRESS .GT. MACHINE SIZE
00997  M00S00812.mtr     +++|          NJN    PCB4        IF ADDRESS .LT. MACHINE SIZE
00998  M00S00813.mtr     +++|          LDD    CM+3
00999  M00S00814.mtr     +++|          SHN    -6
01000  M00S00815.mtr     +++|          ADD    OR+1
01001  M00S00816.mtr     +++|          STD    T0
01002  M00S00817.mtr     +++|          LDC    0           GET LOWER HALF OF MACHINE SIZE/100B
01003  M00S00818.mtr     +++| PCBB     EQU    *-1
01004  M00S00819.mtr     +++|          SBD    T0
01005  M00S00820.mtr     +++|          MJN    PCB2        IF ADDRESS .GT. MACHINE SIZE
01006  M00S00821.mtr     +++|          ZJN    PCB2        IF ADDRESS .EQ. MACHINE SIZE
01007  M00S00822.mtr     +++| PCB4     LRD    OR          LOAD R-REGISTER
01008  M00S00823.mtr     +++|          LDN    40          SET R-REGISTER BIT IN A
01009  M00S00824.mtr     +++|          UJN    PCB1        READ COMPLETION ADDRESS
01010  M00S00825.mtr     +++|          TITLE  PROCESS HARDWARE ERRORS.
01011  M00S00826.mtr     +++| PHE      SPACE  4,20
01012  M00S00827.mtr     +++|**        PHE - PROCESS HARDWARE ERRORS.
01013  M00S00828.mtr     +++|*
01014  M00S00829.mtr     +++|*         EXIT   (A) = 0 IF *1MB* CALL NOT REQUIRED.
01015  M00S00830.mtr     +++|*                    = 1 IF *1MB* WAS CALLED OR WAS ALREADY CALLED.
01016  M00S00831.mtr     +++|*
01017  M00S00832.mtr     +++|*         USES   CP, T4, CM - CM+4, CS - CS+4.
01018  M00S00833.mtr     +++|*
01019  M00S00834.mtr     +++|*         CALLS  FTN, ODW, PSE.
01020  M00S00835.mtr     +++|*
01021  M00S00836.mtr     +++|*         NOTE   *1MB* IS CALLED IF ONE OR MORE OF THE FOLLOWING
01022  M00S00837.mtr     +++|*                CONDITIONS HAVE BEEN DETECTED WHEN CHECKING THE
01023  M00S00838.mtr     +++|*                S/C REGISTERS AND THE *1MB* INHIBIT BIT IS NOT SET.
01024  M00S00839.mtr     +++|*                1)  A UNIQUE SINGLE BIT SECDED ERROR HAS OCCURRED.
01025  M00S00840.mtr     +++|*                2)  ERRORS OTHER THAN UNIQUE SINGLE BIT SECDED
01026  M00S00841.mtr     +++|*                    ERRORS HAVE OCCURRED.
01027  M00S00842.mtr     +++|*                3)  TOP-OF-HOUR PROCESSING HAS BEEN SPECIFIED.
Line S00843 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01028  M01S00843.ns2418  ---|
Line S00015 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01029  M01S00015.ns2418  +++|*
01030  M00S00844.mtr     +++|*                *1MB* IS CALLED FOR MAINTENANCE REGISTER PROCESSING
Line S00845 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01031  M01S00845.ns2418  ---|*                AND TIME PROCESSING IF THE MACHINE IS A CYBER
01032  M01S00846.ns2418  ---|*                815, 825, 835, 855.
Line S00016 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01033  M01S00016.ns2418  +++|*                AND TIME PROCESSING IF THE MACHINE IS A CYBER 180.
01034  M00S00847.mtr     +++|
01035  M00S00848.mtr     +++|
01036  M00S00849.mtr     +++| PHE      SUBR               ENTRY/EXIT
01037  M00S00850.mtr     +++|
Line S00851 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01038  M01S00851.ns2418  ---|*         ACCESS CYBER 815, 825, 835, 855 MAINTENANCE REGISTER.
Line S00017 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01039  M01S00017.ns2418  +++|*         CHECK CYBER 180 MAINTENANCE REGISTERS.
01040  M00S00852.mtr     +++|*
01041  M00S00853.mtr     +++|*         NOTE   THE FOLLWING CODE IS ALTERED BY *PRESET* TO PROCESS
01042  M00S00854.mtr     +++|*                HARDWARE ERRORS ON VARIOUS MAINFRAMES.
01043  M00S00855.mtr     +++|
01044  M00S00856.mtr     +++|
Line S00857 Modification History
M01 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00857.243l647 ---| PHEA     SCF    PHEX,MR     IF CHANNEL RESERVED BY ANOTHER PP
Line S00002 Modification History
M01 (Added by) 243l647
M02 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00002.ns2418  ---| PHEA     LDC    **
Line S00018 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00018.ns2418  +++| PHEA     LDC    **          (ADDRESS OF *DFT* CONTROL WORD)
Line S00003 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00003.243l647 +++|          CRD    CM          READ *DFT* CONTROL WORD
Line S00019 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01049  M01S00019.ns2418  +++| PHEF     LDC    **          (ADDRESS OF NOS REQUEST HEADER)
01050  M01S00020.ns2418  +++|          CRD    CS
Line S00004 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00004.243l647 +++|          LDD    CM+4
01052  M01S00005.243l647 +++|          SHN    21-2
01053  M01S00006.243l647 +++|          MJN    PHE0        IF NOT DEDICATED *DFT*
01054  M01S00007.243l647 +++|          LDD    CM+4
01055  M01S00008.243l647 +++|          LPN    1
01056  M01S00009.243l647 +++|          UJN    PHE3        CHECK FOR *1MB* CALL
01057  M01S00010.243l647 +++|
01058  M01S00011.243l647 +++| PHE0     SCF    PHEX,MR     IF CHANNEL RESERVED BY ANOTHER PP
01059  M00S00858.mtr     +++|          FNC    /IOU/MRSS,MR  SUMMARY STATUS
Line S00859 Modification History
M01 (Removed by) ns2541
Seq #  *Modification Id* Act 
----------------------------+
01060  M01S00859.ns2541  ---|          AJM    PHE1,MR     IF CHANNEL HUNG ACTIVE
01061  M01S00860.ns2541  ---|          ACN    MR
01062  M01S00861.ns2541  ---|          IAN    MR          READ SUMMARY STATUS
Line S00001 Modification History
M01 (Added by) ns2541
Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00001.ns2541  +++|          IJM    PHE1,MR     IF CHANNEL RESPONDED TO FUNCTION
01064  M01S00002.ns2541  +++|          DCN    MR+40
01065  M01S00003.ns2541  +++|          CCF    *,MR
01066  M01S00004.ns2541  +++|          UJN    PHEX        RETURN
01067  M01S00005.ns2541  +++|
01068  M01S00006.ns2541  +++| PHE1     ACN    MR
01069  M01S00007.ns2541  +++|          IAN    MR          READ SUMMARY STATUS
01070  M00S00862.mtr     +++|          DCN    MR+40
01071  M00S00863.mtr     +++|          CFM    PHE2,MR     IF NO ERRORS OCCURRED
Line S00864 Modification History
M01 (Removed by) ns2541
Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00864.ns2541  ---| PHE1     LDN    1           ERROR IN READING SS REGISTER
Line S00008 Modification History
M01 (Added by) ns2541
Seq #  *Modification Id* Act 
----------------------------+
01073  M01S00008.ns2541  +++|          LDN    1           ERROR IN READING SS REGISTER
01074  M00S00865.mtr     +++| PHE2     CCF    *,MR
01075  M00S00866.mtr     +++|*         UJN    PHE3        PROCESS *1MB* CALL
01076  M00S00867.mtr     +++|
01077  M00S00868.mtr     +++|*         ACCESS CYBER 70, 170, 700 SERIES AND 865/875 S/C REGISTER.
01078  M00S00869.mtr     +++|
01079  M00S00870.mtr     +++| PHEE     RMT
01080  M00S00871.mtr     +++|          LOC    PHEA
01081  M00S00872.mtr     +++|          LDC    FCTE        TEST ERROR FUNCTION
01082  M00S00873.mtr     +++|*         LDC    FCTB        (CYBER 70 NON-SCR SIMULATION)
01083  M00S00874.mtr     +++|          FJM    PHEX,CH     IF CHANNEL HUNG FULL
01084  M00S00875.mtr     +++|*         FJM    PHEX,15     (CYBER 70)
01085  M00S00876.mtr     +++|          RJM    ODW
01086  M00S00877.mtr     +++|          UJN    PHE3        SAVE ERROR STATUS
01087  M00S00878.mtr     +++|          LOC    *O
01088  M00S00879.mtr     +++| PHEE     RMT
01089  M00S00880.mtr     +++|
01090  M00S00881.mtr     +++|*         SAVE ERROR PRESENT STATUS.
01091  M00S00882.mtr     +++|*         CHECK IF *1MB* CALL IS NEEDED.
01092  M00S00883.mtr     +++|
01093  M00S00884.mtr     +++| PHE3     STD    T0          SAVE ERROR STATUS
Line S00021 Modification History
M01 (Added by) ns2418
M02 (Removed by) ns2418a
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00021.ns2418a ---|          ADD    CS+4        INCLUDE *DFT* REQUEST PRESENT STATUS
Line S00001 Modification History
M01 (Added by) ns2418a
Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00001.ns2418a +++| PHEG     ADD    CS+4        INCLUDE *DFT* REQUEST PRESENT STATUS
01096  M01S00002.ns2418a +++|*         PSN                (NON-CYBER 180 MAINFRAME)
01097  M00S00885.mtr     +++|          ADM    PHED+2
Line S00886 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01098  M01S00886.ns2418  ---|          ZJN    PHEX        IF *1MB* CALL NOT REQUIRED
Line S00022 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00022.ns2418  +++|          ZJN    PHE4.1      IF *1MB* CALL NOT REQUIRED
01100  M00S00887.mtr     +++|          LDD    SC          CHECK INHIBIT BIT
01101  M00S00888.mtr     +++|          CRD    CS
01102  M00S00889.mtr     +++|          LDD    CS
01103  M00S00890.mtr     +++|          SHN    0-13
Line S00891 Modification History
M01 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00891.243l647 ---|          NJN    PHEX        IF *1MB* ALREADY CALLED
Line S00012 Modification History
M01 (Added by) 243l647
M02 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00012.ns2418  ---|          NJP    PHEX        IF *1MB* ALREADY CALLED
Line S00023 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00023.ns2418  +++|          NJN    PHE4.1      IF *1MB* ALREADY CALLED
01107  M00S00892.mtr     +++|          LDD    T0          GET ERROR STATUS
Line S00893 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00893.ns2418  ---|          UJN    PHE5        PROCESS CYBER 815/825/835/855 ERRORS
01109  M01S00894.ns2418  ---|
Line S00024 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00024.ns2418  +++|          UJN    PHE5        PROCESS CYBER 180 ERROR
01111  M00S00895.mtr     +++|*         ZJN    PHE5        (CYBER 170, 865/875 ERROR/TIME PROCESSING)
01112  M00S00896.mtr     +++|*         UJN    PHE5        (CYBER 70 AND NO SIMULATION)
01113  M00S00897.mtr     +++| PHEB     EQU    *-1
Line S00025 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00025.ns2418  +++|
01115  M00S00898.mtr     +++|          RJM    PSE         PROCESS SINGLE BIT ERRORS
01116  M00S00899.mtr     +++|          LDC    FCTE        TEST FOR OTHER ERRORS
01117  M00S00900.mtr     +++|          RJM    ODW
01118  M00S00901.mtr     +++|          STD    T4
01119  M00S00902.mtr     +++|          LDC    FCCL+DSBL   ENABLE SINGLE BIT LOGGING
01120  M00S00903.mtr     +++|          RJM    ODW
01121  M00S00904.mtr     +++|          UJN    PHE4        TEST FOR NEED TO CALL *1MB*
01122  M00S00905.mtr     +++|
01123  M00S00906.mtr     +++|*         PSN                (CYBER 176)
01124  M00S00907.mtr     +++| PHEC     EQU    *-1
01125  M00S00908.mtr     +++|          LDC    FCCL+DLSL   ENABLE 176 LCME SINGLE BIT LOGGING
01126  M00S00909.mtr     +++|          RJM    ODW
01127  M00S00910.mtr     +++| PHE4     LDM    PHED+2      TEST FOR NEED TO CALL *1MB*
01128  M00S00911.mtr     +++|          ADD    T4
Line S00912 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00912.ns2418  ---|          ZJN    PHE6        IF TIME/ERROR PROCESSING NOT REQUIRED
Line S00026 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01130  M01S00026.ns2418  +++|          NJN    PHE5        IF TIME/ERROR PROCESSING REQUIRED
01131  M01S00027.ns2418  +++| PHE4.1   LJM    PHEX        RETURN
01132  M00S00913.mtr     +++|
Line S00914 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00914.ns2418  ---|*         CALL  *1MB* VIA *1MP*.
Line S00028 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01134  M01S00028.ns2418  +++|*         CALL *1MB* VIA *1MP*.
01135  M00S00915.mtr     +++|
01136  M00S00916.mtr     +++| PHE5     LDD    FT          SET INHIBIT BIT
01137  M00S00917.mtr     +++|          RAD    CS
01138  M00S00918.mtr     +++|          LDD    SC
01139  M00S00919.mtr     +++|          CWD    CS
01140  M00S00920.mtr     +++|          LDD    NC          SYSTEM CONTROL POINT NUMBER
Line S00921 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00921.271l716 ---|          SHN    7
01142  M00S00922.mtr     +++|          STD    CP
01143  M00S00923.mtr     +++|          LDD    OF          PP0 OUTPUT REGISTER ADDRESS
01144  M00S00924.mtr     +++|          ADN    1
01145  M00S00925.mtr     +++|          CWM    PHED,ON     WRITE PP CALL TO MESSAGE BUFFER
01146  M00S00926.mtr     +++|          LDN    0
01147  M00S00927.mtr     +++|          STD    CM+1
01148  M00S00928.mtr     +++|          MONITOR  RPPM      REQUEST PP
01149  M00S00929.mtr     +++|          EXECUTE  1MP,=
01150  M00S00930.mtr     +++|*         LDN    SPLG        RESTORE LOGGING FUNCTION
01151  M00S00931.mtr     +++|          ERRNZ  SPLG        CODE DEPENDS ON VALUE
01152  M00S00932.mtr     +++|          STM    PHED+2
01153  M00S00933.mtr     +++|          STM    PHED+4
01154  M00S00934.mtr     +++|          LDN    1           SET ERROR FOUND
Line S00935 Modification History
M01 (Removed by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01155  M01S00935.ns2418  ---| PHE6     LJM    PHEX        EXIT
Line S00029 Modification History
M01 (Added by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00029.ns2418  +++|          UJN    PHE4.1      RETURN
01157  M00S00936.mtr     +++|
01158  M00S00937.mtr     +++| PHED     VFD    18/3L1MP,6/**,12/0,24/0
01159  M00S00938.mtr     +++| PSE      SPACE  4,10
01160  M00S00939.mtr     +++|**        PSE - PROCESS SINGLE BIT ERRORS.
01161  M00S00940.mtr     +++|*
01162  M00S00941.mtr     +++|*         ENTRY  (PSEA) = CORRECT MAINFRAME TABLE INDEX.
01163  M00S00942.mtr     +++|*
01164  M00S00943.mtr     +++|*         CALLS  BIS, ODW.
01165  M00S00944.mtr     +++|
01166  M00S00945.mtr     +++|
01167  M00S00946.mtr     +++| PSE      SUBR               ENTRY/EXIT
01168  M00S00947.mtr     +++|          LDC    FCSB+DSBL   DISABLE CM SINGLE BIT LOGGING
01169  M00S00948.mtr     +++|          RJM    ODW
01170  M00S00949.mtr     +++|          LDC    FCTB+SECD   TEST FOR SECDED ERROR
01171  M00S00950.mtr     +++|          RJM    ODW
01172  M00S00951.mtr     +++|          ZJN    PSE1        IF NO SECDED ERROR
01173  M00S00952.mtr     +++|          LDC    FCTB+SDSC   TEST FOR DOUBLE BIT ERROR
01174  M00S00953.mtr     +++|          RJM    ODW
01175  M00S00954.mtr     +++|          NJN    PSE1        IF DOUBLE BIT ERROR
01176  M00S00955.mtr     +++| PSEA     LDN    0           PASS MAINFRAME TABLE INDEX
01177  M00S00956.mtr     +++|*         LDN    1           (CYBER 176)
01178  M00S00957.mtr     +++|          RJM    BIS         SEARCH FOR MATCHING IDENTIFIER
01179  M00S00958.mtr     +++| PSE1     UJN    PSEX        RETURN
01180  M00S00959.mtr     +++|*         PSN                (CYBER 176)
01181  M00S00960.mtr     +++| PSEB     EQU    *-1
01182  M00S00961.mtr     +++|
01183  M00S00962.mtr     +++|*         PROCESS CYBER 176 LCM ERRORS.
01184  M00S00963.mtr     +++|
01185  M00S00964.mtr     +++|          LDC    FCSB+DLSL   DISABLE LCME SINGLE BIT LOGGING
01186  M00S00965.mtr     +++|          RJM    ODW
01187  M00S00966.mtr     +++|          LDC    FCTB+LSCD   TEST FOR LCME SECDED ERROR
01188  M00S00967.mtr     +++|          RJM    ODW
01189  M00S00968.mtr     +++|          ZJN    PSEX        IF NO LCME SECDED ERROR
01190  M00S00969.mtr     +++|          LDC    FCTB+LDSC   TEST FOR LCME DOUBLE SECDED ERROR
01191  M00S00970.mtr     +++|          RJM    ODW
01192  M00S00971.mtr     +++|          NJN    PSE2        IF DOUBLE BIT ERROR
01193  M00S00972.mtr     +++|          LDN    UIDL        ADD OFFSET FOR LCME ID TABLE
01194  M00S00973.mtr     +++|          RAM    BISD
01195  M00S00974.mtr     +++|          LDN    2           LOAD IDENTIFIER FOR 176 LCME
01196  M00S00975.mtr     +++|          RJM    BIS         SEARCH FOR MATCHING IDENTIFIER
01197  M00S00976.mtr     +++|          LCN    UIDL        RESTORE OFFSET FOR CM ID TABLE
01198  M00S00977.mtr     +++|          RAM    BISD
01199  M00S00978.mtr     +++| PSE2     LJM    PSEX        EXIT
01200  M00S00979.mtr     +++| ODW      SPACE  4,10
01201  M00S00980.mtr     +++|**        ODW - OUTPUT DESCRIPTOR WORD.
01202  M00S00981.mtr     +++|*
01203  M00S00982.mtr     +++|*         ENTRY  (A) = DESCRIPTOR WORD.
01204  M00S00983.mtr     +++|*
01205  M00S00984.mtr     +++|*         EXIT   (A) = SCR REPLY WORD.
01206  M00S00985.mtr     +++|
01207  M00S00986.mtr     +++|
01208  M00S00987.mtr     +++| ODW      SUBR               ENTRY/EXIT
01209  M00S00988.mtr     +++|          OAN    CHSC        OUTPUT DESCRIPTOR WORD
01210  M00S00989.mtr     +++|*         OAN    15          (CYBER 70)
01211  M00S00990.mtr     +++| ODWA     EQU    *-1
01212  M00S00991.mtr     +++|          IAN    CHSC        INPUT SCR REPLY WORD
01213  M00S00992.mtr     +++|*         IAN    15          (CYBER 70)
01214  M00S00993.mtr     +++| ODWB     EQU    *-1
01215  M00S00994.mtr     +++|          UJN    ODWX        EXIT
01216  M00S00995.mtr     +++| BIS      SPACE  4,10
01217  M00S00996.mtr     +++|**        BIS - BUILD ID AND SEARCH TABLE.
01218  M00S00997.mtr     +++|*
01219  M00S00998.mtr     +++|*         ENTRY  (A) = 0 - BUILD ID FOR CYBER 170 AND 865/875.
01220  M00S00999.mtr     +++|*                      1 - BUILD ID FOR 176 CM.
01221  M00S01000.mtr     +++|*                      2 - BUILD ID FOR 176 LCME.
01222  M00S01001.mtr     +++|*
01223  M00S01002.mtr     +++|*         EXIT   (CM-CM+4) = ERROR COUNTS IN *CECL* UPDATED.
01224  M00S01003.mtr     +++|*
01225  M00S01004.mtr     +++|*         USES   T1, T2, T4, T6, T7, CM - CM+4, CN - CN+4, CS - CS+4.
01226  M00S01005.mtr     +++|*
01227  M00S01006.mtr     +++|*         CALLS  ODW.
01228  M00S01007.mtr     +++|
01229  M00S01008.mtr     +++|
01230  M00S01009.mtr     +++| BIS8     AOD    CM+4        INITIALIZE ID ERROR COUNT
01231  M00S01010.mtr     +++|          LDD    T6          STORE UNIQUE ID INTO TABLE
01232  M00S01011.mtr     +++|          SHN    14
01233  M00S01012.mtr     +++|          ADD    T4
01234  M00S01013.mtr     +++|          CWD    CM
01235  M00S01014.mtr     +++|          LDD    T2          SET APPROPRIATE FUNCTION BIT
01236  M00S01015.mtr     +++|          LMN    2
01237  M00S01016.mtr     +++|          ZJN    BIS9        IF LCME SECDED ERROR
01238  M00S01017.mtr     +++|          LDN    SPCS-SPLS   SET CM SECDED ERROR FUNCTION BIT
01239  M00S01018.mtr     +++| BIS9     ADN    SPLS        SET LCME SECDED ERROR FUNCTION BIT
01240  M00S01019.mtr     +++|          RAM    PHED+2
01241  M00S01020.mtr     +++|
01242  M00S01021.mtr     +++| BIS      SUBR               ENTRY/EXIT
01243  M00S01022.mtr     +++|          STD    T2          SAVE ID BUILD TYPE
01244  M00S01023.mtr     +++|          LDM    TBIS,T2     SAVE FWA OF ID BUILD ROUTINE
01245  M00S01024.mtr     +++|          STD    T7
01246  M00S01025.mtr     +++|          LDN    ZERL        CLEAR FIELD FOR BUILDING ID
01247  M00S01026.mtr     +++|          CRD    CM
01248  M00S01027.mtr     +++|
01249  M00S01028.mtr     +++|*         BUILD ID FOR APPROPRIATE MACHINE.
01250  M00S01029.mtr     +++|
01251  M00S01030.mtr     +++|          LDN    CM          INITIALIZE ID BUILD ADDRESS
01252  M00S01031.mtr     +++|          STD    T6
01253  M00S01032.mtr     +++| BIS1     AOD    T7
01254  M00S01033.mtr     +++|          LDI    T7          GET NEXT SCR WORD INFORMATION
01255  M00S01034.mtr     +++|          ZJN    BIS2        IF ID BUILD COMPLETE
01256  M00S01035.mtr     +++|          STM    BISA        SET APPROPRIATE MASK FOR SCR BYTES
01257  M00S01036.mtr     +++|          AOD    T7
01258  M00S01037.mtr     +++|          LDI    T7          GET SHIFT COUNT
01259  M00S01038.mtr     +++|          LPN    77
01260  M00S01039.mtr     +++|          ADC    SHNI        BUILD SHIFT INSTRUCTION
01261  M00S01040.mtr     +++|          STM    BISB
01262  M00S01041.mtr     +++|          LDI    T7          GET SCR WORD FROM TABLE AND READ
01263  M00S01042.mtr     +++|          SHN    -6
01264  M00S01043.mtr     +++|          LPN    37
01265  M00S01044.mtr     +++|          IFNE   FCRD,0,1    (ADJUST IF READ FUNCTION CHANGES)
01266  M00S01045.mtr     +++|          ADC    FCRD
01267  M00S01046.mtr     +++|          RJM    ODW
01268  M00S01047.mtr     +++|          LPC    *
01269  M00S01048.mtr     +++| BISA     EQU    *-1         MASK OFF DESIRED SCR BITS
01270  M00S01049.mtr     +++|          SHN    0
01271  M00S01050.mtr     +++| BISB     EQU    *-1         POSITION FOR ID BIT MERGE
01272  M00S01051.mtr     +++|          RAI    T6          MERGE ID BITS
01273  M00S01052.mtr     +++|          LDI    T7          CONTINUE ID BUILD IN APPROPRIATE BYTE
01274  M00S01053.mtr     +++|          SHN    0-13
01275  M00S01054.mtr     +++|          RAD    T6
01276  M00S01055.mtr     +++|          UJN    BIS1        GET NEXT SCR WORD
01277  M00S01056.mtr     +++|
01278  M00S01057.mtr     +++|*         SCAN UNIQUE ID TABLE BACKWARDS TO SEE IF
01279  M00S01058.mtr     +++|*         THERE IS ALREADY AN ENTRY FOR THIS ERROR.
01280  M00S01059.mtr     +++|
01281  M00S01060.mtr     +++| BIS2     LDN    UIDL        UNIQUE ID TABLE LENGTH
01282  M00S01061.mtr     +++|          STD    T1
01283  M00S01062.mtr     +++| BIS3     SOD    T1          DECREMENT CURRENT ENTRY OFFSET
01284  M00S01063.mtr     +++|          MJN    BIS5        IF SCAN COMPLETE
01285  M00S01064.mtr     +++|          ADC    **          FWA OF UNIQUE ID TABLE
01286  M00S01065.mtr     +++| BISC     EQU    *-1
01287  M00S01066.mtr     +++| BISD     ADN    0           ADD OFFSET FOR APPROPRIATE ID TABLE
01288  M00S01067.mtr     +++|          CRD    CN
01289  M00S01068.mtr     +++|          STD    T4          STORE UNIQUE ID TABLE ADDRESS
01290  M00S01069.mtr     +++|          SHN    -14
01291  M00S01070.mtr     +++|          STD    T6
01292  M00S01071.mtr     +++|          LDD    CN          TEST IF ENTRY IS AVAILABLE
01293  M00S01072.mtr     +++|          ADD    CN+1
01294  M00S01073.mtr     +++|          ADD    CN+2
01295  M00S01074.mtr     +++|          NJN    BIS4        IF LOCATION CONTAINS AN IDENTIFIER
01296  M00S01075.mtr     +++|          LJM    BIS8        IF LOCATION IS AVAILABLE
01297  M00S01076.mtr     +++|
01298  M00S01077.mtr     +++| BIS4     LDD    CM          TEST IF BYTE 0 MATCHES
01299  M00S01078.mtr     +++|          LMD    CN
01300  M00S01079.mtr     +++|          NJN    BIS3        IF NO MATCH
01301  M00S01080.mtr     +++|          LDD    CM+1        TEST IF BYTE 1 MATCHES
01302  M00S01081.mtr     +++|          LMD    CN+1
01303  M00S01082.mtr     +++|          NJN    BIS3        IF NO MATCH
01304  M00S01083.mtr     +++|          LDD    CM+2        TEST IF BYTE 2 MATCHES
01305  M00S01084.mtr     +++|          LMD    CN+2
01306  M00S01085.mtr     +++|          NJN    BIS3        IF NO MATCH
01307  M00S01086.mtr     +++|
01308  M00S01087.mtr     +++|*         THE NEWLY-BUILT IDENTIFIER MATCHES A TABLE ENTRY.
01309  M00S01088.mtr     +++|
01310  M00S01089.mtr     +++|          LDN    77
01311  M00S01090.mtr     +++|          LMD    CN+4
01312  M00S01091.mtr     +++|          ZJN    BIS5        IF REACHED THRESHOLD
01313  M00S01092.mtr     +++|          AOD    CN+4        INCREMENT COUNTER
01314  M00S01093.mtr     +++|          LDD    T6          REWRITE UPDATED ID AND COUNT
01315  M00S01094.mtr     +++|          SHN    14
01316  M00S01095.mtr     +++|          ADD    T4
01317  M00S01096.mtr     +++|          CWD    CN
01318  M00S01097.mtr     +++|
01319  M00S01098.mtr     +++|*         TEST WHICH RANK AND/OR SECDED BITS TO CLEAR.
01320  M00S01099.mtr     +++|
01321  M00S01100.mtr     +++| BIS5     AOD    T7          ISSUE SECDED CLEARING FUNCTION(S)
01322  M00S01101.mtr     +++|          LDI    T7
01323  M00S01102.mtr     +++|          RJM    ODW
01324  M00S01103.mtr     +++|          AOD    T7
Line S01104 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01325  M01S01104.271l716 ---|          LDI    T7
01326  M01S01105.271l716 ---|          ZJN    BIS6        IF CYBER 170, 865/875 SINGLE BIT ERROR
Line S00031 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01327  M01S00031.271l716 +++| BISE     LDI    T7
01328  M01S00032.271l716 +++|*         UJN    BIS6        (CYBER 170 OR 865/875)
01329  M00S01106.mtr     +++|          RJM    ODW         SET C176 CM/LCME RANK II CLEAR
01330  M00S01107.mtr     +++|          AOD    T7
01331  M00S01108.mtr     +++|          LDI    T7          CLEAR C176 CM/LCME RANK II CLEAR
01332  M00S01109.mtr     +++|          RJM    ODW
01333  M00S01110.mtr     +++| BIS6     LDD    T2          INCREMENT APPROPRIATE ERROR COUNT
01334  M00S01111.mtr     +++|          SHN    -1
01335  M00S01112.mtr     +++|          ADN    CM+3
01336  M00S01113.mtr     +++|          STD    T2
01337  M00S01114.mtr     +++|          LDK    CECL
01338  M00S01115.mtr     +++|          CRD    CM
01339  M00S01116.mtr     +++|          LDI    T2
01340  M00S01117.mtr     +++|          LMC    7777
01341  M00S01118.mtr     +++|          ZJN    BIS7        IF CM/LCME ERROR COUNT THRESHOLD REACHED
01342  M00S01119.mtr     +++|          AOI    T2
01343  M00S01120.mtr     +++|          LDK    CECL
01344  M00S01121.mtr     +++|          CWD    CM          UPDATE *CECL*
01345  M00S01122.mtr     +++| BIS7     LJM    BISX        RETURN
01346  M00S01123.mtr     +++|
01347  M00S01124.mtr     +++|*         TBIS - TABLE OF ID BUILD ENTRY POINTS.
01348  M00S01125.mtr     +++|
01349  M00S01126.mtr     +++| TBIS     BSS    0
01350  M00S01127.mtr     +++|          LOC    0
Line S01128 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01351  M01S01128.271l716 ---|          CON    BISE-1      BUILD ID FOR LOWER C170 CM.
Line S00033 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01352  M01S00033.271l716 +++|          CON    BISF-1      BUILD ID FOR LOWER C170 CM.
01353  M00S01129.mtr     +++|          CON    BISF-1      BUILD ID FOR C176 CM.
01354  M00S01130.mtr     +++|          CON    BISG-1      BUILD ID FOR C176 LCME.
01355  M00S01131.mtr     +++|          LOC    *O
01356  M00S01132.mtr     +++|
01357  M00S01133.mtr     +++|*         THE TABLE FIELDS BELOW CONTAIN THE FOLLOWING INFORMATION.
01358  M00S01134.mtr     +++|*
01359  M00S01135.mtr     +++|*         12/MASK, 1/INCR, 5/SCR WORD, 6/SHIFT.
01360  M00S01136.mtr     +++|*         WHERE INCR = 0, IF NO INCREMENT TO NEXT ID CELL.
01361  M00S01137.mtr     +++|*                    = 1, IF INCREMENT REQUIRED.
01362  M00S01138.mtr     +++|*               SHIFT = BIT ALIGNMENT NEEDED TO MERGE SCR BITS
01363  M00S01139.mtr     +++|*                       INTO ID.
01364  M00S01140.mtr     +++|*
01365  M00S01141.mtr     +++|*         FOLLOWING THE TERMINATOR FOR EACH ID TYPE ARE THE
01366  M00S01142.mtr     +++|*         ERROR-CLEARING FUNCTION CODES TO BE ISSUED TO THE SCR.
01367  M00S01143.mtr     +++|*         EACH FUNCTION USES 12 BITS.
01368  M00S01144.mtr     +++|
Line S01145 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01369  M01S01145.271l716 ---| BISE     BSS    0           C170 CM ID INFORMATION
01370  M01S01146.271l716 ---|          VFD    12/6000,1/0,5/CSEW,6/0
01371  M01S01147.271l716 ---|          VFD    12/77,1/0,5/CMAW,6/4
01372  M01S01148.271l716 ---|          VFD    12/7400,1/1,5/SYNW,6/-10
01373  M01S01149.271l716 ---|          VFD    12/360,1/0,5/SYNW,6/4
01374  M01S01150.271l716 ---|          CON    0           C170 ID BUILD TERMINATOR
01375  M01S01151.271l716 ---|          CON    FCCL+SECD
01376  M01S01152.271l716 ---|          CON    0           TERMINATOR FOR C170 CLEARING FUNCTIONS
01377  M01S01153.271l716 ---|
01378  M00S01154.mtr     +++| BISF     BSS    0           C176 CM ID INFORMATION
01379  M00S01155.mtr     +++|          VFD    12/7777,1/1,5/LCMW,6/0
01380  M00S01156.mtr     +++|          VFD    12/77,1/0,5/CMAW,6/6
01381  M00S01157.mtr     +++|          VFD    12/7700,1/1,5/SYNW,6/-6
01382  M00S01158.mtr     +++|          VFD    12/60,1/0,5/SYNW,6/6
01383  M00S01159.mtr     +++|          CON    0           C176 CM ID BUILD TERMINATOR
01384  M00S01160.mtr     +++|          CON    FCCL+SECD
01385  M00S01161.mtr     +++|          CON    FCSB+CCRT
01386  M00S01162.mtr     +++|          CON    FCCL+CCRT
Line S00034 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00034.271l716 +++| BISFL    EQU    *-BISF      LENGTH OF TABLE
01388  M01S00035.271l716 +++|
01389  M01S00036.271l716 +++|*BISF     BSS    0           C170 CM ID INFORMATION
01390  M01S00037.271l716 +++|*         VFD    12/6000,1/0,5/CSEW,6/0
01391  M01S00038.271l716 +++|*         VFD    12/77,1/0,5/CMAW,6/4
01392  M01S00039.271l716 +++|*         VFD    12/7400,1/1,5/SYNW,6/-10
01393  M01S00040.271l716 +++|*         VFD    12/360,1/0,5/SYNW,6/4
01394  M01S00041.271l716 +++|*         CON    0           C170 ID BUILD TERMINATOR
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/mtr.txt ยท Last modified: (external edit)