cdc:nos2.source:opl.opl871:common:compsaf
Common COMPSAF
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compsaf +++| CTEXT COMPSAF - SEARCH FOR ASSIGNED FILE. 00002 M01S00002.compsaf +++| SAF SPACE 4 00003 M01S00003.compsaf +++| IF -DEF,QUAL$,1 00004 M01S00004.compsaf +++| QUAL COMPSAF
Line S00005 Modification History | |
---|---|
M01 (Added by) | compsaf |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M01S00006.compsaf +++| SAF SPACE 4 00008 M01S00007.compsaf +++|*** SAF - SEARCH FOR ASSIGNED FILE. 00009 M01S00008.compsaf +++|* G. R. MANSFIELD. 70/08/30. 00010 M01S00009.compsaf +++| SAF SPACE 4 00011 M01S00010.compsaf +++|*** *SAF* SEARCHES THE LOCAL FNT FOR A SPECIFIED FILE. 00012 M01S00011.compsaf +++|* IF *SAF$* IS DEFINED, THE ENTRY SPECIFIED BY THE (A) WILL 00013 M01S00012.compsaf +++|* BE EXAMINED FIRST. IF THIS INITIAL ENTRY DOES NOT MATCH, 00014 M01S00013.compsaf +++|* THE ENTIRE LOCAL FNT WILL BE SEARCHED. 00015 M01S00014.compsaf +++|* 00016 M01S00015.compsaf +++|* ENTRY (FN - FN+3) = FILE NAME. 00017 M01S00016.compsaf +++|* IF *SAF$* IS DEFINED, 00018 M01S00017.compsaf +++|* (A) = INITIAL FNT ADDRESS TO SEARCH. 00019 M01S00018.compsaf +++|* (A) = 0, NO INITIAL ADDRESS SPECIFIED. 00020 M01S00019.compsaf +++|* 00021 M01S00020.compsaf +++|* EXIT (A) = 0 IF FILE NOT FOUND. 00022 M01S00021.compsaf +++|* (FA) = ADDRESS OF FNT ENTRY (IN NFL). 00023 M01S00022.compsaf +++|* = 0 IF FILE NOT FOUND. 00024 M01S00023.compsaf +++|* (FS - FS+4) = FNT ENTRY. 00025 M01S00024.compsaf +++|* 00026 M01S00025.compsaf +++|* USES FA, CM - CM+4, FS - FS+4. 00027 M01S00026.compsaf +++|* 00028 M01S00027.compsaf +++|* MACROS NFA. 00029 M01S00028.compsaf +++| 00030 M01S00029.compsaf +++| 00031 M01S00030.compsaf +++| SAF5 LDN 0 CLEAR FNT ADDRESS 00032 M01S00031.compsaf +++| STD FA 00033 M01S00032.compsaf +++| 00034 M01S00033.compsaf +++| SAF SUBR ENTRY/EXIT 00035 M01S00034.compsaf +++| .A IF DEF,SAF$ 00036 M01S00035.compsaf +++| STD FA SAVE INITIAL SEARCH ADDRESS 00037 M01S00036.compsaf +++| .A ENDIF 00038 M01S00037.compsaf +++| LDD CP 00039 M01S00038.compsaf +++| ADN FLSW GET NFL/100B 00040 M01S00039.compsaf +++| CRD CM 00041 M01S00040.compsaf +++| LDD CM 00042 M01S00041.compsaf +++| SHN 6 NFL SIZE 00043 M01S00042.compsaf +++| ADN 1 ADDRESS+1 OF LAST FNT WORD ALLOWED 00044 M01S00043.compsaf +++| STD CM+1 00045 M01S00044.compsaf +++| LDC FNTN-LENF SAVE FWA OF FNT-S 00046 M01S00045.compsaf +++| STD CM 00047 M01S00046.compsaf +++| .B IF DEF,SAF$ 00048 M01S00047.compsaf +++| LDD CM 00049 M01S00048.compsaf +++| STD CM+2 00050 M01S00049.compsaf +++| ADN LENF 00051 M01S00050.compsaf +++| SBD FA VALIDATE INITIAL SEARCH ADDRESS 00052 M01S00051.compsaf +++| PJN SAF1 IF INVALID FNT ADDRESS 00053 M01S00052.compsaf +++| LDD FA 00054 M01S00053.compsaf +++| SBD CM+1 00055 M01S00054.compsaf +++| PJN SAF1 IF INVALID FNT ADDRESS 00056 M01S00055.compsaf +++| NFA FA,R 00057 M01S00056.compsaf +++| UJN SAF2.1 CHECK INITIAL ADDRESS 00058 M01S00057.compsaf +++| .B ENDIF 00059 M01S00058.compsaf +++| SAF1 LDN LENF ADVANCE FNT ADDRESS 00060 M01S00059.compsaf +++| RAD CM 00061 M01S00060.compsaf +++| SAF2 SBD CM+1 00062 M01S00061.compsaf +++| PJN SAF5 IF END OF FNT IN NFL 00063 M01S00062.compsaf +++| NFA CM,R GET FNT ENTRY 00064 M01S00063.compsaf +++| SAF2.1 CRD FS 00065 M01S00064.compsaf +++| LDD FS CHECK FIRST 2 CHARACTERS 00066 M01S00065.compsaf +++| ZJN SAF1 IF BLANK ENTRY 00067 M01S00066.compsaf +++| LMD FN 00068 M01S00067.compsaf +++| NJN SAF1 IF NO MATCH ON 2 CHARACTERS 00069 M01S00068.compsaf +++| LDD FN+1 COMPARE REMAINDER OF NAMES 00070 M01S00069.compsaf +++| LMD FS+1 00071 M01S00070.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00072 M01S00071.compsaf +++| LDD FN+2 00073 M01S00072.compsaf +++| LMD FS+2 00074 M01S00073.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00075 M01S00074.compsaf +++| LDD FN+3 00076 M01S00075.compsaf +++| LMD FS+3 00077 M01S00076.compsaf +++| SCN 77 00078 M01S00077.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00079 M01S00078.compsaf +++| .C IF DEF,SAF$ 00080 M01S00079.compsaf +++| LDD CM+2 CHECK INITIAL PASS 00081 M01S00080.compsaf +++| LMD CM 00082 M01S00081.compsaf +++| NJN SAF3 IF NOT INITIAL PASS 00083 M01S00082.compsaf +++| LDD FA 00084 M01S00083.compsaf +++| UJN SAF4 RETURN 00085 M01S00084.compsaf +++| 00086 M01S00085.compsaf +++| .C ENDIF 00087 M01S00086.compsaf +++| SAF3 LDD CM 00088 M01S00087.compsaf +++| STD FA 00089 M01S00088.compsaf +++| SAF4 LJM SAFX RETURN 00090 M01S00089.compsaf +++| SPACE 4 00091 M01S00090.compsaf +++| QUAL$ IF -DEF,QUAL$ 00092 M01S00091.compsaf +++| QUAL * 00093 M01S00092.compsaf +++| SAF EQU /COMPSAF/SAF 00094 M01S00093.compsaf +++| QUAL$ ENDIF 00095 M01S00094.compsaf +++| ENDX
cdc/nos2.source/opl.opl871/common/compsaf.txt ยท Last modified: by 127.0.0.1