Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.ssinit +++|PROC SSINIT;
00002 M01S00002.ssinit +++|# TITLE SSINIT - OPEN CATALOG AND SMMAP INITIALIZER. #
00003 M01S00003.ssinit +++|
00004 M01S00004.ssinit +++| BEGIN # SSINIT #
00005 M01S00005.ssinit +++|
00006 M01S00006.ssinit +++|#
00007 M01S00007.ssinit +++|** SSINIT - OPEN CATALOG AND SMMAP INITIALIZER.
00008 M01S00008.ssinit +++|*
00009 M01S00009.ssinit +++|* PROC SSINIT.
00010 M01S00010.ssinit +++|*
00011 M01S00011.ssinit +++|* EXIT BUFFER AND TABLE POINTERS SET UP.
00012 M01S00012.ssinit +++|*
00013 M01S00013.ssinit +++|* NOTES *SSINIT* IS USED BY THE *MSS* UTILITIES
00014 M01S00014.ssinit +++|* TO SET UP BUFFER AND TABLE ADDRESSES FOR
00015 M01S00015.ssinit +++|* THE CATALOG AND SMMAP ACCESS ROUTINES.
00016 M01S00016.ssinit +++|* IT ALLOWS FOR 8 CATALOGS AND 8 SMMAPS
00017 M01S00017.ssinit +++|* TO BE OPEN AT A TIME.
00018 M01S00018.ssinit +++|#
00019 M01S00019.ssinit +++|
00020 M01S00020.ssinit +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00021 M01S00021.ssinit +++|*CALL COMBFAS
00022 M01S00022.ssinit +++|*CALL COMBCMD
00023 M01S00023.ssinit +++|
00024 M01S00024.ssinit +++|#
00025 M01S00025.ssinit +++|* FETS, BUFFERS AND TABLES.
00026 M01S00026.ssinit +++|#
00027 M01S00027.ssinit +++|
00028 M01S00028.ssinit +++| ARRAY FETS [0:3] S(RFETL);;
00029 M01S00029.ssinit +++| ARRAY BUF$AST [1:ABUFLEN] P(1);;
00030 M01S00030.ssinit +++| ARRAY BUF$FCT[1:FCTBL] P(1);;
00031 M01S00031.ssinit +++| ARRAY BUF$MAP [1:MAPBUFL] P(1);;
00032 M01S00032.ssinit +++| ARRAY BUF$TEMP [1:FCTBL];;
00033 M01S00033.ssinit +++| ARRAY BUF$WORK [1:WBUFL] P(1);;
00034 M01S00034.ssinit +++|
00035 M01S00035.ssinit +++|#
00036 M01S00036.ssinit +++|* OPEN CATALOG TABLE.
00037 M01S00037.ssinit +++|#
00038 M01S00038.ssinit +++|
00039 M01S00039.ssinit +++| ARRAY T$OCT [0:7] P(OCTENTL);;
00040 M01S00040.ssinit +++|
00041 M01S00041.ssinit +++|#
00042 M01S00042.ssinit +++|* OPEN SMMAP TABLE.
00043 M01S00043.ssinit +++|#
00044 M01S00044.ssinit +++|
00045 M01S00045.ssinit +++| ARRAY T$OMT [1:MAXSM] P(OMTENTL);;
00046 M01S00046.ssinit +++|
00047 M01S00047.ssinit +++|#
00048 M01S00048.ssinit +++|* PREAMBLE TABLE.
00049 M01S00049.ssinit +++|#
00050 M01S00050.ssinit +++|
00051 M01S00051.ssinit +++| ARRAY T$PRM [0:7] P(14);;
00052 M01S00052.ssinit +++|
00053 M01S00053.ssinit +++|CONTROL EJECT;
00054 M01S00054.ssinit +++|
00055 M01S00055.ssinit +++|#
00056 M01S00056.ssinit +++|* SET UP BUFFER AND TABLE ADDRESSES.
00057 M01S00057.ssinit +++|#
00058 M01S00058.ssinit +++|
00059 M01S00059.ssinit +++| FCTFADR = LOC(FETS[0]); # *FCT* FET #
00060 M01S00060.ssinit +++| P<FCTFET> = FCTFADR;
00061 M01S00061.ssinit +++|
00062 M01S00062.ssinit +++| MAPFADR = LOC(FETS[1]); # MAP FET #
00063 M01S00063.ssinit +++| P<MAPFET> = MAPFADR;
00064 M01S00064.ssinit +++|
00065 M01S00065.ssinit +++| TFETADR = LOC(FETS[2]); # TEMPORARY FET #
00066 M01S00066.ssinit +++| P<TFET> = TFETADR;
00067 M01S00067.ssinit +++| ASTBADR = LOC(BUF$AST); # *AST* I/O BUFFER #
00068 M01S00068.ssinit +++|
00069 M01S00069.ssinit +++| FCTBADR = LOC(BUF$FCT[1]); # *FCT* I/O BUFFER #
00070 M01S00070.ssinit +++| P<FCTBUF> = FCTBADR;
00071 M01S00071.ssinit +++|
00072 M01S00072.ssinit +++| MAPBADR = LOC(BUF$MAP[1]); # MAP BUFFER #
00073 M01S00073.ssinit +++| P<MAPBUF> = MAPBADR;
00074 M01S00074.ssinit +++|
00075 M01S00075.ssinit +++| TBUFADR = LOC(BUF$TEMP[1]); # TEMPORARY BUFFER #
00076 M01S00076.ssinit +++| P<TBUF> = TBUFADR;
00077 M01S00077.ssinit +++|
00078 M01S00078.ssinit +++| WBUFADR = LOC(BUF$WORK[1]); # WORKING BUFFER #
00079 M01S00079.ssinit +++| P<WBUF> = WBUFADR;
00080 M01S00080.ssinit +++|
00081 M01S00081.ssinit +++| OCTLEN = 8; # *OCT* LENGTH #
00082 M01S00082.ssinit +++| OCTADR = LOC(T$OCT[0]); # OPEN CATALOG TABLE #
00083 M01S00083.ssinit +++| P<OCT> = OCTADR;
00084 M01S00084.ssinit +++|
00085 M01S00085.ssinit +++| OMTADR = LOC(T$OMT[1]); # OPEN MAP TABLE #
00086 M01S00086.ssinit +++| P<OMT> = OMTADR;
00087 M01S00087.ssinit +++|
00088 M01S00088.ssinit +++| PRMBADR = LOC(T$PRM[0]); # PREAMBLE TABLE #
00089 M01S00089.ssinit +++| P<PRMBUF> = PRMBADR;
00090 M01S00090.ssinit +++|
00091 M01S00091.ssinit +++| RETURN;
00092 M01S00092.ssinit +++|
00093 M01S00093.ssinit +++| END # SSINIT #
00094 M01S00094.ssinit +++|
00095 M01S00095.ssinit +++| TERM