Common COMPSOF

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsof +++|          CTEXT  COMPSOF - SEARCH OPTICAL DISK FILE.

Line S00002 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1992.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M00S00003.compsof +++| SOF      SPACE  4
00005  M00S00004.compsof +++|          BASE   M
00006  M00S00005.compsof +++|          IF     -DEF,QUAL$,1
00007  M00S00006.compsof +++|          QUAL   COMPSOF
00008  M00S00007.compsof +++| SOF      SPACE  4,16
00009  M00S00008.compsof +++|***       SOF - SEARCH OPTICAL DISK FILE.
00010  M00S00009.compsof +++|*         J. M. CYCHOSZ.    91/05/19.
00011  M00S00010.compsof +++| SOF      SPACE  4,16
00012  M00S00011.compsof +++|***              SOF SEARCHES THE OPTICAL DISK FILE *ZZZZZOD* FOR
00013  M00S00012.compsof +++|*         THE LABEL RECORD ENTRY OF THE SPECIFIED FILE.  IF THE FILE
00014  M00S00013.compsof +++|*         IS FOUND, *BFMS* CONTAINS THE FIRST SECTOR OF THE LABEL
00015  M00S00014.compsof +++|*         RECORD.
00016  M00S00015.compsof +++|*
00017  M00S00016.compsof +++|*         ENTRY  (FN - FN+3) = FILE NAME.
00018  M00S00017.compsof +++|*
00019  M00S00018.compsof +++|*         EXIT   (A) = 0 IF FILE FOUND.
00020  M00S00019.compsof +++|*                    = 1 IF FILE NOT FOUND.
00021  M00S00020.compsof +++|*                    < 0 IF OPTICAL DISK SYSTEM ERROR.
00022  M00S00021.compsof +++|*                (FS)   = EQUIPMENT ORDINAL OF *ZZZZZOD* FILE.
00023  M00S00022.compsof +++|*                (FS+2) = TRACK CONTAINING ENTRY.
00024  M00S00023.compsof +++|*                (FS+3) = SECTOR CONTAINING ENTRY.
00025  M00S00024.compsof +++|*                (BFMS) = FIRST SECTOR OF LABEL RECORD.
00026  M00S00025.compsof +++|*
00027  M00S00026.compsof +++|*         USES   FA, T1, T5, T6, T7, FN - FN+4, FS - FS+4.
00028  M00S00027.compsof +++|*
00029  M00S00028.compsof +++|*         CALLS  RDS, SAF.
00030  M00S00029.compsof +++|*
00031  M00S00030.compsof +++|*         MACROS ENDMS, NFA, SETMS.
00032  M00S00031.compsof +++|
00033  M00S00032.compsof +++|
00034  M00S00033.compsof +++| SOF      SUBR               ENTRY/EXIT
00035  M00S00034.compsof +++|          LDD    MA          SAVE (FN - FN+4)
00036  M00S00035.compsof +++|          CWD    FN
00037  M00S00036.compsof +++|          ADN    1
00038  M00S00037.compsof +++|          CWM    SOFB,ON
00039  M00S00038.compsof +++|          SBN    1
00040  M00S00039.compsof +++|          CRD    FN          SET FILE *ZZZZZOD* TO SEARCH FOR
00041  M00S00040.compsof +++|          LDD    FA          SAVE FNT ADDRESS
00042  M00S00041.compsof +++|          STM    SOFA
00043  M00S00042.compsof +++|          LDN    0           SET NO INITIAL FNT ADDRESS
00044  M00S00043.compsof +++|          RJM    SAF         SEARCH FOR *ZZZZZOD*
00045  M00S00044.compsof +++|          LDD    FA          SET FNT ADDRESS
00046  M00S00045.compsof +++|          STD    T1
00047  M00S00046.compsof +++|          LDD    MA          RESTORE (FN - FN+4)
00048  M00S00047.compsof +++|          CRD    FN
00049  M00S00048.compsof +++|          LDC    **          RESTORE FNT ADDRESS
00050  M00S00049.compsof +++| SOFA     EQU    *-1
00051  M00S00050.compsof +++|          STD    FA
00052  M00S00051.compsof +++|          LDD    T1
00053  M00S00052.compsof +++|          NJN    SOF2        IF FILE *ZZZZZOD* FOUND
00054  M00S00053.compsof +++| SOF1     LCN    0           OPTICAL DISK SYSTEM ERROR
00055  M00S00054.compsof +++|          UJN    SOFX        RETURN
00056  M00S00055.compsof +++|
00057  M00S00056.compsof +++| SOF2     NFA    T1,R        READ FST WORD
00058  M00S00057.compsof +++|          ADN    FSTL
00059  M00S00058.compsof +++|          CRD    FS
00060  M00S00059.compsof +++|          LDD    FS          SET EST ORDINAL
00061  M00S00060.compsof +++|          STD    T5
00062  M00S00061.compsof +++|          SETMS  IO
00063  M00S00062.compsof +++|          LDD    FS+1        SET CURRENT TRACK
00064  M00S00063.compsof +++|          STD    FS+2
00065  M00S00064.compsof +++|          STD    T6
00066  M00S00065.compsof +++|          LDN    FSMS        SET CURRENT SECTOR
00067  M00S00066.compsof +++|          STD    FS+3
00068  M00S00067.compsof +++|          STD    T7
00069  M00S00068.compsof +++| SOF3     LDC    BFMS
00070  M00S00069.compsof +++|          RJM    RDS         READ SECTOR
00071  M00S00070.compsof +++|          MJN    SOF1        IF ERROR READING *ZZZZZOD* FILE
00072  M00S00071.compsof +++|          LDD    FN
00073  M00S00072.compsof +++|          LMM    BFMS+2
00074  M00S00073.compsof +++|          NJN    SOF4        IF NO COMPARE
00075  M00S00074.compsof +++|          LDD    FN+1
00076  M00S00075.compsof +++|          LMM    BFMS+3
00077  M00S00076.compsof +++|          NJN    SOF4        IF NO COMPARE
00078  M00S00077.compsof +++|          LDD    FN+2
00079  M00S00078.compsof +++|          LMM    BFMS+4
00080  M00S00079.compsof +++|          NJN    SOF4        IF NO COMPARE
00081  M00S00080.compsof +++|          LDD    FN+3
00082  M00S00081.compsof +++|          LMM    BFMS+5
00083  M00S00082.compsof +++|          SCN    77
00084  M00S00083.compsof +++|          ZJN    SOF6        IF FILE NAMES MATCH
00085  M00S00084.compsof +++|          LDM    BFMS+2
00086  M00S00085.compsof +++|          LMC    2R++
00087  M00S00086.compsof +++|          NJN    SOF4        IF NOT LAST ENTRY
00088  M00S00087.compsof +++|          ENDMS
00089  M00S00088.compsof +++|          LDN    1           SET FILE NOT FOUND
00090  M00S00089.compsof +++|          UJN    SOF7
00091  M00S00090.compsof +++|
00092  M00S00091.compsof +++| SOF4     LDN    20          ADVANCE TO NEXT ENTRY
00093  M00S00092.compsof +++|          RAD    FS+3
00094  M00S00093.compsof +++|          STD    T7
00095  M00S00094.compsof +++|          SBM    SLM         SECTOR LIMIT FOR TRACK
00096  M00S00095.compsof +++|          PJN    SOF5        IF SECTOR LIMIT REACHED FOR TRACK
00097  M00S00096.compsof +++|          LJM    SOF3        READ NEXT ENTRY
00098  M00S00097.compsof +++| SOF5     ENDMS
00099  M00S00098.compsof +++|          LJM    SOF1        INTERNAL ERROR IN *ZZZZZOD*
00100  M00S00099.compsof +++|
00101  M00S00100.compsof +++| SOF6     ENDMS
00102  M00S00101.compsof +++|          LDN    0           SET FILE FOUND
00103  M00S00102.compsof +++| SOF7     LJM    SOFX        RETURN
00104  M00S00103.compsof +++|
00105  M00S00104.compsof +++| SOFB     VFD    48/0LZZZZZOD          OPTICAL DISK FILE
00106  M00S00105.compsof +++|          SPACE  4
00107  M00S00106.compsof +++| QUAL$    IF     -DEF,QUAL$,2
00108  M00S00107.compsof +++|          QUAL   *
00109  M00S00108.compsof +++| SOF      EQU    /COMPSOF/SOF
00110  M00S00109.compsof +++|          BASE   *
00111  M00S00110.compsof +++|          ENDX