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