User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0bf

Deck 0BF

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0bf     +++|          IDENT  0BF,BGFX
00002  M01S00002.0bf     +++|          PERIPH J
00003  M01S00003.0bf     +++|          BASE   MIXED
00004  M01S00004.0bf     +++|          SST
00005  M01S00005.0bf     +++|*COMMENT  0BF - BEGIN FILE.
Line S00006 Modification History
M01 (Added by) 0bf
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.0bf     +++|          TITLE  0BF - BEGIN FILE.
00009  M01S00008.0bf     +++|          SPACE  4
00010  M01S00009.0bf     +++|***       0BF - BEGIN FILE.
00011  M01S00010.0bf     +++|*
00012  M01S00011.0bf     +++|*         G. R. MANSFIELD.   70/09/01.
00013  M01S00012.0bf     +++|*         J. L. LARSON.      81/10/05.
00014  M01S00013.0bf     +++|          SPACE  4
00015  M01S00014.0bf     +++|***              0BF IS A LOCATION FREE ROUTINE WHICH ENTERS FILES INTO
00016  M01S00015.0bf     +++|*         THE LOCAL FNT (IN NFL).  IT MAY BE USED BY ANY PP PROGRAM OR
00017  M01S00016.0bf     +++|*         ROUTINE FOR THIS PURPOSE. IF THE FILE HAS BEEN PREVIOUSLY
00018  M01S00017.0bf     +++|*         ENTERED INTO THE *FNT*, *0BF* ADVANCES THE EXIT ADDRESS BY
00019  M01S00018.0bf     +++|*         ONE AND RETURNS WITH THE FILE LEFT NOT BUSY.  IF THE FILE HAS
00020  M01S00019.0bf     +++|*         NOT BEEN PREVIOUSLY ENTERED INTO THE *FNT* IT WILL BE ENTERED
00021  M01S00020.0bf     +++|*         AND LEFT BUSY UPON RETURN.
00022  M01S00021.0bf     +++|*                DEPENDING ON OPTIONS SELECTED BY THE CALLER,
00023  M01S00022.0bf     +++|*         THE FILE WILL BE ASSIGNED TO A SPECIFIED EQUIPMENT,
00024  M01S00023.0bf     +++|*         TO THE BEST MASS STORAGE EQUIPMENT, OR TO THE
00025  M01S00024.0bf     +++|*         TERMINAL EQUIPMENT.
00026  M01S00025.0bf     +++|          SPACE  4
00027  M01S00026.0bf     +++|***       OPERATOR MESSAGES.
00028  M01S00027.0bf     +++|*
00029  M01S00028.0bf     +++|*
00030  M01S00029.0bf     +++|*         *WAIT FNT SPACE.* = *0BF* IS WAITING FOR ADDITIONAL NFL TO
00031  M01S00030.0bf     +++|*         BE ASSIGNED SO ANOTHER LOCAL FNT ENTRY CAN BE CREATED.
00032  M01S00031.0bf     +++|          SPACE  4
00033  M01S00032.0bf     +++|***       ENTRY CONDITIONS.
00034  M01S00033.0bf     +++|*
00035  M01S00034.0bf     +++|*
Line S00035 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00035.ns22000 ---|*         ((LA)-1) = 6/,1/S,2/,1/L,1/R,1/N
00037  M01S00001.ns22000 +++|*         ((LA)-1) = 2/,1/A,3/AL,1/S,2/,1/L,1/R,1/N
00038  M01S00002.ns22000 +++|*                A           ACCESS LEVEL SPECIFIED.
00039  M01S00003.ns22000 +++|*                AL          FILE ACCESS LEVEL.
00040  M01S00036.0bf     +++|*                S           IF SET, CREATE SPECIAL FILE USING
Line S00037 Modification History
M01 (Added by) 0bf
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00037.v23l617 ---|*                            RESERVED FNT ENTRY.  THIS OPTION IS USED
Line S00038 Modification History
M01 (Added by) 0bf
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00038.v23l617 ---|*                            ONLY BY *1RO* TO BUILD THE DM* FILE.
00043  M01S00001.v23l617 +++|*                            ONE OF THE RESERVED FNT ENTRIES.  SEE
00044  M01S00002.v23l617 +++|*                            SYMBOL *SRFE* IN *PPCOM* FOR A LIST OF
00045  M01S00003.v23l617 +++|*                            SPECIAL FILES.
00046  M01S00039.0bf     +++|*                L           IF SET, RETURN TO CALLER ON LOCAL FILE
00047  M01S00040.0bf     +++|*                            LIMIT (MAXIMUM NFL REACHED).  IF THIS
00048  M01S00041.0bf     +++|*                            OPTION IS NOT SELECTED, *0BF* WILL SET
00049  M01S00042.0bf     +++|*                            THE *FLET* ERROR FLAG ON THE CONTROL
00050  M01S00043.0bf     +++|*                            POINT AND DROP THE PP.
00051  M01S00044.0bf     +++|*                R           IF SET, RETURN TO CALLER TO ENTER PP
00052  M01S00045.0bf     +++|*                            RECALL STACK ON WAIT FOR NFL INCREASE.
00053  M01S00046.0bf     +++|*                            *0BF* HAS ALREADY ISSUED *ROCM* FOR
00054  M01S00047.0bf     +++|*                            ROLLABLE JOB WHEN FL INCREASE IS NOT
00055  M01S00048.0bf     +++|*                            AVAILABLE, OR DISPLAYED *WAIT FNT SPACE*
00056  M01S00049.0bf     +++|*                            MESSAGE AT THE CONTROL POINT.  THE
00057  M01S00050.0bf     +++|*                            CALLER SHOULD NOW ISSUE *RECM* TO ENTER
00058  M01S00051.0bf     +++|*                            THE PP RECALL STACK.  IF THIS OPTION IS
00059  M01S00052.0bf     +++|*                            NOT SELECTED, *0BF* WILL ISSUE *ROCM* OR
00060  M01S00053.0bf     +++|*                            DISPLAY MESSAGE, AND ISSUE THE *RECM* TO
00061  M01S00054.0bf     +++|*                            ENTER THE CALLER PP REQUEST INTO THE
00062  M01S00055.0bf     +++|*                            PP RECALL STACK AND DROP THE PP.
00063  M01S00056.0bf     +++|*                N           IF SET, RETURN TO CALLER ON NFL INCREASE
00064  M01S00057.0bf     +++|*                            IN PROGRESS.  *0BF* EXITS WITH STATUS
00065  M01S00058.0bf     +++|*                            FROM *COMPNFL*.  IF THIS OPTION IS NOT
00066  M01S00059.0bf     +++|*                            SELECTED, ACTION DEPENDS ON *R* OPTION
00067  M01S00060.0bf     +++|*                            SETTING.
00068  M01S00061.0bf     +++|*
00069  M01S00062.0bf     +++|*         (FS) = 1/0,1/T,1/M,9/EQ
00070  M01S00063.0bf     +++|*                T           IF SET, PREVENT TRACK ASSIGNMENT
00071  M01S00064.0bf     +++|*                            IF FILE TO BE ASSIGNED TO MASS STORAGE.
00072  M01S00065.0bf     +++|*                M           IF SET, FORCE MASS STORAGE ASSIGNMENT
00073  M01S00066.0bf     +++|*                            RATHER THAN TERMINAL EQUIPMENT IF
00074  M01S00067.0bf     +++|*                            *EQ* = 0 SPECIFIED.
00075  M01S00068.0bf     +++|*                EQ          IF NONZERO, ASSIGN FILE TO THIS
00076  M01S00069.0bf     +++|*                            EQUIPMENT (FOR NON-MASS STORAGE
00077  M01S00070.0bf     +++|*                            NON-ALLOCATABLE EQUIPMENT, CALLER MUST
00078  M01S00071.0bf     +++|*                            PREVIOUSLY HAVE COMPLETED *REQM*
00079  M01S00072.0bf     +++|*                            FUNCTION TO REQUEST THIS EQUIPMENT).
00080  M01S00073.0bf     +++|*                            IF *EQ* = 0, *M* = 0, AND
00081  M01S00074.0bf     +++|*                            *T* = 0 FOR A TERMINAL ORIGIN JOB,
00082  M01S00075.0bf     +++|*                            ASSIGN TERMINAL EQUIPMENT FOR SPECIAL
00083  M01S00076.0bf     +++|*                            FILES *INPUT* AND *OUTPUT*.  OTHERWISE
00084  M01S00077.0bf     +++|*                            FOR *EQ* = 0, ASSIGN FILE TO THE BEST
00085  M01S00078.0bf     +++|*                            MASS STORAGE EQUIPMENT.  NOTE THAT
00086  M01S00079.0bf     +++|*                            IF THE CALLER REQUESTS ASSIGNMENT
00087  M01S00080.0bf     +++|*                            OF THE NULL EQUIPMENT (*EQ* = *NEEQ*),
00088  M01S00081.0bf     +++|*                            THIS PREVENTS MASS STORAGE ASSIGNMENT
00089  M01S00082.0bf     +++|*                            AND THE CALLER CAN LATER OVERRIDE THE
00090  M01S00083.0bf     +++|*                            NULL EQUIPMENT WITH A DIFFERENT
00091  M01S00084.0bf     +++|*                            EQUIPMENT SELECTION (SINCE THE NULL
00092  M01S00085.0bf     +++|*                            EQUIPMENT DOES NOT NEED TO BE RELEASED
00093  M01S00086.0bf     +++|*                            AND THERE ARE NO TRACKS ASSOCIATED WITH
00094  M01S00087.0bf     +++|*                            IT THAT NEED TO BE DROPPED).
00095  M01S00088.0bf     +++|*
00096  M01S00089.0bf     +++|*         (FN - FN+3) = FILE NAME LEFT JUSTIFIED WITH 0 FILL.
00097  M01S00090.0bf     +++|*
00098  M01S00091.0bf     +++|*         (IR - IR+4) = CALLER PP REQUEST.
00099  M01S00092.0bf     +++|          SPACE  4
00100  M01S00093.0bf     +++|***       EXIT CONDITIONS.
00101  M01S00094.0bf     +++|*
00102  M01S00095.0bf     +++|*
00103  M01S00096.0bf     +++|*         (A) = 0 IF FILE LOCAL FNT ENTRY CREATED.
00104  M01S00097.0bf     +++|*             .LT. 0 IF STORAGE FOR NFL INCREASE IS NOT AVAILABLE
00105  M01S00098.0bf     +++|*                WHEN *N* OPTION IS SELECTED BY CALLER.
00106  M01S00099.0bf     +++|*             = 1 IF WAITING FOR NFL INCREASE TO COMPLETE
00107  M01S00100.0bf     +++|*                WHEN *N* OPTION IS SELECTED BY CALLER.
00108  M01S00101.0bf     +++|*             = 2 IF CALLER IS TO ENTER PP RECALL STACK TO WAIT FOR
00109  M01S00102.0bf     +++|*                NFL INCREASE WHEN *R* OPTION IS SELECTED BY CALLER.
00110  M01S00103.0bf     +++|*             = 4 IF LOCAL FILE LIMIT (MAXIMUM NFL) REACHED
00111  M01S00104.0bf     +++|*                WHEN *L* OPTION IS SELECTED BY CALLER.
00112  M01S00105.0bf     +++|*             = LARGE POSITIVE NUMBER IF ADVANCE EXIT TAKEN
00113  M01S00106.0bf     +++|*                FOR FILE ALREADY EXISTS CONDITION.
00114  M01S00107.0bf     +++|*
00115  M01S00108.0bf     +++|*         (FN - FN+4) = FNT ENTRY.
00116  M01S00109.0bf     +++|*
00117  M01S00110.0bf     +++|*         (FS - FS+4) = FST ENTRY.
00118  M01S00111.0bf     +++|*
00119  M01S00112.0bf     +++|*         (FA) = RELATIVE ADDRESS OF LOCAL FNT ENTRY IN NFL.
00120  M01S00113.0bf     +++|*
00121  M01S00114.0bf     +++|*         ADVANCE EXIT IF FILE PREVIOUSLY ASSIGNED.
00122  M01S00115.0bf     +++|*         FST ENTRY SET BUSY IF NEW ENTRY IS MADE.
00123  M01S00116.0bf     +++|          SPACE  4
00124  M01S00117.0bf     +++|*CALL     COMPMAC
00125  M01S00118.0bf     +++|*CALL     COMSCPS
00126  M01S00119.0bf     +++|*CALL     COMSLFD
00127  M01S00120.0bf     +++|*CALL     COMPREL
00128  M01S00121.0bf     +++|*CALL     COMSZOL
00129  M01S00122.0bf     +++|          SPACE  4
00130  M01S00123.0bf     +++|****      DIRECT LOCATION ASSIGNMENTS.
00131  M01S00124.0bf     +++|
00132  M01S00125.0bf     +++|
00133  M01S00126.0bf     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00134  M01S00127.0bf     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
00135  M01S00128.0bf     +++| FA       EQU    57          FNT RELATIVE ADDRESS
00136  M01S00129.0bf     +++|****
00137  M01S00130.0bf     +++|          TITLE  MAIN ROUTINE.
00138  M01S00131.0bf     +++| 0BF      SPACE  4
00139  M01S00132.0bf     +++|*         BGF - MAIN ROUTINE.
00140  M01S00133.0bf     +++|
00141  M01S00134.0bf     +++|
00142  M01S00135.0bf     +++|          ORG    5
00143  M01S00136.0bf     +++| BGF      SUBR               ENTRY/EXIT
00144  M01S00137.0bf     +++|          LDM    -1          SAVE OPTIONS
00145  M01S00138.0bf     +++|          STI    LA
00146  M01S00139.0bf     +++|          LPN    1
Line S00140 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00140.ns22000 ---|          ZJN    BGF1        IF NO RETURN ON NFL INCREASE
00148  M01S00004.ns22000 +++|          ZJN    BGF0        IF NO RETURN ON NFL INCREASE
00149  M01S00141.0bf     +++|          LCN    BGF6-BGF5   SET TO RETURN ON NFL INCREASE
00150  M01S00142.0bf     +++|          RAM    BGFA
00151  M01S00005.ns22000 +++|
00152  M01S00006.ns22000 +++|*         GET ACCESS LEVEL FOR FILE.
00153  M01S00007.ns22000 +++|
00154  M01S00008.ns22000 +++| BGF0     LDI    LA          GET PARAMETER WORD
00155  M01S00009.ns22000 +++|          SHN    21-11
00156  M01S00010.ns22000 +++|          PJN    BGF0.1      IF NO ACCESS LEVEL SPECIFIED
00157  M01S00011.ns22000 +++|          SHN    0-6-21+11   EXTRACT ACCESS LEVEL
00158  M01S00012.ns22000 +++|          LPN    7
00159  M01S00013.ns22000 +++|          UJN    BGF0.2      SAVE ACCESS LEVEL
00160  M01S00014.ns22000 +++|
00161  M01S00015.ns22000 +++| BGF0.1   LDD    CP          GET JOB ACCESS LEVEL
00162  M01S00016.ns22000 +++|          ADK    JSCW
00163  M01S00017.ns22000 +++|          CRD    CM
00164  M01S00018.ns22000 +++|          LDD    CM+1
00165  M01S00019.ns22000 +++|          SHN    -11
00166  M01S00020.ns22000 +++| BGF0.2   STD    T3          SAVE ACCESS LEVEL
00167  M01S00143.0bf     +++|
00168  M01S00144.0bf     +++|*         CREATE LOCAL FNT ENTRY.
00169  M01S00145.0bf     +++|
Line S00146 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00146.ns22000 ---| BGF1     LDD    FS          SAVE EQUIPMENT NUMBER AND FLAGS
00171  M01S00021.ns22000 +++| BGF1     LDD    FS          SAVE EST ORDINAL AND FLAGS
00172  M01S00147.0bf     +++|          STD    T2
00173  M01S00148.0bf     +++|          LDI    LA          GET SPECIAL FILE FLAG
00174  M01S00149.0bf     +++|          LPN    40
00175  M01S00150.0bf     +++|          LMN    CRFS        CREATE LOCAL FNT ENTRY SUBFUNCTION
00176  M01S00151.0bf     +++|          STD    CM+1
00177  M01S00152.0bf     +++|          LDD    MA          SET FILE NAME
00178  M01S00153.0bf     +++|          CWD    FN
00179  M01S00154.0bf     +++|          MONITOR  PLFM      PROCESS LOCAL FNT ENTRY
00180  M01S00155.0bf     +++|          LDD    CM+1        SET FNT ADDRESS
00181  M01S00156.0bf     +++|          STD    FA
00182  M01S00157.0bf     +++|          LDD    CM+4
00183  M01S00158.0bf     +++|          NJN    BGF2        IF FILE NOT CREATED
00184  M01S00159.0bf     +++|
00185  M01S00160.0bf     +++|*         PROCESS NEWLY CREATED FILE.
00186  M01S00161.0bf     +++|
00187  M01S00162.0bf     +++|          LDC    LOFT*100    SET FILE TYPE
00188  M01S00163.0bf     +++|          STD    FN+4
00189  M01S00164.0bf     +++|          LDN    ZERL        CLEAR FST INFORMATION
00190  M01S00165.0bf     +++|          CRD    FS
00191  M01S00166.0bf     +++|          LJM    SFT         SET FILE TYPE
00192  M01S00167.0bf     +++|
00193  M01S00168.0bf     +++|*         IF THE FILE IS FOUND, ADVANCE EXIT FROM ROUTINE.
00194  M01S00169.0bf     +++|
00195  M01S00170.0bf     +++| BGF2     SHN    21-0
00196  M01S00171.0bf     +++|          PJN    BGF3        IF NOT FILE ALREADY EXISTS STATUS
00197  M01S00172.0bf     +++|          NFA    FA,R        GET FNT ENTRY
00198  M01S00173.0bf     +++|          CRD    FN
00199  M01S00174.0bf     +++|          ADN    FSTL        GET FST ENTRY
00200  M01S00175.0bf     +++|          CRD    FS
00201  M01S00176.0bf     +++|          AOM    BGF         ADVANCE EXIT
00202  M01S00177.0bf     +++|          UJN    BGF5        EXIT
00203  M01S00178.0bf     +++|
00204  M01S00179.0bf     +++|*         PROCESS LOCAL FILE LIMIT (MAXIMUM NFL REACHED).
00205  M01S00180.0bf     +++|
00206  M01S00181.0bf     +++| BGF3     SHN    21-1-21+0+22
00207  M01S00182.0bf     +++|          PJN    BGF4        IF NOT LOCAL FILE LIMIT
00208  M01S00183.0bf     +++|          LDI    LA
00209  M01S00184.0bf     +++|          LPN    4
00210  M01S00185.0bf     +++|          NJN    BGF5        IF RETURN REQUESTED
00211  M01S00186.0bf     +++|          LDN    FLET        SET LOCAL FILE LIMIT ERROR FLAG
00212  M01S00187.0bf     +++|          STD    CM+1
00213  M01S00188.0bf     +++|          MONITOR  CEFM
00214  M01S00189.0bf     +++|          MONITOR  DPPM      DROP PP
00215  M01S00190.0bf     +++|          LJP    PPR         EXIT TO PP RESIDENT
00216  M01S00191.0bf     +++|
00217  M01S00192.0bf     +++|*         PROCESS NFL INCREASE.
00218  M01S00193.0bf     +++|
00219  M01S00194.0bf     +++| BGF4     LDD    CP          GET CURRENT NFL SIZE
00220  M01S00195.0bf     +++|          ADN    FLSW
00221  M01S00196.0bf     +++|          CRD    CM
00222  M01S00197.0bf     +++|          AOD    CM          REQUEST ADDITIONAL 100B WORDS
00223  M01S00198.0bf     +++|          RJM    NFL         REQUEST STORAGE INCREASE
00224  M01S00199.0bf     +++| BGFA     NJN    BGF6        IF NFL NOT ASSIGNED
00225  M01S00200.0bf     +++|*         NJN    BGF5        (RETURN ON NFL INCREASE)
00226  M01S00201.0bf     +++|          LJM    BGF1        RETRY CREATE OF FNT ENTRY
00227  M01S00202.0bf     +++|
00228  M01S00203.0bf     +++| BGF5     LJM    BGFX        EXIT
00229  M01S00204.0bf     +++|
00230  M01S00205.0bf     +++| BGF6     PJN    BGF7        IF WAITING FOR COMPLETION OF NFL INCREASE
00231  M01S00206.0bf     +++|          LDD    CP
00232  M01S00207.0bf     +++|          ADN    JCIW
00233  M01S00208.0bf     +++|          CRD    CM
00234  M01S00209.0bf     +++|          LDD    CM+3        CHECK FOR *DIS* JOB
00235  M01S00210.0bf     +++|          LPC    1000
00236  M01S00211.0bf     +++|          ADD    CM+2        CHECK FOR NON-ROLLABLE JOB
00237  M01S00212.0bf     +++|          NJN    BGF7        IF JOB NOT ROLLABLE
00238  M01S00213.0bf     +++|*         LDN    ROSR        JOB SCHEDULAR ROLLOUT OPTION
00239  M01S00214.0bf     +++|          ERRNZ  ROSR        CODE DEPENDS ON ZERO VALUE
00240  M01S00215.0bf     +++|          STD    CM+1        ROLLOUT THIS CONTROL POINT
00241  M01S00216.0bf     +++|          MONITOR  ROCM
00242  M01S00217.0bf     +++|          UJN    BGF8        CHECK RETURN OPTION
00243  M01S00218.0bf     +++|
00244  M01S00219.0bf     +++| BGF7     LDD    LA
00245  M01S00220.0bf     +++|          RAM    BGFB
00246  M01S00221.0bf     +++|          LDD    CP          CONSOLE MESSAGE *WAIT FNT SPACE.*
00247  M01S00222.0bf     +++|          ADN    MS2W
00248  M01S00223.0bf     +++|          CWM.   =C*WAIT FNT SPACE.*,TR
00249  M01S00224.0bf     +++| BGFB     EQU    *-1
00250  M01S00225.0bf     +++| BGF8     LDI    LA
00251  M01S00226.0bf     +++|          LPN    2
00252  M01S00227.0bf     +++|          NJN    BGF5        IF RETURN TO ENTER PP RECALL STACK
00253  M01S00228.0bf     +++|*         UJN    EPR         ENTER PP RECALL
00254  M01S00229.0bf     +++|          TITLE  SUBROUTINES.
00255  M01S00230.0bf     +++| EPR      SPACE  4,10
00256  M01S00231.0bf     +++|**        EPR - ENTER PP RECALL.
00257  M01S00232.0bf     +++|*
00258  M01S00233.0bf     +++|*         ENTRY  (IR - IR+4) = RECALL PARAMETERS.
00259  M01S00234.0bf     +++|*
00260  M01S00235.0bf     +++|*         EXIT   TO *PPR*.
00261  M01S00236.0bf     +++|*
00262  M01S00237.0bf     +++|*         USES   CM - CM+4.
00263  M01S00238.0bf     +++|*
00264  M01S00239.0bf     +++|*         MACROS LJP, MONITOR.
00265  M01S00240.0bf     +++|
00266  M01S00241.0bf     +++|
00267  M01S00242.0bf     +++| EPR      LDN    ZERL        ENTER DEFAULT TIMED RECALL
00268  M01S00243.0bf     +++|          CRD    CM
00269  M01S00244.0bf     +++|          LDN    NFIR        NFL INCREASE PENDING REASON CODE
00270  M01S00245.0bf     +++|          STD    CM
00271  M01S00246.0bf     +++|          LDD    MA          STORE PP CALL IN MESSAGE BUFFER
00272  M01S00247.0bf     +++|          CWD    IR
00273  M01S00248.0bf     +++|          ADN    1
00274  M01S00249.0bf     +++|          CWD    CM          STORE RECALL STACK REASON CODE
00275  M01S00250.0bf     +++|          MONITOR  RECM
00276  M01S00251.0bf     +++|          LJP    PPR         ENTER PP RESIDENT
Line S00252 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00252.ns22000 ---| SFT      SPACE  4,10
00278  M01S00022.ns22000 +++| SFT      SPACE  4,15
00279  M01S00253.0bf     +++|**        SFT - SET FILE TYPE.
00280  M01S00254.0bf     +++|*
00281  M01S00255.0bf     +++|*         EXIT   (T1) = RELOCATION ADDRESS.
00282  M01S00256.0bf     +++|*                (FN - FN+4) = FNT WORD.
00283  M01S00257.0bf     +++|*                (FS - FS+4) = FST WORD.
00284  M01S00258.0bf     +++|*                TO *AMS* IF NOT MS EQUIPMENT.
00285  M01S00259.0bf     +++|*                TO *PSI* IF MS EQUIPMENT.
00286  M01S00260.0bf     +++|*
00287  M01S00261.0bf     +++|*         USES   FN+4, FS, T1, CM - CM+4.
00288  M01S00262.0bf     +++|*
00289  M01S00263.0bf     +++|*         MACROS SFA.
00290  M01S00264.0bf     +++|
00291  M01S00265.0bf     +++|
00292  M01S00266.0bf     +++| SFT      LDC    TSFN-4      SET SPECIAL FILE ADDRESS
00293  M01S00267.0bf     +++|          ADD    LA
00294  M01S00268.0bf     +++|          STD    T1
00295  M01S00269.0bf     +++| SFT1     LDN    4           ADVANCE TABLE
00296  M01S00270.0bf     +++|          RAD    T1
00297  M01S00271.0bf     +++|          LDI    T1          CHECK ENTRY
00298  M01S00272.0bf     +++|          ZJN    SFT2        IF END OF TABLE
00299  M01S00273.0bf     +++|          LMD    FN          COMPARE NAMES
00300  M01S00274.0bf     +++|          NJN    SFT1        IF NAMES DO NOT MATCH
00301  M01S00275.0bf     +++|          LDM.   1,T1
00302  M01S00276.0bf     +++|          LMD    FN+1
00303  M01S00277.0bf     +++|          NJN    SFT1        IF NAMES DO NOT MATCH
00304  M01S00278.0bf     +++|          LDM.   2,T1
00305  M01S00279.0bf     +++|          LMD    FN+2
00306  M01S00280.0bf     +++|          NJN    SFT1        IF NAMES DO NOT MATCH
00307  M01S00281.0bf     +++|          LDM.   3,T1
00308  M01S00282.0bf     +++|          LMD    FN+3
00309  M01S00283.0bf     +++|          SCN    77
00310  M01S00284.0bf     +++|          NJN    SFT1        IF NAMES DO NOT MATCH
00311  M01S00285.0bf     +++| SFT2     LDD    T2          CHECK EQUIPMENT
00312  M01S00286.0bf     +++|          LPC    1777
00313  M01S00287.0bf     +++|          NJN    SFT3        IF EQUIPMENT SPECIFIED
00314  M01S00288.0bf     +++|          LDM.   3,T1        CHECK ASSIGNMENT BYTE
00315  M01S00289.0bf     +++|          LPN    40
00316  M01S00290.0bf     +++|          ZJN    SFT4        IF NOT TERMINAL ASSOCIATED FILE
00317  M01S00291.0bf     +++|          LDD    CP          GET JOB EJT ORDINAL
00318  M01S00292.0bf     +++|          ADN    TFSW
00319  M01S00293.0bf     +++|          CRD    CM
00320  M01S00294.0bf     +++|          SFA    EJT,CM      GET JOB EJT ENTRY ADDRESS
00321  M01S00295.0bf     +++|          ADN    SCLE
00322  M01S00296.0bf     +++|          CRD    CM
00323  M01S00297.0bf     +++|          LDD    CM          GET JOB ORIGIN TYPE
00324  M01S00298.0bf     +++|          LPN    17
00325  M01S00299.0bf     +++|          LMN    TXOT
00326  M01S00300.0bf     +++|          NJN    SFT4        IF NOT TERMINAL JOB
Line S00301 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00301.ns22000 ---|          LDN    TTEQ        TTY EQUIPMENT NUMBER
00328  M01S00023.ns22000 +++|          LDN    TTEQ        TTY EST ORDINAL
00329  M01S00302.0bf     +++| SFT3     LPC    777
00330  M01S00303.0bf     +++|          ZJN    SFT4        IF NO EQUIPMENT SPECIFIED
Line S00304 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00304.ns22000 ---|          STD    FS          SET EQUIPMENT NUMBER IN *FST*
00332  M01S00024.ns22000 +++|          STD    FS          SET EST ORDINAL IN FST
Line S00305 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00305.ns22000 ---|          ADM.   ESTS        READ *EST* ENTRY
00334  M01S00025.ns22000 +++|          SFA    EST         READ EST ENTRY
00335  M01S00026.ns22000 +++|          ADK    EQDE
00336  M01S00306.0bf     +++|          CRD    CM
00337  M01S00307.0bf     +++|          LDD    CM          CHECK FOR MASS STORAGE EQUIPMENT
00338  M01S00308.0bf     +++|          SHN    21-13
00339  M01S00309.0bf     +++|          PJN    PSI         IF NOT MASS STORAGE
00340  M01S00310.0bf     +++| SFT4     LDD    T2          CHECK REQUEST
00341  M01S00311.0bf     +++|          SHN    21-12
00342  M01S00312.0bf     +++|          MJN    PSI         IF MS SPACE NOT TO BE ASSIGNED
00343  M01S00313.0bf     +++|*         UJN    AMS         ALLOCATE MS SPACE
Line S00314 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00314.ns22000 ---| AMS      SPACE  4,10
00345  M01S00027.ns22000 +++| AMS      SPACE  4,15
00346  M01S00315.0bf     +++|**        AMS - ALLOCATE MASS STORAGE SPACE.
00347  M01S00316.0bf     +++|*
00348  M01S00317.0bf     +++|*         ENTRY  (T1) = RELOCATION ADDRESS.
00349  M01S00028.ns22000 +++|*                (T3) = FILE ACCESS LEVEL.
Line S00318 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00318.ns22000 ---|*                (FS) = EQUIPMENT NUMBER IF SPECIFIED.
00351  M01S00029.ns22000 +++|*                (FS) = EST ORDINAL IF SPECIFIED.
00352  M01S00319.0bf     +++|*
Line S00320 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00320.ns22000 ---|*         EXIT   (FS) = EQUIPMENT NUMBER.
00354  M01S00030.ns22000 +++|*         EXIT   (FS) = EST ORDINAL.
00355  M01S00321.0bf     +++|*                (FS+1) = FIRST TRACK FOR FILE.
00356  M01S00322.0bf     +++|*                TO *PSI*.
00357  M01S00323.0bf     +++|*
00358  M01S00324.0bf     +++|*         USES   FS, FS+1, CM - CM+4.
00359  M01S00325.0bf     +++|*
00360  M01S00326.0bf     +++|*         MACROS MONITOR.
00361  M01S00327.0bf     +++|
00362  M01S00328.0bf     +++|
00363  M01S00329.0bf     +++| AMS      LDN    ZERL        CLEAR PARAMETERS
00364  M01S00330.0bf     +++|          CRD    CM
Line S00331 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00331.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER IN REQUEST
00366  M01S00031.ns22000 +++|          LDD    FS          SET EST ORDINAL IN REQUEST
00367  M01S00332.0bf     +++|          STD    CM+1
00368  M01S00333.0bf     +++|          NJN    AMS1        IF EQUIPMENT
00369  M01S00334.0bf     +++|          LDM.   3,T1        SET MASS STORAGE ASSIGNMENT PARAMETER
00370  M01S00335.0bf     +++|          LPN    7
00371  M01S00336.0bf     +++|          STD    CM+2
00372  M01S00032.ns22000 +++|          LDD    T3          SET ACCESS LEVEL PARAMETER
00373  M01S00033.ns22000 +++|          ADN    40          SET ACCESS LEVEL FLAG PARAMETER
00374  M01S00034.ns22000 +++|          SHN    6
00375  M01S00035.ns22000 +++|          RAD    CM+3
00376  M01S00337.0bf     +++| AMS1     MONITOR RTCM       REQUEST TRACK CHAIN
00377  M01S00338.0bf     +++|          LDD    CM+1        SET EQUIPMENT
00378  M01S00001.ns2423  +++|          LPC    777         EST ORDINAL = 0 IF NO EQUIPMENT ASSIGNED
00379  M01S00339.0bf     +++|          STD    FS
00380  M01S00340.0bf     +++|          LDD    CM+4        SET FIRST TRACK
00381  M01S00341.0bf     +++|          STD    FS+1
00382  M01S00342.0bf     +++|*         UJN    PSI         PROCESS SPECIAL FILE STATUS
Line S00343 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00343.ns22000 ---| PSI      SPACE  4,10
00384  M01S00036.ns22000 +++| PSI      SPACE  4,15
00385  M01S00344.0bf     +++|**        PSI - PROCESS SPECIAL FILE STATUS.
00386  M01S00345.0bf     +++|*
00387  M01S00346.0bf     +++|*         ENTRY  (FN - FN+4) = FNT WORD.
00388  M01S00347.0bf     +++|*                (FS - FS+4) = FST WORD.
00389  M01S00037.ns22000 +++|*                (T3) = ACCESS LEVEL.
00390  M01S00348.0bf     +++|*
Line S00349 Modification History
M01 (Added by) 0bf
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00349.ns22000 ---|*         EXIT   UPDATED FNT/FST INFORMATION COPIED TO NFL.
00392  M01S00038.ns22000 +++|*         EXIT   UPDATED FNT/FST/FUT INFORMATION COPIED TO NFL.
00393  M01S00350.0bf     +++|*
00394  M01S00351.0bf     +++|*         USES   CM - CM+4.
00395  M01S00352.0bf     +++|*
00396  M01S00353.0bf     +++|*         MACROS NFA.
00397  M01S00354.0bf     +++|
00398  M01S00355.0bf     +++|
00399  M01S00356.0bf     +++| PSI      LDD    CP          CHECK FOR JOB WITH SSJ= BLOCK
00400  M01S00357.0bf     +++|          ADC    SEPW
00401  M01S00358.0bf     +++|          CRD    CM
00402  M01S00359.0bf     +++|          LDD    CM+3
00403  M01S00360.0bf     +++|          LPN    37
00404  M01S00361.0bf     +++|          ADD    CM+4
00405  M01S00362.0bf     +++|          ZJN    PSI1        IF NO SSJ= ADDRESS SPECIFIED
00406  M01S00363.0bf     +++|          LDN    SSST        SET SPECIAL SYSTEM FILE
00407  M01S00364.0bf     +++|          UJN    PSI2        COMPLETE FNT/FST
00408  M01S00365.0bf     +++|
00409  M01S00366.0bf     +++| PSI1     LDD    CP          CHECK FOR USER FILE PRIVACY
00410  M01S00367.0bf     +++|          ADN    JCIW
00411  M01S00368.0bf     +++|          CRD    CM
00412  M01S00369.0bf     +++|          LDD    CM+3        SET USER FILE PRIVACY STATUS
00413  M01S00370.0bf     +++|          SHN    0-7
00414  M01S00371.0bf     +++|          LPN    1
00415  M01S00372.0bf     +++|          ERRNZ  UPST-1      ADJUST CODE IF VALUE CHANGES
00416  M01S00373.0bf     +++| PSI2     RAD    FN+4
00417  M01S00374.0bf     +++|          NFA    FA,R        STORE FNT ENTRY
00418  M01S00375.0bf     +++|          CWD    FN
00419  M01S00376.0bf     +++|          ADN    FSTL        STORE FST WORD
00420  M01S00377.0bf     +++|          CWD    FS
00421  M01S00039.ns22000 +++|          ADN    FUTL-FSTL   GET FUT WORD
00422  M01S00040.ns22000 +++|          CRD    CM
00423  M01S00041.ns22000 +++|          LDD    T3          SET ACCESS LEVEL IN FUT
00424  M01S00042.ns22000 +++|          RAD    CM+2
00425  M01S00043.ns22000 +++|          NFA    FA,R        REPLACE FUT WORD
00426  M01S00044.ns22000 +++|          ADN    FUTL
00427  M01S00045.ns22000 +++|          CWD    CM
00428  M01S00378.0bf     +++|          LDN    0           SET EXIT
00429  M01S00379.0bf     +++|          LJM    BGFX        RETURN
00430  M01S00380.0bf     +++| TSFN     SPACE  4,10
00431  M01S00381.0bf     +++|**        TSFN - TABLE OF SPECIAL FILE NAMES.
00432  M01S00382.0bf     +++|*         ENTRY = 5 WORDS.
00433  M01S00383.0bf     +++|*
00434  M01S00384.0bf     +++|*T        42/ FILE NAME,1/T,2/,3/MS
Figure

02345629MST FILE NAME3047 FILE NAME

00435  M01S00385.0bf     +++|*         T      TERMINAL FILE ASSIGNMENT
00436  M01S00386.0bf     +++|*         MS     RTCM MASS STORAGE ALLOCATION PARAMETER.
00437  M01S00387.0bf     +++|
00438  M01S00388.0bf     +++| TSFN     BSS    0
00439  M01S00389.0bf     +++|
00440  M01S00390.0bf     +++|          VFD    42/0LINPUT,1/1,2/0,3/LOCS
00441  M01S00391.0bf     +++|          VFD    42/0LOUTPUT,1/1,2/0,3/OUTS
00442  M01S00392.0bf     +++|          VFD    42/0LPUNCH,3/0,3/OUTS
00443  M01S00393.0bf     +++|          VFD    42/0LPUNCHB,3/0,3/OUTS
00444  M01S00394.0bf     +++|          VFD    42/0LP8,3/0,3/OUTS
00445  M01S00395.0bf     +++|          VFD    42/0LLGO,3/0,3/LGOS
00446  M01S00396.0bf     +++|          VFD    42/0,3/0,3/LOCS  ALL SCRATCH FILES
00447  M01S00397.0bf     +++|          SPACE  4,10
00448  M01S00398.0bf     +++|**        EJT MANAGED TABLE PROCESSOR.
00449  M01S00399.0bf     +++|
00450  M01S00400.0bf     +++|
00451  M01S00401.0bf     +++|          CEJT
00452  M01S00402.0bf     +++| NFI      SPACE  4
00453  M01S00403.0bf     +++|**        COMMON DECK.
00454  M01S00404.0bf     +++|
00455  M01S00405.0bf     +++|
00456  M01S00406.0bf     +++|*CALL     COMPNFL
00457  M01S00407.0bf     +++|          SPACE  4,10
00458  M01S00408.0bf     +++|          OVERFLOW 5,ZBFL
00459  M01S00409.0bf     +++|          END
cdc/nos2.source/opl.opl871/deck/0bf.txt ยท Last modified: by 127.0.0.1