Deck MTR

62 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.mtr     +++|          IDENT  MTR,0
00002  M01S00002.mtr     +++|          PERIPH J
00003  M01S00003.mtr     +++|          BASE   MIXED

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.271l716 ---|          SST    FTN,IA,MA,PPR,TH,.EST

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00001.271l750 ---|          SST    FTN,IA,PPR,TH,.EST
00006  M01S00001.271l750 +++|          SST    FTN,IA,PPR,TH,.EST,SSCP
00007  M01S00005.mtr     +++|*COMMENT  MTR - PPU MONITOR.

Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00006.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP.  1982.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00007.mtr     +++|          TITLE  MTR - PP MONITOR.
00011  M01S00008.mtr     +++|          SPACE  4
00012  M01S00009.mtr     +++|***       MTR - PP MONITOR.
00013  M01S00010.mtr     +++|*         G. R. MANSFIELD.   70/12/13.
00014  M01S00011.mtr     +++|*         R. E. TATE.        76/11/10.
00015  M01S00012.mtr     +++|          SPACE  4
00016  M01S00013.mtr     +++|***              *MTR* IS LOADED INTO PP 0 AT DEAD START TIME AND
00017  M01S00014.mtr     +++|*         REMAINS THERE FOR THE DURATION OF SYSTEM EXECUTION.
00018  M01S00015.mtr     +++|*
00019  M01S00016.mtr     +++|*                *MTR* PERFORMS THE FOLLOWING FUNCTIONS.
00020  M01S00017.mtr     +++|*         1.  PROCESS CERTAIN PPU REQUESTS.
00021  M01S00018.mtr     +++|*         2.  ALLOCATION OF CENTRAL MEMORY.
00022  M01S00019.mtr     +++|*         3.  MAINTAIN TIME OF DAY AND DATE.
00023  M01S00020.mtr     +++|*         4.  MAINTAIN THE REAL TIME CLOCK.
00024  M01S00021.mtr     +++|*         5.  CHECK THE CONTENTS OF (RA+1) OF ACTIVE CENTRAL
00025  M01S00022.mtr     +++|*                PROGRAMS FOR SYSTEM REQUESTS.
00026  M01S00023.mtr     +++|*
00027  M01S00024.mtr     +++|*         *MTR* INPUT REGISTER.
00028  M01S00025.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00026.273l780 ---|*T, IR    18/ *MTR*,6/ CP,36/0

Figure IR

00030  M01S00001.273l780 +++|*T, IR    18/ *MTR*,6/ SC,36/0

Figure IR

00031  M01S00027.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00028.273l780 ---|*         CP     CONTROL POINT FOR MONITOR FUNCTION BEING PERFORMED.
00033  M01S00002.273l780 +++|*         SC     SYSTEM CONTROL POINT NUMBER.
00034  M01S00029.mtr     +++|*
00035  M01S00030.mtr     +++|*         *MTR* MAINTAINS THE FOLLOWING DATA IN THE
00036  M01S00031.mtr     +++|*         STATISTICAL DATA AREA.
00037  M01S00032.mtr     +++|*
00038  M01S00033.mtr     +++|*T, MTRS  12/0,12/ CLOCK,12/ MXN,12/ WCT,12/ CCT

Figure MTRS

00039  M01S00034.mtr     +++|*
00040  M01S00035.mtr     +++|*         CLOCK  COUNT OF TIMES *TIM* CALLED AND CLOCK UPDATE MISSED.
00041  M01S00036.mtr     +++|*         MXN    WORST CASE TIME TO DO AN MXN.  (MICRO SECONDS)
00042  M01S00037.mtr     +++|*         WCT    WORST CASE CYCLE TIME.  (MILLISECONDS)
00043  M01S00038.mtr     +++|*         CCT    CURRENT CYCLE TIME.  (MILLISECONDS)
00044  M01S00039.mtr     +++|          SPACE  4
00045  M01S00040.mtr     +++|*CALL     COMPMAC
00046  M01S00001.mtr54   +++|*CALL     COMPIOU
00047  M01S00041.mtr     +++|*CALL     COMSCPS
00048  M01S00042.mtr     +++|*CALL     COMSMSC
00049  M01S00043.mtr     +++|          QUAL   DSL
00050  M01S00044.mtr     +++|*CALL     COMSDSL
00051  M01S00045.mtr     +++|          QUAL   *
00052  M01S00001.ns2418  +++|*CALL     COMSDFT
00053  M01S00001.243l647 +++|*CALL     COMSDST
00054  M01S00002.271l750 +++|*CALL     COMSIOU
00055  M01S00046.mtr     +++|*CALL     COMSJCE
00056  M01S00002.271l716 +++|          LIST   X
00057  M01S00047.mtr     +++|*CALL     COMSMTR
00058  M01S00003.271l716 +++|          LIST   *
00059  M01S00048.mtr     +++|*CALL     COMSMST
00060  M01S00049.mtr     +++|*CALL     COMSPIM
00061  M01S00004.271l716 +++|*CALL     COMSPRD
00062  M01S00050.mtr     +++|          QUAL   REM
00063  M01S00051.mtr     +++|*CALL     COMSREM

Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00052.271l716 ---|          QUAL
00065  M01S00005.271l716 +++|          QUAL   *
00066  M01S00053.mtr     +++|*CALL     COMSSSD
00067  M01S00054.mtr     +++|          QUAL   MSP
00068  M01S00055.mtr     +++|*CALL     COMSMSP

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00056.271l716 ---|          QUAL
00070  M01S00006.271l716 +++|          QUAL   *
00071  M01S00057.mtr     +++|*CALL     COMSSCR
00072  M01S00058.mtr     +++|          QUAL   IOU
00073  M01S00059.mtr     +++|*CALL     COMSIOU
00074  M01S00060.mtr     +++|          QUAL   *
00075  M01S00061.mtr     +++|          SPACE  4
00076  M01S00062.mtr     +++|****      DIRECT LOCATION ASSIGNENTS.
00077  M01S00063.mtr     +++|
00078  M01S00064.mtr     +++|
00079  M01S00065.mtr     +++|          ORG    0
00080  M01S00066.mtr     +++|
00081  M01S00067.mtr     +++| T0       CON    PRS-1       TEMPORARY STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00068.271l716 ---| T1       CON    0

Seq #  *Modification Id* Act 
----------------------------+
00083  M03S00069.271l716 ---| T2       CON    20D*10B     SET FOR PRS

Seq #  *Modification Id* Act 
----------------------------+
00084  M03S00001.271l716 ---| JD       EQU    T1 - T1+4   JULIAN DATE

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00001.271l716 ---| PD       EQU    T1 - T1+4   PACKED DATE AND TIME (*PDTL*)
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
00090  M01S00002.251l664 +++| T2       CON    0
00091  M01S00070.mtr     +++| T3       CON    0
00092  M01S00071.mtr     +++| T4       CON    0
00093  M01S00072.mtr     +++| T5       CON    0
00094  M01S00073.mtr     +++| T6       CON    0

Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00003.253l688 ---| PD       EQU    JD+5 - JD+11  PACKED DATE AND TIME

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00002.271l716 ---| TI       EQU    PD+5 - PD+11  DISPLAY CODE TIME (*TIML*)
00097  M01S00074.mtr     +++| T7       CON    0
00098  M01S00075.mtr     +++|
00099  M01S00076.mtr     +++|
00100  M01S00077.mtr     +++| CM       VFD    60/0        CM WORD BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00004.253l688 ---| TI       EQU    JD+12 - JD+16  TIME

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00078.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00079.271l716 ---| T8       CON    TRELL-2     TEMPORARY STORAGE - SET FOR PRS

Seq #  *Modification Id* Act 
----------------------------+
00104  M03S00080.271l716 ---| T9       CON    0           TEMPORARY STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00105  M03S00081.271l716 ---|          CON    0           TEMPORARY STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00005.271l716 ---|          CON    0           (TEMPORARY - USED BY DATE/TIME AND *DSWM*)

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00006.271l716 ---|          CON    0           (TEMPORARY - USED BY DATE/TIME AND *DSWM*)
00108  M01S00011.271l716 +++| TI       EQU    CM - CM+4   DISPLAY CODE TIME (*TIML*)
00109  M01S00012.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00013.273l780 ---| T8       CON    TRELL-2     TEMPORARY STORAGE - SET FOR *PRS*
00111  M01S00003.273l780 +++| T8       CON    0           TEMPORARY STORAGE
00112  M01S00014.271l716 +++| MB       CON    0,0         MEMORY BLOCKS - TEMPORARY
00113  M01S00082.mtr     +++|
00114  M01S00083.mtr     +++|
00115  M01S00084.mtr     +++| CN       VFD    60/0        CM WORD BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00007.253l688 ---| DT       EQU    JD+17 - JD+23  DATE

Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00085.253l688 ---|
00118  M01S00086.mtr     +++| LS       CON    7777        LATEST SECOND COUNT

Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00087.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00088.271l716 ---| LO       CON    0           LAST EST ORDINAL + 1

Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00089.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00090.271l716 ---| MA       CON    MABL        *MABL* POINTER
00123  M01S00015.271l716 +++| BA       CON    0           BYTE ADDRESS
00124  M01S00016.271l716 +++| PA       CON    0           PARAMETER ADDRESS
00125  M01S00091.mtr     +++|
00126  M01S00092.mtr     +++|
00127  M01S00093.mtr     +++| CS       VFD    60/0        CONTROL POINT STATUS WORD
00128  M01S00094.mtr     +++|
00129  M01S00095.mtr     +++| RC       CON    RQRL        RECALL STACK POINTER
00130  M01S00096.mtr     +++| RQ       CON    RQRL        *RQRL* POINTER

Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00097.251l664 ---| CF       CON    0           CHANNEL TABLE WRITE FLAG

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00008.ns2492  ---| CF       CON    0           CHANNEL TABLE WRITE FLAG
00133  M01S00001.ns2492  +++| CF       CON    1           CHANNEL TABLE WRITE FLAG
00134  M01S00098.mtr     +++|
00135  M01S00099.mtr     +++|
00136  M01S00100.mtr     +++| MM       BSS    0           MEMORY MANAGEMENT

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00101.271l716 ---|          CON    7777        CONTROL POINT MOVING

Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00102.271l716 ---|          CON    0           MOVE INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00103.271l716 ---|          CON    0           LOWER MOVE CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00104.271l716 ---|          CON    0           CONTROL POINT REQUESTING MOVE

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00105.271l716 ---|          CON    0           PP REQUESTING MOVE
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  M01S00106.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00107.251l664 ---| NP       CON    20D         NUMBER OF PPUS
00149  M01S00009.251l664 +++| NP       CON    0           NUMBER OF PPS
00150  M01S00108.mtr     +++| NC       CON    0           NUMBER OF CONTROL POINTS
00151  M01S00109.mtr     +++|
00152  M01S00110.mtr     +++|
00153  M01S00111.mtr     +++| TM       BSS    0           REAL TIME CLOCK
00154  M01S00112.mtr     +++|          VFD    24/0        SECONDS
00155  M01S00113.mtr     +++|          VFD    36/0        MILLISECONDS
00156  M01S00114.mtr     +++|
00157  M01S00115.mtr     +++| MS       CON    0           LAST MICROSECOND COUNT
00158  M01S00116.mtr     +++| ST       CON    1000D       SECOND TIMER
00159  M01S00117.mtr     +++|
00160  M01S00118.mtr     +++| FT       CON    4000        CONSTANT 4000
00161  M01S00119.mtr     +++| SC       CON    SCRL        *SCRL* POINTER
00162  M01S00120.mtr     +++|
00163  M01S00121.mtr     +++|
00164  M01S00122.mtr     +++| OR       VFD    60/0        PP OUTPUT REGISTER
00165  M01S00123.mtr     +++|
00166  M01S00124.mtr     +++| OF       CON    0           ADDRESS OF FIRST PP OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00125.251l664 ---| CT       CON    CTALL       WORD COUNT OF CHANNEL TABLE
00168  M01S00010.251l664 +++| PP       CON    0           CURRENT PP NUMBER
00169  M01S00126.mtr     +++| PR       CON    0           PRIORITY SEEK REQUEST PP
00170  M01S00127.mtr     +++| ON       CON    1           CONSTANT 1
00171  M01S00128.mtr     +++| HN       CON    100         CONSTANT 100
00172  M01S00129.mtr     +++| FR       CON    4           CONSTANT FOUR
00173  M01S00130.mtr     +++| TR       CON    3           CONSTANT 3

Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00131.271l716 ---| CP       CON    0           CONTROL POINT ADDRESS
00175  M01S00022.271l716 +++| CP       CON    0           CONTROL POINT NUMBER
00176  M01S00132.mtr     +++| CY       CON    0           START OF CURRENT CYCLE
00177  M01S00133.mtr     +++| OA       CON    0           CURRENT OUTPUT REGISTER ADDRESS
00178  M01S00134.mtr     +++|
00179  M01S00135.mtr     +++| ZR       VFD    60/0        CM ZERO WORD (5 LOCATIONS)
00180  M01S00136.mtr     +++|
00181  M01S00137.mtr     +++|
00182  M01S00138.mtr     +++|
00183  M01S00139.mtr     +++|
00184  M01S00140.mtr     +++|*         ASSEMBLY CONSTANTS.
00185  M01S00141.mtr     +++|
00186  M01S00142.mtr     +++|
00187  M01S00143.mtr     +++| MLSC     EQU    1000D       MICROSECONDS/MILLISECOND
00188  M01S00144.mtr     +++| CH       EQU    CHSC        S/C REGISTER CHANNEL
00189  M01S00145.mtr     +++| MR       EQU    CHMR        CYBER 170-8X5 MAINTENANCE CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00146.251l664 ---| JD       EQU    T1 - T5     JULIAN DATE

Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00147.251l664 ---| PD       EQU    T6 - T6+4   PACKED DATE AND TIME

Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00148.251l664 ---| TI       EQU    13 - 17     TIME

Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00149.251l664 ---| DT       EQU    CN - CN+4   DATE
00194  M01S00150.mtr     +++| MXRC     EQU    3           MAXIMUM RECALL REQUESTS PER LOOP
00195  M01S00023.271l716 +++| MBCS     EQU    6           MEMORY BLOCK CONVERSION SHIFT COUNT
00196  M01S00151.mtr     +++|
00197  M01S00152.mtr     +++|
00198  M01S00153.mtr     +++|****

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00154.273l780 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00155.273l780 ---|**        MESSAGE BUFFER INDICES OF RELOCATION ADDRESSES.

Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00156.273l780 ---|

Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00157.273l780 ---|

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00158.273l780 ---| CX       EQU    0           EXCHANGE REQUEST WORDS

Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00159.273l780 ---| XP       EQU    1           EXCHANGE PACKAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00160.273l780 ---| TL       EQU    2           *TLDA* ADDRESS
00206  M01S00161.mtr     +++|          TITLE  MACRO DEFINITIONS.
00207  M01S00162.mtr     +++| PPR      SPACE  4
00208  M01S00163.mtr     +++| MSTA     SPACE  4,20
00209  M01S00164.mtr     +++|**        MSTA - GENERATE MST ADDRESS.
00210  M01S00165.mtr     +++|*
00211  M01S00166.mtr     +++|*         THIS MACRO IS TO BE USED FOR ALL MST ADDRESSES IN ORDER TO
00212  M01S00167.mtr     +++|*         ALLOW FOR EST EXPANSION.
00213  M01S00168.mtr     +++|*
00214  M01S00169.mtr     +++|*         MSTA   WORD,PP,DC,EO
00215  M01S00170.mtr     +++|*         ENTRY  WORD = MST WORD DESIRED.
00216  M01S00171.mtr     +++|*                PP = PP NUMBER USED TO ACCESS PP TABLE OF MST
00217  M01S00172.mtr     +++|*                ADDRESSES (*TPMS*).
00218  M01S00173.mtr     +++|*                DC = 5 BYTES OF SCRATCH DIRECT CELLS.
00219  M01S00174.mtr     +++|*                EO = IF SUPPLIED, (A) = EST ORDINAL.
00220  M01S00175.mtr     +++|*
00221  M01S00176.mtr     +++|*         EXIT   (A) = CM ADDRESS IF *WORD* SUPPLIED.
00222  M01S00177.mtr     +++|*                (DC - DC+4) = *EQDE* WORD OF EST ENTRY IF *DC* IS
00223  M01S00178.mtr     +++|*                              SUPPLIED.
00224  M01S00179.mtr     +++|*
00225  M01S00180.mtr     +++|*         IF *DC* IS SUPPLIED MST ADDRESS IS OBTAINED FROM THE
00226  M01S00181.mtr     +++|*         EST, AND IF *PP* IS SUPPLIED, IT IS STORED INTO *TPMS*.
00227  M01S00182.mtr     +++|*         IF *DC* IS NOT SUPPLIED, THE MST ADDRESS IS OBTAINED FROM
00228  M01S00183.mtr     +++|*         *TPMS*.  IF *WORD* IS NOT SUPPLIED THE CM ADDRESS IS NOT
00229  M01S00184.mtr     +++|*         RETURNED.
00230  M01S00185.mtr     +++|
00231  M01S00186.mtr     +++|
00232  M01S00187.mtr     +++| MSTA     MACRO  WORD,PP,DC,EO
00233  M01S00188.mtr     +++|          MACREF MSTA
00234  M01S00189.mtr     +++| .M1      IFC    NE,*DC**
00235  M01S00190.mtr     +++|          IFC    EQ,*EO**,1
00236  M01S00191.mtr     +++|          LDD    T5
00237  M01S00192.mtr     +++|          SFA    EST
00238  M01S00193.mtr     +++|          ADK    EQDE
00239  M01S00194.mtr     +++|          CRD    DC
00240  M01S00195.mtr     +++|          LDD    DC+4
00241  M01S00196.mtr     +++|          IFC    NE,*PP**,1
00242  M01S00197.mtr     +++|          STM    TPMS,PP
00243  M01S00198.mtr     +++| .M1      ELSE
00244  M01S00199.mtr     +++|          LDM    TPMS,PP
00245  M01S00200.mtr     +++| .M1      ENDIF
00246  M01S00201.mtr     +++|          IFC    NE,*WORD**,2
00247  M01S00202.mtr     +++|          SHN    3
00248  M01S00203.mtr     +++|          ADN    WORD
00249  M01S00204.mtr     +++|          ENDM
00250  M01S00205.mtr     +++| NSDJ     SPACE  4,10
00251  M01S00206.mtr     +++|**        NSDJ - NO SHARED DEVICES JUMP.
00252  M01S00207.mtr     +++|*
00253  M01S00208.mtr     +++|*         THE INSTRUCTION FOLLOWING THIS MACRO IS REPLACED BY A *UJN*
00254  M01S00209.mtr     +++|*         IF THERE ARE NO SHARED DEVICES IN THE SYSTEM.
00255  M01S00210.mtr     +++|*
00256  M01S00211.mtr     +++|*         NSDJ   ADDR
00257  M01S00212.mtr     +++|*         ENTRY  ADDR = ADDRESS TO JUMP TO.
00258  M01S00213.mtr     +++|
00259  M01S00214.mtr     +++|
00260  M01S00215.mtr     +++| NSDJ     MACRO  A
00261  M01S00216.mtr     +++|          LOCAL  AA
00262  M01S00217.mtr     +++|          MACREF NSDJ
00263  M01S00218.mtr     +++| AA       EQU    *
00264  M01S00219.mtr     +++| NSDJ     RMT
00265  M01S00220.mtr     +++|          CON    AA
00266  M01S00221.mtr     +++|          LOC    AA
00267  M01S00222.mtr     +++|          UJN    A
00268  M01S00223.mtr     +++|          LOC    *O
00269  M01S00224.mtr     +++| NSDJ     RMT
00270  M01S00225.mtr     +++|          ENDM
00271  M01S00226.mtr     +++| N8SJ     SPACE  4,10
00272  M01S00227.mtr     +++|**        N8SJ - NO ISD SUBSYSTEM JUMP.
00273  M01S00228.mtr     +++|*
00274  M01S00229.mtr     +++|*         THE INSTRUCTION FOLLOWING THIS MACRO IS REPLACED BY A *UJN*
00275  M01S00230.mtr     +++|*         IF THERE IS NO ISD SUBSYSTEM PRESENT.
00276  M01S00231.mtr     +++|*
00277  M01S00232.mtr     +++|*         N8SJ   ADDR
00278  M01S00233.mtr     +++|*         ENTRY  ADDR = ADDRESS TO JUMP TO.
00279  M01S00234.mtr     +++|
00280  M01S00235.mtr     +++|
00281  M01S00236.mtr     +++| N8SJ     MACRO  A
00282  M01S00237.mtr     +++|          LOCAL  AA
00283  M01S00238.mtr     +++|          MACREF N8SJ
00284  M01S00239.mtr     +++| AA       EQU    *
00285  M01S00240.mtr     +++| N8SJ     RMT
00286  M01S00241.mtr     +++|          CON    AA
00287  M01S00242.mtr     +++|          LOC    AA
00288  M01S00243.mtr     +++|          UJN    A
00289  M01S00244.mtr     +++|          LOC    *O
00290  M01S00245.mtr     +++| N8SJ     RMT
00291  M01S00246.mtr     +++|          ENDM
00292  M01S00247.mtr     +++| PPR      SPACE  4,10
00293  M01S00248.mtr     +++|**        PPR - SET PP REQUEST PROCESSOR.
00294  M01S00249.mtr     +++|*
00295  M01S00250.mtr     +++|*         PPR    FCN,PRC
00296  M01S00251.mtr     +++|*         ENTRY  *FCN* = FUNCTION NUMBER.
00297  M01S00252.mtr     +++|*                IF *PRC* IS SPECIFIED, *.PRC* IS ADDRESS OF PROCESSOR.
00298  M01S00253.mtr     +++|*                OTHERWISE, *.FCN* IS ADDRESS OF PROCESSOR.
00299  M01S00254.mtr     +++|
00300  M01S00255.mtr     +++|
00301  M01S00256.mtr     +++| PPR      MACRO  FCN,PRC
00302  M01S00257.mtr     +++|          LOCAL  J,K
00303  M01S00258.mtr     +++|          MACREF PPR
00304  M01S00259.mtr     +++| J        OCTMIC FCN
00305  M01S00260.mtr     +++|          IFC    EQ,$PRC$$
00306  M01S00261.mtr     +++| K        MICRO  1,3, FCN
00307  M01S00262.mtr     +++| K        MICRO  1,4,*."K"*
00308  M01S00263.mtr     +++| "K"      CON    FCN
00309  M01S00264.mtr     +++|          ORG    *-1
00310  M01S00265.mtr     +++|          ELSE   1
00311  M01S00266.mtr     +++| K        MICRO  1,, PRC
00312  M01S00267.mtr     +++| PPR      RMT
00313  M01S00268.mtr     +++|          ORG    TPPR+FCN
00314  M01S00269.mtr     +++|          CON    "K"
00315  M01S00270.mtr     +++| PPR      RMT
00316  M01S00271.mtr     +++|          ENDM
00317  M01S00272.mtr     +++| SUBFUN   SPACE  4,10
00318  M01S00273.mtr     +++|**        SUBFUN - SET SUBFUNCTION PROCESSOR.
00319  M01S00274.mtr     +++|*
00320  M01S00275.mtr     +++|*SFA      SUBFUN FNC,SFN
00321  M01S00276.mtr     +++|*         ENTRY  SFA = SUBFUNCTION PROCESSOR ENTRY NAME.
00322  M01S00277.mtr     +++|*                FNC = FUNCTION NAME.
00323  M01S00278.mtr     +++|*                SFN = SUBFUNCTION NAME.
00324  M01S00279.mtr     +++|*
00325  M01S00280.mtr     +++|*         THIS MACRO BUILDS A TABLE OF SUBFUNCTION PROCESSORS.
00326  M01S00281.mtr     +++|*         THE TABLE IS NAMED T*FNC*, AND EACH ENTRY IS THE
00327  M01S00282.mtr     +++|*         ADDRESS OF THE PROCESSOR FOR THE SUBFUNCTION.
00328  M01S00283.mtr     +++|
00329  M01S00284.mtr     +++|
00330  M01S00285.mtr     +++|          MACRO  SUBFUN,SFA,FNC,SFN
00331  M01S00001.ns2726  +++|          MACREF SUBFUN
00332  M01S00286.mtr     +++| SFA  BSS    0
00333  M01S00287.mtr     +++|          IRP    SFN
00334  M01S00288.mtr     +++| T_FNC    RMT
00335  M01S00289.mtr     +++|          ORG    T_FNC+SFN
00336  M01S00290.mtr     +++|          CON    SFA
00337  M01S00291.mtr     +++| T_FNC    RMT
00338  M01S00292.mtr     +++|          IRP
00339  M01S00293.mtr     +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00294.273l780 ---| TLDC     SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00295.273l780 ---|**        TLDC - RELOCATE ADDRESS FOR LDC.

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00296.273l780 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00297.273l780 ---|*         TLDC   C,R,D

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00298.273l780 ---|*         ENTRY  C = CONSTANT TO ADD TO RELOCATION ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00299.273l780 ---|*                R = INDEX INTO MESSAGE BUFFER WHERE RELOCATION

Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00300.273l780 ---|*                    ADDRESS IS FOUND.

Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00301.273l780 ---|*                D = IF DEFINED, *C* IS A DIRECT CELL CONTAINING VALUE

Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00302.273l780 ---|*                    TO ADD TO RELOCATION ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00303.273l780 ---|

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00304.273l780 ---|

Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00305.273l780 ---| TLDC     MACRO  C,R,D

Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00306.273l780 ---|          LOCAL  A

Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00307.273l780 ---|          MACREF TLDC

Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00308.273l780 ---|          IFC    EQ,$D$$

Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00309.273l780 ---| A        EQU    *

Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00310.273l780 ---|          LDC    C

Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00311.273l780 ---|          ELSE   3

Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00312.273l780 ---|          LDD    D

Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00313.273l780 ---| A        EQU    *

Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00314.273l780 ---|          ADC    C

Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00315.273l780 ---|          ERRPL  R-7

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00316.273l780 ---| REL      RMT

Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00317.273l780 ---|          CON    A

Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00318.273l780 ---|          CON    R

Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00319.273l780 ---| REL      RMT

Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00320.273l780 ---|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00321.ns2418  ---|          TITLE  INITIALIZE TABLES.

Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00322.ns2418  ---|          TITLE  DEBUG UNDER PP0.
00369  M01S00323.mtr     +++|          TITLE  MAIN PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00324.251l664 ---| MTR      SPACE  4
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  M01S00325.mtr     +++|**        MTR - MAIN PROGRAM.
00381  M01S00326.mtr     +++|
00382  M01S00327.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00328.251l664 ---| MTR      LDC    10          SET PP 1 OUTPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00329.251l664 ---|          STD    OA

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00330.251l664 ---|          CRD    OR          READ OUTPUT REGISTER
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)
00390  M01S00001.mtr27   +++|*         UJN    MTR1        (MONITOR STEP SET)
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  M01S00331.mtr     +++|          LDD    OR

Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00332.251l664 ---|          ZJN    *+3         IF NO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00333.251l664 ---|          LJM    DSD         PROCESS *DSD* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00334.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00335.251l664 ---|*         CHECK PP OUTPUT REGISTERS 2 - N.

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00336.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00337.251l664 ---| .1       SET    20

Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00338.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00339.251l664 ---|          DUP    18,7

Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00340.251l664 ---|          LDC    .1          SET OUTPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00341.251l664 ---|          STD    OA

Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00342.251l664 ---|          CRD    OR          READ OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00343.251l664 ---|          LDD    OR

Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00344.251l664 ---|          ZJN    *+3         IF NO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00345.251l664 ---|          LJM    PPR         PROCESS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00346.251l664 ---| .1       SET    .1+10
00426  M01S00043.251l664 +++|          ZJN    MTR         IF NO REQUEST
00427  M01S00044.251l664 +++|          LJM    **          EXIT TO PROCESSOR
00428  M01S00045.251l664 +++| MTRD     EQU    *-1
00429  M01S00347.mtr     +++|
00430  M01S00348.mtr     +++|*         PERFORM SYSTEM FUNCTIONS.
00431  M01S00349.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00350.251l664 ---| MTR2     RJM    TIM         UPDATE TIME
00433  M01S00046.251l664 +++| MTR4     RJM    TIM         UPDATE TIME
00434  M01S00351.mtr     +++|          RJM    CRQ         CHECK RECALL QUEUE

Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00352.251l664 ---|          LDC    0           WRITE CHANNEL TABLE

Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00353.251l664 ---| MTRA     EQU    *-1
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

Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00354.251l664 ---|          CWM    TCHS,CT

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00355.251l664 ---| MTRB     RJM    PHE         PROCESS HARDWARE ERRORS
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  M01S00356.mtr     +++|*         UJN    *+2         (6000 SERIES)
00452  M01S00357.mtr     +++|
00453  M01S00358.mtr     +++|*         UPDATE STATISTICAL DATA.
00454  M01S00359.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00360.251l664 ---| MTRC     LDC    MTRS        READ *MTR* STATISTICAL DATA

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00059.273l780 ---| MTRH     LDC    MTRS        READ *MTR* STATISTICAL DATA

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00361.273l780 ---|*         LDC    (SDAP)+MTRS (*MTR* DATA ADDRESS)
00458  M01S00004.273l780 +++|          TLDC   MTRS,SDA    READ *MTR* STATISTICAL DATA
00459  M01S00362.mtr     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00363.251l664 ---|          LDC    **          SET MISSED CLOCK UPDATE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00364.251l664 ---| MTRD     EQU    *-1         (MISSED CLOCK UPDATE COUNT)

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00365.251l664 ---|          STD    CM+1
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  M01S00366.mtr     +++|          LDD    TM+4        CALCULATE ELAPSED CYCLE TIME
00469  M01S00367.mtr     +++|          SBD    CY

Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00368.251l664 ---|          PJN    MTR4        IF NO OVERFLOW
00471  M01S00065.251l664 +++|          PJN    MTR6        IF NO OVERFLOW
00472  M01S00369.mtr     +++|          ADC    10000

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00370.251l664 ---| MTR4     STD    CM+4
00474  M01S00066.251l664 +++| MTR6     STD    CM+4
00475  M01S00371.mtr     +++|          RAD    CY
00476  M01S00372.mtr     +++|          LDD    CM+4
00477  M01S00373.mtr     +++|          SBD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00374.251l664 ---|          MJN    MTR5        IF NOT NEW WORST CASE TIME

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00375.251l664 ---|          RAD    CM+3        UPDATE WORST CASE

Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00376.251l664 ---| MTR5     LDC    **          SET WORST CASE *MXN* TIME

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00377.251l664 ---| MTRE     EQU    *-1         (WORST CASE *MXN* TIME)

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00378.251l664 ---|          STD    CM+2
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

Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00379.251l664 ---| MTRF     LDC    **
00491  M01S00074.251l664 +++| MTR8     LDN    0           RESET CURRENT CYCLE WORST CASE *MXN* TIME
00492  M01S00075.251l664 +++|          STM    MTRJ

Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00076.273l780 ---| MTRK     LDC    **

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00380.273l780 ---|*         LDC    (SDAP)+MTRS (*MTR* DATA ADDRESS)
00495  M01S00005.273l780 +++|          TLDC   MTRS,SDA    WRITE *MTR* STATISTICAL DATA
00496  M01S00381.mtr     +++|          CWD    CM
00497  M01S00382.mtr     +++|
00498  M01S00383.mtr     +++|*         THE CPU SWITCH IS DONE AS LONG AS POSSIBLE AFTER THE CALL
00499  M01S00384.mtr     +++|*         TO *CRQ* TO ALLOW *CPUMTR* TO HAVE FINISHED PROCESSING CPU
00500  M01S00385.mtr     +++|*         RECALLS.  THE CALL TO *WXP* IS MADE TO INSURE ANY RECALLS
00501  M01S00386.mtr     +++|*         HAVE COMPLETED.
00502  M01S00387.mtr     +++|
00503  M01S00388.mtr     +++|          RJM    WXP         WAIT RECALL COMPLETION
00504  M01S00389.mtr     +++|          RJM    CCS         CHECK CPU SWITCH
00505  M01S00390.mtr     +++|          RJM    CCP         CHECK CENTRAL PROGRAM
00506  M01S00077.251l664 +++|          LDN    0           SET UP OUTPUT REGISTER SCAN
00507  M01S00078.251l664 +++|          STD    PP
00508  M01S00391.mtr     +++|          LJM    MTR         LOOP

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00392.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00393.251l664 ---| MTR1     EQU    MTR-10      BASE ADDRESS FOR PP INDEX
00511  M01S00394.mtr     +++|          TITLE  TIMEKEEPING.
00512  M01S00395.mtr     +++| AVC      SPACE  4
00513  M01S00396.mtr     +++|**        AVC - ADVANCE CLOCK.
00514  M01S00397.mtr     +++|*
00515  M01S00398.mtr     +++|*         ENTRY MUST BE MADE AT LEAST EVERY 4 MILLISECONDS.
00516  M01S00399.mtr     +++|*
00517  M01S00400.mtr     +++|*         IF THE MACHINE IS IN A MULTI-MAINFRAME COMPLEX THE
00518  M01S00401.mtr     +++|*         FOLLOWING IS DONE.
00519  M01S00402.mtr     +++|*         1)     STATUS FLAG REGISTER BITS.
00520  M01S00403.mtr     +++|*         2)     WRITE REAL TIME CLOCK TO ECS.
00521  M01S00404.mtr     +++|*         3)     STATUS MAINFRAMES ECS CLOCKS EVERY 2 SECONDS.
00522  M01S00405.mtr     +++|*
00523  M01S00406.mtr     +++|*         USES   CM - CM+4, T3.
00524  M01S00407.mtr     +++|*
00525  M01S00408.mtr     +++|*         CALLS  AVT, CPR, TIM.
00526  M01S00409.mtr     +++|
00527  M01S00410.mtr     +++|
00528  M01S00411.mtr     +++| AVC4     BSS    0
00529  M01S00412.mtr     +++| AVCB     LDC    10000B+ARTF ADVANCE CPU-1 RUNNING TIME

Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00413.271l716 ---|*         UJN    *+4         (1 CPU ONLY)
00531  M01S00024.271l716 +++|*         UJN    AVC5        (1 CPU)
00532  M01S00414.mtr     +++|          RJM    CPR

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00415.271l716 ---|          LDD    HN          RESET RETURN
00534  M01S00025.271l716 +++| AVC5     LDD    HN          RESET RETURN
00535  M01S00416.mtr     +++|          STM    AVCA
00536  M01S00417.mtr     +++|          RJM    AVT         ADVANCE TIME OF DAY
00537  M01S00418.mtr     +++| AVCC     LDD    TM+1
00538  M01S00419.mtr     +++|*         UJN    AVCD        (NO MULTI-MAINFRAME PROCESSING)
00539  M01S00420.mtr     +++|          LPN    1
00540  M01S00421.mtr     +++|          STD    CN+2        SET TIME TO STATUS MAINFRAMES
00541  M01S00422.mtr     +++| AVCD     LDN    ARMF        ADVANCE RUNNING TIME
00542  M01S00423.mtr     +++|*         LDN    ARTF        (NO MULTI-MAINFRAME PROCESSING)
00543  M01S00424.mtr     +++|          RJM    CPR
00544  M01S00425.mtr     +++|
00545  M01S00426.mtr     +++| AVC      SUBR               ENTRY/EXIT
00546  M01S00427.mtr     +++|*         UJN    AVC4        (ONE SECOND ELAPSED)
00547  M01S00428.mtr     +++| AVCA     EQU    *-2
00548  M01S00429.mtr     +++|          RJM    TIM         ADVANCE MILLISECOND CLOCK

Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00430.273l780 ---| AVC1     TLDC   0,CX        READ CPU 0 EXCHANGE REQUEST
00550  M01S00006.273l780 +++| AVC1     TLDC   CACX,CMT    READ CPU 0 EXCHANGE REQUEST
00551  M01S00431.mtr     +++|*         UJN    AVCX        (1 CPU ONLY)
00552  M01S00432.mtr     +++| CX1      EQU    *-2
00553  M01S00433.mtr     +++|          CRD    CM
00554  M01S00434.mtr     +++|          LDN    0           CLEAR EXCHANGE REQUEST OUTSTANDING FLAG
00555  M01S00435.mtr     +++|          STD    T3
00556  M01S00436.mtr     +++|          LDD    CM+1
00557  M01S00437.mtr     +++|          ADD    CM+2
00558  M01S00438.mtr     +++|          ZJN    AVC2        IF NO EXCHANGE REQUEST
00559  M01S00439.mtr     +++|          AOD    T3
00560  M01S00440.mtr     +++|          LDN    PCXF        PROCESS CPU 0 EXCHANGE REQUEST
00561  M01S00441.mtr     +++|          RJM    CPR

Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00442.273l780 ---| AVC2     TLDC   1,CX        READ CPU 1 EXCHANGE REQUEST
00563  M01S00007.273l780 +++| AVC2     TLDC   CACX+1,CMT  READ CPU 1 EXCHANGE REQUEST
00564  M01S00443.mtr     +++|          CRD    CM
00565  M01S00444.mtr     +++|          LDD    CM+1
00566  M01S00445.mtr     +++|          ADD    CM+2
00567  M01S00446.mtr     +++|          ZJN    AVC3        IF NO EXCHANGE REQUEST
00568  M01S00447.mtr     +++|          AOD    T3
00569  M01S00448.mtr     +++|          LDC    10000+PCXF  PROCESS CPU 1 EXCHANGE REQUEST
00570  M01S00449.mtr     +++|          RJM    CPR
00571  M01S00450.mtr     +++| AVC3     LDD    T3
00572  M01S00451.mtr     +++|          NJN    AVC1        IF EXCHANGE REQUEST OUTSTANDING
00573  M01S00452.mtr     +++|          UJN    AVCX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00453.251l664 ---| TIM      SPACE  4,10
00575  M01S00079.251l664 +++| TIM      SPACE  4,20
00576  M01S00454.mtr     +++|**        TIM - UPDATE REAL TIME CLOCK.
00577  M01S00455.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00456.ns2418  ---|*         THE REAL TIME CLOCK IN CM IS UPDATE EVERY MILLISECOND.  THIS

Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00457.ns2418  ---|*         ROUTINE WHEN CALLED FROM OTHER THAN AVC IS USED TO MAINTAIN

Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00458.ns2418  ---|*         TIME ACCURACY WITHOUT CALLS TO CPR.  IN DUAL STATE, THE REAL

Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00459.ns2418  ---|*         TIME CLOCK IS READ AFTER EVERY EXCHANGE TO *CPUMTR*, SINCE IN

Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00460.ns2418  ---|*         DUAL STATE CPUMTR CONTROLS THE CLOCK USING THE FREE RUNNING

Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00461.ns2418  ---|*         COUNTER AS THE REFERENCE.  BETWEEN EXCHANGES, *TIM* MAINTAINS

Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00462.ns2418  ---|*         THE REAL TIME CLOCK IN THE USUAL WAY SO AS TO MAINTAIN TIME

Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00463.ns2418  ---|*         ACCURACY DURING PERIODS OF *CPUMTR* INACTIVITY.
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  M01S00464.mtr     +++|*
00595  M01S00465.mtr     +++|*         EXIT   (RTCL) UPDATED IN CM IF MILLISECOND OR MORE ELAPSED.

Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00466.251l664 ---|*                (MTRD) = COUNT OF TIMES CLOCK UPDATE MISSED.
00597  M01S00080.251l664 +++|*                (MTRI) = COUNT OF TIMES CLOCK UPDATE MISSED.
00598  M01S00467.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00081.271l716 ---|*         USES   CM - CM+4.
00600  M01S00026.271l716 +++|*         USES   LS, MS, ST, CM - CM+4, TM - TM+4.
00601  M01S00468.mtr     +++|*
00602  M01S00469.mtr     +++|*         CALLS  ETA.
00603  M01S00470.mtr     +++|
00604  M01S00471.mtr     +++|
00605  M01S00472.mtr     +++| TIM5     LDD    HN          RESET RETURN
00606  M01S00473.mtr     +++|          STM    TIMX
00607  M01S00474.mtr     +++|          UJN    TIM1        REENTER LOOP
00608  M01S00475.mtr     +++|
00609  M01S00476.mtr     +++| TIM6     STD    MS

Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00477.273l780 ---|          TLDC   6,XP        READ (MA), (A6), (B6)
00611  M01S00008.273l780 +++|          TLDC   /EXPACS/MXP+6,XBP  READ (MA), (A6), (B6)
00612  M01S00478.mtr     +++|          CRD    CM
00613  M01S00479.mtr     +++|          LDD    CM
00614  M01S00480.mtr     +++|          ADD    CM+1
00615  M01S00481.mtr     +++|          NJN    TIMX        IF EXCHANGE PACKAGE NOT READY
00616  M01S00482.mtr     +++|          LDC    RTCL
00617  M01S00483.mtr     +++|          CRD    TM          READ THE MILLISECOND CLOCK
00618  M01S00484.mtr     +++|          LDD    TM+1
00619  M01S00485.mtr     +++|          SBD    LS
00620  M01S00486.mtr     +++|          ZJN    TIM8        IF NO CHANGE IN SECONDS

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00487.ncctmkp ---|          PJN    TIM7        IF NO OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00488.ncctmkp ---|          ADC    10000
00623  M01S00001.ncctmkp +++|          LDN    1           FORCE DELTA TO 1 SECOND
00624  M01S00489.mtr     +++| TIM7     RJM    ETA         ENABLE TIME ADVANCE
00625  M01S00490.mtr     +++|          LDD    TM+1        MARK CURRENT SECONDS
00626  M01S00491.mtr     +++|          STD    LS
00627  M01S00492.mtr     +++| TIM8     LDN    PSNI        RESET EXCHANGE SWITCH
00628  M01S00493.mtr     +++|          STM    TIMB
00629  M01S00494.mtr     +++|
00630  M01S00495.mtr     +++| TIM      SUBR               ENTRY/EXIT
00631  M01S00496.mtr     +++| TIM1     IAN    14          READ CLOCK
00632  M01S00497.mtr     +++| TIMB     PSN                NORMAL

Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00498.ns2418  ---|*         UJN    TIMX        UNTIL FIRST EXCHANGE (DUAL STATE ENABLED)

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00499.ns2418  ---|*         UJN    TIM6        EXCHANGE OUTSTANDING (DUAL STATE ENABLED)

Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00010.mtr39   ---|*         UJN    TIMX        UNTIL FIRST EXCHANGE (CPU CLOCK)
00636  M01S00011.ns2418  +++|*         UJN    TIM6        EXCHANGE OUTSTANDING (CPU CLOCK)
00637  M01S00500.mtr     +++|          SBD    MS
00638  M01S00501.mtr     +++|          PJN    TIM2        IF NO OVERFLOW
00639  M01S00502.mtr     +++|          ADC    10000

Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00503.fixclok ---| TIM2     ADC    -MLSC+35    CYCLES TILL RTCL WRITTEN

Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00504.fixclok ---|*         ADC    -MLSC+17    (2X PP SPEED)

Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00505.fixclok ---|*         ADC    -MLSC+10    (4X PP SPEED)

Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00506.fixclok ---| TIMA     EQU    *-1
00644  M01S00001.fixclok +++| TIM2     ADC    -MLSC       CYCLES TILL RTCL WRITTEN
00645  M01S00507.mtr     +++|          MJN    TIMX        IF NOT .GE. 1 MILLISECOND ELAPSED
00646  M01S00508.mtr     +++|          SHN    -12
00647  M01S00509.mtr     +++|          ZJN    TIM3        IF REMAINDER .LT. 1024 MICROSECONDS

Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00510.251l664 ---|          AOM    MTRD        COUNT MISSED CLOCK UPDATE
00649  M01S00082.251l664 +++|          AOM    MTRI        COUNT MISSED CLOCK UPDATE

Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00511.ns2418  ---|          LDC    UJNI+77+TIM5-TIMX SET TO LOOP

Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00512.ns2418  ---|          ERRPL  TIMX-TIM5-40  JUMP OUT OF BOUNDS

Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00513.ns2418  ---|          STM    TIMX
00653  M01S00012.ns2418  +++|          ISTORE TIMX,(UJN TIM5)  SET UP TO LOOP
00654  M01S00514.mtr     +++| TIM3     LDC    MLSC
00655  M01S00515.mtr     +++|          RAD    MS
00656  M01S00516.mtr     +++|          AOD    TM+4        ADVANCE MILLISECOND CLOCK
00657  M01S00517.mtr     +++|          SHN    -14
00658  M01S00518.mtr     +++|          ZJN    TIM4        IF NO OVERFLOW
00659  M01S00519.mtr     +++|          RAD    TM+3        UPDATE MILLISECONDS ON OVERFLOW
00660  M01S00520.mtr     +++|          SHN    -14
00661  M01S00521.mtr     +++|          RAD    TM+2
00662  M01S00522.mtr     +++| TIM4     SOD    ST          UPDATE SECOND TIMER
00663  M01S00523.mtr     +++|          NJN    TIM4.1      IF NOT 1 SECOND ELAPSED
00664  M01S00524.mtr     +++|          LDN    1           SET INCREMENT FOR *AVT*
00665  M01S00525.mtr     +++|          RJM    ETA         ENABLE TIME ADVANCE
00666  M01S00526.mtr     +++|          AOD    TM+1        UPDATE SECONDS
00667  M01S00527.mtr     +++|          STD    LS          MARK CURRENT SECONDS
00668  M01S00528.mtr     +++|          SHN    -14
00669  M01S00529.mtr     +++|          RAD    TM
00670  M01S00530.mtr     +++| TIM4.1   LDC    RTCL        UPDATE CLOCK
00671  M01S00531.mtr     +++|          CWD    TM
00672  M01S00532.mtr     +++|          LJM    TIMX        EXIT
00673  M01S00533.mtr     +++| ETA      SPACE  4
00674  M01S00534.mtr     +++|**        ETA - ENABLE TIME ADVANCE.
00675  M01S00535.mtr     +++|*
00676  M01S00536.mtr     +++|*         THE UPDATE OF THE DATE AND TIME IS ENABLED, THE
00677  M01S00537.mtr     +++|*         NUMBER OF SECONDS TO ADVANCE IT IS ESTABLISHED,
00678  M01S00538.mtr     +++|*         AND THE SECOND TIMER IS RESET.
00679  M01S00539.mtr     +++|*
00680  M01S00540.mtr     +++|*         ENTRY  (A) .EQ. NUMBER OF SECONDS TO ADVANCE TIME.
00681  M01S00541.mtr     +++|*
00682  M01S00542.mtr     +++|*         EXIT   TIME ADVANCE IS ENABLED.
00683  M01S00543.mtr     +++|
00684  M01S00544.mtr     +++|
00685  M01S00545.mtr     +++| ETA      SUBR               ENTRY/EXIT
00686  M01S00546.mtr     +++|          STM    AVTC        SET SECONDS INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00547.ns2418  ---|          LDC    UJNI+77+AVC4-AVCX  ENABLE CLOCK UPDATE

Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00548.ns2418  ---|          ERRPL  AVCX-AVC4-40  JUMP OUT OF BOUNDS

Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00549.ns2418  ---|          STM    AVCA
00690  M01S00013.ns2418  +++|          ISTORE AVCA,(UJN AVC4)  ENABLE CLOCK UPDATE
00691  M01S00550.mtr     +++|          LDC    1000D       RESET SECOND TIMER
00692  M01S00551.mtr     +++|          STD    ST
00693  M01S00552.mtr     +++|          UJN    ETAX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00553.251l664 ---| AVT      SPACE  4
00695  M01S00083.251l664 +++| AVT      SPACE  4,10
00696  M01S00554.mtr     +++|**        AVT - ADVANCE TIME.
00697  M01S00555.mtr     +++|*
00698  M01S00556.mtr     +++|*         ADVANCES THE TIME OF DAY AND DATE IN RESPONSE TO THE REAL
00699  M01S00557.mtr     +++|*         TIME CLOCK AND STORES THEM IN CENTRAL MEMORY.  ON THE HOUR,
00700  M01S00558.mtr     +++|*         THE TIME PROCESSING FUNCTION CODE IS SET IN THE *1MB* CALL
00701  M01S00559.mtr     +++|*         WORD.

Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00560.271l716 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00561.271l716 ---|*         ENTRY  (TM - TM+4) = REAL TIME CLOCK.
00704  M01S00562.mtr     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00563.ns2418  ---|*         EXIT   (SCAT - SCAT+4) = CURRENT (MSCL).
00706  M01S00014.ns2418  +++|*         EXIT   (PDTL), (JDAL), (TIML), (DTEL) UPDATED IN CMR.
00707  M01S00003.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00004.271l716 ---|*         USES   CN.
00709  M01S00027.271l716 +++|*         USES   CN, PD - PD+4(T0 - T0+4), TI - TI+4(CM - CM+4).
00710  M01S00005.253l688 +++|*
00711  M01S00006.253l688 +++|*         CALLS  CPR.
00712  M01S00564.mtr     +++|
00713  M01S00565.mtr     +++|

Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00566.253l688 ---| AVT10    LDN    JDAL        WRITE TIME AND DATE WORDS

Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00567.253l688 ---|          CWM    JD,FR
00716  M01S00007.253l688 +++| AVT2     LDN    PDTL        WRITE *PDTL* AND *TIML*
00717  M01S00008.253l688 +++|          CWD    PD

Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00009.271l716 ---|          ERRNZ  TIML-PDTL-1 CODE DEPENDS ON VALUES

Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00010.271l716 ---|          ADN    1
00720  M01S00028.271l716 +++|          ADK    TIML-PDTL
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  M01S00568.mtr     +++|
00729  M01S00569.mtr     +++| AVT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00570.253l688 ---|          LDN    JDAL        READ DATE AND TIME WORDS

Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00571.253l688 ---|          CRM    JD,FR
00732  M01S00018.253l688 +++|          LDN    PDTL        READ *PDTL* AND *TIML*
00733  M01S00019.253l688 +++|          CRD    PD

Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00020.271l716 ---|          ERRNZ  TIML-PDTL-1 CODE DEPENDS ON VALUES

Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00021.271l716 ---|          ADN    1
00736  M01S00029.271l716 +++|          ADK    TIML-PDTL
00737  M01S00022.253l688 +++|          CRD    TI
00738  M01S00572.mtr     +++|          LDC    1           ADVANCE SECONDS
00739  M01S00573.mtr     +++| AVTC     EQU    *-1
00740  M01S00023.253l688 +++|          STD    CN          INITIALIZE TOP OF HOUR FLAG
00741  M01S00574.mtr     +++|          RAD    PD+4
00742  M01S00575.mtr     +++|          LDM    AVTC
00743  M01S00576.mtr     +++|          SHN    6
00744  M01S00577.mtr     +++|          RAD    TI+4
00745  M01S00578.mtr     +++|          SHN    -6
00746  M01S00579.mtr     +++|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00580.253l688 ---| AVT1     MJN    AVT10       IF NOT 10 SECONDS
00748  M01S00024.253l688 +++| AVT1     MJN    AVT2        IF NOT 10 SECONDS
00749  M01S00581.mtr     +++|          SHN    6
00750  M01S00582.mtr     +++|          ADC    2R0.        RESET SECONDS
00751  M01S00583.mtr     +++|          STD    TI+4
00752  M01S00584.mtr     +++|          AOD    TI+3        ADVANCE 10 SECONDS
00753  M01S00585.mtr     +++|          LPN    77
00754  M01S00586.mtr     +++|          SBN    1R6
00755  M01S00587.mtr     +++|          MJN    AVT1        IF NOT 60 SECONDS
00756  M01S00588.mtr     +++|          LDN    100-60D     ADVANCE MINUTES, RESET SECONDS
00757  M01S00589.mtr     +++|          RAD    PD+4
00758  M01S00590.mtr     +++|          LDC    2R.0        RESET 10 SECONDS
00759  M01S00591.mtr     +++|          STD    TI+3
00760  M01S00592.mtr     +++|          AOD    TI+2        ADVANCE MINUTES
00761  M01S00593.mtr     +++|          LPN    77
00762  M01S00594.mtr     +++|          SBN    1R9+1
00763  M01S00595.mtr     +++|          MJN    AVT1        IF NOT 10 MINUTES
00764  M01S00596.mtr     +++|          LDN    100+1R0-1R9-1 ADVANCE 10 MINUTES
00765  M01S00597.mtr     +++|          RAD    TI+2
00766  M01S00598.mtr     +++|          SHN    -6
00767  M01S00599.mtr     +++|          SBN    1R6

Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00600.253l688 ---| AVT2     MJN    AVT1        IF NOT 60 MINUTES
00769  M01S00025.253l688 +++|          MJN    AVT1        IF NOT 60 MINUTES

Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00601.mtr42   ---| AVTA     LDN    SPTP        SET TIME PROCESSING FUNCTION FOR *1MB*

Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00602.mtr42   ---|*         LDN    0           (NO TIME CALL FOR C70 NON-SIMULATION)
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  M01S00603.mtr     +++|          ERRNZ  SPTP-1      (ERROR IF TIME FUNCTION VALUE CHANGES)

Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00604.mtr42   ---|          RAM    PHED+2
00778  M01S00005.mtr42   +++|          STM    PHED+2

Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00605.253l688 ---|          LDN    0           RESET SECONDS, MINUTES

Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00606.253l688 ---|          STD    PD+4

Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00607.253l688 ---|          AOD    PD+3        ADVANCE HOURS

Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00608.253l688 ---|          LDC    2R00        RESET MINUTES

Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00609.253l688 ---|          STD    TI+2

Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00610.253l688 ---|          LDD    HN          ADVANCE HOURS

Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00611.253l688 ---|          RAD    TI+1

Seq #  *Modification Id* Act 
----------------------------+
00786  M02S00612.253l688 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00613.253l688 ---|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00614.253l688 ---|          MJN    AVT3        IF NOT 10 HOURS

Seq #  *Modification Id* Act 
----------------------------+
00789  M03S00615.253l688 ---|          LDD    TI+4        RESET HOURS

Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00001.253l688 ---|          LDC    2R0.        RESET HOURS

Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00616.253l688 ---|          STD    TI+1

Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00617.253l688 ---|          AOD    TI          ADVANCE 10 HOURS

Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00618.253l688 ---| AVT3     LDD    PD+3        CHECK HOUR COUNT

Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00619.253l688 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00620.253l688 ---|          SBN    24D

Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00621.253l688 ---|          MJN    AVT2        IF NOT 24 HOURS

Seq #  *Modification Id* Act 
----------------------------+
00797  M02S00622.253l688 ---|          LDN    100-24D

Seq #  *Modification Id* Act 
----------------------------+
00798  M02S00623.253l688 ---|          RAD    PD+3

Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00624.253l688 ---|          LCN    1R2-1R0     RESET HOURS

Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00625.253l688 ---|          RAD    TI

Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00626.253l688 ---|          LDD    TI+4

Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00627.253l688 ---|          STD    TI+1

Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00628.253l688 ---|          AOD    JD+4        ADVANCE JULIAN DAY

Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00629.253l688 ---|          LMC    2R99+1

Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00630.253l688 ---|          ZJN    AVT4        IF 100 JULIAN DAYS

Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00631.253l688 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00632.253l688 ---|          NJN    AVT5        IF NOT 10 JULIAN DAYS

Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00633.253l688 ---|          LDN    100-1R9-1+1R0  ADVANCE 10 JULIAN DAYS

Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00634.253l688 ---|          RAD    JD+4

Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00635.253l688 ---|          UJN    AVT5

Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00636.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00637.253l688 ---| AVT4     LDD    TI+2        ADVANCE 100 JULIAN DAYS

Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00638.253l688 ---|          STD    JD+4

Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00639.253l688 ---|          AOD    JD+3

Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00640.253l688 ---| AVT5     LDD    HN          ADVANCE DAYS

Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00641.253l688 ---|          RAD    DT+4

Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00642.253l688 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00643.253l688 ---|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00644.253l688 ---|          MJN    AVT6        IF NOT 10 DAYS

Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00645.253l688 ---|          LDD    TI+4        RESET DAYS

Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00646.253l688 ---|          STD    DT+4

Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00647.253l688 ---|          AOD    DT+3        ADVANCE 10 DAYS

Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00648.253l688 ---| AVT6     LDD    PD+3

Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00649.253l688 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00650.253l688 ---|          LMC    *

Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00651.253l688 ---| AVTB     EQU    *-1         (DAY LIMIT FOR CURRENT MONTH)

Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00652.253l688 ---|          NJN    AVT8        IF DAY LIMIT NOT REACHED

Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00653.253l688 ---|          LDD    HN          RESET DAYS

Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00654.253l688 ---|          STD    PD+3

Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00655.253l688 ---|          AOD    PD+2        ADVANCE MONTHS

Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00656.253l688 ---|          LDC    2R1.        RESET DAYS

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00657.253l688 ---|          STD    DT+4

Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00658.253l688 ---|          LDC    2R/0

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00659.253l688 ---|          STD    DT+3

Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00660.253l688 ---|          AOD    DT+2        ADVANCE MONTH

Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00661.253l688 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00662.253l688 ---|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00663.253l688 ---|          MJN    AVT7        IF NOT 10 MONTHS

Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00664.253l688 ---|          LDN    100+1R0-1R9-1  ADVANCE 10 MONTHS

Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00665.253l688 ---|          RAD    DT+2

Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00666.253l688 ---| AVT7     LDD    DT+2        CHECK MONTH COUNT

Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00667.253l688 ---|          LMC    2R13

Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00668.253l688 ---|          ZJN    AVT9        IF 13 MONTHS

Seq #  *Modification Id* Act 
----------------------------+
00844  M02S00669.253l688 ---| AVT8     LJM    AVT10

Seq #  *Modification Id* Act 
----------------------------+
00845  M02S00670.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00671.253l688 ---| AVT9     LDN    100-12D     ADVANCE YEAR

Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00672.253l688 ---|          RAD    PD+2

Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00673.253l688 ---|          LDC    2R01        RESET MONTHS

Seq #  *Modification Id* Act 
----------------------------+
00849  M02S00674.253l688 ---|          STD    DT+2

Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00675.253l688 ---|          STD    JD+4        RESET JULIAN DAYS

Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00676.253l688 ---|          LDD    HN          ADVANCE YEAR

Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00677.253l688 ---|          RAD    DT+1

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00678.253l688 ---|          LDN    100-1R3+1R0 ADVANCE JULIAN YEAR

Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00679.253l688 ---|          RAD    JD+3

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00680.253l688 ---|          SHN    -6

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00681.253l688 ---|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00682.253l688 ---|          MJN    AVT8        IF NOT 10 YEARS

Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00683.253l688 ---|          LDC    -10D*100    ADVANCE 10 JULIAN YEARS

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00684.253l688 ---|          RAD    JD+3

Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00685.253l688 ---|          AOD    JD+2

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00686.253l688 ---|          LDC    2R0/        RESET YEARS

Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00687.253l688 ---|          STD    DT+1

Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00688.253l688 ---|          AOD    DT          ADVANCE 10 YEARS

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00689.253l688 ---|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00690.253l688 ---|          SBN    1R9+1

Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00691.253l688 ---|          MJN    AVT8        IF NOT 100 YEARS

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00692.253l688 ---|          LDC    2R 0        RESET YEARS

Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00693.253l688 ---|          STD    DT

Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00694.253l688 ---|          LDN    1R0         RESET JULIAN YEARS

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00695.253l688 ---|          STD    JD+2

Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00696.253l688 ---|          UJN    AVT8
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  M01S00697.mtr     +++|          TITLE RECALL CRITERION PROCESSING.
00876  M01S00698.mtr     +++| CRQ      SPACE  4,10
00877  M01S00699.mtr     +++|**        CRQ - CHECK RECALL CRITERION.
00878  M01S00700.mtr     +++|*
00879  M01S00701.mtr     +++|*         THIS ROUTINE PROCESSED UP TO *MXRC* ENTRIES OF THE RECALL
00880  M01S00702.mtr     +++|*         REQUEST QUEUE.  EACH ENTRY IS CHECKED TO SEE IF THE
00881  M01S00703.mtr     +++|*         RECALL CRITERION HAS BEEN SATISFIED.  IF IT HAS, *CPUMTR* IS
00882  M01S00704.mtr     +++|*         CALLED TO BRING THE REQUEST OUT OF RECALL.
00883  M01S00705.mtr     +++|*
00884  M01S00706.mtr     +++|*         CALLS  CPR, RCP.
00885  M01S00707.mtr     +++|
00886  M01S00708.mtr     +++|
00887  M01S00709.mtr     +++| CRQ6     LDD    CN+2        CHECK REQUEST
00888  M01S00710.mtr     +++|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00711.271l750 ---|          LMN    CRCW
00890  M01S00003.271l750 +++|          LMN    CRCW-100
00891  M01S00004.271l750 +++|          ERRNG  CRCW-100    *CRCW* MUST BE .GE. 100
00892  M01S00712.mtr     +++|          ZJN    CRQ7        IF CPU IN RECALL

Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00713.271l716 ---|          LDN    PRQF        PROCESS REQUEST
00894  M01S00030.271l716 +++|          LDC    10000+PRQF
00895  M01S00714.mtr     +++|          RJM    CPR
00896  M01S00715.mtr     +++|          UJN    CRQ3        CHECK NEXT REQUEST
00897  M01S00716.mtr     +++|
00898  M01S00717.mtr     +++| CRQ7     RJM    RCP         RECALL CPU
00899  M01S00718.mtr     +++|
00900  M01S00719.mtr     +++| CRQ      SUBR               ENTRY/EXIT
00901  M01S00720.mtr     +++|          LDN    MXRC        SET MAXIMUM NUMBER OF REQUESTS TO PROCESS
00902  M01S00721.mtr     +++|          STD    T3
00903  M01S00722.mtr     +++|          LDD    RC
00904  M01S00723.mtr     +++|          LMD    RQ
00905  M01S00724.mtr     +++|          NJN    CRQ4        IF NOT POINTER WORD
00906  M01S00725.mtr     +++|          AOD    T3
00907  M01S00726.mtr     +++|
00908  M01S00727.mtr     +++|*         THIS CODE IS USED TO RESET THE LIST POINTER TO THE
00909  M01S00728.mtr     +++|*         BEGINNING IN THE INFREQUENT EVENT THAT *MTR* TRIES
00910  M01S00729.mtr     +++|*         TO USE A BAD POINTER, WHICH IS USUALLY CAUSED BY
00911  M01S00730.mtr     +++|*         *CPUMTR* MAKING CHANGES IN THE LIST WHILE *MTR* IS
00912  M01S00731.mtr     +++|*         SCANNING IT.
00913  M01S00732.mtr     +++|
00914  M01S00733.mtr     +++| CRQ2     LDD    RQ          RESET TO START OF LIST
00915  M01S00734.mtr     +++|          CRD    CM
00916  M01S00735.mtr     +++|          LDD    CM+4        SET TO PROCESS FIRST ENTRY
00917  M01S00736.mtr     +++|          STD    RC
00918  M01S00737.mtr     +++| CRQ3     SOD    T3
00919  M01S00738.mtr     +++|          MJN    CRQX        IF LIMIT OF ENTRIES TO PROCESS
00920  M01S00739.mtr     +++| CRQ4     LDD    RC
00921  M01S00740.mtr     +++| CRQ5     CRD    CM
00922  M01S00741.mtr     +++|          STD    CN+2
00923  M01S00742.mtr     +++|          LDD    CM+4        SET NEXT ENTRY
00924  M01S00743.mtr     +++|          STD    RC
00925  M01S00744.mtr     +++|          SCN    17
00926  M01S00745.mtr     +++|          ZJN    CRQ2        IF END OF LIST
00927  M01S00746.mtr     +++|
00928  M01S00747.mtr     +++|*         THE FOLLOWING LOGIC IS DEPENDENT ON THE RECALL TYPES BEING
00929  M01S00748.mtr     +++|*         IN A CERTAIN ORDER.
00930  M01S00749.mtr     +++|
00931  M01S00750.mtr     +++|          ERRNZ  PCBF-1      LOGIC REQUIRES THIS VALUE
00932  M01S00751.mtr     +++|          ERRNZ  PTRF-2      LOGIC REQUIRES THIS VALUE
00933  M01S00752.mtr     +++|          ERRNZ  PTMF-3      LOGIC REQUIRES THIS VALUE
00934  M01S00753.mtr     +++|
00935  M01S00754.mtr     +++|          LDD    CM
00936  M01S00755.mtr     +++|          SBN    PTMF
00937  M01S00756.mtr     +++|          ZJN    PTM         IF TIMED RECALL
00938  M01S00757.mtr     +++|          PJN    CRQ2        IF ILLEGAL RECALL CRITERION
00939  M01S00758.mtr     +++|          ADN    -PCBF+PTMF
00940  M01S00759.mtr     +++| CRQA     ZJN    PCB         IF PROCESS COMPLETION BIT
00941  M01S00760.mtr     +++|*         ZJN    PCB3        (CME PRESENT)
00942  M01S00761.mtr     +++|          MJN    CRQ2        IF NOT TIMED RECALL
00943  M01S00762.mtr     +++| PTM      SPACE  4,10
00944  M01S00763.mtr     +++|**        PTM - TIMED RECALL PROCESSOR.
00945  M01S00764.mtr     +++|*
00946  M01S00765.mtr     +++|*T, CM    12/  PTMF,36/  RT,12/  LK

Figure CM

00947  M01S00766.mtr     +++|*         RT     RECALL TIME.
00948  M01S00767.mtr     +++|*         LK     NEXT RECALL ENTRY.
00949  M01S00768.mtr     +++|
00950  M01S00769.mtr     +++|
00951  M01S00770.mtr     +++| PTM      LDD    TM+2
00952  M01S00771.mtr     +++|          SBD    CM+1

Proceed to Part 1