Deck SSINIT

0 Modifications
Source

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