Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ssinit  ---|PROC SSINIT;
00002  M00S00002.ssinit  ---|# TITLE SSINIT - OPEN CATALOG AND SMMAP INITIALIZER. #
00003  M00S00003.ssinit  ---|
00004  M00S00004.ssinit  ---|      BEGIN  # SSINIT #
00005  M00S00005.ssinit  ---|
00006  M00S00006.ssinit  ---|#
00007  M00S00007.ssinit  ---|**    SSINIT - OPEN CATALOG AND SMMAP INITIALIZER.
00008  M00S00008.ssinit  ---|*
00009  M00S00009.ssinit  ---|*     PROC SSINIT.
00010  M00S00010.ssinit  ---|*
00011  M00S00011.ssinit  ---|*     EXIT   BUFFER AND TABLE POINTERS SET UP.
00012  M00S00012.ssinit  ---|*
00013  M00S00013.ssinit  ---|*     NOTES  *SSINIT* IS USED BY THE *MSS* UTILITIES
00014  M00S00014.ssinit  ---|*            TO SET UP BUFFER AND TABLE ADDRESSES FOR
00015  M00S00015.ssinit  ---|*            THE CATALOG AND SMMAP ACCESS ROUTINES.
00016  M00S00016.ssinit  ---|*            IT ALLOWS FOR 8 CATALOGS AND 8 SMMAPS
00017  M00S00017.ssinit  ---|*            TO BE OPEN AT A TIME.
00018  M00S00018.ssinit  ---|#
00019  M00S00019.ssinit  ---|
00020  M00S00020.ssinit  ---|      DEF LISTCON #0#;               # DO NOT LIST COMDECKS #
00021  M00S00021.ssinit  ---|*CALL COMBFAS
00022  M00S00022.ssinit  ---|*CALL COMBCMD
00023  M00S00023.ssinit  ---|
00024  M00S00024.ssinit  ---|#
00025  M00S00025.ssinit  ---|*     FETS, BUFFERS AND TABLES.
00026  M00S00026.ssinit  ---|#
00027  M00S00027.ssinit  ---|
00028  M00S00028.ssinit  ---|      ARRAY FETS [0:3] S(RFETL);;
00029  M00S00029.ssinit  ---|      ARRAY BUF$AST [1:ABUFLEN]  P(1);;
00030  M00S00030.ssinit  ---|      ARRAY BUF$FCT[1:FCTBL]  P(1);;
00031  M00S00031.ssinit  ---|      ARRAY BUF$MAP [1:MAPBUFL] P(1);;
00032  M00S00032.ssinit  ---|      ARRAY BUF$TEMP [1:FCTBL];;
00033  M00S00033.ssinit  ---|      ARRAY BUF$WORK [1:WBUFL] P(1);;
00034  M00S00034.ssinit  ---|
00035  M00S00035.ssinit  ---|#
00036  M00S00036.ssinit  ---|*     OPEN CATALOG TABLE.
00037  M00S00037.ssinit  ---|#
00038  M00S00038.ssinit  ---|
00039  M00S00039.ssinit  ---|      ARRAY T$OCT [0:7] P(OCTENTL);;
00040  M00S00040.ssinit  ---|
00041  M00S00041.ssinit  ---|#
00042  M00S00042.ssinit  ---|*     OPEN SMMAP TABLE.
00043  M00S00043.ssinit  ---|#
00044  M00S00044.ssinit  ---|
00045  M00S00045.ssinit  ---|      ARRAY T$OMT [1:MAXSM] P(OMTENTL);;
00046  M00S00046.ssinit  ---|
00047  M00S00047.ssinit  ---|#
00048  M00S00048.ssinit  ---|*     PREAMBLE TABLE.
00049  M00S00049.ssinit  ---|#
00050  M00S00050.ssinit  ---|
00051  M00S00051.ssinit  ---|      ARRAY T$PRM [0:7] P(14);;
00052  M00S00052.ssinit  ---|
00053  M00S00053.ssinit  ---|CONTROL EJECT;
00054  M00S00054.ssinit  ---|
00055  M00S00055.ssinit  ---|#
00056  M00S00056.ssinit  ---|*     SET UP BUFFER AND TABLE ADDRESSES.
00057  M00S00057.ssinit  ---|#
00058  M00S00058.ssinit  ---|
00059  M00S00059.ssinit  ---|      FCTFADR = LOC(FETS[0]);        # *FCT* FET #
00060  M00S00060.ssinit  ---|      P<FCTFET> = FCTFADR;
00061  M00S00061.ssinit  ---|
00062  M00S00062.ssinit  ---|      MAPFADR = LOC(FETS[1]);        # MAP FET #
00063  M00S00063.ssinit  ---|      P<MAPFET> = MAPFADR;
00064  M00S00064.ssinit  ---|
00065  M00S00065.ssinit  ---|      TFETADR = LOC(FETS[2]);        # TEMPORARY FET #
00066  M00S00066.ssinit  ---|      P<TFET> = TFETADR;
00067  M00S00067.ssinit  ---|      ASTBADR = LOC(BUF$AST);        # *AST* I/O BUFFER #
00068  M00S00068.ssinit  ---|
00069  M00S00069.ssinit  ---|      FCTBADR = LOC(BUF$FCT[1]);     # *FCT* I/O BUFFER #
00070  M00S00070.ssinit  ---|      P<FCTBUF> = FCTBADR;
00071  M00S00071.ssinit  ---|
00072  M00S00072.ssinit  ---|      MAPBADR = LOC(BUF$MAP[1]);     # MAP BUFFER #
00073  M00S00073.ssinit  ---|      P<MAPBUF> = MAPBADR;
00074  M00S00074.ssinit  ---|
00075  M00S00075.ssinit  ---|      TBUFADR = LOC(BUF$TEMP[1]);    # TEMPORARY BUFFER #
00076  M00S00076.ssinit  ---|      P<TBUF> = TBUFADR;
00077  M00S00077.ssinit  ---|
00078  M00S00078.ssinit  ---|      WBUFADR = LOC(BUF$WORK[1]);    # WORKING BUFFER #
00079  M00S00079.ssinit  ---|      P<WBUF> = WBUFADR;
00080  M00S00080.ssinit  ---|
00081  M00S00081.ssinit  ---|      OCTLEN = 8;                    # *OCT* LENGTH #
00082  M00S00082.ssinit  ---|      OCTADR = LOC(T$OCT[0]);        # OPEN CATALOG TABLE #
00083  M00S00083.ssinit  ---|      P<OCT> = OCTADR;
00084  M00S00084.ssinit  ---|
00085  M00S00085.ssinit  ---|      OMTADR = LOC(T$OMT[1]);        # OPEN MAP TABLE #
00086  M00S00086.ssinit  ---|      P<OMT> = OMTADR;
00087  M00S00087.ssinit  ---|
00088  M00S00088.ssinit  ---|      PRMBADR = LOC(T$PRM[0]);       # PREAMBLE TABLE #
00089  M00S00089.ssinit  ---|      P<PRMBUF> = PRMBADR;
00090  M00S00090.ssinit  ---|
00091  M00S00091.ssinit  ---|      RETURN;
00092  M00S00092.ssinit  ---|
00093  M00S00093.ssinit  ---|      END  # SSINIT #
00094  M00S00094.ssinit  ---|
00095  M00S00095.ssinit  ---|    TERM