Deck 1CK

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1ck     +++|          IDENT  1CK,CKP
00002  M00S00002.1ck     +++|          PERIPH
00003  M00S00003.1ck     +++|          BASE   MIXED
00004  M00S00004.1ck     +++|          SST
Line S00005 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.ns2780  ---|*COMMENT  1CK - SYSTEM CHECK POINT.
Line S00001 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.ns2780  +++|*COMMENT  1CK - SYSTEM CHECKPOINT.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00007.ns2780  ---|          TITLE  1CK - SYSTEM CHECK POINT.
Line S00002 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00002.ns2780  +++|          TITLE  1CK - SYSTEM CHECKPOINT.
Line S00008 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00008.253l688 ---|          SPACE  4
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.253l688 +++|          SPACE  4,10
Line S00009 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00009.ns2780  ---|***       1CK - SYSTEM CHECK POINT.
Line S00003 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00003.ns2780  +++|***       1CK - SYSTEM CHECKPOINT.
00015  M00S00010.1ck     +++|*
00016  M00S00011.1ck     +++|*         G. R. MANSFIELD.   70/12/10.
00017  M00S00012.1ck     +++|*         J. L. WARDELL.     72/08/20.
00018  M00S00013.1ck     +++|*         P. D. HAAS.        74/09/16.
00019  M00S00014.1ck     +++|*         R. E. TATE.        75/04/12.
00020  M00S00015.1ck     +++|*         S. L. BETH.        75/05/15.
00021  M00S00016.1ck     +++|          SPACE  4,10
00022  M00S00017.1ck     +++|***              *1CK* IS CALLED TO CHECKPOINT MASS STORAGE DEVICES.
00023  M00S00018.1ck     +++|*
00024  M00S00019.1ck     +++|*
00025  M00S00020.1ck     +++|*         FUNCTION 0         DEADSTART CHECKPOINT.
00026  M00S00021.1ck     +++|*                            ALLOCATES SPACE FOR SYSTEM TABLES
00027  M00S00022.1ck     +++|*                            AND COPIES THEM TO DISK, CHECKPOINTS
00028  M00S00023.1ck     +++|*                            TRT ON SYSTEM DEVICES AND LOCAL AREAS
00029  M00S00024.1ck     +++|*                            ON DEVICES WITH ACTIVE DAYFILES.
00030  M00S00025.1ck     +++|*
00031  M00S00026.1ck     +++|*         FUNCTION 1         SYSTEM CHECKPOINT.
Line S00027 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00027.253l688 ---|*                            IDLES THE SYSTEM AND CHECKPOINTS
00033  M01S00028.253l688 ---|*                            SYSTEM TABLES AND TRTS ON ALL
00034  M01S00029.253l688 ---|*                            SYSTEM DEVICES.
Line S00002 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00002.253l688 +++|*                            IDLES THE SYSTEM AND CHECKPOINTS SYSTEM
00036  M01S00003.253l688 +++|*                            TABLES AND TRTS ON ALL SYSTEM DEVICES.
00037  M00S00030.1ck     +++|*
00038  M00S00031.1ck     +++|*         FUNCTION 2         CHECKPOINT DEVICE.
00039  M00S00032.1ck     +++|*                            CHECKPOINT TRT TO ALL DEVICES WITH
00040  M00S00033.1ck     +++|*                            CHECKPOINT REQUESTS SET.
00041  M00S00034.1ck     +++|*
00042  M00S00035.1ck     +++|*         FUNCTION 3         ALTERNATE LIBRARY CHECKPOINT.
00043  M00S00036.1ck     +++|*                            SAME AS FUNCTION 1 BUT THE SYSTEM
00044  M00S00037.1ck     +++|*                            IS NOT IDLED.
00045  M00S00038.1ck     +++|*
00046  M00S00039.1ck     +++|*         FUNCTION 4         CHECKPOINT LOCAL AREA.
00047  M00S00040.1ck     +++|*                            THE LOCAL AREA ON THE SPECIFIED
00048  M00S00041.1ck     +++|*                            DEVICE IS COPIED TO THE LOCAL AREA
00049  M00S00042.1ck     +++|*                            SECTOR. THE TRT IS ALSO CHECKPOINTED.
00050  M00S00043.1ck     +++|*
00051  M00S00044.1ck     +++|*         FUNCTION 5         CHECKPOINT INITIALIZED DEVICE.
00052  M00S00045.1ck     +++|*                            SAME AS FUNCTION 2 EXCEPT THAT ONLY
00053  M00S00046.1ck     +++|*                            THE DEVICE SPECIFIED IN CALL FROM
00054  M00S00047.1ck     +++|*                            *IMS* IS PROCESSED.
00055  M00S00048.1ck     +++|*
00056  M00S00049.1ck     +++|*         FUNCTION 6         RECOVERY ABORT CHECKPOINT.
00057  M00S00050.1ck     +++|*                            PROCESSES OUTSTANDING CHECKPOINT REQUESTS
00058  M00S00051.1ck     +++|*                            VIA FUNCTION 2 WHEN IT IS IMPOSSIBLE TO
00059  M00S00052.1ck     +++|*                            COMPLETE A CM (LEVEL 3) RECOVERY.
00060  M00S00053.1ck     +++|*
00061  M00S00054.1ck     +++|*         FUNCTION 7         RECOVERY ABORT CHECKPOINT.
00062  M00S00055.1ck     +++|*                            SAME AS FUNCTION 6 EXCEPT BUFFERED DEVICES
00063  M00S00056.1ck     +++|*                            ARE NOT CHECKPOINTED.
00064  M00S00057.1ck     +++|*
00065  M00S00058.1ck     +++|*         FUNCTION 10        IDLE SYSTEM CHECKPOINT.
Line S00059 Modification History
M01 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00059.243l647 ---|*                            IDLE SYSTEM AND CHECKPOINT TRT TO
00067  M01S00060.243l647 ---|*                            ALL DEVICES.
Line S00001 Modification History
M01 (Added by) 243l647
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00001.253l688 ---|*                            SAME AS FUNCTION 1.
00069  M02S00002.253l688 ---|*                            *1MB* WILL BE CALLED INTO THIS PP AT
00070  M02S00003.253l688 ---|*                            COMPLETION.
Line S00004 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00004.253l688 +++|*                            SAME AS FUNCTION 1 EXCEPT *1MB* WILL BE
00072  M01S00005.253l688 +++|*                            CALLED INTO THIS PP AT COMPLETION.
Line S00004 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00004.243l647 +++|*
00074  M01S00005.243l647 +++|*         FUNCTION 11        FATAL IOU ERROR CHECKPOINT.
Line S00006 Modification History
M01 (Added by) 243l647
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00006.253l688 ---|*                            SAME AS FUNCTION 2.
00076  M02S00007.253l688 ---|*                            *1MB* WILL BE CALLED INTO THIS PP AT
00077  M02S00008.253l688 ---|*                            COMPLETION.
Line S00006 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00006.253l688 +++|*                            SAME AS FUNCTION 2 EXCEPT *1MB* WILL BE
00079  M01S00007.253l688 +++|*                            CALLED INTO THIS PP AT COMPLETION.
00080  M01S00008.253l688 +++|*
00081  M01S00009.253l688 +++|*         FUNCTION 12        REWRITE LABEL TRACK.
00082  M01S00010.253l688 +++|*                            SAME AS FUNCTION 2 EXCEPT THAT ONLY THE
00083  M01S00011.253l688 +++|*                            DEVICE SPECIFIED IN THE CALL FROM *1MV* IS
00084  M01S00012.253l688 +++|*                            PROCESSED.
00085  M01S00013.253l688 +++|*                            *1MV* CALLS *1CK* VIA AN *EXECUTE* MACRO
00086  M01S00014.253l688 +++|*                            TO INITIATE THIS FUNCTION.  IT WILL BE
00087  M01S00015.253l688 +++|*                            CALLED BACK INTO THIS PP AT COMPLETION.
Line S00001 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00001.ns2593  +++|*
00089  M01S00002.ns2593  +++|*         FUNCTION 13        LONG POWER WARNING CHECKPOINT.
00090  M01S00003.ns2593  +++|*                            SAME AS FUNCTION 1 EXCEPT THAT ONLY 834
00091  M01S00004.ns2593  +++|*                            AND 836 DEVICES WILL BE CHECKPOINTED, AND
00092  M01S00005.ns2593  +++|*                            *1MB* WILL BE CALLED INTO THIS PP AT THE
00093  M01S00006.ns2593  +++|*                            COMPLETION OF THE CHECKPOINT.
00094  M00S00061.1ck     +++|          SPACE  4,10
00095  M00S00062.1ck     +++|***       ENTRY CONDITIONS.
00096  M00S00063.1ck     +++|*
00097  M00S00064.1ck     +++|*
00098  M00S00065.1ck     +++|*         (IR+2) = FUNCTION CODE.
Line S00066 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00066.253l688 ---|*         (IR+3) = EST ORDINAL (FUNCTIONS 4 AND 5).
Line S00016 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00016.253l688 +++|*         (IR+3) = EST ORDINAL (FUNCTIONS 4, 5 AND 12.)
Line S00009 Modification History
M01 (Added by) 243l647
M02 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00009.ns2593  ---|*                = *1MB* FUNCTION CODE (FUNCTIONS 10 AND 11).
Line S00007 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00007.ns2593  +++|*                = *1MB* FUNCTION CODE (FUNCTIONS 10, 11 AND 13).
Line S00067 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00067.253l688 ---|*         (IR+4) = RECOVERY STATUS.
Line S00017 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00017.253l688 +++|*         (IR+4) = NUMBER OF DAYFILE POINTER TO UPDATE (FUNCTION 4).
00105  M01S00018.253l688 +++|*                = PREVIOUS ACCESS STATUS (MMF) (FUNCTION 5).
00106  M00S00068.1ck     +++|          SPACE  4,10
00107  M00S00069.1ck     +++|***       DAYFILE MESSAGES.
00108  M00S00070.1ck     +++|*
00109  M00S00071.1ck     +++|*         *ALL EQ-S CHECKPOINTED.*           (CONSOLE LINE 1)
00110  M00S00072.1ck     +++|*         *RECOVERY ABORTED.*                (CONSOLE LINE 2)
00111  M00S00073.1ck     +++|*                ALL DEVICES WERE SUCCESSFULLY CHECKPOINTED
00112  M00S00074.1ck     +++|*                AND RECOVERY WAS ABORTED.
00113  M00S00075.1ck     +++|*
00114  M00S00076.1ck     +++|*         * CHECKPOINT ABORTED.* = ERROR FLAG WAS SET.
00115  M00S00077.1ck     +++|*
00116  M00S00078.1ck     +++|*         *CHECKPOINT COMPLETE.* = NORMAL COMPLETION.
00117  M00S00079.1ck     +++|*
00118  M00S00080.1ck     +++|*         *EQXXX, CHECKPOINT ABORTED.* = UNRECOVERED ERROR WRITING
00119  M00S00081.1ck     +++|*                SYSTEM SECTOR ON EST ORDINAL XXX.
00120  M00S00082.1ck     +++|*
00121  M00S00083.1ck     +++|*         *EQXXX, LOCAL AREA OVERFLOW.* = LOCAL AREA SECTOR WAS FULL
00122  M00S00084.1ck     +++|*                (40B MACHINE ID-S ALREADY PRESENT).
00123  M00S00085.1ck     +++|*
00124  M00S00086.1ck     +++|*         *EQXXX, LOCAL AREA SECTOR ERROR.* = UNRECOVERED READ ERROR ON
00125  M00S00087.1ck     +++|*                SECTOR OF LOCAL AREAS.
00126  M00S00088.1ck     +++|*
00127  M00S00089.1ck     +++|*         *EQXXX, TRACK LIMIT.* = NO TRACKS WERE AVAILABLE ON EST
00128  M00S00090.1ck     +++|*                ORDINAL XXX.
00129  M00S00091.1ck     +++|*
00130  M00S00092.1ck     +++|*         *NON-BUFFERED EQ-S CHECKPOINTED.*  (CONSOLE LINE 1)
00131  M00S00093.1ck     +++|*         *RECOVERY ABORTED.*                (CONSOLE LINE 2)
00132  M00S00094.1ck     +++|*                NON-BUFFERED DEVICES WERE SUCCESSFULLY
00133  M00S00095.1ck     +++|*                CHECKPOINTED AND RECOVERY WAS ABORTED.
00134  M00S00096.1ck     +++|*
00135  M00S00097.1ck     +++|*         * SYSTEM CHECKPOINT ABORT.* = MESSAGE ISSUED TO SUBSYSTEMS
00136  M00S00098.1ck     +++|*                WHICH ARE ABORTED DURING A SYSTEM CHECKPOINT.
00137  M00S00099.1ck     +++|          SPACE  4,10
00138  M00S00100.1ck     +++|***       OPERATOR MESSAGES.
00139  M00S00101.1ck     +++|*
00140  M00S00102.1ck     +++|*         NONE.
Line S00103 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00103.253l688 ---|          SPACE  4
Line S00019 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00142  M01S00019.253l688 +++|          SPACE  4,10
00143  M00S00104.1ck     +++|**        ROUTINES USED.
00144  M00S00105.1ck     +++|*
00145  M00S00106.1ck     +++|*
00146  M00S00107.1ck     +++|*         0TD - TERMINATE DAYFILES.
00147  M00S00108.1ck     +++|*         5ME - FORMAT ERROR MESSAGES.
Line S00109 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00148  M01S00109.253l688 ---|          SPACE  4
Line S00020 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00020.253l688 +++|          SPACE  4,10
00150  M00S00110.1ck     +++|*CALL     COMPMAC
00151  M00S00111.1ck     +++|*CALL     COMSCPS
Line S00001 Modification History
M01 (Added by) 1ck10
Seq #  *Modification Id* Act 
----------------------------+
00152  M01S00001.1ck10   +++|*CALL     COMSDFS
00153  M00S00112.1ck     +++|*CALL     COMSDSL
00154  M00S00113.1ck     +++|*CALL     COMSDST
00155  M00S00114.1ck     +++|*CALL     COMSEVT
Line S00001 Modification History
M01 (Added by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00001.ns2477  +++|*CALL     COMSHIO
00157  M00S00115.1ck     +++|*CALL     COMSLSD
00158  M00S00116.1ck     +++|*CALL     COMSMMF
00159  M00S00117.1ck     +++|*CALL     COMSMSC
00160  M00S00118.1ck     +++|*CALL     COMSMSP
00161  M00S00119.1ck     +++|*CALL     COMSMST
00162  M00S00120.1ck     +++|*CALL     COMSPIM
Line S00001 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00001.ns2513  +++|          QUAL   SCD
00164  M01S00002.ns2513  +++|*CALL     COMSSCD
00165  M01S00003.ns2513  +++|          QUAL   *
00166  M00S00121.1ck     +++|*CALL     COMSSSD
00167  M00S00122.1ck     +++|*CALL     COMSWEI
00168  M00S00123.1ck     +++|*CALL     COMSZOL
Line S00124 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00169  M01S00124.253l688 ---|          SPACE  4
Line S00021 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00021.253l688 +++|          SPACE  4,10
00171  M00S00125.1ck     +++|**        MACRO  DEFINITIONS.
Line S00126 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00126.253l688 ---| MTBL     SPACE  4
Line S00022 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00173  M01S00022.253l688 +++| MTBL     SPACE  4,10
00174  M00S00127.1ck     +++|**        MTBL - GENERATE TABLE OF PARALLEL MST ADDRESSES.
00175  M00S00128.1ck     +++|*
00176  M00S00129.1ck     +++|*                N = TABLE NAME.
00177  M00S00130.1ck     +++|*                A = NOS MST ADDRESS.
00178  M00S00131.1ck     +++|*                B = K21 MST ADDRESS.
00179  M00S00132.1ck     +++|*                C = REPEAT COUNT.
00180  M00S00133.1ck     +++|
00181  M00S00134.1ck     +++|
00182  M00S00135.1ck     +++|          NOREF  .I,.X,.Y
00183  M00S00136.1ck     +++|
00184  M00S00137.1ck     +++|          MACRO  MTBL,N,A,B,C
00185  M00S00138.1ck     +++|          IFC    NE,*N**,1
00186  M00S00139.1ck     +++| N        BSS    0
00187  M00S00140.1ck     +++| )3       IFC    NE,*C**
00188  M00S00141.1ck     +++| .I       SET    C
00189  M00S00142.1ck     +++| )3       ELSE   1
00190  M00S00143.1ck     +++| .I       SET    1
00191  M00S00144.1ck     +++| .X       SET    NMSS+5*A
00192  M00S00145.1ck     +++| .Y       SET    MTSS+5*/K21/B
00193  M00S00146.1ck     +++| )D       DUP    .I
00194  M00S00147.1ck     +++|          CON    .X,.Y
00195  M00S00148.1ck     +++| .X       SET    .X+1
00196  M00S00149.1ck     +++| .Y       SET    .Y+1
00197  M00S00150.1ck     +++| )D       ENDD
00198  M00S00151.1ck     +++|          ENDM
00199  M00S00152.1ck     +++| SUBSYST  SPACE  4,10
00200  M00S00153.1ck     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00201  M00S00154.1ck     +++|*
00202  M00S00155.1ck     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00203  M00S00156.1ck     +++|*
00204  M00S00157.1ck     +++|*         ENTRY  *ABT* = *NA*, IF SUBSYSTEM NOT TO BE ABORTED
00205  M00S00158.1ck     +++|*                              BY CHECKPOINT.
00206  M00S00159.1ck     +++|*
00207  M00S00160.1ck     +++|*         TABLE OF SUBSYSTEM ID-S OF SUBSYSTEMS NOT TO BE ABORTED.
00208  M00S00161.1ck     +++|*
00209  M00S00162.1ck     +++|*T        12/ SSID
Figure

011 SSID

00210  M00S00163.1ck     +++|
00211  M00S00164.1ck     +++|
00212  M00S00165.1ck     +++|          PURGMAC  SUBSYST
00213  M00S00166.1ck     +++|
00214  M00S00167.1ck     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00215  M00S00168.1ck     +++| .A       IFC    EQ,$AB$NA$
00216  M00S00169.1ck     +++| .SUB     RMT
00217  M00S00170.1ck     +++|          CON    ID
00218  M00S00171.1ck     +++| .SUB     RMT
00219  M00S00172.1ck     +++| .A       ENDIF
00220  M00S00173.1ck     +++| SUBSYST  ENDM
Line S00174 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00174.253l688 ---|          SPACE  4
Line S00023 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00023.253l688 +++|          SPACE  4,10
00223  M00S00175.1ck     +++|****      DIRECT LOCATION ASSIGNMENTS.
00224  M00S00176.1ck     +++|
00225  M00S00177.1ck     +++|
00226  M00S00178.1ck     +++| T8       EQU    16          TEMPORARY STORAGE
00227  M00S00179.1ck     +++| T9       EQU    17
00228  M00S00180.1ck     +++| RI       EQU    T8 - T9     RANDOM INDEX
00229  M00S00181.1ck     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00230  M00S00182.1ck     +++| NC       EQU    25          NUMBER OF CONTROL POINTS
00231  M00S00183.1ck     +++| NT       EQU    26          NEXT TRACK POINTER
00232  M00S00184.1ck     +++| EI       EQU    27          EQUIPMENT INDEX
00233  M00S00185.1ck     +++| ES       EQU    30 - 34     EST ENTRY (5 LOCATIONS)
Line S00024 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00024.253l688 +++| DT       EQU    ES+3        DEVICE TYPE
00235  M01S00025.253l688 +++| MS       EQU    ES+4        MST ADDRESS / 10B
00236  M00S00186.1ck     +++| LT       EQU    35          LABEL TRACK
Line S00187 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00187.251l664 ---| DA       EQU    36          DAYFILE POINTER ADDRESS
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00238  M01S00001.251l664 +++| DI       EQU    36          DAYFILE INDEX
00239  M00S00188.1ck     +++| UI       EQU    37          UTILITY ACTIVE INTERLOCK FLAG
Line S00189 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00240  M01S00189.251l664 ---| FS       EQU    40 - 44     CM WORD BUFFER (5 WORDS).
Line S00002 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00002.251l664 +++| FS       EQU    40 - 44     CM WORD BUFFER (5 LOCATIONS)
Line S00190 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00190.253l688 ---| SW       EQU    45          DEVICE STATUS WORD
Line S00026 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00026.253l688 +++| LS       EQU    45          LAST SECTOR FLAG
00244  M00S00191.1ck     +++| PA       EQU    46          PROCESSOR ADDRESS
00245  M00S00192.1ck     +++| TS       EQU    47          LABEL TRACK INTERLOCK STATUS
00246  M00S00193.1ck     +++| FA       EQU    57          FST ADDRESS
00247  M00S00194.1ck     +++| LO       EQU    60          LAST MASS STORAGE ORDINAL + 1
00248  M00S00195.1ck     +++| ST       EQU    62          SYSTEM TABLE TRACK
00249  M00S00196.1ck     +++| CA       EQU    63 - 67     CENTRAL ADDRESS (2 LOCATIONS)
00250  M00S00197.1ck     +++| EC       EQU    CA+2        MANAGED TABLE ENTRY COUNT
00251  M00S00198.1ck     +++| LM       EQU    CA+3 - CA+4 LIMIT ADDRESS (2 LOCATIONS)
00252  M00S00199.1ck     +++|****
00253  M00S00200.1ck     +++|          TITLE  MAIN PROGRAM.
Line S00201 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00201.253l688 ---| CKP      SPACE  4
Line S00027 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00027.253l688 +++| CKP      SPACE  4,10
00256  M00S00202.1ck     +++|**        CKP - MAIN PROGRAM.
00257  M00S00203.1ck     +++|
00258  M00S00204.1ck     +++|
00259  M00S00205.1ck     +++|          ORG    PPFW
00260  M00S00206.1ck     +++| CKP      LJM    PRS         PRESET PROGRAM
00261  M00S00207.1ck     +++|
00262  M00S00208.1ck     +++|
Line S00209 Modification History
M01 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00209.243l647 ---| DPP      MONITOR DPPM       DROP PP
Line S00010 Modification History
M01 (Added by) 243l647
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00010.253l688 ---| DPP      LJM    DPP1        DROP PP
Line S00028 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00028.253l688 +++| DPP      LJM    PRS5        PRESET *1MV* SPECIAL CALL
00266  M01S00029.253l688 +++|          ERRNZ  CKP+2-DPP   FUNCTION 12 DEPENDS ON VALUE
Line S00011 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00011.243l647 +++| DPPA     EQU    *-1         (EXIT PROCESSING ADDRESS)
00268  M01S00012.243l647 +++|
00269  M01S00013.243l647 +++| DPP1     MONITOR  DPPM      DROP PP
00270  M00S00210.1ck     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S00211 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00211.253l688 ---|          SPACE  4
00272  M01S00212.253l688 ---|**        LABEL SECTOR FNT ENTRY.
00273  M01S00213.253l688 ---|
00274  M01S00214.253l688 ---|
00275  M01S00215.253l688 ---| NLAB     VFD    42/0LLABEL,6/1,6/SYFT,6/0
00276  M00S00216.1ck     +++| DSC      SPACE  4
00277  M00S00217.1ck     +++|***       FUNCTION 0.
00278  M00S00218.1ck     +++|*         DEAD START CHECK POINT.
00279  M00S00219.1ck     +++|
00280  M00S00220.1ck     +++|
00281  M00S00221.1ck     +++| DSC      EXECUTE 3CK
00282  M00S00222.1ck     +++| SYC      SPACE  4,10
Line S00223 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00223.ns2593  ---|***       FUNCTIONS 1, 3, 10.
Line S00008 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00008.ns2593  +++|***       FUNCTIONS 1, 3, 10, 13.
00285  M00S00224.1ck     +++|*         SYSTEM CHECK POINT.
00286  M00S00225.1ck     +++|*         ALTERNATE LIBRARY CHECKPOINT.
00287  M00S00226.1ck     +++|*         IDLE SYSTEM CHECKPOINT.
Line S00009 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00009.ns2593  +++|*         LONG POWER WARNING CHECKPOINT.
00289  M00S00227.1ck     +++|
00290  M00S00228.1ck     +++|
00291  M00S00229.1ck     +++| SYC      EQU    DSC
00292  M00S00230.1ck     +++| PFC      SPACE  4
00293  M00S00231.1ck     +++|***       FUNCTION 2.
00294  M00S00232.1ck     +++|*         CHECK POINT PERMANENT FILE DEVICES.
00295  M00S00233.1ck     +++|
00296  M00S00234.1ck     +++|
00297  M00S00235.1ck     +++| PFC2     LDD    T5          SET EST ORDINAL
00298  M00S00236.1ck     +++|          STD    CM+1
00299  M00S00237.1ck     +++|          STD    IR+3
00300  M00S00238.1ck     +++|          LDN    VEIS        VALIDATE EQUIPMENT
00301  M00S00239.1ck     +++|          STD    CM+3
00302  M00S00240.1ck     +++|          MONITOR VMSM
00303  M00S00241.1ck     +++|          LDD    CM+1
00304  M00S00242.1ck     +++|          NJN    PFC1        IF VALIDATION ERRORS
00305  M00S00243.1ck     +++| PFC3     RJM    CDB         CHECK FOR DISK BUFFERED
Line S00244 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00306  M01S00244.283l840 ---|          NJN    PFC4        IF DEVICE NOT TO BE CHECKPOINTED
Line S00001 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00307  M01S00001.283l840 +++|          ZJN    PFC4        IF DEVICE IS NOT TO BE CHECKPOINTED
00308  M01S00002.283l840 +++|          AOM    UERR        SET *RETURN ON NOT READY* FLAG
Line S00001 Modification History
M01 (Added by) 1ck7
Seq #  *Modification Id* Act 
----------------------------+
00309  M01S00001.1ck7    +++|          ERRNZ  EPNR-1      CODE DEPENDS ON VALUE
Line S00002 Modification History
M01 (Added by) 1ck7
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00002.283l840 ---|          AOM    UERR        SET *RETURN ON NOT READY* FLAG
00311  M00S00245.1ck     +++|          RJM    WTT         WRITE MASS STORAGE TABLES
Line S00246 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00246.283l840 ---| PFC4     RJM    CIL         CLEAR INTERLOCKS
Line S00003 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00003.283l840 +++| PFC4     RJM    FIB         FLUSH I/O BUFFERS
00314  M01S00004.283l840 +++|          RJM    CIL         CLEAR INTERLOCKS
00315  M00S00247.1ck     +++|
00316  M00S00248.1ck     +++| PFC      RJM    SMD         SELECT MASS STORAGE DEVICE
00317  M00S00249.1ck     +++|          NJN    PFC2        IF NOT END OF MS ENTRIES
00318  M00S00250.1ck     +++|*         NJN    PFC3        (MASS STORAGE VALIDATION DISABLED)
00319  M00S00251.1ck     +++| PFCA     EQU    *-1
00320  M00S00252.1ck     +++|          LJM    DPP         DROP PP
00321  M00S00253.1ck     +++| PFCB     EQU    *-1
00322  M00S00254.1ck     +++|*         LJM    /3CK/RAC1   (RECOVERY ABORT CHECKPOINT)
00323  M00S00255.1ck     +++|
00324  M00S00256.1ck     +++| PFC1     STD    IR+2        STORE ERROR CODES
00325  M00S00257.1ck     +++|          LDN    STVE        SET ERROR STATUS IN MST
00326  M00S00258.1ck     +++|          RJM    SES
00327  M00S00259.1ck     +++|          EXECUTE 5ME        PROCESS ERRLOG MESSAGES
00328  M00S00260.1ck     +++|          UJN    PFC4        CLEAR INTERLOCKS
00329  M00S00261.1ck     +++|          SPACE  4
00330  M00S00262.1ck     +++|***       FUNCTION 4.
00331  M00S00263.1ck     +++|*         UPDATE LOCAL AREA SECTOR.
00332  M00S00264.1ck     +++|*
00333  M00S00265.1ck     +++|*         (IR+3) = EQUIPMENT.
00334  M00S00266.1ck     +++|
00335  M00S00267.1ck     +++|
00336  M00S00268.1ck     +++| ULA      EQU    DSC
00337  M00S00269.1ck     +++|          SPACE  4
00338  M00S00270.1ck     +++|***       FUNCTION 5.
00339  M00S00271.1ck     +++|*         CHECKPOINT INITIALIZED DEVICE.
00340  M00S00272.1ck     +++|*
00341  M00S00273.1ck     +++|*         ENTRY  (IR+3) = EST ORDINAL.
00342  M00S00274.1ck     +++|
00343  M00S00275.1ck     +++|
Line S00276 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00276.ns2780  ---| IDC      EQU    DSC
Line S00004 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00345  M01S00004.ns2780  +++| IDC      EXECUTE  3CL
00346  M00S00277.1ck     +++| RAC      SPACE  4,10
00347  M00S00278.1ck     +++|***       FUNCTION 6 AND 7.
00348  M00S00279.1ck     +++|*         RECOVERY ABORT CHECKPOINT.
00349  M00S00280.1ck     +++|
00350  M00S00281.1ck     +++|
Line S00282 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00282.ns2780  ---| RAC      EQU    DSC
Line S00005 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00352  M01S00005.ns2780  +++| RAC      EQU    IDC
Line S00014 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00014.243l647 +++| FIC      SPACE  4,10
00354  M01S00015.243l647 +++|***       FUNCTION 11.
00355  M01S00016.243l647 +++|*         FATAL IOU ERROR CHECKPOINT.
00356  M01S00017.243l647 +++|
00357  M01S00018.243l647 +++|
00358  M01S00019.243l647 +++| FIC      EQU    DSC
Line S00030 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00030.253l688 +++| RLT      SPACE  4,10
00360  M01S00031.253l688 +++|***       FUNCTION 12.
00361  M01S00032.253l688 +++|*         REWRITE LABEL TRACK.
00362  M01S00033.253l688 +++|
00363  M01S00034.253l688 +++|
Line S00035 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00035.ns2780  ---| RLT      EQU    DSC
Line S00006 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00365  M01S00006.ns2780  +++| RLT      EQU    IDC
00366  M00S00283.1ck     +++|          TITLE  SUBROUTINES.
00367  M00S00284.1ck     +++| ABT      SPACE  4,10
00368  M00S00285.1ck     +++|**        ABT - ABORT THE OPERATION.
00369  M00S00286.1ck     +++|*
00370  M00S00287.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
00371  M00S00288.1ck     +++|
00372  M00S00289.1ck     +++|
00373  M00S00290.1ck     +++| ABT      LDC    ABTB
00374  M00S00291.1ck     +++|          RJM    DFM
00375  M00S00292.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
00376  M00S00293.1ck     +++|          SMSTF  LCKP        RESET CHECKPOINT REQUEST
00377  M00S00294.1ck     +++|          LJM    DPP
00378  M00S00295.1ck     +++|
00379  M00S00296.1ck     +++| ABTA     DATA   H*EQXXX,*
00380  M00S00297.1ck     +++| ABTB     DATA   C* CHECKPOINT ABORTED.*
Line S00007 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00007.ns2780  +++| CBP      SPACE  4,15
00382  M01S00008.ns2780  +++|**        CBP - CLEAR *BAT* PERMISSIONS UNCONDITIONALLY.
00383  M01S00009.ns2780  +++|*
00384  M01S00010.ns2780  +++|*         ENTRY  (T5) = EST ORDINAL.
00385  M01S00011.ns2780  +++|*                (ES - ES+4) = EST ENTRY.
00386  M01S00012.ns2780  +++|*
00387  M01S00013.ns2780  +++|*         EXIT   *BAT* PERMISSIONS FOR THIS MAINFRAME CLEARED.
00388  M01S00014.ns2780  +++|*
00389  M01S00015.ns2780  +++|*         USES   CM - CM+4.
00390  M01S00016.ns2780  +++|*
00391  M01S00017.ns2780  +++|*         MACROS  MONITOR.
00392  M01S00018.ns2780  +++|
00393  M01S00019.ns2780  +++|
00394  M01S00020.ns2780  +++| CBP      SUBR               ENTRY/EXIT
00395  M01S00021.ns2780  +++|          LDN    ZERL
00396  M01S00022.ns2780  +++|          CRD    CM
00397  M01S00023.ns2780  +++| CBPA     LDN    **          SET MACHINE INDEX
00398  M01S00024.ns2780  +++|          STD    CM+2
00399  M01S00025.ns2780  +++|          LDD    T5          SET EST ORDINAL
00400  M01S00026.ns2780  +++|          STD    CM+4
00401  M01S00027.ns2780  +++|          LDN    CBWS        CLEAR *BAT* PERMISSIONS UNCONDITIONALLY
00402  M01S00028.ns2780  +++|          STD    CM+1
00403  M01S00029.ns2780  +++|          MONITOR  MTEM
00404  M01S00030.ns2780  +++|          UJN    CBPX        RETURN
00405  M00S00298.1ck     +++| CDB      SPACE  4,10
00406  M00S00299.1ck     +++|**        CDB - CHECK IF DEVICE IS BUFFERED.
00407  M00S00300.1ck     +++|*
Line S00301 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00408  M01S00301.283l840 ---|*         ENTRY  (T5) = EST ORDINAL.
00409  M01S00302.283l840 ---|*                (ES+4) = MST ADDRESS.
Line S00005 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00410  M01S00005.283l840 +++|*         ENTRY  (ES - ES+4) = EST ENTRY.
00411  M00S00303.1ck     +++|*
Line S00304 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00304.283l840 ---|*         EXIT   DATA BUFFERS FLUSHED IF DEVICE BUFFERED.
00413  M01S00305.283l840 ---|*                (A) = 0, DEVICE TO BE CHECKPOINTED.
00414  M01S00306.283l840 ---|*
00415  M01S00307.283l840 ---|*         USES   CM - CM+4.
00416  M01S00308.283l840 ---|*
00417  M01S00309.283l840 ---|*         MACROS MONITOR.
Line S00006 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00006.283l840 +++|*         EXIT   (A) = 0, IF DEVICE IS NOT TO BE CHECKPOINTED.
00419  M00S00310.1ck     +++|
00420  M00S00311.1ck     +++|
Line S00312 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00421  M01S00312.283l840 ---| CDB1     LDN    1           INDICATE NO CHECKPOINT
Line S00007 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00007.283l840 +++| CDB1     LDN    1           INDICATE DEVICE MAY BE CHECKPOINTED
00423  M00S00313.1ck     +++|
00424  M00S00314.1ck     +++| CDB      SUBR               ENTRY/EXIT
Line S00315 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00315.283l840 ---|          LDD    ES+4        CHECK IF BUFFERED DEVICE
00426  M01S00316.283l840 ---|          SHN    3
00427  M01S00317.283l840 ---|          ADN    DILL
00428  M01S00318.283l840 ---|          CRD    CM
00429  M01S00319.283l840 ---|          LDD    CM+3
00430  M01S00320.283l840 ---|          LPC    2000
00431  M01S00321.283l840 ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
Line S00008 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00008.283l840 +++|          LDD    ES          CHECK IF BUFFERED DEVICE
00433  M01S00009.283l840 +++|          LPN    40
00434  M01S00010.283l840 +++|          ZJN    CDB1        IF NOT A BUFFERED DEVICE
00435  M00S00322.1ck     +++|          LDD    IR+2
Line S00323 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00436  M01S00323.283l840 ---|          LMN    7
00437  M01S00324.283l840 ---|          ZJN    CDB1        IF DO NOT FLUSH BUFFERED DEVICE
00438  M01S00325.283l840 ---|          LDN    ZERL
00439  M01S00326.283l840 ---|          CRD    CM
00440  M01S00327.283l840 ---|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
00441  M01S00328.283l840 ---|          STD    CM+4
00442  M01S00329.283l840 ---|          LDD    T5
00443  M01S00330.283l840 ---|          STD    CM+3
00444  M01S00331.283l840 ---|          MONITOR  BFMM
00445  M01S00332.283l840 ---|*         LDN    0
Line S00011 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00446  M01S00011.283l840 +++|          LMN    7           ZERO IF BUFFERED DEVICES NOT TO BE FLUSHED
00447  M00S00333.1ck     +++|          UJN    CDBX        RETURN
00448  M00S00334.1ck     +++| CIL      SPACE  4,15
00449  M00S00335.1ck     +++|**        CIL - CLEAR INTERLOCKS.
00450  M00S00336.1ck     +++|*
00451  M00S00337.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
00452  M00S00338.1ck     +++|*                (LT) = LABEL TRACK.
00453  M00S00339.1ck     +++|*                (TS) = LABEL TRACK INTERLOCK STATUS.
Line S00001 Modification History
M01 (Added by) 1ck8
Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00001.1ck8    +++|*                     = 4000, IF CHECKPOINT ABORT PROCESSING.
00455  M00S00340.1ck     +++|*                (UI) = UTILITY ACTIVE INTERLOCK STATUS.
00456  M00S00341.1ck     +++|*
00457  M00S00342.1ck     +++|*         EXIT   (A) = (TS) = (UI) = 0 (INTERLOCKS CLEARED).
Line S00002 Modification History
M01 (Added by) 1ck8
Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00002.1ck8    +++|*                (TS) = 4000, IF CHECKPOINT ABORT PROCESSING.
00459  M00S00343.1ck     +++|*
00460  M00S00344.1ck     +++|*         CALLS  CTI.
00461  M00S00345.1ck     +++|
00462  M00S00346.1ck     +++|
Line S00003 Modification History
M01 (Added by) 1ck8
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00003.1ck8    +++| CIL2     LDN    0
00464  M01S00004.1ck8    +++|
00465  M00S00347.1ck     +++| CIL      SUBR               ENTRY/EXIT
00466  M00S00348.1ck     +++|          LDD    UI
00467  M00S00349.1ck     +++|          ZJN    CIL1        IF UTILITY ACTIVE INTERLOCK NOT SET
00468  M00S00350.1ck     +++|          CMSTF  LUAI        CLEAR UTILITY ACTIVE INTERLOCK
00469  M00S00351.1ck     +++|*         LDN    0           CLEAR INTERLOCK STATUS
00470  M00S00352.1ck     +++|          STD    UI
00471  M00S00353.1ck     +++| CIL1     LDD    TS
00472  M00S00354.1ck     +++|          ZJN    CILX        IF LABEL TRACK NOT INTERLOCKED
Line S00005 Modification History
M01 (Added by) 1ck8
Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00005.1ck8    +++|          SHN    21-13
00474  M01S00006.1ck8    +++|          MJN    CIL2        IF CHECKPOINT ABORT PROCESSING
00475  M00S00355.1ck     +++|          LDD    LT          CLEAR TRACK INTERLOCK
00476  M00S00356.1ck     +++|          RJM    CTI
00477  M00S00357.1ck     +++|*         LDN    0           CLEAR INTERLOCK STATUS
00478  M00S00358.1ck     +++|          STD    TS
00479  M00S00359.1ck     +++|          UJN    CILX        RETURN
Line S00031 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00031.ns2780  +++| DDB      SPACE  4,15
00481  M01S00032.ns2780  +++|**        DDB - DROP DISK BUFFERS.
00482  M01S00033.ns2780  +++|*
00483  M01S00034.ns2780  +++|*         ENTRY  (T5) = EST ORDINAL.
00484  M01S00035.ns2780  +++|*                (ES - ES+4) = EST ENTRY.
00485  M01S00036.ns2780  +++|*
00486  M01S00037.ns2780  +++|*         EXIT   (A) = 0, IF ALL DISK BUFFERS RELEASED.
00487  M01S00038.ns2780  +++|*
00488  M01S00039.ns2780  +++|*         USES   CM - CM+4.
00489  M01S00040.ns2780  +++|*
00490  M01S00041.ns2780  +++|*         MACROS MONITOR.
00491  M01S00042.ns2780  +++|
00492  M01S00043.ns2780  +++|
00493  M01S00044.ns2780  +++| DDB      SUBR               ENTRY/EXIT
00494  M01S00045.ns2780  +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
00495  M01S00046.ns2780  +++|          CRD    CM
00496  M01S00047.ns2780  +++|          LDD    T5          SET EST ORDINAL
00497  M01S00048.ns2780  +++|          STD    CM+3
00498  M01S00049.ns2780  +++|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
00499  M01S00050.ns2780  +++|          STD    CM+4
00500  M01S00051.ns2780  +++|          MONITOR  BFMM
00501  M01S00052.ns2780  +++|          LDD    CM+4        GET *BFMM* STATUS
00502  M01S00053.ns2780  +++|          UJN    DDBX        RETURN
Line S00012 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00012.283l840 +++| FIB      SPACE  4,15
00504  M01S00013.283l840 +++|**        FIB - FLUSH I/O BUFFERS.
00505  M01S00014.283l840 +++|*
00506  M01S00015.283l840 +++|*         ENTRY  (T5) = EST ORDINAL.
00507  M01S00016.283l840 +++|*                (ES - ES+4) = EST ENTRY.
00508  M01S00017.283l840 +++|*
Line S00018 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00018.ns2780  ---|*         EXIT   DISK BUFFERS FLUSHED UNLESS FUNCTION 7.
00510  M02S00019.ns2780  ---|*                DISK BUFFERS RELEASED IF FUNCTION 6.
00511  M02S00020.ns2780  ---|*                *BAT* ACCESS FLAGS RELEASED IF FUNCTION 6 OR 7.
Line S00054 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00512  M01S00054.ns2780  +++|*         EXIT   ONE OR MORE OF THE FOLLOWING WILL BE PERFORMED,
00513  M01S00055.ns2780  +++|*                  BASED ON THE *1CK* FUNCTION.
00514  M01S00056.ns2780  +++|*                - DISK BUFFERS FLUSHED.
00515  M01S00057.ns2780  +++|*                - DISK BUFFERS RELEASED.
00516  M01S00058.ns2780  +++|*                - *BAT*/*BST* PERMISSIONS RELEASED.
00517  M01S00059.ns2780  +++|*                - *BAT* PERMISSIONS UNCONDITIONALLY CLEARED.
Line S00021 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00021.283l840 +++|*
Line S00022 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00022.ns2780  ---|*         USES   CM - CM+4.
Line S00060 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00060.ns2780  +++|*         USES   T1, T2, CM - CM+4.
Line S00023 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00521  M01S00023.283l840 +++|*
00522  M01S00024.283l840 +++|*         MACROS DELAY, MONITOR, PAUSE.
00523  M01S00025.283l840 +++|
00524  M01S00026.283l840 +++|
00525  M01S00027.283l840 +++| FIB      SUBR               ENTRY/EXIT
Line S00061 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00061.ns2780  +++|          LDD    TH          SET MAXIMUM RETRY COUNT
00527  M01S00062.ns2780  +++|          STD    T1
Line S00028 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00528  M01S00028.283l840 +++|          LDD    ES          CHECK IF BUFFERED DEVICE
00529  M01S00029.283l840 +++|          LPN    40
00530  M01S00030.283l840 +++|          ZJN    FIBX        IF NOT A BUFFERED DEVICE
Line S00031 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00031.ns2780  ---|          LDD    IR+2
00532  M02S00032.ns2780  ---|          LMN    7
00533  M02S00033.ns2780  ---|          ZJP    FIB2        IF FUNCTION 7
Line S00063 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00063.ns2780  +++|          LJM    **          PROCESS DEVICE BASED ON *1CK* FUNCTION
00535  M01S00064.ns2780  +++| FIBA     EQU    *-1         (PROCESSING ADDRESS)
Line S00034 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00536  M01S00034.283l840 +++|
Line S00035 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00035.ns2780  ---|*         FLUSH WRITE BUFFERS.
Line S00065 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00065.ns2780  +++|*         FUNCTIONS 0, 2, 3, 5, 10 AND 11.
Line S00036 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00539  M01S00036.283l840 +++|
Line S00037 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00037.ns2780  ---| FIB1     LDN    ZERL        CLEAR ASSEMBLY AREA
Line S00066 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00541  M01S00066.ns2780  +++| FIB1     RJM    FWB         FLUSH WRITE BUFFERS
00542  M01S00067.ns2780  +++|          UJN    FIBX        RETURN
00543  M01S00068.ns2780  +++|
00544  M01S00069.ns2780  +++|*         FUNCTIONS 1 AND 6.
00545  M01S00070.ns2780  +++|
00546  M01S00071.ns2780  +++| FIB2     LDD    ES
00547  M01S00072.ns2780  +++|          SHN    21-11
00548  M01S00073.ns2780  +++|          MJN    FIB3        IF SHARED BUFFERED DEVICE
00549  M01S00074.ns2780  +++|          RJM    FWB         FLUSH WRITE BUFFERS
00550  M01S00075.ns2780  +++|          RJM    DDB         DROP DISK BUFFERS
00551  M01S00076.ns2780  +++|          UJN    FIB4        CHECK STATUS
00552  M01S00077.ns2780  +++|
00553  M01S00078.ns2780  +++| FIB3     RJM    RBP         RELEASE *BAT*/*BST* PERMISSIONS
00554  M01S00079.ns2780  +++| FIB4     ZJN    FIB5        IF SUCCESSFUL
00555  M01S00080.ns2780  +++|          DELAY  200B        DELAY 16 MILLISECONDS
00556  M01S00081.ns2780  +++|          SOD    T1
00557  M01S00082.ns2780  +++|          NJN    FIB2        IF RETRY COUNT NOT EXHAUSTED
00558  M01S00083.ns2780  +++| FIB5     UJP    FIBX        RETURN
00559  M01S00084.ns2780  +++|
00560  M01S00085.ns2780  +++|*         FUNCTION 7.
00561  M01S00086.ns2780  +++|
00562  M01S00087.ns2780  +++| FIB6     LDD    ES
00563  M01S00088.ns2780  +++|          SHN    21-11
00564  M01S00089.ns2780  +++|          PJN    FIB7        IF NOT SHARED BUFFERED DEVICE
00565  M01S00090.ns2780  +++|          RJM    CBP         CLEAR *BAT* PERMISSIONS UNCONDITIONALLY
00566  M01S00091.ns2780  +++| FIB7     LJM    FIBX        RETURN
00567  M01S00092.ns2780  +++| FWB      SPACE  4,15
00568  M01S00093.ns2780  +++|**        FWB - FLUSH WRITE BUFFERS.
00569  M01S00094.ns2780  +++|*
00570  M01S00095.ns2780  +++|*         ENTRY  (T5) = EST ORDINAL.
00571  M01S00096.ns2780  +++|*                (ES - ES+4) = EST ENTRY.
00572  M01S00097.ns2780  +++|*
00573  M01S00098.ns2780  +++|*         EXIT   WRITE BUFFERS FLUSHED.
00574  M01S00099.ns2780  +++|*
00575  M01S00100.ns2780  +++|*         USES   CM - CM+4.
00576  M01S00101.ns2780  +++|*
00577  M01S00102.ns2780  +++|*         MACROS MONITOR.
00578  M01S00103.ns2780  +++|
00579  M01S00104.ns2780  +++|
00580  M01S00105.ns2780  +++| FWB      SUBR               ENTRY/EXIT
00581  M01S00106.ns2780  +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
Line S00038 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00038.283l840 +++|          CRD    CM
00583  M01S00039.283l840 +++|          LDD    T5          SET EST ORDINAL
00584  M01S00040.283l840 +++|          STD    CM+3
00585  M01S00041.283l840 +++|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
00586  M01S00042.283l840 +++|          STD    CM+4
00587  M01S00043.283l840 +++|          MONITOR  BFMM
Line S00107 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00107.ns2780  +++|          UJN    FWBX        RETURN
00589  M01S00108.ns2780  +++| RBP      SPACE  4,15
00590  M01S00109.ns2780  +++|**        RBP - RELEASE *BAT* AND *BST* PERMISSIONS.
00591  M01S00110.ns2780  +++|*
00592  M01S00111.ns2780  +++|*         ENTRY  (T5) = EST ORDINAL.
00593  M01S00112.ns2780  +++|*                (ES - ES+4) = EST ENTRY.
00594  M01S00113.ns2780  +++|*
00595  M01S00114.ns2780  +++|*         EXIT   (A) = 0, IF ALL PERMISSIONS RELEASED.
00596  M01S00115.ns2780  +++|*
00597  M01S00116.ns2780  +++|*         USES   CM - CM+4.
00598  M01S00117.ns2780  +++|*
00599  M01S00118.ns2780  +++|*         MACROS MONITOR.
Line S00044 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00600  M01S00044.283l840 +++|
Line S00045 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00045.ns2780  ---|*         DROP ALL DISK BUFFERS.
Line S00046 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00046.283l840 +++|
Line S00047 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00047.ns2780  ---|          LDD    IR+2
00604  M02S00048.ns2780  ---|          LMN    6
00605  M02S00049.ns2780  ---|          NJN    FIBX        IF NOT FUNCTION 6
00606  M02S00050.ns2780  ---|          LDN    ZERL        CLEAR ASSEMBLY AREA
Line S00119 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00119.ns2780  +++| RBP      SUBR               ENTRY/EXIT
00608  M01S00120.ns2780  +++|          LDN    ZERL
Line S00051 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00609  M01S00051.283l840 +++|          CRD    CM
00610  M01S00052.283l840 +++|          LDD    T5          SET EST ORDINAL
Line S00053 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00053.ns2780  ---|          STD    CM+3
00612  M02S00054.ns2780  ---|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
Line S00055 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00055.283l840 +++|          STD    CM+4
Line S00056 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00056.ns2780  ---|          MONITOR  BFMM
00615  M02S00057.ns2780  ---|          LDD    CM+4
00616  M02S00058.ns2780  ---|          ZJN    FIB2        IF COMPLETE
00617  M02S00059.ns2780  ---|          DELAY  20B         DELAY TWO MILLISECONDS
00618  M02S00060.ns2780  ---|          PAUSE
00619  M02S00061.ns2780  ---|          UJP    FIB1        REISSUE REQUEST
Line S00121 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00620  M01S00121.ns2780  +++|          LDN    RBPS        RELEASE *BAT*/*BST* ACCESS PERMISSIONS
00621  M01S00122.ns2780  +++|          STD    CM+1
00622  M01S00123.ns2780  +++|          MONITOR  MTEM
00623  M01S00124.ns2780  +++|          LDD    CM+4        GET *MTEM* STATUS
00624  M01S00125.ns2780  +++|          UJN    RBPX        RETURN
00625  M01S00126.ns2780  +++| SDP      SPACE  4,15
00626  M01S00127.ns2780  +++|**        SDP - SET DEVICE PARAMETERS.
00627  M01S00128.ns2780  +++|*
00628  M01S00129.ns2780  +++|*         ENTRY  (IR+3) = EST ORDINAL.
00629  M01S00130.ns2780  +++|*
00630  M01S00131.ns2780  +++|*         EXIT   (A) = 0 IF DEVICE IS ACCESSIBLE.
00631  M01S00132.ns2780  +++|*                (LT) = (T6) = LABEL TRACK.
00632  M01S00133.ns2780  +++|*                (ES - ES+4) = EST ENTRY.
00633  M01S00134.ns2780  +++|*                DRIVER LOADED/PRESET.
00634  M01S00135.ns2780  +++|*
00635  M01S00136.ns2780  +++|*         USES   CM - CM+4.
00636  M01S00137.ns2780  +++|*
00637  M01S00138.ns2780  +++|*         MACROS SETMS, SFA.
Line S00062 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00062.283l840 +++|
Line S00063 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00063.ns2780  ---|*         CLEAR ACCESS PERMISSIONS IN *BAT*.
Line S00064 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00064.283l840 +++|
Line S00065 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00065.ns2780  ---| FIB2     LDD    ES
00642  M02S00066.ns2780  ---|          SHN    21-11
00643  M02S00067.ns2780  ---|          PJP    FIBX        IF NOT SHARED BUFFERED DEVICE
00644  M02S00068.ns2780  ---|          LDN    ZERL
Line S00139 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00645  M01S00139.ns2780  +++| SDP      SUBR               ENTRY/EXIT
00646  M01S00140.ns2780  +++|          LDD    IR+3        SET EST ORDINAL
00647  M01S00141.ns2780  +++|          STD    T5
00648  M01S00142.ns2780  +++|          SFA    EST         READ EST ENTRY
00649  M01S00143.ns2780  +++|          ADK    EQDE
00650  M01S00144.ns2780  +++|          CRD    ES
00651  M01S00145.ns2780  +++|          LDD    ES+4        GET DEVICE ALLOCATION WORD FROM MST
00652  M01S00146.ns2780  +++|          SHN    3
00653  M01S00147.ns2780  +++|          ADN    ALGL
Line S00069 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00654  M01S00069.283l840 +++|          CRD    CM
Line S00070 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00070.ns2780  ---| FIBA     LDN    **          SET MACHINE INDEX
00656  M02S00071.ns2780  ---|          STD    CM+2
00657  M02S00072.ns2780  ---|          LDD    T5          SET EST ORDINAL
00658  M02S00073.ns2780  ---|          STD    CM+4
00659  M02S00074.ns2780  ---|          LDN    CBWS        RELEASE ALL READ AND WRITE ACCESS BITS
00660  M02S00075.ns2780  ---|          STD    CM+1
00661  M02S00076.ns2780  ---|          MONITOR  MTEM
00662  M02S00077.ns2780  ---|          UJP    FIBX        RETURN
Line S00360 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00360.ns2780  ---| WMS      SPACE  4
Line S00036 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00036.ns2780  ---| WMS      SPACE  4,10
Line S00361 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00361.ns2780  ---|**        WMS - WRITE MASS STORAGE.
00666  M01S00362.ns2780  ---|*
00667  M01S00363.ns2780  ---|*         ENTRY  (A) = BUFFER ADDRESS.
00668  M01S00364.ns2780  ---|*
00669  M01S00365.ns2780  ---|*         EXIT   TO *WSE* IF WRITE ERRORS.
00670  M01S00366.ns2780  ---|*
00671  M01S00367.ns2780  ---|*         CALLS  WDS.
00672  M01S00368.ns2780  ---|
00673  M01S00369.ns2780  ---|
00674  M01S00370.ns2780  ---| WMS      SUBR               ENTRY/EXIT
00675  M01S00371.ns2780  ---|          RJM    WDS         WRITE MASS STORAGE
00676  M01S00372.ns2780  ---|          PJN    WMSX        IF NO ERRORS
00677  M01S00373.ns2780  ---|*         UJN    WSE         PROCESS WRITE ERROR
Line S00374 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00374.ns2780  ---| WSE      SPACE  4
Line S00037 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00037.ns2780  ---| WSE      SPACE  4,15
Line S00375 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00680  M01S00375.ns2780  ---|**        WSE - WRITE ERROR PROCESSOR.
00681  M01S00376.ns2780  ---|*
00682  M01S00377.ns2780  ---|*         ENTRY  (T4) = CHANNEL.
00683  M01S00378.ns2780  ---|*                (NC) = SYSTEM CONTROL POINT NUMBER.
00684  M01S00379.ns2780  ---|*                (T5) = EST ORDINAL.
00685  M01S00380.ns2780  ---|*                (WSEA) = ADDRESS OF POST ERROR PROCESSOR.
00686  M01S00381.ns2780  ---|*                WRITE ERROR PROCESSING ENABLED.
00687  M01S00382.ns2780  ---|*
00688  M01S00383.ns2780  ---|*         CALLS  CIL, C2D, DFM, SES.
00689  M01S00384.ns2780  ---|*
00690  M01S00385.ns2780  ---|*         MACROS ENDMS.
00691  M01S00386.ns2780  ---|
00692  M01S00387.ns2780  ---|
00693  M01S00388.ns2780  ---| WSE      ENDMS
00694  M01S00389.ns2780  ---|          RJM    CIL         CLEAR INTERLOCKS
00695  M01S00390.ns2780  ---|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00696  M01S00391.ns2780  ---|          SHN    -3
00697  M01S00392.ns2780  ---|          RJM    C2D
00698  M01S00393.ns2780  ---|          STM    ABTA+1
00699  M01S00394.ns2780  ---|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
00700  M01S00395.ns2780  ---|          LPN    7
00701  M01S00396.ns2780  ---|          SHN    6
00702  M01S00397.ns2780  ---|          ADC    2R0,
00703  M01S00398.ns2780  ---|          STM    ABTA+2
00704  M01S00399.ns2780  ---|          LDD    NC          DISPLAY MESSAGE AT SYSTEM CP
00705  M01S00400.ns2780  ---|          SHN    7
00706  M01S00401.ns2780  ---|          ADN    MS2W
00707  M01S00402.ns2780  ---|          CWM    ABTA,TR
00708  M01S00403.ns2780  ---|          LDN    STCA        SET ERROR STATUS IN MST
00709  M01S00404.ns2780  ---|          RJM    SES
00710  M01S00405.ns2780  ---|          LDC    ABTA+ERLN   *EQXXX, CHECKPOINT ABORTED.*
00711  M01S00406.ns2780  ---|          RJM    DFM
00712  M01S00407.ns2780  ---|          LDN    ZERL        INITIATE *CMS*
00713  M01S00408.ns2780  ---|          CRD    CM
Line S00409 Modification History
M01 (Removed by) 252l678
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00409.ns2780  ---|          LDC    RDSL
Line S00001 Modification History
M01 (Added by) 252l678
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00001.ns2780  ---|          ADN    RDSL-ZERL
Line S00410 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00716  M01S00410.ns2780  ---|          CWD    CM
00717  M01S00411.ns2780  ---|          LJM    DPP         EXIT TO POST ERROR PROCESSING
00718  M01S00412.ns2780  ---| WSEA     EQU    *-1
Line S00148 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00719  M01S00148.ns2780  +++|          LDD    CM+1        SET LABEL TRACK
00720  M01S00149.ns2780  +++|          STD    LT
00721  M01S00150.ns2780  +++|          STD    T6
00722  M01S00151.ns2780  +++|          SETMS  IO,(ND,NS,RW),WBUF
00723  M01S00152.ns2780  +++|          UJN    SDPX        RETURN
00724  M00S00413.1ck     +++| SMD      SPACE  4,20
00725  M00S00414.1ck     +++|**        SMD - SELECT MASS STORAGE DEVICE.
00726  M00S00415.1ck     +++|*
00727  M00S00416.1ck     +++|*         ENTRY  (EI) = LAST EQUIPMENT PROCESSED.
00728  M00S00417.1ck     +++|*
00729  M00S00418.1ck     +++|*         EXIT   (A) = 0 IF END OF MASS STORAGE DEVICES.
00730  M00S00419.1ck     +++|*                (T5) = (EI) = EST ORDINAL.
00731  M00S00420.1ck     +++|*                (T6) = (LT) = LABEL TRACK
00732  M00S00421.1ck     +++|*                (UI) = UTILITY ACTIVE INTERLOCK STATUS.
00733  M00S00422.1ck     +++|*                (ES - ES+4) = EST ENTRY.
00734  M00S00423.1ck     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
00735  M00S00424.1ck     +++|*                DRIVER PRESET.
00736  M00S00425.1ck     +++|*
Line S00426 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00737  M01S00426.1ck11   ---|*         USES   CM - CM+4, CN - CN+4.
Line S00001 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00738  M01S00001.1ck11   +++|*         USES   EI, LT, UI, T5, T6, CM - CM+4, CN - CN+4, ES - ES+4,
00739  M01S00002.1ck11   +++|*                FS - FS+4.
00740  M00S00427.1ck     +++|*
00741  M00S00428.1ck     +++|*         CALLS  SES.
00742  M00S00429.1ck     +++|*
00743  M00S00430.1ck     +++|*         MACROS SETMS, SFA, SMSTF.
00744  M00S00431.1ck     +++|
00745  M00S00432.1ck     +++|
00746  M00S00433.1ck     +++| SMD      SUBR               ENTRY/EXIT
00747  M00S00434.1ck     +++| SMD1     AOD    EI          ADVANCE EST INDEX
00748  M00S00435.1ck     +++|          STD    T5
00749  M00S00436.1ck     +++|          LMD    LO
00750  M00S00437.1ck     +++|          ZJN    SMDX        IF END OF MASS STORAGE EST
00751  M00S00438.1ck     +++|          SFA    EST,T5      READ EST ENTRY
00752  M00S00439.1ck     +++|          ADK    EQDE
00753  M00S00440.1ck     +++|          CRD    ES
00754  M00S00441.1ck     +++|          LDD    ES          CHECK EQUIPMENT
00755  M00S00442.1ck     +++|          SHN    21-13
00756  M00S00443.1ck     +++|          PJN    SMD1        IF NOT MASS STORAGE
00757  M00S00444.1ck     +++|          SHN    13-21
00758  M00S00445.1ck     +++|          LPC    103
00759  M00S00446.1ck     +++|          SBN    3
00760  M00S00447.1ck     +++|          PJN    SMD1        IF DEVICE UNAVAILABLE OR DOWN
Line S00448 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00761  M01S00448.ns2593  ---|          LDD    ES+4
Line S00010 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00762  M01S00010.ns2593  +++|          LDD    IR+2        CHECK FUNCTION CODE
00763  M01S00011.ns2593  +++|          LMN    13
00764  M01S00012.ns2593  +++|          NJN    SMD2        IF NOT A LONG POWER WARNING CHECKPOINT
00765  M01S00013.ns2593  +++|          LDD    ES+3
00766  M01S00014.ns2593  +++|          LMC    2RDD
00767  M01S00015.ns2593  +++|          ZJN    SMD2        IF 834 (DD) DEVICE
00768  M01S00016.ns2593  +++|          LMN    2RDG&2RDD
00769  M01S00017.ns2593  +++| SMD1.1   NJN    SMD1        IF NOT 836 (DG) DEVICE
00770  M01S00018.ns2593  +++| SMD2     LDD    ES+4
00771  M00S00449.1ck     +++|          SHN    3
00772  M00S00450.1ck     +++|          ADN    ACGL
00773  M00S00451.1ck     +++|          CRD    CM
00774  M00S00452.1ck     +++|          ADN    ALGL-ACGL
00775  M00S00453.1ck     +++|          CRD    CN
00776  M00S00454.1ck     +++|          ADN    STLL-ALGL
00777  M00S00455.1ck     +++|          CRD    FS
Line S00456 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00456.1ck11   ---| SMDA     UJN    SMD4        (CHECKPOINT REQUESTED FLAG IMMATERIAL)
00779  M01S00457.1ck11   ---|          ORG    SMDA
00780  M01S00458.1ck11   ---|          LDD    FS          LOOK AT CHECKPOINT REQUESTED
Line S00003 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00003.1ck11   +++| SMDA     LDD    FS          LOOK AT CHECKPOINT REQUESTED
00782  M01S00004.1ck11   +++|*         UJN    SMD4        (CHECKPOINT REQUESTED FLAG IMMATERIAL)
00783  M00S00459.1ck     +++|          LPN    MLIRP+MLCKP
00784  M00S00460.1ck     +++|          LMN    MLCKP
Line S00461 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00461.ns2593  ---| SMD3     NJN    SMD1        IF INITIALIZE / NO CHECKPOINT PENDING
Line S00019 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00019.ns2593  +++| SMD3     NJN    SMD1.1      IF INITIALIZE / NO CHECKPOINT PENDING
00787  M00S00462.1ck     +++| SMD4     LDD    CM+4
00788  M00S00463.1ck     +++|          LPC    MGDEI+MGRDR
00789  M00S00464.1ck     +++|          NJN    SMD3        IF ERROR IDLE OR REDEFINITION REQUESTED
00790  M00S00465.1ck     +++|          LDD    FS+1
00791  M00S00466.1ck     +++|          LPN    77
00792  M00S00467.1ck     +++|          ZJN    SMD5        IF NO ERROR FLAG
Line S00468 Modification History
M01 (Removed by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00468.ns2507  ---|          LMN    STCA
Line S00001 Modification History
M01 (Added by) ns2507
M02 (Removed by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00001.1ck9    ---|          LMN    STDE
00795  M02S00002.1ck9    ---|          ZJN    SMD5        IF DEVICE ERROR
00796  M02S00003.1ck9    ---|          LMN    STCA&STDE
Line S00469 Modification History
M01 (Removed by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00469.1ck9    ---|          NJN    SMD3        IF NOT CHECKPOINT ABORT
Line S00001 Modification History
M01 (Added by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00798  M01S00001.1ck9    +++|          LDD    ES
Line S00002 Modification History
M01 (Added by) 1ck9
M02 (Removed by) 1ck9a
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00002.1ck9a   ---|          SHN    21-1
00800  M02S00003.1ck9a   ---|          MJN    SMD3        IF DEVICE OFF
Line S00001 Modification History
M01 (Added by) 1ck9a
Seq #  *Modification Id* Act 
----------------------------+
00801  M01S00001.1ck9a   +++|          LPN    2
00802  M01S00002.1ck9a   +++|          NJN    SMD3        IF DEVICE OFF OR DOWN
00803  M01S00003.1ck9a   +++|*         LDN    0           CLEAR ERROR STATUS IN *STLL*
00804  M00S00470.1ck     +++|          RJM    SES
Line S00471 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00805  M01S00471.1ck11   ---| SMDB     UJN    SMD6        (UTILITY INTERLOCK NOT REQUIRED)
00806  M01S00472.1ck11   ---|          ORG    SMDB
Line S00005 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00005.1ck11   +++| SMDB     EQU    *
00808  M00S00473.1ck     +++| SMD5     SMSTF  LUAI        SET UTILITY ACTIVE INTERLOCK
Line S00006 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00809  M01S00006.1ck11   +++|*         UJN    SMD6        (UTILITY INTERLOCK NOT REQUIRED)
00810  M00S00474.1ck     +++|          LDD    CM+1
00811  M00S00475.1ck     +++|          NJN    SMD3        IF LOCAL UTILITY ACTIVE
00812  M00S00476.1ck     +++|          AOD    UI
Line S00477 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00813  M01S00477.ns2593  ---| SMD6     SETMS  IO,(ND,NS,RW),WBUF
Line S00020 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00020.ns2593  +++| SMD6     SETMS  IO,(ND,NR,NS,RW),WBUF
00815  M00S00478.1ck     +++|          LDD    CN+1
00816  M00S00479.1ck     +++|          STD    LT          SET LABEL TRACK
00817  M00S00480.1ck     +++|          STD    T6
00818  M00S00481.1ck     +++|          LJM    SMDX        RETURN
00819  M00S00482.1ck     +++| WLS      SPACE  4,15
00820  M00S00483.1ck     +++|**        WLS - WRITE LABEL SECTORS.
00821  M00S00484.1ck     +++|*
00822  M00S00485.1ck     +++|*         ENTRY  LABEL SECTOR CONTENTS IN (BFMS)
00823  M00S00486.1ck     +++|*                (ES - ES+4) = EST ENTRY
00824  M00S00487.1ck     +++|*                (T6) = LABEL TRACK
00825  M00S00488.1ck     +++|*
00826  M00S00489.1ck     +++|*         EXIT   LABEL SECTOR WRITTEN TO ALL UNITS OF DEVICE.
00827  M00S00490.1ck     +++|*
00828  M00S00491.1ck     +++|*
00829  M00S00492.1ck     +++|*         USES   T7, CA - CA+1, CM - CM+4.
00830  M00S00493.1ck     +++|*
00831  M00S00494.1ck     +++|*         CALLS  WMS.
00832  M00S00495.1ck     +++|
00833  M00S00496.1ck     +++|
00834  M00S00497.1ck     +++| WLS      SUBR               ENTRY EXIT
00835  M00S00498.1ck     +++|          LDD    ES+4        READ MDGL FROM MST
00836  M00S00499.1ck     +++|          SHN    3
00837  M00S00500.1ck     +++|          ADN    MDGL
00838  M00S00501.1ck     +++|          CRD    CM
00839  M00S00502.1ck     +++|          LDD    CM+1        SET UNIT SECTOR LIMIT
00840  M00S00503.1ck     +++|          LPC    3777
00841  M00S00504.1ck     +++|          STD    CA+1
00842  M00S00505.1ck     +++|          SBM    SLM
00843  M00S00506.1ck     +++|          ZJN    WLSX        IF SINGLE UNIT DEVICE
00844  M00S00507.1ck     +++|          LDC    3777        SET SYSTEM SECTOR CONTROL BYTE
00845  M00S00508.1ck     +++|          STM    BFMS
00846  M00S00509.1ck     +++|          LDN    77          SET WORD COUNT
00847  M00S00510.1ck     +++|          STM    BFMS+1
00848  M00S00511.1ck     +++|          LDN    0
00849  M00S00512.1ck     +++|          STD    T7
00850  M00S00513.1ck     +++| WLS1     LDD    CA+1
00851  M00S00514.1ck     +++|          RAD    T7          SET SECTOR
00852  M00S00515.1ck     +++|          SBM    SLM
00853  M00S00516.1ck     +++|          PJN    WLSX        IF END OF UNITS
00854  M00S00517.1ck     +++|          LDN    10          ADVANCE RELATIVE UNIT
00855  M00S00518.1ck     +++|          RAM    N4SS+5*PFGL+4
00856  M00S00519.1ck     +++|          LDC    BFMS+WLSF   WRITE LABEL SECTOR
00857  M00S00520.1ck     +++|          RJM    WMS
00858  M00S00521.1ck     +++|          UJN    WLS1        LOOP FOR NEXT UNIT
Line S00153 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00859  M01S00153.ns2780  +++| WMS      SPACE  4,10
00860  M01S00154.ns2780  +++|**        WMS - WRITE MASS STORAGE.
00861  M01S00155.ns2780  +++|*
00862  M01S00156.ns2780  +++|*         ENTRY  (A) = BUFFER ADDRESS.
00863  M01S00157.ns2780  +++|*
00864  M01S00158.ns2780  +++|*         EXIT   TO *WSE* IF WRITE ERRORS.
00865  M01S00159.ns2780  +++|*
00866  M01S00160.ns2780  +++|*         CALLS  WDS.
00867  M01S00161.ns2780  +++|
00868  M01S00162.ns2780  +++|
00869  M01S00163.ns2780  +++| WMS      SUBR               ENTRY/EXIT
00870  M01S00164.ns2780  +++|          RJM    WDS         WRITE MASS STORAGE
00871  M01S00165.ns2780  +++|          PJN    WMSX        IF NO ERRORS
00872  M01S00166.ns2780  +++|          LJM    WSE         PROCESS WRITE ERROR
00873  M00S00522.1ck     +++| WNS      SPACE  4,15
00874  M00S00523.1ck     +++|**        WNS - WRITE NEXT SECTOR.
00875  M00S00524.1ck     +++|*
00876  M00S00525.1ck     +++|*         ENTRY  SECTOR DATA STORED IN (BUF+2 - BUF+N)
00877  M00S00526.1ck     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
00878  M00S00527.1ck     +++|*                (NT) = TRACK BUFFER POINTER.
00879  M00S00528.1ck     +++|*
00880  M00S00529.1ck     +++|*         EXIT   (T6, T7) UPDATED.
00881  M00S00530.1ck     +++|*                TO *WSE* IF NEXT TRACK UNAVAILABLE.
00882  M00S00531.1ck     +++|*
00883  M00S00532.1ck     +++|*         USES   T1, T6, T7, NT, CM - CM+4.
00884  M00S00533.1ck     +++|*
00885  M00S00534.1ck     +++|*         CALLS  FTB, WMS.
00886  M00S00535.1ck     +++|*
00887  M00S00536.1ck     +++|*         MACROS MONITOR.
00888  M00S00537.1ck     +++|
00889  M00S00538.1ck     +++|
00890  M00S00539.1ck     +++| WNS3     LDC    BUF+WCSF    WRITE SECTOR
00891  M00S00540.1ck     +++|          RJM    WMS
00892  M00S00541.1ck     +++|          AOD    T7          ADVANCE SECTOR
00893  M00S00542.1ck     +++|          LMM    SLM
00894  M00S00543.1ck     +++|          NJN    WNSX        IF NOT END OF TRACK
00895  M00S00544.1ck     +++|          STD    T7
00896  M00S00545.1ck     +++|          LDM    BUF         SET NEXT TRACK
00897  M00S00546.1ck     +++|          STD    T6
00898  M00S00547.1ck     +++|
00899  M00S00548.1ck     +++| WNS      SUBR               ENTRY/EXIT
00900  M00S00549.1ck     +++|          LDD    T7          SET NEXT SECTOR
00901  M00S00550.1ck     +++|          ADN    1
00902  M00S00551.1ck     +++| WNS1     STM    BUF
00903  M00S00552.1ck     +++|          LMM    SLM
00904  M00S00553.1ck     +++|          NJN    WNS3        IF NOT END OF TRACK
00905  M00S00554.1ck     +++| WNS2     AOD    NT          INCREMENT TRACK BUFFER POINTER
00906  M00S00555.1ck     +++|          LDI    NT
00907  M00S00556.1ck     +++|          LMC    7777
Line S00557 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00557.ns2780  ---|          ZJP    WSE         IF END OF TRACK CHAIN
Line S00167 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00909  M01S00167.ns2780  +++|          ZJN    WSE         IF END OF TRACK CHAIN
00910  M00S00558.1ck     +++|          LDI    NT
00911  M00S00559.1ck     +++|          NJN    WNS1        IF TRACK AVAILABLE
00912  M00S00560.1ck     +++|          RJM    /3CK/FTB    FILL TRACK BUFFER
00913  M00S00561.1ck     +++|          UJN    WNS2        CONTINUE
Line S00168 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00168.ns2780  +++| WSE      SPACE  4,15
00915  M01S00169.ns2780  +++|**        WSE - WRITE ERROR PROCESSOR.
00916  M01S00170.ns2780  +++|*
00917  M01S00171.ns2780  +++|*         ENTRY  (T4) = CHANNEL.
00918  M01S00172.ns2780  +++|*                (NC) = SYSTEM CONTROL POINT NUMBER.
00919  M01S00173.ns2780  +++|*                (T5) = EST ORDINAL.
00920  M01S00174.ns2780  +++|*                (WSEA) = ADDRESS OF POST ERROR PROCESSOR.
00921  M01S00175.ns2780  +++|*                WRITE ERROR PROCESSING ENABLED.
00922  M01S00176.ns2780  +++|*
00923  M01S00177.ns2780  +++|*         CALLS  CIL, C2D, DFM, SES.
00924  M01S00178.ns2780  +++|*
00925  M01S00179.ns2780  +++|*         MACROS ENDMS.
00926  M01S00180.ns2780  +++|
00927  M01S00181.ns2780  +++|
00928  M01S00182.ns2780  +++| WSE      BSS    0           ENTRY
00929  M01S00183.ns2780  +++|          ENDMS
00930  M01S00184.ns2780  +++|          RJM    CIL         CLEAR INTERLOCKS
00931  M01S00185.ns2780  +++|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
00932  M01S00186.ns2780  +++|          SHN    -3
00933  M01S00187.ns2780  +++|          RJM    C2D
00934  M01S00188.ns2780  +++|          STM    ABTA+1
00935  M01S00189.ns2780  +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
00936  M01S00190.ns2780  +++|          LPN    7
00937  M01S00191.ns2780  +++|          SHN    6
00938  M01S00192.ns2780  +++|          ADC    2R0,
00939  M01S00193.ns2780  +++|          STM    ABTA+2
00940  M01S00194.ns2780  +++|          LDD    NC          DISPLAY MESSAGE AT SYSTEM CP
00941  M01S00195.ns2780  +++|          SHN    7
00942  M01S00196.ns2780  +++|          ADN    MS2W
00943  M01S00197.ns2780  +++|          CWM    ABTA,TR
00944  M01S00198.ns2780  +++|          LDN    STCA        SET ERROR STATUS IN MST
00945  M01S00199.ns2780  +++|          RJM    SES
00946  M01S00200.ns2780  +++|          LDC    ABTA+ERLN   *EQXXX, CHECKPOINT ABORTED.*
00947  M01S00201.ns2780  +++|          RJM    DFM
00948  M01S00202.ns2780  +++|          LDN    ZERL        INITIATE *CMS*
00949  M01S00203.ns2780  +++|          CRD    CM
00950  M01S00204.ns2780  +++|          ADN    RDSL-ZERL
00951  M01S00205.ns2780  +++|          CWD    CM
00952  M01S00206.ns2780  +++|          LJM    DPP         EXIT TO POST ERROR PROCESSING
00953  M01S00207.ns2780  +++| WSEA     EQU    *-1         (POST PROCESSOR ADDRESS)
00954  M00S00562.1ck     +++| WTB      SPACE  4,15
00955  M00S00563.1ck     +++|**        WTB - WRITE TABLE.
00956  M00S00564.1ck     +++|*
Line S00565 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00957  M01S00565.253l688 ---|*         ENTRY  (A) = WORD COUNT.
Line S00038 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00038.253l688 +++|*         ENTRY  (A) = 1/TRT FLAG, 17/WORD COUNT.
00959  M00S00566.1ck     +++|*                (CA - CA+1) = TABLE ADDRESS.
00960  M00S00567.1ck     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
00961  M00S00568.1ck     +++|*
00962  M00S00569.1ck     +++|*         EXIT   (T6 - T7) UPDATED.
00963  M00S00570.1ck     +++|*
Line S00571 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00964  M01S00571.253l688 ---|*         USES   LM - LM+1.
Line S00039 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00965  M01S00039.253l688 +++|*         USES   LS, LM - LM+1.
00966  M00S00572.1ck     +++|*
00967  M00S00573.1ck     +++|*         CALLS  WNS.
00968  M00S00574.1ck     +++|
00969  M00S00575.1ck     +++|
00970  M00S00576.1ck     +++| WTB      SUBR               ENTRY/EXIT
00971  M00S00577.1ck     +++|          STD    LM+1        SET WORD COUNT
00972  M00S00578.1ck     +++|          SHN    -6          SET SECTOR COUNT
00973  M00S00579.1ck     +++|          STD    LM
Line S00040 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00040.253l688 +++|          LPC    4000        GET TRT FLAG
00975  M01S00041.253l688 +++|          RAD    LM
00976  M01S00042.253l688 +++|          SHN    -14
00977  M01S00043.253l688 +++|          STD    LS
00978  M00S00580.1ck     +++|          LDD    HN          SET FULL WORD COUNT
00979  M00S00581.1ck     +++|          STM    BUF+1
00980  M00S00582.1ck     +++|          LDD    LM          CHECK SECTOR COUNT
00981  M00S00583.1ck     +++| WTB1     MJN    WTBX        RETURN IF LAST SECTOR WRITTEN
00982  M00S00584.1ck     +++|          NJN    WTB2        IF NOT LAST SECTOR
00983  M00S00585.1ck     +++|          LDD    LM+1        SET SHORT COUNT
00984  M00S00586.1ck     +++|          LPN    77
00985  M00S00587.1ck     +++|          STM    BUF+1
Line S00044 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00986  M01S00044.253l688 +++|          AOD    LS          SET LAST SECTOR FLAG
00987  M00S00588.1ck     +++| WTB2     LDD    CA          READ DATA BLOCK
00988  M00S00589.1ck     +++|          SHN    14
00989  M00S00590.1ck     +++|          ADD    CA+1
00990  M00S00591.1ck     +++|          CRM    BUF+2,HN
Line S00592 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00991  M01S00592.253l688 ---|          RJM    WNS         WRITE NEXT SECTOR
Line S00045 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00045.253l688 +++|          LDD    LS          CHECK FOR LAST SECTOR OF TRT
00993  M01S00046.253l688 +++|          SHN    -1
00994  M01S00047.253l688 +++|          ZJN    WTB3        IF NOT LAST SECTOR OF TRT
00995  M01S00048.253l688 +++|          LDD    MA
00996  M01S00049.253l688 +++|          CWM    N4SS+5*SDGL,ON
00997  M01S00050.253l688 +++|          SBN    1           MOVE *SDGL* COUNTER TO LAST WORD OF SECTOR
00998  M01S00051.253l688 +++|          CRM    BUF+2+5*77,ON
00999  M01S00052.253l688 +++| WTB3     RJM    WNS         WRITE NEXT SECTOR
01000  M00S00593.1ck     +++|          LDD    HN          ADVANCE CENTRAL ADDRESS
01001  M00S00594.1ck     +++|          RAD    CA+1
01002  M00S00595.1ck     +++|          SHN    -14
01003  M00S00596.1ck     +++|          RAD    CA
01004  M00S00597.1ck     +++|          SOD    LM          DECREMENT SECTOR COUNT
Line S00598 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01005  M01S00598.253l688 ---|          UJN    WTB1        LOOP
Line S00053 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01006  M01S00053.253l688 +++|          UJP    WTB1        LOOP
01007  M00S00599.1ck     +++| WTT      SPACE  4,10
01008  M00S00600.1ck     +++|**        WTT - WRITE TRT.
01009  M00S00601.1ck     +++|*
01010  M00S00602.1ck     +++|*         ENTRY  (LT) = LABEL TRACK.
01011  M00S00603.1ck     +++|*                (ES - ES+4) = EST ENTRY.
01012  M00S00604.1ck     +++|*
Line S00605 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01013  M01S00605.253l688 ---|*         USES   SW, T8, CA - CA+1, CM - CM+4, CN - CN+4, T1 - T7.
Line S00054 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00054.253l688 +++|*         USES   T1, T6, T7, CA - CA+1, CM - CM+4.
01015  M00S00606.1ck     +++|*
Line S00607 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01016  M01S00607.253l688 ---|*         CALLS  CIL, STI, WEI, WLS, WSS, WTB.
Line S00055 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01017  M01S00055.253l688 +++|*         CALLS  STI, RLS, WEI, WSE, WTB.
01018  M00S00608.1ck     +++|*
Line S00609 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01019  M01S00609.253l688 ---|*         MACROS CMSTF, ENDMS, MONITOR.
Line S00056 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00056.253l688 +++|*         MACROS CMSTF, MONITOR.
01021  M00S00610.1ck     +++|
01022  M00S00611.1ck     +++|
Line S00612 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01023  M01S00612.253l688 ---| WTT9     CMSTF  LCKP        CLEAR CHECKPOINT REQUEST
Line S00057 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01024  M01S00057.253l688 +++| WTT7     CMSTF  LCKP        CLEAR CHECKPOINT REQUEST
01025  M00S00613.1ck     +++|
01026  M00S00614.1ck     +++| WTT      SUBR               ENTRY/EXIT
01027  M00S00615.1ck     +++|          LDD    LT
01028  M00S00616.1ck     +++|          STD    T6
Line S00617 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01029  M01S00617.253l688 ---|          LDC    500
01030  M01S00618.253l688 ---|          STD    T1
01031  M01S00619.253l688 ---| WTT1     LDN    0           CLEAR SYSTEM SECTOR
01032  M01S00620.253l688 ---|          STM    BFMS,T1
01033  M01S00621.253l688 ---|          STM    BFMS+1,T1
01034  M01S00622.253l688 ---|          LCN    2
01035  M01S00623.253l688 ---|          RAD    T1
01036  M01S00624.253l688 ---|          PJN    WTT1
01037  M01S00625.253l688 ---|          LDD    MA          ENTER LABEL NAME
01038  M01S00626.253l688 ---|          CWM    NLAB,ON
01039  M01S00627.253l688 ---|          SBN    1
01040  M01S00628.253l688 ---|          CRM    FNSS,ON
Line S00058 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01041  M01S00058.253l688 +++|          LDD    TS
01042  M01S00059.253l688 +++|          NJN    WTT2        IF LABEL TRACK INTERLOCKED
01043  M01S00060.253l688 +++|          RJM    STI         SET TRACK INTERLOCK
01044  M01S00061.253l688 +++|          ZJN    WTT1        IF ERROR FLAG NOT SET
01045  M01S00062.253l688 +++|          LJM    ABT         ABORT OPERATION
01046  M00S00629.1ck     +++|
Line S00630 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00630.253l688 ---|*         READ MST INTO LABEL.
01048  M01S00631.253l688 ---|
01049  M01S00632.253l688 ---|          LDN    MSTL        SET LENGTH
01050  M01S00633.253l688 ---|          STD    T1
01051  M01S00634.253l688 ---|          LDD    ES+4
01052  M01S00635.253l688 ---|          SHN    3
01053  M01S00636.253l688 ---|          CRM    N4SS,T1
01054  M01S00637.253l688 ---|          SBN    MSTL-TRLL   GET FWA OF TRT
01055  M01S00638.253l688 ---|          CRD    CM
01056  M01S00639.253l688 ---|          LDD    CM+3
01057  M01S00640.253l688 ---|          LPN    77
01058  M01S00641.253l688 ---|          SHN    14
01059  M01S00642.253l688 ---|          LMD    CM+4
01060  M01S00643.253l688 ---|          STD    CA+1        SET ADDRESS OF TRT
01061  M01S00644.253l688 ---|          SHN    -14
01062  M01S00645.253l688 ---|          STD    CA
01063  M01S00646.253l688 ---|          LDD    ES          GET EST INFORMATION
Line S00063 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01064  M01S00063.253l688 +++| WTT1     AOD    TS          SET LABEL TRACK INTERLOCK STATUS
01065  M01S00064.253l688 +++| WTT2     LDK    LSLT        SET LABEL SECTOR
01066  M01S00065.253l688 +++|          STD    T7
01067  M01S00066.253l688 +++|          ADK    0-LSLT
01068  M01S00067.253l688 +++| WTT3     RAD    T7
01069  M01S00068.253l688 +++|          RJM    RLS         RECREATE LABEL SECTOR
01070  M01S00069.253l688 +++|          LDD    ES
01071  M00S00647.1ck     +++|          SHN    21-4
Line S00648 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00648.253l688 ---|          PJN    WTT1.1      IF NOT INDEPENDENT SHARED DEVICE
01073  M01S00649.253l688 ---|          LDM    N4SS+5*TDGL+2  GET LENGTH OF TRT
01074  M01S00650.253l688 ---|          ADN    7
01075  M01S00651.253l688 ---|          SHN    -3          DETERMINE LENGTH OF MRT
01076  M01S00652.253l688 ---|          ADM    N4SS+5*TDGL+2  ADD LENGTH OF TRT
01077  M01S00653.253l688 ---|          STD    SW
01078  M01S00654.253l688 ---|          LDN    MISD        LENGTH OF DIT
01079  M01S00655.253l688 ---|          STD    T1
01080  M01S00656.253l688 ---|          LDD    CA          GET FWA OF TRT
01081  M01S00657.253l688 ---|          SHN    14
01082  M01S00658.253l688 ---|          LMD    CA+1
01083  M01S00659.253l688 ---|          ADD    SW          ADD DIT OFFSET
01084  M01S00660.253l688 ---|          CRM    N4SS+MSTL*5,T1  READ DIT
01085  M01S00661.253l688 ---| WTT1.1   LDD    ES+3        SET EQUIPMENT TYPE
01086  M01S00662.253l688 ---|          STM    E4SS
01087  M01S00663.253l688 ---|          LDM    N4SS+5*PUGL+4  GET DEVICE MASK
01088  M01S00664.253l688 ---|          LPC    377
01089  M01S00665.253l688 ---|          STD    CM+5        SET PRIMARY MASK
01090  M01S00666.253l688 ---|          LDN    1           SET LABEL LEVEL
01091  M01S00667.253l688 ---|          STM    LLSS
01092  M01S00668.253l688 ---|          LDC    400         SET SYSTEM LEVEL
Line S00070 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00070.253l688 +++|          PJN    WTT4        IF NOT ISHARED
01094  M01S00071.253l688 +++|          LDM    N4SS+STLL*5
01095  M01S00072.253l688 +++|          LPN    MLPTU
01096  M01S00073.253l688 +++|          ZJN    WTT7        IF *LPTU* FLAG NOT SET
01097  M01S00074.253l688 +++| WTT4     LDC    400         SET SYSTEM LEVEL
01098  M00S00669.1ck     +++|          RAM    N4SS+5*MDGL
Line S00670 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00670.253l688 ---|          STD    SW
01100  M01S00671.253l688 ---|          LDD    ES
01101  M01S00672.253l688 ---|          SHN    21-11
01102  M01S00673.253l688 ---|          PJN    WTT2        IF NOT SHARED DEVICE
01103  M01S00674.253l688 ---|          SHN    11-4
01104  M01S00675.253l688 ---|          MJN    WTT2        IF ISD
01105  M01S00676.253l688 ---|          LDD    T5          UPDATE THE TRT
01106  M01S00677.253l688 ---|          STD    CM+1
01107  M01S00678.253l688 ---|          LDN    UTRS
01108  M01S00679.253l688 ---|          STD    CM+3
01109  M01S00680.253l688 ---|          MONITOR STBM
01110  M01S00681.253l688 ---| WTT2     LDD    TS
01111  M01S00682.253l688 ---|          NJN    WTT4        IF LABEL TRACK INTERLOCKED
01112  M01S00683.253l688 ---|          RJM    STI         SET TRACK INTERLOCK
01113  M01S00684.253l688 ---|          ZJN    WTT3        IF NO ERROR FLAG SET
01114  M01S00685.253l688 ---|          LJM    ABT         ABORT OPERATION
01115  M01S00686.253l688 ---|
01116  M01S00687.253l688 ---| WTT3     AOD    TS          SET LABEL TRACK INTERLOCK STATUS
01117  M01S00688.253l688 ---| WTT4     LDD    ES
01118  M01S00689.253l688 ---|          SHN    21-4
01119  M01S00690.253l688 ---|          PJN    WTT4.1      IF NOT INDEPENDENT SHARED DEVICE
01120  M01S00691.253l688 ---|          LDM    N4SS+STLL*5
01121  M01S00692.253l688 ---|          LPN    MLPTU
01122  M01S00693.253l688 ---|          NJN    WTT4.1      IF CORRECT TRT IN CM
01123  M01S00694.253l688 ---|          LDD    T6          SET FIRST TRACK
01124  M01S00695.253l688 ---|          STM    FTSS
01125  M01S00696.253l688 ---|          LDK    PDTL        SET PACKED DATE AND TIME
01126  M01S00697.253l688 ---|          CRM    DTSS,ON
01127  M01S00698.253l688 ---|          RJM    WLS
01128  M01S00699.253l688 ---|          ENDMS
01129  M01S00700.253l688 ---|          LJM    WTT9        CLEAR CHECKPOINT REQUEST
01130  M01S00701.253l688 ---|
01131  M01S00702.253l688 ---| WTT4.1   RJM    WSS         WRITE LABEL SECTOR
01132  M01S00703.253l688 ---|          LDM    N4SS+5*TDGL+2  WRITE TRT
Line S00075 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00075.253l688 +++|          LDC    BFMS+WCSF   WRITE LABEL SECTOR
01134  M01S00076.253l688 +++|          RJM    WMS
01135  M01S00077.253l688 +++|          AOD    T7          WRITE TRT
01136  M01S00078.253l688 +++|          LDM    N4SS+5*TDGL+2
01137  M01S00079.253l688 +++|          LMC    400000      SET TRT FLAG
01138  M00S00704.1ck     +++|          RJM    WTB
01139  M00S00705.1ck     +++|          RJM    WEI         WRITE EOI
Line S00706 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00706.253l688 ---|          LDD    T7          SAVE EOI SECTOR
01141  M01S00707.253l688 ---|          STD    T8
01142  M01S00708.253l688 ---|          RJM    WLS         WRITE LABEL SECTORS
Line S00080 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00080.253l688 +++|          LDM    N4SS+5*DULL GET FIRST SECTOR OF SECOND COPY
01144  M01S00081.253l688 +++|          SBD    T7
01145  M01S00082.253l688 +++|          PJN    WTT3        IF SECOND COPY HAS NOT BEEN WRITTEN
01146  M00S00709.1ck     +++|          ENDMS
01147  M00S00710.1ck     +++|          LDM    N4SS+STLL*5
01148  M00S00711.1ck     +++|          LPN    MLPTU
Line S00712 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00712.253l688 ---|          ZJN    WTT4.2      IF *LPTU* FLAG NOT SET
Line S00083 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00083.253l688 +++|          ZJN    WTT5        IF *LPTU* FLAG NOT SET
01151  M00S00713.1ck     +++|          LDD    IR+2
01152  M00S00714.1ck     +++|          LMN    5
Line S00715 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00715.253l688 ---|          NJN    WTT4.2      IF NOT INITIALIZE CHECKPOINT
Line S00084 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00084.253l688 +++|          NJN    WTT5        IF NOT INITIALIZE CHECKPOINT
01155  M00S00716.1ck     +++|          CMSTF  LPTU        CLEAR FLAG
Line S00717 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00717.253l688 ---| WTT4.2   LDD    SW
Line S00085 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00085.253l688 +++| WTT5     LDM    N4SS+5*MDGL
01158  M00S00718.1ck     +++|          SHN    21-12
Line S00719 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01159  M01S00719.253l688 ---|          MJN    WTT8        IF AUXILIARY DEVICE
01160  M01S00720.253l688 ---|          LDD    CM+5
01161  M01S00721.253l688 ---|          NJN    WTT8        IF MASTER DEVICE
Line S00086 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S00086.253l688 +++|          MJN    WTT6        IF AUXILIARY DEVICE
01163  M01S00087.253l688 +++|          LDM    N4SS+5*PUGL+4  GET DEVICE MASK
01164  M01S00088.253l688 +++|          LPC    377
01165  M01S00089.253l688 +++|          NJN    WTT6        IF MASTER DEVICE
01166  M00S00722.1ck     +++|          LDD    T5          SET EQUIPMENT
01167  M00S00723.1ck     +++|          STD    CM+1
01168  M00S00724.1ck     +++|          LDD    T6          SET EOI STATUS
01169  M00S00725.1ck     +++|          LPC    3777
01170  M00S00726.1ck     +++|          STD    CM+2
Line S00727 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01171  M01S00727.253l688 ---|          LDD    T8
Line S00090 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01172  M01S00090.253l688 +++|          LDD    T7
01173  M00S00728.1ck     +++|          STD    CM+3
01174  M00S00729.1ck     +++|          MONITOR DTKM
Line S00730 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01175  M01S00730.253l688 ---| WTT8     LJM    WTT9        CLEAR CHECKPOINT REQUEST
Line S00091 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01176  M01S00091.253l688 +++| WTT6     LJM    WTT7        CLEAR CHECKPOINT REQUEST
01177  M00S00731.1ck     +++|          SPACE  4
01178  M00S00732.1ck     +++|**        COMMON DECKS.
01179  M00S00733.1ck     +++|
01180  M00S00734.1ck     +++|
Line S00092 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01181  M01S00092.253l688 +++| RLS$     EQU    1           ASSEMBLE *RLS*
01182  M01S00093.253l688 +++|*CALL     COMPCLC
01183  M00S00735.1ck     +++|*CALL     COMPCTI
01184  M00S00736.1ck     +++|*CALL     COMPC2D
01185  M00S00737.1ck     +++|*CALL     COMPSES
01186  M00S00738.1ck     +++|*CALL     COMPSTI
01187  M00S00739.1ck     +++|*CALL     COMPTGB
01188  M00S00740.1ck     +++|*CALL     COMPTLB
01189  M00S00741.1ck     +++|          QUAL   WMS
01190  M00S00742.1ck     +++| QUAL$    EQU    1
01191  M00S00743.1ck     +++| WDS      EQU    WMS
01192  M00S00744.1ck     +++|*CALL     COMPWEI
01193  M00S00745.1ck     +++| WCS$     EQU    1           CONSECUTIVE SECTORS AFTER SYSTEM SECTOR
01194  M00S00746.1ck     +++|*CALL     COMPWSS
01195  M00S00747.1ck     +++|          QUAL   *
01196  M00S00748.1ck     +++| WEI      EQU    /WMS/WEI
01197  M00S00749.1ck     +++| WSS      EQU    /WMS/WSS
01198  M00S00750.1ck     +++| LITERAL  SPACE  4
01199  M00S00751.1ck     +++|          USE    LITERALS
Line S00007 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01200  M01S00007.1ck11   +++|
01201  M01S00008.1ck11   +++| OVLA     EQU    *+5         OVERLAY LOAD ADDRESS
Line S00208 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01202  M01S00208.ns2780  +++|          TITLE  PRESET.
Line S00752 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01203  M01S00752.253l688 ---| PRS      SPACE  4
Line S00094 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00094.253l688 +++| PRS      SPACE  4,10
01205  M00S00753.1ck     +++|**        PRS - PRESET PROGRAM.
01206  M00S00754.1ck     +++|
01207  M00S00755.1ck     +++|
Line S00756 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01208  M01S00756.253l688 ---| PRS      LDN    ESTP        SET LAST MASS STORAGE ORDINAL
Line S00095 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01209  M01S00095.253l688 +++| PRS5     LDD    IA          PRESET *1MV* CALL
01210  M01S00096.253l688 +++|          CRD    CM
01211  M01S00097.253l688 +++|          LDN    12          REWRITE LABEL TRACK FUNCTION
01212  M01S00098.253l688 +++|          STD    IR+2        SET THE FUNCTION CODE
01213  M01S00099.253l688 +++|          LDD    CM+2
01214  M01S00100.253l688 +++|          STD    IR+3        SET EST ORDINAL
01215  M01S00101.253l688 +++|
01216  M01S00102.253l688 +++| PRS      LDC    DPP1        RESTORE *DPP* JUMP
01217  M01S00103.253l688 +++|          STM    DPPA
01218  M01S00104.253l688 +++|          LDN    ESTP        SET LAST MASS STORAGE ORDINAL
01219  M00S00757.1ck     +++|          CRD    LO-3
01220  M00S00758.1ck     +++|          LDN    0           CLEAR FST ADDRESS
01221  M00S00759.1ck     +++|          STD    FA
01222  M00S00760.1ck     +++|          STD    TS          CLEAR LABEL TRACK INTERLOCK STATUS
01223  M00S00761.1ck     +++|          STD    UI
01224  M00S00762.1ck     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01225  M00S00763.1ck     +++|          STD    EI
Line S00078 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00078.283l840 +++|          LDK    MMFL
01227  M01S00079.283l840 +++|          CRD    CM
01228  M01S00080.283l840 +++|          LDD    CM+4        SET MACHINE INDEX
01229  M01S00081.283l840 +++|          LPN    77
Line S00082 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00082.ns2780  ---|          RAM    FIBA
Line S00209 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00209.ns2780  +++|          RAM    CBPA
01232  M00S00764.1ck     +++|          LDN    SSTL        CHECK SYSTEM STATUS
01233  M00S00765.1ck     +++|          CRD    CM
01234  M00S00766.1ck     +++|          LDD    CM
01235  M00S00767.1ck     +++|          LPN    14
01236  M00S00768.1ck     +++|          ZJN    PRS1        IF MS VALIDATION ENABLED
01237  M00S00769.1ck     +++|          LDC    *
01238  M00S00770.1ck     +++|          ORG    *-1
01239  M00S00771.1ck     +++|          LOC    PFCA
01240  M00S00772.1ck     +++|          NJN    PFC3        IF NOT END OF MS ENTRIES
01241  M00S00773.1ck     +++|          LOC    *O
01242  M00S00774.1ck     +++|          STM    PFCA
01243  M00S00775.1ck     +++| PRS1     LDN    NCPL        SET NUMBER OF CONTROL POINTS
01244  M00S00776.1ck     +++|          CRD    CM
01245  M00S00777.1ck     +++|          AOD    CM+1
01246  M00S00778.1ck     +++|          STD    NC
01247  M00S00779.1ck     +++|          SHN    7
01248  M00S00780.1ck     +++|          LMD    CP
01249  M00S00781.1ck     +++|          ZJN    PRS2        IF SYSTEM CP
01250  M00S00782.1ck     +++|          LDD    IR+2
01251  M00S00783.1ck     +++|          SBN    2
01252  M00S00784.1ck     +++|          MJN    PRS4        IF FUNCTION 0 OR 1
01253  M00S00785.1ck     +++|          SBN    10-2
01254  M00S00786.1ck     +++|          ZJN    PRS4        IF FUNCTION 10
01255  M00S00787.1ck     +++|          LDD    CP
01256  M00S00788.1ck     +++|          ADN    JCIW
01257  M00S00789.1ck     +++|          CRD    CM
01258  M00S00790.1ck     +++|          LDD    CM+2
01259  M00S00791.1ck     +++|          ZJN    PRS4        IF NOT SUBSYSTEM / SSJ JOB
01260  M00S00792.1ck     +++| PRS2     LDD    IR+2
Line S00210 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01261  M01S00210.ns2780  +++|          SHN    2
01262  M00S00793.1ck     +++|          STD    T1
Line S00794 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01263  M01S00794.ns2780  ---|          SHN    1
01264  M01S00795.ns2780  ---|          RAD    T1
01265  M00S00796.1ck     +++|          SBN    TFCNL
01266  M00S00797.1ck     +++|          PJN    PRS4        IF INVALID FUNCTION
01267  M00S00798.1ck     +++|          LDM    TFCN+1,T1   SET PROCESSOR ADDRESS
01268  M00S00799.1ck     +++|          STD    PA
01269  M00S00800.1ck     +++|          LDM    TFCN+2,T1   SET ERROR RETURN
01270  M00S00801.1ck     +++|          STM    WSEA
Line S00211 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01271  M01S00211.ns2780  +++|          LDM    TFCN+3,T1   SET *FIB* PROCESSING ADDRESS
01272  M01S00212.ns2780  +++|          STM    FIBA
01273  M00S00802.1ck     +++|          LDM    TFCN,T1
01274  M00S00803.1ck     +++|          STM    PRSA
01275  M00S00804.1ck     +++|          LJM    PRS4        EXIT TO PROCESSOR
01276  M00S00805.1ck     +++| PRSA     EQU    *-1
01277  M00S00806.1ck     +++|
01278  M00S00807.1ck     +++| PRS4     LDN    0           SET NO ERROR FLAG
01279  M00S00808.1ck     +++|          STD    CM+2
01280  M00S00809.1ck     +++|          LDC    *           ADDRESS WHERE ERROR DETECTED
01281  M00S00810.1ck     +++|          STD    CM+1
01282  M00S00811.1ck     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01283  M00S00812.1ck     +++|          LJM    DPP         DROP PP
Line S00813 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01284  M01S00813.253l688 ---| TFCN     SPACE  4
Line S00105 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01285  M01S00105.253l688 +++| TFCN     SPACE  4,10
01286  M00S00814.1ck     +++|**        TFCN - FUNCTION PROCESSOR TABLE.
01287  M00S00815.1ck     +++|*
Line S00816 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01288  M01S00816.ns2780  ---|*         ENTRY = 3 WORDS.
Line S00213 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01289  M01S00213.ns2780  +++|*         ENTRY = 4 WORDS.
01290  M00S00817.1ck     +++|*
Line S00818 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01291  M01S00818.ns2780  ---|*T        12/  PP,12/  PA,12/  PE
Figure

01112232429 PE PA PP3035 PP


Line S00214 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01292  M01S00214.ns2780  +++|*T        12/  PP,12/  PA,12/  PE,12/ FA
Figure

01112232429 FA PE PA30353647 PA PP

01293  M00S00819.1ck     +++|*         PP     PREPROCESSOR ADDRESS
01294  M00S00820.1ck     +++|*         PA     PROCESSOR ADDRESS
01295  M00S00821.1ck     +++|*         PE     POST ERROR PROCESSING ADDRESS
Line S00215 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01296  M01S00215.ns2780  +++|*         FA     SUBROUTINE *FIB* PROCESSING ADDRESS.
01297  M00S00822.1ck     +++|
01298  M00S00823.1ck     +++|
01299  M00S00824.1ck     +++| TFCN     BSS    0
01300  M00S00825.1ck     +++|          LOC    0
01301  M00S00826.1ck     +++|
Line S00827 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01302  M01S00827.ns2780  ---|          CON    DSC,/3CK/DSC,/3CK/DSC1
01303  M01S00828.ns2780  ---|          CON    SYC,/3CK/SCK,/3CK/SCK2
01304  M01S00829.ns2780  ---|          CON    PFC,PFC,PFC
01305  M01S00830.ns2780  ---|          CON    SYC,/3CK/SCK2,/3CK/SCK2
01306  M01S00831.ns2780  ---|          CON    ULA,/3CK/ULA,DPP
01307  M01S00832.ns2780  ---|          CON    IDC,/3CK/IDC,/3CK/IDC1
01308  M01S00833.ns2780  ---|          CON    RAC,/3CK/RAC,PFC
01309  M01S00834.ns2780  ---|          CON    RAC,/3CK/RAC,PFC
01310  M01S00835.ns2780  ---|          CON    SYC,/3CK/SCK,/3CK/SCK2
Line S00020 Modification History
M01 (Added by) 243l647
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01311  M02S00020.ns2780  ---|          CON    FIC,/3CK/FIC,PFC
Line S00106 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01312  M02S00106.ns2780  ---|          CON    RLT,/3CK/RLT,/3CK/RLT1
Line S00021 Modification History
M01 (Added by) ns2593
M02 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S00021.ns2780  ---|          CON    SYC,/3CK/SCK,/3CK/SCK2
Line S00216 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01314  M01S00216.ns2780  +++|          CON    DSC,/3CK/DSC,/3CK/DSC1,FIB1
01315  M01S00217.ns2780  +++|          CON    SYC,/3CK/SCK,/3CK/SCK2,FIB2
01316  M01S00218.ns2780  +++|          CON    PFC,PFC,PFC,FIB1
01317  M01S00219.ns2780  +++|          CON    SYC,/3CK/SCK2,/3CK/SCK2,FIB1
01318  M01S00220.ns2780  +++|          CON    ULA,/3CK/ULA,DPP,FIBX
01319  M01S00221.ns2780  +++|          CON    IDC,/3CL/IDC,/3CL/IDC1,FIB1
01320  M01S00222.ns2780  +++|          CON    RAC,/3CL/RAC,PFC,FIB2
01321  M01S00223.ns2780  +++|          CON    RAC,/3CL/RAC,PFC,FIB6
01322  M01S00224.ns2780  +++|          CON    SYC,/3CK/SCK,/3CK/SCK2,FIB1
01323  M01S00225.ns2780  +++|          CON    FIC,/3CK/FIC,PFC,FIB1
01324  M01S00226.ns2780  +++|          CON    RLT,/3CL/RLT,/3CL/RLT1,FIBX
01325  M01S00227.ns2780  +++|          CON    SYC,/3CK/SCK,/3CK/SCK2,FIBX
01326  M00S00836.1ck     +++| TFCNL    BSS    0
01327  M00S00837.1ck     +++|          LOC    *O
Line S00009 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01328  M01S00009.1ck11   +++|          SPACE  4,10
01329  M01S00010.1ck11   +++|*         CHECK FOR OVERFLOW.
01330  M01S00011.1ck11   +++|
01331  M01S00012.1ck11   +++|
01332  M01S00013.1ck11   +++|          OVERFLOW  PPFW,EPFW
Line S00838 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01333  M01S00838.ns2780  ---|          TTL    1CK/3CK - SYSTEM CHECK POINT.
Line S00228 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00228.ns2780  +++|          TTL    1CK/3CK - CHECKPOINT FUNCTION PROCESSORS.
Line S00839 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01335  M01S00839.1ck11   ---|          TITLE  MAIN ROUTINES.
Line S00014 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01336  M01S00014.1ck11   +++|          TITLE
01337  M00S00840.1ck     +++|          QUAL   3CK
Line S00841 Modification History
M01 (Removed by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01338  M01S00841.1ck11   ---|          IDENT  3CK,ENTX
Line S00015 Modification History
M01 (Added by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
01339  M01S00015.1ck11   +++|          IDENT  3CK,OVLA
Line S00842 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01340  M01S00842.ns2780  ---|*COMMENT  1CK - SYSTEM CHECK POINT.
Line S00229 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01341  M01S00229.ns2780  +++|*COMMENT  1CK - CHECKPOINT FUNCTION PROCESSORS.
01342  M01S00230.ns2780  +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1995.
01343  M00S00843.1ck     +++|          SPACE  4,10
Line S00844 Modification History
M01 (Removed by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01344  M01S00844.ns2780  ---|***       3CK - SYSTEM CHECK POINT.
Line S00231 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
01345  M01S00231.ns2780  +++|***       3CK - CHECKPOINT FUNCTION PROCESSORS.
Proceed to Part 1