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