cdc:nos2.source:opl.opl871:common:compsaf
Common COMPSAF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compsaf +++| CTEXT COMPSAF - SEARCH FOR ASSIGNED FILE. 00002 M00S00002.compsaf +++| SAF SPACE 4 00003 M00S00003.compsaf +++| IF -DEF,QUAL$,1 00004 M00S00004.compsaf +++| QUAL COMPSAF
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M00S00006.compsaf +++| SAF SPACE 4 00008 M00S00007.compsaf +++|*** SAF - SEARCH FOR ASSIGNED FILE. 00009 M00S00008.compsaf +++|* G. R. MANSFIELD. 70/08/30. 00010 M00S00009.compsaf +++| SAF SPACE 4 00011 M00S00010.compsaf +++|*** *SAF* SEARCHES THE LOCAL FNT FOR A SPECIFIED FILE. 00012 M00S00011.compsaf +++|* IF *SAF$* IS DEFINED, THE ENTRY SPECIFIED BY THE (A) WILL 00013 M00S00012.compsaf +++|* BE EXAMINED FIRST. IF THIS INITIAL ENTRY DOES NOT MATCH, 00014 M00S00013.compsaf +++|* THE ENTIRE LOCAL FNT WILL BE SEARCHED. 00015 M00S00014.compsaf +++|* 00016 M00S00015.compsaf +++|* ENTRY (FN - FN+3) = FILE NAME. 00017 M00S00016.compsaf +++|* IF *SAF$* IS DEFINED, 00018 M00S00017.compsaf +++|* (A) = INITIAL FNT ADDRESS TO SEARCH. 00019 M00S00018.compsaf +++|* (A) = 0, NO INITIAL ADDRESS SPECIFIED. 00020 M00S00019.compsaf +++|* 00021 M00S00020.compsaf +++|* EXIT (A) = 0 IF FILE NOT FOUND. 00022 M00S00021.compsaf +++|* (FA) = ADDRESS OF FNT ENTRY (IN NFL). 00023 M00S00022.compsaf +++|* = 0 IF FILE NOT FOUND. 00024 M00S00023.compsaf +++|* (FS - FS+4) = FNT ENTRY. 00025 M00S00024.compsaf +++|* 00026 M00S00025.compsaf +++|* USES FA, CM - CM+4, FS - FS+4. 00027 M00S00026.compsaf +++|* 00028 M00S00027.compsaf +++|* MACROS NFA. 00029 M00S00028.compsaf +++| 00030 M00S00029.compsaf +++| 00031 M00S00030.compsaf +++| SAF5 LDN 0 CLEAR FNT ADDRESS 00032 M00S00031.compsaf +++| STD FA 00033 M00S00032.compsaf +++| 00034 M00S00033.compsaf +++| SAF SUBR ENTRY/EXIT 00035 M00S00034.compsaf +++| .A IF DEF,SAF$ 00036 M00S00035.compsaf +++| STD FA SAVE INITIAL SEARCH ADDRESS 00037 M00S00036.compsaf +++| .A ENDIF 00038 M00S00037.compsaf +++| LDD CP 00039 M00S00038.compsaf +++| ADN FLSW GET NFL/100B 00040 M00S00039.compsaf +++| CRD CM 00041 M00S00040.compsaf +++| LDD CM 00042 M00S00041.compsaf +++| SHN 6 NFL SIZE 00043 M00S00042.compsaf +++| ADN 1 ADDRESS+1 OF LAST FNT WORD ALLOWED 00044 M00S00043.compsaf +++| STD CM+1 00045 M00S00044.compsaf +++| LDC FNTN-LENF SAVE FWA OF FNT-S 00046 M00S00045.compsaf +++| STD CM 00047 M00S00046.compsaf +++| .B IF DEF,SAF$ 00048 M00S00047.compsaf +++| LDD CM 00049 M00S00048.compsaf +++| STD CM+2 00050 M00S00049.compsaf +++| ADN LENF 00051 M00S00050.compsaf +++| SBD FA VALIDATE INITIAL SEARCH ADDRESS 00052 M00S00051.compsaf +++| PJN SAF1 IF INVALID FNT ADDRESS 00053 M00S00052.compsaf +++| LDD FA 00054 M00S00053.compsaf +++| SBD CM+1 00055 M00S00054.compsaf +++| PJN SAF1 IF INVALID FNT ADDRESS 00056 M00S00055.compsaf +++| NFA FA,R 00057 M00S00056.compsaf +++| UJN SAF2.1 CHECK INITIAL ADDRESS 00058 M00S00057.compsaf +++| .B ENDIF 00059 M00S00058.compsaf +++| SAF1 LDN LENF ADVANCE FNT ADDRESS 00060 M00S00059.compsaf +++| RAD CM 00061 M00S00060.compsaf +++| SAF2 SBD CM+1 00062 M00S00061.compsaf +++| PJN SAF5 IF END OF FNT IN NFL 00063 M00S00062.compsaf +++| NFA CM,R GET FNT ENTRY 00064 M00S00063.compsaf +++| SAF2.1 CRD FS 00065 M00S00064.compsaf +++| LDD FS CHECK FIRST 2 CHARACTERS 00066 M00S00065.compsaf +++| ZJN SAF1 IF BLANK ENTRY 00067 M00S00066.compsaf +++| LMD FN 00068 M00S00067.compsaf +++| NJN SAF1 IF NO MATCH ON 2 CHARACTERS 00069 M00S00068.compsaf +++| LDD FN+1 COMPARE REMAINDER OF NAMES 00070 M00S00069.compsaf +++| LMD FS+1 00071 M00S00070.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00072 M00S00071.compsaf +++| LDD FN+2 00073 M00S00072.compsaf +++| LMD FS+2 00074 M00S00073.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00075 M00S00074.compsaf +++| LDD FN+3 00076 M00S00075.compsaf +++| LMD FS+3 00077 M00S00076.compsaf +++| SCN 77 00078 M00S00077.compsaf +++| NJN SAF1 IF NOT SAME FILE NAME 00079 M00S00078.compsaf +++| .C IF DEF,SAF$ 00080 M00S00079.compsaf +++| LDD CM+2 CHECK INITIAL PASS 00081 M00S00080.compsaf +++| LMD CM 00082 M00S00081.compsaf +++| NJN SAF3 IF NOT INITIAL PASS 00083 M00S00082.compsaf +++| LDD FA 00084 M00S00083.compsaf +++| UJN SAF4 RETURN 00085 M00S00084.compsaf +++| 00086 M00S00085.compsaf +++| .C ENDIF 00087 M00S00086.compsaf +++| SAF3 LDD CM 00088 M00S00087.compsaf +++| STD FA 00089 M00S00088.compsaf +++| SAF4 LJM SAFX RETURN 00090 M00S00089.compsaf +++| SPACE 4 00091 M00S00090.compsaf +++| QUAL$ IF -DEF,QUAL$ 00092 M00S00091.compsaf +++| QUAL * 00093 M00S00092.compsaf +++| SAF EQU /COMPSAF/SAF 00094 M00S00093.compsaf +++| QUAL$ ENDIF 00095 M00S00094.compsaf +++| ENDX
cdc/nos2.source/opl.opl871/common/compsaf.txt · Last modified: (external edit)