User Tools

Site Tools


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

Deck SFM

26 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.sfm     +++|          IDENT  SFM,SFM
00002  M01S00002.sfm     +++|          PERIPH
00003  M01S00003.sfm     +++|          BASE   MIXED
00004  M01S00004.sfm     +++|          SST
00005  M01S00005.sfm     +++| STI$     EQU    1           SET UNCONDITIONAL RETURN FROM *COMPSTI*
00006  M01S00006.sfm     +++|*COMMENT  SFM - SYSTEM FILE MANAGER.
Line S00007 Modification History
M01 (Added by) sfm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.sfm     +++|          TITLE  SFM - SYSTEM FILE MANAGER.
00010  M01S00009.sfm     +++|          SPACE  4
00011  M01S00010.sfm     +++|***       SFM - SYSTEM FILE MANAGER.
00012  M01S00011.sfm     +++|*         G. R. MANSFIELD.  70/10/02.
00013  M01S00012.sfm     +++|*         R. A. JAPS.        75/01/02.
00014  M01S00013.sfm     +++|*         S. L. KSANDER.     75/05/26.
00015  M01S00014.sfm     +++|*         P. D. HAAS.        79/05/23.
00016  M01S00015.sfm     +++|          SPACE  4
00017  M01S00016.sfm     +++|***              SFM PERFORMS VARIOUS FILE MANAGING TASKS FOR A JOB.
00018  M01S00017.sfm     +++|          SPACE  4
00019  M01S00018.sfm     +++|***       CALL.
00020  M01S00019.sfm     +++|*
00021  M01S00020.sfm     +++|*
00022  M01S00021.sfm     +++|*T        18/ *SFM*,1/,1/1,4/,12/ CODE,6/,18/ FET
Figure

01718232429 FET CODE3035363940414259 CODE1 *SFM*

00023  M01S00022.sfm     +++|*         CODE   FUNCTION CODE
00024  M01S00023.sfm     +++|*         FET    ADDRESS OF FET
00025  M01S00024.sfm     +++|*
00026  M01S00025.sfm     +++|*T FET    42/ LFN , 17/  , 1/0
Figure FET

011718290 LFN 3059 LFN

00027  M01S00026.sfm     +++|*T,FET+1  12/ ET , 3/  , 1/E, 26/   , 18/ FIRST
Figure FET+1

0171829 FIRST 30434445474859 E ET

00028  M01S00027.sfm     +++|*T,FET+2  42/  , 18/  IN
Figure FET+2

0171829 IN 3059

00029  M01S00028.sfm     +++|*T,FET+3  42/  , 18/  OUT
Figure FET+3

0171829 OUT 3059

00030  M01S00029.sfm     +++|*T,FET+4  42/  , 18/ LIMIT
Figure FET+4

0171829 LIMIT 3059

00031  M01S00030.sfm     +++|*T,FET+5  60/
Figure FET+5

0293059

00032  M01S00031.sfm     +++|*T,FET+6  60/
Figure FET+6

0293059

00033  M01S00032.sfm     +++|*T,FET+7  12/ EQ, 24/ , 12/ TY, 6/ , 6/ WI
Figure FET+7

0561112232429 WI TY 30474859 EQ

00034  M01S00033.sfm     +++|*
00035  M01S00034.sfm     +++|*         LFN = LOCAL FILE NAME.
00036  M01S00035.sfm     +++|*         ET  = EQUIPMENT TYPE.
00037  M01S00036.sfm     +++|*         E   = RETURN ERROR CODE.
00038  M01S00037.sfm     +++|*         EQ  = EST ORDINAL.
00039  M01S00038.sfm     +++|*         TY  = DAYFILE TYPE. (SEE COMSIOQ FOR DEFINED CODES).
00040  M01S00039.sfm     +++|*                1 = SYSTEM DAYFILE
00041  M01S00040.sfm     +++|*                2 = ACCOUNT DAYFILE
00042  M01S00041.sfm     +++|*                3 = ERRLOG DAYFILE
00043  M01S00042.sfm     +++|*                4 = MAINTENANCE LOG DAYFILE
00044  M01S00043.sfm     +++|*         WI  = WORD INDEX IN SECTOR (SETDI).
00045  M01S00044.sfm     +++|*
00046  M01S00045.sfm     +++|*         RETURN.
00047  M01S00046.sfm     +++|*
00048  M01S00047.sfm     +++|*T FET    42/  *FILE NAME*,8/  EC,9/,1/1
Figure FET

019101718291 EC *FILE NAME*3059 *FILE NAME*

00049  M01S00048.sfm     +++|*         EC     ERROR CODE
00050  M01S00049.sfm     +++|          SPACE  4
00051  M01S00050.sfm     +++|***       DAYFILE MESSAGES.
00052  M01S00051.sfm     +++|*
00053  M01S00052.sfm     +++|*
00054  M01S00053.sfm     +++|*         * SFM ARGUMENT ERROR.*
00055  M01S00054.sfm     +++|*                ARGUMENT TO SFM WAS OUT OF RANGE.
00056  M01S00055.sfm     +++|*
00057  M01S00056.sfm     +++|*         * SFM BML MESSAGE LENGTH ERROR.*
00058  M01S00057.sfm     +++|*                BML MESSAGE LENGTH IS = 0, OR .GT. 6.
00059  M01S00058.sfm     +++|*
00060  M01S00059.sfm     +++|*         * SFM INCORRECT REQUEST.*
00061  M01S00060.sfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS -
00062  M01S00061.sfm     +++|*                1. SFM NOT CALLED WITH AUTO RECALL.
00063  M01S00062.sfm     +++|*                2. FUNCTION CODE OUT OF RANGE.
00064  M01S00063.sfm     +++|*                3. USER DOES NOT HAVE SYSTEM ORIGIN PRIVILEGES.
00065  M01S00064.sfm     +++|*                4. CALLING PROGRAM IS NOT SSJ=.
00066  M01S00065.sfm     +++|*
00067  M01S00066.sfm     +++|*         * SFM INCORRECT DAYFILE CODE.*
00068  M01S00067.sfm     +++|*                DAYFILE CODE PASSED IN THE FET WAS NOT WITHIN RANGE.
00069  M01S00068.sfm     +++|*
00070  M01S00069.sfm     +++|*         * SFM INCORRECT EQUIPMENT.*
00071  M01S00070.sfm     +++|*                EQUIPMENT NOT WITHIN EST OR NOT MASS STORAGE.
00072  M01S00071.sfm     +++|*
00073  M01S00072.sfm     +++|*         * SFM FILE NOT FOUND.*
00074  M01S00073.sfm     +++|*                REQUESTED FILE WAS NOT FOUND.
00075  M01S00074.sfm     +++|*
00076  M01S00075.sfm     +++|*         * SFM DUPLICATE FILE FOUND.*
00077  M01S00076.sfm     +++|*                THE REQUESTED FILE IS ALREADY ATTACHED TO THE
00078  M01S00077.sfm     +++|*                CONTROL POINT.
00079  M01S00078.sfm     +++|*
00080  M01S00079.sfm     +++|*         * SFM FILE NOT ON MASS STORAGE.*
00081  M01S00080.sfm     +++|*                SELF EXPLANATORY.
00082  M01S00081.sfm     +++|*
00083  M01S00082.sfm     +++|*         * SFM I/O SEQUENCE ERROR.*
00084  M01S00083.sfm     +++|*                ACTION HAS BEEN REQUESTED ON A BUSY FILE.
00085  M01S00084.sfm     +++|*
00086  M01S00085.sfm     +++|*         * SFM FILE EMPTY.*
00087  M01S00086.sfm     +++|*                SELF EXPLANATORY.
00088  M01S00087.sfm     +++|*
00089  M01S00088.sfm     +++|*         * SFM FILE NAME ERROR.*
00090  M01S00089.sfm     +++|*                FILE NAME, LFN, PASSED THROUGH FET IS NOT A
00091  M01S00090.sfm     +++|*                VALID FILE NAME.
00092  M01S00091.sfm     +++|*
00093  M01S00092.sfm     +++|*         * SFM FNT FULL.*
00094  M01S00093.sfm     +++|*                A FAST ATTACH FILE COULD NOT BE CREATED BECAUSE
00095  M01S00094.sfm     +++|*                THE FNT WAS FULL.
00096  M01S00095.sfm     +++|*
00097  M01S00096.sfm     +++|*         * SFM INCORRECT FILE TYPE.*
00098  M01S00097.sfm     +++|*                FILE MUST BE LOCAL FOR SYSTEM FILE AND DIRECT
00099  M01S00098.sfm     +++|*                ACCESS FOR FAST ATTACH FILE.
00100  M01S00099.sfm     +++|*
00101  M01S00100.sfm     +++|*         * SFM DIRECT ACCESS FILE ERROR.*
00102  M01S00101.sfm     +++|*                ERROR WAS ENCOUNTERED ON SYSTEM SECTOR OF A DIRECT
00103  M01S00102.sfm     +++|*                ACCESS FILE.
00104  M01S00103.sfm     +++|*
00105  M01S00104.sfm     +++|*         *  XXXXXXX TERMINATED.*
00106  M01S00105.sfm     +++|*                THE DAYFILE XXXXXXX, HAS BEEN TERMINATED.
00107  M01S00106.sfm     +++|*                (ISSUED TO SYSTEM AND CONTROL POINT DAYFILES).
00108  M01S00107.sfm     +++|*
00109  M01S00108.sfm     +++|*         * DAYFILE TERMINATED.*
00110  M01S00109.sfm     +++|*                SELF EXPLANATORY. (ISSUED TO TERMINATED DAYFILE).
00111  M01S00110.sfm     +++|*
00112  M01S00111.sfm     +++|*         * SFM UNABLE TO INTERLOCK DEVICE.*
00113  M01S00112.sfm     +++|*                REQUEST WAS NOT PERFORMED BECAUSE DEVICE COULD
00114  M01S00113.sfm     +++|*                NOT BE INTERLOCKED.
00115  M01S00114.sfm     +++|*
00116  M01S00115.sfm     +++|*         * SFM TRACK INTERLOCK ERROR.*
00117  M01S00116.sfm     +++|*                CAN INDICATE ONE OF THE FOLLOWING CONDITIONS.
00118  M01S00117.sfm     +++|*                1. TRACK WAS INTERLOCKED WHEN IT SHOULD NOT
00119  M01S00118.sfm     +++|*                   HAVE BEEN.
00120  M01S00119.sfm     +++|*                2. TRACK WAS NOT INTERLOCKED WHEN IT SHOULD
00121  M01S00120.sfm     +++|*                   HAVE BEEN.
00122  M01S00121.sfm     +++|*
00123  M01S00122.sfm     +++|*         * SFM SYSTEM SECTOR ERROR.*
00124  M01S00123.sfm     +++|*                AN ERROR HAS BEEN ENCOUNTERED WHILE ATTEMPTING
00125  M01S00124.sfm     +++|*                TO READ A SYSTEM SECTOR.
00126  M01S00125.sfm     +++|*
00127  M01S00126.sfm     +++|*         * SFM GLOBAL FAST ATTACH LIMIT.*
00128  M01S00127.sfm     +++|*                THIS MESSAGE IS ISSUED WHEN A REQUEST IS
00129  M01S00128.sfm     +++|*                MADE TO ENTER A GLOBAL FAST ATTACH FILE
00130  M01S00129.sfm     +++|*                AND NO SPACE IS AVAILABLE IN THE *FAT*.
00131  M01S00130.sfm     +++|*
00132  M01S00131.sfm     +++|*         * SFM ABORTED.*
00133  M01S00132.sfm     +++|*                ERROR FLAG WAS SET AT SFM,S CONTROL POINT.
00134  M01S00133.sfm     +++|*
00135  M01S00134.sfm     +++|*         * SFM UNRECOVERABLE LINK DEVICE ERROR.*
00136  M01S00135.sfm     +++|*                READ OR WRITE ERROR WHEN ATTEMPTING TO UPDATE
00137  M01S00136.sfm     +++|*                *FAT* ENTRIES ON LINK DEVICE.
00138  M01S00137.sfm     +++|*
00139  M01S00138.sfm     +++|*         * SFM FAST ATTACH SYSTEM SECTOR ERROR.*
00140  M01S00139.sfm     +++|*                AN UNRECOVERABLE ERROR WAS DETECTED WHEN TRYING TO
00141  M01S00140.sfm     +++|*                READ THE SYSTEM SECTOR OF THE FILE BEING ENTERED
00142  M01S00141.sfm     +++|*                INTO FAST ATTACH STATUS.  THE FILE WAS ENTERED,
00143  M01S00142.sfm     +++|*                HOWEVER, THE SYSTEM SECTOR POINTERS WERE NOT SET.
00144  M01S00143.sfm     +++|*                THIS FILE MAY NOT BE DUMPED PROPERLY BY *PFDUMP*
00145  M01S00144.sfm     +++|*                WHEN THIS OCCURS.
00146  M01S00145.sfm     +++|*
00147  M01S00146.sfm     +++|*         * SFM LINK FAST ATTACH FILE NOT FOUND.*
00148  M01S00147.sfm     +++|*                AN ATTEMPT TO LINK TO AN EXISTING FAST ATTACH FILE
00149  M01S00148.sfm     +++|*                WAS UNSUCCESSFUL BECAUSE THE FILE WAS NOT FOUND
00150  M01S00149.sfm     +++|*                IN THE *FAT*.
00151  M01S00150.sfm     +++|*
00152  M01S00151.sfm     +++|*         * SFM FAMILY STILL ACTIVE.*
00153  M01S00152.sfm     +++|*                AN ATTEMPT HAS BEEN MADE TO REMOVE A FAST ATTACH FILE
00154  M01S00153.sfm     +++|*                FROM A FAMILY WHILE ACTIVITY STILL EXISTS WITHIN
00155  M01S00154.sfm     +++|*                THAT FAMILY.
00156  M01S00155.sfm     +++|*
00157  M01S00156.sfm     +++|*         THE FOLLOWING ERROR MESSAGES ARE ISSUED IF THE *EP* BIT
00158  M01S00157.sfm     +++|*         IS NOT SET. OTHERWISE, THE SPECIFIED ERROR CODE IS
00159  M01S00158.sfm     +++|*         RETURNED TO FET+0.  ERRORS FOR THOSE FUNCTIONS WHICH
00160  M01S00159.sfm     +++|*         HAVE ONLY A ONE-WORD PARAMETER BLOCK WILL ALWAYS BE
00161  M01S00160.sfm     +++|*         PROCESSED AS IF *EP* HAD BEEN SET.  (THESE ERRORS
00162  M01S00161.sfm     +++|*         ARE DOCUMENTED BELOW IN PARENTHESES.)
00163  M01S00162.sfm     +++|*
00164  M01S00163.sfm     +++|*         * SFM DAYFILE BUSY.*
00165  M01S00164.sfm     +++|*                EC = 1. THE DAYFILE IS CURRENTLY BUSY.
00166  M01S00165.sfm     +++|*
00167  M01S00166.sfm     +++|*         * SFM MASS STORAGE NOT AVAILABLE.*
00168  M01S00167.sfm     +++|*                EC = 2. MASS STORAGE IS NOT AVAILABLE ON THE
00169  M01S00168.sfm     +++|*                SPECIFIED DEVICE.
00170  M01S00169.sfm     +++|*
00171  M01S00170.sfm     +++|*         * SFM FILE NOT FOUND.*
00172  M01S00171.sfm     +++|*                EC = 3. THE FILE FOR WHICH ACTION HAS BEEN
00173  M01S00172.sfm     +++|*                REQUESTED CAN NOT BE FOUND.
00174  M01S00173.sfm     +++|*
00175  M01S00174.sfm     +++|*         * SFM UNCORRECTABLE RMS ERROR.*
00176  M01S00175.sfm     +++|*                EC = 4. AN UNCORRECTABLE RMS ERROR HAS BEEN DETECTED
00177  M01S00176.sfm     +++|*                DURING AN I/O OPERATION.
00178  M01S00177.sfm     +++|*
00179  M01S00178.sfm     +++|*         + *CPD* NOT ACTIVE.+
00180  M01S00179.sfm     +++|*                EC = 5. *SFM* WAS CALLED TO SET THE *CPD* DROP
00181  M01S00180.sfm     +++|*                FLAG WHEN *CPD* WAS NOT ACTIVE.
00182  M01S00181.sfm     +++|*
00183  M01S00182.sfm     +++|*         * SFM - LID TABLE TOO LONG FOR BUFFER.*
00184  M01S00183.sfm     +++|*                EC = 6.  AN ATTEMPT WAS MADE TO GET A COPY OF THE
00185  M01S00184.sfm     +++|*                LID TABLE BUT THE LIDT WAS LARGER THAN THE CALLER-S
00186  M01S00185.sfm     +++|*                BUFFER.
00187  M01S00186.sfm     +++|*
00188  M01S00187.sfm     +++|*         (LID UNKNOWN OR NOT LEGAL.)
00189  M01S00188.sfm     +++|*                EC=7. THE SPECIFIED LID WAS NOT FOUND IN THE
00190  M01S00189.sfm     +++|*                LID TABLE, OR IS NOT EXACTLY 3 CHARACTERS LONG.
00191  M01S00190.sfm     +++|*
00192  M01S00191.sfm     +++|*         ( INCORRECT LID ATTRIBUTES.)
00193  M01S00192.sfm     +++|*                EC=10.   THE SPECIFIED ATTRIBUTES ARE NOT CORRECT FOR
00194  M01S00193.sfm     +++|*                THE SPECIFIED LID.
00195  M01S00194.sfm     +++|*
00196  M01S00195.sfm     +++|*         ( CURRENT ATTRIBUTES NOT IN LID TABLE.)
00197  M01S00196.sfm     +++|*                EC = 11.  THE CURRENT ATTRIBUTES SPECIFIED DO NOT
00198  M01S00197.sfm     +++|*                MATCH THOSE CURRENTLY IN THE LID TABLE FOR THE
00199  M01S00198.sfm     +++|*                SPECIFIED LID.
00200  M01S00199.sfm     +++|*
00201  M01S00200.sfm     +++|*         ( LID TABLE OVERFLOW.)
00202  M01S00201.sfm     +++|*                EC = 12.  THE SPECIFIED NEW LID CANNOT BE ADDED TO THE
00203  M01S00202.sfm     +++|*                LID TABLE, SINCE THE LID TABLE IS ALREADY FULL.
00204  M01S00203.sfm     +++|*
00205  M01S00204.sfm     +++|*         ( TOO MANY HOST LIDS.)
00206  M01S00205.sfm     +++|*                EC = 13.  THE SPECIFIED NEW HOST LID CANNOT BE ADDED
00207  M01S00206.sfm     +++|*                TO THE LID TABLE, SINCE THE TABLE ALREADY CONTAINS
00208  M01S00207.sfm     +++|*                THE MAXIMUM NUMBER OF HOST LIDS.
00209  M01S00208.sfm     +++|*
00210  M01S00209.sfm     +++|*         ( INCORRECT SUBFUNCTION CODE.)
00211  M01S00210.sfm     +++|*                EC = 14.  THE SPECIFIED SUBFUNCTION IS NOT DEFINED FOR
00212  M01S00211.sfm     +++|*                THIS FUNCTION.
00213  M01S00212.sfm     +++|*
00214  M01S00213.sfm     +++|*         ( INCORRECT NETWORK STATUS PARAMETER.)
00215  M01S00214.sfm     +++|*                EC = 15.  THE SPECIFIED NETWORK STATUS IS NOT VALID.
00216  M01S00215.sfm     +++|*
00217  M01S00216.sfm     +++|*         ( CHECK PARAMETER BLOCK ENTRIES FOR ERROR.)
00218  M01S00217.sfm     +++|*                EC = 16.  AT LEAST ONE PARAMETER BLOCK ENTRY COULD NOT
00219  M01S00218.sfm     +++|*                BE PROCESSED DUE TO AN ERROR DETECTED.  THE CALLER MAY
00220  M01S00219.sfm     +++|*                NEED TO CHECK EACH PARAMETER ENTRY (BYTE 4) TO DETER-
00221  M01S00220.sfm     +++|*                MINE WHICH ONES WERE NOT PROCESSED, AND WHY.
00222  M01S00221.sfm     +++|          SPACE  4
00223  M01S00222.sfm     +++|***       ACCOUNT FILE MESSAGES.
00224  M01S00223.sfm     +++|*
00225  M01S00224.sfm     +++|*
00226  M01S00225.sfm     +++|*         *SDCA, XXXXXX.XXXSECS.*
00227  M01S00226.sfm     +++|*                CPU MONITOR PROGRAM MODE TIME.
00228  M01S00227.sfm     +++|*
00229  M01S00228.sfm     +++|*         *SDCM, XXXXXX.XXXKUNS.*
00230  M01S00229.sfm     +++|*                NUMBER OF STORAGE MOVES.
00231  M01S00230.sfm     +++|*
00232  M01S00231.sfm     +++|*         *SDMR, XXXXXX.XXXKUNS.*
00233  M01S00232.sfm     +++|*                CONTROL POINTS MOVED.
00234  M01S00233.sfm     +++|*
00235  M01S00234.sfm     +++|*         *SDMS, XXXXXX.XXXKUNS.*
00236  M01S00235.sfm     +++|*                SECTORS ROLLED.
00237  M01S00236.sfm     +++|*
00238  M01S00237.sfm     +++|*         *SDNF, XXXXXX.XXXKUNS.*
00239  M01S00238.sfm     +++|*                NUMBER OF FL INCREASES TO NFL.
00240  M01S00239.sfm     +++|*
00241  M01S00240.sfm     +++|*         *SDSF, XXXXXX.XXXKUNS.*
00242  M01S00241.sfm     +++|*                NUMBER OF TIMES RECALL STACK IS FULL.
00243  M01S00242.sfm     +++|*
00244  M01S00243.sfm     +++|*         *SDTS, XXXXXX.XXXKUNS.*
00245  M01S00244.sfm     +++|*                JOBS ROLLED DUE TO TIME SLICE.
00246  M01S00245.sfm     +++|*
00247  M01S00246.sfm     +++|*         *SDTO, XXXXXX.XXXKUNS.*
00248  M01S00247.sfm     +++|*                JOBS ROLLED DUE TO SLICE LIMIT OR TIME SLICE
00249  M01S00248.sfm     +++|*                WITH OUTPUT PENDING.
00250  M01S00249.sfm     +++|*
00251  M01S00250.sfm     +++|*         *SDPX, XXXXXX.XXXKUNS.*
00252  M01S00251.sfm     +++|*                PP EXCHANGE PRIORITY REQUESTS.
00253  M01S00252.sfm     +++|*
00254  M01S00253.sfm     +++|*         *ABST, X...X.*
00255  M01S00254.sfm     +++|*                SYSTEM TITLE.
00256  M01S00255.sfm     +++|*
00257  M01S00256.sfm     +++|*         *ABSV, X...X.*
00258  M01S00257.sfm     +++|*                SYSTEM VERSION.
00259  M01S00258.sfm     +++|*
00260  M01S00259.sfm     +++|*         *ABSY,  YY/MM/DD.*
00261  M01S00260.sfm     +++|*                BEGINNING OF A NEW ACCOUNT DAYFILE DUE TO
00262  M01S00261.sfm     +++|*                INITIALIZATION OR TERMINATION ON DATE
00263  M01S00262.sfm     +++|*                YY/MM/DD.
00264  M01S00263.sfm     +++|*
00265  M01S00264.sfm     +++|*         *AESY,  YY/MM/DD.*
00266  M01S00265.sfm     +++|*                END OF AN ACCOUNT DAYFILE ON DATE YY/MM/DD.
00267  M01S00266.sfm     +++|          SPACE  4,10
00268  M01S00267.sfm     +++|***       ERROR LOG MESSAGES.
00269  M01S00268.sfm     +++|*
00270  M01S00269.sfm     +++|*
00271  M01S00270.sfm     +++|*         *CHXX,YYYYYYYYY.* = EQUIPMENT ON CHANNEL XX IS RUNNING WITH
00272  M01S00271.sfm     +++|*         FIRMWARE REVISION YYYYYYYYY.
00273  M01S00272.sfm     +++|*
00274  M01S00273.sfm     +++|*         *ETXXX, UYY,PS=ZZZZZZ.* = THE PACK ON PHYSICAL UNIT YY OF EST
00275  M01S00274.sfm     +++|*         ORDINAL XXX OF TYPE ET HAS A SERIAL NUMBER OF ZZZZZZ.
00276  M01S00275.sfm     +++|          SPACE  4
00277  M01S00276.sfm     +++|          SPACE  4
00278  M01S00277.sfm     +++|**        ROUTINES CALLED.
00279  M01S00278.sfm     +++|*
00280  M01S00279.sfm     +++|*
00281  M01S00280.sfm     +++|*         0BF - BEGIN FILE.
00282  M01S00281.sfm     +++|*         0DF - DROP FILE.
00283  M01S00282.sfm     +++|*         0TD - TERMINATE DAYFILE.
00284  M01S00283.sfm     +++|*         0CI - IDENTIFY FIRMWARE.
00285  M01S00284.sfm     +++|*         0PI - LIST PACK SERIAL NUMBER.
00286  M01S00285.sfm     +++|          SPACE  4
00287  M01S00286.sfm     +++|*CALL     COMPMAC
00288  M01S00287.sfm     +++|*CALL     COMSCPS
00289  M01S00288.sfm     +++|*CALL     COMSSSD
00290  M01S00289.sfm     +++|*CALL     COMSDFS
00291  M01S00290.sfm     +++|*CALL     COMSEJT
00292  M01S00291.sfm     +++|*CALL     COMSHIO
00293  M01S00292.sfm     +++|*CALL     COMSIOQ
00294  M01S00293.sfm     +++|*CALL     COMSLFD
00295  M01S00294.sfm     +++|*CALL     COMSMSC
00296  M01S00295.sfm     +++|*CALL     COMSMSP
00297  M01S00296.sfm     +++|*CALL     COMSMST
00298  M01S00001.252l678 +++|          QUAL   COMSMTX
00299  M01S00002.252l678 +++|*CALL     COMSMTX
00300  M01S00003.252l678 +++|          QUAL   *
00301  M01S00297.sfm     +++|*CALL     COMSPFM
00302  M01S00298.sfm     +++|*CALL     COMSPIM
00303  M01S00299.sfm     +++|*CALL     COMSSCD
00304  M01S00300.sfm     +++|*CALL     COMSSSE
00305  M01S00301.sfm     +++|*CALL     COMSSSJ
00306  M01S00001.282l826 +++|          QUAL   TFM
00307  M01S00002.282l826 +++|*CALL     COMSTFM
00308  M01S00003.282l826 +++|          QUAL   *
00309  M01S00302.sfm     +++|*CALL     COMSMMF
00310  M01S00303.sfm     +++|*CALL     COMSWEI
00311  M01S00304.sfm     +++|*CALL     COMSZOL
00312  M01S00305.sfm     +++|          LIST   X
00313  M01S00306.sfm     +++|*CALL     COMSSFM
00314  M01S00307.sfm     +++|          LIST   *
00315  M01S00308.sfm     +++|          SPACE  4,10
00316  M01S00309.sfm     +++|****      DIRECT LOCATION ASSIGNMENTS.
00317  M01S00310.sfm     +++|
00318  M01S00311.sfm     +++|
00319  M01S00312.sfm     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00320  M01S00313.sfm     +++| FT       EQU    20 - 21     FIRST
00321  M01S00314.sfm     +++| IN       EQU    22 - 23     IN
00322  M01S00315.sfm     +++| P0       EQU    25          OVERLAY PROCESSOR ADDRESS
00323  M01S00316.sfm     +++| HI       EQU    25          *FAT* INDEX OF AVAILABLE HOLE
00324  M01S00317.sfm     +++| QA       EQU    26          FNT ORDINAL
00325  M01S00318.sfm     +++| FC       EQU    27          *FAT* TABLE COUNT
00326  M01S00319.sfm     +++| TY       EQU    30          DAYFILE TYPE
00327  M01S00320.sfm     +++| DA       EQU    30 - 31     LINK DEVICE PARAMETERS
00328  M01S00321.sfm     +++| ID       EQU    32          MACHINE ID
00329  M01S00322.sfm     +++| CN       EQU    33 - 37     CM WORD BUFFER
00330  M01S00323.sfm     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
00331  M01S00324.sfm     +++| OT       EQU    40 - 41     OUT
00332  M01S00325.sfm     +++| LM       EQU    42 - 43     LIMIT
00333  M01S00326.sfm     +++| LS       EQU    45          LAST FET STATUS
00334  M01S00327.sfm     +++| JC       EQU    46          JOB COUNT (MAXIMUM)
00335  M01S00328.sfm     +++| MI       EQU    46          MACHINE INDEX
00336  M01S00329.sfm     +++| BA       EQU    47          *FAT* ITEM BASE ADDRESS
00337  M01S00330.sfm     +++| FA       EQU    57          ADDRESS OF FNT ENTRY
00338  M01S00331.sfm     +++| TE       EQU    60          NUMBER OF TABLE ENTRIES (FNT)
00339  M01S00332.sfm     +++| LO       EQU    61          LAST MASS STORAGE ORDINAL + 1
00340  M01S00333.sfm     +++| ES       EQU    62 - 66     CM WORD BUFFER (EST ENTRY)
00341  M01S00334.sfm     +++| FI       EQU    67          *FAT* INDEX OF ENTRY / HOLE
00342  M01S00335.sfm     +++|          SPACE  4,10
00343  M01S00336.sfm     +++|**        ASSEMBLY CONSTANTS.
00344  M01S00337.sfm     +++|
00345  M01S00338.sfm     +++|
00346  M01S00339.sfm     +++| ILKN     EQU    200000      INTERLOCK DAYFILE MESSAGE OPTION
00347  M01S00340.sfm     +++|****
00348  M01S00341.sfm     +++|          TITLE  MACRO DEFINITIONS.
00349  M01S00342.sfm     +++| ABORT    SPACE  4,10
00350  M01S00343.sfm     +++|**        ABORT - ABORT CONTROL POINT.
00351  M01S00344.sfm     +++|*
00352  M01S00345.sfm     +++|*         ABORT  ADDR
00353  M01S00346.sfm     +++|*
00354  M01S00347.sfm     +++|*         ENTRY  *ADDR* = MESSAGE ADDRESS.
00355  M01S00348.sfm     +++|*
00356  M01S00349.sfm     +++|*         EXIT   TO *ABT*.
00357  M01S00350.sfm     +++|
00358  M01S00351.sfm     +++|
00359  M01S00352.sfm     +++|          PURGMAC  ABORT
00360  M01S00353.sfm     +++|
00361  M01S00354.sfm     +++| ABORT    MACRO  A
00362  M01S00355.sfm     +++|          MACREF ABORT
00363  M01S00356.sfm     +++|          LDC    A
00364  M01S00357.sfm     +++|          LJM    ABT
00365  M01S00358.sfm     +++|          ENDM
00366  M01S00359.sfm     +++| ENTRY    SPACE  4,10
00367  M01S00360.sfm     +++|**        ENTRY - DEFINE OVERLAY ENTRY NAME.
00368  M01S00361.sfm     +++|*
00369  M01S00362.sfm     +++|*         ENTRY  NAME
00370  M01S00363.sfm     +++|*
00371  M01S00364.sfm     +++|*         ENTRY  *NAME* = NAME OF PROCESSOR ADDRESS.
00372  M01S00365.sfm     +++|
00373  M01S00366.sfm     +++|
00374  M01S00367.sfm     +++|          PURGMAC  ENTRY
00375  M01S00368.sfm     +++|
00376  M01S00369.sfm     +++|          MACRO  ENTRY,N
00377  M01S00370.sfm     +++|          MACREF ENTRY
00378  M01S00371.sfm     +++|          QUAL
00379  M01S00372.sfm     +++| N        EQU    *+1R".M"*10000B
00380  M01S00373.sfm     +++|          QUAL   ".O"
00381  M01S00374.sfm     +++| N        BSS    0
00382  M01S00375.sfm     +++|          ENDM
00383  M01S00376.sfm     +++| ERROR    SPACE  4,10
00384  M01S00377.sfm     +++|**        ERROR - RETURN ERROR CODE TO FET.
00385  M01S00378.sfm     +++|*
00386  M01S00379.sfm     +++|*         ERROR  EC
00387  M01S00380.sfm     +++|*
00388  M01S00381.sfm     +++|*         ENTRY  *EC* = ERROR CODE.
00389  M01S00382.sfm     +++|*
00390  M01S00383.sfm     +++|*         EXIT   TO *ERR*.
00391  M01S00384.sfm     +++|
00392  M01S00385.sfm     +++|
00393  M01S00386.sfm     +++|          PURGMAC  ERROR
00394  M01S00387.sfm     +++|
00395  M01S00388.sfm     +++| ERROR    MACRO  E
00396  M01S00389.sfm     +++|          MACREF ERROR
00397  M01S00390.sfm     +++|          LDN    E
00398  M01S00391.sfm     +++|          LJM    ERR
00399  M01S00392.sfm     +++|          ENDM
Line S00393 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00393.261l700 ---| FCN      SPACE  4,10
00401  M01S00001.261l700 +++| FCN      SPACE  4,50
00402  M01S00394.sfm     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00403  M01S00395.sfm     +++|*
Line S00396 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00396.261l700 ---|* TN      FCN    F,N,L,P,S,M,E
00405  M01S00002.261l700 +++|* TN      FCN    F,N,L,P,S,M,E,A
00406  M01S00397.sfm     +++|*
00407  M01S00398.sfm     +++|*         TN     TABLE NAME (FIRST CALL ONLY).
00408  M01S00399.sfm     +++|*         F      FUNCTION CODE.
00409  M01S00400.sfm     +++|*         N      NAME OF FUNCTION PROCESSOR.
00410  M01S00401.sfm     +++|*         L      REQUIRED FET LENGTH - 1.
00411  M01S00402.sfm     +++|*         P      CALLER MUST HAVE SYSTEM ORIGIN PRIVILEGES.
00412  M01S00403.sfm     +++|*         S      CALLER MUST BE SPECIAL SYSTEM JOB (SSJ).
00413  M01S00404.sfm     +++|*         M      MAINTENANCE ACCESS ALLOWED
00414  M01S00405.sfm     +++|*         E      EITHER SSJ= OR SYSTEM ORIGIN PRIVILEGES REQUIRED.
00415  M01S00003.261l700 +++|*         A      ALLOW ACCESS IF CALLER HAS PRIVILEGED ANALYST
00416  M01S00004.261l700 +++|*                VALIDATION AND IF *PRIVILEGED ANALYST MODE* ENABLED.
00417  M01S00406.sfm     +++|*
00418  M01S00407.sfm     +++|*         TABLE GENERATED.
00419  M01S00408.sfm     +++|*
Line S00409 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00409.261l700 ---|*T,TN     12/O,12/N,1/S,1/P,1/M,1/E,2/0,6/L
Figure TN

056789101112232429L0EMPSNO3035O

00421  M01S00005.261l700 +++|*T,TN     12/O,12/N,1/S,1/P,1/M,1/E,1/A,1/0,6/L
Figure TN

056789101112232429L0AEMPSNO3035O

00422  M01S00410.sfm     +++|*
00423  M01S00411.sfm     +++|*         O      OVERLAY NAME (LAST CHARACTER)
00424  M01S00412.sfm     +++|*         N      PROCESSOR ADDRESS
00425  M01S00413.sfm     +++|*         S      SSJ= REQUIRED
00426  M01S00414.sfm     +++|*         P      SYSTEM ORIGIN PRIVILEDGES REQUIRED
00427  M01S00415.sfm     +++|*         M      MAINTENANCE ACCESS ALLOWED
00428  M01S00416.sfm     +++|*         E      EITHER SSJ= OR SYSTEM ORIGIN PRIVILEGES REQUIRED.
00429  M01S00006.261l700 +++|*         A      ALLOW ACCESS IF CALLER HAS PRIVILEGED ANALYST
00430  M01S00007.261l700 +++|*                VALIDATION AND IF *PRIVILEGED ANALYST MODE* ENABLED.
00431  M01S00417.sfm     +++|*         L      REQUIRED FET LENGTH - 1
00432  M01S00418.sfm     +++|
00433  M01S00419.sfm     +++|
Line S00420 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00420.261l700 ---|          MACRO  FCN,TN,F,N,L,P,S,M,E
00435  M01S00008.261l700 +++|          MACRO  FCN,TN,F,N,L,P,S,M,E,A
00436  M01S00421.sfm     +++|          MACREF FCN
Line S00422 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00422.261l700 ---| .D       IFC    NE,$TN$$
00438  M01S00009.261l700 +++| .1       IFC    NE,$TN$$
00439  M01S00423.sfm     +++| TN       BSS    0
00440  M01S00424.sfm     +++| .T       SET    TN
Line S00425 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00425.261l700 ---| .D       ELSE
00442  M01S00010.261l700 +++| .1       ELSE
00443  M01S00426.sfm     +++|          ORG    .T+3*F
Line S00427 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00427.261l700 ---| .A       IFC    NE,$N$$
00445  M01S00011.261l700 +++| .2       IFC    NE,$N$$
00446  M01S00428.sfm     +++|          LOC    F
00447  M01S00429.sfm     +++|          CON    N/10000B,N-N/10000B*10000B
Line S00430 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00430.261l700 ---| .S       IFC    EQ,$S$SSJ$
00449  M01S00012.261l700 +++| .3       IFC    EQ,$S$SSJ$
00450  M01S00431.sfm     +++|          VFD    1/1
Line S00432 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00432.261l700 ---| .S       ELSE   1
00452  M01S00013.261l700 +++| .3       ELSE
00453  M01S00433.sfm     +++|          VFD    1/0
Line S00434 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00434.261l700 ---| .P       IFC    NE,$P$$
00455  M01S00014.261l700 +++| .3       ENDIF
00456  M01S00015.261l700 +++| .4       IFC    NE,$P$$
00457  M01S00435.sfm     +++|          VFD    1/1
Line S00436 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00436.261l700 ---| .P       ELSE   1
00459  M01S00016.261l700 +++| .4       ELSE
00460  M01S00437.sfm     +++|          VFD    1/0
Line S00438 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00438.261l700 ---| .M       IFC    NE,$M$$
00462  M01S00017.261l700 +++| .4       ENDIF
00463  M01S00018.261l700 +++| .5       IFC    NE,$M$$
00464  M01S00439.sfm     +++|          VFD    1/1
Line S00440 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00440.261l700 ---| .M       ELSE
00466  M01S00019.261l700 +++| .5       ELSE
00467  M01S00441.sfm     +++|          VFD    1/0
Line S00442 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00442.261l700 ---| .M       ENDIF
Line S00443 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00443.261l700 ---| .E       IFC    NE,$E$$
00470  M01S00020.261l700 +++| .5       ENDIF
00471  M01S00021.261l700 +++| .6       IFC    NE,$E$$
00472  M01S00444.sfm     +++|          VFD    1/1
Line S00445 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00445.261l700 ---| .E       ELSE
00474  M01S00022.261l700 +++| .6       ELSE
00475  M01S00446.sfm     +++|          VFD    1/0
Line S00447 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00447.261l700 ---| .E       ENDIF
Line S00448 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00448.261l700 ---|          VFD    2/0
00478  M01S00023.261l700 +++| .6       ENDIF
00479  M01S00024.261l700 +++| .7       IFC    NE,$A$$
00480  M01S00025.261l700 +++|          VFD    1/1
00481  M01S00026.261l700 +++| .7       ELSE
00482  M01S00027.261l700 +++|          VFD    1/0
00483  M01S00028.261l700 +++| .7       ENDIF
00484  M01S00029.261l700 +++|          VFD    1/0
00485  M01S00449.sfm     +++|          VFD    6/L
Line S00450 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00450.261l700 ---| .A       ENDIF
00487  M01S00030.261l700 +++| .2       ENDIF
00488  M01S00451.sfm     +++|          BSS    0
Line S00452 Modification History
M01 (Added by) sfm
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00452.261l700 ---| .D       ENDIF
00490  M01S00031.261l700 +++| .1       ENDIF
00491  M01S00453.sfm     +++|          ENDM
00492  M01S00454.sfm     +++|          SPACE  4,2
00493  M01S00455.sfm     +++| .N       SET                0
00494  M01S00456.sfm     +++| OVLB     MICRO  1,, 3S      BASE OVERLAY NAME
00495  M01S00457.sfm     +++| OVERLAY  SPACE  4,20
00496  M01S00458.sfm     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00497  M01S00459.sfm     +++|*
00498  M01S00460.sfm     +++|*         OVERLAY (TEXT),LOAD,NQ
00499  M01S00461.sfm     +++|*
00500  M01S00462.sfm     +++|*         ENTRY  *TEXT* = TEXT FOR SUBTITLE.
00501  M01S00463.sfm     +++|*                *LOAD* = IF SPECIFIED, DEFINE ORIGIN ADDRESS.
00502  M01S00464.sfm     +++|*                *NQ* = IF SPECIFIED, OVERLAY NOT QUALIFIED.
00503  M01S00465.sfm     +++|
00504  M01S00466.sfm     +++|          PURGMAC OVERLAY
00505  M01S00467.sfm     +++|
00506  M01S00468.sfm     +++| OVERLAY  MACRO  TEXT,LOAD,NQ
00507  M01S00469.sfm     +++|          QUAL
00508  M01S00470.sfm     +++|          NOREF  .N
00509  M01S00471.sfm     +++|          MACREF OVERLAY
00510  M01S00472.sfm     +++| .N       SET    .N+1
00511  M01S00473.sfm     +++| .M       MICRO  .N,1, ZYXWVUTSRQPONMLKJIHGFEDCBA
00512  M01S00474.sfm     +++| .O       MICRO  1,3 "OVLB"".M"
00513  M01S00475.sfm     +++|          IFC    EQ,*NQ**,1
00514  M01S00476.sfm     +++|          QUAL   ".O"
00515  M01S00477.sfm     +++|          TTL    SFM/".O" - TEXT
00516  M01S00478.sfm     +++|          IDENT  ".O",OVL    TEXT
00517  M01S00479.sfm     +++|          TITLE
00518  M01S00480.sfm     +++|*COMMENT  SFM - TEXT
Line S00481 Modification History
M01 (Added by) sfm
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00481.281l803 ---|          COMMENT COPYRIGHT  CONTROL DATA CORP., 1975.
00520  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00521  M01S00482.sfm     +++|          IFC    NE,*LOAD**
00522  M01S00483.sfm     +++|          ORG    LOAD
00523  M01S00484.sfm     +++|          ELSE   1
00524  M01S00485.sfm     +++|          ORG    OVLA
00525  M01S00486.sfm     +++| OVL      LJM    *
00526  M01S00487.sfm     +++|          UJN    OVL
00527  M01S00488.sfm     +++|          ENDM
00528  M01S00489.sfm     +++| PERR     SPACE  4,10
00529  M01S00490.sfm     +++|**        PERR - PUT ERROR CODE IN PARAMETER BLOCK ENTRY.
00530  M01S00491.sfm     +++|*
00531  M01S00492.sfm     +++|*         PERR   EC
00532  M01S00493.sfm     +++|*
00533  M01S00494.sfm     +++|*         ENTRY  *EC* = ERROR CODE.
00534  M01S00495.sfm     +++|*
00535  M01S00496.sfm     +++|*         EXIT   *EC* PLACED IN BYTE 4 OF PARAMETER BLOCK ENTRY
00536  M01S00497.sfm     +++|*                AND WORD REWRITTEN TO USER-S FL.
00537  M01S00498.sfm     +++|*
00538  M01S00499.sfm     +++|*         CALLS  /3SW/PER.
00539  M01S00500.sfm     +++|
00540  M01S00501.sfm     +++|
00541  M01S00502.sfm     +++|          PURGMAC  PERR
00542  M01S00503.sfm     +++|
00543  M01S00504.sfm     +++| PERR     MACRO  E
00544  M01S00505.sfm     +++|          MACREF PERR
00545  M01S00506.sfm     +++|          LDN    E
00546  M01S00507.sfm     +++|          RJM    PER
00547  M01S00508.sfm     +++|          ENDM
00548  M01S00509.sfm     +++| SUBSYST  SPACE  4,10
00549  M01S00510.sfm     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00550  M01S00511.sfm     +++|*
00551  M01S00512.sfm     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00552  M01S00513.sfm     +++|*
00553  M01S00514.sfm     +++|*         ENTRY  *ID* = SUBSYSTEM ID.
00554  M01S00515.sfm     +++|*
00555  M01S00516.sfm     +++|*         GENERATE TABLE OF *SSSL* BYTES AND MASKS.
00556  M01S00517.sfm     +++|*
00557  M01S00518.sfm     +++|*T        12/ BYTE, 12/ MASK
Figure

0111223 MASK BYTE

00558  M01S00519.sfm     +++|
00559  M01S00520.sfm     +++|
00560  M01S00521.sfm     +++|          PURGMAC  SUBSYST
00561  M01S00522.sfm     +++|
00562  M01S00523.sfm     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00563  M01S00524.sfm     +++| .SUB     RMT
00564  M01S00525.sfm     +++| .1       SET    MXSI-ID
00565  M01S00526.sfm     +++| .21      SET    .1/12D
00566  M01S00527.sfm     +++| .3       SET    4-.21       *SSSL* BYTE
00567  M01S00528.sfm     +++| .4       DECMIC .1-12D*.21
00568  M01S00529.sfm     +++| .5       SET    1S".4"      *SSSL* MASK
00569  M01S00530.sfm     +++|          INDEX  (MXSI*2-ID*2),(.3,.5)
00570  M01S00531.sfm     +++| .SUB     RMT
00571  M01S00532.sfm     +++| SUBSYST  ENDM
00572  M01S00533.sfm     +++|          TITLE  MAIN PROGRAM.
00573  M01S00534.sfm     +++| SFM      SPACE  4
00574  M01S00535.sfm     +++|**        SFM - MAIN PROGRAM.
00575  M01S00536.sfm     +++|
00576  M01S00537.sfm     +++|
00577  M01S00538.sfm     +++|          ORG    PPFW
00578  M01S00539.sfm     +++| SFM      RJM    PRS         PRESET PROGRAM
Line S00540 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00540.ns2357  ---| SFM0     LDC    0
Line S00541 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00541.ns2357  ---| SFME     EQU    *-1         (OVERLAY NAME)
Line S00542 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00542.ns2357  ---|          ZJN    SFM0.0      IF NO OVERLAY REQUIRED
00582  M01S00001.ns2357  +++| SFM1     LDC    0
00583  M01S00002.ns2357  +++| SFMA     EQU    *-1
00584  M01S00003.ns2357  +++|          ZJN    SFM2        IF NO OVERLAY LOAD
00585  M01S00543.sfm     +++|          LMC    2L"OVLB"    LOAD OVERLAY
00586  M01S00544.sfm     +++|          RJM    EXR
Line S00545 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00545.ns2357  ---| SFM0.0   LJM    *           PROCESS REQUEST
Line S00546 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00546.ns2357  ---| SFMA     EQU    *-1
00589  M01S00004.ns2357  +++| SFM2     LJM    *           PROCESS REQUEST
00590  M01S00005.ns2357  +++| SFMB     EQU    *-1
00591  M01S00547.sfm     +++|
Line S00548 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00548.242l642 ---| SFMX     LDD    FA
Line S00549 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00549.242l642 ---|          ZJN    SFM1        IF NO FNT ENTRY
Line S00550 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00550.242l642 ---|          AOD    FS+4        SET FILE NOT BUSY
Line S00551 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00551.242l642 ---|          NFA    FA,R        STORE FST INFORMATION
Line S00552 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00552.242l642 ---|          ADN    FSTL
Line S00553 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00553.242l642 ---|          CWD    FS
00598  M01S00001.242l642 +++| SFMX     RJM    CFB         SET FILE NOT BUSY
Line S00554 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00554.ns2357  ---| SFM1     RJM    GFE         READ FILE NAME
00600  M01S00006.ns2357  +++|          RJM    GFE         READ FILE NAME
00601  M01S00555.sfm     +++|          CRD    FN
00602  M01S00556.sfm     +++|          AOD    LS          SET FET NOT BUSY
00603  M01S00557.sfm     +++|          STD    FN+4
00604  M01S00558.sfm     +++|          LDD    FN+3
00605  M01S00559.sfm     +++|          SCN    77
00606  M01S00560.sfm     +++|          LMC    0
Line S00561 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00561.ns2357  ---| SFMB     EQU    *-1         (ERROR CODE)
00608  M01S00007.ns2357  +++| SFMC     EQU    *-1         (ERROR CODE)
00609  M01S00562.sfm     +++|          STD    FN+3
00610  M01S00563.sfm     +++|          RJM    GFE         STORE FET STATUS
00611  M01S00564.sfm     +++|          CWD    FN
Line S00565 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00565.ns2357  ---| SFMC     LDN    0           CHECK FOR SYSTEM SECTOR ERROR
Line S00566 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00566.ns2357  ---|*         LDN    1           (SET IF SYSTEM SECTOR ERROR)
Line S00567 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00567.ns2357  ---|          ZJN    SFM2        IF NO ERROR
00615  M01S00008.ns2357  +++| SFMD     LDN    0
00616  M01S00009.ns2357  +++|          ZJN    SFM3        IF NO SYSTEM SECTOR ERROR
00617  M01S00568.sfm     +++|          LDC    ERFS        * FAST ATTACH SYSTEM SECTOR ERROR.*
00618  M01S00569.sfm     +++|          RJM    DFM
Line S00570 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00570.ns2357  ---| SFM2     LDN    0           CHECK FOR LOCAL AREA CHECKPOINT
Line S00571 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00571.ns2357  ---|*         LDN    1           IF LOCAL AREA CHECKPOINT REQUESTED
Line S00572 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00572.ns2357  ---| SFMD     EQU    *-1
Line S00573 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00573.ns2357  ---|          ZJN    DPP         IF CHECKPOINT NOT REQUESTED
00623  M01S00010.ns2357  +++| SFM3     LDM    SFMF
00624  M01S00011.ns2357  +++|          ZJN    DPP         IF OPERATION COMPLETE
00625  M01S00012.ns2357  +++|          STD    T1
00626  M01S00574.sfm     +++|          LDD    T5
00627  M01S00575.sfm     +++|          STM    CKPA+3      SET EQUIPMENT IN REQUEST
00628  M01S00576.sfm     +++|          LDD    CP          SET CONTROL POINT
00629  M01S00577.sfm     +++|          SHN    -7
Line S00578 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00578.ns2357  ---|          RAM    CKPA+1
Line S00579 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00579.ns2357  ---|          LDD    IA          CALL *1CK*
Line S00580 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00580.ns2357  ---|          CWM    CKPA,ON
Line S00581 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00581.ns2357  ---|          EXECUTE  1CK,=
Line S00582 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00582.ns2357  ---|          UJN    SFM3        EXIT TO PP RESIDENT
00635  M01S00013.ns2357  +++|          RAM    1,T1
00636  M01S00014.ns2357  +++|          LDD    IA          STORE INPUT REGISTER
00637  M01S00015.ns2357  +++|          CWM    0,ON
00638  M01S00016.ns2357  +++| SFMF     EQU    *-1
00639  M01S00017.ns2357  +++|          EXECUTE  CPD,=
00640  M01S00018.ns2357  +++|          EXECUTE  1CK,=
00641  M01S00019.ns2357  +++|          UJN    SFM4        EXIT TO PP RESIDENT
00642  M01S00583.sfm     +++|
00643  M01S00584.sfm     +++| DPP      MONITOR DPPM       DROP PP
Line S00585 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00585.ns2357  ---| SFM3     LJM    PPR         EXIT TO PP RESIDENT
00645  M01S00020.ns2357  +++| SFM4     LJM    PPR         EXIT TO PP RESIDENT
00646  M01S00586.sfm     +++|
00647  M01S00587.sfm     +++| CKPA     VFD    18/3R1CK,6/40,12/4,24/0
00648  M01S00588.sfm     +++| ERFS     DATA   C* SFM FAST ATTACH SYSTEM SECTOR ERROR.*
00649  M01S00589.sfm     +++|
00650  M01S00590.sfm     +++| FETL     CON    0           FET LENGTH REQUIRED FOR FUNCTION
00651  M01S00591.sfm     +++|          TITLE  RESIDENT SUBROUTINES.
00652  M01S00592.sfm     +++| ABT      SPACE  4
00653  M01S00593.sfm     +++|**        ABT - ABORT JOB.
00654  M01S00594.sfm     +++|*
00655  M01S00595.sfm     +++|*         ENTRY  (A) = FWA OF MESSAGE.
00656  M01S00596.sfm     +++|*
00657  M01S00597.sfm     +++|*         EXIT   TO *ERR1*.
00658  M01S00598.sfm     +++|*                (DA) = ADDRESS OF MESSAGE.
00659  M01S00599.sfm     +++|*
00660  M01S00600.sfm     +++|*         CALLS  CFI.
00661  M01S00601.sfm     +++|
00662  M01S00602.sfm     +++|
00663  M01S00603.sfm     +++| ABT      BSS    0           ENTRY
00664  M01S00604.sfm     +++|          STD    DA
00665  M01S00605.sfm     +++|          LDC    0
00666  M01S00606.sfm     +++|*         LDC    1           (*DATI* INTERLOCK SET)
00667  M01S00607.sfm     +++|*         LDC    2           (*DATI* AND *FATI* INTERLOCK SET)
00668  M01S00608.sfm     +++| ABTB     EQU    *-1
00669  M01S00609.sfm     +++|          ZJN    ABT0        IF NO FLAG REGISTER INTERLOCKS SET
00670  M01S00610.sfm     +++|          LDN    DATI        CLEAR *DATI* INTERLOCK
00671  M01S00611.sfm     +++|          RJM    /3SY/CFI
00672  M01S00612.sfm     +++|          ZJN    ABT0        IF *FATI* INTERLOCK NOT SET
00673  M01S00613.sfm     +++|          LDN    FATI        CLEAR *FATI* INTERLOCK
00674  M01S00614.sfm     +++|          RJM    /3SY/CFI
00675  M01S00615.sfm     +++| ABT0     LDC    ABP
00676  M01S00616.sfm     +++|          UJN    ERR1        LOAD ERROR PROCESSING OVERLAY
00677  M01S00617.sfm     +++| ERR      SPACE  4,10
00678  M01S00618.sfm     +++|**        ERR - ERROR EXIT PROCESSOR.
00679  M01S00619.sfm     +++|*
00680  M01S00620.sfm     +++|*         ENTRY  (A) = ERROR CODE.
00681  M01S00621.sfm     +++|*
00682  M01S00622.sfm     +++|*         EXIT   TO *SFM0*.
00683  M01S00623.sfm     +++|*
00684  M01S00624.sfm     +++|*         USES   DA.
00685  M01S00625.sfm     +++|
00686  M01S00626.sfm     +++|
00687  M01S00627.sfm     +++| ERR      BSS    0           ENTRY
00688  M01S00628.sfm     +++|          STD    DA
00689  M01S00629.sfm     +++|          LDC    ERP
Line S00630 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00630.ns2357  ---| ERR1     STM    SFMA        SET PROCESSOR ADDRESS
Line S00631 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00631.ns2357  ---|          SHN    -14
Line S00632 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00632.ns2357  ---|          STM    SFME
Line S00633 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00633.ns2357  ---|          LJM    SFM0        LOAD ERROR PROCESSOR OVERLAY
00694  M01S00021.ns2357  +++| ERR1     STM    SFMB        SET PROCESSOR ADDRESS
00695  M01S00022.ns2357  +++|          SHN    -14
00696  M01S00023.ns2357  +++|          STM    SFMA
00697  M01S00024.ns2357  +++|          LJM    SFM1        LOAD ERROR PROCESSING OVERLAY
00698  M01S00634.sfm     +++| ERS      SPACE  4,10
00699  M01S00635.sfm     +++|**        ERS - ENTER PP RECALL STACK.
00700  M01S00636.sfm     +++|*
00701  M01S00637.sfm     +++|*         ENTRY  (A) = RECALL STACK REASON CODE.
00702  M01S00638.sfm     +++|*
00703  M01S00639.sfm     +++|*         EXIT   TO *PPR*.
00704  M01S00640.sfm     +++|*
00705  M01S00641.sfm     +++|*         USES   CM - CM+5.
00706  M01S00642.sfm     +++|*
00707  M01S00643.sfm     +++|*         MACROS MONITOR.
00708  M01S00644.sfm     +++|
00709  M01S00645.sfm     +++|
00710  M01S00646.sfm     +++| ERS      BSS    0           ENTRY
00711  M01S00647.sfm     +++|          STD    CM          SAVE RECALL STACK REASON CODE
00712  M01S00648.sfm     +++|          LDN    ZERL
00713  M01S00649.sfm     +++|          CRD    CM+1
00714  M01S00650.sfm     +++|          LDD    MA          RECALL *SFM*
00715  M01S00651.sfm     +++|          CWD    IR
00716  M01S00652.sfm     +++|          ADN    1
00717  M01S00653.sfm     +++|          CWD    CM
00718  M01S00654.sfm     +++|          MONITOR  RECM
00719  M01S00655.sfm     +++|          LJM    PPR         EXIT TO PP RESIDENT
00720  M01S00002.242l642 +++| CFB      SPACE  4,10
00721  M01S00003.242l642 +++|**        CFB - CLEAR FILE BUSY.
00722  M01S00004.242l642 +++|*
00723  M01S00005.242l642 +++|*         ENTRY  (FA) = FNT ADDRESS OF BUSY FILE.
00724  M01S00006.242l642 +++|*                (FS - FS+4) = FST INFORMATION.
00725  M01S00007.242l642 +++|*
00726  M01S00008.242l642 +++|*         EXIT   (A) = (FA) = 0.
00727  M01S00009.242l642 +++|*
00728  M01S00010.242l642 +++|*         MACROS NFA.
00729  M01S00011.242l642 +++|
00730  M01S00012.242l642 +++|
00731  M01S00013.242l642 +++| CFB      SUBR               ENTRY/EXIT
00732  M01S00014.242l642 +++|          LDD    FA
00733  M01S00015.242l642 +++|          ZJN    CFBX        IF NO FILE ASSIGNED
00734  M01S00016.242l642 +++|          AOD    FS+4
00735  M01S00017.242l642 +++|          NFA    FA,R        CLEAR FILE BUSY
00736  M01S00018.242l642 +++|          ADN    FSTL
00737  M01S00019.242l642 +++|          CWD    FS
00738  M01S00020.242l642 +++|          LDN    0           CLEAR FNT ADDRESS
00739  M01S00021.242l642 +++|          STD    FA
00740  M01S00022.242l642 +++|          UJN    CFBX        RETURN
00741  M01S00656.sfm     +++| DRF     SPACE   4,15
00742  M01S00657.sfm     +++|**        DRF - DROP FILE.
00743  M01S00658.sfm     +++|*
00744  M01S00659.sfm     +++|*         ENTRY  (FA) = INDEX OF FNT ENTRY.
00745  M01S00660.sfm     +++|*
Line S00661 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00661.242l642 ---|*         EXIT   (FA) = 0.
00747  M01S00023.242l642 +++|*         EXIT   (A) = (FA) = 0.
00748  M01S00024.242l642 +++|*
00749  M01S00025.242l642 +++|*         ERROR  TO *EER* IF MASS STORAGE DEVICE INACCESSIBLE.
00750  M01S00662.sfm     +++|*
00751  M01S00663.sfm     +++|*         CALLS  *0DF*.
00752  M01S00664.sfm     +++|
00753  M01S00665.sfm     +++|
Line S00026 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00026.ns2358  ---| DRF1     STD    FA          CLEAR FNT ADDRESS
Line S00027 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00027.ns2358  ---|
00756  M01S00666.sfm     +++| DRF      SUBR               ENTRY/EXIT
00757  M01S00667.sfm     +++|          LDN    1           SET *UNLOAD* FILE FLAG FOR *0DF*
00758  M01S00668.sfm     +++|          STM    OVL0-1
00759  M01S00669.sfm     +++|          EXECUTE 0DF,OVL0
Line S00670 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00670.242l642 ---|          LDN    0           CLEAR FNT INDEX
Line S00671 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00671.242l642 ---|          STD    FA
Line S00672 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00672.242l642 ---|          UJN    DRFX        RETURN
Line S00028 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00028.ns2358  ---|          ZJN    DRF1        IF FILE RELEASED
00764  M01S00001.ns2358  +++|          ZJN    DRFX        IF FILE RELEASED
00765  M01S00029.242l642 +++|*         UJN    EER         EVALUATE MASS STORAGE ERROR RETURN
00766  M01S00030.242l642 +++| EER      SPACE  4,15
00767  M01S00031.242l642 +++|**        EER - EVALUATE MASS STORAGE ERROR RETURN.
00768  M01S00032.242l642 +++|*
00769  M01S00033.242l642 +++|*         ENTRY  (T5) = EST ORDINAL.
00770  M01S00034.242l642 +++|*
00771  M01S00035.242l642 +++|*         EXIT   JOB IS ROLLED OUT TO WAIT FOR A DEVICE TO BECOME
00772  M01S00036.242l642 +++|*                ACCESSIBLE IF A NON-SUBSYSTEM JOB ENCOUNTERED A
00773  M01S00037.242l642 +++|*                RECOVERABLE READ/WRITE ERROR ON THE DEVICE.
00774  M01S00038.242l642 +++|*
00775  M01S00039.242l642 +++|*         USES   IR+4.
00776  M01S00040.242l642 +++|*
00777  M01S00041.242l642 +++|*         CALLS  CFB, RTI, *1RJ*.
00778  M01S00042.242l642 +++|*
Line S00043 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00043.ns2358  ---|*         MACROS ERROR, EXECUTE, PAUSE.
00780  M01S00002.ns2358  +++|*         MACROS ENDMS, ERROR, EXECUTE, PAUSE.
00781  M01S00044.242l642 +++|
00782  M01S00045.242l642 +++|
Line S00046 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00046.ns2358  ---| EER      RJM    RTI         RELEASE TRACK INTERLOCK
00784  M01S00003.ns2358  +++| EER      ENDMS
00785  M01S00004.ns2358  +++|          RJM    RTI         RELEASE TRACK INTERLOCK
00786  M01S00047.242l642 +++|          LDM    RDCT
00787  M01S00048.242l642 +++|          SHN    21-12
00788  M01S00049.242l642 +++|          PJN    EER2        IF RECOVERABLE ERROR
00789  M01S00050.242l642 +++| EER1     ERROR  /ERR/RMS
00790  M01S00051.242l642 +++|
00791  M01S00052.242l642 +++| EER2     LDM    MSD         CHECK CALLER
00792  M01S00053.242l642 +++|          SHN    21-13
00793  M01S00054.242l642 +++|          PJN    EER1        IF SUBSYSTEM
00794  M01S00055.242l642 +++|          PAUSE
00795  M01S00056.242l642 +++|          LDD    CM+1
00796  M01S00057.242l642 +++|          NJP    SFMX        IF ERROR FLAG SET
00797  M01S00058.242l642 +++|          RJM    CFB
00798  M01S00059.242l642 +++|          LDD    T5          SET EST ORDINAL
00799  M01S00060.242l642 +++|          STD    IR+4
00800  M01S00061.242l642 +++|          EXECUTE  1RJ       RECALL JOB
00801  M01S00673.sfm     +++| EFN      SPACE  4
00802  M01S00674.sfm     +++|**        EFN - ENTER FILE NAME.
00803  M01S00675.sfm     +++|*
00804  M01S00676.sfm     +++|*         ENTRY  (FN - FN+4) = FILE NAME.
00805  M01S00677.sfm     +++|*
00806  M01S00678.sfm     +++|*         EXIT   (FA) = INDEX OF FNT ENTRY.
00807  M01S00679.sfm     +++|*                (FS - FS+4) = FST ENTRY.
00808  M01S00680.sfm     +++|*
00809  M01S00681.sfm     +++|*         CALLS  VFN, *0BF*.
00810  M01S00682.sfm     +++|*
00811  M01S00683.sfm     +++|*         MACROS ABORT, EXECUTE.
00812  M01S00684.sfm     +++|
00813  M01S00685.sfm     +++|
00814  M01S00686.sfm     +++| EFN      SUBR               ENTRY/EXIT
00815  M01S00687.sfm     +++|          RJM    VFN         VERIFY FILE NAME
00816  M01S00688.sfm     +++|          NJN    EFN1        IF NO ERROR
00817  M01S00689.sfm     +++|          ABORT  /MESS/ERFN  * SFM FILE NAME ERROR.*
00818  M01S00690.sfm     +++|
00819  M01S00691.sfm     +++| EFN1     LDN    0           SELECT NO RETURN WITHOUT FILE CREATED
00820  M01S00692.sfm     +++|          STM    OVL0-1
00821  M01S00693.sfm     +++|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
00822  M01S00694.sfm     +++|          STD    FS
00823  M01S00695.sfm     +++|          EXECUTE 0BF,OVL0
00824  M01S00696.sfm     +++|          UJN    EFNX        RETURN WITH NEW FILE CREATED
00825  M01S00697.sfm     +++|
00826  M01S00698.sfm     +++|*         PROCESS ADVANCE EXIT FROM *0BF* IF FILE ALREADY EXISTS.
00827  M01S00699.sfm     +++|
00828  M01S00700.sfm     +++|          LDN    0           CLEAR FNT ENTRY ADDRESS
00829  M01S00701.sfm     +++|          STD    FA
00830  M01S00702.sfm     +++|          ABORT  /MESS/ERDF  * SFM DUPLICATE FILE FOUND.*
00831  M01S00703.sfm     +++| FDB      SPACE  4,10
00832  M01S00704.sfm     +++|**        FDB - FLUSH DAYFILE BUFFER.
00833  M01S00705.sfm     +++|*
00834  M01S00706.sfm     +++|*         ENTRY  (A) = ADDRESS OF TERMINATING MESSAGE.
00835  M01S00707.sfm     +++|*                (TY) = DAYFILE TYPE.
00836  M01S00708.sfm     +++|*
00837  M01S00709.sfm     +++|*         EXIT   DAYFILE BUFFER FLUSHED.
00838  M01S00710.sfm     +++|*
Line S00711 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00711.251l664 ---|*         CALLS  DFM, SDA, *0TD*.
00840  M01S00001.251l664 +++|*         CALLS  DFM, *0TD*.
00841  M01S00712.sfm     +++|*
00842  M01S00713.sfm     +++|*         MACROS EXECUTE.
00843  M01S00714.sfm     +++|
00844  M01S00715.sfm     +++|
00845  M01S00716.sfm     +++| FDB      SUBR               ENTRY/EXIT
00846  M01S00717.sfm     +++|          LMC    ILKN        ADD INTERLOCK REQUEST
00847  M01S00718.sfm     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00848  M01S00719.sfm     +++|          LDD    TY
Line S00720 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00849  M02S00720.251l664 ---|          ZJN    FDB1        IF JOB DAYFILE
Line S00721 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00721.251l664 ---|          RJM    SDA         SET DAYFILE POINTER ADDRESS
Line S00722 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00722.251l664 ---|          SBN    2
Line S00723 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00723.251l664 ---| FDB1     STM    OVL0-1
00853  M01S00002.251l664 +++|          STM    OVL0-1      SET *0TD* PARAMETER
00854  M01S00724.sfm     +++|          EXECUTE 0TD,OVL0   FLUSH BUFFER
00855  M01S00725.sfm     +++|          UJN    FDBX        RETURN
00856  M01S00726.sfm     +++| GFE      SPACE  4,5
00857  M01S00727.sfm     +++|**        GFE - GET FET ADDRESS.
00858  M01S00728.sfm     +++|*
00859  M01S00729.sfm     +++|*         EXIT   (A) = FET ADDRESS.
00860  M01S00730.sfm     +++|
00861  M01S00731.sfm     +++|
00862  M01S00732.sfm     +++| GFE      SUBR               ENTRY/EXIT
00863  M01S00733.sfm     +++|          LDD    IR+3
00864  M01S00734.sfm     +++|          SHN    6
00865  M01S00735.sfm     +++|          ADD    RA
00866  M01S00736.sfm     +++|          SHN    6
00867  M01S00737.sfm     +++|          ADD    IR+4
00868  M01S00738.sfm     +++|          UJN    GFEX        RETURN
00869  M01S00739.sfm     +++| LLT      SPACE  4,10
00870  M01S00740.sfm     +++|**        LLT - LOCATE LABEL TRACK.
00871  M01S00741.sfm     +++|*
00872  M01S00742.sfm     +++|*         ENTRY  (T5) = EST ORDINAL.
00873  M01S00743.sfm     +++|*
00874  M01S00744.sfm     +++|*         EXIT   (A) = (T6) = LABEL TRACK.
00875  M01S00745.sfm     +++|*                (CM - CM+4) = EST ENTRY.
00876  M01S00746.sfm     +++|*                (T0 - T4) = *ALGL* WORD OF MST.
00877  M01S00747.sfm     +++|*
00878  M01S00748.sfm     +++|*         USES   T6, CM - CM+4, T0 - T4.
00879  M01S00749.sfm     +++|
00880  M01S00750.sfm     +++|
00881  M01S00751.sfm     +++| LLT      SUBR               ENTRY/EXIT
00882  M01S00752.sfm     +++|          SFA    EST,T5      READ EST ENTRY
00883  M01S00753.sfm     +++|          ADK    EQDE
00884  M01S00754.sfm     +++|          CRD    CM
00885  M01S00755.sfm     +++|          LDD    CM+4        READ *ALGL* WORD FROM THE MST
00886  M01S00756.sfm     +++|          SHN    3
00887  M01S00757.sfm     +++|          ADN    ALGL
00888  M01S00758.sfm     +++|          CRD    T0
00889  M01S00759.sfm     +++|          LDD    T0+1        SET LABEL TRACK
00890  M01S00760.sfm     +++|          STD    T6
00891  M01S00761.sfm     +++|          UJN    LLTX        RETURN
00892  M01S00762.sfm     +++| SDA      SPACE  4,8
00893  M01S00763.sfm     +++|**        SDA - SET DAYFILE POINTER ADDRESS.
00894  M01S00764.sfm     +++|*
00895  M01S00765.sfm     +++|*         ENTRY  (TY) = DAYFILE TYPE.
00896  M01S00766.sfm     +++|*                     = 0 IF USER DAYFILE.
00897  M01S00767.sfm     +++|*
00898  M01S00768.sfm     +++|*         EXIT   (A) = ADDRESS OF DAYFILE POINTER FST.
00899  M01S00769.sfm     +++|*
00900  M01S00770.sfm     +++|*         MACROS NFA.
00901  M01S00771.sfm     +++|
00902  M01S00772.sfm     +++|
00903  M01S00773.sfm     +++| SDA1     NFA    DAPN+2      SET ADDRESS OF JOB DAYFILE FST
00904  M01S00774.sfm     +++|
00905  M01S00775.sfm     +++| SDA      SUBR               ENTRY/EXIT
00906  M01S00776.sfm     +++|          LDD    TY
00907  M01S00777.sfm     +++|          ZJN    SDA1        IF USER DAYFILE
00908  M01S00778.sfm     +++|          STD    T0
00909  M01S00779.sfm     +++|          SHN    1
00910  M01S00780.sfm     +++|          ADD    T0
Line S00781 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00781.251l664 ---|          ADC    *           SYSTEM DAYFILES POINTER ADDRESS
Line S00782 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00782.251l664 ---| SDAA     EQU    *-1
00913  M01S00003.251l664 +++| SDAA     ADC    **          (FWA-1 OF DAYFILE POINTERS)
00914  M01S00783.sfm     +++|          UJN    SDAX        RETURN
00915  M01S00784.sfm     +++| SDT      SPACE  4,10
00916  M01S00785.sfm     +++|**        SDT - SET DAYFILE TYPE.
00917  M01S00786.sfm     +++|*
00918  M01S00787.sfm     +++|*         EXIT   (TY) = DAYFILE TYPE.
00919  M01S00788.sfm     +++|*                (CN - CN+4) = WORD 7 OF FET.
00920  M01S00789.sfm     +++|*
00921  M01S00790.sfm     +++|*         CALLS  GFE.
00922  M01S00791.sfm     +++|
00923  M01S00792.sfm     +++|
00924  M01S00793.sfm     +++| SDT      SUBR               ENTRY/EXIT
00925  M01S00794.sfm     +++|          RJM    GFE         READ FET+7
00926  M01S00795.sfm     +++|          ADN    7
00927  M01S00796.sfm     +++|          CRD    CN
00928  M01S00797.sfm     +++|          LDD    CN+3        SET DAYFILE TYPE
00929  M01S00798.sfm     +++|          LPN    77
00930  M01S00799.sfm     +++|          STD    TY
00931  M01S00800.sfm     +++|          ZJN    SDT1        IF INCORRECT TYPE
00932  M01S00801.sfm     +++|          SBN    EXDF+1
00933  M01S00802.sfm     +++|          MJN    SDTX        IF VALID DAYFILE TYPE
00934  M01S00803.sfm     +++| SDT1     ABORT  /MESS/ERDC  * SFM INCORRECT DEVICE CODE.*
00935  M01S00062.242l642 +++| RMS      SPACE  4,10
00936  M01S00063.242l642 +++|**        RMS - READ MASS STORAGE.
00937  M01S00064.242l642 +++|*
00938  M01S00065.242l642 +++|*         ENTRY  (A) = BUFFER ADDRESS.
00939  M01S00066.242l642 +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
00940  M01S00067.242l642 +++|*
00941  M01S00068.242l642 +++|*         EXIT   (A) .GE. 0.
00942  M01S00069.242l642 +++|*
00943  M01S00070.242l642 +++|*         ERROR  TO *EER*.
00944  M01S00071.242l642 +++|*
00945  M01S00072.242l642 +++|*         CALLS  RDS.
00946  M01S00073.242l642 +++|
00947  M01S00074.242l642 +++|
00948  M01S00075.242l642 +++| RMS      SUBR               ENTRY/EXIT
00949  M01S00076.242l642 +++|          RJM    RDS
00950  M01S00077.242l642 +++|          PJN    RMSX        IF SUCCESSFUL READ
00951  M01S00078.242l642 +++|          LJM    EER         EVALUATE ERROR RETURN
00952  M01S00079.242l642 +++| RTI      SPACE  4,10
00953  M01S00080.242l642 +++|**        RTI - RELEASE TRACK INTERLOCK.
00954  M01S00081.242l642 +++|*
00955  M01S00082.242l642 +++|*         ENTRY  (RTIA) = TRACK NUMBER IF TRACK INTERLOCKED.
00956  M01S00083.242l642 +++|*
00957  M01S00084.242l642 +++|*         EXIT   (A) = (RTIA) = 0.
00958  M01S00085.242l642 +++|*
00959  M01S00086.242l642 +++|*         CALLS  CTI.
00960  M01S00087.242l642 +++|
00961  M01S00088.242l642 +++|
00962  M01S00089.242l642 +++| RTI      SUBR               ENTRY/EXIT
00963  M01S00090.242l642 +++|          LDC    0
00964  M01S00091.242l642 +++| RTIA     EQU    *-1
00965  M01S00092.242l642 +++|          ZJN    RTIX        IF NO TRACK INTERLOCK
00966  M01S00093.242l642 +++|          RJM    CTI
00967  M01S00094.242l642 +++|*         LDN    0           CLEAR INTERLOCK STATUS
00968  M01S00095.242l642 +++|          STM    RTIA
00969  M01S00096.242l642 +++|          UJN    RTIX        RETURN
00970  M01S00097.242l642 +++| WMS      SPACE  4,10
00971  M01S00098.242l642 +++|**        WMS - WRITE MASS STORAGE.
00972  M01S00099.242l642 +++|*
00973  M01S00100.242l642 +++|*         ENTRY  (A) = BUFFER ADDRESS.
00974  M01S00101.242l642 +++|*                (T5 - T7) = MASS STORAGE PARAMETERS.
00975  M01S00102.242l642 +++|*
00976  M01S00103.242l642 +++|*         EXIT   (A) .GE. 0.
00977  M01S00104.242l642 +++|*
00978  M01S00105.242l642 +++|*         ERROR  TO *EER*.
00979  M01S00106.242l642 +++|*
00980  M01S00107.242l642 +++|*         CALLS  WDS.
00981  M01S00108.242l642 +++|
00982  M01S00109.242l642 +++|
00983  M01S00110.242l642 +++| WMS      SUBR               ENTRY/EXIT
00984  M01S00111.242l642 +++|          RJM    WDS
00985  M01S00112.242l642 +++|          PJN    WMSX        IF SUCCESSFUL WRITE
00986  M01S00113.242l642 +++|          LJM    EER         EVALUATE ERROR RETURN
00987  M01S00804.sfm     +++| WTI      SPACE  4,15
00988  M01S00805.sfm     +++|**        WTI - WAIT FOR TRACK INTERLOCK.
00989  M01S00806.sfm     +++|*
00990  M01S00807.sfm     +++|*         ENTRY  (T5) = EQUIPMENT.
00991  M01S00808.sfm     +++|*                (T6) = TRACK.
00992  M01S00809.sfm     +++|*
00993  M01S00810.sfm     +++|*         EXIT   (A) = 0, IF INTERLOCK SET.
00994  M01S00811.sfm     +++|*                    = 1, IF *ORET* ERROR FLAG SET IN CPA.
00995  M01S00812.sfm     +++|*
00996  M01S00813.sfm     +++|*         USES   CM - CM+4.
00997  M01S00814.sfm     +++|*
00998  M01S00815.sfm     +++|*         CALLS  STI.
00999  M01S00816.sfm     +++|*
01000  M01S00817.sfm     +++|*         MACROS DELAY, PAUSE.
01001  M01S00818.sfm     +++|
01002  M01S00819.sfm     +++|
01003  M01S00001.sfm22   +++| WTI3     LDN    1           RETURN WITH ERROR
01004  M01S00002.sfm22   +++|
01005  M01S00820.sfm     +++| WTI      SUBR               ENTRY/EXIT
01006  M01S00821.sfm     +++| WTI1     RJM    STI         SET TRACK INTERLOCK
01007  M01S00822.sfm     +++|          ZJN    WTIX        IF INTERLOCK SET
Line S00823 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm22
Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00823.sfm22   ---|          DELAY
01009  M01S00003.sfm22   +++|
01010  M01S00004.sfm22   +++|*         DELAY 100 MILLISECONDS AND RETRY.
01011  M01S00005.sfm22   +++|
01012  M01S00006.sfm22   +++|          LDC    1400
01013  M01S00007.sfm22   +++|          STD    T0
01014  M01S00008.sfm22   +++| WTI2     DELAY
01015  M01S00824.sfm     +++|          PAUSE
01016  M01S00825.sfm     +++|          LDD    CM+1
01017  M01S00826.sfm     +++|          LMN    ORET
Line S00827 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm22
Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00827.sfm22   ---|          NJN    WTI1        IF *ORET* ERROR FLAG NOT SET
Line S00828 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm22
Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00828.sfm22   ---|          LDN    1
Line S00829 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm22
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00829.sfm22   ---|          UJN    WTIX        RETURN WITH ERROR
01021  M01S00009.sfm22   +++|          ZJN    WTI3        IF *ORET* ERROR FLAG SET
01022  M01S00010.sfm22   +++|          SOD    T0
01023  M01S00011.sfm22   +++|          PJN    WTI2        IF MORE DELAY REQUIRED
01024  M01S00012.sfm22   +++|          UJN    WTI1        LOOP TO RETRY INTERLOCK
01025  M01S00830.sfm     +++|          SPACE  4
01026  M01S00831.sfm     +++|*         COMMON DECKS.
01027  M01S00832.sfm     +++|
01028  M01S00833.sfm     +++|
01029  M01S00834.sfm     +++|*CALL     COMPCTI
01030  M01S00835.sfm     +++|*CALL     COMPDTS
01031  M01S00836.sfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
01032  M01S00837.sfm     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
01033  M01S00838.sfm     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
01034  M01S00001.271l750 +++| JCB$     EQU    0           DEFINE *COMPGFP* ACCESS TO JCB
01035  M01S00839.sfm     +++|*CALL     COMPGFP
01036  M01S00840.sfm     +++|*CALL     COMPRLA
Line S00841 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00841.242l642 ---|*CALL     COMPRSS
01038  M01S00842.sfm     +++|*CALL     COMPSAF
01039  M01S00843.sfm     +++|*CALL     COMPSEI
01040  M01S00844.sfm     +++|*CALL     COMPSFB
01041  M01S00845.sfm     +++|*CALL     COMPSTI
01042  M01S00846.sfm     +++|*CALL     COMPVFN
01043  M01S00114.242l642 +++|          QUAL   MIO
01044  M01S00115.242l642 +++| QUAL$    EQU    1
01045  M01S00116.242l642 +++| RDS      EQU    RMS
01046  M01S00117.242l642 +++| WDS      EQU    WMS
01047  M01S00118.242l642 +++|*CALL     COMPRSS
01048  M01S00847.sfm     +++|*CALL     COMPWEI
01049  M01S00848.sfm     +++|*CALL     COMPWSS
01050  M01S00119.242l642 +++|          QUAL   *
01051  M01S00120.242l642 +++| RSS      EQU    /MIO/RSS
01052  M01S00121.242l642 +++| WEI      EQU    /MIO/WEI
01053  M01S00122.242l642 +++| WSS      EQU    /MIO/WSS
01054  M01S00849.sfm     +++| CFS      SPACE  4,10
01055  M01S00850.sfm     +++|**        CFS - CHECK FILE STATUS.
01056  M01S00851.sfm     +++|*
01057  M01S00852.sfm     +++|*         ENTRY  (FA) = INDEX OF FNT ENTRY.
01058  M01S00853.sfm     +++|*
01059  M01S00854.sfm     +++|*         EXIT   (FS - FS+4) = FST ENTRY.
01060  M01S00855.sfm     +++|*                (ES - ES+4) = FILE EQUIPMENT EST ENTRY.
01061  M01S00856.sfm     +++|*                (CM - CM+4) = FNT ENTRY.
01062  M01S00857.sfm     +++|*                (T5) = EST ORDINAL.
01063  M01S00858.sfm     +++|*                (T6) = FIRST TRACK.
01064  M01S00859.sfm     +++|*
01065  M01S00860.sfm     +++|*         CALLS  SFB.
01066  M01S00861.sfm     +++|*
01067  M01S00862.sfm     +++|*         MACROS ABORT, SFA.
01068  M01S00863.sfm     +++|
01069  M01S00864.sfm     +++|
01070  M01S00865.sfm     +++| CFS      SUBR               ENTRY/EXIT
01071  M01S00866.sfm     +++|          RJM    SFB         SET FILE BUSY
01072  M01S00867.sfm     +++|          ZJN    CFS1        IF NO REJECT
01073  M01S00868.sfm     +++|          LDN    0
01074  M01S00869.sfm     +++|          STD    FA
01075  M01S00870.sfm     +++|          ABORT  /MESS/ERIO  * SFM I/O SEQUENCE ERROR.*
01076  M01S00871.sfm     +++|
01077  M01S00872.sfm     +++| CFS1     LDD    FS          READ EST ENTRY
01078  M01S00873.sfm     +++|          STD    T5
01079  M01S00874.sfm     +++|          SFA    EST
01080  M01S00875.sfm     +++|          ADK    EQDE
01081  M01S00876.sfm     +++|          CRD    ES
01082  M01S00877.sfm     +++|          LDD    ES          CHECK EQUIPMENT
01083  M01S00878.sfm     +++|          SHN    6
01084  M01S00879.sfm     +++|          MJN    CFS2        IF MASS STORAGE
01085  M01S00880.sfm     +++|          ABORT  /MESS/ERMS  * SFM FILE NOT ON MASS STORAGE.*
01086  M01S00881.sfm     +++|
01087  M01S00882.sfm     +++| CFS2     LDD    FS+1        SET FIRST TRACK
01088  M01S00883.sfm     +++|          STD    T6
01089  M01S00884.sfm     +++|          LDD    FS+2
01090  M01S00885.sfm     +++|          NJN    CFSX        RETURN IF FILE USED
01091  M01S00886.sfm     +++|          ABORT  /MESS/ERFE  * SFM FILE EMPTY.*
01092  M01S00887.sfm     +++|          SPACE  4
Line S00888 Modification History
M01 (Added by) sfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01093  M02S00888.274l797 ---| TDFN     SPACE  4,10
Line S00889 Modification History
M01 (Added by) sfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00889.274l797 ---|**        TDFN - TABLE OF DAYFILE NAMES.
01095  M01S00001.274l797 +++| TDYN     SPACE  4,10
01096  M01S00002.274l797 +++|**        TDYN - TABLE OF DAYFILE NAMES.
01097  M01S00890.sfm     +++|
01098  M01S00891.sfm     +++|
Line S00892 Modification History
M01 (Added by) sfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00892.274l797 ---| TDFN     BSS    0
01100  M01S00003.274l797 +++| TDYN     BSS    0
01101  M01S00893.sfm     +++|          LOC    SDAY
01102  M01S00894.sfm     +++|          CON    NDYF        SYSTEM DAYFILE
01103  M01S00895.sfm     +++|          CON    NACF        ACCOUNT DAYFILE
01104  M01S00896.sfm     +++|          CON    NERL        ERRLOG DAYFILE
01105  M01S00897.sfm     +++|          CON    NBML        MAINTENANCE LOG
01106  M01S00898.sfm     +++|          LOC    *O
01107  M01S00899.sfm     +++|          SPACE  4
01108  M01S00900.sfm     +++| NDYF     VFD    42/0LDAYFILE,6/1,6/LIFT,6/0
01109  M01S00901.sfm     +++| NACF     VFD    42/0LACCOUNT,6/1,6/LIFT,6/0
01110  M01S00902.sfm     +++| NERL     VFD    42/0LERRLOG,6/1,6/LIFT,6/0
01111  M01S00903.sfm     +++| NBML     VFD    42/0LMAINLOG,6/1,6/LIFT,6/0
01112  M01S00904.sfm     +++|          USE    OVERLAY
01113  M01S00905.sfm     +++| OVLA     EQU    *+5         OVERLAY BASE ADDRESS
01114  M01S00906.sfm     +++| ADF      TITLE  FUNCTION PROCESSORS.
01115  M01S00907.sfm     +++| ADF      SPACE  4
01116  M01S00908.sfm     +++|***       FUNCTION *AMDF* - ACCESS MASTER DAYFILE.
01117  M01S00909.sfm     +++|*
01118  M01S00910.sfm     +++|*         READ CM PART OF DAYFILE STARTING AT FIRST, AND MAKE LOCKED
01119  M01S00911.sfm     +++|*         LIBRARY FILE AT CONTROL POINT.
01120  M01S00912.sfm     +++|*
01121  M01S00913.sfm     +++|*         ENTRY CONDITIONS.
01122  M01S00914.sfm     +++|*
01123  M01S00915.sfm     +++|*         MESSAGE TO ISSUE IN BUFFER STARTING AT FIRST.
01124  M01S00916.sfm     +++|*         (MAXIMUM LENGTH OF 30 CHARACTERS.)  THE MESSAGE IS
01125  M01S00917.sfm     +++|*         ISSUED BEFORE THE CM BUFFER IS COPIED AND THE FILE
01126  M01S00918.sfm     +++|*         LENGTH CALCULATED.  THE MESSAGE WILL BE THE LAST ONE
01127  M01S00919.sfm     +++|*         IN THE DAYFILE FOR THIS ACCESS TO THE DAYFILE.
01128  M01S00920.sfm     +++|*
01129  M01S00921.sfm     +++|*         EXIT CONDITIONS.
01130  M01S00922.sfm     +++|*
01131  M01S00923.sfm     +++|*T FET+5  42/  0 , 18/ RL
Figure FET+5

0171829 RL 0 3059 0

01132  M01S00924.sfm     +++|*T,FET+6  42/  0 , 18/ CL
Figure FET+6

0171829 CL 0 3059 0

01133  M01S00925.sfm     +++|*
01134  M01S00926.sfm     +++|*         RL = DAYFILE LENGTH AT LAST DEADSTART.
01135  M01S00927.sfm     +++|*         CL = CURRENT DAYFILE LENGTH IN PRUS.
01136  M01S00928.sfm     +++|
01137  M01S00929.sfm     +++|
01138  M01S00930.sfm     +++| ADF      BSS    0           ENTRY
01139  M01S00931.sfm     +++|          LDN    SDAY        SELECT MASTER DAYFILE
01140  M01S00932.sfm     +++| ADF1     STD    TY          SAVE DAYFILE TYPE
01141  M01S00933.sfm     +++|          RJM    CBL         CHECK DAYFILE BUFFER LENGTH
01142  M01S00934.sfm     +++|
01143  M01S00935.sfm     +++|*         CHECK FILE STATUS.
01144  M01S00936.sfm     +++|
01145  M01S00937.sfm     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
01146  M01S00938.sfm     +++|          ZJN    ADF3        IF NOT FOUND
01147  M01S00939.sfm     +++|          RJM    SFB         SET FILE BUSY
01148  M01S00940.sfm     +++|          ZJN    ADF2        IF NO REJECT
01149  M01S00941.sfm     +++|          LDN    0
01150  M01S00942.sfm     +++|          STD    FA
01151  M01S00943.sfm     +++|          ABORT  /MESS/ERIO  * SFM I/O SEQUENCE ERROR.*
01152  M01S00944.sfm     +++|
01153  M01S00945.sfm     +++| ADF2     RJM    DRF         DROP FILE
01154  M01S00946.sfm     +++| ADF3     RJM    EFN         ENTER FILE NAME
01155  M01S00947.sfm     +++|          RJM    SDA         SET DAYFILE FST ADDRESS
01156  M01S00948.sfm     +++|          CRD    FS          READ DAYFILE FST
01157  M01S00949.sfm     +++|          SBN    1           READ DAYFILE BUFFER POINTERS
01158  M01S00950.sfm     +++|          CRD    CM
01159  M01S00951.sfm     +++|          AOD    CM+2        VALIDATE BUFFER POINTERS
01160  M01S00952.sfm     +++|          RJM    VBP
01161  M01S00953.sfm     +++|          MJN    ADF4        IF DATA FITS IN BUFFER AND IN FL
01162  M01S00954.sfm     +++|          NFA    FA,R        READ CORRECT FST FOR *ABT*
01163  M01S00955.sfm     +++|          ADN    FSTL
01164  M01S00956.sfm     +++|          CRD    FS
01165  M01S00957.sfm     +++|          ABORT  /MESS/ERAE  * SFM ARGUMENT ERROR.*
01166  M01S00958.sfm     +++|
01167  M01S00959.sfm     +++|*         INTERLOCK DAYFILE.
01168  M01S00960.sfm     +++|
01169  M01S00961.sfm     +++| ADF4     LDD    FS          SET EQUIPMENT
01170  M01S00962.sfm     +++|          STD    T5
01171  M01S00963.sfm     +++|          LDD    FS+1        SET FIRST TRACK
01172  M01S00964.sfm     +++|          STD    T6
01173  M01S00965.sfm     +++|          LDD    TY
01174  M01S00966.sfm     +++|          NJN    ADF5        IF NOT USER DAYFILE DUMP
01175  M01S00967.sfm     +++|          LJM    ADF8        PROCESS USER DAYFILE DUMP
01176  M01S00968.sfm     +++|
01177  M01S00969.sfm     +++| ADF5     LDD    TH          FLAG TRACK INTERLOCK SET
01178  M01S00970.sfm     +++|          RAM    ADFE
01179  M01S00971.sfm     +++|          RJM    STI         SET TRACK INTERLOCK
01180  M01S00972.sfm     +++|          ZJN    ADF6        IF TRACK INTERLOCKED
01181  M01S00973.sfm     +++|          NFA    FA,R        READ CORRECT FST FOR *ABT*
01182  M01S00974.sfm     +++|          ADN    FSTL
01183  M01S00975.sfm     +++|          CRD    FS
01184  M01S00976.sfm     +++|          ERROR  /ERR/DFB    EC=1, DAYFILE BUSY
01185  M01S00977.sfm     +++|
Line S00978 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S00978.242l642 ---| ADF6     LDD    CP          READ EJT ORDINAL
01187  M01S00123.242l642 +++| ADF6     LDD    T6          SET TRACK INTERLOCKED STATUS
01188  M01S00124.242l642 +++|          STM    RTIA
01189  M01S00125.242l642 +++|          LDD    CP          FETCH EJT ORDINAL
01190  M01S00979.sfm     +++|          ADN    TFSW
01191  M01S00980.sfm     +++|          CRD    CM
01192  M01S00981.sfm     +++|          SFA    EJT,CM      READ SEQUENCE NUMBER FROM EJT
01193  M01S00982.sfm     +++|          CRM    BFMS,ON
01194  M01S00983.sfm     +++|          ADN    SCLE-JSNE-1 GET JOB SERVICE CLASS
01195  M01S00984.sfm     +++|          CRD    CM
01196  M01S00985.sfm     +++|          LDC    2R
01197  M01S00986.sfm     +++|          STM    BFMS+2
01198  M01S00987.sfm     +++|          STM    BFMS+3
01199  M01S00988.sfm     +++|          LDD    CM          SET SERVICE CLASS IN MESSAGE
01200  M01S00989.sfm     +++|          SHN    -6
01201  M01S00990.sfm     +++|          STM    BFMS+4
01202  M01S00991.sfm     +++|          LDD    CN+3        READ DAYFILE MESSAGE
01203  M01S00992.sfm     +++|          SHN    6
01204  M01S00993.sfm     +++|          ADD    RA
01205  M01S00994.sfm     +++|          SHN    6
01206  M01S00995.sfm     +++|          ADD    CN+4
01207  M01S00996.sfm     +++|          CRD    CM+1
01208  M01S00997.sfm     +++| ADFC     ADN    0
01209  M01S00998.sfm     +++|*         ADN    1           (MAINTENANCE LOG PROCESSING)
01210  M01S00999.sfm     +++|          CRM    BFMS+5,TR
01211  M01S01000.sfm     +++|*         CRM    BFMS,TR     (MAINTENANCE LOG PROCESSING)
01212  M01S01001.sfm     +++| ADFD     EQU    *-1
01213  M01S01002.sfm     +++|          LDN    0           ENSURE MESSAGE HAS TERMINATOR
01214  M01S01003.sfm     +++|          STM    BFMS+5+3*5
01215  M01S01004.sfm     +++|          LDD    CM+1        BYTE COUNT OF MAINTENANCE LOG MESSAGE
01216  M01S01005.sfm     +++| ADFF     UJN    ADF7.4      CONTINUE
01217  M01S01006.sfm     +++|*         NJN    ADF7.3      (MAINTENANCE LOG PROCESSING)
Line S01007 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S01007.242l642 ---| ADF7.1   LDM    ADFE        CHECK DAYFILE TRACK INTERLOCKED
Line S01008 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01219  M02S01008.242l642 ---|          SHN    -11
Line S01009 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01220  M02S01009.242l642 ---|          ZJN    ADF7.2      IF TRACK NOT INTERLOCKED
Line S01010 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01221  M02S01010.242l642 ---|          LDD    T6          CLEAR INTERLOCK
Line S01011 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01222  M02S01011.242l642 ---|          RJM    CTI
Line S01012 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S01012.242l642 ---| ADF7.2   NFA    FA,R        READ CORRECT FST FOR *ABT*
01224  M01S00126.242l642 +++| ADF7     RJM    RTI         RELEASE TRACK INTERLOCK
01225  M01S00127.242l642 +++|          NFA    FA,R        RESTORE FST FOR ABORT PROCESSING
01226  M01S01013.sfm     +++|          ADN    FSTL
01227  M01S01014.sfm     +++|          CRD    FS
01228  M01S01015.sfm     +++|          ABORT  /MESS/ERWC  * SFM BML MESSAGE LENGTH ERROR.*
01229  M01S01016.sfm     +++|
01230  M01S01017.sfm     +++| ADF7.3   SBN    7
Line S01018 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S01018.242l642 ---|          PJN    ADF7.1      IF WORD COUNT TOO LARGE
01232  M01S00128.242l642 +++|          PJN    ADF7        IF WORD COUNT TOO LARGE
01233  M01S01019.sfm     +++|          ADN    7
01234  M01S01020.sfm     +++| ADF7.4   SHN    2
01235  M01S01021.sfm     +++|          RAD    CM+1
01236  M01S01022.sfm     +++|          LDM    ADFG-1,TY   ISSUE MESSAGE AND INTERLOCK DAYFILE
01237  M01S01023.sfm     +++|          SHN    14
01238  M01S01024.sfm     +++|          ADC    ILKN+BFMS
01239  M01S01025.sfm     +++|          RJM    DFM
01240  M01S01026.sfm     +++|
01241  M01S01027.sfm     +++|*         TRANSFER CM DAYFILE BUFFER TO CONTROL POINT.
01242  M01S01028.sfm     +++|
01243  M01S01029.sfm     +++|          LDD    TY          CHECK DAYFILE TYPE
01244  M01S01030.sfm     +++|          LMN    BMLF
01245  M01S01031.sfm     +++|          NJN    ADF8        IF NOT MAINTENANCE LOG
01246  M01S01032.sfm     +++|          LDN    BMLL        READ MAINTENANCE LOG CONTROL WORD
01247  M01S01033.sfm     +++|          CRD    CM
01248  M01S01034.sfm     +++|          LDD    CN+3        STORE CONTROL WORD IN BUFFER
01249  M01S01035.sfm     +++|          SHN    6
01250  M01S01036.sfm     +++|          ADD    RA
01251  M01S01037.sfm     +++|          SHN    6
01252  M01S01038.sfm     +++|          ADD    CN+4
01253  M01S01039.sfm     +++|          CWD    CM
01254  M01S01040.sfm     +++|          AOD    CN+4        ADVANCE IN POINTER
01255  M01S01041.sfm     +++|          SHN    -14
01256  M01S01042.sfm     +++|          RAD    CN+3
01257  M01S01043.sfm     +++| ADF8     RJM    CDF         DUMP CM DAYFILE TO CONTROL POINT
01258  M01S01044.sfm     +++|
01259  M01S01045.sfm     +++|*         UPDATE FET INFORMATION.
01260  M01S01046.sfm     +++|
01261  M01S01047.sfm     +++|          LDD    T6
01262  M01S01048.sfm     +++|          STD    T2
01263  M01S01049.sfm     +++|          STD    T3
01264  M01S01050.sfm     +++|          ZJN    ADF9        IF NO FIRST TRACK
01265  M01S01051.sfm     +++|          RJM    SEI
01266  M01S01052.sfm     +++|          LCN    FSMS        DISCOUNT SYSTEM SECTOR
01267  M01S01053.sfm     +++|          RAD    T3
01268  M01S01054.sfm     +++|          PJN    ADF9        IF NO BORROW
01269  M01S01055.sfm     +++|          SOD    T2          PROPAGATE BORROW
01270  M01S01056.sfm     +++|          AOD    T3
01271  M01S01057.sfm     +++| ADF9     LDN    ZERL
01272  M01S01058.sfm     +++|          CRD    CM
01273  M01S01059.sfm     +++|          LDD    T3
01274  M01S01060.sfm     +++|          STD    CM+4        LOWER HALF OF FILE LENGTH
01275  M01S01061.sfm     +++|          LDD    T2
01276  M01S01062.sfm     +++|          STD    CM+3        UPPER HALF OF FILE LENGTH
01277  M01S01063.sfm     +++|          LDN    0
01278  M01S01064.sfm     +++|          STD    CN
01279  M01S01065.sfm     +++|          STD    CN+1
01280  M01S01066.sfm     +++|          STD    CN+2
01281  M01S01067.sfm     +++|          RJM    GFE         STORE IN
01282  M01S01068.sfm     +++|          ADN    2
01283  M01S01069.sfm     +++|          CWD    CN
01284  M01S01070.sfm     +++|          ADN    6-2         STORE SECTOR COUNT
01285  M01S01071.sfm     +++|          CWD    CM
01286  M01S01072.sfm     +++|
01287  M01S01073.sfm     +++|*         GET LENGTH OF DAYFILE AT LAST DEADSTART.
01288  M01S01074.sfm     +++|
01289  M01S01075.sfm     +++|          LDD    TY
01290  M01S01076.sfm     +++|          NJN    ADF10       IF NOT USER DAYFILE DUMP
01291  M01S01077.sfm     +++|          LJM    ADF12
01292  M01S01078.sfm     +++|
01293  M01S01079.sfm     +++| ADF10    RJM    SDA         READ BUFFER STATUS WORD
Line S01080 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S01080.251l664 ---|          STD    T1
01295  M01S01081.sfm     +++|          CRD    CM
01296  M01S01082.sfm     +++|          LDN    2           CLEAR BUFFER INTERLOCK
01297  M01S01083.sfm     +++|          RAD    CM+4
Line S01084 Modification History
M01 (Added by) sfm
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01298  M02S01084.251l664 ---|          LDD    T1          STORE STATUS WORD
01299  M01S00004.251l664 +++|          RJM    SDA         STORE BUFFER STATUS WORD
01300  M01S01085.sfm     +++|          CWD    CM
Line S01086 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01301  M02S01086.242l642 ---|          SETMS  READ        SET MASS STORAGE
01302  M01S00129.242l642 +++|          SETMS  IO
01303  M01S01087.sfm     +++|          LDD    FS+1        SET FIRST TRACK
01304  M01S01088.sfm     +++|          STD    T6
Line S01089 Modification History
M01 (Added by) sfm
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S01089.274l797 ---|          LDM    TDFN-1,TY   READ SYSTEM SECTOR
01306  M01S00004.274l797 +++|          LDM    TDYN-1,TY   READ SYSTEM SECTOR
01307  M01S01090.sfm     +++|          RJM    RSS
01308  M01S01091.sfm     +++|          ZJN    ADF11       IF NO ERROR
Line S01092 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01092.242l642 ---|          LDD    T6          CLEAR TRACK INTERLOCK
Line S01093 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01093.242l642 ---|          RJM    CTI
01311  M01S00130.242l642 +++|          RJM    RTI         RELEASE TRACK INTERLOCK
01312  M01S01094.sfm     +++|          NFA    FA,R        READ CORRECT FST FOR *ABT*
01313  M01S01095.sfm     +++|          ADN    FSTL
01314  M01S01096.sfm     +++|          CRD    FS
01315  M01S01097.sfm     +++|          ABORT  /MESS/ERSE  * SFM SYSTEM SECTOR ERROR.*
01316  M01S01098.sfm     +++|
01317  M01S01099.sfm     +++| ADF11    ENDMS
01318  M01S01100.sfm     +++|          LDN    ZERL        SET LENGTH IN FET+5
01319  M01S01101.sfm     +++|          CRD    CM
01320  M01S01102.sfm     +++|          LDM    FLSS
01321  M01S01103.sfm     +++|          STD    CM+3
01322  M01S01104.sfm     +++|          LDM    FLSS+1
01323  M01S01105.sfm     +++|          STD    CM+4
01324  M01S01106.sfm     +++|          RJM    GFE
01325  M01S01107.sfm     +++|          ADN    5
01326  M01S01108.sfm     +++|          CWD    CM
01327  M01S01109.sfm     +++|
01328  M01S01110.sfm     +++|*         ATTACH DAYFILE TO CONTROL POINT.
01329  M01S01111.sfm     +++|
01330  M01S01112.sfm     +++| ADF12    LDC    4           SET FILE STATUS
01331  M01S01113.sfm     +++|*         LDC    1004        (IF TRACK INTERLOCK SET)
01332  M01S01114.sfm     +++| ADFE     EQU    *-1
01333  M01S01115.sfm     +++|          STD    FS+4
01334  M01S01116.sfm     +++|          LDD    FS+2
01335  M01S01117.sfm     +++|          ZJN    ADF13       IF FILE NOT USED
01336  M01S01118.sfm     +++|          LDD    FS+1        REWIND FILE
01337  M01S01119.sfm     +++|          STD    FS+2
01338  M01S01120.sfm     +++|          LDN    FSMS        SET FIRST DATA SECTOR
01339  M01S01121.sfm     +++|          STD    FS+3
01340  M01S01122.sfm     +++| ADF13    NFA    FA,R        READ FNT ENTRY
01341  M01S01123.sfm     +++|          CRD    CM
Line S01124 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm17
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S01124.sfm17   ---|          LDD    CM+3        SET LOCKED STATUS
01343  M01S00001.sfm17   +++|          LDD    CM+3        SET EXTEND-ONLY AND WRITE LOCKOUT
01344  M01S01125.sfm     +++|          SCN    77
Line S01126 Modification History
M01 (Added by) sfm
M02 (Updated by) sfm17
Seq #  *Modification Id* Act 
----------------------------+
01345  M02S01126.sfm17   ---|          LMN    1
01346  M01S00002.sfm17   +++|          LMN    21
01347  M01S01127.sfm     +++|          STD    CM+3
01348  M01S01128.sfm     +++|          LDC    LIFT*100    SET FILE TYPE TO *LIBRARY*
01349  M01S01129.sfm     +++|          STD    CM+4
01350  M01S01130.sfm     +++|          NFA    FA,R        STORE FNT ENTRY
01351  M01S01131.sfm     +++|          CWD    CM
01352  M01S01132.sfm     +++|          LDN    22          LAST STATUS = EOR
01353  M01S01133.sfm     +++|          STD    LS
01354  M01S01134.sfm     +++|          LJM    SFMX        EXIT
01355  M01S01135.sfm     +++|
01356  M01S01136.sfm     +++| ADFG     BSS    0           TABLE OF DAYFILE MESSAGE OPTIONS
01357  M01S01137.sfm     +++|          LOC    SDAY
01358  M01S01138.sfm     +++|          CON    JNMN/10000
01359  M01S01139.sfm     +++|          CON    AJNN/10000
01360  M01S01140.sfm     +++|          CON    EJNN/10000
01361  M01S01141.sfm     +++|          CON    BMLN/10000
01362  M01S01142.sfm     +++|          LOC    *O
01363  M01S01143.sfm     +++| AAC      SPACE  4
01364  M01S01144.sfm     +++|***       FUNCTION *AAFF* - ACCESS ACCOUNT FILE.
01365  M01S01145.sfm     +++|*
01366  M01S01146.sfm     +++|*         READ CM PART OF DAYFILE STARTING AT FIRST, AND MAKE LOCKED
01367  M01S01147.sfm     +++|*         LIBRARY TYPE FILE AT CONTROL POINT.
01368  M01S01148.sfm     +++|
01369  M01S01149.sfm     +++|
01370  M01S01150.sfm     +++| AAC      BSS    0           ENTRY
01371  M01S01151.sfm     +++|          LDN    ACCF        SELECT ACCOUNT FILE
01372  M01S01152.sfm     +++|          UJN    AER1
01373  M01S01153.sfm     +++| AER      SPACE  4
01374  M01S01154.sfm     +++|***       FUNCTION *AELF* - ACCESS ERROR LOG.
01375  M01S01155.sfm     +++|*
01376  M01S01156.sfm     +++|*         READ CM PART OF DAYFILE STARTING AT FIRST, AND MAKE LOCKED
01377  M01S01157.sfm     +++|*         LIBRARY TYPE FILE AT CONTROL POINT.
01378  M01S01158.sfm     +++|
01379  M01S01159.sfm     +++|
01380  M01S01160.sfm     +++| AER      LDN    ERLF        SELECT ERROR LOG
01381  M01S01161.sfm     +++| AER1     LJM    ADF1        ACCESS DAYFILE
01382  M01S01162.sfm     +++| AMF      SPACE  4,10
01383  M01S01163.sfm     +++|***       FUNCTION *AMLF* - ACCESS MAINTENANCE LOG.
01384  M01S01164.sfm     +++|*
01385  M01S01165.sfm     +++|*         READ CM PART OF DAYFILE STARTING AT FIRST, AND MAKE LOCKED
01386  M01S01166.sfm     +++|*         LIBRARY TYPE FILE AT CONTROL POINT.
01387  M01S01167.sfm     +++|
01388  M01S01168.sfm     +++|
01389  M01S01169.sfm     +++| AMF      LCN    5           ADJUST ADDRESS FOR ACCESS MESSAGE
01390  M01S01170.sfm     +++|          RAM    ADFD
01391  M01S01171.sfm     +++|          AOM    ADFC
01392  M01S01172.sfm     +++|          LDC    NJNI+ADF7.3-ADFF
01393  M01S01173.sfm     +++|          STM    ADFF
01394  M01S01174.sfm     +++|          LDN    BMLF        SELECT MAINTENANCE LOG
01395  M01S01175.sfm     +++|          UJN    AER1        ACCESS DAYFILE
01396  M01S01176.sfm     +++|
01397  M01S01177.sfm     +++|          ERRNG  37-ADF7.3+ADFF  JUMP OUT OF RANGE
01398  M01S01178.sfm     +++| AUD      SPACE  4
01399  M01S01179.sfm     +++|***       FUNCTION *AUDF* - ACCESS USER DAYFILE.
01400  M01S01180.sfm     +++|*
01401  M01S01181.sfm     +++|*         READ CM PART OF DAYFILE STARTING AT FIRST, AND MAKE LOCKED
01402  M01S01182.sfm     +++|*         LIBRARY TYPE FILE AT CONTROL POINT.
01403  M01S01183.sfm     +++|
01404  M01S01184.sfm     +++|
01405  M01S01185.sfm     +++| AUD      LDN    0           SELECT USER DAYFILE
01406  M01S01186.sfm     +++|          UJN    AER1
01407  M01S01187.sfm     +++| RDT      SPACE  4
01408  M01S01188.sfm     +++|***       FUNCTION *RDTF* - RETURN DEVICE TYPE.
01409  M01S01189.sfm     +++|*
01410  M01S01190.sfm     +++|*         FET+1, BYTE 0 = EST ORDINAL.
01411  M01S01191.sfm     +++|*         RETURN DEVICE TYPE IN FET+1, BYTE 0.
01412  M01S01192.sfm     +++|
01413  M01S01193.sfm     +++|
01414  M01S01194.sfm     +++| RDT      RJM    GFE         GET FET ADDRESS
01415  M01S01195.sfm     +++|          ADN    1
01416  M01S01196.sfm     +++|          CRD    CM
01417  M01S01197.sfm     +++|          LDN    ESTP        READ EST POINTER
01418  M01S01198.sfm     +++|          CRD    FS
01419  M01S01199.sfm     +++|          LDD    CM          LOAD EST ORDINAL
01420  M01S01200.sfm     +++|          SBD    FS+2
01421  M01S01201.sfm     +++|          MJN    RDT1        IF IN TABLE
01422  M01S01202.sfm     +++|          ABORT  /MESS/EREQ  * SFM INCORRECT EQUIPMENT.*
01423  M01S01203.sfm     +++|
01424  M01S01204.sfm     +++| RDT1     SFA    EST,CM
01425  M01S01205.sfm     +++|          ADK    EQDE
01426  M01S01206.sfm     +++|          CRD    FS          READ EST ENTRY
Line S01207 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01427  M02S01207.242l642 ---|          LDD    FS
Line S01208 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01428  M02S01208.242l642 ---|          LMD    FS+3
Line S00131 Modification History
M01 (Added by) 242l642
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01429  M02S00131.252l678 ---|          LDD    FS+3
Line S00132 Modification History
M01 (Added by) 242l642
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01430  M02S00132.252l678 ---|          LPC    3777
Line S00133 Modification History
M01 (Added by) 242l642
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01431  M02S00133.252l678 ---|          STD    FS+3
01432  M01S00134.242l642 +++|          LDD    FS
01433  M01S01209.sfm     +++|          LPC    4000
01434  M01S01210.sfm     +++|          LMD    FS+3
01435  M01S01211.sfm     +++|          STD    CM
01436  M01S01212.sfm     +++|          RJM    GFE         RETURN DEVICE TYPE TO FET
01437  M01S01213.sfm     +++|          ADN    1
01438  M01S01214.sfm     +++|          CWD    CM
01439  M01S01215.sfm     +++|          LJM    SFMX        EXIT
01440  M01S01216.sfm     +++| PAD      SPACE  4,5
01441  M01S01217.sfm     +++|***       FUNCTION *PADF* - PROTECT ACTIVE DAYFILE.
01442  M01S01218.sfm     +++|*
01443  M01S01219.sfm     +++|*         AN ACTIVE DAYFILE OF TYPE, TY, WILL BE PROTECTED BY
01444  M01S01220.sfm     +++|*         PLACING THE FIRST TRACK FROM THE DAYFILE POINTER INTO THE
01445  M01S01221.sfm     +++|*         APPROPRIATE TRACK BYTE IN THE SECTOR OF LOCAL AREAS.
01446  M01S01222.sfm     +++|*         THE TRACK INTERLOCK IS ASSUMED TO BE INTERLOCKED.
01447  M01S01223.sfm     +++|*         THE TRACK INTERLOCK WILL BE CLEARED.
01448  M01S01224.sfm     +++|
01449  M01S01225.sfm     +++|
01450  M01S01226.sfm     +++| PDF      RJM    SDT         SET DAYFILE TYPE
01451  M01S01227.sfm     +++|          RJM    SDA         SET DAYFILE POINTER ADDRESS
01452  M01S01228.sfm     +++|          CRD    CM
01453  M01S01229.sfm     +++|          LDD    CM          SET EQUIPMENT
01454  M01S01230.sfm     +++|          STD    T5
Line S01231 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S01231.242l642 ---|          SFA    EST         READ EST ENTRY
Line S01232 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01456  M02S01232.242l642 ---|          ADK    EQDE
Line S01233 Modification History
M01 (Added by) sfm
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01457  M02S01233.242l642 ---|          CRD    CN
01458  M01S01234.sfm     +++|          LDD    CM+1        SET FIRST TRACK
01459  M01S01235.sfm     +++|          STD    T6
01460  M01S01236.sfm     +++|          RJM    DTS         DETERMINE TRACK STATUS
01461  M01S01237.sfm     +++|          MJN    PDF1        IF TRACK INTERLOCKED
01462  M01S01238.sfm     +++|          ABORT  /MESS/ERTE  * SFM TRACK INTERLOCK ERROR.*
01463  M01S01239.sfm     +++|
01464  M01S01240.sfm     +++| PDF1     LDD    T6          CLEAR TRACK INTERLOCK
01465  M01S01241.sfm     +++|          RJM    CTI
01466  M01S01242.sfm     +++|          LDN    SPFS        SET PRESERVED FILE BIT
01467  M01S01243.sfm     +++|          STD    CM+3
01468  M01S01244.sfm     +++|          LDD    T5          SET EQUIPMENT
01469  M01S01245.sfm     +++|          STD    CM+1
Line S01246 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01246.ns2357  ---|          AOM    SFMD        SET CHECKPOINT REQUEST
01471  M01S01247.sfm     +++|          LDD    T6          SET FIRST TRACK
01472  M01S01248.sfm     +++|          STD    CM+2
01473  M01S01249.sfm     +++|          MONITOR STBM
01474  M01S00025.ns2357  +++| PDF2     LDC    CKPA        SET CHECKPOINT REQUEST
01475  M01S00026.ns2357  +++|          STM    SFMF
01476  M01S01250.sfm     +++|          LJM    SFMX        RETURN
01477  M01S01251.sfm     +++| CDB      SPACE  4,6
01478  M01S01252.sfm     +++|***       FUNCTION *CDBF* - CLEAR DAYFILE BYTE.
01479  M01S01253.sfm     +++|*
01480  M01S01254.sfm     +++|*         THE TRACK INTERLOCK AND THE FIRST TRACK BYTE FOR THE
01481  M01S01255.sfm     +++|*         SPECIFIED DAYFILE ON THE SPECIFIED DEVICE WILL BE CLEARED.
01482  M01S01256.sfm     +++|
01483  M01S01257.sfm     +++|
01484  M01S01258.sfm     +++| CDB      RJM    SDT         SET DAYFILE TYPE
01485  M01S01259.sfm     +++|          LDD    CN          SET EQUIPMENT
01486  M01S01260.sfm     +++|          STD    T5
01487  M01S01261.sfm     +++|          STM    CDBA
01488  M01S01262.sfm     +++|          SFA    EST         READ EST ENTRY
01489  M01S01263.sfm     +++|          ADK    EQDE
01490  M01S01264.sfm     +++|          CRD    CN
01491  M01S01265.sfm     +++|          LDD    CN          CHECK IF MASS STORAGE
01492  M01S01266.sfm     +++|          SHN    21-13
01493  M01S01267.sfm     +++|          MJN    CDB2        IF MASS STORAGE EQUIPMENT
01494  M01S01268.sfm     +++| CDB1     ABORT  /MESS/EREQ  * SFM INCORRECT EQUIPMENT.*
01495  M01S01269.sfm     +++|
01496  M01S01270.sfm     +++| CDB2     RJM    RLA         READ SECTOR OF LOCAL AREAS
01497  M01S01271.sfm     +++|          ZJN    CDB1        IF NO ENTRY FOR THIS MACHINE
01498  M01S01272.sfm     +++|          PJN    CDB3        IF NO MASS STORAGE ERROR
01499  M01S01273.sfm     +++|          ERROR  /ERR/RMS    EC=3, SFM UNCORECTABLE RMS ERROR
01500  M01S01274.sfm     +++|
01501  M01S01275.sfm     +++| CDB3     ADD    TY          SET TRACK BYTE ADDRESS
01502  M01S01276.sfm     +++|          SBN    SDAY
01503  M01S01277.sfm     +++|          STD    T1
01504  M01S01278.sfm     +++|          LDI    T1          SET FIRST TRACK OF INACTIVE DAYFILE
01505  M01S01279.sfm     +++|          STD    T6
01506  M01S01280.sfm     +++|          RJM    DTS         DETERMINE TRACK STATUS
01507  M01S01281.sfm     +++|          MJN    CDB4        IF TRACK INTERLOCK SET
01508  M01S01282.sfm     +++|          ABORT  /MESS/ERTE  * SFM TRACK INTERLOCK ERROR.*
01509  M01S01283.sfm     +++|
01510  M01S01284.sfm     +++| CDB4     LDD    TY          SET CHECKPOINT PARAMETER
01511  M01S01285.sfm     +++|          STM    CKPA+4
01512  M01S01286.sfm     +++|          RJM    CIB         CLEAR FST INTERLOCK BIT
01513  M01S01287.sfm     +++|          LDD    T6          CLEAR TRACK INTERLOCK
01514  M01S01288.sfm     +++|          RJM    CTI
Line S01289 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
01515  M02S01289.ns2357  ---|          AOM    SFMD        SET CHECKPOINT REQUEST
01516  M01S01290.sfm     +++|          LDD    MA          LOCATE THE *ZZZZLBT* FILE
01517  M01S01291.sfm     +++|          CWM    ATDD,ON
01518  M01S01292.sfm     +++|          SBN    1
01519  M01S01293.sfm     +++|          CRD    FN
01520  M01S01294.sfm     +++|          RJM    SAF
01521  M01S01295.sfm     +++|          ZJN    CDB5        IF FILE NOT FOUND
01522  M01S01296.sfm     +++|          RJM    DRF         RETURN THE *ZZZZLBT* FILE
01523  M01S01297.sfm     +++|          LDC    *           RESET THE EST ORDINAL
01524  M01S01298.sfm     +++| CDBA     EQU    *-1
01525  M01S01299.sfm     +++|          STD    T5
Line S01300 Modification History
M01 (Added by) sfm
M02 (Updated by) ns2357
Seq #  *Modification Id* Act 
----------------------------+
01526  M02S01300.ns2357  ---|          LJM    SFMX        RETURN
01527  M01S00027.ns2357  +++|          LJM    PDF2        SET CHECKPOINT REQUEST
01528  M01S01301.sfm     +++|
01529  M01S01302.sfm     +++| CDB5     ABORT  /MESS/ERFF  * SFM FILE NOT FOUND.*
01530  M01S01303.sfm     +++| ATD      SPACE  4,15
01531  M01S01304.sfm     +++| ATD      TITLE  ATTACH INACTIVE DAYFILE.
01532  M01S01305.sfm     +++|***       FUNCTION *ATDF* - ATTACH INACTIVE DAYFILE.
01533  M01S01306.sfm     +++|*
01534  M01S01307.sfm     +++|*         THE SPECIFIED INACTIVE DAYFILE ON EQUIPMENT, EQ, IS ATTACHED
01535  M01S01308.sfm     +++|*         TO THE CONTROL POINT AS A LIBRARY TYPE FILE WITH ITS TRACK
01536  M01S01309.sfm     +++|*         INTERLOCK BIT SET. THE FILE NAME IS TAKEN FROM THE FIRST
01537  M01S01310.sfm     +++|*         WORD OF THE FET.
01538  M01S01311.sfm     +++|*
01539  M01S01312.sfm     +++|*         IF A LIBRARY TYPE FILE WITH THE SAME FILE NAME IS FOUND
01540  M01S01313.sfm     +++|*         ATTACHED TO THE CONTROL POINT, THEN THE CALLER IS ABORTED.
01541  M01S01314.sfm     +++|*         IF THE DUPLICATE FILE IS NOT A LIBRARY TYPE FILE, THEN
01542  M01S01315.sfm     +++|*         IT IS RETURNED BEFORE CREATING THE NEW FILE.
01543  M01S01316.sfm     +++|*
01544  M01S01317.sfm     +++|*         THE LABEL TRACK ON THE DAYFILE DEVICE WILL BE INTERLOCKED TO
01545  M01S01318.sfm     +++|*         PREVENT PROBLEMS CAUSED BY MULTIPLE *DFTERM* RUNS.  THIS
01546  M01S01319.sfm     +++|*         INTERLOCK IS NORMALLY CLEARED BY A *CDBF* CALL.  TO ALLOW
01547  M01S01320.sfm     +++|*         FOR A POSSIBLE ABORT OF *DFTERM*, A LOCAL FILE *ZZZZLBT* OF
01548  M01S01321.sfm     +++|*         FILE TYPE *LIFT* WILL BE CREATED.  THIS FILE POINTS TO THE
01549  M01S01322.sfm     +++|*         INTERLOCKED LABEL.  *0DF* WILL CLEAR THE INTERLOCK WHEN
01550  M01S01323.sfm     +++|*         THE *ZZZZLBT* FILE IS RETURNED.
01551  M01S01324.sfm     +++|
01552  M01S01325.sfm     +++|
01553  M01S01326.sfm     +++| ATD      BSS    0           ENTRY
01554  M01S01327.sfm     +++|          LDD    MA          CREATE THE *ZZZZLBT* FILE
01555  M01S01328.sfm     +++|          CWM    ATDD,ON
01556  M01S01329.sfm     +++|          SBN    1
01557  M01S01330.sfm     +++|          CRD    FN
01558  M01S01331.sfm     +++| ATD0     LDN    NEEQ        SET THE NULL EQUIPMENT
01559  M01S01332.sfm     +++|          STD    FS
01560  M01S01333.sfm     +++|          LDN    2           RETURN IF NFL INCREASE PENDING
01561  M01S01334.sfm     +++|          STM    OVL0-1
01562  M01S01335.sfm     +++|          EXECUTE  0BF,OVL0
01563  M01S01336.sfm     +++|          UJN    ATD0.2      CHECK FOR FNT ENTRY CREATED
01564  M01S01337.sfm     +++|
01565  M01S01338.sfm     +++|*         PROCESS DUPLICATE FILE.
01566  M01S01339.sfm     +++|
01567  M01S01340.sfm     +++|          RJM    SFB         SET FILE BUSY
01568  M01S01341.sfm     +++|          NJN    ATD0.1      IF FILE BUSY REJECT
01569  M01S01342.sfm     +++|          RJM    DRF         DROP THE FILE
01570  M01S01343.sfm     +++|          UJN    ATD0        RETRY THE FILE CREATION
01571  M01S01344.sfm     +++|
01572  M01S01345.sfm     +++| ATD0.1   ABORT  /MESS/ERDF  * SFM DUPLICATE FILE FOUND.*
01573  M01S01346.sfm     +++|
01574  M01S01347.sfm     +++| ATD0.2   ZJN    ATD0.3      IF FNT CREATED
01575  M01S01348.sfm     +++|          LDN    NFIR
01576  M01S01349.sfm     +++|          LJM    ERS         ENTER PP RECALL STACK
01577  M01S01350.sfm     +++|
01578  M01S01351.sfm     +++| ATD0.3   LDD    FA          SAVE THE FNT OFFSET
01579  M01S01352.sfm     +++|          STM    ATDC
01580  M01S01353.sfm     +++|          RJM    GFE         GET THE DAYFILE FNT NAME
01581  M01S01354.sfm     +++|          CRD    FN
01582  M01S01355.sfm     +++|          RJM    VFN         VERIFY FILE NAME
01583  M01S01356.sfm     +++|          NJN    ATD1        IF NAME VERIFIES
01584  M01S01357.sfm     +++|          ABORT  /MESS/ERFN  * SFM FILE NAME ERROR.*
01585  M01S01358.sfm     +++|
01586  M01S01359.sfm     +++|*         GET FIRST TRACK OF FILE TO ATTACH.
01587  M01S01360.sfm     +++|
01588  M01S01361.sfm     +++| ATD1     RJM    SDT         SET DAYFILE TYPE
01589  M01S01362.sfm     +++|          LDD    CN          SET EST ORDINAL
01590  M01S01363.sfm     +++|          STD    T5
01591  M01S01364.sfm     +++|          STM    ATDB        SAVE EST ORDINAL
01592  M01S01365.sfm     +++|          SFA    EST         READ EST ENTRY
01593  M01S01366.sfm     +++|          ADK    EQDE
01594  M01S01367.sfm     +++|          CRD    CN
01595  M01S01368.sfm     +++|          LDD    CN
01596  M01S01369.sfm     +++|          SHN    21-13
01597  M01S01370.sfm     +++|          MJN    ATD3        IF MASS STORAGE
01598  M01S01371.sfm     +++| ATD2     ABORT  /MESS/EREQ  * SFM INCORRECT EQUIPMENT.*
01599  M01S01372.sfm     +++|
01600  M01S01373.sfm     +++| ATD3     RJM    RLA         READ SECTOR OF LOCAL AREAS
01601  M01S01374.sfm     +++|          ZJN    ATD2        IF NO ENTRY FOR THIS MACHINE
01602  M01S01375.sfm     +++|          PJN    ATD4        IF NO MASS STORAGE ERROR
01603  M01S01376.sfm     +++|          ERROR  /ERR/RMS    EC=3, UNCORRECTABLE RMS ERROR
01604  M01S01377.sfm     +++|
01605  M01S01378.sfm     +++| ATD4     ADD    TY          SET TRACK BYTE ADDRESS
01606  M01S01379.sfm     +++|          SBN    SDAY
01607  M01S01380.sfm     +++|          STD    T1
01608  M01S01381.sfm     +++|          LDI    T1          SET FIRST TRACK OF INACTIVE DAYFILE
01609  M01S01382.sfm     +++|          STD    T6
01610  M01S01383.sfm     +++|          STM    ATDA
01611  M01S01384.sfm     +++|          NJN    ATD5        IF FILE EXISTS
01612  M01S01385.sfm     +++|          ERROR  /ERR/FNF    EC=2, FILE NOT FOUND
01613  M01S01386.sfm     +++|
01614  M01S01387.sfm     +++|*         SET TRACK INTERLOCK.
01615  M01S01388.sfm     +++|
01616  M01S01389.sfm     +++| ATD5     RJM    STI         SET TRACK INTERLOCK
01617  M01S01390.sfm     +++|          ZJN    ATD7        IF INTERLOCK SET
01618  M01S01391.sfm     +++|          ERROR  /ERR/DFB    EC=0, DAYFILE BUSY
01619  M01S01392.sfm     +++|
01620  M01S01393.sfm     +++|*         ENTER FILE IN FNT TABLE.
01621  M01S01394.sfm     +++|
01622  M01S01395.sfm     +++| ATD6     RJM    SFB         SET FILE BUSY
01623  M01S01396.sfm     +++|          NJN    ATD7.1      IF FILE BUSY REJECT
01624  M01S01397.sfm     +++|          RJM    DRF         DROP FILE
01625  M01S01398.sfm     +++|
01626  M01S01399.sfm     +++| ATD7     LDN    NEEQ        SET NULL EQUIPMENT
01627  M01S01400.sfm     +++|          STD    FS
01628  M01S01401.sfm     +++|          LDN    2           RETURN TO ENTER PP STACK ON NFL INCREASE
01629  M01S01402.sfm     +++|          STM    OVL0-1
01630  M01S01403.sfm     +++|          EXECUTE 0BF,OVL0   MAKE FNT/FST ENTRY
01631  M01S01404.sfm     +++|          UJN    ATD7.2      CHECK IF FNT ENTRY CREATED
01632  M01S01405.sfm     +++|
01633  M01S01406.sfm     +++|*         PROCESS DUPLICATE FILE.
01634  M01S01407.sfm     +++|
01635  M01S01408.sfm     +++|          NFA    FA,R        READ FNT ENTRY OF DUPLICATE FILE
01636  M01S01409.sfm     +++|          CRD    FS
01637  M01S01410.sfm     +++|          LDD    FS+4        CHECK FILE TYPE
01638  M01S01411.sfm     +++|          SHN    -6
01639  M01S01412.sfm     +++|          LMN    LIFT
01640  M01S01413.sfm     +++|          NJN    ATD6        IF FILE NOT *LIBRARY* TYPE
01641  M01S01414.sfm     +++| ATD7.1   LDN    0           CLEAR FNT ENTRY ADDRESS
01642  M01S01415.sfm     +++|          STD    FA
01643  M01S01416.sfm     +++|          LDM    ATDA        CLEAR TRACK INTERLOCK
01644  M01S01417.sfm     +++|          RJM    CTI
01645  M01S01418.sfm     +++|          ABORT  /MESS/ERDF  * SFM DUPLICATE FILE FOUND.*
01646  M01S01419.sfm     +++|
01647  M01S01420.sfm     +++| ATD7.2   ZJN    ATD8        IF FNT ENTRY CREATED
01648  M01S01421.sfm     +++|          LDM    ATDA        CLEAR TRACK INTERLOCK
01649  M01S01422.sfm     +++|          RJM    CTI
01650  M01S01423.sfm     +++|          LDN    NFIR        REASON CODE = NFL INCREASE PENDING
01651  M01S01424.sfm     +++|          LJM    ERS         ENTER PP RECALL STACK
01652  M01S01425.sfm     +++|
01653  M01S01426.sfm     +++|*         BUILD FNT/FST ENTRY.
01654  M01S01427.sfm     +++|
01655  M01S01428.sfm     +++| ATD8     LDC    *           SET FIRST TRACK
01656  M01S01429.sfm     +++| ATDA     EQU    *-1         (DAYFILE FIRST TRACK)
01657  M01S01430.sfm     +++|          STD    FS+1
01658  M01S01431.sfm     +++|          STD    FS+2        SET CURRENT TRACK
01659  M01S01432.sfm     +++|          LDC    *           SET EQUIPMENT
01660  M01S01433.sfm     +++| ATDB     EQU    *-1         (EST ORDINAL)
01661  M01S01434.sfm     +++|          STD    FS
01662  M01S01435.sfm     +++|          STD    T5          SET EST ORDINAL
01663  M01S01436.sfm     +++|          LDN    FSMS        SET CURRENT SECTOR
01664  M01S01437.sfm     +++|          STD    FS+3
01665  M01S01438.sfm     +++|          LDC    1005        SET TRACK INTERLOCK, EOR
01666  M01S01439.sfm     +++|          STD    FS+4
01667  M01S01440.sfm     +++|          LDC    LIFT*100    SET FILE TYPE TO *LIBRARY*
01668  M01S01441.sfm     +++|          STD    FN+4
01669  M01S01442.sfm     +++|          RJM    LLT         LOCATE LABEL TRACK
01670  M01S01443.sfm     +++|          RJM    WTI         SET TRACK INTERLOCK
01671  M01S01444.sfm     +++|          NJP    ATD9        IF TRACK INTERLOCK NOT SET
01672  M01S01445.sfm     +++|          NFA    FA,R        STORE FNT ENTRY
01673  M01S01446.sfm     +++|          CWD    FN
01674  M01S01447.sfm     +++|          ADN    FSTL        STORE THE FST ENTRY
01675  M01S01448.sfm     +++|          CWD    FS
01676  M01S01449.sfm     +++|          LDC    **          COMPLETE THE *ZZZZLBT* FILE
01677  M01S01450.sfm     +++| ATDC     EQU    *-1
01678  M01S01451.sfm     +++|          STD    FA
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/sfm.txt · Last modified: by 127.0.0.1