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