cdc:nos2.source:opl.opl871:deck:ssinit
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
cdc/nos2.source/opl.opl871/deck/ssinit.txt ยท Last modified: by 127.0.0.1