User Tools

Site Tools


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

Deck CHKPT

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.chkpt   +++|          IDENT  CHKPT,FETS
00002  M01S00002.chkpt   +++|          ABS
00003  M01S00003.chkpt   +++|          SST
00004  M01S00004.chkpt   +++|          SYSCOM B1
00005  M01S00005.chkpt   +++|          ENTRY  CKP
00006  M01S00006.chkpt   +++|          ENTRY  SFP
00007  M01S00007.chkpt   +++|          ENTRY  DMP=
00008  M01S00008.chkpt   +++|          ENTRY  RFL=
00009  M01S00009.chkpt   +++|          ENTRY  SSJ=
00010  M01S00010.chkpt   +++|          TITLE  CHKPT - CENTRAL MEMORY CHECKPOINT.
00011  M01S00011.chkpt   +++|*COMMENT  CHKPT - CENTRAL MEMORY CHECKPOINT.
Line S00012 Modification History
M01 (Added by) chkpt
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00012.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00013  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00014  M01S00013.chkpt   +++|          SPACE  4
00015  M01S00014.chkpt   +++|***       CHKPT - CENTRAL MEMORY CHECKPOINT.
00016  M01S00015.chkpt   +++|*         V.A. WALSH.  72/05/05.
00017  M01S00016.chkpt   +++|*         K.R. COMBS.  73/06/01.
00018  M01S00017.chkpt   +++|*         M.S. CARTER. 76/10/08.
00019  M01S00018.chkpt   +++|          SPACE  4
00020  M01S00019.chkpt   +++|***       *CHKPT*  PERFORMS THE CENTRAL MEMORY PORTION OF CHECKPOINT.
00021  M01S00020.chkpt   +++|*         THE CONTROL POINT AREA AND THE USER FIELD LENGTH ARE
00022  M01S00021.chkpt   +++|*         EXPECTED TO BE WRITTEN ON FILE DM* BEFORE *CHKPT* EXECUTION.
00023  M01S00022.chkpt   +++|*         *CHKPT* CREATES A CHECKPOINT FILE CONTAINING INFORMATION
00024  M01S00023.chkpt   +++|*         ABOUT THE USER FILE AS WELL AS A COPY OF THE DM* FILE.
00025  M01S00024.chkpt   +++|*
00026  M01S00025.chkpt   +++|*
00027  M01S00026.chkpt   +++|*         OPERATOR COMMAND-
00028  M01S00027.chkpt   +++|*
00029  M01S00028.chkpt   +++|*         CKP.               CHECKPOINT ALL LOCAL FILES.
00030  M01S00029.chkpt   +++|*
00031  M01S00030.chkpt   +++|*         CONTROL STATEMENT CALL-
00032  M01S00031.chkpt   +++|*
00033  M01S00032.chkpt   +++|*         CKP.               CHECKPOINT ALL LOCAL FILES.
00034  M01S00033.chkpt   +++|*
00035  M01S00034.chkpt   +++|*         CKP(LFN1,LFN2,...,LFNN)   CHECKPOINT ONLY THOSE FILES
00036  M01S00035.chkpt   +++|*                            SPECIFIED BY LFNI.
00037  M01S00036.chkpt   +++|*         CONTINUATION CARDS WILL NOT BE PROCESSED.
00038  M01S00037.chkpt   +++|*
00039  M01S00038.chkpt   +++|*         MACRO CALL-
00040  M01S00039.chkpt   +++|*
00041  M01S00040.chkpt   +++|*         CHECKPT ADDR,SP
00042  M01S00041.chkpt   +++|*                ADDR - ADDRESS OF PARAMETER LIST.
00043  M01S00042.chkpt   +++|*                SP   - SELECTIVE CHECKPOINT FLAG.
00044  M01S00043.chkpt   +++|*                     IF NULL - CHECKPOINT LOCAL FILES (DEFAULT).
00045  M01S00044.chkpt   +++|*                     IF NOT NULL - CHECKPOINT SPECIFIED FILES.
00046  M01S00045.chkpt   +++|*
00047  M01S00046.chkpt   +++|*         PARAMETER LIST FORMAT.
00048  M01S00047.chkpt   +++|*
00049  M01S00048.chkpt   +++|*T,ADDR   12/CN,30/0,6/N,11/0,1/C
Figure ADDR

011112171829C0N0304748590CN

00050  M01S00049.chkpt   +++|*T,ADDR+1 42/LFN1,6/F,12/0
Figure ADDR+1

011121718290FLFN13059LFN1

00051  M01S00050.chkpt   +++|*T,ADDR+2 42/LFN2,6/F,12/0
Figure ADDR+2

011121718290FLFN23059LFN2

00052  M01S00051.chkpt   +++|*                .
00053  M01S00052.chkpt   +++|*                .
00054  M01S00053.chkpt   +++|*                .
00055  M01S00054.chkpt   +++|*T,ADDR+N 42/LFNN,6/F,12/0
Figure ADDR+N

011121718290FLFNN3059LFNN

00056  M01S00055.chkpt   +++|*
00057  M01S00056.chkpt   +++|*         CN = CURRENT CHECKPOINT NUMBER.
00058  M01S00057.chkpt   +++|*         N = NUMBER OF ENTRIES IN TABLE.
00059  M01S00058.chkpt   +++|*         C = COMPLETION BIT SET BY CHKPT.
00060  M01S00059.chkpt   +++|*         LFNI = LOCAL FILE NAME.
00061  M01S00060.chkpt   +++|*         F = COPY TYPE.
00062  M01S00061.chkpt   +++|*                0 - BOI TO PRESENT POSITION.
00063  M01S00062.chkpt   +++|*                1 - PRESENT POSITION TO EOI.
00064  M01S00063.chkpt   +++|*                2 - ENTIRE FILE.
00065  M01S00064.chkpt   +++|*                3 - LAST OPERATION ON FILE WILL
00066  M01S00065.chkpt   +++|*                    DETERMINE THE COPY TYPE.
00067  M01S00066.chkpt   +++|*                4 - NO COPY BUT INFORMATION TABLE
00068  M01S00067.chkpt   +++|*                    ON FILE IS COPIED.
00069  M01S00068.chkpt   +++|          SPACE  4
00070  M01S00069.chkpt   +++|***       DAYFILE MESSAGES -
00071  M01S00070.chkpt   +++|*
00072  M01S00071.chkpt   +++|*         * CHECKPOINT FILE ERROR.* = CHECKPOINT FILE(S) NOT
00073  M01S00072.chkpt   +++|*         SPECIFIED CORRECTLY.
00074  M01S00073.chkpt   +++|*
00075  M01S00074.chkpt   +++|*         * SECURE FILES - CHECKPOINT ABORT.* = FILE SECURITY SPECIFIED
00076  M01S00075.chkpt   +++|*         ON FILE(S) BEING CHECKPOINTED, ABORT CHECKPOINT.
00077  M01S00076.chkpt   +++|*
00078  M01S00077.chkpt   +++|*         * CHECKPOINT NNNN COMPLETE.* = CHECKPOINT NNNN HAS COMPLETED.
00079  M01S00078.chkpt   +++|*
00080  M01S00079.chkpt   +++|*         * CHECKPOINT NNNN COMPLETED TO XXXXXXX.* = CHECKPOINT NNNN
00081  M01S00080.chkpt   +++|*         HAS BEEN COMPLETED TO FILE XXXXXXX.
00082  M01S00081.chkpt   +++|*         (ISSUED ON ALTERNATE CB FILES ONLY)
00083  M01S00082.chkpt   +++|*
00084  M01S00083.chkpt   +++|*         * CHKPT UNABLE TO READ TAPE.* = ERRORS HAVE OCCURRED
00085  M01S00084.chkpt   +++|*         WHILE READING A TAPE FILE WHICH CHKPT CANNOT PROCESS.
00086  M01S00085.chkpt   +++|*
00087  M01S00086.chkpt   +++|*         * CKP REQUEST.* = A CHECKPOINT HAS BEEN INITIATED.
00088  M01S00087.chkpt   +++|*
00089  M01S00088.chkpt   +++|*         * POSITION ERROR ON--XXXXXXX.* = AN ADDRESS ERROR PREVENTED
00090  M01S00089.chkpt   +++|*         FILE XXXXXXX FROM BEING REPOSITIONED AFTER BEING CHECKPOINTED.
00091  M01S00090.chkpt   +++|*
00092  M01S00091.chkpt   +++|*         * ERROR - FILE(S) NOT PROCESSED.* = FILE(S) HAD ERROR IN
00093  M01S00092.chkpt   +++|*         PRESET, THEREFORE NOT CHECKPOINTED.
00094  M01S00001.ns2039  +++|*
00095  M01S00002.ns2039  +++|*         * CONTENTS NOT CHECKPOINTED FOR FILE XXXXXXX.* = FOR FILE
00096  M01S00003.ns2039  +++|*         XXXXXXX THE USER SELECTED OTHER THAN OPTION 4
00097  M01S00004.ns2039  +++|*         (INFORMATION TABLE ONLY).  THE USER REQUEST HAS BEEN
00098  M01S00005.ns2039  +++|*         IGNORED AND ONLY THE INFORMATION TABLE WAS COPIED TO THE
00099  M01S00006.ns2039  +++|*         CHECKPOINT FILE.
00100  M01S00001.ns22000 +++|*
00101  M01S00002.ns22000 +++|*         * CHECKPOINT FILE ACCESS LEVEL ERROR.* = IN A SECURE
00102  M01S00003.ns22000 +++|*         SYSTEM, THE CHECKPOINT FILE ACCESS LEVEL IS NOT THE
00103  M01S00004.ns22000 +++|*         SAME AS THE JOB ACCESS LEVEL LIMIT.  THIS MUST BE THE
00104  M01S00005.ns22000 +++|*         CASE TO INSURE THAT THE CHECKPOINT FILE IS SECURE
00105  M01S00006.ns22000 +++|*         ENOUGH TO CONTAIN ALL LOCAL FILES.  THE ACCESS LEVEL
00106  M01S00007.ns22000 +++|*         OF THE CHECKPOINT FILE IS NOT CHANGED TO THIS LEVEL
00107  M01S00008.ns22000 +++|*         SINCE THIS IS NOT POSSIBLE FOR MAGNETIC TAPE FILES OR
00108  M01S00009.ns22000 +++|*         DIRECT ACCESS PERMANENT FILES, AND THESE ARE THE USUAL
00109  M01S00010.ns22000 +++|*         FILE TYPES USED FOR CHECKPOINT FILES.  WHEN THE
00110  M01S00011.ns22000 +++|*         CHECKPOINT FILE IS ASSIGNED IT SHOULD BE ASSIGNED AT
00111  M01S00012.ns22000 +++|*         THE JOB ACCESS LEVEL LIMIT.
00112  M01S00093.chkpt   +++|          TITLE  CHKPT - DEFINITIONS.
00113  M01S00094.chkpt   +++|          SPACE  4
00114  M01S00095.chkpt   +++|*         ASSEMBLY CONSTANTS.
00115  M01S00096.chkpt   +++|
00116  M01S00097.chkpt   +++| BUFL     EQU    1000B
00117  M01S00098.chkpt   +++| IBUFL    EQU    2001B
00118  M01S00099.chkpt   +++| OBUFL    EQU    2001B
00119  M01S00100.chkpt   +++| SBUFL    EQU    402B
00120  M01S00101.chkpt   +++| TBUFL    EQU    1001B
00121  M01S00102.chkpt   +++|          SPACE  4
00122  M01S00103.chkpt   +++|**        READC - REDEFINE MACRO TO READ CONTROL WORDS.
00123  M01S00104.chkpt   +++|*
00124  M01S00105.chkpt   +++|*         FORMAT READC  F,S,N
00125  M01S00106.chkpt   +++|*
00126  M01S00107.chkpt   +++|*                WHERE F = ADDRESS OF FET
00127  M01S00108.chkpt   +++|*                      S = ADDRESS OF BUFFER
00128  M01S00109.chkpt   +++|*                      N = LENGTH OF BUFFER IN WORDS
00129  M01S00110.chkpt   +++|*
00130  M01S00111.chkpt   +++|*         USES   X - 2.
00131  M01S00112.chkpt   +++|*                B - 6, 7.
00132  M01S00113.chkpt   +++|*
00133  M01S00114.chkpt   +++|*         CALLS  RDA.
00134  M01S00115.chkpt   +++|
00135  M01S00116.chkpt   +++|
00136  M01S00117.chkpt   +++|          PURGMAC READC
00137  M01S00118.chkpt   +++|
00138  M01S00119.chkpt   +++| READC    MACRO  F,S,N
00139  M01S00120.chkpt   +++|          MACREF  READC
00140  M01S00121.chkpt   +++|          R= B6,S
00141  M01S00122.chkpt   +++|          R= B7,N
00142  M01S00123.chkpt   +++|          R= X2,F
00143  M01S00124.chkpt   +++|          RJ RDA
00144  M01S00125.chkpt   +++|          ENDM
00145  M01S00126.chkpt   +++|          TITLE  STORAGE ASSIGNMENT.
00146  M01S00127.chkpt   +++|          ORG    101B
00147  M01S00128.chkpt   +++| FETS     BSS    0
00148  M01S00129.chkpt   +++|          BSS    2           STORAGE FOR READC CONTROLS
00149  M01S00130.chkpt   +++| I        BSS    0
00150  M01S00131.chkpt   +++| INPUT    FILEB  IBUF,IBUFL,EPR,(FET=14)
00151  M01S00132.chkpt   +++| O        BSS    0
00152  M01S00133.chkpt   +++| CCCCCCC  FILEB  OBUF,OBUFL,(FET=10)
00153  M01S00134.chkpt   +++| P        BSS    0
00154  M01S00135.chkpt   +++| CCCCCCM  RFILEB 2,1,(FET=8)
00155  M01S00136.chkpt   +++|          SPACE  4
00156  M01S00137.chkpt   +++|*         PARAMETER FLAG LOCATIONS.
00157  M01S00138.chkpt   +++|
00158  M01S00139.chkpt   +++| CKNO     CON    1           CHECKPOINT NUMBER
00159  M01S00140.chkpt   +++| MDFL     CON    CKST        MODE FLAG
00160  M01S00141.chkpt   +++| TICF     CON    0           TERMINAL INTERRUPT CONTROL FLAG WORD
00161  M01S00142.chkpt   +++| SPFL     BSSZ   1           SELECTIVE CHECKPOINT FLAG
00162  M01S00143.chkpt   +++| PTR      BSSZ   1           POINTER FOR BLOCKED COPY(PTS TO BLOCK WORD)
00163  M01S00144.chkpt   +++| HDRB     BSSZ   1           HEADER STORAGE WORD
00164  M01S00145.chkpt   +++| CSFP     BSSZ   1           CONTROL STATEMENT FILE POSITION
00165  M01S00146.chkpt   +++| PAR      BSS    101B        FILE LIST AREA
00166  M01S00147.chkpt   +++|          SPACE  4,10
00167  M01S00148.chkpt   +++|*         COMMON DECKS.
00168  M01S00013.ns22000 +++|
00169  M01S00014.ns22000 +++|
00170  M01S00149.chkpt   +++|*CALL     COMCMAC
00171  M01S00150.chkpt   +++|*CALL     COMSLFD
00172  M01S00015.ns22000 +++|*CALL     COMSSFM
00173  M01S00151.chkpt   +++|*CALL     COMSSSJ
00174  M01S00152.chkpt   +++|          SPACE 4,10
00175  M01S00153.chkpt   +++|*         SPECIAL ENTRY POINTS.
00176  M01S00154.chkpt   +++|
00177  M01S00155.chkpt   +++|
00178  M01S00156.chkpt   +++| DMP=     EQU    0           DUMP ENTIRE FIELD LENGTH
00179  M01S00157.chkpt   +++| SFP      EQU    0           ENTRY POINT FOR SFP CALL
00180  M01S00158.chkpt   +++| SSJ=     BSSZ   SSJL        SPECIAL SYSTEM JOB AREA
00181  M01S00159.chkpt   +++|          TITLE  MAIN PROGRAM.
00182  M01S00160.chkpt   +++|**        CKP - MAIN LOOP.
00183  M01S00161.chkpt   +++|*
00184  M01S00162.chkpt   +++|*         ENTRY - DM* FILE CONTAINS FIELD LENGTH AND CONTROL
00185  M01S00163.chkpt   +++|*         POINT DUMP.
00186  M01S00164.chkpt   +++|
00187  M01S00165.chkpt   +++|
00188  M01S00166.chkpt   +++| CKP      RJ     PRS         PRESET PROGRAM
00189  M01S00167.chkpt   +++|          RECALL O
00190  M01S00168.chkpt   +++|          RJ     HDR         WRITE HEADER ON CHKPT FILE
00191  M01S00169.chkpt   +++|          RJ     WRT         WRITE FILE TABLE TO CHKPT FILE
00192  M01S00170.chkpt   +++|          RJ     CPF         COPY LOCAL FILES TO CHKPT FILE
00193  M01S00171.chkpt   +++|
00194  M01S00172.chkpt   +++|*         COPY DM* FILE TO CHKPT FILE.
00195  M01S00173.chkpt   +++|
00196  M01S00174.chkpt   +++|          SA1    =C/DM*/
00197  M01S00175.chkpt   +++|          SX3    3
00198  M01S00176.chkpt   +++|          BX6    X1+X3       SET FILE NAME TO DM*
00199  M01S00177.chkpt   +++|          MX5    0
00200  M01S00178.chkpt   +++|          SA6    I
00201  M01S00179.chkpt   +++|          REWIND I
00202  M01S00180.chkpt   +++|          SX6    40000B      SET DATA TYPE
00203  M01S00181.chkpt   +++|          SB5    B1
00204  M01S00182.chkpt   +++|          RJ     BLO         COPY DM* FILE TO CHKPT FILE
00205  M01S00183.chkpt   +++|
00206  M01S00184.chkpt   +++|*         PROCESS END OF CHECKPOINT.
00207  M01S00185.chkpt   +++|
00208  M01S00186.chkpt   +++|          SX6    50000B      SET END OF CKP
00209  M01S00187.chkpt   +++|          SA6    A6+
00210  M01S00188.chkpt   +++|          WRITEW O,BUF,A6-BUF+1
00211  M01S00189.chkpt   +++|          WRITER O,R
00212  M01S00190.chkpt   +++|          SA1    CKNO        GET NUMBER OF THIS CHECKPOINT
00213  M01S00191.chkpt   +++|          RJ     CDD         CONVERT TO DISPLAY CODE
00214  M01S00192.chkpt   +++|          SA2    CKPA+1
00215  M01S00193.chkpt   +++|          MX0    -24
00216  M01S00194.chkpt   +++|          BX7    -X0*X6
00217  M01S00195.chkpt   +++|          SA1    HDRB        CONTROL WORD FOR LAST WRITE TO CKP FILE
00218  M01S00196.chkpt   +++|          LX7    24
00219  M01S00197.chkpt   +++|          MX6    1
00220  M01S00198.chkpt   +++|          BX7    X7+X2       ADD CHECKPOINT NUMBER TO DAYFILE MESSAGE
00221  M01S00199.chkpt   +++|          SA7    A2+
00222  M01S00200.chkpt   +++|          BX6    X1+X6
00223  M01S00201.chkpt   +++|          WRITEO O
00224  M01S00202.chkpt   +++|          WRITER O,R
00225  M01S00203.chkpt   +++|          BKSP   O           BACKSPACE TO BE READY FOR NEXT CHKPT
00226  M01S00204.chkpt   +++|          SA1    SPPR+1      SET COMPLETION BIT IN PARAMETER TABLE
00227  M01S00205.chkpt   +++|          MX0    12
00228  M01S00206.chkpt   +++|          SA2    CKNO        GET NUMBER OF THIS CHECKPOINT
00229  M01S00207.chkpt   +++|          LX2    48
00230  M01S00208.chkpt   +++|          BX6    -X0*X1      MASK NEW NUMBER IN RESPONSE
00231  M01S00209.chkpt   +++|          SX7    B1
00232  M01S00210.chkpt   +++|          BX6    X6+X7       ADD COMPLETION BIT
00233  M01S00211.chkpt   +++|          BX6    X6+X2       ADD NEW CHECKPOINT NUMBER
00234  M01S00212.chkpt   +++|          SA6    A1          RESTORE PARAMETER WORD
00235  M01S00213.chkpt   +++|          SX6    3
00236  M01S00214.chkpt   +++|          SA1    =C*CCCCCCO* RETURN CONTROL STATEMENT FILE
00237  M01S00215.chkpt   +++|          BX6    X1+X6
00238  M01S00216.chkpt   +++|          SA6    I
00239  M01S00217.chkpt   +++|          RETURN A6
00240  M01S00218.chkpt   +++|          MESSAGE CKPA       CHECKPOINT COMPLETE MESSAGE
00241  M01S00219.chkpt   +++|          ENDRUN
00242  M01S00220.chkpt   +++|
00243  M01S00221.chkpt   +++| CKPA     DATA   10H CHECKPOIN
00244  M01S00222.chkpt   +++|          VFD    12/2HT ,24/0,24/4H COM
00245  M01S00223.chkpt   +++|          DATA   6LPLETE.
00246  M01S00224.chkpt   +++| CKPB     DATA   10HPLETED TO   SCRATCH WORD-USED IF ALTERNATE CB FILES
00247  M01S00225.chkpt   +++|          TITLE  SUBROUTINES
00248  M01S00226.chkpt   +++| BLO      SPACE  4
00249  M01S00227.chkpt   +++|**        BLO - COPY FILE TO CHKPT FILE IN BLOCKED MODE.
00250  M01S00228.chkpt   +++|*
00251  M01S00229.chkpt   +++|*         ENTRY  (X6) = DATA TYPE.
00252  M01S00230.chkpt   +++|*                (X5) = -1 IF COPY TO POSITION.
00253  M01S00231.chkpt   +++|*                (B5) = 0 IF EMPTY FILE.
00254  M01S00232.chkpt   +++|*
00255  M01S00233.chkpt   +++|*         EXIT   FILE IN FET I COPIED TO FILE IN FET O
00256  M01S00234.chkpt   +++|*
00257  M01S00235.chkpt   +++|*         CALLS  NONE.
00258  M01S00236.chkpt   +++|*
00259  M01S00237.chkpt   +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00260  M01S00238.chkpt   +++|*                B - 2, 5, 6.
00261  M01S00239.chkpt   +++|*                X - 1, 2, 3, 4, 6, 7.
00262  M01S00240.chkpt   +++|*
00263  M01S00241.chkpt   +++|*         MACROS  READ, READW, RECALL, WRITEW.
00264  M01S00242.chkpt   +++|
00265  M01S00243.chkpt   +++|
00266  M01S00244.chkpt   +++| BLO      SUBR               ENTRY/EXIT
00267  M01S00245.chkpt   +++|          SA6    REC         STORE DATA TYPE
00268  M01S00246.chkpt   +++|          ZR     B5,BLO6     IF CONTROL WORD NEEDED FOR EMPTY FILE
00269  M01S00247.chkpt   +++|          SX7    BLO1        SET ERROR PROCESSING RETURN ADDRESS
00270  M01S00248.chkpt   +++|          SA7    ERPA
00271  M01S00249.chkpt   +++|          PL     X5,BLO1     IF NOT COPY TO POSITION
00272  M01S00250.chkpt   +++|          SA2    I+1         SET RANDOM FILE BIT
00273  M01S00251.chkpt   +++|          MX1    1
00274  M01S00252.chkpt   +++|          LX1    60-12
00275  M01S00253.chkpt   +++|          BX6    X1+X2
00276  M01S00254.chkpt   +++|          SA6    A2
00277  M01S00255.chkpt   +++|          BX6    X6-X6
00278  M01S00256.chkpt   +++|          SA6    I+6         CLEAR RANDOM ADDRESS RETURN
00279  M01S00257.chkpt   +++| BLO1     READ   I
00280  M01S00258.chkpt   +++|          PL     X5,BLO2     IF NOT COPY TO POSITION
00281  M01S00259.chkpt   +++|          SA1    I+6
00282  M01S00260.chkpt   +++|          AX1    30
00283  M01S00261.chkpt   +++|          SA2    I+9
00284  M01S00262.chkpt   +++|          AX2    12
00285  M01S00263.chkpt   +++|          IX3    X2-X1
00286  M01S00264.chkpt   +++|          MX1    -24
00287  M01S00265.chkpt   +++|          BX3    -X1*X3
00288  M01S00266.chkpt   +++|          SB5    B0
00289  M01S00267.chkpt   +++|          PL     X3,BLO2     IF NOT PAST POSITION
00290  M01S00268.chkpt   +++|          EQ     BLO6
00291  M01S00269.chkpt   +++|
00292  M01S00270.chkpt   +++| BLO2     SA1    PTR         RETRIEVE BLOCK WORD
00293  M01S00271.chkpt   +++|          SA2    X1
00294  M01S00272.chkpt   +++|          MX3    -9
00295  M01S00273.chkpt   +++|          BX3    -X3*X2
00296  M01S00274.chkpt   +++|          SA4    REC         SET DATA TYPE
00297  M01S00275.chkpt   +++|          BX6    X3+X4
00298  M01S00276.chkpt   +++|          SA6    X1          UPDATE BLOCK WORD
00299  M01S00277.chkpt   +++|          READW  I,(X1+B1),X3 READ DATA IN AFTER CONTROL WORD
00300  M01S00278.chkpt   +++|          NZ     X1,BLO3     IF EOR OR EOF
00301  M01S00279.chkpt   +++|          RECALL I
00302  M01S00280.chkpt   +++|          WRITEW O,BUF,BUFL
00303  M01S00281.chkpt   +++|          SX6    777B
00304  M01S00282.chkpt   +++|          SA6    BUF         RESET BLOCK WORD
00305  M01S00283.chkpt   +++|          SX7    A6
00306  M01S00284.chkpt   +++|          SA7    PTR         RESET LOCATION POINTER
00307  M01S00285.chkpt   +++|          EQ     BLO2        LOOP
00308  M01S00286.chkpt   +++|
00309  M01S00287.chkpt   +++|*         IF END OF RECORD.
00310  M01S00288.chkpt   +++|
00311  M01S00289.chkpt   +++| BLO3     SA2    PTR         UPDATE POINTERS
00312  M01S00290.chkpt   +++|          SB5    X2          CONTROL WORD ADDRESS
00313  M01S00291.chkpt   +++|          SB5    B6-B5       NEW ADDRESS - OLD ONE
00314  M01S00292.chkpt   +++|          SA4    REC
00315  M01S00293.chkpt   +++|          SX4    X4+1000B    SET EOR FLAG
00316  M01S00294.chkpt   +++|          SB5    B5-B1       NUMBER OF WORDS READ
00317  M01S00295.chkpt   +++|          SX6    X4+B5
00318  M01S00296.chkpt   +++|          SB2    BUF+777B    END OF BUFFER ADDRESS
00319  M01S00297.chkpt   +++|          SA6    X2          UPDATE BLOCK WORD
00320  M01S00298.chkpt   +++|          SX6    B2-B6       NUMBER WORDS LEFT IN BUF
00321  M01S00299.chkpt   +++|          NG     X1,BLO4     IF EOF OR EOI
00322  M01S00300.chkpt   +++|          SA6    B6
00323  M01S00301.chkpt   +++|          SX7    A6          CURRENT POSITION
00324  M01S00302.chkpt   +++|          SA7    PTR         UPDATE LOCATION POINTER
00325  M01S00303.chkpt   +++|          NZ     X6,BLO1     IF NOT END OF BUFFER
00326  M01S00304.chkpt   +++|          WRITEW O,BUF,BUFL-1
00327  M01S00305.chkpt   +++|          SX6    777B
00328  M01S00306.chkpt   +++|          SA6    BUF         RESET BLOCK WORD
00329  M01S00307.chkpt   +++|          EQ     BLO5        LOOP
00330  M01S00308.chkpt   +++|
00331  M01S00309.chkpt   +++|*         IF END OF FILE.
00332  M01S00310.chkpt   +++|
00333  M01S00311.chkpt   +++| BLO4     SA1    PTR
00334  M01S00312.chkpt   +++|          SA2    X1          RETRIEVE BLOCK WORD
00335  M01S00313.chkpt   +++|          SX6    X2+1000B    SET EOF FLAG
00336  M01S00314.chkpt   +++|          SA4    I
00337  M01S00315.chkpt   +++|          LX4    59-9
00338  M01S00316.chkpt   +++|          SA6    X1
00339  M01S00317.chkpt   +++|          NG     X4,BLO6     IF EOI
00340  M01S00318.chkpt   +++|          SX6    B2-B6
00341  M01S00319.chkpt   +++|          SA6    B6          SET NEW BLOCK WORD
00342  M01S00320.chkpt   +++|          NZ     X6,BLO5     IF NOT AT END
00343  M01S00321.chkpt   +++|          WRITEW O,BUF,BUFL-1
00344  M01S00322.chkpt   +++|          SX6    777B
00345  M01S00323.chkpt   +++|          SA6    BUF         RESET BLOCK WORD
00346  M01S00324.chkpt   +++| BLO5     SX7    A6
00347  M01S00325.chkpt   +++|          SA7    PTR         RESET LOCATION POINTER
00348  M01S00326.chkpt   +++|          EQ     BLO1        LOOP
00349  M01S00327.chkpt   +++|
00350  M01S00328.chkpt   +++|*         IF EOI.
00351  M01S00329.chkpt   +++|
00352  M01S00330.chkpt   +++| BLO6     SA1    PTR
00353  M01S00331.chkpt   +++|          SA3    REC         GET DATA TYPE
00354  M01S00332.chkpt   +++|          SX6    X3+3000B    SET EOI FLAG
00355  M01S00333.chkpt   +++|          SX6    X6+B5       SET LENGTH OF BLOCK
00356  M01S00334.chkpt   +++|          SA6    X1
00357  M01S00335.chkpt   +++|          SB2    A6+B5       ADDRESS OF LAST WORD READ
00358  M01S00336.chkpt   +++|          SB6    BUF+777B
00359  M01S00337.chkpt   +++|          SB6    B6-B2       NUMBER WORDS LEFT IN BUF
00360  M01S00338.chkpt   +++|          SX6    B6-B1
00361  M01S00339.chkpt   +++|          SA6    B2+B1       SET NEW BLOCK WORD
00362  M01S00340.chkpt   +++|          NZ     X6,BLO7     IF NOT AT END
00363  M01S00341.chkpt   +++|          WRITEW O,BUF,BUFL-1
00364  M01S00342.chkpt   +++|          SX6    777B
00365  M01S00343.chkpt   +++|          SA6    BUF
00366  M01S00344.chkpt   +++| BLO7     SX7    A6
00367  M01S00345.chkpt   +++|          SA7    PTR         RESET OR UPDATE LOCATION POINTER
00368  M01S00346.chkpt   +++|
00369  M01S00347.chkpt   +++|          SA1    I+1
00370  M01S00348.chkpt   +++|          MX2    1
00371  M01S00349.chkpt   +++|          LX2    60-12
00372  M01S00350.chkpt   +++|          BX7    -X2*X1
00373  M01S00351.chkpt   +++|          SA7    A1          CLEAR RANDOM PROCESSING BIT
00374  M01S00352.chkpt   +++|          EQ     BLOX        RETURN
00375  M01S00353.chkpt   +++| ERP$     SPACE  4,10
00376  M01S00354.chkpt   +++|**        ERP$ - TAPE ERROR PROCESSING ROUTINE.
00377  M01S00355.chkpt   +++|*
00378  M01S00356.chkpt   +++|*         ENTRY  RETURN ADDRESS SET IN (ERPA).
00379  M01S00357.chkpt   +++|*
00380  M01S00358.chkpt   +++|*         EXIT   TO ADDRESS IN (ERPA) IF PARITY OR WRONG PARITY ERROR
00381  M01S00359.chkpt   +++|*                OTHERWISE ABORT.  ALSO ABORT IF SECOND OCCURRANCE
00382  M01S00360.chkpt   +++|*                OF WRONG PARITY ERROR.
00383  M01S00361.chkpt   +++|*
00384  M01S00362.chkpt   +++|*         USES   A - 1, 2, 3, 6, 7.
00385  M01S00363.chkpt   +++|*                B - 3.
00386  M01S00364.chkpt   +++|*                X - 1, 2, 3, 6, 7.
00387  M01S00365.chkpt   +++|*
00388  M01S00366.chkpt   +++|*         MACROS  ABORT, MESSAGE, REWIND.
00389  M01S00367.chkpt   +++|
00390  M01S00368.chkpt   +++|
00391  M01S00369.chkpt   +++| ERP$     SX2    37000B
00392  M01S00370.chkpt   +++|          SA1    I
00393  M01S00371.chkpt   +++|          BX3    X2*X1
00394  M01S00372.chkpt   +++|          AX3    9
00395  M01S00373.chkpt   +++|          SX2    X3-2
00396  M01S00374.chkpt   +++|          ZR     X2,ERP2     IF PARITY ERROR
00397  M01S00375.chkpt   +++|          SX3    X2-2
00398  M01S00376.chkpt   +++|          ZR     X3,ERP3     IF WRONG PARITY
00399  M01S00377.chkpt   +++| ERP1     MESSAGE (=C* CHKPT UNABLE TO READ TAPE.*)
00400  M01S00378.chkpt   +++|          ABORT
00401  M01S00379.chkpt   +++|
00402  M01S00380.chkpt   +++|*         PARITY ERROR PROCESSING.
00403  M01S00381.chkpt   +++|
00404  M01S00382.chkpt   +++| ERP2     SX2    740777B     CLEAR ERROR RETURN
00405  M01S00383.chkpt   +++|          SA3    ERPA
00406  M01S00384.chkpt   +++|          BX6    X2*X1
00407  M01S00385.chkpt   +++|          SA6    A1
00408  M01S00386.chkpt   +++|          SB3    X3
00409  M01S00387.chkpt   +++|          JP     B3          RETURN TO CALLER
00410  M01S00388.chkpt   +++|
00411  M01S00389.chkpt   +++|*         WRONG PARITY PROCESSING.
00412  M01S00390.chkpt   +++|
00413  M01S00391.chkpt   +++| ERP3     SX3    100000B
00414  M01S00392.chkpt   +++|          SA2    REC         SET PARITY BIT FOR CONTROL WORD
00415  M01S00393.chkpt   +++|          BX6    X2+X3
00416  M01S00394.chkpt   +++|          SA3    ERPA        CHECK IF FIRST ERROR
00417  M01S00395.chkpt   +++|          SA6    A2
00418  M01S00396.chkpt   +++|          NG     X3,ERP1     IF SECOND TRY
00419  M01S00397.chkpt   +++|          MX2    1           FLAG SECOND TRY
00420  M01S00398.chkpt   +++|          BX7    X2+X3
00421  M01S00399.chkpt   +++|          SX2    2           TOGGLE PARITY BIT
00422  M01S00400.chkpt   +++|          SA7    A3
00423  M01S00401.chkpt   +++|          BX1    X2-X1
00424  M01S00402.chkpt   +++|          SX2    740777B     CLEAR ERROR CODE RETURNED
00425  M01S00403.chkpt   +++|          BX6    X2*X1
00426  M01S00404.chkpt   +++|          SA6    A1
00427  M01S00405.chkpt   +++|          SB3    X3+
00428  M01S00406.chkpt   +++|          REWIND A1,R
00429  M01S00407.chkpt   +++|          JP     B3          RETURN TO CALLER
00430  M01S00408.chkpt   +++|
00431  M01S00409.chkpt   +++| ERPA     BSS    1           RETURN ADDRESS FOR ERROR PROCESSING
00432  M01S00410.chkpt   +++|
00433  M01S00411.chkpt   +++| REC      BSSZ   1
00434  M01S00412.chkpt   +++| CPF      SPACE  4
00435  M01S00413.chkpt   +++|**        CPF - COPY FILES.
00436  M01S00414.chkpt   +++|*
00437  M01S00415.chkpt   +++|*         ENTRY  NONE.
00438  M01S00416.chkpt   +++|*
00439  M01S00417.chkpt   +++|*         EXIT   FILES IN FILE TABLE COPIED TO CHECKPOINT FILE
00440  M01S00418.chkpt   +++|*                AND REPOSITIONED.
00441  M01S00419.chkpt   +++|*
00442  M01S00420.chkpt   +++|*         CALLS  BLO, POF.
00443  M01S00421.chkpt   +++|*
00444  M01S00422.chkpt   +++|*         USES   A - 0, 1, 2, 3, 6.
00445  M01S00423.chkpt   +++|*                B - 5.
00446  M01S00424.chkpt   +++|*                X - 0, 1, 2, 3, 4, 5, 6.
00447  M01S00425.chkpt   +++|*
00448  M01S00426.chkpt   +++|*         MACROS  REWIND.
00449  M01S00427.chkpt   +++|
00450  M01S00428.chkpt   +++|
00451  M01S00429.chkpt   +++| CPF      SUBR               ENTRY/EXIT
00452  M01S00430.chkpt   +++|          SA0    SBUF-2      SET TABLE ENTRY
00453  M01S00431.chkpt   +++| CPF1     MX3    -12
00454  M01S00432.chkpt   +++|          SB5    B0          PRESET EMPTY FILE FLAG
00455  M01S00433.chkpt   +++|          SA0    A0+2
00456  M01S00434.chkpt   +++|          SA1    A0          GET TABLE ENTRY
00457  M01S00435.chkpt   +++|          SA2    A1+B1
00458  M01S00436.chkpt   +++|          ZR     X1,CPFX     RETURN IF END OF TABLE
00459  M01S00437.chkpt   +++|          SX5    B1+B1       PRESET COPY TYPE
00460  M01S00438.chkpt   +++|          MX0    42
00461  M01S00439.chkpt   +++|          BX7    X1
00462  M01S00440.chkpt   +++|          BX6    X6-X6
00463  M01S00441.chkpt   +++|          SA6    I+7
00464  M01S00442.chkpt   +++|          SA7    A6+B1       SAVE FNT
00465  M01S00443.chkpt   +++|          BX6    X2
00466  M01S00444.chkpt   +++|          SA6    A7+B1       SAVE FST
00467  M01S00445.chkpt   +++|          MX4    -24
00468  M01S00446.chkpt   +++|          LX4    12
00469  M01S00447.chkpt   +++|          BX4    -X4*X2      ISOLATE RANDOM ADDRESS
00470  M01S00448.chkpt   +++|          BX3    X4
00471  M01S00449.chkpt   +++|          ZR     X4,CPF2     IF EMPTY FILE
00472  M01S00450.chkpt   +++|          SA4    =C*CCCCCCO*
00473  M01S00451.chkpt   +++|          BX4    X4-X1
00474  M01S00452.chkpt   +++|          BX6    X0*X4
00475  M01S00453.chkpt   +++|          SX3    3           SET DEFAULT OF BINARY
00476  M01S00454.chkpt   +++|          ZR     X6,CPF3     IF CONTROL STATEMENT FILE
00477  M01S00455.chkpt   +++| CPF2     MX5    -3
00478  M01S00456.chkpt   +++|          BX4    X2
00479  M01S00457.chkpt   +++|          AX4    9
00480  M01S00458.chkpt   +++|          BX5    -X5*X4
00481  M01S00459.chkpt   +++|          SX4    X5-4
00482  M01S00460.chkpt   +++|          ZR     X4,CPF1     IF NO COPY
00483  M01S00461.chkpt   +++|          ZR     X3,CPF4     IF EMPTY BUT COPY TYPE ALREADY SPECIFIED
00484  M01S00462.chkpt   +++| CPF3     BX4    X0*X1       SET NAME AND STATUS IF FET
00485  M01S00463.chkpt   +++|          BX6    X4+X3
00486  M01S00464.chkpt   +++|          SA6    I
00487  M01S00465.chkpt   +++|          SX5    X5-1
00488  M01S00466.chkpt   +++|          SB5    B1          CLEAR EMPTY FILE FLAG
00489  M01S00467.chkpt   +++|          ZR     X5,CPF4     IF NO REWIND REQUIRED
00490  M01S00468.chkpt   +++|          REWIND I,R
00491  M01S00469.chkpt   +++| CPF4     SX6    30000B      SET DATA TYPE
00492  M01S00470.chkpt   +++|          RJ     BLO         COPY FILE IN BLOCKED MODE
00493  M01S00471.chkpt   +++|          REWIND I,R
00494  M01S00472.chkpt   +++|          RJ     POF         POSITION FILE
00495  M01S00473.chkpt   +++|          EQ     CPF1        LOOP
00496  M01S00474.chkpt   +++| HDR      SPACE  4
00497  M01S00475.chkpt   +++|**        HDR - WRITE HEADER.
00498  M01S00476.chkpt   +++|*
00499  M01S00477.chkpt   +++|*         ENTRY  NONE.
00500  M01S00478.chkpt   +++|*
00501  M01S00479.chkpt   +++|*         EXIT   HEADER WRITTEN ON CHECKPOINT FILE.
00502  M01S00480.chkpt   +++|*
00503  M01S00481.chkpt   +++|*         CALLS  NONE.
00504  M01S00482.chkpt   +++|*
00505  M01S00483.chkpt   +++|*         USES   A - 1, 2, 6.
00506  M01S00484.chkpt   +++|*                X - 1, 2, 6, 7.
00507  M01S00485.chkpt   +++|*                B - NONE.
00508  M01S00486.chkpt   +++|*
00509  M01S00487.chkpt   +++|*         MACROS  GETJN, PDATE, WRITEW.
00510  M01S00488.chkpt   +++|
00511  M01S00489.chkpt   +++|
00512  M01S00490.chkpt   +++| HDR      SUBR               ENTRY/EXIT
00513  M01S00491.chkpt   +++|          PDATE  I+7         GET DATE AND TIME
00514  M01S00492.chkpt   +++|          SX6    10002B      SET CODE WORD
00515  M01S00493.chkpt   +++|          SA6    BUF
00516  M01S00494.chkpt   +++|          SA2    CKNO        GET CHECKPOINT NUMBER
00517  M01S00495.chkpt   +++|          SA1    MDFL        GET MODE FLAG
00518  M01S00496.chkpt   +++|          LX1    12
00519  M01S00497.chkpt   +++|          BX6    X1+X2
00520  M01S00498.chkpt   +++|          SA2    I+7
00521  M01S00499.chkpt   +++|          LX2    18
00522  M01S00500.chkpt   +++|          BX6    X2+X6
00523  M01S00501.chkpt   +++|          SA6    A6+B1
00524  M01S00502.chkpt   +++|          SA6    HDRB        STORE HEADER
00525  M01S00503.chkpt   +++|          GETJN  BUF+2       GET JSN
00526  M01S00504.chkpt   +++|          WRITEW O,BUF,3
00527  M01S00505.chkpt   +++|          SX6    777B
00528  M01S00506.chkpt   +++|          SA6    BUF
00529  M01S00507.chkpt   +++|          SX6    A6
00530  M01S00508.chkpt   +++|          SA6    PTR
00531  M01S00509.chkpt   +++|          EQ     HDRX        RETURN
Line S00510 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00510.ns2039  ---| POF      SPACE  4
00533  M01S00007.ns2039  +++| POF      SPACE  4,15
00534  M01S00511.chkpt   +++|**        POF - POSITION FILE.
00535  M01S00512.chkpt   +++|*
Line S00513 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00513.ns2039  ---|*         ENTRY  FILE REWOUND.
00537  M01S00008.ns2039  +++|*         ENTRY  MASS STORAGE FILE REWOUND.
00538  M01S00514.chkpt   +++|*
Line S00515 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00515.ns2039  ---|*         EXIT   FILE POSITIONED.
00540  M01S00009.ns2039  +++|*         EXIT   MASS STORAGE FILE REPOSITIONED TO RANDOM INDEX
00541  M01S00010.ns2039  +++|*                VALUE AT TIME OF CHECKPOINT REQUEST UNLESS AN ERROR
00542  M01S00011.ns2039  +++|*                OCCURRED.
00543  M01S00516.chkpt   +++|*
Line S00517 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00517.ns2039  ---|*         CALLS  NONE.
Line S00518 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00518.ns2039  ---|*
Line S00519 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00519.ns2039  ---|*         USES   A - 1, 2, 3, 6.
Line S00520 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00547  M02S00520.ns2039  ---|*                B - 2.
Line S00521 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00521.ns2039  ---|*                X - 0, 1, 2, 3, 4, 7.
Line S00522 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00522.ns2039  ---|*
Line S00523 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00523.ns2039  ---|*         MACROS  BKSPRU, EREXIT, MESSAGE, READ,
Line S00524 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00524.ns2039  ---|*                 READC, READCW, RECALL.
00552  M01S00012.ns2039  +++|*         USES   X - 0, 1, 4, 6, 7.
00553  M01S00013.ns2039  +++|*                A - 1, 6.
00554  M01S00014.ns2039  +++|*                B - 3.
00555  M01S00015.ns2039  +++|*
00556  M01S00016.ns2039  +++|*         MACROS EREXIT, MESSAGE, READ.
00557  M01S00525.chkpt   +++|
00558  M01S00526.chkpt   +++|
00559  M01S00527.chkpt   +++| POF      SUBR               ENTRY/EXIT
Line S00528 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00528.ns2039  ---|          SA1    I+8         GET FNT
Line S00529 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00529.ns2039  ---|          MX0    -2
Line S00530 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00530.ns2039  ---|          AX1    13
Line S00531 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00531.ns2039  ---|          BX2    -X0*X1
Line S00532 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00532.ns2039  ---|          SX3    X2-1
Line S00533 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00533.ns2039  ---|          ZR     X3,POF2     IF TAPE FILE
Line S00534 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00534.ns2039  ---|
Line S00535 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00535.ns2039  ---|*         POSITION MASS STORAGE.
Line S00536 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00536.ns2039  ---|
00569  M01S00537.chkpt   +++|          SA1    I+9         SET RANDOM ADDRESS
00570  M01S00538.chkpt   +++|          AX1    12
00571  M01S00539.chkpt   +++|          MX0    -24
00572  M01S00540.chkpt   +++|          BX6    -X0*X1
00573  M01S00541.chkpt   +++|          ZR     X6,POFX     IF NO RANDOM ADDRESS
00574  M01S00542.chkpt   +++|          SA6    P+6
00575  M01S00543.chkpt   +++|          SA1    I
00576  M01S00544.chkpt   +++|          BX6    X1
00577  M01S00545.chkpt   +++|          SA6    P           SET FILE NAME
00578  M01S00546.chkpt   +++|          EREXIT POF1
00579  M01S00547.chkpt   +++|          READ   P,R
00580  M01S00548.chkpt   +++|          EREXIT 0
00581  M01S00549.chkpt   +++|          EQ     POFX        RETURN
00582  M01S00550.chkpt   +++|
00583  M01S00551.chkpt   +++| POF1     MX0    42
00584  M01S00552.chkpt   +++|          SA1    I
00585  M01S00553.chkpt   +++|          BX1    X0*X1       FILE NAME
00586  M01S00554.chkpt   +++|          SX4    1R.
00587  M01S00555.chkpt   +++|          RJ     SFN         GENERATE BIT MASK FOR FILE NAME
00588  M01S00556.chkpt   +++|          CX7    X7          NUMBER OF BITS IN FILE NAME
00589  M01S00557.chkpt   +++|          BX7    -X7
00590  M01S00558.chkpt   +++|          SB3    X7+54       SHIFT COUNT TO POSITION PERIOD
00591  M01S00559.chkpt   +++|          LX4    X4,B3
00592  M01S00560.chkpt   +++|          BX6    X1+X4       INSERT FILE NAME INTO DAYFILE MESSAGE
00593  M01S00561.chkpt   +++|          SA6    POFA+2
00594  M01S00562.chkpt   +++|          MESSAGE POFA       * POSITION ERROR ON--XXXXXXX.*
00595  M01S00563.chkpt   +++|          EREXIT 0
00596  M01S00564.chkpt   +++|          EQ     POFX        RETURN
Line S00565 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00565.ns2039  ---|
Line S00566 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00566.ns2039  ---|*         POSITION TAPES.
Line S00567 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00567.ns2039  ---|
Line S00568 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00568.ns2039  ---| POF2     SX7    POF3        SET RETURN ADDRESS FOR ERROR PROCESSING
Line S00569 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00569.ns2039  ---|          SA7    ERPA
Line S00570 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00570.ns2039  ---|          SA1    I+9         GET BLOCK COUNT
Line S00571 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00571.ns2039  ---|          AX1    12
Line S00572 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00572.ns2039  ---|          MX3    -24
Line S00573 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00573.ns2039  ---|          BX5    -X3*X1
Line S00574 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00574.ns2039  ---|          ZR     X5,POFX     IF REWOUND
Line S00575 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00575.ns2039  ---|          SX0    B0          PRESET ZERO BLOCK COUNT
Line S00576 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00576.ns2039  ---| POF3     MX6    1
Line S00577 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00577.ns2039  ---|          SA6    I-2
Line S00578 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00578.ns2039  ---|          READCW I
Line S00579 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00579.ns2039  ---| POF4     READC  I,TBUF,TBUFL
Line S00580 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00580.ns2039  ---|          SX1    X1+2
Line S00581 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00581.ns2039  ---|          ZR     X1,POFX     IF EOI
Line S00582 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00582.ns2039  ---|          IX3    X0-X5
Line S00583 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00583.ns2039  ---|          PL     X3,POF5     IF AT POSITION
Line S00584 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00584.ns2039  ---|          SX1    X1-1
Line S00585 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00585.ns2039  ---|          ZR     X1,POF3     IF EOF
Line S00586 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00586.ns2039  ---|          EQ     POF4
Line S00587 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00587.ns2039  ---|
Line S00588 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00588.ns2039  ---| POF5     RECALL I
Line S00589 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00589.ns2039  ---|          SA1    I           CHECK STATUS IN FET
Line S00590 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00590.ns2039  ---|          MX2    -10
Line S00591 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00591.ns2039  ---|          BX3    -X2*X1
Line S00592 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00592.ns2039  ---|          SX1    X3-1033B
Line S00593 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00593.ns2039  ---|          ZR     X1,POFX     IF END OF INFORMATION
Line S00594 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00594.ns2039  ---|          SA1    I+2
Line S00595 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00595.ns2039  ---|          SA2    A1+B1       GET WORDS IN BUFFER
Line S00596 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00596.ns2039  ---|          IX3    X1-X2
Line S00597 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00597.ns2039  ---|          SA4    A1-B1       GET FIRST
Line S00598 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00598.ns2039  ---|          ZR     X3,POFX     IF EMPTY BUFFER
Line S00599 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00599.ns2039  ---|          PL     X3,POF6     IF IN .GT. OUT
Line S00600 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00600.ns2039  ---|          SA3    A2+B1       GET LIMIT
Line S00601 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00601.ns2039  ---|          SX4    X4
Line S00602 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00602.ns2039  ---|          SX3    X3
Line S00603 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00603.ns2039  ---|          IX3    X3-X2
Line S00604 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00604.ns2039  ---|          IX4    X1-X4
Line S00605 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00605.ns2039  ---|          IX3    X4+X3
Line S00606 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00606.ns2039  ---| POF6     SA1    X2          GET CONTROL WORD
Line S00607 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00607.ns2039  ---|          SX7    5
Line S00608 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00608.ns2039  ---|          SX4    X1+16B      ACCOUNT FOR CONTROL WORDS AND EXTRA BYTES
Line S00609 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00609.ns2039  ---|          IX7    X4/X7       NUMBER OF WORDS IN WHOLE BLOCK
Line S00610 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00610.ns2039  ---|          IX6    X3-X7       NUMBER OF WORDS LEFT IN BUFFER
Line S00611 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00611.ns2039  ---|          SX0    X0+B1       INCREMENT BLOCK COUNT
Line S00612 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00612.ns2039  ---|          ZR     X6,POF7     IF 1 BLOCK EVEN
Line S00613 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00613.ns2039  ---|          SX3    X6
Line S00614 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00614.ns2039  ---|          IX2    X2+X7       NEW OUT
Line S00615 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00615.ns2039  ---|          SA1    I+4
Line S00616 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00616.ns2039  ---|          SX1    X1
Line S00617 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00617.ns2039  ---|          IX1    X2-X1       COMPARE TO LIMIT
Line S00618 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00618.ns2039  ---|          NG     X1,POF6     IF NO END AROUND
Line S00619 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00619.ns2039  ---|          SA2    A4          GET FIRST
Line S00620 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00620.ns2039  ---|          IX2    X2+X1       NEW OUT
Line S00621 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00621.ns2039  ---|          EQ     POF6
Line S00622 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00622.ns2039  ---|
Line S00623 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00623.ns2039  ---| POF7     IX3    X0-X5
Line S00624 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00624.ns2039  ---|          ZR     X3,POFX     IF AT POSITION
Line S00625 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00625.ns2039  ---|          BKSPRU I,X3,R
Line S00626 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00626.ns2039  ---|          EQ     POFX        RETURN
00659  M01S00627.chkpt   +++|
00660  M01S00628.chkpt   +++| POFA     DATA   C* POSITION ERROR ON--XXXXXXX.*
00661  M01S00629.chkpt   +++| RDA      SPACE  4
00662  M01S00630.chkpt   +++|**        RDA - READ DATA.
00663  M01S00631.chkpt   +++|*         PROCESSES CALLS TO READ WORDS (RDW=).
00664  M01S00632.chkpt   +++|*         DEBLOCKS DATA IF CONTROL WORD READS.
00665  M01S00633.chkpt   +++|*
00666  M01S00634.chkpt   +++|*         ENTRY  B6 = BUFFER ADDRESS.
00667  M01S00635.chkpt   +++|*                B7 = NUMBER OF WORDS NEEDED.
00668  M01S00636.chkpt   +++|*                X0 = BLOCK COUNT.
00669  M01S00637.chkpt   +++|*                X2 = FET ADDRESS.
00670  M01S00638.chkpt   +++|*
00671  M01S00639.chkpt   +++|*         EXIT   FET-2 CONTAINS NUMBER OF WORDS REMAINING IF BUFFER
00672  M01S00640.chkpt   +++|*                FILLED.
00673  M01S00641.chkpt   +++|*                XO = BLOCK COUNT (UPDATED).
00674  M01S00642.chkpt   +++|*                X1 = -2 IF EOI.
00675  M01S00643.chkpt   +++|*
00676  M01S00644.chkpt   +++|*         CALLS  RDW=.
00677  M01S00645.chkpt   +++|*
00678  M01S00646.chkpt   +++|*         USES   A - 1, 3, 6, 7.
00679  M01S00647.chkpt   +++|*                B - 5, 6, 7.
00680  M01S00648.chkpt   +++|*                X - 0, 1, 4, 6, 7.
00681  M01S00649.chkpt   +++|
00682  M01S00650.chkpt   +++|
00683  M01S00651.chkpt   +++| RDA5     SX6    B5-B7       UPDATE WORDS REMAINING
00684  M01S00652.chkpt   +++|          SA6    A1
00685  M01S00653.chkpt   +++|
00686  M01S00654.chkpt   +++|          RJ     RDW=        READ WORDS
00687  M01S00655.chkpt   +++| RDA      PS                 ENTRY/EXIT
00688  M01S00656.chkpt   +++| RDA1     SA1    X2-2        GET NUMBER OF WORDS BEFORE CONTROL WORD
00689  M01S00657.chkpt   +++|          SB5    X1+
00690  M01S00658.chkpt   +++|          PL     X1,RDA2     IF NOT FIRST READ
00691  M01S00659.chkpt   +++|          SX7    B7+         SET WORDS NEEDED
00692  M01S00660.chkpt   +++|          SA7    RDAA
00693  M01S00661.chkpt   +++|          JP     RDA4
00694  M01S00662.chkpt   +++|
00695  M01S00663.chkpt   +++| RDA2     GE     B5,B7,RDA5  IF ENOUGH DATA TO FILL BUFFER
00696  M01S00664.chkpt   +++|          SA3    X2-1        CHECK EOR FLAG
00697  M01S00665.chkpt   +++|          PL     X3,RDA3     IF NOT EOR ON FILE
00698  M01S00666.chkpt   +++|          MX6    1           SET NEW READ FLAG
00699  M01S00667.chkpt   +++|          SB7    B5+B1       SET WORDS TO READ
00700  M01S00668.chkpt   +++|          SA6    A3
00701  M01S00669.chkpt   +++|          SA6    A1
00702  M01S00670.chkpt   +++|          RJ     RDW=        READ WORDS
00703  M01S00671.chkpt   +++|          SX1    B6-B1       SET EOR INDICATION
00704  M01S00672.chkpt   +++|          SB6    B6-B1       BACK UP LWA TO ALLOW FOR CONTROL WORD
00705  M01S00673.chkpt   +++|          JP     RDA         RETURN
00706  M01S00674.chkpt   +++|
00707  M01S00675.chkpt   +++| RDA3     SX6    B7-B5       SAVE ADDITIONAL WORDS NEEDED
00708  M01S00676.chkpt   +++|          SA6    RDAA
00709  M01S00677.chkpt   +++|          SB7    B5+B1       SET WORDS TO TRANSFER
00710  M01S00678.chkpt   +++|          RJ     RDW=        READ WORDS
00711  M01S00679.chkpt   +++|          SB6    B6-B1       BACK UP OVER LAST CONTROL WORD
00712  M01S00680.chkpt   +++| RDA4     SB7    B1          READ CONTROL WORD
00713  M01S00681.chkpt   +++|          RJ     RDW=
00714  M01S00682.chkpt   +++|          NG     X1,RDA      IF EOF/EOI
00715  M01S00683.chkpt   +++|          SB6    B6-B1       BACK UP WORKING BUFFER
00716  M01S00684.chkpt   +++|          SA1    B6          CONTROL WORD
00717  M01S00685.chkpt   +++|          SX7    5
00718  M01S00686.chkpt   +++|          SX4    X1+4        ROUND UP
00719  M01S00687.chkpt   +++|          AX1    36          EXTRACT BLOCK SIZE
00720  M01S00688.chkpt   +++|          SX3    X1
00721  M01S00689.chkpt   +++|          IX7    X4/X7       WORDS IN BLOCK
00722  M01S00690.chkpt   +++|          IX6    X7-X3       SAVE EOR FLAG
00723  M01S00691.chkpt   +++|          SA7    X2-2        STORE WORD COUNT
00724  M01S00692.chkpt   +++|          SA6    X2-1        EOR FLAG
00725  M01S00693.chkpt   +++|          SA1    RDAA        RESET WORDS NEEDED
00726  M01S00694.chkpt   +++|          SB7    X1
00727  M01S00695.chkpt   +++|          SX0    X0+B1       INCREMENT BLOCK COUNT
00728  M01S00696.chkpt   +++|          JP     RDA1        LOOP
00729  M01S00697.chkpt   +++|
00730  M01S00698.chkpt   +++| RDAA     CON    0
00731  M01S00699.chkpt   +++| WRT      SPACE  4
00732  M01S00700.chkpt   +++|**        WRT - WRITE TABLE.
00733  M01S00701.chkpt   +++|*
00734  M01S00702.chkpt   +++|*         ENTRY  NONE.
00735  M01S00703.chkpt   +++|*
00736  M01S00704.chkpt   +++|*         EXIT   FILE TABLE WRITTEN ON CHECKPOINT FILE.
00737  M01S00705.chkpt   +++|*
Line S00706 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00706.ns21000 ---|*         CALLS  NONE.
Line S00707 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00707.ns21000 ---|*
Line S00708 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00708.ns21000 ---|*         USES   A - ALL.
Line S00709 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00709.ns21000 ---|*                B - ALL.
Line S00710 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00710.ns21000 ---|*                X - ALL.
Line S00711 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00711.ns21000 ---|*
Line S00712 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00712.ns21000 ---|*         MACROS  ABORT, MESSAGE, WRITEO, WRITEW.
00745  M01S00001.ns21000 +++|*         USES   X - ALL.
00746  M01S00002.ns21000 +++|*                A - ALL.
00747  M01S00003.ns21000 +++|*                B - 2, 5.
00748  M01S00004.ns21000 +++|*
00749  M01S00005.ns21000 +++|*         MACROS ABORT, MESSAGE, MOVE, WRITEO, WRITEW.
00750  M01S00713.chkpt   +++|
00751  M01S00714.chkpt   +++|
00752  M01S00715.chkpt   +++| WRT      SUBR               ENTRY/EXIT
00753  M01S00716.chkpt   +++|          MX0    42
00754  M01S00717.chkpt   +++|          SX6    20000B      SET DATA TYPE
00755  M01S00718.chkpt   +++|          SA6    REC
00756  M01S00719.chkpt   +++|          SA5    BUF         SET BUFFER ADDRESS
00757  M01S00720.chkpt   +++|          SB2    B1+B1
00758  M01S00721.chkpt   +++|
00759  M01S00722.chkpt   +++|*         SEARCH FILE LIST.
00760  M01S00723.chkpt   +++|
00761  M01S00724.chkpt   +++|          SA0    SBUF-1      SET FNT TABLE ADDRESS
00762  M01S00725.chkpt   +++| WRT1     SA0    A0+B2
00763  M01S00726.chkpt   +++|          SA1    A0
00764  M01S00727.chkpt   +++|          ZR     X1,WRT15    IF END OF FNT TABLE
00765  M01S00017.ns2039  +++|          MX6    -2          SET FILE TYPE INDICATOR TO ZERO IF TAPE
00766  M01S00018.ns2039  +++|          BX3    X1
00767  M01S00019.ns2039  +++|          AX3    13
00768  M01S00020.ns2039  +++|          BX3    -X6*X3
00769  M01S00021.ns2039  +++|          SB3    X3-1
00770  M01S00728.chkpt   +++|          SA3    =C*CCCCCCO*
00771  M01S00729.chkpt   +++|          BX2    X1-X3
00772  M01S00730.chkpt   +++|          BX2    X0*X2
Line S00731 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00731.ns2081  ---|          NZ     X2,WRT2     IF NOT CONTROL STATEMENT FILE
00774  M01S00001.ns2081  +++|          NZ     X2,WRT1.1   IF NOT CONTROL STATEMENT FILE
00775  M01S00732.chkpt   +++|          SA2    CSFP        GET CONTROL STATEMENT FILE POSITION
00776  M01S00733.chkpt   +++|          MX6    -6          SAVE WORD COUNT
00777  M01S00734.chkpt   +++|          BX6    -X6*X2
00778  M01S00735.chkpt   +++|          BX6    X6+X3
00779  M01S00736.chkpt   +++|          MX3    -24         SAVE PRU NUMBER
00780  M01S00737.chkpt   +++|          LX3    6
00781  M01S00738.chkpt   +++|          BX3    -X3*X2
00782  M01S00739.chkpt   +++|          LX3    6
00783  M01S00740.chkpt   +++|          BX7    X3
00784  M01S00741.chkpt   +++|          SA6    A5          STORE ENTRY
00785  M01S00742.chkpt   +++|          SA7    A6+B1
00786  M01S00743.chkpt   +++|          SA5    A5+B2
00787  M01S00744.chkpt   +++|          EQ     WRT1        LOOP FOR ALL FNT ENTRIES
00788  M01S00002.ns2081  +++|
00789  M01S00003.ns2081  +++|*         CHECK FOR CCL FILES.
00790  M01S00004.ns2081  +++|
00791  M01S00005.ns2081  +++| WRT1.1   SA3    WRTD        *ZZZZZC0*
00792  M01S00006.ns2081  +++|          SA4    WRTE        *ZZZZZC2*
00793  M01S00007.ns2081  +++|          BX7    X0*X1
00794  M01S00008.ns2081  +++|          IX3    X7-X3
00795  M01S00009.ns2081  +++|          NG     X3,WRT2     IF NOT CCL FILE
00796  M01S00010.ns2081  +++|          IX4    X4-X7
00797  M01S00011.ns2081  +++|          NG     X4,WRT2     IF NOT CCL FILE
00798  M01S00012.ns2081  +++|          SX7    4
00799  M01S00013.ns2081  +++|          EQ     B3,WRT7     IF TAPE
00800  M01S00014.ns2081  +++|          R=     X7,2
00801  M01S00015.ns2081  +++|          EQ     WRT7        MAKE TABLE ENTRY
00802  M01S00745.chkpt   +++|
00803  M01S00746.chkpt   +++| WRT2     SA3    PAR         SET FILE LIST ADDRESS
00804  M01S00747.chkpt   +++|          MX6    -30
00805  M01S00748.chkpt   +++|          BX3    -X6*X3
00806  M01S00749.chkpt   +++|          ZR     X3,WRT11    IF NO TABLE
00807  M01S00750.chkpt   +++|          AX3    12          GET NUMBER OF FILES IN LIST
00808  M01S00751.chkpt   +++|          SB5    X3
00809  M01S00752.chkpt   +++| WRT3     SA3    A3+B1
00810  M01S00753.chkpt   +++|          BX6    X1-X3
00811  M01S00754.chkpt   +++|          BX6    X0*X6
00812  M01S00755.chkpt   +++|          ZR     X6,WRT5     IF FOUND IN LIST
00813  M01S00756.chkpt   +++|          SB5    B5-B1
00814  M01S00757.chkpt   +++|          NZ     B5,WRT3     LOOP ALL FILE ENTRIES
00815  M01S00758.chkpt   +++|          SA3    SPFL        CHECK IF SELECTIVE CHECKPOINT
00816  M01S00759.chkpt   +++|          ZR     X3,WRT11    IF ALL FILES REQUIRED
Line S00760 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00760.ns2081  ---|          SA3    FILE        CHECK FOR SYSTEM FILES
00818  M01S00016.ns2081  +++|          SA3    WRTC        CHECK FOR SYSTEM FILES
00819  M01S00761.chkpt   +++| WRT4     BX6    X1-X3
00820  M01S00762.chkpt   +++|          BX2    X0*X6
Line S00763 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00763.ns2039  ---|          ZR     X2,WRT6     IF SYSTEM FILE
00822  M01S00022.ns2039  +++|          ZR     X2,WRT4.1   IF SYSTEM FILE
00823  M01S00764.chkpt   +++|          SA3    A3+B1
00824  M01S00765.chkpt   +++|          NZ     X3,WRT4     LOOP
00825  M01S00766.chkpt   +++|          BX1    X0*X1
Line S00767 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00767.ns2081  ---|          SA3    CCLF
00827  M01S00017.ns2081  +++|          SA3    WRTF        *ZZCCLAA*
00828  M01S00768.chkpt   +++|          IX6    X3-X1
Line S00769 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00769.ns2039  ---|          ZR     X6,WRT6     IF SPECIAL CCL FILE
00830  M01S00023.ns2039  +++|          ZR     X6,WRT4.1   IF SPECIAL CCL FILE
00831  M01S00770.chkpt   +++|          PL     X6,WRT1     IF NOT SPECIAL CCL FILE
00832  M01S00771.chkpt   +++|          SA3    A3+B1
00833  M01S00772.chkpt   +++|          IX2    X3-X1
Line S00773 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00773.ns2039  ---|          PL     X2,WRT6     IF SPECIAL CCL FILE
Line S00774 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00774.ns2039  ---|          EQ     WRT1        LOOP ALL FNT ENTRIES
00836  M01S00024.ns2039  +++|          NG     X2,WRT1     IF NOT SPECIAL CCL FILE
00837  M01S00025.ns2039  +++| WRT4.1   NZ     B3,WRT6     IF NOT TAPE
00838  M01S00026.ns2039  +++|          SX7    4
00839  M01S00027.ns2039  +++|          EQ     WRT7        STORE IN TABLE
00840  M01S00775.chkpt   +++|
00841  M01S00776.chkpt   +++| WRT5     SX7    X3          GET COPY TYPE
00842  M01S00777.chkpt   +++|          AX7    12
Line S00778 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00778.ns2039  ---|          SX2    X7-3
00844  M01S00028.ns2039  +++|          NZ     B3,WRT5.1   IF NOT TAPE
00845  M01S00029.ns2039  +++|          SX2    X7-4
00846  M01S00030.ns2039  +++|          ZR     X2,WRT7     IF COPY TYPE IS CORRECT FOR TAPE
00847  M01S00031.ns2039  +++|          SA3    PGNR
00848  M01S00032.ns2039  +++|          NZ     X3,WRT4.1   IF CONTROL CARD CALL
00849  M01S00033.ns2039  +++|
00850  M01S00034.ns2039  +++|*         ISSUE WARNING MESSAGE AND FORCE SELECTION OF COPY TYPE 4
00851  M01S00035.ns2039  +++|*         FOR MAGNETIC TAPE.
00852  M01S00036.ns2039  +++|
00853  M01S00037.ns2039  +++|          SB6    A1+         SAVE FNT ADDRESS
00854  M01S00038.ns2039  +++|          SB2    1R+
00855  M01S00039.ns2039  +++|          SB3    WRTB        ASSEMBLY AREA
00856  M01S00040.ns2039  +++|          SB5    -WRTA
00857  M01S00041.ns2039  +++|          BX1    X0*X1
00858  M01S00042.ns2039  +++|          RJ     SNM         SET NAME IN MESSAGE
00859  M01S00043.ns2039  +++|          MESSAGE  WRTB,3,R
00860  M01S00044.ns2039  +++|          SA1    B6          RESTORE FNT ENTRY
00861  M01S00045.ns2039  +++|          R=     B2,2
00862  M01S00046.ns2039  +++|          SX7    4           FORCE COPY TYPE
00863  M01S00047.ns2039  +++|          EQ     WRT7        CONTINUE WITH PROCESSING
00864  M01S00048.ns2039  +++|
00865  M01S00049.ns2039  +++| WRT5.1   SX2    X7-3
00866  M01S00779.chkpt   +++|          NZ     X2,WRT7     IF NO STATUS CHECK NEEDED
00867  M01S00780.chkpt   +++|
00868  M01S00781.chkpt   +++|*         CHECK STATUS FOR COPY TYPE.
00869  M01S00782.chkpt   +++|
00870  M01S00783.chkpt   +++| WRT6     SA3    A1+B1       GET FST
Line S00784 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00784.ns2039  ---|          SX7    B0          SET COPY TYPE
00872  M01S00050.ns2039  +++|          SX7    B0+         SET COPY TYPE
00873  M01S00785.chkpt   +++|          LX3    59-0
00874  M01S00786.chkpt   +++|          NG     X3,WRT7     IF FILE WRITTEN
00875  M01S00787.chkpt   +++|          MX4    -3
00876  M01S00788.chkpt   +++|          BX4    -X4*X3
00877  M01S00789.chkpt   +++|          SX3    X4-3
00878  M01S00790.chkpt   +++|          ZR     X3,WRT7     IF EOI
00879  M01S00791.chkpt   +++|          SX7    2           SET COPY TYPE
00880  M01S00792.chkpt   +++|
00881  M01S00793.chkpt   +++|*         STORE IN TABLE.
00882  M01S00794.chkpt   +++|
Line S00795 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00795.ns21000 ---| WRT7     MX2    -3
Line S00796 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00796.ns21000 ---|          SA1    A1          GET FNT/FST
00885  M01S00006.ns21000 +++| WRT7     SA1    A1          GET FNT/FST
00886  M01S00797.chkpt   +++|          SA3    A1+B1
Line S00798 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00798.ns21000 ---|          BX6    X1
Line S00799 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00799.ns21000 ---|          LX6    2-16
00889  M01S00007.ns21000 +++|          MX2    -4
00890  M01S00008.ns21000 +++|          BX6    X3
00891  M01S00009.ns21000 +++|          LX6    -4
00892  M01S00800.chkpt   +++|          BX4    -X2*X6
00893  M01S00801.chkpt   +++|          SX4    X4-4
00894  M01S00802.chkpt   +++|          NZ     X4,WRT8     IF NOT EXECUTE-ONLY
00895  M01S00803.chkpt   +++|          SX7    4
00896  M01S00804.chkpt   +++| WRT8     MX2    -6
00897  M01S00805.chkpt   +++|          BX4    -X2*X1      EXTRACT FILE STATUS
00898  M01S00806.chkpt   +++|          SX2    X4-UPST
00899  M01S00807.chkpt   +++|          ZR     X2,WRT16    IF SECURE FILES
00900  M01S00808.chkpt   +++|          MX4    -24
00901  M01S00809.chkpt   +++|          LX4    12
00902  M01S00810.chkpt   +++|          BX4    -X4*X3
00903  M01S00811.chkpt   +++|          NZ     X4,WRT10    IF NOT EMPTY FILE
00904  M01S00812.chkpt   +++|          SX7    4           SET NO COPY
00905  M01S00813.chkpt   +++| WRT10    BX6    X1
Line S00814 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00814.ns21000 ---|          MX0    48
Line S00815 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00815.ns21000 ---|          BX4    X0*X3
00908  M01S00010.ns21000 +++|          MX0    3
00909  M01S00816.chkpt   +++|          LX7    9
Line S00817 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00817.ns21000 ---|          MX0    -4
Line S00818 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00818.ns21000 ---|          BX7    X7+X4
00912  M01S00011.ns21000 +++|          LX0    11-59
00913  M01S00819.chkpt   +++|          BX4    -X0*X3
00914  M01S00820.chkpt   +++|          BX7    X7+X4
00915  M01S00821.chkpt   +++|          SA6    A5
00916  M01S00822.chkpt   +++|          MX0    42
00917  M01S00823.chkpt   +++|          SA7    A6+B1
00918  M01S00824.chkpt   +++|          SA5    A5+B2       UPDATE LOCATION POINTER
00919  M01S00825.chkpt   +++|          EQ     WRT1        LOOP ALL FNT ENTRIES
00920  M01S00826.chkpt   +++|
00921  M01S00827.chkpt   +++| WRT11    SA3    TSSF        CHECK FOR SPECIAL SYSTEM FILES
00922  M01S00828.chkpt   +++|          MX4    42
00923  M01S00829.chkpt   +++| WRT12    BX6    X3-X1
00924  M01S00830.chkpt   +++|          BX6    X4*X6
00925  M01S00831.chkpt   +++|          ZR     X6,WRT1     IF SPECIAL SYSTEM FILE
00926  M01S00832.chkpt   +++|          SA3    A3+B1
00927  M01S00833.chkpt   +++|          NZ     X3,WRT12    IF NOT END OF TABLE
00928  M01S00834.chkpt   +++|
00929  M01S00835.chkpt   +++|*         CHECK FOR TAPE FILE.
00930  M01S00836.chkpt   +++|
Line S00837 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00837.ns2039  ---|          MX6    -2
Line S00838 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00838.ns2039  ---|          BX3    X1
Line S00839 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00839.ns2039  ---|          AX3    13
Line S00840 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00840.ns2039  ---|          BX3    -X6*X3
Line S00841 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00841.ns2039  ---|          SX6    X3-1
Line S00842 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2039
Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00842.ns2039  ---|          ZR     X6,WRT14    IF TAPE FILE
00937  M01S00051.ns2039  +++|          EQ     B3,WRT14    IF TAPE FILE
00938  M01S00843.chkpt   +++|
00939  M01S00844.chkpt   +++|*         CHECK FILE TYPE.
00940  M01S00845.chkpt   +++|
00941  M01S00846.chkpt   +++| WRT13    MX4    -12         CHECK FILE TYPE
00942  M01S00847.chkpt   +++|          BX4    -X4*X1
00943  M01S00848.chkpt   +++|          AX4    6
00944  M01S00849.chkpt   +++|          SX6    X4-LOFT
00945  M01S00850.chkpt   +++|          ZR     X6,WRT6     IF LOCAL
00946  M01S00851.chkpt   +++|          SX6    X4-LIFT
00947  M01S00852.chkpt   +++|          ZR     X6,WRT14    IF LIBRARY
00948  M01S00853.chkpt   +++|          SX6    X4-PTFT
00949  M01S00854.chkpt   +++|          ZR     X6,WRT6     IF PRIMARY TERMINAL
00950  M01S00855.chkpt   +++|          SX6    X4-QFFT
00951  M01S00856.chkpt   +++|          ZR     X6,WRT6     IF QUEUE FILE
00952  M01S00857.chkpt   +++|          SX6    X4-INFT
00953  M01S00858.chkpt   +++|          ZR     X6,WRT6     IF INPUT FILE
00954  M01S00859.chkpt   +++|          SX6    X4-PMFT
00955  M01S00860.chkpt   +++|          NZ     X6,WRT1     LOOP IF NOT DIRECT ACCESS FILE
Line S00861 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00861.ns21000 ---|          BX7    X1          IF DIRECT ACCESS
00957  M01S00012.ns21000 +++|          BX7    X1          CHECK WRITE LOCKOUT FLAG
00958  M01S00862.chkpt   +++|          LX7    59-12
00959  M01S00863.chkpt   +++|          PL     X7,WRT6     IF NOT READ ONLY
Line S00864 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00864.ns21000 ---|          MX4    -3
Line S00865 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00865.ns21000 ---|          AX7    2
Line S00866 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00866.ns21000 ---|          BX4    -X4*X7
Line S00867 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00867.ns21000 ---|          SX6    X4-3
00964  M01S00013.ns21000 +++|          SA3    A1+B1       CHECK FILE MODE
00965  M01S00014.ns21000 +++|          MX4    -4
00966  M01S00015.ns21000 +++|          AX3    4
00967  M01S00016.ns21000 +++|          BX4    -X4*X3
00968  M01S00017.ns21000 +++|          SX6    X4-10B
00969  M01S00018.ns21000 +++|          ZR     X6,WRT6     IF READ/UPDATE
00970  M01S00019.ns21000 +++|          SX6    X4-6
00971  M01S00868.chkpt   +++|          ZR     X6,WRT6     IF READ/APPEND
Line S00869 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00869.ns21000 ---|          SX6    X4-2
00973  M01S00020.ns21000 +++|          SX6    X4-5
00974  M01S00870.chkpt   +++|          ZR     X6,WRT6     IF READ/MODIFY
00975  M01S00871.chkpt   +++| WRT14    SX7    4           SET COPY TYPE
00976  M01S00872.chkpt   +++|          EQ     WRT7
00977  M01S00873.chkpt   +++|
00978  M01S00874.chkpt   +++|*         END TABLE.
00979  M01S00875.chkpt   +++|
00980  M01S00876.chkpt   +++| WRT15    BX6    X6-X6       SET ZERO WORD
00981  M01S00877.chkpt   +++|          SA6    A5
00982  M01S00878.chkpt   +++|
00983  M01S00879.chkpt   +++|          SA4    REC
00984  M01S00880.chkpt   +++|          SX5    A6-BUF+1
00985  M01S00881.chkpt   +++|          BX6    X4+X5
00986  M01S00882.chkpt   +++|          WRITEO O           WRITE CODE WORD
00987  M01S00883.chkpt   +++|          WRITEW O,BUF,X5    WRITE TABLE
00988  M01S00884.chkpt   +++|          MOVE   X5,BUF,SBUF
00989  M01S00885.chkpt   +++|          SX6    777B        RESET POINTERS
00990  M01S00886.chkpt   +++|          SA6    BUF
00991  M01S00887.chkpt   +++|          SX7    A6
00992  M01S00888.chkpt   +++|          SA7    PTR
00993  M01S00889.chkpt   +++|          EQ     WRTX        RETURN
00994  M01S00890.chkpt   +++|
00995  M01S00891.chkpt   +++| WRT16    MESSAGE (=C* SECURE FILES - CHECKPOINT ABORT.*)
00996  M01S00892.chkpt   +++|          ABORT
00997  M01S00052.ns2039  +++|
00998  M01S00053.ns2039  +++| WRTA     DATA   C* CONTENTS NOT CHECKPOINTED FOR FILE +++++++.*
00999  M01S00054.ns2039  +++| WRTB     BSSZ   5           ASSEMBLY AREA
01000  M01S00893.chkpt   +++|
01001  M01S00894.chkpt   +++|*         LIST OF FILES TO BE CHECKPOINTED.
01002  M01S00895.chkpt   +++|
Line S00896 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00896.ns2081  ---| FILE     DATA   C*INPUT*
01004  M01S00018.ns2081  +++| WRTC     DATA   C*INPUT*
01005  M01S00897.chkpt   +++|          DATA   C*OUTPUT*
01006  M01S00898.chkpt   +++|          DATA   C*LGO*
01007  M01S00899.chkpt   +++|          DATA   C*PUNCH*
01008  M01S00900.chkpt   +++|          DATA   C*PUNCHB*
01009  M01S00901.chkpt   +++|          DATA   C*P8*
01010  M01S00902.chkpt   +++|          DATA   C*CCCCCCO*
Line S00903 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01011  M02S00903.ns2081  ---|          DATA   C*ZZZZZC0*
Line S00904 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00904.ns2081  ---|          DATA   C*ZZZZZC1*
Line S00905 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00905.ns2081  ---|          DATA   C*ZZZZZC2*
Line S00906 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01014  M02S00906.ns2081  ---|          DATA   0
Line S00907 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01015  M02S00907.ns2081  ---| CCLF     DATA   C*ZZCCLAA*
Line S00908 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns2081
Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00908.ns2081  ---|          DATA   C*ZZCCLZZ*
01017  M01S00019.ns2081  +++|          CON    0
01018  M01S00020.ns2081  +++| WRTD     DATA   C*ZZZZZC0*
01019  M01S00021.ns2081  +++| WRTE     DATA   C*ZZZZZC2*
01020  M01S00022.ns2081  +++| WRTF     DATA   C*ZZCCLAA*
01021  M01S00023.ns2081  +++|          DATA   C*ZZCCLZZ*
01022  M01S00909.chkpt   +++|
01023  M01S00910.chkpt   +++|*         LIST OF FILES NOT TO BE CHECKPOINTED.
01024  M01S00911.chkpt   +++|
01025  M01S00912.chkpt   +++| TSSF     BSS    0
01026  M01S00913.chkpt   +++|          VFD    36/6LINPUT*,24/0
01027  M01S00914.chkpt   +++|          VFD    18/3LDM*,42/0
01028  M01S00915.chkpt   +++|          VFD    42/7LCCCCCCC,18/0
01029  M01S00916.chkpt   +++|          CON    0
01030  M01S00917.chkpt   +++| COM      SPACE  4
01031  M01S00918.chkpt   +++|          TITLE  COMMON DECKS AND BUFFERS.
01032  M01S00919.chkpt   +++|*         COMMON DECKS.
01033  M01S00920.chkpt   +++|
01034  M01S00921.chkpt   +++|
01035  M01S00922.chkpt   +++|*CALL     COMCCDD
01036  M01S00923.chkpt   +++|*CALL     COMCCIO
01037  M01S00924.chkpt   +++|*CALL     COMCCPM
01038  M01S00925.chkpt   +++|*CALL     COMCDXB
01039  M01S00926.chkpt   +++|*CALL     COMCLFM
01040  M01S00927.chkpt   +++|*CALL     COMCMVE
01041  M01S00928.chkpt   +++|*CALL     COMCRDO
01042  M01S00929.chkpt   +++|*CALL     COMCRDW
01043  M01S00930.chkpt   +++|*CALL     COMCSFN
01044  M01S00055.ns2039  +++|*CALL     COMCSNM
01045  M01S00931.chkpt   +++|*CALL     COMCSYS
01046  M01S00932.chkpt   +++|*CALL     COMCWTO
01047  M01S00933.chkpt   +++|*CALL     COMCWTW
01048  M01S00934.chkpt   +++| BUF      SPACE  4
01049  M01S00935.chkpt   +++|*         BUFFER ASSIGNMENTS.
01050  M01S00936.chkpt   +++|
01051  M01S00937.chkpt   +++|
01052  M01S00938.chkpt   +++|          USE    BUFFERS
01053  M01S00939.chkpt   +++| BUF      EQU    *
01054  M01S00940.chkpt   +++| IBUF     EQU    BUF+BUFL
01055  M01S00941.chkpt   +++| OBUF     EQU    IBUF+IBUFL
01056  M01S00942.chkpt   +++| SBUF     EQU    OBUF+OBUFL
01057  M01S00943.chkpt   +++| TBUF     EQU    SBUF+SBUFL
01058  M01S00944.chkpt   +++| RFL=     EQU    TBUF+TBUFL
01059  M01S00945.chkpt   +++|          TITLE  PRESET.
01060  M01S00946.chkpt   +++| PRS      SPACE  4
01061  M01S00947.chkpt   +++|**        PRESET ROUTINE.
01062  M01S00948.chkpt   +++|*
01063  M01S00949.chkpt   +++|*         ENTRY  FILE /DM*/ PRESENT.
01064  M01S00950.chkpt   +++|*
01065  M01S00951.chkpt   +++|*         EXIT   CHECKPOINT FILE POSITIONED.
01066  M01S00952.chkpt   +++|*                FILE LIST IN PAR.
01067  M01S00953.chkpt   +++|*                FNT LIST IN SBUF.
01068  M01S00954.chkpt   +++|*                CONTROL STATEMENT FILE ATTACHED.
01069  M01S00955.chkpt   +++|*                CHECKPOINTED NUMBER INCREMENTED.
01070  M01S00956.chkpt   +++|*
Line S00957 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00957.ns22000 ---|*         CALLS  NONE.
01072  M01S00016.ns22000 +++|*         CALLS  VAL.
01073  M01S00958.chkpt   +++|*
01074  M01S00959.chkpt   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
01075  M01S00960.chkpt   +++|*                B - 1, 2, 4.
01076  M01S00961.chkpt   +++|*                X - ALL.
01077  M01S00962.chkpt   +++|*
01078  M01S00963.chkpt   +++|*         MACROS  ABORT, ACCSF, BKSP, BKSPRU, DISTC,
01079  M01S00964.chkpt   +++|*                 GETFNT, MESSAGE, MOVE, READ, READO,
01080  M01S00965.chkpt   +++|*                 READW, REWIND, SETFS, SKIPEI, STATUS,
01081  M01S00966.chkpt   +++|*                 WRITEO, WRITEW.
01082  M01S00967.chkpt   +++|
01083  M01S00968.chkpt   +++|
01084  M01S00969.chkpt   +++|          ORG    BUF+1
01085  M01S00970.chkpt   +++| PRS       SUBR               ENTRY/EXIT
01086  M01S00971.chkpt   +++|          SB1    1
01087  M01S00972.chkpt   +++|          SA1    JOPR        CHECK JOB ORIGIN TYPE
01088  M01S00973.chkpt   +++|          AX1    24
01089  M01S00974.chkpt   +++|          SX2    X1-TXOT
01090  M01S00975.chkpt   +++|          NZ     X2,PRS1     IF NOT TXOT ORIGIN TYPE
01091  M01S00976.chkpt   +++|          DISTC  ON,TICF     SET DISABLE TERMINAL CONTROL
01092  M01S00977.chkpt   +++| PRS1     SA1    PGNR        CHECK FOR CONTROL CARD CALL
01093  M01S00978.chkpt   +++|          NZ     X1,PRS2     IF CONTROL CARD
01094  M01S00979.chkpt   +++|          SA4    SPPR
01095  M01S00980.chkpt   +++|          MX0    -18
01096  M01S00981.chkpt   +++|          BX5    -X0*X4
01097  M01S00982.chkpt   +++|          ZR     X5,PRS4     IF NO LIST ADDRESS
01098  M01S00983.chkpt   +++|          MOVE   20B,(SPPR+1),PAR      GET LIST
01099  M01S00984.chkpt   +++|          SA1    SPPR
01100  M01S00985.chkpt   +++|          AX1    18
01101  M01S00986.chkpt   +++|          SX6    X1
01102  M01S00987.chkpt   +++|          SA6    SPFL        SET SELECTIVE CHECKPOINT
01103  M01S00988.chkpt   +++|          SA1    PAR
01104  M01S00989.chkpt   +++|          AX1    12
01105  M01S00990.chkpt   +++|          SX1    X1-20B
01106  M01S00991.chkpt   +++|          NG     X1,PRS4     IF CONTAINS ENTIRE LIST
01107  M01S00992.chkpt   +++|
01108  M01S00993.chkpt   +++|*         GET FILE LIST FROM DM* FILE SINCE TOO LONG FOR CONTROL PT AREA
01109  M01S00994.chkpt   +++|
01110  M01S00995.chkpt   +++|          SA3    =C/DM*/
01111  M01S00996.chkpt   +++|          SX4    3
01112  M01S00997.chkpt   +++|          BX6    X3+X4
01113  M01S00998.chkpt   +++|          SA6    I
01114  M01S00999.chkpt   +++|          READ   I
01115  M01S01000.chkpt   +++|          READW  I,PAR,100B
01116  M01S01001.chkpt   +++|          SA1    PAR+20B
01117  M01S01002.chkpt   +++|          MX0    -12
01118  M01S01003.chkpt   +++|          BX0    -X0*X1
01119  M01S01004.chkpt   +++|          SB2    6           SET SHIFT COUNT
01120  M01S01005.chkpt   +++|          AX4    B2,X5
01121  M01S01006.chkpt   +++|          IX0    X0-X4       GET PRU,S TO BACKSPACE
01122  M01S01007.chkpt   +++|          SKIPEI I
01123  M01S01008.chkpt   +++|          BKSPRU I,X0,R
01124  M01S01009.chkpt   +++|          MX0    -6
01125  M01S01010.chkpt   +++|          BX5    -X0*X5
01126  M01S01011.chkpt   +++|          SA1    I+1         SET IN = OUT = FIRST
01127  M01S01012.chkpt   +++|          SX6    X1
01128  M01S01013.chkpt   +++|          SA6    A1+B1
01129  M01S01014.chkpt   +++|          SA6    A6+B1
01130  M01S01015.chkpt   +++|          READ   I
01131  M01S01016.chkpt   +++|          READW  I,PAR,X5
01132  M01S01017.chkpt   +++|
01133  M01S01018.chkpt   +++|*         READ LIST INTO PAR.
01134  M01S01019.chkpt   +++|
01135  M01S01020.chkpt   +++|          READW  I,PAR,100B  (ONLY 77B FILES ALLOWED)
01136  M01S01021.chkpt   +++|          REWIND I
01137  M01S01022.chkpt   +++|          EQ     PRS4        REQUEST CHECKPOINT
01138  M01S01023.chkpt   +++|
01139  M01S01024.chkpt   +++|*         PROCESS CONTROL CARD CALL.
01140  M01S01025.chkpt   +++|
01141  M01S01026.chkpt   +++|*         CREATE LIST.
01142  M01S01027.chkpt   +++|
01143  M01S01028.chkpt   +++| PRS2     SA1    ACTR
01144  M01S01029.chkpt   +++|          SB4    X1
01145  M01S01030.chkpt   +++|          SX6    X1
01146  M01S01031.chkpt   +++|          ZR     B4,PRS4     IF NO ARGUMENTS
01147  M01S01032.chkpt   +++|          LX6    12
01148  M01S01033.chkpt   +++|          SA6    SPFL        SET SELECTIVE CHECKPOINT FLAG
01149  M01S01034.chkpt   +++|          SA6    PAR         SET NUMBER OF FILES
01150  M01S01035.chkpt   +++|          SA1    ARGR        GET FIRST FILE NAME
01151  M01S01036.chkpt   +++|          SX3    30000B      SET COPY TYPE
01152  M01S01037.chkpt   +++| PRS3     BX6    X1+X3
01153  M01S01038.chkpt   +++|          SA6    A6+B1
01154  M01S01039.chkpt   +++|          SB4    B4-B1
01155  M01S01040.chkpt   +++|          SA1    A1+B1       GET NEXT FILE
01156  M01S01041.chkpt   +++|          NZ     B4,PRS3     IF MORE FILES, LOOP
01157  M01S01042.chkpt   +++|
01158  M01S01043.chkpt   +++| PRS4     MESSAGE (=C* CKP REQUEST.*)
01159  M01S01044.chkpt   +++|          SA1    SPFL
01160  M01S01045.chkpt   +++|          ZR     X1,PRS5     IF NOT SELECTIVE CHECKPOINT
01161  M01S01046.chkpt   +++|          SA3    PAR         SET FILE LIST ADDRESS
01162  M01S01047.chkpt   +++|          SX6    X3
01163  M01S01048.chkpt   +++|          SA6    A1
01164  M01S01049.chkpt   +++| PRS5     SX6    777B        PRESET POINTERS
01165  M01S01050.chkpt   +++|          SA6    BUF
01166  M01S01051.chkpt   +++|          SX7    A6+
01167  M01S01052.chkpt   +++|          SA7    PTR
01168  M01S01053.chkpt   +++|
01169  M01S01054.chkpt   +++|*         GET CONTROL STATEMENT FILE.
01170  M01S01055.chkpt   +++|
01171  M01S01056.chkpt   +++|          SX6    3
01172  M01S01057.chkpt   +++|          SA5    =C*CCCCCCO*
01173  M01S01058.chkpt   +++|          BX6    X5+X6
01174  M01S01059.chkpt   +++|          SA6    I           SET NAME IN FET
01175  M01S01060.chkpt   +++|          STATUS I
01176  M01S01061.chkpt   +++|          SA1    I
01177  M01S01062.chkpt   +++|          SX1    X1-1
01178  M01S01063.chkpt   +++|          NZ     X1,PRS6     IF ALREADY PRESENT
01179  M01S01064.chkpt   +++|          ACCSF  I,CSFP,LOCK ATTACH FILE WITH POSITION RETURNED
01180  M01S01065.chkpt   +++|
01181  M01S01066.chkpt   +++|*         GET LIST OF ALL FILES.
01182  M01S01067.chkpt   +++|
01183  M01S01068.chkpt   +++| PRS6     SX6    B0          SET INITIAL CALL
01184  M01S01069.chkpt   +++|          SA6    SBUF
01185  M01S01070.chkpt   +++|          SA1    PRSC
01186  M01S01071.chkpt   +++|          BX6    X1
01187  M01S01072.chkpt   +++|          SA6    I+8
01188  M01S01073.chkpt   +++|          GETFNT I
01189  M01S01074.chkpt   +++|          SA1    SBUF
01190  M01S01075.chkpt   +++|          NZ     X1,PRS7     IF NOT ALL FILES RETURNED
01191  M01S01076.chkpt   +++|          SA1    I+8
01192  M01S01077.chkpt   +++|          PL     X1,PRS8     IF NO ERROR
01193  M01S01078.chkpt   +++| PRS7     MESSAGE  (=C* ERROR - FILE(S) NOT PROCESSED.*)
01194  M01S01079.chkpt   +++|
01195  M01S01080.chkpt   +++|*         PROCESS CHECKPOINT FILE(S).
01196  M01S01081.chkpt   +++|
01197  M01S01082.chkpt   +++| PRS8     SA1    I+9
01198  M01S01083.chkpt   +++|          ZR     X1,PRS16    IF NO CHECKPOINT FILE
01199  M01S01084.chkpt   +++|          NG     X1,PRS17    IF MORE THAN TWO FILES
01200  M01S01085.chkpt   +++|          SX3    3
01201  M01S01086.chkpt   +++|          SA2    A1+1        FST ENTRY FOR FILE O
01202  M01S01087.chkpt   +++|          MX0    42
01203  M01S01088.chkpt   +++|          BX4    X0*X1
01204  M01S01089.chkpt   +++|          BX6    X4+X3
01205  M01S01090.chkpt   +++|          SA6    O           PUT CHECKPOINT FILE NAME IN FET
01206  M01S01091.chkpt   +++|          MX7    -6
01207  M01S01092.chkpt   +++|          BX6    -X7*X1
01208  M01S01093.chkpt   +++|          SA6    MDFL        SAVE MODE OF FILE (CB OR CK)
01209  M01S01094.chkpt   +++|          MX3    -24
01210  M01S01095.chkpt   +++|          AX2    12
01211  M01S01096.chkpt   +++|          BX0    -X3*X2      SAVE RANDOM INDEX OR BLOCK NUMBER
01212  M01S01097.chkpt   +++|          SA1    A2+B1
01213  M01S01098.chkpt   +++|          ZR     X1,PRS10    IF NO ALTERNATE FILE
01214  M01S01099.chkpt   +++|          SA2    A1+1        ALTERNATE FILE FST ENTRY
01215  M01S01100.chkpt   +++|          BX4    -X7*X1
01216  M01S01101.chkpt   +++|          SX7    X4-CKST
01217  M01S01102.chkpt   +++|          ZR     X7,PRS17    IF CK FILE AMONG ALTERNATE FILES
01218  M01S01103.chkpt   +++|          BX6    X4-X6
01219  M01S01104.chkpt   +++|          MX4    42
01220  M01S01105.chkpt   +++|          NZ     X6,PRS17    IF CK FILE AMONG ALTERNATE FILES
01221  M01S01106.chkpt   +++|          SX6    3
01222  M01S01107.chkpt   +++|          BX4    X4*X1
01223  M01S01108.chkpt   +++|          BX7    X6+X4
01224  M01S01109.chkpt   +++|          SA7    I           SET ALTERNATE FILE NAME IN SCRATCH FET
01225  M01S01110.chkpt   +++|          SX6    77B
01226  M01S01111.chkpt   +++|          SA6    MDFL        SET MODE FLAG FOR ALTERNATE FILES
01227  M01S01112.chkpt   +++|          AX2    12
01228  M01S01113.chkpt   +++|          BX6    -X3*X2
01229  M01S01114.chkpt   +++|          ZR     X6,PRS9     IF ALTERNATE FILE EMPTY AND LOCAL
01230  M01S01115.chkpt   +++|          SX6    X6-1
01231  M01S01116.chkpt   +++|          ZR     X6,PRS10    IF ALTERNATE FILE EMPTY OR REWOUND
01232  M01S01117.chkpt   +++|          READ   I
01233  M01S01118.chkpt   +++|          READO  I
01234  M01S01119.chkpt   +++|          NG     X1,PRS10    IF EOF/EOI - NO DATA ON FILE
01235  M01S01120.chkpt   +++|          PL     X6,PRS10    IF NOT CODE WORD CANT BE CHECKPOINT FILE
01236  M01S01121.chkpt   +++|          SA6    PRSA        SAVE CODE WORD
01237  M01S01122.chkpt   +++|          BKSP   I,R
01238  M01S01123.chkpt   +++|          SA1    X2+B1       SET IN = OUT = FIRST
01239  M01S01124.chkpt   +++|          SX6    X1
01240  M01S01125.chkpt   +++|          SA6    A1+B1
01241  M01S01126.chkpt   +++|          SA6    A6+B1
01242  M01S01127.chkpt   +++|          EQ     PRS10       DO NOT REWIND *I*
01243  M01S01128.chkpt   +++|
01244  M01S01129.chkpt   +++|*         THE REWIND ON *I* TAKES PLACE TO ENSURE THE FILE IS
01245  M01S01130.chkpt   +++|*         POSITIONED AT BOI.  THIS IS NECESSARY FOR TAPE
01246  M01S01131.chkpt   +++|*         FILES ON WHICH AN OPEN/WRITE WAS JUST PERFORMED.
01247  M01S01132.chkpt   +++|
01248  M01S01133.chkpt   +++| PRS9     REWIND I           POSITION CHECKPOINT FILE TO BOI
01249  M01S01134.chkpt   +++| PRS10    ZR     X0,PRS14    IF CHECKPOINT FILE EMPTY AND LOCAL
01250  M01S01135.chkpt   +++|          SX6    X0-1
01251  M01S01136.chkpt   +++|          ZR     X6,PRS15    IF CHECKPOINT FILE EMPTY OR REWOUND
01252  M01S01137.chkpt   +++|          READ   O
01253  M01S01138.chkpt   +++|          READO  O
01254  M01S01139.chkpt   +++|          NG     X1,PRS15    IF EOF/EOI - NO DATA ON FILE
01255  M01S01140.chkpt   +++|          PL     X6,PRS14    IF CHECKPOINT FILE MISPOSITIONED
01256  M01S01141.chkpt   +++|          SA6    PRSB        SAVE CODE WORD
01257  M01S01142.chkpt   +++|          BKSP   O,R
01258  M01S01143.chkpt   +++|          SA1    X2+B1       SET IN = OUT = FIRST
01259  M01S01144.chkpt   +++|          SX7    X1
01260  M01S01145.chkpt   +++|          SA7    A1+B1
01261  M01S01146.chkpt   +++|          SA7    A7+B1
01262  M01S01147.chkpt   +++|          SA5    PRSB        RETRIEVE CODE WORD
01263  M01S01148.chkpt   +++|          MX0    -12
01264  M01S01149.chkpt   +++|          SA1    MDFL
01265  M01S01150.chkpt   +++|          SX1    X1-77B
01266  M01S01151.chkpt   +++|          BX5    -X0*X5
01267  M01S01152.chkpt   +++|          NZ     X1,PRS12    IF NO ALTERNATE FILE
01268  M01S01153.chkpt   +++|          SX4    X5
01269  M01S01154.chkpt   +++|          SA5    PRSA
01270  M01S01155.chkpt   +++|          BX5    -X0*X5
01271  M01S01156.chkpt   +++|          IX7    X4-X5       COMPARE CHECKPOINT NUMBERS
01272  M01S01157.chkpt   +++|          NG     X7,PRS11    IF NO NEED TO SWITCH FILES
01273  M01S01158.chkpt   +++|          SA2    O           SWITCH FILE NAMES
01274  M01S01159.chkpt   +++|          SX5    X4
01275  M01S01160.chkpt   +++|          SA1    I
01276  M01S01161.chkpt   +++|          BX6    X1
01277  M01S01162.chkpt   +++|          SA6    O
01278  M01S01163.chkpt   +++|          BX6    X2
01279  M01S01164.chkpt   +++|          SA6    A1
01280  M01S01165.chkpt   +++| PRS11    MX3    42
01281  M01S01166.chkpt   +++|          SA1    O           FILE NAME
01282  M01S01167.chkpt   +++|          BX1    X3*X1
01283  M01S01168.chkpt   +++|          SX4    1R.
01284  M01S01169.chkpt   +++|          RJ     SFN         GENERATE BIT MASK FOR FILE NAME
01285  M01S01170.chkpt   +++|          CX7    X7          NUMBER OF BITS IN FILE NAME
01286  M01S01171.chkpt   +++|          SA2    CKPB
01287  M01S01172.chkpt   +++|          BX7    -X7
01288  M01S01173.chkpt   +++|          SB3    X7+54       SHIFT COUNT TO POSITION PERIOD
01289  M01S01174.chkpt   +++|          BX7    X2
01290  M01S01175.chkpt   +++|          LX4    X4,B3
01291  M01S01176.chkpt   +++|          SA7    A2-1        GENERATE DAYFILE MESSAGE
01292  M01S01177.chkpt   +++|          BX6    X1+X4
01293  M01S01178.chkpt   +++|          SA6    A2
01294  M01S01179.chkpt   +++| PRS12    SX6    X5+B1       INCREMENT CHECKPOINT NUMBER
01295  M01S01180.chkpt   +++|          LX6    47
01296  M01S01181.chkpt   +++|          PL     X6,PRS13    IF CHECKPOINT NUMBER LIMIT NOT REACHED
01297  M01S01182.chkpt   +++|          MX6    1
01298  M01S01183.chkpt   +++|          LX6    -12
01299  M01S01184.chkpt   +++| PRS13    LX6    -47
01300  M01S01185.chkpt   +++|          BX1    X6
01301  M01S01186.chkpt   +++|          SA6    CKNO        SAVE CHECKPOINT NUMBER
01302  M01S00017.ns22000 +++|          RJ     VAL         VALIDATE ACCESS LEVEL
01303  M01S01187.chkpt   +++|          READ   O
01304  M01S01188.chkpt   +++|          READO  O
01305  M01S01189.chkpt   +++|          BX5    X6
01306  M01S01190.chkpt   +++|          BKSP   O
01307  M01S01191.chkpt   +++|          MX0    -59
01308  M01S01192.chkpt   +++|          BX6    -X0*X5      CLEAR LAST CHECKPOINT FLAG
01309  M01S01193.chkpt   +++|          WRITEO  O
01310  M01S01194.chkpt   +++|          WRITER  O,R
01311  M01S01195.chkpt   +++|          SA1    MDFL        CHECK MODE FLAG
01312  M01S01196.chkpt   +++|          SX1    X1-CKST
01313  M01S01197.chkpt   +++|          ZR     X1,PRSX     IF CK FILE, CONTINUE CHECKPOINT AT EOI
01314  M01S01198.chkpt   +++|          REWIND O           WRITE OVER NEXT TO LAST CHECKPOINT FILE
01315  M01S01199.chkpt   +++|          EQ     PRSX        RETURN
01316  M01S01200.chkpt   +++|
01317  M01S01201.chkpt   +++| PRS14    REWIND O
01318  M01S01202.chkpt   +++| PRS15    SA1    MDFL        MODE FLAG
01319  M01S01203.chkpt   +++|          SX1    X1-CKST     CHECK FOR CK ON 1 CB FILE
Line S01204 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01320  M02S01204.ns22000 ---|          ZR     X1,PRSX     IF CK TYPE FILE
Line S01205 Modification History
M01 (Added by) chkpt
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01321  M02S01205.ns22000 ---|          NG     X1,PRSX     IF ONLY 1 CB FILE
01322  M01S00018.ns22000 +++|          ZR     X1,PRS16.1  IF CK TYPE FILE
01323  M01S00019.ns22000 +++|          NG     X1,PRS16.1  IF ONLY 1 CB FILE
01324  M01S01206.chkpt   +++|          SA1    PRSA
01325  M01S01207.chkpt   +++|          SA2    A1+B1
01326  M01S01208.chkpt   +++|          BX1    X1+X2       CHECK IF EITHER FILE HAS BEEN USED
01327  M01S01209.chkpt   +++|          ZR     X1,PRS11    IF NEITHER FILE HAS BEEN USED
01328  M01S01210.chkpt   +++|          SX5    1           SET CHECKPOINT NUMBER TWO
01329  M01S01211.chkpt   +++|          JP     PRS11       LOOP
01330  M01S01212.chkpt   +++|
01331  M01S01213.chkpt   +++| PRS16    SETFS  O,CKST      SET FILE CCCCCCC STATUS TO CK
01332  M01S00020.ns22000 +++| PRS16.1  RJ     VAL         VALIDATE ACCESS LEVEL
01333  M01S01214.chkpt   +++|          EQ     PRSX
01334  M01S01215.chkpt   +++|
01335  M01S01216.chkpt   +++| PRS17    MESSAGE (=C* CHECKPOINT FILE ERROR.*)
01336  M01S01217.chkpt   +++|          ABORT
01337  M01S01218.chkpt   +++|
01338  M01S01219.chkpt   +++| PRSA     BSSZ   1           TEMPORARY STORAGE FOR FILE I
01339  M01S01220.chkpt   +++| PRSB     BSSZ   1           TEMPORARY STORAGE FOR FILE O
01340  M01S01221.chkpt   +++| PRSC     VFD    38/0,1/1,3/0,18/SBUF  *GETFNT* CONTROL WORD
01341  M01S00021.ns22000 +++| VAL      SPACE  4,15
01342  M01S00022.ns22000 +++|**        VAL - VALIDATE ACCESS LEVEL.
01343  M01S00023.ns22000 +++|*
01344  M01S00024.ns22000 +++|*         ENTRY  CHECKPOINT FILE CREATED AND NAME IN FET.
01345  M01S00025.ns22000 +++|*
01346  M01S00026.ns22000 +++|*         EXIT   ABORT, IF SECURE SYSTEM AND CHECKPOINT
01347  M01S00027.ns22000 +++|*                FILE ACCESS LEVEL IS NOT JOB ACCESS LEVEL
01348  M01S00028.ns22000 +++|*                LIMIT.
01349  M01S00029.ns22000 +++|*
01350  M01S00030.ns22000 +++|*         USES   X - 0, 1, 3, 6, 7.
01351  M01S00031.ns22000 +++|*                A - 1, 7.
01352  M01S00032.ns22000 +++|*
01353  M01S00033.ns22000 +++|*         MACROS ABORT, GETJAL, GETSSL, MESSAGE, STATUS.
01354  M01S00034.ns22000 +++|
01355  M01S00035.ns22000 +++|
01356  M01S00036.ns22000 +++| VAL      SUBR               ENTRY/EXIT
01357  M01S00037.ns22000 +++|          GETSSL VALA        GET SYSTEM SECURITY MODE
01358  M01S00038.ns22000 +++|          SA1    VALA
01359  M01S00039.ns22000 +++|          MX0    -3
01360  M01S00040.ns22000 +++|          LX1    12
01361  M01S00041.ns22000 +++|          BX6    -X0*X1
01362  M01S00042.ns22000 +++|          ZR     X6,VALX     IF NOT SECURE SYSTEM
01363  M01S00043.ns22000 +++|          GETJAL VALA        GET JOB ACCESS LEVEL LIMIT
01364  M01S00044.ns22000 +++|          SA1    VALA
01365  M01S00045.ns22000 +++|          LX1    -6
01366  M01S00046.ns22000 +++|          BX3    -X0*X1
01367  M01S00047.ns22000 +++|          SX6    B1          SET SECURITY PROCESSING BIT
01368  M01S00048.ns22000 +++|          LX6    39-0
01369  M01S00049.ns22000 +++|          SA1    O+1
01370  M01S00050.ns22000 +++|          BX7    X1+X6
01371  M01S00051.ns22000 +++|          SA7    A1
01372  M01S00052.ns22000 +++|          STATUS O,P         GET FILE ACCESS LEVEL
01373  M01S00053.ns22000 +++|          SA1    O+4
01374  M01S00054.ns22000 +++|          LX1    -36
01375  M01S00055.ns22000 +++|          BX2    -X0*X1
01376  M01S00056.ns22000 +++|          IX6    X2-X3
01377  M01S00057.ns22000 +++|          ZR     X6,VALX     IF ACCESS LEVELS ARE EQUAL
01378  M01S00058.ns22000 +++|          MESSAGE (=C* CHECKPOINT FILE ACCESS LEVEL ERROR.*)
01379  M01S00059.ns22000 +++|          ABORT
01380  M01S00060.ns22000 +++|
01381  M01S00061.ns22000 +++| VALA     CON    0           REPLY WORD
01382  M01S00062.ns22000 +++|          SPACE  4,10
01383  M01S01222.chkpt   +++|          ERRNG  IBUF-*+1
01384  M01S01223.chkpt   +++|
01385  M01S01224.chkpt   +++|          END
cdc/nos2.source/opl.opl871/deck/chkpt.txt · Last modified: by 127.0.0.1