User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ck

Deck 1CK

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ck     +++|          IDENT  1CK,CKP
00002  M01S00002.1ck     +++|          PERIPH
00003  M01S00003.1ck     +++|          BASE   MIXED
00004  M01S00004.1ck     +++|          SST
Line S00005 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2780  ---|*COMMENT  1CK - SYSTEM CHECK POINT.
00006  M01S00001.ns2780  +++|*COMMENT  1CK - SYSTEM CHECKPOINT.
Line S00006 Modification History
M01 (Added by) 1ck
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00007.ns2780  ---|          TITLE  1CK - SYSTEM CHECK POINT.
00010  M01S00002.ns2780  +++|          TITLE  1CK - SYSTEM CHECKPOINT.
Line S00008 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00008.253l688 ---|          SPACE  4
00012  M01S00001.253l688 +++|          SPACE  4,10
Line S00009 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00009.ns2780  ---|***       1CK - SYSTEM CHECK POINT.
00014  M01S00003.ns2780  +++|***       1CK - SYSTEM CHECKPOINT.
00015  M01S00010.1ck     +++|*
00016  M01S00011.1ck     +++|*         G. R. MANSFIELD.   70/12/10.
00017  M01S00012.1ck     +++|*         J. L. WARDELL.     72/08/20.
00018  M01S00013.1ck     +++|*         P. D. HAAS.        74/09/16.
00019  M01S00014.1ck     +++|*         R. E. TATE.        75/04/12.
00020  M01S00015.1ck     +++|*         S. L. BETH.        75/05/15.
00021  M01S00016.1ck     +++|          SPACE  4,10
00022  M01S00017.1ck     +++|***              *1CK* IS CALLED TO CHECKPOINT MASS STORAGE DEVICES.
00023  M01S00018.1ck     +++|*
00024  M01S00019.1ck     +++|*
00025  M01S00020.1ck     +++|*         FUNCTION 0         DEADSTART CHECKPOINT.
00026  M01S00021.1ck     +++|*                            ALLOCATES SPACE FOR SYSTEM TABLES
00027  M01S00022.1ck     +++|*                            AND COPIES THEM TO DISK, CHECKPOINTS
00028  M01S00023.1ck     +++|*                            TRT ON SYSTEM DEVICES AND LOCAL AREAS
00029  M01S00024.1ck     +++|*                            ON DEVICES WITH ACTIVE DAYFILES.
00030  M01S00025.1ck     +++|*
00031  M01S00026.1ck     +++|*         FUNCTION 1         SYSTEM CHECKPOINT.
Line S00027 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00027.253l688 ---|*                            IDLES THE SYSTEM AND CHECKPOINTS
Line S00028 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00028.253l688 ---|*                            SYSTEM TABLES AND TRTS ON ALL
Line S00029 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00029.253l688 ---|*                            SYSTEM DEVICES.
00035  M01S00002.253l688 +++|*                            IDLES THE SYSTEM AND CHECKPOINTS SYSTEM
00036  M01S00003.253l688 +++|*                            TABLES AND TRTS ON ALL SYSTEM DEVICES.
00037  M01S00030.1ck     +++|*
00038  M01S00031.1ck     +++|*         FUNCTION 2         CHECKPOINT DEVICE.
00039  M01S00032.1ck     +++|*                            CHECKPOINT TRT TO ALL DEVICES WITH
00040  M01S00033.1ck     +++|*                            CHECKPOINT REQUESTS SET.
00041  M01S00034.1ck     +++|*
00042  M01S00035.1ck     +++|*         FUNCTION 3         ALTERNATE LIBRARY CHECKPOINT.
00043  M01S00036.1ck     +++|*                            SAME AS FUNCTION 1 BUT THE SYSTEM
00044  M01S00037.1ck     +++|*                            IS NOT IDLED.
00045  M01S00038.1ck     +++|*
00046  M01S00039.1ck     +++|*         FUNCTION 4         CHECKPOINT LOCAL AREA.
00047  M01S00040.1ck     +++|*                            THE LOCAL AREA ON THE SPECIFIED
00048  M01S00041.1ck     +++|*                            DEVICE IS COPIED TO THE LOCAL AREA
00049  M01S00042.1ck     +++|*                            SECTOR. THE TRT IS ALSO CHECKPOINTED.
00050  M01S00043.1ck     +++|*
00051  M01S00044.1ck     +++|*         FUNCTION 5         CHECKPOINT INITIALIZED DEVICE.
00052  M01S00045.1ck     +++|*                            SAME AS FUNCTION 2 EXCEPT THAT ONLY
00053  M01S00046.1ck     +++|*                            THE DEVICE SPECIFIED IN CALL FROM
00054  M01S00047.1ck     +++|*                            *IMS* IS PROCESSED.
00055  M01S00048.1ck     +++|*
00056  M01S00049.1ck     +++|*         FUNCTION 6         RECOVERY ABORT CHECKPOINT.
00057  M01S00050.1ck     +++|*                            PROCESSES OUTSTANDING CHECKPOINT REQUESTS
00058  M01S00051.1ck     +++|*                            VIA FUNCTION 2 WHEN IT IS IMPOSSIBLE TO
00059  M01S00052.1ck     +++|*                            COMPLETE A CM (LEVEL 3) RECOVERY.
00060  M01S00053.1ck     +++|*
00061  M01S00054.1ck     +++|*         FUNCTION 7         RECOVERY ABORT CHECKPOINT.
00062  M01S00055.1ck     +++|*                            SAME AS FUNCTION 6 EXCEPT BUFFERED DEVICES
00063  M01S00056.1ck     +++|*                            ARE NOT CHECKPOINTED.
00064  M01S00057.1ck     +++|*
00065  M01S00058.1ck     +++|*         FUNCTION 10        IDLE SYSTEM CHECKPOINT.
Line S00059 Modification History
M01 (Added by) 1ck
M02 (Updated by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00059.243l647 ---|*                            IDLE SYSTEM AND CHECKPOINT TRT TO
Line S00060 Modification History
M01 (Added by) 1ck
M02 (Updated by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00060.243l647 ---|*                            ALL DEVICES.
Line S00001 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00001.253l688 ---|*                            SAME AS FUNCTION 1.
Line S00002 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00002.253l688 ---|*                            *1MB* WILL BE CALLED INTO THIS PP AT
Line S00003 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00003.253l688 ---|*                            COMPLETION.
00071  M01S00004.253l688 +++|*                            SAME AS FUNCTION 1 EXCEPT *1MB* WILL BE
00072  M01S00005.253l688 +++|*                            CALLED INTO THIS PP AT COMPLETION.
00073  M01S00004.243l647 +++|*
00074  M01S00005.243l647 +++|*         FUNCTION 11        FATAL IOU ERROR CHECKPOINT.
Line S00006 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00006.253l688 ---|*                            SAME AS FUNCTION 2.
Line S00007 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00007.253l688 ---|*                            *1MB* WILL BE CALLED INTO THIS PP AT
Line S00008 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00008.253l688 ---|*                            COMPLETION.
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.
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  M01S00061.1ck     +++|          SPACE  4,10
00095  M01S00062.1ck     +++|***       ENTRY CONDITIONS.
00096  M01S00063.1ck     +++|*
00097  M01S00064.1ck     +++|*
00098  M01S00065.1ck     +++|*         (IR+2) = FUNCTION CODE.
Line S00066 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00066.253l688 ---|*         (IR+3) = EST ORDINAL (FUNCTIONS 4 AND 5).
00100  M01S00016.253l688 +++|*         (IR+3) = EST ORDINAL (FUNCTIONS 4, 5 AND 12.)
Line S00009 Modification History
M01 (Added by) 243l647
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00009.ns2593  ---|*                = *1MB* FUNCTION CODE (FUNCTIONS 10 AND 11).
00102  M01S00007.ns2593  +++|*                = *1MB* FUNCTION CODE (FUNCTIONS 10, 11 AND 13).
Line S00067 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00067.253l688 ---|*         (IR+4) = RECOVERY STATUS.
00104  M01S00017.253l688 +++|*         (IR+4) = NUMBER OF DAYFILE POINTER TO UPDATE (FUNCTION 4).
00105  M01S00018.253l688 +++|*                = PREVIOUS ACCESS STATUS (MMF) (FUNCTION 5).
00106  M01S00068.1ck     +++|          SPACE  4,10
00107  M01S00069.1ck     +++|***       DAYFILE MESSAGES.
00108  M01S00070.1ck     +++|*
00109  M01S00071.1ck     +++|*         *ALL EQ-S CHECKPOINTED.*           (CONSOLE LINE 1)
00110  M01S00072.1ck     +++|*         *RECOVERY ABORTED.*                (CONSOLE LINE 2)
00111  M01S00073.1ck     +++|*                ALL DEVICES WERE SUCCESSFULLY CHECKPOINTED
00112  M01S00074.1ck     +++|*                AND RECOVERY WAS ABORTED.
00113  M01S00075.1ck     +++|*
00114  M01S00076.1ck     +++|*         * CHECKPOINT ABORTED.* = ERROR FLAG WAS SET.
00115  M01S00077.1ck     +++|*
00116  M01S00078.1ck     +++|*         *CHECKPOINT COMPLETE.* = NORMAL COMPLETION.
00117  M01S00079.1ck     +++|*
00118  M01S00080.1ck     +++|*         *EQXXX, CHECKPOINT ABORTED.* = UNRECOVERED ERROR WRITING
00119  M01S00081.1ck     +++|*                SYSTEM SECTOR ON EST ORDINAL XXX.
00120  M01S00082.1ck     +++|*
00121  M01S00083.1ck     +++|*         *EQXXX, LOCAL AREA OVERFLOW.* = LOCAL AREA SECTOR WAS FULL
00122  M01S00084.1ck     +++|*                (40B MACHINE ID-S ALREADY PRESENT).
00123  M01S00085.1ck     +++|*
00124  M01S00086.1ck     +++|*         *EQXXX, LOCAL AREA SECTOR ERROR.* = UNRECOVERED READ ERROR ON
00125  M01S00087.1ck     +++|*                SECTOR OF LOCAL AREAS.
00126  M01S00088.1ck     +++|*
00127  M01S00089.1ck     +++|*         *EQXXX, TRACK LIMIT.* = NO TRACKS WERE AVAILABLE ON EST
00128  M01S00090.1ck     +++|*                ORDINAL XXX.
00129  M01S00091.1ck     +++|*
00130  M01S00092.1ck     +++|*         *NON-BUFFERED EQ-S CHECKPOINTED.*  (CONSOLE LINE 1)
00131  M01S00093.1ck     +++|*         *RECOVERY ABORTED.*                (CONSOLE LINE 2)
00132  M01S00094.1ck     +++|*                NON-BUFFERED DEVICES WERE SUCCESSFULLY
00133  M01S00095.1ck     +++|*                CHECKPOINTED AND RECOVERY WAS ABORTED.
00134  M01S00096.1ck     +++|*
00135  M01S00097.1ck     +++|*         * SYSTEM CHECKPOINT ABORT.* = MESSAGE ISSUED TO SUBSYSTEMS
00136  M01S00098.1ck     +++|*                WHICH ARE ABORTED DURING A SYSTEM CHECKPOINT.
00137  M01S00099.1ck     +++|          SPACE  4,10
00138  M01S00100.1ck     +++|***       OPERATOR MESSAGES.
00139  M01S00101.1ck     +++|*
00140  M01S00102.1ck     +++|*         NONE.
Line S00103 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00103.253l688 ---|          SPACE  4
00142  M01S00019.253l688 +++|          SPACE  4,10
00143  M01S00104.1ck     +++|**        ROUTINES USED.
00144  M01S00105.1ck     +++|*
00145  M01S00106.1ck     +++|*
00146  M01S00107.1ck     +++|*         0TD - TERMINATE DAYFILES.
00147  M01S00108.1ck     +++|*         5ME - FORMAT ERROR MESSAGES.
Line S00109 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00109.253l688 ---|          SPACE  4
00149  M01S00020.253l688 +++|          SPACE  4,10
00150  M01S00110.1ck     +++|*CALL     COMPMAC
00151  M01S00111.1ck     +++|*CALL     COMSCPS
00152  M01S00001.1ck10   +++|*CALL     COMSDFS
00153  M01S00112.1ck     +++|*CALL     COMSDSL
00154  M01S00113.1ck     +++|*CALL     COMSDST
00155  M01S00114.1ck     +++|*CALL     COMSEVT
00156  M01S00001.ns2477  +++|*CALL     COMSHIO
00157  M01S00115.1ck     +++|*CALL     COMSLSD
00158  M01S00116.1ck     +++|*CALL     COMSMMF
00159  M01S00117.1ck     +++|*CALL     COMSMSC
00160  M01S00118.1ck     +++|*CALL     COMSMSP
00161  M01S00119.1ck     +++|*CALL     COMSMST
00162  M01S00120.1ck     +++|*CALL     COMSPIM
00163  M01S00001.ns2513  +++|          QUAL   SCD
00164  M01S00002.ns2513  +++|*CALL     COMSSCD
00165  M01S00003.ns2513  +++|          QUAL   *
00166  M01S00121.1ck     +++|*CALL     COMSSSD
00167  M01S00122.1ck     +++|*CALL     COMSWEI
00168  M01S00123.1ck     +++|*CALL     COMSZOL
Line S00124 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00124.253l688 ---|          SPACE  4
00170  M01S00021.253l688 +++|          SPACE  4,10
00171  M01S00125.1ck     +++|**        MACRO  DEFINITIONS.
Line S00126 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00126.253l688 ---| MTBL     SPACE  4
00173  M01S00022.253l688 +++| MTBL     SPACE  4,10
00174  M01S00127.1ck     +++|**        MTBL - GENERATE TABLE OF PARALLEL MST ADDRESSES.
00175  M01S00128.1ck     +++|*
00176  M01S00129.1ck     +++|*                N = TABLE NAME.
00177  M01S00130.1ck     +++|*                A = NOS MST ADDRESS.
00178  M01S00131.1ck     +++|*                B = K21 MST ADDRESS.
00179  M01S00132.1ck     +++|*                C = REPEAT COUNT.
00180  M01S00133.1ck     +++|
00181  M01S00134.1ck     +++|
00182  M01S00135.1ck     +++|          NOREF  .I,.X,.Y
00183  M01S00136.1ck     +++|
00184  M01S00137.1ck     +++|          MACRO  MTBL,N,A,B,C
00185  M01S00138.1ck     +++|          IFC    NE,*N**,1
00186  M01S00139.1ck     +++| N        BSS    0
00187  M01S00140.1ck     +++| )3       IFC    NE,*C**
00188  M01S00141.1ck     +++| .I       SET    C
00189  M01S00142.1ck     +++| )3       ELSE   1
00190  M01S00143.1ck     +++| .I       SET    1
00191  M01S00144.1ck     +++| .X       SET    NMSS+5*A
00192  M01S00145.1ck     +++| .Y       SET    MTSS+5*/K21/B
00193  M01S00146.1ck     +++| )D       DUP    .I
00194  M01S00147.1ck     +++|          CON    .X,.Y
00195  M01S00148.1ck     +++| .X       SET    .X+1
00196  M01S00149.1ck     +++| .Y       SET    .Y+1
00197  M01S00150.1ck     +++| )D       ENDD
00198  M01S00151.1ck     +++|          ENDM
00199  M01S00152.1ck     +++| SUBSYST  SPACE  4,10
00200  M01S00153.1ck     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00201  M01S00154.1ck     +++|*
00202  M01S00155.1ck     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00203  M01S00156.1ck     +++|*
00204  M01S00157.1ck     +++|*         ENTRY  *ABT* = *NA*, IF SUBSYSTEM NOT TO BE ABORTED
00205  M01S00158.1ck     +++|*                              BY CHECKPOINT.
00206  M01S00159.1ck     +++|*
00207  M01S00160.1ck     +++|*         TABLE OF SUBSYSTEM ID-S OF SUBSYSTEMS NOT TO BE ABORTED.
00208  M01S00161.1ck     +++|*
00209  M01S00162.1ck     +++|*T        12/ SSID
Figure

011 SSID

00210  M01S00163.1ck     +++|
00211  M01S00164.1ck     +++|
00212  M01S00165.1ck     +++|          PURGMAC  SUBSYST
00213  M01S00166.1ck     +++|
00214  M01S00167.1ck     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00215  M01S00168.1ck     +++| .A       IFC    EQ,$AB$NA$
00216  M01S00169.1ck     +++| .SUB     RMT
00217  M01S00170.1ck     +++|          CON    ID
00218  M01S00171.1ck     +++| .SUB     RMT
00219  M01S00172.1ck     +++| .A       ENDIF
00220  M01S00173.1ck     +++| SUBSYST  ENDM
Line S00174 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00174.253l688 ---|          SPACE  4
00222  M01S00023.253l688 +++|          SPACE  4,10
00223  M01S00175.1ck     +++|****      DIRECT LOCATION ASSIGNMENTS.
00224  M01S00176.1ck     +++|
00225  M01S00177.1ck     +++|
00226  M01S00178.1ck     +++| T8       EQU    16          TEMPORARY STORAGE
00227  M01S00179.1ck     +++| T9       EQU    17
00228  M01S00180.1ck     +++| RI       EQU    T8 - T9     RANDOM INDEX
00229  M01S00181.1ck     +++| CN       EQU    20 - 24     CM WORD BUFFER (5 LOCATIONS)
00230  M01S00182.1ck     +++| NC       EQU    25          NUMBER OF CONTROL POINTS
00231  M01S00183.1ck     +++| NT       EQU    26          NEXT TRACK POINTER
00232  M01S00184.1ck     +++| EI       EQU    27          EQUIPMENT INDEX
00233  M01S00185.1ck     +++| ES       EQU    30 - 34     EST ENTRY (5 LOCATIONS)
00234  M01S00024.253l688 +++| DT       EQU    ES+3        DEVICE TYPE
00235  M01S00025.253l688 +++| MS       EQU    ES+4        MST ADDRESS / 10B
00236  M01S00186.1ck     +++| LT       EQU    35          LABEL TRACK
Line S00187 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00187.251l664 ---| DA       EQU    36          DAYFILE POINTER ADDRESS
00238  M01S00001.251l664 +++| DI       EQU    36          DAYFILE INDEX
00239  M01S00188.1ck     +++| UI       EQU    37          UTILITY ACTIVE INTERLOCK FLAG
Line S00189 Modification History
M01 (Added by) 1ck
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00189.251l664 ---| FS       EQU    40 - 44     CM WORD BUFFER (5 WORDS).
00241  M01S00002.251l664 +++| FS       EQU    40 - 44     CM WORD BUFFER (5 LOCATIONS)
Line S00190 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00190.253l688 ---| SW       EQU    45          DEVICE STATUS WORD
00243  M01S00026.253l688 +++| LS       EQU    45          LAST SECTOR FLAG
00244  M01S00191.1ck     +++| PA       EQU    46          PROCESSOR ADDRESS
00245  M01S00192.1ck     +++| TS       EQU    47          LABEL TRACK INTERLOCK STATUS
00246  M01S00193.1ck     +++| FA       EQU    57          FST ADDRESS
00247  M01S00194.1ck     +++| LO       EQU    60          LAST MASS STORAGE ORDINAL + 1
00248  M01S00195.1ck     +++| ST       EQU    62          SYSTEM TABLE TRACK
00249  M01S00196.1ck     +++| CA       EQU    63 - 67     CENTRAL ADDRESS (2 LOCATIONS)
00250  M01S00197.1ck     +++| EC       EQU    CA+2        MANAGED TABLE ENTRY COUNT
00251  M01S00198.1ck     +++| LM       EQU    CA+3 - CA+4 LIMIT ADDRESS (2 LOCATIONS)
00252  M01S00199.1ck     +++|****
00253  M01S00200.1ck     +++|          TITLE  MAIN PROGRAM.
Line S00201 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00201.253l688 ---| CKP      SPACE  4
00255  M01S00027.253l688 +++| CKP      SPACE  4,10
00256  M01S00202.1ck     +++|**        CKP - MAIN PROGRAM.
00257  M01S00203.1ck     +++|
00258  M01S00204.1ck     +++|
00259  M01S00205.1ck     +++|          ORG    PPFW
00260  M01S00206.1ck     +++| CKP      LJM    PRS         PRESET PROGRAM
00261  M01S00207.1ck     +++|
00262  M01S00208.1ck     +++|
Line S00209 Modification History
M01 (Added by) 1ck
M02 (Updated by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00209.243l647 ---| DPP      MONITOR DPPM       DROP PP
Line S00010 Modification History
M01 (Added by) 243l647
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00010.253l688 ---| DPP      LJM    DPP1        DROP PP
00265  M01S00028.253l688 +++| DPP      LJM    PRS5        PRESET *1MV* SPECIAL CALL
00266  M01S00029.253l688 +++|          ERRNZ  CKP+2-DPP   FUNCTION 12 DEPENDS ON VALUE
00267  M01S00011.243l647 +++| DPPA     EQU    *-1         (EXIT PROCESSING ADDRESS)
00268  M01S00012.243l647 +++|
00269  M01S00013.243l647 +++| DPP1     MONITOR  DPPM      DROP PP
00270  M01S00210.1ck     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S00211 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00211.253l688 ---|          SPACE  4
Line S00212 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00212.253l688 ---|**        LABEL SECTOR FNT ENTRY.
Line S00213 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00213.253l688 ---|
Line S00214 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00214.253l688 ---|
Line S00215 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00215.253l688 ---| NLAB     VFD    42/0LLABEL,6/1,6/SYFT,6/0
00276  M01S00216.1ck     +++| DSC      SPACE  4
00277  M01S00217.1ck     +++|***       FUNCTION 0.
00278  M01S00218.1ck     +++|*         DEAD START CHECK POINT.
00279  M01S00219.1ck     +++|
00280  M01S00220.1ck     +++|
00281  M01S00221.1ck     +++| DSC      EXECUTE 3CK
00282  M01S00222.1ck     +++| SYC      SPACE  4,10
Line S00223 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00223.ns2593  ---|***       FUNCTIONS 1, 3, 10.
00284  M01S00008.ns2593  +++|***       FUNCTIONS 1, 3, 10, 13.
00285  M01S00224.1ck     +++|*         SYSTEM CHECK POINT.
00286  M01S00225.1ck     +++|*         ALTERNATE LIBRARY CHECKPOINT.
00287  M01S00226.1ck     +++|*         IDLE SYSTEM CHECKPOINT.
00288  M01S00009.ns2593  +++|*         LONG POWER WARNING CHECKPOINT.
00289  M01S00227.1ck     +++|
00290  M01S00228.1ck     +++|
00291  M01S00229.1ck     +++| SYC      EQU    DSC
00292  M01S00230.1ck     +++| PFC      SPACE  4
00293  M01S00231.1ck     +++|***       FUNCTION 2.
00294  M01S00232.1ck     +++|*         CHECK POINT PERMANENT FILE DEVICES.
00295  M01S00233.1ck     +++|
00296  M01S00234.1ck     +++|
00297  M01S00235.1ck     +++| PFC2     LDD    T5          SET EST ORDINAL
00298  M01S00236.1ck     +++|          STD    CM+1
00299  M01S00237.1ck     +++|          STD    IR+3
00300  M01S00238.1ck     +++|          LDN    VEIS        VALIDATE EQUIPMENT
00301  M01S00239.1ck     +++|          STD    CM+3
00302  M01S00240.1ck     +++|          MONITOR VMSM
00303  M01S00241.1ck     +++|          LDD    CM+1
00304  M01S00242.1ck     +++|          NJN    PFC1        IF VALIDATION ERRORS
00305  M01S00243.1ck     +++| PFC3     RJM    CDB         CHECK FOR DISK BUFFERED
Line S00244 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00244.283l840 ---|          NJN    PFC4        IF DEVICE NOT TO BE CHECKPOINTED
00307  M01S00001.283l840 +++|          ZJN    PFC4        IF DEVICE IS NOT TO BE CHECKPOINTED
00308  M01S00002.283l840 +++|          AOM    UERR        SET *RETURN ON NOT READY* FLAG
00309  M01S00001.1ck7    +++|          ERRNZ  EPNR-1      CODE DEPENDS ON VALUE
Line S00002 Modification History
M01 (Added by) 1ck7
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00002.283l840 ---|          AOM    UERR        SET *RETURN ON NOT READY* FLAG
00311  M01S00245.1ck     +++|          RJM    WTT         WRITE MASS STORAGE TABLES
Line S00246 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00246.283l840 ---| PFC4     RJM    CIL         CLEAR INTERLOCKS
00313  M01S00003.283l840 +++| PFC4     RJM    FIB         FLUSH I/O BUFFERS
00314  M01S00004.283l840 +++|          RJM    CIL         CLEAR INTERLOCKS
00315  M01S00247.1ck     +++|
00316  M01S00248.1ck     +++| PFC      RJM    SMD         SELECT MASS STORAGE DEVICE
00317  M01S00249.1ck     +++|          NJN    PFC2        IF NOT END OF MS ENTRIES
00318  M01S00250.1ck     +++|*         NJN    PFC3        (MASS STORAGE VALIDATION DISABLED)
00319  M01S00251.1ck     +++| PFCA     EQU    *-1
00320  M01S00252.1ck     +++|          LJM    DPP         DROP PP
00321  M01S00253.1ck     +++| PFCB     EQU    *-1
00322  M01S00254.1ck     +++|*         LJM    /3CK/RAC1   (RECOVERY ABORT CHECKPOINT)
00323  M01S00255.1ck     +++|
00324  M01S00256.1ck     +++| PFC1     STD    IR+2        STORE ERROR CODES
00325  M01S00257.1ck     +++|          LDN    STVE        SET ERROR STATUS IN MST
00326  M01S00258.1ck     +++|          RJM    SES
00327  M01S00259.1ck     +++|          EXECUTE 5ME        PROCESS ERRLOG MESSAGES
00328  M01S00260.1ck     +++|          UJN    PFC4        CLEAR INTERLOCKS
00329  M01S00261.1ck     +++|          SPACE  4
00330  M01S00262.1ck     +++|***       FUNCTION 4.
00331  M01S00263.1ck     +++|*         UPDATE LOCAL AREA SECTOR.
00332  M01S00264.1ck     +++|*
00333  M01S00265.1ck     +++|*         (IR+3) = EQUIPMENT.
00334  M01S00266.1ck     +++|
00335  M01S00267.1ck     +++|
00336  M01S00268.1ck     +++| ULA      EQU    DSC
00337  M01S00269.1ck     +++|          SPACE  4
00338  M01S00270.1ck     +++|***       FUNCTION 5.
00339  M01S00271.1ck     +++|*         CHECKPOINT INITIALIZED DEVICE.
00340  M01S00272.1ck     +++|*
00341  M01S00273.1ck     +++|*         ENTRY  (IR+3) = EST ORDINAL.
00342  M01S00274.1ck     +++|
00343  M01S00275.1ck     +++|
Line S00276 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00276.ns2780  ---| IDC      EQU    DSC
00345  M01S00004.ns2780  +++| IDC      EXECUTE  3CL
00346  M01S00277.1ck     +++| RAC      SPACE  4,10
00347  M01S00278.1ck     +++|***       FUNCTION 6 AND 7.
00348  M01S00279.1ck     +++|*         RECOVERY ABORT CHECKPOINT.
00349  M01S00280.1ck     +++|
00350  M01S00281.1ck     +++|
Line S00282 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00282.ns2780  ---| RAC      EQU    DSC
00352  M01S00005.ns2780  +++| RAC      EQU    IDC
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
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 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00035.ns2780  ---| RLT      EQU    DSC
00365  M01S00006.ns2780  +++| RLT      EQU    IDC
00366  M01S00283.1ck     +++|          TITLE  SUBROUTINES.
00367  M01S00284.1ck     +++| ABT      SPACE  4,10
00368  M01S00285.1ck     +++|**        ABT - ABORT THE OPERATION.
00369  M01S00286.1ck     +++|*
00370  M01S00287.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
00371  M01S00288.1ck     +++|
00372  M01S00289.1ck     +++|
00373  M01S00290.1ck     +++| ABT      LDC    ABTB
00374  M01S00291.1ck     +++|          RJM    DFM
00375  M01S00292.1ck     +++|          RJM    CIL         CLEAR INTERLOCKS
00376  M01S00293.1ck     +++|          SMSTF  LCKP        RESET CHECKPOINT REQUEST
00377  M01S00294.1ck     +++|          LJM    DPP
00378  M01S00295.1ck     +++|
00379  M01S00296.1ck     +++| ABTA     DATA   H*EQXXX,*
00380  M01S00297.1ck     +++| ABTB     DATA   C* CHECKPOINT ABORTED.*
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  M01S00298.1ck     +++| CDB      SPACE  4,10
00406  M01S00299.1ck     +++|**        CDB - CHECK IF DEVICE IS BUFFERED.
00407  M01S00300.1ck     +++|*
Line S00301 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00301.283l840 ---|*         ENTRY  (T5) = EST ORDINAL.
Line S00302 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00302.283l840 ---|*                (ES+4) = MST ADDRESS.
00410  M01S00005.283l840 +++|*         ENTRY  (ES - ES+4) = EST ENTRY.
00411  M01S00303.1ck     +++|*
Line S00304 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00304.283l840 ---|*         EXIT   DATA BUFFERS FLUSHED IF DEVICE BUFFERED.
Line S00305 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00305.283l840 ---|*                (A) = 0, DEVICE TO BE CHECKPOINTED.
Line S00306 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00306.283l840 ---|*
Line S00307 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00307.283l840 ---|*         USES   CM - CM+4.
Line S00308 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00308.283l840 ---|*
Line S00309 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00309.283l840 ---|*         MACROS MONITOR.
00418  M01S00006.283l840 +++|*         EXIT   (A) = 0, IF DEVICE IS NOT TO BE CHECKPOINTED.
00419  M01S00310.1ck     +++|
00420  M01S00311.1ck     +++|
Line S00312 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00312.283l840 ---| CDB1     LDN    1           INDICATE NO CHECKPOINT
00422  M01S00007.283l840 +++| CDB1     LDN    1           INDICATE DEVICE MAY BE CHECKPOINTED
00423  M01S00313.1ck     +++|
00424  M01S00314.1ck     +++| CDB      SUBR               ENTRY/EXIT
Line S00315 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00315.283l840 ---|          LDD    ES+4        CHECK IF BUFFERED DEVICE
Line S00316 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00316.283l840 ---|          SHN    3
Line S00317 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00317.283l840 ---|          ADN    DILL
Line S00318 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00318.283l840 ---|          CRD    CM
Line S00319 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00319.283l840 ---|          LDD    CM+3
Line S00320 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00320.283l840 ---|          LPC    2000
Line S00321 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00321.283l840 ---|          ZJN    CDBX        IF NOT A BUFFERED DEVICE
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  M01S00322.1ck     +++|          LDD    IR+2
Line S00323 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00323.283l840 ---|          LMN    7
Line S00324 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00324.283l840 ---|          ZJN    CDB1        IF DO NOT FLUSH BUFFERED DEVICE
Line S00325 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00325.283l840 ---|          LDN    ZERL
Line S00326 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00326.283l840 ---|          CRD    CM
Line S00327 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00327.283l840 ---|          LDC    BMFW*100    FLUSH ALL WRITE BUFFERS
Line S00328 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00328.283l840 ---|          STD    CM+4
Line S00329 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00329.283l840 ---|          LDD    T5
Line S00330 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00330.283l840 ---|          STD    CM+3
Line S00331 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00331.283l840 ---|          MONITOR  BFMM
Line S00332 Modification History
M01 (Added by) 1ck
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00332.283l840 ---|*         LDN    0
00446  M01S00011.283l840 +++|          LMN    7           ZERO IF BUFFERED DEVICES NOT TO BE FLUSHED
00447  M01S00333.1ck     +++|          UJN    CDBX        RETURN
00448  M01S00334.1ck     +++| CIL      SPACE  4,15
00449  M01S00335.1ck     +++|**        CIL - CLEAR INTERLOCKS.
00450  M01S00336.1ck     +++|*
00451  M01S00337.1ck     +++|*         ENTRY  (T5) = EST ORDINAL.
00452  M01S00338.1ck     +++|*                (LT) = LABEL TRACK.
00453  M01S00339.1ck     +++|*                (TS) = LABEL TRACK INTERLOCK STATUS.
00454  M01S00001.1ck8    +++|*                     = 4000, IF CHECKPOINT ABORT PROCESSING.
00455  M01S00340.1ck     +++|*                (UI) = UTILITY ACTIVE INTERLOCK STATUS.
00456  M01S00341.1ck     +++|*
00457  M01S00342.1ck     +++|*         EXIT   (A) = (TS) = (UI) = 0 (INTERLOCKS CLEARED).
00458  M01S00002.1ck8    +++|*                (TS) = 4000, IF CHECKPOINT ABORT PROCESSING.
00459  M01S00343.1ck     +++|*
00460  M01S00344.1ck     +++|*         CALLS  CTI.
00461  M01S00345.1ck     +++|
00462  M01S00346.1ck     +++|
00463  M01S00003.1ck8    +++| CIL2     LDN    0
00464  M01S00004.1ck8    +++|
00465  M01S00347.1ck     +++| CIL      SUBR               ENTRY/EXIT
00466  M01S00348.1ck     +++|          LDD    UI
00467  M01S00349.1ck     +++|          ZJN    CIL1        IF UTILITY ACTIVE INTERLOCK NOT SET
00468  M01S00350.1ck     +++|          CMSTF  LUAI        CLEAR UTILITY ACTIVE INTERLOCK
00469  M01S00351.1ck     +++|*         LDN    0           CLEAR INTERLOCK STATUS
00470  M01S00352.1ck     +++|          STD    UI
00471  M01S00353.1ck     +++| CIL1     LDD    TS
00472  M01S00354.1ck     +++|          ZJN    CILX        IF LABEL TRACK NOT INTERLOCKED
00473  M01S00005.1ck8    +++|          SHN    21-13
00474  M01S00006.1ck8    +++|          MJN    CIL2        IF CHECKPOINT ABORT PROCESSING
00475  M01S00355.1ck     +++|          LDD    LT          CLEAR TRACK INTERLOCK
00476  M01S00356.1ck     +++|          RJM    CTI
00477  M01S00357.1ck     +++|*         LDN    0           CLEAR INTERLOCK STATUS
00478  M01S00358.1ck     +++|          STD    TS
00479  M01S00359.1ck     +++|          UJN    CILX        RETURN
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
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 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00018.ns2780  ---|*         EXIT   DISK BUFFERS FLUSHED UNLESS FUNCTION 7.
Line S00019 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00019.ns2780  ---|*                DISK BUFFERS RELEASED IF FUNCTION 6.
Line S00020 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00020.ns2780  ---|*                *BAT* ACCESS FLAGS RELEASED IF FUNCTION 6 OR 7.
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.
00518  M01S00021.283l840 +++|*
Line S00022 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00022.ns2780  ---|*         USES   CM - CM+4.
00520  M01S00060.ns2780  +++|*         USES   T1, T2, CM - CM+4.
00521  M01S00023.283l840 +++|*
00522  M01S00024.283l840 +++|*         MACROS DELAY, MONITOR, PAUSE.
00523  M01S00025.283l840 +++|
00524  M01S00026.283l840 +++|
00525  M01S00027.283l840 +++| FIB      SUBR               ENTRY/EXIT
00526  M01S00061.ns2780  +++|          LDD    TH          SET MAXIMUM RETRY COUNT
00527  M01S00062.ns2780  +++|          STD    T1
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 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00031.ns2780  ---|          LDD    IR+2
Line S00032 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00032.ns2780  ---|          LMN    7
Line S00033 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00033.ns2780  ---|          ZJP    FIB2        IF FUNCTION 7
00534  M01S00063.ns2780  +++|          LJM    **          PROCESS DEVICE BASED ON *1CK* FUNCTION
00535  M01S00064.ns2780  +++| FIBA     EQU    *-1         (PROCESSING ADDRESS)
00536  M01S00034.283l840 +++|
Line S00035 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00035.ns2780  ---|*         FLUSH WRITE BUFFERS.
00538  M01S00065.ns2780  +++|*         FUNCTIONS 0, 2, 3, 5, 10 AND 11.
00539  M01S00036.283l840 +++|
Line S00037 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00037.ns2780  ---| FIB1     LDN    ZERL        CLEAR ASSEMBLY AREA
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
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
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.
00600  M01S00044.283l840 +++|
Line S00045 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00045.ns2780  ---|*         DROP ALL DISK BUFFERS.
00602  M01S00046.283l840 +++|
Line S00047 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00047.ns2780  ---|          LDD    IR+2
Line S00048 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00048.ns2780  ---|          LMN    6
Line S00049 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00049.ns2780  ---|          NJN    FIBX        IF NOT FUNCTION 6
Line S00050 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00050.ns2780  ---|          LDN    ZERL        CLEAR ASSEMBLY AREA
00607  M01S00119.ns2780  +++| RBP      SUBR               ENTRY/EXIT
00608  M01S00120.ns2780  +++|          LDN    ZERL
00609  M01S00051.283l840 +++|          CRD    CM
00610  M01S00052.283l840 +++|          LDD    T5          SET EST ORDINAL
Line S00053 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00053.ns2780  ---|          STD    CM+3
Line S00054 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00054.ns2780  ---|          LDC    BMDD*100    DROP ALL BUFFERS ON DEVICE
00613  M01S00055.283l840 +++|          STD    CM+4
Line S00056 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00056.ns2780  ---|          MONITOR  BFMM
Line S00057 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00057.ns2780  ---|          LDD    CM+4
Line S00058 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00058.ns2780  ---|          ZJN    FIB2        IF COMPLETE
Line S00059 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00059.ns2780  ---|          DELAY  20B         DELAY TWO MILLISECONDS
Line S00060 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00060.ns2780  ---|          PAUSE
Line S00061 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00061.ns2780  ---|          UJP    FIB1        REISSUE REQUEST
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.
00638  M01S00062.283l840 +++|
Line S00063 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00063.ns2780  ---|*         CLEAR ACCESS PERMISSIONS IN *BAT*.
00640  M01S00064.283l840 +++|
Line S00065 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00065.ns2780  ---| FIB2     LDD    ES
Line S00066 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00066.ns2780  ---|          SHN    21-11
Line S00067 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00067.ns2780  ---|          PJP    FIBX        IF NOT SHARED BUFFERED DEVICE
Line S00068 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00068.ns2780  ---|          LDN    ZERL
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
00654  M01S00069.283l840 +++|          CRD    CM
Line S00070 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00070.ns2780  ---| FIBA     LDN    **          SET MACHINE INDEX
Line S00071 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00071.ns2780  ---|          STD    CM+2
Line S00072 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00072.ns2780  ---|          LDD    T5          SET EST ORDINAL
Line S00073 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00073.ns2780  ---|          STD    CM+4
Line S00074 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00074.ns2780  ---|          LDN    CBWS        RELEASE ALL READ AND WRITE ACCESS BITS
Line S00075 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00075.ns2780  ---|          STD    CM+1
Line S00076 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00076.ns2780  ---|          MONITOR  MTEM
Line S00077 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00077.ns2780  ---|          UJP    FIBX        RETURN
Line S00360 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
M03 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00663  M03S00360.ns2780  ---| WMS      SPACE  4
Line S00036 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00036.ns2780  ---| WMS      SPACE  4,10
Line S00361 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00361.ns2780  ---|**        WMS - WRITE MASS STORAGE.
Line S00362 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00362.ns2780  ---|*
Line S00363 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00363.ns2780  ---|*         ENTRY  (A) = BUFFER ADDRESS.
Line S00364 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00364.ns2780  ---|*
Line S00365 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00365.ns2780  ---|*         EXIT   TO *WSE* IF WRITE ERRORS.
Line S00366 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00366.ns2780  ---|*
Line S00367 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00367.ns2780  ---|*         CALLS  WDS.
Line S00368 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00368.ns2780  ---|
Line S00369 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00369.ns2780  ---|
Line S00370 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00370.ns2780  ---| WMS      SUBR               ENTRY/EXIT
Line S00371 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00371.ns2780  ---|          RJM    WDS         WRITE MASS STORAGE
Line S00372 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00372.ns2780  ---|          PJN    WMSX        IF NO ERRORS
Line S00373 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00373.ns2780  ---|*         UJN    WSE         PROCESS WRITE ERROR
Line S00374 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
M03 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00678  M03S00374.ns2780  ---| WSE      SPACE  4
Line S00037 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00037.ns2780  ---| WSE      SPACE  4,15
Line S00375 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00375.ns2780  ---|**        WSE - WRITE ERROR PROCESSOR.
Line S00376 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00376.ns2780  ---|*
Line S00377 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00377.ns2780  ---|*         ENTRY  (T4) = CHANNEL.
Line S00378 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00378.ns2780  ---|*                (NC) = SYSTEM CONTROL POINT NUMBER.
Line S00379 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00379.ns2780  ---|*                (T5) = EST ORDINAL.
Line S00380 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00380.ns2780  ---|*                (WSEA) = ADDRESS OF POST ERROR PROCESSOR.
Line S00381 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00381.ns2780  ---|*                WRITE ERROR PROCESSING ENABLED.
Line S00382 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00382.ns2780  ---|*
Line S00383 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00383.ns2780  ---|*         CALLS  CIL, C2D, DFM, SES.
Line S00384 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00384.ns2780  ---|*
Line S00385 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00385.ns2780  ---|*         MACROS ENDMS.
Line S00386 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00386.ns2780  ---|
Line S00387 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00387.ns2780  ---|
Line S00388 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00388.ns2780  ---| WSE      ENDMS
Line S00389 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00389.ns2780  ---|          RJM    CIL         CLEAR INTERLOCKS
Line S00390 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00390.ns2780  ---|          LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S00391 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00391.ns2780  ---|          SHN    -3
Line S00392 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00392.ns2780  ---|          RJM    C2D
Line S00393 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00393.ns2780  ---|          STM    ABTA+1
Line S00394 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00394.ns2780  ---|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
Line S00395 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00395.ns2780  ---|          LPN    7
Line S00396 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00396.ns2780  ---|          SHN    6
Line S00397 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00397.ns2780  ---|          ADC    2R0,
Line S00398 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00398.ns2780  ---|          STM    ABTA+2
Line S00399 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00399.ns2780  ---|          LDD    NC          DISPLAY MESSAGE AT SYSTEM CP
Line S00400 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00400.ns2780  ---|          SHN    7
Line S00401 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00401.ns2780  ---|          ADN    MS2W
Line S00402 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00402.ns2780  ---|          CWM    ABTA,TR
Line S00403 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00403.ns2780  ---|          LDN    STCA        SET ERROR STATUS IN MST
Line S00404 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00404.ns2780  ---|          RJM    SES
Line S00405 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00405.ns2780  ---|          LDC    ABTA+ERLN   *EQXXX, CHECKPOINT ABORTED.*
Line S00406 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00406.ns2780  ---|          RJM    DFM
Line S00407 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00407.ns2780  ---|          LDN    ZERL        INITIATE *CMS*
Line S00408 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00408.ns2780  ---|          CRD    CM
Line S00409 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
M03 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00714  M03S00409.ns2780  ---|          LDC    RDSL
Line S00001 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00001.ns2780  ---|          ADN    RDSL-ZERL
Line S00410 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00410.ns2780  ---|          CWD    CM
Line S00411 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00411.ns2780  ---|          LJM    DPP         EXIT TO POST ERROR PROCESSING
Line S00412 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00412.ns2780  ---| WSEA     EQU    *-1
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  M01S00413.1ck     +++| SMD      SPACE  4,20
00725  M01S00414.1ck     +++|**        SMD - SELECT MASS STORAGE DEVICE.
00726  M01S00415.1ck     +++|*
00727  M01S00416.1ck     +++|*         ENTRY  (EI) = LAST EQUIPMENT PROCESSED.
00728  M01S00417.1ck     +++|*
00729  M01S00418.1ck     +++|*         EXIT   (A) = 0 IF END OF MASS STORAGE DEVICES.
00730  M01S00419.1ck     +++|*                (T5) = (EI) = EST ORDINAL.
00731  M01S00420.1ck     +++|*                (T6) = (LT) = LABEL TRACK
00732  M01S00421.1ck     +++|*                (UI) = UTILITY ACTIVE INTERLOCK STATUS.
00733  M01S00422.1ck     +++|*                (ES - ES+4) = EST ENTRY.
00734  M01S00423.1ck     +++|*                (FS - FS+4) = *STLL* WORD OF MST.
00735  M01S00424.1ck     +++|*                DRIVER PRESET.
00736  M01S00425.1ck     +++|*
Line S00426 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00426.1ck11   ---|*         USES   CM - CM+4, CN - CN+4.
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  M01S00427.1ck     +++|*
00741  M01S00428.1ck     +++|*         CALLS  SES.
00742  M01S00429.1ck     +++|*
00743  M01S00430.1ck     +++|*         MACROS SETMS, SFA, SMSTF.
00744  M01S00431.1ck     +++|
00745  M01S00432.1ck     +++|
00746  M01S00433.1ck     +++| SMD      SUBR               ENTRY/EXIT
00747  M01S00434.1ck     +++| SMD1     AOD    EI          ADVANCE EST INDEX
00748  M01S00435.1ck     +++|          STD    T5
00749  M01S00436.1ck     +++|          LMD    LO
00750  M01S00437.1ck     +++|          ZJN    SMDX        IF END OF MASS STORAGE EST
00751  M01S00438.1ck     +++|          SFA    EST,T5      READ EST ENTRY
00752  M01S00439.1ck     +++|          ADK    EQDE
00753  M01S00440.1ck     +++|          CRD    ES
00754  M01S00441.1ck     +++|          LDD    ES          CHECK EQUIPMENT
00755  M01S00442.1ck     +++|          SHN    21-13
00756  M01S00443.1ck     +++|          PJN    SMD1        IF NOT MASS STORAGE
00757  M01S00444.1ck     +++|          SHN    13-21
00758  M01S00445.1ck     +++|          LPC    103
00759  M01S00446.1ck     +++|          SBN    3
00760  M01S00447.1ck     +++|          PJN    SMD1        IF DEVICE UNAVAILABLE OR DOWN
Line S00448 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00448.ns2593  ---|          LDD    ES+4
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  M01S00449.1ck     +++|          SHN    3
00772  M01S00450.1ck     +++|          ADN    ACGL
00773  M01S00451.1ck     +++|          CRD    CM
00774  M01S00452.1ck     +++|          ADN    ALGL-ACGL
00775  M01S00453.1ck     +++|          CRD    CN
00776  M01S00454.1ck     +++|          ADN    STLL-ALGL
00777  M01S00455.1ck     +++|          CRD    FS
Line S00456 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00456.1ck11   ---| SMDA     UJN    SMD4        (CHECKPOINT REQUESTED FLAG IMMATERIAL)
Line S00457 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00457.1ck11   ---|          ORG    SMDA
Line S00458 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00458.1ck11   ---|          LDD    FS          LOOK AT CHECKPOINT REQUESTED
00781  M01S00003.1ck11   +++| SMDA     LDD    FS          LOOK AT CHECKPOINT REQUESTED
00782  M01S00004.1ck11   +++|*         UJN    SMD4        (CHECKPOINT REQUESTED FLAG IMMATERIAL)
00783  M01S00459.1ck     +++|          LPN    MLIRP+MLCKP
00784  M01S00460.1ck     +++|          LMN    MLCKP
Line S00461 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00461.ns2593  ---| SMD3     NJN    SMD1        IF INITIALIZE / NO CHECKPOINT PENDING
00786  M01S00019.ns2593  +++| SMD3     NJN    SMD1.1      IF INITIALIZE / NO CHECKPOINT PENDING
00787  M01S00462.1ck     +++| SMD4     LDD    CM+4
00788  M01S00463.1ck     +++|          LPC    MGDEI+MGRDR
00789  M01S00464.1ck     +++|          NJN    SMD3        IF ERROR IDLE OR REDEFINITION REQUESTED
00790  M01S00465.1ck     +++|          LDD    FS+1
00791  M01S00466.1ck     +++|          LPN    77
00792  M01S00467.1ck     +++|          ZJN    SMD5        IF NO ERROR FLAG
Line S00468 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00468.ns2507  ---|          LMN    STCA
Line S00001 Modification History
M01 (Added by) ns2507
M02 (Updated by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00001.1ck9    ---|          LMN    STDE
Line S00002 Modification History
M01 (Added by) ns2507
M02 (Updated by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00002.1ck9    ---|          ZJN    SMD5        IF DEVICE ERROR
Line S00003 Modification History
M01 (Added by) ns2507
M02 (Updated by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00003.1ck9    ---|          LMN    STCA&STDE
Line S00469 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck9
Seq #  *Modification Id* Act 
----------------------------+
00797  M02S00469.1ck9    ---|          NJN    SMD3        IF NOT CHECKPOINT ABORT
00798  M01S00001.1ck9    +++|          LDD    ES
Line S00002 Modification History
M01 (Added by) 1ck9
M02 (Updated by) 1ck9a
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00002.1ck9a   ---|          SHN    21-1
Line S00003 Modification History
M01 (Added by) 1ck9
M02 (Updated by) 1ck9a
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00003.1ck9a   ---|          MJN    SMD3        IF DEVICE OFF
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  M01S00470.1ck     +++|          RJM    SES
Line S00471 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00471.1ck11   ---| SMDB     UJN    SMD6        (UTILITY INTERLOCK NOT REQUIRED)
Line S00472 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00472.1ck11   ---|          ORG    SMDB
00807  M01S00005.1ck11   +++| SMDB     EQU    *
00808  M01S00473.1ck     +++| SMD5     SMSTF  LUAI        SET UTILITY ACTIVE INTERLOCK
00809  M01S00006.1ck11   +++|*         UJN    SMD6        (UTILITY INTERLOCK NOT REQUIRED)
00810  M01S00474.1ck     +++|          LDD    CM+1
00811  M01S00475.1ck     +++|          NJN    SMD3        IF LOCAL UTILITY ACTIVE
00812  M01S00476.1ck     +++|          AOD    UI
Line S00477 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00477.ns2593  ---| SMD6     SETMS  IO,(ND,NS,RW),WBUF
00814  M01S00020.ns2593  +++| SMD6     SETMS  IO,(ND,NR,NS,RW),WBUF
00815  M01S00478.1ck     +++|          LDD    CN+1
00816  M01S00479.1ck     +++|          STD    LT          SET LABEL TRACK
00817  M01S00480.1ck     +++|          STD    T6
00818  M01S00481.1ck     +++|          LJM    SMDX        RETURN
00819  M01S00482.1ck     +++| WLS      SPACE  4,15
00820  M01S00483.1ck     +++|**        WLS - WRITE LABEL SECTORS.
00821  M01S00484.1ck     +++|*
00822  M01S00485.1ck     +++|*         ENTRY  LABEL SECTOR CONTENTS IN (BFMS)
00823  M01S00486.1ck     +++|*                (ES - ES+4) = EST ENTRY
00824  M01S00487.1ck     +++|*                (T6) = LABEL TRACK
00825  M01S00488.1ck     +++|*
00826  M01S00489.1ck     +++|*         EXIT   LABEL SECTOR WRITTEN TO ALL UNITS OF DEVICE.
00827  M01S00490.1ck     +++|*
00828  M01S00491.1ck     +++|*
00829  M01S00492.1ck     +++|*         USES   T7, CA - CA+1, CM - CM+4.
00830  M01S00493.1ck     +++|*
00831  M01S00494.1ck     +++|*         CALLS  WMS.
00832  M01S00495.1ck     +++|
00833  M01S00496.1ck     +++|
00834  M01S00497.1ck     +++| WLS      SUBR               ENTRY EXIT
00835  M01S00498.1ck     +++|          LDD    ES+4        READ MDGL FROM MST
00836  M01S00499.1ck     +++|          SHN    3
00837  M01S00500.1ck     +++|          ADN    MDGL
00838  M01S00501.1ck     +++|          CRD    CM
00839  M01S00502.1ck     +++|          LDD    CM+1        SET UNIT SECTOR LIMIT
00840  M01S00503.1ck     +++|          LPC    3777
00841  M01S00504.1ck     +++|          STD    CA+1
00842  M01S00505.1ck     +++|          SBM    SLM
00843  M01S00506.1ck     +++|          ZJN    WLSX        IF SINGLE UNIT DEVICE
00844  M01S00507.1ck     +++|          LDC    3777        SET SYSTEM SECTOR CONTROL BYTE
00845  M01S00508.1ck     +++|          STM    BFMS
00846  M01S00509.1ck     +++|          LDN    77          SET WORD COUNT
00847  M01S00510.1ck     +++|          STM    BFMS+1
00848  M01S00511.1ck     +++|          LDN    0
00849  M01S00512.1ck     +++|          STD    T7
00850  M01S00513.1ck     +++| WLS1     LDD    CA+1
00851  M01S00514.1ck     +++|          RAD    T7          SET SECTOR
00852  M01S00515.1ck     +++|          SBM    SLM
00853  M01S00516.1ck     +++|          PJN    WLSX        IF END OF UNITS
00854  M01S00517.1ck     +++|          LDN    10          ADVANCE RELATIVE UNIT
00855  M01S00518.1ck     +++|          RAM    N4SS+5*PFGL+4
00856  M01S00519.1ck     +++|          LDC    BFMS+WLSF   WRITE LABEL SECTOR
00857  M01S00520.1ck     +++|          RJM    WMS
00858  M01S00521.1ck     +++|          UJN    WLS1        LOOP FOR NEXT UNIT
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  M01S00522.1ck     +++| WNS      SPACE  4,15
00874  M01S00523.1ck     +++|**        WNS - WRITE NEXT SECTOR.
00875  M01S00524.1ck     +++|*
00876  M01S00525.1ck     +++|*         ENTRY  SECTOR DATA STORED IN (BUF+2 - BUF+N)
00877  M01S00526.1ck     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
00878  M01S00527.1ck     +++|*                (NT) = TRACK BUFFER POINTER.
00879  M01S00528.1ck     +++|*
00880  M01S00529.1ck     +++|*         EXIT   (T6, T7) UPDATED.
00881  M01S00530.1ck     +++|*                TO *WSE* IF NEXT TRACK UNAVAILABLE.
00882  M01S00531.1ck     +++|*
00883  M01S00532.1ck     +++|*         USES   T1, T6, T7, NT, CM - CM+4.
00884  M01S00533.1ck     +++|*
00885  M01S00534.1ck     +++|*         CALLS  FTB, WMS.
00886  M01S00535.1ck     +++|*
00887  M01S00536.1ck     +++|*         MACROS MONITOR.
00888  M01S00537.1ck     +++|
00889  M01S00538.1ck     +++|
00890  M01S00539.1ck     +++| WNS3     LDC    BUF+WCSF    WRITE SECTOR
00891  M01S00540.1ck     +++|          RJM    WMS
00892  M01S00541.1ck     +++|          AOD    T7          ADVANCE SECTOR
00893  M01S00542.1ck     +++|          LMM    SLM
00894  M01S00543.1ck     +++|          NJN    WNSX        IF NOT END OF TRACK
00895  M01S00544.1ck     +++|          STD    T7
00896  M01S00545.1ck     +++|          LDM    BUF         SET NEXT TRACK
00897  M01S00546.1ck     +++|          STD    T6
00898  M01S00547.1ck     +++|
00899  M01S00548.1ck     +++| WNS      SUBR               ENTRY/EXIT
00900  M01S00549.1ck     +++|          LDD    T7          SET NEXT SECTOR
00901  M01S00550.1ck     +++|          ADN    1
00902  M01S00551.1ck     +++| WNS1     STM    BUF
00903  M01S00552.1ck     +++|          LMM    SLM
00904  M01S00553.1ck     +++|          NJN    WNS3        IF NOT END OF TRACK
00905  M01S00554.1ck     +++| WNS2     AOD    NT          INCREMENT TRACK BUFFER POINTER
00906  M01S00555.1ck     +++|          LDI    NT
00907  M01S00556.1ck     +++|          LMC    7777
Line S00557 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00557.ns2780  ---|          ZJP    WSE         IF END OF TRACK CHAIN
00909  M01S00167.ns2780  +++|          ZJN    WSE         IF END OF TRACK CHAIN
00910  M01S00558.1ck     +++|          LDI    NT
00911  M01S00559.1ck     +++|          NJN    WNS1        IF TRACK AVAILABLE
00912  M01S00560.1ck     +++|          RJM    /3CK/FTB    FILL TRACK BUFFER
00913  M01S00561.1ck     +++|          UJN    WNS2        CONTINUE
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  M01S00562.1ck     +++| WTB      SPACE  4,15
00955  M01S00563.1ck     +++|**        WTB - WRITE TABLE.
00956  M01S00564.1ck     +++|*
Line S00565 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00565.253l688 ---|*         ENTRY  (A) = WORD COUNT.
00958  M01S00038.253l688 +++|*         ENTRY  (A) = 1/TRT FLAG, 17/WORD COUNT.
00959  M01S00566.1ck     +++|*                (CA - CA+1) = TABLE ADDRESS.
00960  M01S00567.1ck     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
00961  M01S00568.1ck     +++|*
00962  M01S00569.1ck     +++|*         EXIT   (T6 - T7) UPDATED.
00963  M01S00570.1ck     +++|*
Line S00571 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00571.253l688 ---|*         USES   LM - LM+1.
00965  M01S00039.253l688 +++|*         USES   LS, LM - LM+1.
00966  M01S00572.1ck     +++|*
00967  M01S00573.1ck     +++|*         CALLS  WNS.
00968  M01S00574.1ck     +++|
00969  M01S00575.1ck     +++|
00970  M01S00576.1ck     +++| WTB      SUBR               ENTRY/EXIT
00971  M01S00577.1ck     +++|          STD    LM+1        SET WORD COUNT
00972  M01S00578.1ck     +++|          SHN    -6          SET SECTOR COUNT
00973  M01S00579.1ck     +++|          STD    LM
00974  M01S00040.253l688 +++|          LPC    4000        GET TRT FLAG
00975  M01S00041.253l688 +++|          RAD    LM
00976  M01S00042.253l688 +++|          SHN    -14
00977  M01S00043.253l688 +++|          STD    LS
00978  M01S00580.1ck     +++|          LDD    HN          SET FULL WORD COUNT
00979  M01S00581.1ck     +++|          STM    BUF+1
00980  M01S00582.1ck     +++|          LDD    LM          CHECK SECTOR COUNT
00981  M01S00583.1ck     +++| WTB1     MJN    WTBX        RETURN IF LAST SECTOR WRITTEN
00982  M01S00584.1ck     +++|          NJN    WTB2        IF NOT LAST SECTOR
00983  M01S00585.1ck     +++|          LDD    LM+1        SET SHORT COUNT
00984  M01S00586.1ck     +++|          LPN    77
00985  M01S00587.1ck     +++|          STM    BUF+1
00986  M01S00044.253l688 +++|          AOD    LS          SET LAST SECTOR FLAG
00987  M01S00588.1ck     +++| WTB2     LDD    CA          READ DATA BLOCK
00988  M01S00589.1ck     +++|          SHN    14
00989  M01S00590.1ck     +++|          ADD    CA+1
00990  M01S00591.1ck     +++|          CRM    BUF+2,HN
Line S00592 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00592.253l688 ---|          RJM    WNS         WRITE NEXT SECTOR
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  M01S00593.1ck     +++|          LDD    HN          ADVANCE CENTRAL ADDRESS
01001  M01S00594.1ck     +++|          RAD    CA+1
01002  M01S00595.1ck     +++|          SHN    -14
01003  M01S00596.1ck     +++|          RAD    CA
01004  M01S00597.1ck     +++|          SOD    LM          DECREMENT SECTOR COUNT
Line S00598 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00598.253l688 ---|          UJN    WTB1        LOOP
01006  M01S00053.253l688 +++|          UJP    WTB1        LOOP
01007  M01S00599.1ck     +++| WTT      SPACE  4,10
01008  M01S00600.1ck     +++|**        WTT - WRITE TRT.
01009  M01S00601.1ck     +++|*
01010  M01S00602.1ck     +++|*         ENTRY  (LT) = LABEL TRACK.
01011  M01S00603.1ck     +++|*                (ES - ES+4) = EST ENTRY.
01012  M01S00604.1ck     +++|*
Line S00605 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00605.253l688 ---|*         USES   SW, T8, CA - CA+1, CM - CM+4, CN - CN+4, T1 - T7.
01014  M01S00054.253l688 +++|*         USES   T1, T6, T7, CA - CA+1, CM - CM+4.
01015  M01S00606.1ck     +++|*
Line S00607 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00607.253l688 ---|*         CALLS  CIL, STI, WEI, WLS, WSS, WTB.
01017  M01S00055.253l688 +++|*         CALLS  STI, RLS, WEI, WSE, WTB.
01018  M01S00608.1ck     +++|*
Line S00609 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00609.253l688 ---|*         MACROS CMSTF, ENDMS, MONITOR.
01020  M01S00056.253l688 +++|*         MACROS CMSTF, MONITOR.
01021  M01S00610.1ck     +++|
01022  M01S00611.1ck     +++|
Line S00612 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00612.253l688 ---| WTT9     CMSTF  LCKP        CLEAR CHECKPOINT REQUEST
01024  M01S00057.253l688 +++| WTT7     CMSTF  LCKP        CLEAR CHECKPOINT REQUEST
01025  M01S00613.1ck     +++|
01026  M01S00614.1ck     +++| WTT      SUBR               ENTRY/EXIT
01027  M01S00615.1ck     +++|          LDD    LT
01028  M01S00616.1ck     +++|          STD    T6
Line S00617 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01029  M02S00617.253l688 ---|          LDC    500
Line S00618 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00618.253l688 ---|          STD    T1
Line S00619 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00619.253l688 ---| WTT1     LDN    0           CLEAR SYSTEM SECTOR
Line S00620 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00620.253l688 ---|          STM    BFMS,T1
Line S00621 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00621.253l688 ---|          STM    BFMS+1,T1
Line S00622 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00622.253l688 ---|          LCN    2
Line S00623 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00623.253l688 ---|          RAD    T1
Line S00624 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00624.253l688 ---|          PJN    WTT1
Line S00625 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00625.253l688 ---|          LDD    MA          ENTER LABEL NAME
Line S00626 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00626.253l688 ---|          CWM    NLAB,ON
Line S00627 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00627.253l688 ---|          SBN    1
Line S00628 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00628.253l688 ---|          CRM    FNSS,ON
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  M01S00629.1ck     +++|
Line S00630 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00630.253l688 ---|*         READ MST INTO LABEL.
Line S00631 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00631.253l688 ---|
Line S00632 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00632.253l688 ---|          LDN    MSTL        SET LENGTH
Line S00633 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00633.253l688 ---|          STD    T1
Line S00634 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00634.253l688 ---|          LDD    ES+4
Line S00635 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00635.253l688 ---|          SHN    3
Line S00636 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00636.253l688 ---|          CRM    N4SS,T1
Line S00637 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00637.253l688 ---|          SBN    MSTL-TRLL   GET FWA OF TRT
Line S00638 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00638.253l688 ---|          CRD    CM
Line S00639 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00639.253l688 ---|          LDD    CM+3
Line S00640 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00640.253l688 ---|          LPN    77
Line S00641 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00641.253l688 ---|          SHN    14
Line S00642 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00642.253l688 ---|          LMD    CM+4
Line S00643 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00643.253l688 ---|          STD    CA+1        SET ADDRESS OF TRT
Line S00644 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00644.253l688 ---|          SHN    -14
Line S00645 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00645.253l688 ---|          STD    CA
Line S00646 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00646.253l688 ---|          LDD    ES          GET EST INFORMATION
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  M01S00647.1ck     +++|          SHN    21-4
Line S00648 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00648.253l688 ---|          PJN    WTT1.1      IF NOT INDEPENDENT SHARED DEVICE
Line S00649 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00649.253l688 ---|          LDM    N4SS+5*TDGL+2  GET LENGTH OF TRT
Line S00650 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00650.253l688 ---|          ADN    7
Line S00651 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00651.253l688 ---|          SHN    -3          DETERMINE LENGTH OF MRT
Line S00652 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01076  M02S00652.253l688 ---|          ADM    N4SS+5*TDGL+2  ADD LENGTH OF TRT
Line S00653 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00653.253l688 ---|          STD    SW
Line S00654 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00654.253l688 ---|          LDN    MISD        LENGTH OF DIT
Line S00655 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00655.253l688 ---|          STD    T1
Line S00656 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00656.253l688 ---|          LDD    CA          GET FWA OF TRT
Line S00657 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00657.253l688 ---|          SHN    14
Line S00658 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00658.253l688 ---|          LMD    CA+1
Line S00659 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00659.253l688 ---|          ADD    SW          ADD DIT OFFSET
Line S00660 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00660.253l688 ---|          CRM    N4SS+MSTL*5,T1  READ DIT
Line S00661 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00661.253l688 ---| WTT1.1   LDD    ES+3        SET EQUIPMENT TYPE
Line S00662 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01086  M02S00662.253l688 ---|          STM    E4SS
Line S00663 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01087  M02S00663.253l688 ---|          LDM    N4SS+5*PUGL+4  GET DEVICE MASK
Line S00664 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01088  M02S00664.253l688 ---|          LPC    377
Line S00665 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01089  M02S00665.253l688 ---|          STD    CM+5        SET PRIMARY MASK
Line S00666 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00666.253l688 ---|          LDN    1           SET LABEL LEVEL
Line S00667 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00667.253l688 ---|          STM    LLSS
Line S00668 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00668.253l688 ---|          LDC    400         SET SYSTEM LEVEL
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  M01S00669.1ck     +++|          RAM    N4SS+5*MDGL
Line S00670 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00670.253l688 ---|          STD    SW
Line S00671 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00671.253l688 ---|          LDD    ES
Line S00672 Modification History
M01 (Added by) 1ck
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00672.253l688 ---|          SHN    21-11
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ck.txt ยท Last modified: by 127.0.0.1