Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.lfm +++| IDENT LFM,LFM
00002 M01S00002.lfm +++| PERIPH
00003 M01S00003.lfm +++| BASE MIXED
00004 M01S00004.lfm +++| SST
00005 M01S00005.lfm +++| EQV$ EQU 1 DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*
Line S00006 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.242l642 ---| MSS$ EQU 1 DEFINE ERROR PROCESSING FOR *COMPRSS*
00007 M01S00001.242l642 +++| MSR$ EQU 1 DEFINE ERROR PROCESSING FOR *COMPRNS*
00008 M01S00007.lfm +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS
00009 M01S00008.lfm +++|*COMMENT LFM - LOCAL FILE MANAGER.
Line S00009 Modification History
M01 (Added by) lfm
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00010 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00012 M01S00010.lfm +++| TITLE LFM - LOCAL FILE MANAGER.
00013 M01S00011.lfm +++| SPACE 4,10
00014 M01S00012.lfm +++|*** LFM - LOCAL FILE MANAGER.
00015 M01S00013.lfm +++|* G. R. MANSFIELD. 70/12/18.
00016 M01S00014.lfm +++|* M. S. CARTER. 76/06/24.
00017 M01S00015.lfm +++| SPACE 4,10
00018 M01S00016.lfm +++|*** LFM PERFORMS VARIOUS FILE MANAGING TASKS FOR A JOB.
00019 M01S00017.lfm +++| SPACE 4,10
00020 M01S00018.lfm +++|*** CALL.
Line S00019 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00021 M02S00019.ns22000 ---|*
00022 M01S00020.lfm +++|*
00023 M01S00021.lfm +++|*T, 18/ *LFM*, 1/1, 5/ , 12/ CODE, 6/ FP, 18/ FET
Figure
0 17 18 23 24 29 FET FP CODE 30 35 36 40 41 42 59 CODE 1 *LFM*
00024 M01S00022.lfm +++|* CODE FUNCTION CODE
00025 M01S00023.lfm +++|* FP FUNCTION PARAMETER -
00026 M01S00024.lfm +++|* FOR FUNCTION 3, FP = FILE STATUS.
00027 M01S00025.lfm +++|* FOR STATUS FUNCTION 13, FP=1, IF ADDITIONAL TAPE
00028 M01S00026.lfm +++|* INFORMATION IS REQUESTED.
00029 M01S00027.lfm +++|* FOR EQUIPMENT ASSIGMENT FUNCTIONS 14B, 15B AND
00030 M01S00028.lfm +++|* 26B, IF BIT 19 IS SET, NO DAYFILE MESSAGE
00031 M01S00029.lfm +++|* INDICATING THE EQUIPMENT ASSIGNED IS ISSUED.
00032 M01S00030.lfm +++|* FOR OPERATOR EQUIPMENT ASSIGNMENT FUNCTION 26B,
00033 M01S00031.lfm +++|* IF BIT 18 IS SET, OPERATOR TAPE ASSIGNMENT FOR
00034 M01S00032.lfm +++|* DUPLICATE *VSN* IS REQUIRED.
00035 M01S00033.lfm +++|* FOR FUNCTION 20B, FP = 0 TO ACCESS LIBRARY FILE,
00036 M01S00034.lfm +++|* FP = 1 IF *SYSTEM* FILE TO BE ASSIGNED.
00037 M01S00035.lfm +++|* FET ADDRESS OF FET
00038 M01S00036.lfm +++|*
00039 M01S00037.lfm +++|*T FET 42/ *FILE NAME*,17/,1/0
Figure
FET
0 1 17 18 29 0 *FILE NAME* 30 59 *FILE NAME*
00040 M01S00038.lfm +++|*T 12/ EQ,3/,1/E,44/
00041 M01S00039.lfm +++|* EQ EQUIPMENT TYPE
00042 M01S00040.lfm +++|* E RETURN ERROR CODE
00043 M01S00041.lfm +++|*
00044 M01S00042.lfm +++|* RETURN.
00045 M01S00043.lfm +++|*
00046 M01S00044.lfm +++|*T FET 42/ *FILE NAME*,8/ EC,9/,1/1
Figure
FET
0 1 9 10 17 18 29 1 EC *FILE NAME* 30 59 *FILE NAME*
00047 M01S00045.lfm +++|* EC ERROR CODE
00048 M01S00046.lfm +++| SPACE 4,10
00049 M01S00047.lfm +++|*** DAYFILE MESSAGES.
Line S00048 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00050 M02S00048.ns22000 ---|*
00051 M01S00049.lfm +++|*
Line S00050 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00052 M02S00050.v23l617 ---|* * LFM ILLEGAL REQUEST.* = *LFM* WAS CALLED WITHOUT
Line S00051 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00053 M02S00051.v23l617 ---|* AUTO RECALL OR WITH ILLEGAL FUNCTION CODE.
00054 M01S00001.v23l617 +++|* * LFM INCORRECT REQUEST.* = *LFM* WAS CALLED WITHOUT
00055 M01S00002.v23l617 +++|* AUTO RECALL OR WITH INCORRECT FUNCTION CODE.
00056 M01S00052.lfm +++|*
00057 M01S00001.lfm19 +++|* * COMMAND FILE ERROR.* = AN UNRECOVERABLE MASS STORAGE ERROR
00058 M01S00002.lfm19 +++|* OCCURRED ON THE JOBS COMMAND FILE.
00059 M01S00003.lfm19 +++|*
00060 M01S00053.lfm +++|* * DUPLICATE FILE NAME.* = FILE ALREADY EXISTS FOR USER JOB.
00061 M01S00054.lfm +++|*
00062 M01S00055.lfm +++|* * FILE EMPTY.* = FILE EXISTS BUT IS EMPTY.
00063 M01S00056.lfm +++|*
Line S00057 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00064 M02S00057.v23l617 ---|* * FILE NAME ERROR.* = FILE NAME CONTAINS ILLEGAL CHARACTERS
00065 M01S00003.v23l617 +++|* * FILE NAME ERROR.* = FILE NAME CONTAINS INCORRECT CHARACTERS
00066 M01S00058.lfm +++|* OR MORE THAN SEVEN CHARACTERS.
00067 M01S00059.lfm +++|*
00068 M01S00060.lfm +++|* * FILE NOT FOUND.* = REQUESTED FILE WAS NOT FOUND.
00069 M01S00061.lfm +++|*
Line S00062 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00070 M02S00062.v23l617 ---|* * ILLEGAL EQUIPMENT.* = USER SPECIFIED EQUIPMENT THAT DOES
00071 M01S00004.v23l617 +++|* * INCORRECT EQUIPMENT.* = USER SPECIFIED EQUIPMENT THAT DOES
00072 M01S00063.lfm +++|* NOT EXIST OR IS NOT ALLOWED.
00073 M01S00064.lfm +++|*
Line S00065 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00074 M02S00065.v23l617 ---|* * ILLEGAL FILE STATUS.* - FILE STATUS IS OUT OF RANGE OF
00075 M01S00005.v23l617 +++|* * INCORRECT FILE STATUS.* - FILE STATUS IS OUT OF RANGE OF
00076 M01S00066.lfm +++|* DEFINED VALUES.
00077 M01S00067.lfm +++|*
Line S00068 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00078 M02S00068.v23l617 ---|* * ILLEGAL FILE TYPE.* = FILE WAS NOT CORRECT TYPE FOR
00079 M01S00006.v23l617 +++|* * INCORRECT FILE TYPE.* = FILE WAS NOT CORRECT TYPE FOR
00080 M01S00069.lfm +++|* FUNCTION.
00081 M01S00070.lfm +++|*
Line S00071 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq # *Modification Id* Act
----------------------------+
00082 M02S00071.lfm2 ---|* * ILLEGAL FILE MODE.* = THE USER TRIED TO DISPOSE, MAKE
Line S00072 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm2
Seq # *Modification Id* Act
----------------------------+
00083 M02S00072.lfm2 ---|* COMMON, OR UNLOCK A FILE WHICH WAS IN EXECUTE-ONLY MODE.
Line S00001 Modification History
M01 (Added by) lfm2
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00084 M02S00001.v23l617 ---|* * ILLEGAL FILE MODE.* = FUNCTION NOT ALLOWED ON
00085 M01S00007.v23l617 +++|* * INCORRECT FILE MODE.* = FUNCTION NOT ALLOWED ON
00086 M01S00002.lfm2 +++|* EXECUTE-ONLY FILE.
00087 M01S00073.lfm +++|*
Line S00074 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00088 M02S00074.v23l617 ---|* * ILLEGAL USER ACCESS.* = USER ATTEMPTED TO ACCESS SOMETHING
Line S00075 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00089 M02S00075.v23l617 ---|* WITHOUT REQUIRED VALIDATION.
00090 M01S00008.v23l617 +++|* * USER ACCESS NOT VALID.* = USER ATTEMPTED TO ACCESS
00091 M01S00009.v23l617 +++|* SOMETHING WITHOUT REQUIRED VALIDATION.
00092 M01S00001.ns22000 +++|*
00093 M01S00002.ns22000 +++|* * ACCESS LEVEL NOT VALID FOR FILE.* = *LFM* WAS CALLED BY
00094 M01S00003.ns22000 +++|* A USER WHO ATTEMPTED TO SET A FILE-S ACCESS LEVEL TO A
00095 M01S00004.ns22000 +++|* LEVEL NOT VALID FOR THAT USER, OR FOR THE EQUIPMENT UPON
00096 M01S00005.ns22000 +++|* WHICH THAT FILE RESIDED.
00097 M01S00076.lfm +++|*
Line S00077 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00098 M02S00077.ns22000 ---|* * EQUIPMENT AVAILABLE.* = EQUIPMENT IS IN USE OR DOES NOT
00099 M01S00006.ns22000 +++|* * EQUIPMENT NOT AVAILABLE.* = EQUIPMENT IS IN USE OR DOES
Line S00078 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00100 M02S00078.ns22000 ---|* NOT EXIST.
Line S00007 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00101 M02S00007.242l642 ---|* NOT EXIST, OR NO EQUIPMENT WITH THE PROPER ACCESS LEVEL
Line S00008 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00102 M02S00008.242l642 ---|* CAN BE FOUND.
00103 M01S00002.242l642 +++|* NOT EXIST, NO EQUIPMENT WITH THE PROPER ACCESS LEVEL CAN
00104 M01S00003.242l642 +++|* BE FOUND, OR THE MASS STORAGE DEVICE ENCOUNTERED AN I/O
00105 M01S00004.242l642 +++|* ERROR.
00106 M01S00079.lfm +++|*
Line S00080 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00107 M02S00080.ns22000 ---|* * NO MASS STORAGE AVAILABLE.* = ATTEMPT WAS MADE
Line S00081 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00108 M02S00081.ns22000 ---|* TO RESERVE A TRACK FOR THE USER S NULL PRIMARY
Line S00082 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00109 M02S00082.ns22000 ---|* FILE, WHICH THE SYSTEM COULD NOT HONOR.
00110 M01S00009.ns22000 +++|* * NO MASS STORAGE AVAILABLE.* = NO TRACKS COULD BE FOUND
00111 M01S00010.ns22000 +++|* OF THE CORRECT TYPE.
00112 M01S00083.lfm +++|*
00113 M01S00084.lfm +++|* * FET TOO SHORT.* = FET IS NOT LONG ENOUGH TO ACCOMPLISH
00114 M01S00085.lfm +++|* FUNCTION.
00115 M01S00086.lfm +++|*
00116 M01S00087.lfm +++|* * GETFNT TABLE TOO LARGE.* = TABLE USED BY GETFNT
00117 M01S00088.lfm +++|* FUNCTION EXTENDS OUTSIDE FIELD LENGTH.
00118 M01S00089.lfm +++|*
00119 M01S00090.lfm +++|* * ADDRESS OUT OF RANGE.* = SOME PORTION OF THE PARAMETER
00120 M01S00091.lfm +++|* BLOCK OR FET IS BEYOND THE USERS FIELD LENGTH.
00121 M01S00092.lfm +++|*
00122 M01S00093.lfm +++|* * PARAMETER BLOCK BUSY.* = COMPLETION BIT IS SET BEFORE
00123 M01S00094.lfm +++|* PROCESSING OF FUNCTION BEGINS.
00124 M01S00095.lfm +++|*
00125 M01S00096.lfm +++|* * I/O SEQUENCE ERROR.* = A REQUEST WAS MADE ON A BUSY FILE.
00126 M01S00097.lfm +++|*
Line S00098 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00127 M02S00098.v23l617 ---|* * MAGNET NOT ACTIVE.* = NO UDT ADDRESS IN FST, OR MAGNET
Line S00099 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00128 M02S00099.v23l617 ---|* NOT PRESENT.
00129 M01S00010.v23l617 +++|* * MAGNETIC TAPE SUBSYSTEM NOT ACTIVE.* = NO UDT ADDRESS
00130 M01S00011.v23l617 +++|* IN FST, OR MAGNET NOT PRESENT.
00131 M01S00100.lfm +++|*
00132 M01S00101.lfm +++|* * SYSTEM ERROR.* = LFM CANNOT COMPLETE THE REQUESTED LFM
00133 M01S00102.lfm +++|* FUNCTION BECAUSE THE CALLING PROGRAM HAS A *DMP=* ENTRY
00134 M01S00103.lfm +++|* POINT.
00135 M01S00104.lfm +++|*
Line S00105 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00136 M02S00105.v23l617 ---|* * ILLEGAL RANDOM ADDRESS.* = THE REQUESTED *LFM*
00137 M01S00012.v23l617 +++|* * INCORRECT RANDOM ADDRESS.* = THE REQUESTED *LFM*
00138 M01S00106.lfm +++|* FUNCTION SPECIFIED A CURRENT RANDOM ADDRESS OF ZERO.
00139 M01S00011.ns22000 +++|*
00140 M01S00012.ns22000 +++|* *XX, ASSIGNED TO FILENAM.* = *MSAL* DEVICE TYPE XX ASSIGNED.
00141 M01S00013.ns22000 +++|*
00142 M01S00014.ns22000 +++|* *TTXXX, ASSIGNED TO FILENAM.* = EST ORDINAL XXX WITH TYPE TT
00143 M01S00015.ns22000 +++|* WAS ASSIGNED.
00144 M01S00001.ns2236 +++| SPACE 4,10
00145 M01S00002.ns2236 +++|*** ACCOUNT DAYFILE MESSAGES.
00146 M01S00003.ns2236 +++|*
00147 M01S00004.ns2236 +++|*
00148 M01S00005.ns2236 +++|* *MFFI, FILENAME, LEVELNAME.* = AN INVALID ATTEMPT WAS MADE TO
00149 M01S00006.ns2236 +++|* CHANGE THE ACCESS LEVEL ON FILE FILENAME TO LEVEL LEVELNAME.
00150 M01S00107.lfm +++| SPACE 4,10
00151 M01S00108.lfm +++|*** OPERATOR MESSAGES.
00152 M01S00109.lfm +++|*
Line S00110 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00153 M02S00110.ns22000 ---|*
Line S00111 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00154 M02S00111.ns22000 ---|*
Line S00001 Modification History
M01 (Added by) ns2043
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00155 M02S00001.ns22000 ---|* *TRACK LIMIT EQXX.* = *LFM* IS WAITING FOR MASS STORAGE SPACE
Line S00002 Modification History
M01 (Added by) ns2043
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00156 M02S00002.ns22000 ---|* ON EQUIPMENT ORDINAL XX.
Line S00003 Modification History
M01 (Added by) ns2043
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00157 M02S00003.ns22000 ---|*
Line S00004 Modification History
M01 (Added by) ns2043
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00158 M02S00004.ns22000 ---|* *TRACK LIMIT.* = *LFM* IS WAITING FOR MASS STORAGE SPACE.
00159 M01S00016.ns22000 +++|* * TRACK LIMIT.* = *LFM* IS WAITING FOR MASS STORAGE SPACE.
00160 M01S00017.ns22000 +++|*
00161 M01S00018.ns22000 +++|* *EQXXX, TRACK LIMIT.* = *LFM* IS WAITING FOR MASS STORAGE
00162 M01S00019.ns22000 +++|* SPACE ON EST ORDINAL XXX.
00163 M01S00005.ns2043 +++|*
00164 M01S00112.lfm +++|* *REQUEST NNNNNNN, EQ* = JOB IS REQUESTING ASSIGNMENT
00165 M01S00113.lfm +++|* OF EQUIPMENT TYPE *EQ* TO BE ASSIGNED TO FILE *NNNNNNN*.
00166 M01S00114.lfm +++| SPACE 4,10
00167 M01S00115.lfm +++|** ROUTINES CALLED.
00168 M01S00116.lfm +++|*
00169 M01S00117.lfm +++|*
00170 M01S00118.lfm +++|* 0BF - BEGIN FILE.
00171 M01S00119.lfm +++|* 0DF - DROP FILE.
00172 M01S00120.lfm +++| SPACE 4,10
Line S00121 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00173 M02S00121.ns22000 ---|** NOTE - AN *MXFM* MONITOR FUNCTION TO HANG *LFM*
Line S00122 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00174 M02S00122.ns22000 ---|* WILL OCCUR DURING *FILINFO* PROCESSING IF
Line S00123 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00175 M02S00123.ns22000 ---|* UNRECOGNIZABLE FILE ACCESS MODE BITS OCCUR IN
00176 M01S00020.ns22000 +++|** NOTE - MONITOR FUNCTION *HNGM* WILL BE ISSUED IF *LFM*
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00177 M02S00021.v23l617 ---|* DETECTS AN INVALID FILE STATUS IN THE FNT WHEN PROCESSING A
00178 M01S00013.v23l617 +++|* DETECTS AN INCORRECT FILE STATUS IN THE FNT WHEN PROCESSING A
00179 M01S00022.ns22000 +++|* *FILINFO* REQUEST.
00180 M01S00124.lfm +++|* THE *FNT* ENTRY.
00181 M01S00125.lfm +++| SPACE 4
00182 M01S00126.lfm +++|** COMMON DECKS.
00183 M01S00127.lfm +++|
00184 M01S00128.lfm +++|
00185 M01S00129.lfm +++|*CALL COMPMAC
00186 M01S00130.lfm +++| LIST X
00187 M01S00131.lfm +++|*CALL COMSLFM
00188 M01S00132.lfm +++| LIST *
00189 M01S00133.lfm +++| SPACE 4
00190 M01S00134.lfm +++| ORG PPFW
Line S00135 Modification History
M01 (Added by) lfm
M02 (Updated by) ns21000
Seq # *Modification Id* Act
----------------------------+
00191 M02S00135.ns21000 ---|*CALL COMSRSX
00192 M01S00136.lfm +++| QUAL MTX
00193 M01S00137.lfm +++|*CALL COMSMTX
00194 M01S00138.lfm +++| QUAL *
00195 M01S00139.lfm +++|*CALL COMSEVT
00196 M01S00140.lfm +++|*CALL COMSLFD
00197 M01S00141.lfm +++|*CALL COMSCPS
00198 M01S00142.lfm +++|*CALL COMSJIO
00199 M01S00023.ns22000 +++|*CALL COMSMLS
00200 M01S00143.lfm +++|*CALL COMSMSP
00201 M01S00001.241l630 +++|*CALL COMSPFM
00202 M01S00002.241l630 +++|*CALL COMSSCD
00203 M01S00144.lfm +++|*CALL COMSPIM
00204 M01S00145.lfm +++|*CALL COMSSSD
00205 M01S00146.lfm +++|*CALL COMSSSE
00206 M01S00147.lfm +++|*CALL COMSSSJ
00207 M01S00148.lfm +++|*CALL COMSWEI
00208 M01S00149.lfm +++|*CALL COMSZOL
00209 M01S00150.lfm +++| SPACE 4
00210 M01S00151.lfm +++|**** DIRECT LOCATION ASSIGNMENTS.
00211 M01S00152.lfm +++|
00212 M01S00153.lfm +++|
00213 M01S00154.lfm +++| FS EQU 20 - 24 FST ENTRY (5 LOCATIONS)
Line S00155 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00214 M02S00155.ns22000 ---| EQ EQU 25 EQUIPMENT NUMBER
00215 M01S00024.ns22000 +++| EQ EQU 25 EST ORDINAL
00216 M01S00025.ns22000 +++| AL EQU 26 ACCESS LEVEL
00217 M01S00156.lfm +++| FP EQU 27 FUNCTION PARAMETER
00218 M01S00157.lfm +++| CN EQU 30 - 34 CM WORD BUFFER (5 LOCATIONS)
00219 M01S00158.lfm +++| AB EQU CN FOR USE ON CALL TO *COMPCLD*
00220 M01S00159.lfm +++| RI EQU 35 - 36 RANDOM INDEX
00221 M01S00160.lfm +++| FF EQU 37 FET SPECIFIED FNT ADDRESS
00222 M01S00161.lfm +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS)
Line S00162 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00223 M02S00162.v23l617 ---| UN EQU FN USER NUMBER (5 LOCATIONS)
00224 M01S00014.v23l617 +++| UN EQU FN USER NAME (5 LOCATIONS)
00225 M01S00163.lfm +++| FE EQU 45 FET LENGTH - 1
00226 M01S00164.lfm +++| LS EQU 46 LAST FET STATUS
00227 M01S00165.lfm +++| OC EQU 47 JOB ORIGIN CODE
00228 M01S00166.lfm +++| FA EQU 57 ADDRESS OF FNT ENTRY
00229 M01S00167.lfm +++| FT EQU 60 - 64 FNT POINTERS
00230 M01S00168.lfm +++|
00231 M01S00169.lfm +++|****
00232 M01S00170.lfm +++| SPACE 4
00233 M01S00171.lfm +++|** ADDITIONAL DIRECT LOCATION ASSIGNMENTS DEFINED
00234 M01S00172.lfm +++|* LOCALLY TO OVERLAYS.
00235 M01S00173.lfm +++|*
00236 M01S00174.lfm +++|* UD = 60-64 - OVERLAY 3LB.
00237 M01S00175.lfm +++|* VS = 60-64 - OVERLAY 3LC.
00238 M01S00176.lfm +++|* SP = 60-64 - OVERLAY 3LF.
00239 M01S00015.v23l617 +++|* ST = 65 - OVERLAY 3LB.
00240 M01S00177.lfm +++|* CF = 65 - OVERLAY 3LE.
00241 M01S00178.lfm +++|* CB = 65 - OVERLAY 3LG.
00242 M01S00001.274l797 +++|* SX = 66 - OVERLAY 3LB.
00243 M01S00179.lfm +++|* WO = 66 - OVERLAY 3LE.
00244 M01S00180.lfm +++|* SB = 66-67 - OVERLAY 3LG.
00245 M01S00181.lfm +++| SPACE 4
00246 M01S00182.lfm +++|** ASSEMBLY CONSTANTS.
00247 M01S00183.lfm +++|
00248 M01S00184.lfm +++|
00249 M01S00185.lfm +++| DNFS EQU 200 DEFAULT NUMBER OF FILES - GETFNT FCN.
00250 M01S00186.lfm +++| CGNT EQU 10 FET PARAMETER WORD - GETFNT FCN.
00251 M01S00187.lfm +++| SPACE 4
00252 M01S00188.lfm +++|* OVERLAY CONTROL.
00253 M01S00189.lfm +++|
00254 M01S00190.lfm +++|
00255 M01S00191.lfm +++| .N SET 0
00256 M01S00192.lfm +++| OVLB MICRO 1,, 3L BASE OVERLAY NAME
00257 M01S00193.lfm +++| TITLE OVERLAY COMMUNICATION MACROS.
00258 M01S00194.lfm +++| OVERLAY SPACE 4
00259 M01S00195.lfm +++|** OVERLAY - GENERATE OVERLAY CONSTANTS.
00260 M01S00196.lfm +++|*
00261 M01S00197.lfm +++|*
00262 M01S00198.lfm +++|* OVERLAY (TEXT)
00263 M01S00199.lfm +++|* ENTRY *TEXT* = TEXT OF SUBTITLE.
00264 M01S00200.lfm +++|
00265 M01S00201.lfm +++|
00266 M01S00202.lfm +++| PURGMAC OVERLAY
00267 M01S00203.lfm +++|
00268 M01S00204.lfm +++| OVERLAY MACRO TEXT
00269 M01S00205.lfm +++| QUAL
00270 M01S00206.lfm +++| .N SET .N+1
00271 M01S00207.lfm +++| .M MICRO .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00272 M01S00208.lfm +++| .O MICRO 1,3, "OVLB"".M"
00273 M01S00209.lfm +++| QUAL ".O"
00274 M01S00210.lfm +++| TTL LFM/".O" - TEXT
00275 M01S00211.lfm +++| TITLE
00276 M01S00212.lfm +++| IDENT ".O",OVL TEXT
00277 M01S00213.lfm +++|*COMMENT LFM - TEXT
Line S00214 Modification History
M01 (Added by) lfm
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00278 M02S00214.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00279 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00280 M01S00215.lfm +++| ORG OVL
00281 M01S00216.lfm +++| LJM *
00282 M01S00217.lfm +++| UJN *-2
00283 M01S00218.lfm +++| ENDM
00284 M01S00219.lfm +++| ENTRY SPACE 4
00285 M01S00220.lfm +++|** ENTRY - DEFINE OVERLAY ENTRY POINT.
00286 M01S00221.lfm +++|*
00287 M01S00222.lfm +++|*
00288 M01S00223.lfm +++|* ENTRY NAME
00289 M01S00224.lfm +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS.
00290 M01S00225.lfm +++|
00291 M01S00226.lfm +++|
00292 M01S00227.lfm +++| PURGMAC ENTRY
00293 M01S00228.lfm +++|
00294 M01S00229.lfm +++| ENTRY MACRO NAME
00295 M01S00230.lfm +++| QUAL
00296 M01S00231.lfm +++| NAME EQU *+1R".M"*10000
00297 M01S00232.lfm +++| QUAL ".O"
00298 M01S00233.lfm +++| ENDM
00299 M01S00003.241l630 +++| CSR SPACE 4,10
00300 M01S00004.241l630 +++|** CSR - DEFINE 24 BIT QUANTITY FROM 18 BIT EQUATE.
00301 M01S00005.241l630 +++|*
00302 M01S00006.241l630 +++|* CSR R
00303 M01S00007.241l630 +++|*
00304 M01S00008.241l630 +++|* *R* = VALUE TO BE EXPANDED TO 24 BITS.
00305 M01S00009.241l630 +++|* IF *R* = 0, 77777777B WILL BE STORED.
00306 M01S00010.241l630 +++|
00307 M01S00011.241l630 +++| CSR MACRO R
00308 M01S00012.241l630 +++| LOCAL N,O,P,Q
00309 M01S00013.241l630 +++| MACREF CSR
00310 M01S00014.241l630 +++| N SET R
00311 M01S00015.241l630 +++| IFNE R,0
00312 M01S00016.241l630 +++| O SET R/100B
00313 M01S00017.241l630 +++| P SET O*100B
00314 M01S00018.241l630 +++| Q SET R-P
00315 M01S00019.241l630 +++| CON O,Q*100B
00316 M01S00020.241l630 +++| ELSE
00317 M01S00021.241l630 +++| CON 7777B,7777B
00318 M01S00022.241l630 +++| ENDIF
00319 M01S00023.241l630 +++| CSR ENDM
00320 M01S00001.251l670 +++| TBLM SPACE 4,10
00321 M01S00002.251l670 +++|** TBLM - GENERATE LIST OF MASS STORAGE DEVICE MNEMONICS.
00322 M01S00003.251l670 +++|*
00323 M01S00004.251l670 +++|* TBLM EQ
00324 M01S00005.251l670 +++|* EQ = DEVICE MNEMONIC.
00325 M01S00006.251l670 +++|
00326 M01S00007.251l670 +++|
00327 M01S00008.251l670 +++| TBLM MACRO EQ
00328 M01S00009.251l670 +++| CON 2R_EQ
00329 M01S00010.251l670 +++| TBLM ENDM
00330 M01S00234.lfm +++| TITLE MAIN PROGRAM.
00331 M01S00235.lfm +++| LFM SPACE 4
00332 M01S00236.lfm +++|** LFM - MAIN PROGRAM.
00333 M01S00237.lfm +++|
00334 M01S00238.lfm +++|
00335 M01S00239.lfm +++| ORG PPFW
00336 M01S00240.lfm +++| LFM RJM PRS PRESET PROGRAM
00337 M01S00241.lfm +++| LFM1 LDC 0
00338 M01S00242.lfm +++| LFMA EQU *-1 (OVERLAY NAME)
00339 M01S00243.lfm +++| ZJN LFM2 IF NO OVERLAY REQUIRED
00340 M01S00244.lfm +++| LMC 2L"OVLB" LOAD OVERLAY
00341 M01S00245.lfm +++| RJM EXR
00342 M01S00246.lfm +++| LFM2 LJM * PROCESS REQUEST
00343 M01S00247.lfm +++| LFMB EQU *-1
00344 M01S00248.lfm +++|
Line S00249 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00345 M02S00249.242l642 ---| LFMX AOD FS+4 SET FILE NOT BUSY
Line S00250 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00346 M02S00250.242l642 ---| LDD FA STORE FST ENTRY
Line S00251 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00347 M02S00251.242l642 ---| ZJN LFM3 IF NO FNT ENTRY
Line S00252 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00348 M02S00252.242l642 ---| NFA FA,R
Line S00253 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00349 M02S00253.242l642 ---| ADN FSTL
Line S00254 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00350 M02S00254.242l642 ---| CWD FS
00351 M01S00005.242l642 +++| LFMX RJM SNB SET FILE(S) NOT BUSY
00352 M01S00255.lfm +++| LFM3 RJM SFS SET FILE STATUS
Line S00256 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2171
Seq # *Modification Id* Act
----------------------------+
00353 M02S00256.ns2171 ---|* UJN DPP DROP PP
00354 M01S00001.ns2171 +++| LDM DPPB CHECK FOR *UADM* DATA
00355 M01S00002.ns2171 +++| SHN 14
00356 M01S00003.ns2171 +++| ADM DPPB+1
00357 M01S00004.ns2171 +++| ZJN DPP IF NO DATA
00358 M01S00005.ns2171 +++| LDD MA ISSUE *UADM* FUNCTION
00359 M01S00006.ns2171 +++| CWM DPPA,ON
00360 M01S00007.ns2171 +++| LDN 1
00361 M01S00008.ns2171 +++| STD CM+1
00362 M01S00009.ns2171 +++| STD CM+2
00363 M01S00010.ns2171 +++| MONITOR UADM
00364 M01S00257.lfm +++| DPP SPACE 4,10
00365 M01S00258.lfm +++|** DPP - DROP PP.
00366 M01S00259.lfm +++|
00367 M01S00260.lfm +++|
00368 M01S00261.lfm +++| DPP MONITOR DPPM DROP PPU
00369 M01S00262.lfm +++| LJM PPR RETURN TO PP RESIDENT
00370 M01S00011.ns2171 +++|
00371 M01S00012.ns2171 +++|* *UADM* PARAMETER WORD.
00372 M01S00013.ns2171 +++|
00373 M01S00014.ns2171 +++| DPPA CON CDCS DECREMENT CONTROL POINT AREA
00374 M01S00015.ns2171 +++|* CON (CICS) INCREMENT CONTROL POINT AREA
00375 M01S00016.ns2171 +++| CON ACLW
00376 M01S00017.ns2171 +++| CON 0D*100+18D
00377 M01S00018.ns2171 +++| DPPB CON 0,0
00378 M01S00263.lfm +++| TITLE RESIDENT SUBROUTINES.
00379 M01S00264.lfm +++| CKE SPACE 4,10
00380 M01S00265.lfm +++|** CKE - CHECK ERROR PROCESSING.
00381 M01S00266.lfm +++|*
00382 M01S00267.lfm +++|* ENTRY (A) = ERROR CODE.
00383 M01S00268.lfm +++|*
00384 M01S00269.lfm +++|* EXIT (EQ) = ERROR CODE.
00385 M01S00270.lfm +++|*
00386 M01S00271.lfm +++|* USES CM - CM+4.
00387 M01S00272.lfm +++|*
Line S00273 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00388 M02S00273.ns22000 ---|* CALLS CPA.
00389 M01S00026.ns22000 +++|* CALLS CPA, DRF.
00390 M01S00274.lfm +++|
00391 M01S00275.lfm +++|
00392 M01S00276.lfm +++| CKE SUBR ENTRY/EXIT
00393 M01S00277.lfm +++| STD EQ SAVE MESSAGE CODE
00394 M01S00278.lfm +++| ADN 1 SET FET ERROR CODE
00395 M01S00279.lfm +++| SHN 12
00396 M01S00280.lfm +++| STM SFSC
00397 M01S00281.lfm +++| SHN -14
00398 M01S00282.lfm +++| STM SFSB
00399 M01S00283.lfm +++| RJM CPA READ FIRST
00400 M01S00284.lfm +++| ADN 1
00401 M01S00285.lfm +++| CRD CM
00402 M01S00286.lfm +++| LDD CM+1
00403 M01S00287.lfm +++| SHN 21-8D
00404 M01S00288.lfm +++| PJN CKEX RETURN IF USER NOT PROCESSING ERROR
00405 M01S00289.lfm +++| LDD EQ
Line S00290 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm14
Seq # *Modification Id* Act
----------------------------+
00406 M02S00290.lfm14 ---| LMN /ERR/IOE
00407 M01S00001.lfm14 +++| LMN /ERR/LNV
00408 M01S00002.lfm14 +++| ZJN CKEX IF ACCESS LEVEL NOT VALID FOR FILE
00409 M01S00003.lfm14 +++| LMN /ERR/IOE&/ERR/LNV
00410 M01S00291.lfm +++| ZJN CKEX IF I/O SEQUENCE ERROR
Line S00292 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00411 M02S00292.ns22000 ---| LJM LFMX EXIT
00412 M01S00027.ns22000 +++| LMN /ERR/NMA&/ERR/IOE
00413 M01S00028.ns22000 +++| NJN CKE1 IF NOT TRACK LIMIT
00414 M01S00029.ns22000 +++| RJM DRF DROP FILE
00415 M01S00030.ns22000 +++| CKE1 LJM LFMX EXIT
00416 M01S00293.lfm +++| CLF SPACE 4,10
00417 M01S00294.lfm +++|** CLF - CREATE LOCAL FILE.
00418 M01S00295.lfm +++|*
Line S00296 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00419 M02S00296.ns22000 ---|* ENTRY (EQ) = EQUIPMENT DEFINITION.
00420 M01S00031.ns22000 +++|* ENTRY (EQ) = EST ORDINAL.
00421 M01S00297.lfm +++|* (FN - FN+4) = FILE NAME.
00422 M01S00032.ns22000 +++|* (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
00423 M01S00298.lfm +++|*
00424 M01S00299.lfm +++|* EXIT SEE *EFN*.
00425 M01S00300.lfm +++|* (FN+4) = *SSST* FILE STATUS CLEARED.
00426 M01S00301.lfm +++|*
00427 M01S00302.lfm +++|* CALLS EFN.
00428 M01S00303.lfm +++|*
00429 M01S00304.lfm +++|* MACROS NFA.
00430 M01S00305.lfm +++|
00431 M01S00306.lfm +++|
00432 M01S00307.lfm +++| CLF SUBR ENTRY/EXIT
00433 M01S00308.lfm +++| RJM EFN ENTER FILE
00434 M01S00309.lfm +++| LDD FN+4 CHECK FILE STATUS
00435 M01S00310.lfm +++| LPN 77
00436 M01S00311.lfm +++| LMN SSST
00437 M01S00312.lfm +++| NJN CLFX IF NOT SPECIAL SYSTEM FILE
00438 M01S00313.lfm +++| LCN SSST CLEAR SPECIAL SYSTEM FILE STATUS
00439 M01S00314.lfm +++| RAD FN+4
00440 M01S00315.lfm +++| NFA FA,R
00441 M01S00316.lfm +++| CWD FN
00442 M01S00317.lfm +++| UJN CLFX RETURN
00443 M01S00318.lfm +++| CPA SPACE 4,10
00444 M01S00319.lfm +++|** CPA - COMPUTE PARAMETER ADDRESS.
00445 M01S00320.lfm +++|*
00446 M01S00321.lfm +++|* ENTRY (IR+3 - IR+4) = RELATIVE PARAMETER ADDRESS.
00447 M01S00322.lfm +++|*
00448 M01S00323.lfm +++|* EXIT (A) = ABSOLUTE PARAMETER ADDRESS.
00449 M01S00324.lfm +++|
00450 M01S00325.lfm +++|
00451 M01S00326.lfm +++| CPA SUBR ENTRY/EXIT
00452 M01S00327.lfm +++| LDD IR+3
00453 M01S00328.lfm +++| LPN 37
00454 M01S00329.lfm +++| SHN 6
00455 M01S00330.lfm +++| ADD RA
00456 M01S00331.lfm +++| SHN 6
00457 M01S00332.lfm +++| ADD IR+4
00458 M01S00333.lfm +++| UJN CPAX RETURN
00459 M01S00334.lfm +++| DEQ SPACE 4,10
00460 M01S00335.lfm +++|** DEQ - DROP EQUIPMENT.
00461 M01S00336.lfm +++|*
00462 M01S00337.lfm +++|* ENTRY (EQ) = EST ORDINAL.
00463 M01S00338.lfm +++|*
00464 M01S00339.lfm +++|* USES T0, CM - CM+4.
00465 M01S00340.lfm +++|*
Line S00341 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00466 M02S00341.ns22000 ---|* MACROS GEA, MONITOR.
00467 M01S00033.ns22000 +++|* MACROS MONITOR, SFA.
00468 M01S00342.lfm +++|
00469 M01S00343.lfm +++|
00470 M01S00344.lfm +++| DEQ SUBR ENTRY/EXIT
00471 M01S00345.lfm +++| LDD EQ READ EST ENTRY
00472 M01S00346.lfm +++| LPC 777
00473 M01S00347.lfm +++| STD T0 SAVE EST ORDINAL
00474 M01S00348.lfm +++| ZJN DEQX IF NO EQUIPMENT PRESENT
Line S00349 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00475 M02S00349.ns22000 ---| ADM ESTS
00476 M01S00034.ns22000 +++| SFA EST
00477 M01S00035.ns22000 +++| ADK EQDE
00478 M01S00350.lfm +++| CRD CM
00479 M01S00351.lfm +++| LDD CM
00480 M01S00352.lfm +++| SHN 21-13
00481 M01S00353.lfm +++| MJN DEQX IF MASS STORAGE
00482 M01S00354.lfm +++| SHN 13-12
00483 M01S00355.lfm +++| PJN DEQ1 IF NOT ALLOCATABLE
Line S00356 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00484 M02S00356.ns22000 ---| LDD T0
Line S00357 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00485 M02S00357.ns22000 ---| GEA GET EAT ENTRY
00486 M01S00036.ns22000 +++| SFA EST,T0 CHECK EQUIPMENT ASSIGNMENT
00487 M01S00037.ns22000 +++| ADK EQAE
00488 M01S00358.lfm +++| CRD CM
Line S00359 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00489 M02S00359.ns22000 ---| LDD CM+4 CHECK JOB ASSIGNMENT
00490 M01S00038.ns22000 +++| LDD CM+4
00491 M01S00360.lfm +++| ZJN DEQX IF NOT ASSIGNED
00492 M01S00361.lfm +++| DEQ1 LDD T0
00493 M01S00362.lfm +++| STD CM+1
Line S00363 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00494 M02S00363.242l642 ---| LDN 0 RELEASE ACTIVE EQUIPMENT
Line S00364 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00495 M02S00364.242l642 ---| STD CM+2
00496 M01S00365.lfm +++| MONITOR DEQM RELEASE EQUIPMENT
00497 M01S00366.lfm +++| UJN DEQX RETURN
00498 M01S00367.lfm +++| DRF SPACE 4,10
00499 M01S00368.lfm +++|** DRF - DROP FILE.
00500 M01S00369.lfm +++|*
00501 M01S00370.lfm +++|* ENTRY (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
00502 M01S00371.lfm +++|*
Line S00372 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00503 M02S00372.242l642 ---|* EXIT (FA) = 0.
00504 M01S00006.242l642 +++|* EXIT (A) = (FA) = 0.
00505 M01S00007.242l642 +++|*
00506 M01S00008.242l642 +++|* ERROR TO *EER3*.
00507 M01S00373.lfm +++|*
00508 M01S00374.lfm +++|* CALLS *0DF*.
00509 M01S00375.lfm +++|*
00510 M01S00376.lfm +++|* MACROS EXECUTE.
00511 M01S00377.lfm +++|
00512 M01S00378.lfm +++|
00513 M01S00379.lfm +++| DRF SUBR ENTRY/EXIT
00514 M01S00380.lfm +++| LDN 1 SET *UNLOAD* FILE FLAG FOR *0DF*
00515 M01S00381.lfm +++| STM OVL0
00516 M01S00382.lfm +++| EXECUTE 0DF,OVL0+1 DROP FILE
Line S00383 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
00517 M02S00383.242l642 ---| LDN 0 CLEAR FNT ADDRESS
00518 M01S00009.242l642 +++| NJN EER3 IF MASS STORAGE DEVICE INACCESSIBLE
Line S00384 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2358
Seq # *Modification Id* Act
----------------------------+
00519 M02S00384.ns2358 ---| STD FA
00520 M01S00001.ns2358 +++|* STD FA
00521 M01S00385.lfm +++| UJN DRFX RETURN
00522 M01S00010.242l642 +++| EER SPACE 4,10
00523 M01S00011.242l642 +++|** EER - EVALUATE MASS STORAGE ERROR RETURN.
00524 M01S00012.242l642 +++|*
00525 M01S00013.242l642 +++|* ENTRY (A) = ERROR RESPONSE FROM DRIVER.
00526 M01S00014.242l642 +++|* (T5) = EST ORDINAL.
00527 M01S00015.242l642 +++|*
00528 M01S00016.242l642 +++|* USES IR+4.
00529 M01S00017.242l642 +++|*
00530 M01S00018.242l642 +++|* CALLS ERR, SNB, *1RJ*.
00531 M01S00019.242l642 +++|*
00532 M01S00020.242l642 +++|* MACROS EXECUTE, PAUSE.
00533 M01S00021.242l642 +++|
00534 M01S00022.242l642 +++|
00535 M01S00023.242l642 +++| EER PSN ENTRY
00536 M01S00024.242l642 +++| SHN 21-12
00537 M01S00025.242l642 +++| PJN EER2 IF ERROR RECOVERABLE
00538 M01S00026.242l642 +++| EER1 LDN /ERR/WEQ
00539 M01S00027.242l642 +++| LJM ERR PROCESS ERROR
00540 M01S00028.242l642 +++|
00541 M01S00029.242l642 +++| EER2 LDM MSD CHECK CALLER
00542 M01S00030.242l642 +++| SHN 21-13
00543 M01S00031.242l642 +++| PJN EER1 IF SUBSYSTEM
00544 M01S00032.242l642 +++| EER3 PAUSE
00545 M01S00033.242l642 +++| LDD CM+1
00546 M01S00034.242l642 +++| NJP LFMX IF ERROR FLAG SET
00547 M01S00035.242l642 +++| RJM SNB
00548 M01S00036.242l642 +++| LDD T5 SET EST ORDINAL
00549 M01S00037.242l642 +++| STD IR+4
00550 M01S00038.242l642 +++| EXECUTE 1RJ RECALL JOB
00551 M01S00386.lfm +++| EFN SPACE 4,20
00552 M01S00387.lfm +++|** EFN - ENTER FILE NAME.
00553 M01S00388.lfm +++|*
00554 M01S00389.lfm +++|* ENTRY (FN - FN+4) = FILE NAME.
Line S00390 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00555 M02S00390.ns22000 ---|* (EQ) = EQUIPMENT NUMBER.
00556 M01S00039.ns22000 +++|* (AL) = 8/, 1/ACCESS LEVEL FLAG, 3/ACCESS LEVEL.
00557 M01S00040.ns22000 +++|* (EQ) = EST ORDINAL.
00558 M01S00391.lfm +++|*
00559 M01S00392.lfm +++|* EXIT (FA) = ADDRESS OF FNT ENTRY.
00560 M01S00393.lfm +++|* (FN - FN+4) = FNT ENTRY.
00561 M01S00394.lfm +++|* (FS - FS+4) = FST ENTRY.
00562 M01S00395.lfm +++|* TO *RSP* IF WAIT FOR NFL INCREASE TO CREATE
00563 M01S00396.lfm +++|* FNT ENTRY.
00564 M01S00397.lfm +++|*
00565 M01S00398.lfm +++|* ERROR EXIT TO *ERR* IF DUPLICATE FILE NAME OR
00566 M01S00399.lfm +++|* FILE NAME ERROR.
00567 M01S00400.lfm +++|* EQUIPMENT RELEASED IF FILE NAME ERROR.
00568 M01S00401.lfm +++|*
00569 M01S00402.lfm +++|* USES FA, FS.
00570 M01S00403.lfm +++|*
00571 M01S00404.lfm +++|* CALLS COE, DEQ, VFN, *0BF*.
00572 M01S00405.lfm +++|*
00573 M01S00406.lfm +++|* MACROS EXECUTE.
00574 M01S00407.lfm +++|
00575 M01S00408.lfm +++|
00576 M01S00409.lfm +++| EFN SUBR ENTRY/EXIT
00577 M01S00410.lfm +++| RJM VFN VERIFY FILE NAME
00578 M01S00411.lfm +++| NJN EFN1 IF NO ERROR
00579 M01S00412.lfm +++| RJM DEQ RELEASE EQUIPMENT
00580 M01S00413.lfm +++| LDN /ERR/FLN
00581 M01S00414.lfm +++| UJN EFN2 PROCESS ERROR
00582 M01S00415.lfm +++|
00583 M01S00416.lfm +++| EFN1 LDD EQ SET EQUIPMENT ASSIGNMENT
00584 M01S00417.lfm +++| STD FS
Line S00418 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00585 M02S00418.ns22000 ---| LDN 2 RETURN TO ENTER PP STACK FOR NFL INCREASE
00586 M01S00041.ns22000 +++| LDD AL
00587 M01S00042.ns22000 +++| SHN 6 PASS FILE ACCESS LEVEL TO *0BF*
00588 M01S00043.ns22000 +++| ADN 2 RETURN TO ENTER PP STACK FOR NFL INCREASE
00589 M01S00419.lfm +++| STM OVL0
00590 M01S00420.lfm +++| EXECUTE 0BF,OVL0+1
00591 M01S00421.lfm +++| UJN EFN3 CHECK RETURN STATUS
00592 M01S00422.lfm +++|
00593 M01S00423.lfm +++|* DUPLICATE FILE FOUND.
00594 M01S00424.lfm +++|
00595 M01S00425.lfm +++| LDN 0 CLEAR FNT ADDRESS
00596 M01S00426.lfm +++| STD FA
00597 M01S00427.lfm +++| LDN /ERR/DFN DUPLICATE FILE NAME
00598 M01S00428.lfm +++| EFN2 UJN ERR PROCESS ERROR
00599 M01S00429.lfm +++|
00600 M01S00430.lfm +++| EFN3 ZJN EFNX IF FNT ENTRY CREATED
00601 M01S00431.lfm +++| RJM DEQ RELEASE EQUIPMENT
00602 M01S00432.lfm +++| LDC 0
00603 M01S00433.lfm +++| EFNA EQU *-1
00604 M01S00434.lfm +++| ZJN EFN4 IF NO OPERATOR ASSIGNED EQUIPMENT TO RESET
00605 M01S00435.lfm +++| RJM COE RESET OPERATOR ASSIGNED EQUIPMENT
00606 M01S00436.lfm +++| EFN4 LDN NFIR REASON CODE = NFL INCREASE PENDING
00607 M01S00437.lfm +++| LJM RSP ENTER PP RECALL STACK
00608 M01S00438.lfm +++| ABT SPACE 4,10
00609 M01S00439.lfm +++|** ABT - ABORT JOB.
00610 M01S00440.lfm +++|*
00611 M01S00441.lfm +++|* ENTRY (A) = ADDRESS OF MESSAGE.
00612 M01S00442.lfm +++|*
00613 M01S00443.lfm +++|* CALLS DFM.
00614 M01S00444.lfm +++|*
00615 M01S00445.lfm +++|* MACROS MONITOR.
00616 M01S00446.lfm +++|
00617 M01S00447.lfm +++|
00618 M01S00448.lfm +++| ABT RJM DFM ISSUE DAYFILE MESSAGE
00619 M01S00449.lfm +++| MONITOR ABTM
00620 M01S00450.lfm +++| LJM PPR RETURN TO PP RESIDENT
00621 M01S00451.lfm +++| CFL SPACE 4,10
00622 M01S00452.lfm +++|** CFL - CHECK FET LENGTH.
00623 M01S00453.lfm +++|*
00624 M01S00454.lfm +++|* ENTRY (A) = COMPLEMENT OF (MINIMUM LENGTH - 1).
00625 M01S00455.lfm +++|* (FE) = FET LENGTH - 1.
00626 M01S00456.lfm +++|*
00627 M01S00457.lfm +++|* EXIT TO *ERR*, IF ERROR.
00628 M01S00458.lfm +++|
00629 M01S00459.lfm +++|
00630 M01S00460.lfm +++| CFL SUBR ENTRY/EXIT
00631 M01S00461.lfm +++| ADD FE
00632 M01S00462.lfm +++| PJN CFLX IF FET LENGTH SUFFICIENT
00633 M01S00463.lfm +++| LDN /ERR/FTS * FET TOO SHORT.*
00634 M01S00464.lfm +++|* LJM ERR ABORT
00635 M01S00465.lfm +++| ERR SPACE 4,10
00636 M01S00466.lfm +++|** ERR - PROCESS ERROR.
00637 M01S00467.lfm +++|*
00638 M01S00468.lfm +++|* ENTRY (A) = ERROR CODE.
00639 M01S00469.lfm +++|
00640 M01S00470.lfm +++|
00641 M01S00471.lfm +++| ERR STD T0
00642 M01S00472.lfm +++| LMN /ERR/IOE
00643 M01S00473.lfm +++| NJN ERR1 IF NOT I/O SEQUENCE ERROR
00644 M01S00474.lfm +++| STD FA CLEAR FNT ADDRESS
00645 M01S00475.lfm +++|
00646 M01S00476.lfm +++| ERR1 LDD T0
00647 M01S00477.lfm +++| RJM CKE CHECK ERROR PROCESSING
00648 M01S00478.lfm +++| LDC ERP SET ERROR PROCESSOR ADDRESS
00649 M01S00479.lfm +++| STM LFMB
00650 M01S00480.lfm +++| SHN -14 SET OVERLAY NAME
00651 M01S00481.lfm +++| STM LFMA
00652 M01S00482.lfm +++| LJM LFM1 PROCESS ERROR
00653 M01S00483.lfm +++| RCL SPACE 4,15
00654 M01S00484.lfm +++|** RCL - RECALL *LFM*.
00655 M01S00485.lfm +++|*
00656 M01S00486.lfm +++|* ENTRY (A) = MESSAGE CODE.
00657 M01S00487.lfm +++|* (T7) = MESSAGE ADDRESS.
00658 M01S00488.lfm +++|*
00659 M01S00489.lfm +++|* EXIT TO *DPP* TO DROP PP.
00660 M01S00490.lfm +++|* TO *RSP* TO ENTER PP RECALL STACK.
00661 M01S00491.lfm +++|*
00662 M01S00492.lfm +++|* USES FS+4, CM - CM+4, CN - CN+4.
00663 M01S00493.lfm +++|*
Line S00494 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00664 M02S00494.ns2043 ---|* CALLS CKE, SPB.
00665 M01S00006.ns2043 +++|* CALLS CKE, DRF, SPB.
00666 M01S00495.lfm +++|*
Line S00496 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00667 M02S00496.ns2043 ---|* MACROS NFA.
00668 M01S00007.ns2043 +++|* MACROS MONITOR, NFA.
00669 M01S00497.lfm +++|
00670 M01S00498.lfm +++|
00671 M01S00499.lfm +++| RCL RJM CKE CHECK ERROR PROCESSING
00672 M01S00500.lfm +++| LDD T7 SET MESSAGE ADDRESS
Line S00501 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00673 M02S00501.ns2043 ---| ZJN RCL1 IF NO MESSAGE
00674 M01S00008.ns2043 +++| ZJN RCL2 IF NO MESSAGE
00675 M01S00502.lfm +++| STM RCLA
00676 M01S00009.ns2043 +++| LDD EQ
00677 M01S00010.ns2043 +++| LMN /ERR/NMA
00678 M01S00011.ns2043 +++| ZJN RCL1 IF TRACK LIMIT
00679 M01S00503.lfm +++| LDN 1
00680 M01S00504.lfm +++| RJM SPB SET PAUSE BIT
Line S00505 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00681 M02S00505.ns2043 ---| ADN MS2W-SNSW STORE CONSOLE MESSAGE
00682 M01S00012.ns2043 +++| RCL1 LDD CP STORE CONSOLE MESSAGE
00683 M01S00013.ns2043 +++| ADN MS2W
00684 M01S00506.lfm +++| CWM *,TR
00685 M01S00507.lfm +++| RCLA EQU *-1
Line S00508 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00686 M02S00508.ns2043 ---| RCL1 AOD FS+4 SET FILE STATUS NOT BUSY
00687 M01S00014.ns2043 +++| RCL2 AOD FS+4 SET FILE STATUS NOT BUSY
00688 M01S00509.lfm +++| LDD FA
Line S00510 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00689 M02S00510.ns2043 ---| ZJN RCL2 IF NO FNT ENTRY
00690 M01S00015.ns2043 +++| ZJN RCL3 IF NO FNT ENTRY
00691 M01S00511.lfm +++| NFA FA,R
00692 M01S00512.lfm +++| ADN FSTL
00693 M01S00513.lfm +++| CWD FS STORE FST ENTRY
Line S00514 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00694 M02S00514.ns2043 ---| RCL2 LDD CP CHECK FOR ERROR FLAGS
00695 M01S00016.ns2043 +++| RCL3 LDD CP CHECK FOR ERROR FLAGS
00696 M01S00515.lfm +++| ADN STSW
00697 M01S00516.lfm +++| CRD CM
00698 M01S00517.lfm +++| ADN SNSW-STSW
00699 M01S00518.lfm +++| CRD CN
00700 M01S00519.lfm +++| LDD CN+3
Line S00520 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00701 M02S00520.ns2043 ---| LPN 4
00702 M01S00017.ns2043 +++| LPN 10
00703 M01S00521.lfm +++| ADD CM+1
Line S00522 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00704 M02S00522.ns2043 ---| ZJN RCL3 IF NO ERROR FLAGS SET OR NO SUBSYSTEM IDLE
00705 M01S00018.ns2043 +++| ZJN RCL4 IF NO ERROR FLAGS SET OR NO SUBSYSTEM IDLE
00706 M01S00523.lfm +++| LJM DPP DROP PP AND EXIT TO PP RESIDENT
00707 M01S00524.lfm +++|
Line S00525 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2043
Seq # *Modification Id* Act
----------------------------+
00708 M02S00525.ns2043 ---| RCL3 LDN WEAR REASON CODE = WAIT EQUIPMENT ASSIGNMENT
00709 M01S00019.ns2043 +++| RCL4 LDD EQ
00710 M01S00020.ns2043 +++| LMN /ERR/NMA
00711 M01S00021.ns2043 +++| NJN RCL5 IF NOT TRACK LIMIT
00712 M01S00022.ns2043 +++| RJM DRF CLEAR FNT ENTRY
00713 M01S00023.ns2043 +++| LDN ZERL SET TRACK LIMIT EVENT
00714 M01S00024.ns2043 +++| CRD CM
00715 M01S00025.ns2043 +++| LDN TKLE
00716 M01S00026.ns2043 +++| STD CM+4
00717 M01S00027.ns2043 +++| MONITOR EATM
00718 M01S00028.ns2043 +++| LDN TRLR SET TRACK LIMIT REASON CODE
00719 M01S00029.ns2043 +++| UJN RSP ENTER PP RECALL STACK
00720 M01S00030.ns2043 +++|
00721 M01S00031.ns2043 +++| RCL5 LDN WEAR SET WAIT EQUIPMENT ASSIGNMENT REASON CODE
00722 M01S00526.lfm +++|* UJN RSP ENTER PP RECALL STACK
00723 M01S00527.lfm +++| RSP SPACE 4,10
00724 M01S00528.lfm +++|** RSP - RECALL STACK ENTRY PROCESSOR.
00725 M01S00529.lfm +++|*
00726 M01S00530.lfm +++|* ENTRY (A) = RECALL STACK REASON CODE.
00727 M01S00531.lfm +++|* (IR - IR+4) = PP CALL.
00728 M01S00532.lfm +++|*
00729 M01S00533.lfm +++|* EXIT TO *PPR*.
00730 M01S00534.lfm +++|*
00731 M01S00535.lfm +++|* USES CM - CM+5.
00732 M01S00536.lfm +++|*
00733 M01S00537.lfm +++|* MACROS MONITOR.
00734 M01S00538.lfm +++|
00735 M01S00539.lfm +++|
00736 M01S00540.lfm +++| RSP BSS 0 ENTRY
00737 M01S00541.lfm +++| STD CM
00738 M01S00542.lfm +++| LDN ZERL
00739 M01S00543.lfm +++| CRD CM+1
00740 M01S00544.lfm +++| LDD MA WRITE PP CALL
00741 M01S00545.lfm +++| CWD IR
00742 M01S00546.lfm +++| ADN 1 WRITE PARAMETER WORD
00743 M01S00547.lfm +++| CWD CM
00744 M01S00548.lfm +++| MONITOR RECM ENTER DEFAULT TIMED RECALL
00745 M01S00549.lfm +++| LJM PPR EXIT TO PP RESIDENT
00746 M01S00550.lfm +++| SFS SPACE 4,15
00747 M01S00551.lfm +++|** SFS - SET FILE STATUS.
00748 M01S00552.lfm +++|*
00749 M01S00553.lfm +++|* ENTRY (LS) = LAST FET STATUS.
00750 M01S00554.lfm +++|* (FN - FN+3) = FILE NAME FOR FET.
00751 M01S00555.lfm +++|* (IR+3 - IR+4) = FET ADDRESS.
00752 M01S00556.lfm +++|* (SFSB) = FET ERROR CODE (IF PERTINENT), SET BY *CKE*.
00753 M01S00557.lfm +++|* (SFSA) = RETURN FILE FUNCTION FLAG, SET BY *PRS*.
00754 M01S00558.lfm +++|* (SFSC) = FET ERROR CODE (IF PERTINENT), SET BY *CKE*.
00755 M01S00559.lfm +++|*
00756 M01S00560.lfm +++|* EXIT FET STATUS MADE *NOT BUSY* AND ERROR CODE FIELD SET.
00757 M01S00561.lfm +++|*
00758 M01S00562.lfm +++|* USES LS, FN+3, FN+4.
00759 M01S00563.lfm +++|*
00760 M01S00564.lfm +++|* CALLS CPA.
00761 M01S00565.lfm +++|
00762 M01S00566.lfm +++|
00763 M01S00567.lfm +++| SFS SUBR ENTRY/EXIT
00764 M01S00568.lfm +++| AOD LS MAKE FET NOT BUSY
00765 M01S00569.lfm +++| STD FN+4
00766 M01S00570.lfm +++| SFSA LDN 0
00767 M01S00571.lfm +++|* LDN 1 (RETURN FILE INFORMATION)
00768 M01S00572.lfm +++| NJN SFS1 IF RETURN FILE INFORMATION
00769 M01S00573.lfm +++| LDD FN+3 SET FET ERROR CODE FIELD
00770 M01S00574.lfm +++| SCN 77
00771 M01S00575.lfm +++| LMC 0 LEFT 6 BITS OF 8 BIT ERROR CODE FIELD
00772 M01S00576.lfm +++| SFSB EQU *-1
00773 M01S00577.lfm +++| STD FN+3
00774 M01S00578.lfm +++| LDC 0
00775 M01S00579.lfm +++| SFSC EQU *-1
00776 M01S00580.lfm +++| RAD FN+4
00777 M01S00581.lfm +++| SFS1 RJM CPA REWRITE FET+0
00778 M01S00582.lfm +++| CWD FN
00779 M01S00583.lfm +++| UJN SFSX RETURN
00780 M01S00584.lfm +++| SIF SPACE 4,15
00781 M01S00585.lfm +++|** SIF - SEARCH FOR AND INTERLOCK FILE.
00782 M01S00586.lfm +++|*
00783 M01S00587.lfm +++|* ENTRY (A) = INITIAL FNT ADDRESS FOR SEARCH.
00784 M01S00588.lfm +++|* (A) = 0, IF NO INITIAL FNT ADDRESS.
00785 M01S00589.lfm +++|* (FN - FN+4) = FILE NAME.
00786 M01S00590.lfm +++|*
00787 M01S00591.lfm +++|* EXIT FNT/FST FOR FILE SET BUSY, ELSE TO *ERR*.
00788 M01S00592.lfm +++|* (FA) = FNT ADDRESS IN NFL.
00789 M01S00593.lfm +++|* (CM - CM+4) = FNT WORD.
00790 M01S00594.lfm +++|* (FS - FS+4) = FST WORD.
00791 M01S00595.lfm +++|*
00792 M01S00596.lfm +++|* CALLS SAF, SFB.
00793 M01S00597.lfm +++|
00794 M01S00598.lfm +++|
00795 M01S00599.lfm +++| SIF SUBR ENTRY/EXIT
00796 M01S00600.lfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
00797 M01S00601.lfm +++| ZJN SIF1 IF FILE NOT FOUND
00798 M01S00602.lfm +++| RJM SFB SET FILE BUSY
00799 M01S00603.lfm +++| ZJN SIFX IF FILE SET BUSY
00800 M01S00604.lfm +++| LDN /ERR/IOE&/ERR/FNF *I/O SEQUENCE ERROR*
00801 M01S00605.lfm +++| SIF1 LMN /ERR/FNF *FILE NOT FOUND*
00802 M01S00606.lfm +++| LJM ERR PROCESS ERROR
00803 M01S00039.242l642 +++| SNB SPACE 4,15
00804 M01S00040.242l642 +++|** SNB - SET FILE(S) NOT BUSY.
00805 M01S00041.242l642 +++|*
00806 M01S00042.242l642 +++|* ENTRY (FA) = FNT ADDRESS OF BUSY FILE.
00807 M01S00043.242l642 +++|* (FS - FS+4) = FST ENTRY OF FILE.
00808 M01S00044.242l642 +++|* (SNBA) = FNT ADDRESS OF SECOND FILE.
00809 M01S00045.242l642 +++|* = 0 IF NO SECOND FILE.
00810 M01S00046.242l642 +++|*
00811 M01S00047.242l642 +++|* EXIT (A) = (FA) = (SNBA) = 0.
00812 M01S00048.242l642 +++|*
00813 M01S00049.242l642 +++|* USES FA, FS - FS+4.
00814 M01S00050.242l642 +++|*
00815 M01S00051.242l642 +++|* MACROS NFA.
00816 M01S00052.242l642 +++|
00817 M01S00053.242l642 +++|
00818 M01S00054.242l642 +++| SNB SUBR ENTRY/EXIT
00819 M01S00055.242l642 +++| LDD FA
00820 M01S00056.242l642 +++| ZJN SNB1 IF ONE FILE NOT BUSY
00821 M01S00057.242l642 +++| AOD FS+4
00822 M01S00058.242l642 +++| NFA FA,R STORE FST ENTRY
00823 M01S00059.242l642 +++| ADN FSTL
00824 M01S00060.242l642 +++| CWD FS
00825 M01S00061.242l642 +++| SNB1 LDC 0 POSSIBLE SECOND FILE FNT ADDRESS
00826 M01S00062.242l642 +++| SNBA EQU *-1
00827 M01S00063.242l642 +++| STD FA
00828 M01S00064.242l642 +++| ZJN SNBX IF NO SECOND FILE
00829 M01S00065.242l642 +++| NFA FA,R
00830 M01S00066.242l642 +++| ADK FSTL
00831 M01S00067.242l642 +++| CRD FS
00832 M01S00068.242l642 +++| AOD FS+4 SET FILE NOT BUSY
00833 M01S00069.242l642 +++| NFA FA,R
00834 M01S00070.242l642 +++| ADK FSTL STORE FST INFORMATION
00835 M01S00071.242l642 +++| CWD FS
00836 M01S00072.242l642 +++| LDN 0 CLEAR FNT ADDRESS
00837 M01S00073.242l642 +++| STD FA
00838 M01S00074.242l642 +++| STM SNBA
00839 M01S00075.242l642 +++| UJP SNBX RETURN
00840 M01S00607.lfm +++| SPB SPACE 4,10
00841 M01S00608.lfm +++|** SPB - SET/CLEAR PAUSE BIT.
00842 M01S00609.lfm +++|*
00843 M01S00610.lfm +++|* ENTRY (A) = 0 CLEAR PAUSE BIT.
00844 M01S00611.lfm +++|* (A) = 1 SET PAUSE BIT.
00845 M01S00612.lfm +++|*
00846 M01S00613.lfm +++|* EXIT (A) = ADDRESS OF *SNSW* IN CP AREA.
00847 M01S00614.lfm +++|* (CM - CM+4) = *SNSW*.
00848 M01S00615.lfm +++|*
00849 M01S00616.lfm +++|* USES T1, CM - CM+4.
00850 M01S00617.lfm +++|
00851 M01S00618.lfm +++|
00852 M01S00619.lfm +++| SPB SUBR ENTRY/EXIT
00853 M01S00620.lfm +++| STD T1 SAVE PAUSE OPTION
00854 M01S00621.lfm +++| LDD CP READ SWITCH WORD
00855 M01S00622.lfm +++| ADN SNSW
00856 M01S00623.lfm +++| CRD CM
00857 M01S00624.lfm +++| LDD CM+3 SET/CLEAR PAUSE BIT
00858 M01S00625.lfm +++| SCN 1
00859 M01S00626.lfm +++| LMD T1
00860 M01S00627.lfm +++| STD CM+3
00861 M01S00628.lfm +++| LDD CP UPDATE SWITCH WORD
00862 M01S00629.lfm +++| ADN SNSW
00863 M01S00630.lfm +++| CWD CM
00864 M01S00631.lfm +++| UJN SPBX RETURN
00865 M01S00632.lfm +++| SVF SPACE 4,15
00866 M01S00633.lfm +++|** SVF - SEARCH FOR VSN ENTRY FILE.
00867 M01S00634.lfm +++|*
00868 M01S00635.lfm +++|* ENTRY (FN - FN+4) = FILE NAME
00869 M01S00636.lfm +++|*
00870 M01S00637.lfm +++|* EXIT (A) = 0 NO FILE FOUND OR VSN ENTRY FILE FOUND
00871 M01S00638.lfm +++|* (FA) = FNT ADDRESS.
00872 M01S00639.lfm +++|* (FS - FS+4) = FNT ENTRY.
00873 M01S00640.lfm +++|*
00874 M01S00641.lfm +++|* USES CM - CM+4.
00875 M01S00642.lfm +++|*
00876 M01S00643.lfm +++|* CALLS SAF.
00877 M01S00644.lfm +++|*
Line S00645 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00878 M02S00645.ns22000 ---|* MACROS NFA.
00879 M01S00044.ns22000 +++|* MACROS NFA, SFA.
00880 M01S00646.lfm +++|
00881 M01S00647.lfm +++|
00882 M01S00648.lfm +++| SVF SUBR ENTRY/EXIT
00883 M01S00649.lfm +++| LDN 0 SET NO INITIAL FNT ADDRESS
00884 M01S00650.lfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
00885 M01S00651.lfm +++| ZJN SVFX IF NO FILE
00886 M01S00652.lfm +++| NFA FA,R READ FST
00887 M01S00653.lfm +++| ADN FSTL
00888 M01S00654.lfm +++| CRD CM
00889 M01S00655.lfm +++| LDD CM CHECK EQUIPTMENT
Line S00656 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00890 M02S00656.ns22000 ---| LPC 777
Line S00657 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00891 M02S00657.ns22000 ---| ADM ESTS
00892 M01S00045.ns22000 +++| SFA EST
00893 M01S00046.ns22000 +++| ADK EQDE
00894 M01S00658.lfm +++| CRD CM READ EST ENTRY
00895 M01S00659.lfm +++| LDD CM+3
Line S00660 Modification History
M01 (Added by) lfm
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00896 M02S00660.252l678 ---| LPC 3777
00897 M01S00661.lfm +++| LMC 2RTE
Line S00662 Modification History
M01 (Added by) lfm
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00898 M02S00662.252l678 ---| NJN SVFX IF NOT *TE*
Line S00663 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
M03 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00899 M03S00663.252l678 ---| LDN 0
Line S00076 Modification History
M01 (Added by) 242l642
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00900 M02S00076.252l678 ---|* LDN 0
00901 M01S00664.lfm +++| UJN SVFX RETURN
00902 M01S00665.lfm +++| UPP SPACE 4,10
00903 M01S00666.lfm +++|** UPP - UPDATE PRIMARY FILE POINTERS.
00904 M01S00667.lfm +++|*
00905 M01S00668.lfm +++|* ENTRY (FA) = PRIMARY FILE FNT ADDRESS/OFFSET.
00906 M01S00669.lfm +++|* (FS - FS+4) = PRIMARY FILE FST ENTRY.
00907 M01S00670.lfm +++|*
00908 M01S00671.lfm +++|* USES CM - CM+4.
00909 M01S00672.lfm +++|*
00910 M01S00673.lfm +++|* MACROS SFA, MONITOR.
00911 M01S00674.lfm +++|
00912 M01S00675.lfm +++|
00913 M01S00676.lfm +++| UPP SUBR ENTRY/EXIT
00914 M01S00677.lfm +++|
00915 M01S00678.lfm +++|* UPDATE WORD *TFSW* OF THE CONTROL POINT AREA.
00916 M01S00679.lfm +++|
00917 M01S00680.lfm +++| LDD CP
00918 M01S00681.lfm +++| ADK TFSW
00919 M01S00682.lfm +++| CRD CM
00920 M01S00683.lfm +++| LDD FA
00921 M01S00684.lfm +++| STD CM+1
00922 M01S00685.lfm +++| LDD CP
00923 M01S00686.lfm +++| ADK TFSW
00924 M01S00687.lfm +++| CWD CM
00925 M01S00688.lfm +++|
00926 M01S00689.lfm +++|* UPDATE EJT ENTRY.
00927 M01S00690.lfm +++|
00928 M01S00691.lfm +++| LDD FS STORE EQUIPMENT IN *UTEM* PARAMETER BLOCK
00929 M01S00692.lfm +++| STM UPPA+3
00930 M01S00693.lfm +++| LDD FS+1 STORE TRACK IN *UTEM* PARAMETER BLOCK
00931 M01S00694.lfm +++| STM UPPA+4
00932 M01S00695.lfm +++| LDD MA
00933 M01S00696.lfm +++| CWM UPPA,ON
00934 M01S00697.lfm +++| SFA EJT,CM SET EJT ENTRY ADDRESS FOR *UTEM*
00935 M01S00698.lfm +++| STD CM+4
00936 M01S00699.lfm +++| SHN -14
00937 M01S00700.lfm +++| STD CM+3
00938 M01S00701.lfm +++| LDN 1 SET NUMBER OF PARAMETERS FOR *UTEM*
00939 M01S00702.lfm +++| STD CM+1
00940 M01S00703.lfm +++| MONITOR UTEM UPDATE EJT ENTRY
00941 M01S00704.lfm +++| UJN UPPX RETURN
00942 M01S00705.lfm +++|
00943 M01S00706.lfm +++|
00944 M01S00707.lfm +++| UPPA VFD 1/0,5/PRFE,6/24D *UTEM* PARAMETER BLOCK
00945 M01S00708.lfm +++| VFD 6/0,6/0
00946 M01S00709.lfm +++| CON 0,0,0
00947 M01S00710.lfm +++| SPACE 4,10
00948 M01S00711.lfm +++|** COMMON DECKS.
00949 M01S00712.lfm +++|
00950 M01S00713.lfm +++|
00951 M01S00047.ns22000 +++| QUAL COMPACS
00952 M01S00048.ns22000 +++|*CALL COMPACS
00953 M01S00049.ns22000 +++| QUAL *
Line S00714 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00954 M02S00714.ns22000 ---| QFT$ EQU 0 DEFINE *COMPGFP* ACCESS TO QFT
00955 M01S00715.lfm +++| EJT$ EQU 0 DEFINE *COMPGFP* ACCESS TO EJT
00956 M01S00050.ns22000 +++| QFT$ EQU 0 DEFINE *COMPGFP* ACCESS TO QFT
00957 M01S00716.lfm +++| IFP$ EQU 0 GENERATE *IFP* REMOTE CODE
00958 M01S00717.lfm +++|*CALL COMPGFP
00959 M01S00718.lfm +++| SAF$ EQU 0 SET INITIAL FNT ADDRESS PROVIDED
00960 M01S00719.lfm +++|*CALL COMPSAF
00961 M01S00720.lfm +++|*CALL COMPSEI
00962 M01S00721.lfm +++|*CALL COMPSFB
00963 M01S00722.lfm +++|*CALL COMPSRA
00964 M01S00723.lfm +++|*CALL COMPVFN
00965 M01S00724.lfm +++| USE OVERLAY
00966 M01S00725.lfm +++| OVL EQU *+10
00967 M01S00726.lfm +++| TITLE SUBROUTINES WHICH MAY BE OVERLAID.
00968 M01S00727.lfm +++| PRS SPACE 4,20
00969 M01S00728.lfm +++|** PRS - PRESET PROGRAM.
00970 M01S00729.lfm +++|*
00971 M01S00730.lfm +++|* ENTRY (IR - IR+4) = INPUT REGISTER.
00972 M01S00731.lfm +++|*
Line S00732 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
00973 M02S00732.ns22000 ---|* EXIT (EQ) = 0.
00974 M01S00051.ns22000 +++|* EXIT (AL) = 0.
00975 M01S00052.ns22000 +++|* (EQ) = 0.
00976 M01S00733.lfm +++|* (FA) = 0.
00977 M01S00734.lfm +++|* (FE) = FET LENGTH - 1.
00978 M01S00735.lfm +++|* (FF) = FET SPECIFIED FNT ADDRESS.
00979 M01S00736.lfm +++|* (FP) = *LFM* FUNCTION CODE.
00980 M01S00737.lfm +++|* (LS) = LAST FET STATUS.
00981 M01S00738.lfm +++|* (OC) = ORIGIN CODE.
00982 M01S00739.lfm +++|* (IR+3 - IR+4) = FET ADDRESS.
00983 M01S00740.lfm +++|* (FN - FN+3) = FILE NAME.
00984 M01S00741.lfm +++|*
Line S00742 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
00985 M02S00742.v23l617 ---|* ERROR TO *ABT* IF ILLEGAL REQUEST OR INVALID ADDRESS.
00986 M01S00016.v23l617 +++|* ERROR TO *ABT* IF INCORRECT REQUEST OR INCORRECT ADDRESS.
00987 M01S00743.lfm +++|*
00988 M01S00744.lfm +++|* CALLS CPA, CRS, IFP.
00989 M01S00745.lfm +++|*
00990 M01S00746.lfm +++|* MACROS SFA.
00991 M01S00747.lfm +++|
00992 M01S00748.lfm +++|
00993 M01S00749.lfm +++| PRS SUBR ENTRY/EXIT
00994 M01S00750.lfm +++| RJM CRS CHECK RECALL STATUS
00995 M01S00751.lfm +++| NJN PRS1 IF CALLED WITH AUTO RECALL
00996 M01S00752.lfm +++| LJM PRS6 ISSUE ERROR
00997 M01S00753.lfm +++|
00998 M01S00754.lfm +++| PRS1 LDD IR+3 SAVE FUNCTION PARAMETER
00999 M01S00755.lfm +++| SHN -6
01000 M01S00756.lfm +++| STD FP
01001 M01S00757.lfm +++| RJM IFP INITIALIZE EJT ACCESS
01002 M01S00758.lfm +++|
01003 M01S00759.lfm +++|* CHECK FOR RETURN FILE INFORMATION FUNCTION.
01004 M01S00760.lfm +++|
01005 M01S00761.lfm +++| LDD IR+2 CHECK FUNCTION CODE
01006 M01S00762.lfm +++| SBN 32
01007 M01S00763.lfm +++| NJN PRS2 IF NOT RETURN FILE INFORMATION
01008 M01S00764.lfm +++| AOM SFSA
01009 M01S00765.lfm +++| RJM CPA READ PARAMETER BLOCK LENGTH
01010 M01S00766.lfm +++| CRD CM
01011 M01S00767.lfm +++| LDD CM+3
01012 M01S00768.lfm +++| LPN 77
01013 M01S00769.lfm +++| ZJN PRS3 IF NO LENGTH
01014 M01S00770.lfm +++| SBN 1
01015 M01S00771.lfm +++| UJN PRS3 SAVE LENGTH
01016 M01S00772.lfm +++|
01017 M01S00773.lfm +++|* CHECK IF FET IS CONTAINED IN FIELD LENGTH.
01018 M01S00774.lfm +++|
01019 M01S00775.lfm +++| PRS2 RJM CPA READ FET LENGTH
01020 M01S00776.lfm +++| ADN 1
01021 M01S00777.lfm +++| CRD CM
01022 M01S00778.lfm +++| LDD CM+3
01023 M01S00779.lfm +++| SHN -6
01024 M01S00780.lfm +++| ADN 5-1
01025 M01S00781.lfm +++| PRS3 STD FE SAVE FET LENGTH - 1
01026 M01S00782.lfm +++| LDD IR+3
01027 M01S00783.lfm +++| LPN 77
01028 M01S00784.lfm +++| SHN 14
01029 M01S00785.lfm +++| MJN PRS4 IF OUT OF RANGE
01030 M01S00786.lfm +++| LMD IR+4
01031 M01S00787.lfm +++| ADD FE
01032 M01S00788.lfm +++| SHN -6
01033 M01S00789.lfm +++| SBD FL
01034 M01S00790.lfm +++| MJN PRS5 IF FET CONTAINED IN FL
01035 M01S00791.lfm +++| PRS4 LDC AORM * ADDRESS OUT OF RANGE.*
01036 M01S00792.lfm +++| LJM ABT ABORT
01037 M01S00793.lfm +++|
01038 M01S00794.lfm +++|* CHECK FUNCTION CODE.
01039 M01S00795.lfm +++|
01040 M01S00796.lfm +++| PRS5 LDD IR+2 CHECK FUNCTION CODE
01041 M01S00797.lfm +++| SHN 1
01042 M01S00798.lfm +++| STD T7
Line S00799 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01043 M02S00799.ns22000 ---| ADC -TFCNL
Line S00053 Modification History
M01 (Added by) ns22000
M02 (Updated by) lfm24
Seq # *Modification Id* Act
----------------------------+
01044 M02S00053.lfm24 ---| SBN TFCNL
01045 M01S00001.lfm24 +++| ADC -TFCNL
01046 M01S00800.lfm +++| MJN PRS7 IF LEGAL CODE
Line S00801 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01047 M02S00801.v23l617 ---| PRS6 LDC ILRM * LFM ILLEGAL REQUEST.*
01048 M01S00017.v23l617 +++| PRS6 LDC ILRM * LFM INCORRECT REQUEST.*
01049 M01S00802.lfm +++| LJM ABT ABORT
01050 M01S00803.lfm +++|
01051 M01S00804.lfm +++| PRS7 LDD CP FETCH EJT ORDINAL
01052 M01S00805.lfm +++| ADN TFSW
01053 M01S00806.lfm +++| CRD CM
01054 M01S00807.lfm +++| SFA EJT,CM GET JOB ORIGIN TYPE FROM EJT ENTRY
01055 M01S00808.lfm +++| ADN SCLE
01056 M01S00809.lfm +++| CRD CM
01057 M01S00810.lfm +++| LDD CM SET JOB ORIGIN TYPE
01058 M01S00811.lfm +++| LPN 17
01059 M01S00812.lfm +++| STD OC
01060 M01S00813.lfm +++| LDM TFCN+1,T7 SET PROCESSOR ADDRESS
01061 M01S00814.lfm +++| STM LFMB
01062 M01S00815.lfm +++| ZJN PRS6 IF NOT DEFINED
01063 M01S00816.lfm +++|
01064 M01S00817.lfm +++|* SET OVERLAY NAME.
01065 M01S00818.lfm +++|
01066 M01S00819.lfm +++| LDM TFCN,T7
01067 M01S00820.lfm +++| LPN 77
01068 M01S00821.lfm +++| STM LFMA
01069 M01S00822.lfm +++| RJM CPA
01070 M01S00823.lfm +++| ADN 4
01071 M01S00824.lfm +++| CRD CM
01072 M01S00825.lfm +++| LDD CM
01073 M01S00826.lfm +++| STD FF
01074 M01S00827.lfm +++| RJM CPA READ FILE NAME
01075 M01S00828.lfm +++| CRD FN
01076 M01S00829.lfm +++| LDD FN+4 SAVE LAST FET STATUS
01077 M01S00830.lfm +++| LPC 1776
01078 M01S00831.lfm +++| STD LS
01079 M01S00832.lfm +++| STD FN+4
01080 M01S00833.lfm +++| LDD FN+3 CLEAR ERROR CODES
01081 M01S00834.lfm +++| SCN 77
01082 M01S00835.lfm +++| STD FN+3
01083 M01S00836.lfm +++| LDN 0 CLEAR FNT ADDRESS
01084 M01S00837.lfm +++| STD FA
Line S00838 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01085 M02S00838.ns22000 ---| STD EQ CLEAR EQUIPMENT NUMBER
01086 M01S00054.ns22000 +++| STD EQ CLEAR EST ORDINAL
01087 M01S00055.ns22000 +++| STD AL CLEAR ACCESS LEVEL
01088 M01S00839.lfm +++| LJM PRSX RETURN
01089 M01S00840.lfm +++|
01090 M01S00841.lfm +++| AORM DATA C* ADDRESS OUT OF RANGE.*
01091 M01S00842.lfm +++|
Line S00843 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01092 M02S00843.v23l617 ---| ILRM DATA C* LFM ILLEGAL REQUEST.*
01093 M01S00018.v23l617 +++| ILRM DATA C* LFM INCORRECT REQUEST.*
01094 M01S00844.lfm +++| CRX SPACE 4,10
01095 M01S00845.lfm +++|** CRX - CHECK RESEX CALL.
01096 M01S00846.lfm +++|*
01097 M01S00847.lfm +++|* EXIT RETURNS IF NOT CALLED.
01098 M01S00848.lfm +++|* ABORTS IF RESEX DETECTED ERRORS.
01099 M01S00849.lfm +++|* TERMINATES LFM IF CALL COMPLETED NORMALLY.
01100 M01S00850.lfm +++|*
01101 M01S00851.lfm +++|* USES T1, CM - CM+4, CN - CN+4.
01102 M01S00852.lfm +++|
01103 M01S00853.lfm +++|
01104 M01S00854.lfm +++| CRX SUBR ENTRY/EXIT
01105 M01S00855.lfm +++| LDD CP READ SPCW
01106 M01S00856.lfm +++| ADC SPCW
01107 M01S00857.lfm +++| CRD CM
01108 M01S00858.lfm +++| LDD CM+2 CHECK RETURN STATUS
01109 M01S00859.lfm +++| ZJN CRXX IF RESEX NOT CALLED
01110 M01S00860.lfm +++| SCN 1
01111 M01S00861.lfm +++| STD T1
01112 M01S00862.lfm +++| LDN ZERL
01113 M01S00863.lfm +++| CRD CN
01114 M01S00864.lfm +++| LDD CP
01115 M01S00865.lfm +++| ADC SPCW
01116 M01S00866.lfm +++| CWD CN CLEAR SPCW
01117 M01S00867.lfm +++| LDD T1
01118 M01S00868.lfm +++| NJN CRX1 IF ERRORS FROM RESEX
01119 M01S00869.lfm +++| LJM LFMX EXIT
01120 M01S00870.lfm +++|
01121 M01S00871.lfm +++| CRX1 LDN /ERR/RDE * RESEX DETECTED ERRORS.*
01122 M01S00872.lfm +++| LJM ERR PROCESS ERROR
01123 M01S00873.lfm +++| FCN SPACE 4,10
01124 M01S00874.lfm +++|** FCN - DEFINE FUNCTION PROCESSOR.
01125 M01S00875.lfm +++|*
01126 M01S00876.lfm +++|*
Line S00877 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm24
Seq # *Modification Id* Act
----------------------------+
01127 M02S00877.lfm24 ---|* FCN NAME
01128 M01S00002.lfm24 +++|* FCN NAME,ORD
01129 M01S00878.lfm +++|*
01130 M01S00879.lfm +++|* ENTRY *NAME* = NAME OF FUNCTION PROCESSOR.
01131 M01S00003.lfm24 +++|* *ORD* = REQUIRED FUNCTION ORDINAL, IF ORDINAL MUST
01132 M01S00004.lfm24 +++|* REMAIN A PARTICULAR VALUE. AN ASSEMBLY ERROR
01133 M01S00005.lfm24 +++|* WILL OCCUR IF THE ORDINAL ASSEMBLED DOES NOT
01134 M01S00006.lfm24 +++|* AGREE WITH THE SPECIFIED *ORD* VALUE.
01135 M01S00880.lfm +++|
01136 M01S00881.lfm +++|
01137 M01S00882.lfm +++| NOREF .I
01138 M01S00883.lfm +++| .I SET 0
Line S00884 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm24
Seq # *Modification Id* Act
----------------------------+
01139 M02S00884.lfm24 ---| FCN MACRO A
01140 M01S00007.lfm24 +++| FCN MACRO A,B
01141 M01S00885.lfm +++| LOC .I/2
01142 M01S00008.lfm24 +++| IFNE B,0
01143 M01S00009.lfm24 +++| ERRNZ .I/2-B ASSEMBLED ORDINAL NOT AS SPECIFIED
01144 M01S00010.lfm24 +++| ENDIF
01145 M01S00886.lfm +++| CON A/10000,A-A/10000*10000
01146 M01S00887.lfm +++| .I SET .I+2
01147 M01S00888.lfm +++| ENDM
01148 M01S00889.lfm +++| TFCN SPACE 4,10
01149 M01S00890.lfm +++|** TFCN - TABLE OF FUNCTION CODE PROCESSORS.
01150 M01S00891.lfm +++|*
01151 M01S00892.lfm +++|* 2 BYTES PER ENTRY.
01152 M01S00893.lfm +++|*
01153 M01S00894.lfm +++|*T, 12/ OV,12/ ADDR
01154 M01S00895.lfm +++|* OV OVERLAY NAME
01155 M01S00896.lfm +++|* ADDR ADDRESS OF FUNCTION PROCESSOR
01156 M01S00897.lfm +++|
01157 M01S00898.lfm +++|
01158 M01S00899.lfm +++| TFCN BSS 0
01159 M01S00900.lfm +++|
01160 M01S00901.lfm +++| FCN RNI RENAME INITIALIZATION
01161 M01S00902.lfm +++| FCN 0 (UNUSED)
01162 M01S00903.lfm +++| FCN 0 (UNUSED)
01163 M01S00904.lfm +++| FCN STS SET FILE STATUS
01164 M01S00905.lfm +++| FCN 0 (UNUSED)
01165 M01S00906.lfm +++| FCN 0 (UNUSED)
01166 M01S00907.lfm +++| FCN 0 (UNUSED)
Line S00908 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01167 M02S00908.ns22000 ---| FCN 0 (UNUSED)
01168 M01S00056.ns22000 +++| FCN FSL SET FILE ACCESS LEVEL
01169 M01S00909.lfm +++| FCN LCK LOCK FILE
01170 M01S00910.lfm +++| FCN ULK UNLOCK FILE
01171 M01S00911.lfm +++| FCN RLS RETURN LAST STATUS
01172 M01S00912.lfm +++| FCN RCP RETURN CURRENT POSITION
01173 M01S00913.lfm +++| FCN RQI REQUEST EQUIPMENT
01174 M01S00914.lfm +++| FCN AEQ ASSIGN EQUIPMENT
01175 M01S00915.lfm +++| FCN 0 (UNUSED)
01176 M01S00916.lfm +++| FCN 0 (UNUSED)
01177 M01S00917.lfm +++| FCN ALF ACCESS LIBRARY FILE
Line S00918 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01178 M02S00918.v23l617 ---| FCN ACS ATTACH CONTROL STATEMENT FILE
Line S00919 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01179 M02S00919.v23l617 ---| FCN ECS ENTER CONTROL STATEMENT FILE
Line S00920 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01180 M02S00920.v23l617 ---| FCN PCS POSITION CONTROL STATEMENT FILE
01181 M01S00019.v23l617 +++| FCN ACS ATTACH COMMAND FILE
01182 M01S00020.v23l617 +++| FCN ECS ENTER COMMAND FILE
01183 M01S00021.v23l617 +++| FCN PCS POSITION COMMAND FILE
01184 M01S00921.lfm +++| FCN LBI LABEL REQUEST
01185 M01S00922.lfm +++| FCN GTF GET FNT/FST ENTRY
01186 M01S00923.lfm +++| FCN OAE REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT
01187 M01S00924.lfm +++| FCN VSN ENTER VSN ENTRY FILE
01188 M01S00925.lfm +++| FCN 0 (UNUSED)
01189 M01S00926.lfm +++| FCN PRI MAKE FILE PRIMARY
01190 M01S00927.lfm +++| FCN RFI RETURN FILE INFORMATION
01191 M01S00928.lfm +++| FCN SLF SET LAST FILE EXECUTED
01192 M01S00011.lfm24 +++| FCN 0 (UNUSED)
01193 M01S00012.lfm24 +++| FCN 0,35 (RESERVED FOR INSTALLATIONS - MUST BE 35B)
01194 M01S00013.lfm24 +++| FCN 0,36 (RESERVED FOR INSTALLATIONS - MUST BE 36B)
01195 M01S00014.lfm24 +++| FCN 0,37 (RESERVED FOR INSTALLATIONS - MUST BE 37B)
01196 M01S00929.lfm +++|
01197 M01S00930.lfm +++| LOC *O
01198 M01S00931.lfm +++| TFCNL EQU *-TFCN
01199 M01S00932.lfm +++| TITLE RESIDENT PROCESSORS.
01200 M01S00933.lfm +++| ALF SPACE 4,25
01201 M01S00934.lfm +++|*** FUNCTION 20.
01202 M01S00935.lfm +++|* ACCESS LIBRARY FILE.
01203 M01S00936.lfm +++|*
01204 M01S00937.lfm +++|* ENTRY (FF) = FET SPECIFIED FNT ADDRESS.
01205 M01S00938.lfm +++|* (FN - FN+3) = FILE NAME FROM FET+0.
01206 M01S00939.lfm +++|* (FP) = FUNCTION PARAMETER.
01207 M01S00940.lfm +++|* 0 = ACCESS LIBRARY FILE.
01208 M01S00941.lfm +++|* 1 = ASSIGN *SYSTEM* FILE.
01209 M01S00942.lfm +++|*
01210 M01S00943.lfm +++|* EXIT FOR SUBFUNCTION 0 (ACCESS LIBRARY FILE), THE
01211 M01S00944.lfm +++|* FOLLOWING INFORMATION IS RETURNED.
01212 M01S00945.lfm +++|* RANDOM ADDRESS OF DIRECTORY STORED IN (FET+6).
01213 M01S00946.lfm +++|* ADDRESS BIAS FOR DIRECTORY STORED IN (FET+7).
01214 M01S00947.lfm +++|* SIGN BIT IN (FET+7) SET IF PROCEDURE FILE.
01215 M01S00948.lfm +++|* IF FILE IS ACCESSED FROM *CLD*, A LOCAL FNT ENTRY IS
01216 M01S00949.lfm +++|* CREATED, ASSIGNED TO THE CONTROL POINT AND POSITIONED
01217 M01S00950.lfm +++|* AT THE FILE.
01218 M01S00951.lfm +++|*
01219 M01S00952.lfm +++|* FOR SUBFUNCTION 1 (ASSIGN *SYSTEM* FILE), A LOCAL
01220 M01S00953.lfm +++|* FILE WITH *LIFT* FILE TYPE WILL BE CREATED TO
01221 M01S00954.lfm +++|* ACCESS THE *SYSTEM* FILE IF THE JOB IS SYSTEM
01222 M01S00955.lfm +++|* ORIGIN OR IF THE USER IS ALLOWED TO ACCESS
01223 M01S00956.lfm +++|* THE SYSTEM FILE.
01224 M01S00957.lfm +++|
01225 M01S00958.lfm +++|
01226 M01S00959.lfm +++| ALF LDD FP
01227 M01S00960.lfm +++| ZJN ALF4 IF ACCESS LIBRARY FILE FUNCTION
01228 M01S00961.lfm +++|
01229 M01S00962.lfm +++|* ASSIGN *SYSTEM* FILE.
01230 M01S00963.lfm +++|
01231 M01S00964.lfm +++| LDD FF SET INITIAL LOCAL FNT ADDRESS
01232 M01S00965.lfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
01233 M01S00966.lfm +++| NJN ALF3 IF LOCAL FILE PRESENT
01234 M01S00967.lfm +++| ALF1 LDD OC CHECK JOB ORIGIN
Line S00968 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01235 M02S00968.ns22000 ---| LMN SYOT
01236 M01S00057.ns22000 +++| LMK SYOT
01237 M01S00969.lfm +++| ZJN ALF2 IF SYSTEM ORIGIN JOB
01238 M01S00970.lfm +++| LDD CP CHECK USER ACCESS
01239 M01S00971.lfm +++| ADK AACW
01240 M01S00972.lfm +++| CRD CM
01241 M01S00973.lfm +++| LDD CM+4
01242 M01S00974.lfm +++| SHN 21-5
01243 M01S00975.lfm +++| MJN ALF2 IF LEGAL TO ACCESS SYSTEM FILE
Line S00976 Modification History
M01 (Added by) lfm
M02 (Updated by) v23l617
Seq # *Modification Id* Act
----------------------------+
01244 M02S00976.v23l617 ---| LDN /ERR/IUA * ILLEGAL USER ACCESS.*
01245 M01S00022.v23l617 +++| LDN /ERR/IUA * USER ACCESS NOT VALID.*
01246 M01S00977.lfm +++| UJN ALF5 PROCESS ERROR
01247 M01S00978.lfm +++|
01248 M01S00979.lfm +++| ALF2 RJM SSA SET SYSTEM FILE FNT ADDRESS
01249 M01S00980.lfm +++| ERRNZ FNTG CHECK IF NOT WORD 0 OF SYSTEM FNT ENTRY
01250 M01S00981.lfm +++| CRD CN READ SYSTEM FILE FNT WORD
01251 M01S00982.lfm +++| RJM CPF COMPARE FILE NAMES
01252 M01S00983.lfm +++| ZJN ALF3 IF FILE NAMES MATCH
01253 M01S00984.lfm +++| LDN /ERR/FNF * FILE NOT FOUND.*
01254 M01S00985.lfm +++| UJN ALF5 PROCESS ERROR
01255 M01S00986.lfm +++|
01256 M01S00987.lfm +++| ALF3 RJM SSA READ SYSTEM FILE FST WORD
01257 M01S00988.lfm +++| ADN FSTG
01258 M01S00989.lfm +++| CRD CN
01259 M01S00990.lfm +++| LJM ALF16 CONTINUE PROCESSING
01260 M01S00991.lfm +++|
01261 M01S00992.lfm +++|* ACCESS LIBRARY FILE.
01262 M01S00993.lfm +++|
01263 M01S00994.lfm +++| ALF4 LDN ZERL CLEAR FET+7
01264 M01S00995.lfm +++| CRD CM
01265 M01S00996.lfm +++| LDD FE
01266 M01S00997.lfm +++| SBN 7
01267 M01S00998.lfm +++| PJN ALF6 IF FET LONG ENOUGH
01268 M01S00999.lfm +++| LDN /ERR/FTS * FET TOO SHORT.*
01269 M01S01000.lfm +++| ALF5 LJM ERR PROCESS ERROR
01270 M01S01001.lfm +++|
01271 M01S01002.lfm +++| ALF6 RJM CPA
01272 M01S01003.lfm +++| ADN 7
01273 M01S01004.lfm +++| CWD CM
01274 M01S01005.lfm +++| LDD FF SET INITIAL FNT ADDRESS
01275 M01S01006.lfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
01276 M01S01007.lfm +++|
01277 M01S01008.lfm +++|* SEARCH USER LIBRARY DIRECTORY (LBD).
01278 M01S01009.lfm +++|
Line S01010 Modification History
M01 (Added by) lfm
M02 (Updated by) ns2278
Seq # *Modification Id* Act
----------------------------+
01279 M02S01010.ns2278 ---| LDK LBDP READ LBD POINTER
01280 M01S00001.ns2278 +++| LDD FE
01281 M01S00002.ns2278 +++| SBN 10
01282 M01S00003.ns2278 +++| MJN ALF6.5 IF FET LENGTH LESS THAN 9 WORDS
01283 M01S00004.ns2278 +++| RJM CPA GET FILE NAME FROM FET+8
01284 M01S00005.ns2278 +++| ADN 10
01285 M01S00006.ns2278 +++| CRD FN
01286 M01S00007.ns2278 +++| LDD FN
01287 M01S00008.ns2278 +++| NJN ALF6.5 IF FILE NAME IS NON-ZERO
01288 M01S00009.ns2278 +++| RJM CPA RESTORE FILE NAME FROM FET+0
01289 M01S00010.ns2278 +++| CRD FN
01290 M01S00011.ns2278 +++| ALF6.5 LDK LBDP GET LBD POINTER
01291 M01S01011.lfm +++| CRD T1
01292 M01S01012.lfm +++| LDD T3 MOVE POINTER
01293 M01S01013.lfm +++| STD T1
01294 M01S01014.lfm +++| LDD T3+1
01295 M01S01015.lfm +++| STD T1+1
01296 M01S01016.lfm +++| ALF7 LDD T1 READ DIRECTORY ENTRY
01297 M01S01017.lfm +++| SHN 14
01298 M01S01018.lfm +++| ADD T1+1
01299 M01S01019.lfm +++| CRD CN
01300 M01S01020.lfm +++| LDN 2 ADVANCE POINTER
01301 M01S01021.lfm +++| RAD T1+1 ADVANCE DIRECTORY INDEX
01302 M01S01022.lfm +++| SHN -14
01303 M01S01023.lfm +++| RAD T1
01304 M01S01024.lfm +++| LDD CN
01305 M01S01025.lfm +++| ZJN ALF8 IF END OF DIRECTORY
01306 M01S01026.lfm +++| RJM CPF COMPARE FILE NAMES
01307 M01S01027.lfm +++| NJN ALF7 IF NO MATCH
01308 M01S01028.lfm +++| AOM ALFB FLAG LBD PROCESSING
01309 M01S01029.lfm +++| LJM AFL13 PROCESS MATCH
01310 M01S01030.lfm +++|
01311 M01S01031.lfm +++|* SEARCH ENTRY POINT DIRECTORY (EPD).
01312 M01S01032.lfm +++|
01313 M01S01033.lfm +++| ALF8 LDD MA SET ENTRY POINT NAME
01314 M01S01034.lfm +++| CWD FN
01315 M01S01035.lfm +++| CRD AB
01316 M01S01036.lfm +++| LDD AB+3
01317 M01S01037.lfm +++| SCN 77
01318 M01S01038.lfm +++| STD AB+3
01319 M01S01039.lfm +++| LDN 0
01320 M01S01040.lfm +++| STD AB+4
01321 M01S01041.lfm +++| RJM CLD SEARCH CENTRAL LIBRARY DIRECTORY
01322 M01S01042.lfm +++| NJN ALF9 IF ENTRY FOUND
01323 M01S01043.lfm +++| LDD FA
01324 M01S01044.lfm +++| NJN AFL12 IF FILE ALREADY LOCAL
01325 M01S01045.lfm +++| LJM ALF1 ASSIGN *SYSTEM* FILE
01326 M01S01046.lfm +++|
01327 M01S01047.lfm +++|
01328 M01S01048.lfm +++|* PROCESS CLD ENTRY POINT.
01329 M01S01049.lfm +++|
01330 M01S01050.lfm +++| ALF9 CRD CN READ PST ENTRY
01331 M01S01051.lfm +++| SBN 1 READ SYSTEM FILE LOCATION
01332 M01S01052.lfm +++| CRM CRFA,ON
01333 M01S01053.lfm +++| LDD CN+1
01334 M01S01054.lfm +++| LPN 37
01335 M01S01055.lfm +++| LMN 3 RELOCATABLE TYPE RECORD
01336 M01S01056.lfm +++| NJN ALF10 IF NOT RELOCATABLE
01337 M01S01057.lfm +++| RJM CRF CREATE RELOCATABLE FNT FOR CLD
01338 M01S01058.lfm +++| LJM ALF18 RETURN
01339 M01S01059.lfm +++|
01340 M01S01060.lfm +++| ALF10 LMN 20&3 CHECK FOR *PROC*
01341 M01S01061.lfm +++| ZJN ALF11 IF *PROC* RECORD
01342 M01S01062.lfm +++| LMN 0&20 *TEXT* RECORD
01343 M01S01063.lfm +++| NJN AFL12 IF NOT A *TEXT* RECORD
01344 M01S01064.lfm +++| ALF11 LDN 1 FLAG *PROC* AND *TEXT* FILE PROCESSING
01345 M01S01065.lfm +++| RJM CFN CREATE FNT ENTRY
01346 M01S01066.lfm +++| ZJN ALF14 IF SAME ENTRY
01347 M01S01067.lfm +++| AFL12 LDN 0 CLEAR FNT ADDRESS
01348 M01S01068.lfm +++| STD FA
01349 M01S01069.lfm +++| LDN /ERR/DFN * DUPLICATE FILE NAME.*
01350 M01S01070.lfm +++| LJM ERR PROCESS ERROR
01351 M01S01071.lfm +++|
01352 M01S01072.lfm +++|* BEGIN LBD PROCESSING.
01353 M01S01073.lfm +++|
01354 M01S01074.lfm +++| AFL13 LDN 0 FLAG *ULIB* PROCESSING
01355 M01S01075.lfm +++| RJM CFN CREATE FNT ENTRY
01356 M01S01076.lfm +++| NJN AFL12 IF ERROR
01357 M01S01077.lfm +++| ALF14 LDD T1 READ CONTROL WORD
01358 M01S01078.lfm +++| SHN 14
01359 M01S01079.lfm +++| ADD T1+1
01360 M01S01080.lfm +++| ALFB SBN 0 EPD MATCH FOUND
01361 M01S01081.lfm +++|* SBN 1 (LBD MATCH FOUND)
01362 M01S01082.lfm +++| CRD CM
01363 M01S01083.lfm +++| CRD T3
01364 M01S01084.lfm +++| LDN 0
01365 M01S01085.lfm +++| STD CM
01366 M01S01086.lfm +++| STD T3
01367 M01S01087.lfm +++| LDD CM+3
01368 M01S01088.lfm +++| SHN 6
01369 M01S01089.lfm +++| MJN AFL12 IF NOT RANDOM ADDRESS
01370 M01S01090.lfm +++| LDC * SET *ULIB*/*PROC* BIT
01371 M01S01091.lfm +++|* LDC 0 (ULIB PROCESSING)
01372 M01S01092.lfm +++|* LDC 1 (PROC AND TEXT PROCESSING)
01373 M01S01093.lfm +++| ALFA EQU *-1
01374 M01S01094.lfm +++| STD CM
01375 M01S01095.lfm +++| SOD CM+4
01376 M01S01096.lfm +++| PJN ALF15 IF NO UNDERFLOW
01377 M01S01097.lfm +++| AOD CM+4
01378 M01S01098.lfm +++| SOD CM+3
01379 M01S01099.lfm +++| ALF15 RJM CPA STORE FET + 6
01380 M01S01100.lfm +++| ADN 6
01381 M01S01101.lfm +++| CWD T3
01382 M01S01102.lfm +++| ADN 1 STORE (FET+7)
01383 M01S01103.lfm +++| CWD CM
01384 M01S01104.lfm +++| ALF16 LDD FA
01385 M01S01105.lfm +++| ZJN ALF17 IF FILE NOT ASSIGNED
01386 M01S01106.lfm +++| LDN 0 CLEAR FNT ADDRESS
01387 M01S01107.lfm +++| STD FA
01388 M01S01108.lfm +++| LJM LFMX EXIT
01389 M01S01109.lfm +++|
01390 M01S01110.lfm +++| ALF17 LDN NEEQ SET NULL EQUIPMENT
01391 M01S01111.lfm +++| STD EQ
01392 M01S00012.ns2278 +++| RJM CPA RESTORE FILE NAME FROM FET+0
01393 M01S00013.ns2278 +++| CRD FN
01394 M01S01112.lfm +++| RJM EFN ENTER FILE NAME
01395 M01S01113.lfm +++| LDD CN SET FST ENTRY
01396 M01S01114.lfm +++| STD FS
01397 M01S01115.lfm +++| LDD CN+1
01398 M01S01116.lfm +++| STD FS+1
01399 M01S01117.lfm +++| STD FS+2
01400 M01S01118.lfm +++| LDN FSMS
01401 M01S01119.lfm +++| STD FS+3
Line S01120 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01402 M02S01120.ns22000 ---| ALF18 LDC LIFT*100
01403 M01S00058.ns22000 +++| ALF18 LDD TH
01404 M01S00059.ns22000 +++| ERRNZ 1000-LIFT*100 ADJUST IF VALUE CHANGES
01405 M01S01121.lfm +++| STD FN+4
01406 M01S01122.lfm +++| LDD FN+3 SET LOCK
01407 M01S01123.lfm +++| SCN 77
01408 M01S01124.lfm +++| LMN 1
01409 M01S01125.lfm +++| STD FN+3
01410 M01S01126.lfm +++| NFA FA,R STORE FNT WORD
01411 M01S01127.lfm +++| CWD FN
01412 M01S01128.lfm +++| LJM LFMX EXIT
01413 M01S01129.lfm +++| CFN SPACE 4,15
01414 M01S01130.lfm +++|*** CFN - CREATE FNT ENTRY.
01415 M01S01131.lfm +++|*
01416 M01S01132.lfm +++|* ENTRY (A) = 0, IF NOT A PROC OR TEXT FILE.
01417 M01S01133.lfm +++|* (A) = 1, IF IS A PROC OR TEXT FILE.
01418 M01S01134.lfm +++|*
01419 M01S01135.lfm +++|* EXIT (A) = 0, IF SAME FILE.
01420 M01S01136.lfm +++|* (A) .NE. 0, IF NOT SAME FILE.
01421 M01S01137.lfm +++|*
Line S01138 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm4
Seq # *Modification Id* Act
----------------------------+
01422 M02S01138.lfm4 ---|* USES CN - CN+4, FS - FS+4.
01423 M01S00001.lfm4 +++|* USES CM - CM+4, CN - CN+4, FS - FS+4.
01424 M01S01139.lfm +++|*
01425 M01S01140.lfm +++|* CALLS SSA.
01426 M01S01141.lfm +++|*
Line S01142 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01427 M02S01142.ns22000 ---|* MACROS NFA.
01428 M01S00060.ns22000 +++|* MACROS NFA, SFA.
01429 M01S01143.lfm +++|
01430 M01S01144.lfm +++|
01431 M01S01145.lfm +++| CFN SUBR ENTRY/EXIT
01432 M01S01146.lfm +++| SHN 13
01433 M01S01147.lfm +++| STM ALFA
01434 M01S01148.lfm +++| RJM SSA SET SYSTEM FILE FNT ADDRESS
01435 M01S01149.lfm +++| ADN FSTG
01436 M01S01150.lfm +++| CRD CN
01437 M01S01151.lfm +++| LDD FA
01438 M01S01152.lfm +++| ZJN CFNX IF NO ASSIGNED FILE
01439 M01S01153.lfm +++| NFA FA,R READ FST WORD
01440 M01S01154.lfm +++| ADN FSTL
01441 M01S01155.lfm +++| CRD FS
Line S01156 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm4
Seq # *Modification Id* Act
----------------------------+
01442 M02S01156.lfm4 ---| LDD CN COMPARE FST WORDS
Line S01157 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm4
Seq # *Modification Id* Act
----------------------------+
01443 M02S01157.lfm4 ---| LMD FS
Line S01158 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm4
Seq # *Modification Id* Act
----------------------------+
01444 M02S01158.lfm4 ---| LPC 777
Line S01159 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm4
Seq # *Modification Id* Act
----------------------------+
01445 M02S01159.lfm4 ---| NJN CFNX IF NO MATCH
Line S00002 Modification History
M01 (Added by) lfm4
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01446 M02S00002.ns22000 ---| LDD FS
Line S00003 Modification History
M01 (Added by) lfm4
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01447 M02S00003.ns22000 ---| LPC 777
Line S00004 Modification History
M01 (Added by) lfm4
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01448 M02S00004.ns22000 ---| ADM ESTS
01449 M01S00061.ns22000 +++| SFA EST,FS
01450 M01S00062.ns22000 +++| ADK EQDE
01451 M01S00005.lfm4 +++| CRD CM
01452 M01S00006.lfm4 +++| LDD CM
01453 M01S00007.lfm4 +++| SHN -12
01454 M01S00008.lfm4 +++| LMN 3
01455 M01S00009.lfm4 +++| NJN CFNX IF NOT A SYSTEM DEVICE
01456 M01S01160.lfm +++| LDD CN+1
01457 M01S01161.lfm +++| LMD FS+1
01458 M01S01162.lfm +++| UJN CFNX RETURN
01459 M01S01163.lfm +++|
01460 M01S01164.lfm +++| RNI SPACE 4,10
01461 M01S01165.lfm +++|** RNI - RENAME INITIALIZATION.
01462 M01S01166.lfm +++|
01463 M01S01167.lfm +++|
01464 M01S01168.lfm +++| RNI RJM CRX CHECK RESEX CALL
01465 M01S01169.lfm +++| LDC RNM SET ENTRY
01466 M01S01170.lfm +++| UJN RQI3 SET OVERLAY REQUEST
01467 M01S01171.lfm +++| RQI SPACE 4,10
01468 M01S01172.lfm +++|** RQI - EQUIPMENT REQUEST INITIALIZATION.
01469 M01S01173.lfm +++|*
01470 M01S01174.lfm +++|* ENTRY (FF) = FET SPECIFIED FNT ADDRESS.
01471 M01S01175.lfm +++|* (FN - FN+3) = FILE NAME FROM FET+0.
01472 M01S01176.lfm +++|
01473 M01S01177.lfm +++|
01474 M01S01178.lfm +++| RQI LDD FF SET INITIAL FNT ADDRESS
01475 M01S01179.lfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
01476 M01S01180.lfm +++| ZJN RQI2 IF FILE NOT FOUND
01477 M01S01181.lfm +++| RQI1 LDN 0 CLEAR FNT ADDRESS
01478 M01S01182.lfm +++| STD FA
01479 M01S01183.lfm +++| LJM LFMX EXIT
01480 M01S01184.lfm +++|
01481 M01S01185.lfm +++| RQI2 LDC REQ SET ENTRY
01482 M01S01186.lfm +++| RQI3 STM LFMB
01483 M01S01187.lfm +++| SHN -14 SET OVERLAY NAME
01484 M01S01188.lfm +++| STM LFMA
01485 M01S01189.lfm +++| LJM LFM1 PROCESS REQUEST
01486 M01S01190.lfm +++| LBI SPACE 4,10
01487 M01S01191.lfm +++|** LBI - LABEL REQUEST INITIALIZATION.
01488 M01S01192.lfm +++|
01489 M01S01193.lfm +++|
01490 M01S01194.lfm +++| LBI RJM CRX CHECK RESEX CALL
01491 M01S01195.lfm +++| RJM SVF SEARCH FOR VSN FILE
01492 M01S01196.lfm +++| NJN RQI1 IF NON-VSN FILE FOUND
01493 M01S01197.lfm +++| LDC LBR SET ENTRY
01494 M01S01198.lfm +++| UJN RQI3 SET OVERLAY REQUEST
01495 M01S01199.lfm +++| TITLE RESIDENT PROCESSOR SUBROUTINES.
01496 M01S01200.lfm +++| CPF SPACE 4,10
01497 M01S01201.lfm +++|** CPF - COMPARE FILE NAMES.
01498 M01S01202.lfm +++|*
01499 M01S01203.lfm +++|* ENTRY (CN - CN+3) = FIRST FILE NAME.
01500 M01S01204.lfm +++|* (FN - FN+3) = SECOND FILE NAME.
01501 M01S01205.lfm +++|*
01502 M01S01206.lfm +++|* EXIT (A) = 0 IF FILE NAMES MATCH.
01503 M01S01207.lfm +++|
01504 M01S01208.lfm +++|
01505 M01S01209.lfm +++| CPF SUBR ENTRY/EXIT
01506 M01S01210.lfm +++| LDD CN COMPARE FILE NAMES
01507 M01S01211.lfm +++| LMD FN
01508 M01S01212.lfm +++| NJN CPFX IF NO MATCH
01509 M01S01213.lfm +++| LDD CN+1
01510 M01S01214.lfm +++| LMD FN+1
01511 M01S01215.lfm +++| NJN CPFX IF NO MATCH
01512 M01S01216.lfm +++| LDD CN+2
01513 M01S01217.lfm +++| LMD FN+2
01514 M01S01218.lfm +++| NJN CPFX IF NO MATCH
01515 M01S01219.lfm +++| LDD CN+3
01516 M01S01220.lfm +++| LMD FN+3
01517 M01S01221.lfm +++| SCN 77
01518 M01S01222.lfm +++| UJN CPFX RETURN
01519 M01S01223.lfm +++| CRF SPACE 4,20
01520 M01S01224.lfm +++|** CRF - CREATE RELOCATABLE ROUTINE FNT.
01521 M01S01225.lfm +++|*
01522 M01S01226.lfm +++|* ENTRY (FN - FN+4) = FILE NAME.
01523 M01S01227.lfm +++|* (CN - CN+4) = DIRECTORY ENTRY.
01524 M01S01228.lfm +++|* (T1 - T1+1) = POINTER TO ENTRY IN PST.
01525 M01S01229.lfm +++|*
01526 M01S01230.lfm +++|* EXIT (FA) = FILE FNT ADDRESS.
01527 M01S01231.lfm +++|* (FS - FS+4) = FST INFORMATION.
01528 M01S01232.lfm +++|*
01529 M01S01233.lfm +++|* USES EQ, FS - FS+3, CM - CM+4, CN - CN+4.
01530 M01S01234.lfm +++|*
01531 M01S01235.lfm +++|* CALLS EFN, SSA.
01532 M01S00063.ns22000 +++|*
01533 M01S00064.ns22000 +++|* MACROS SFA.
01534 M01S01236.lfm +++|*
01535 M01S01237.lfm +++|* NOTE - *CRF* WILL POSITION THE FST TO THE LOCATION
01536 M01S01238.lfm +++|* OF THE RELOCATABLE PROGRAM ON THE SYSTEM
01537 M01S01239.lfm +++|* DEVICE OR THE *ASR* DEVICE.
01538 M01S01240.lfm +++|
01539 M01S01241.lfm +++|
01540 M01S01242.lfm +++| CRF SUBR ENTRY/EXIT
01541 M01S01243.lfm +++| LDD T1 READ PST CONTROL WORD
01542 M01S01244.lfm +++| SHN 14
01543 M01S01245.lfm +++| ADD T1+1
01544 M01S01246.lfm +++| CRD CN
Line S01247 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01545 M02S01247.ns22000 ---| LDN NEEQ SET EQUIPMENT NUMBER
01546 M01S00065.ns22000 +++| LDN NEEQ SET EST ORDINAL
01547 M01S01248.lfm +++| STD EQ
01548 M01S01249.lfm +++| RJM EFN ENTER FILE NAME
01549 M01S01250.lfm +++|
01550 M01S01251.lfm +++|* SET FST INFORMATION.
01551 M01S01252.lfm +++|
Line S01253 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01552 M02S01253.ns22000 ---| LDD CN+2 SET EQUIPMENT NUMBER
01553 M01S00066.ns22000 +++| LDD CN+2 SET EST ORDINAL
01554 M01S01254.lfm +++| LPC 777
01555 M01S01255.lfm +++| STD FS
01556 M01S01256.lfm +++| LDD CN+1 CHECK FOR ASR RESIDENT PROGRAM
01557 M01S01257.lfm +++| SHN 21-13
01558 M01S01258.lfm +++| PJN CRF1 IF NOT *ASR* DEVICE
Line S01259 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01559 M02S01259.ns22000 ---| LDD FS
Line S01260 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01560 M02S01260.ns22000 ---| ADM ESTS CHECK FOR DEVICE ON
01561 M01S00067.ns22000 +++| SFA EST,FS CHECK FOR DEVICE *ON*
01562 M01S00068.ns22000 +++| ADK EQDE
01563 M01S01261.lfm +++| CRD CM
Line S01262 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01564 M02S01262.242l642 ---| LDD CM+3
Line S01263 Modification History
M01 (Added by) lfm
M02 (Updated by) 242l642
Seq # *Modification Id* Act
----------------------------+
01565 M02S01263.242l642 ---| SHN 21-13
01566 M01S00077.242l642 +++| LDD CM
01567 M01S00078.242l642 +++| SHN 21-1
01568 M01S01264.lfm +++| MJN CRF2 IF DEVICE OFF
01569 M01S01265.lfm +++| LDD CN+3 SET FIRST = CURRENT
01570 M01S01266.lfm +++| STD FS+1
01571 M01S01267.lfm +++| STD FS+2
01572 M01S01268.lfm +++| LDD CN+4
01573 M01S01269.lfm +++| STD FS+3
01574 M01S01270.lfm +++| UJN CRFX RETURN
01575 M01S01271.lfm +++|
01576 M01S01272.lfm +++| CRF1 LDD CN+3 GET TRACK
01577 M01S01273.lfm +++| STM CRFA+3
01578 M01S01274.lfm +++| LDD CN+4 GET SECTOR
01579 M01S01275.lfm +++| STM CRFA+4
01580 M01S01276.lfm +++| CRF2 RJM SSA SET SYSTEM FILE FNT ADDRESS
01581 M01S01277.lfm +++| ADN FSTG
01582 M01S01278.lfm +++| CRD CM
01583 M01S01279.lfm +++| LDD CM SET SYSTEM EQUIPMENT
01584 M01S01280.lfm +++| STD FS
01585 M01S01281.lfm +++| LDM CRFA+3 SET FIRST = CURRENT
01586 M01S01282.lfm +++| STD FS+1
01587 M01S01283.lfm +++| STD FS+2
01588 M01S01284.lfm +++| LDM CRFA+4 SET SECTOR
01589 M01S01285.lfm +++| STD FS+3
01590 M01S01286.lfm +++| LJM CRFX RETURN
01591 M01S01287.lfm +++|
01592 M01S01288.lfm +++|
01593 M01S01289.lfm +++| CRFA BSS 5 SYSTEM DEVICE INFORMATION
01594 M01S01290.lfm +++| SSA SPACE 4,10
01595 M01S01291.lfm +++|** SSA - SET SYSTEM FILE FNT ENTRY ADDRESS.
01596 M01S01292.lfm +++|*
01597 M01S01293.lfm +++|* EXIT (A) = ABSOLUTE ADDRESS OF SYSTEM FILE ENTRY.
01598 M01S01294.lfm +++|*
01599 M01S01295.lfm +++|* USES CM - CM+4.
01600 M01S01296.lfm +++|
01601 M01S01297.lfm +++|
01602 M01S01298.lfm +++| SSA SUBR ENTRY/EXIT
01603 M01S01299.lfm +++| LDN FNTP FETCH FNT POINTER
01604 M01S01300.lfm +++| CRD CM
01605 M01S01301.lfm +++| LDD CM GET SYSTEM FILE FNT ADDRESS
01606 M01S01302.lfm +++| SHN 14
01607 M01S01303.lfm +++| ADD CM+1
01608 M01S01304.lfm +++|* ADN SYFO*FNTE
01609 M01S01305.lfm +++| ERRNZ SYFO SYSTEM FILE IS NOT FIRST SYSTEM FNT ENTRY
01610 M01S01306.lfm +++| UJN SSAX RETURN
01611 M01S01307.lfm +++| SPACE 4,10
01612 M01S01308.lfm +++|** COMMON DECKS.
01613 M01S01309.lfm +++|
01614 M01S01310.lfm +++|
01615 M01S01311.lfm +++|*CALL COMPCLD
01616 M01S01312.lfm +++|*CALL COMPCRS
01617 M01S01313.lfm +++| SPACE 4,10
01618 M01S01314.lfm +++| IFP HERE DUMP *IFP* REMOTE CODE
01619 M01S00001.lfm17 +++| SPACE 4
01620 M01S00002.lfm17 +++|** DEFINE ZERO LEVEL OVERLAY LOAD ADDRESS.
01621 M01S00003.lfm17 +++|
01622 M01S00004.lfm17 +++|
01623 M01S00005.lfm17 +++| .L1 EQU 7777-1-ZBFL LENGTH OF *0BF*
01624 M01S00006.lfm17 +++| .L2 EQU BFMS-1-ZDFL LENGTH OF *0DF*
01625 M01S00007.lfm17 +++| .L3 MIN .L1,.L2
01626 M01S00008.lfm17 +++| OVL0 EQU .L3 DEFINE ZERO LEVEL OVERLAY LOAD ADDRESS
01627 M01S00009.lfm17 +++| SPACE 4,10
01628 M01S00010.lfm17 +++| ERRNG OVL0-* CODE OVERFLOWS INTO ZERO LEVEL OVERLAYS
01629 M01S01315.lfm +++| OVERLAY (ERROR PROCESSOR.)
01630 M01S01316.lfm +++| ERP SPACE 4,10
01631 M01S01317.lfm +++|** ERP - ERROR PPROCESSOR.
01632 M01S00069.ns22000 +++|*
01633 M01S01318.lfm +++|* ENTRY (EQ) = ERROR NUMBER.
01634 M01S01319.lfm +++|
01635 M01S01320.lfm +++|
01636 M01S01321.lfm +++| ENTRY ERP
01637 M01S01322.lfm +++| LDM ERPA,EQ
01638 M01S01323.lfm +++| ZJN ERP1 IF NO DAYFILE MESSAGES ARE TO BE ISSUED
Line S01324 Modification History
M01 (Added by) lfm
M02 (Updated by) ns22000
Seq # *Modification Id* Act
----------------------------+
01639 M02S01324.ns22000 ---| LDC =C*LFM ERROR.*
01640 M01S00070.ns22000 +++| LDC =C* LFM ERROR.*
01641 M01S01325.lfm +++| RJM DFM ISSUE DAYFILE MESSAGE
Line S01326 Modification History
M01 (Added by) lfm
M02 (Updated by) lfm23
Seq # *Modification Id* Act
----------------------------+
01642 M02S01326.lfm23 ---| LDM ERPA,EQ
01643 M01S00001.lfm23 +++| LDD EQ
01644 M01S00002.lfm23 +++| LMN /ERR/DFN
01645 M01S00003.lfm23 +++| NJN ERP0 IF NOT *DUPLICATE FILE NAME*