User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comtlab

Common COMTLAB

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtlab +++|
00002  M01S00002.comtlab +++|#     COMTLAB - COMMON DEFINITIONS FOR *SSLABEL* PROCS.               #
00003  M01S00003.comtlab +++|                                               CONTROL NOLIST;
00004  M01S00004.comtlab +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtlab +++|                                               CONTROL LIST;
00006  M01S00006.comtlab +++|                                               CONTROL FI;
00007  M01S00007.comtlab +++|      BEGIN  # COMTLAB #
00008  M01S00008.comtlab +++|
00009  M01S00009.comtlab +++|#
00010  M01S00010.comtlab +++|***   COMTLAB - COMMON DEFINITIONS FOR *SSLABEL* PROCS.
00011  M01S00011.comtlab +++|*
00012  M01S00012.comtlab +++|*     COMTLAB CONTAINS THE DEFINITIONS FOR ALL THE ITEMS, ARRAYS,
00013  M01S00013.comtlab +++|*     STATUS LISTS, FETS, BUFFERS AND COMMON AREAS COMMON TO ALL
00014  M01S00014.comtlab +++|*     THE *SSLABEL* PROCS.
00015  M01S00015.comtlab +++|#
00016  M01S00016.comtlab +++|
00017  M01S00017.comtlab +++|
00018  M01S00018.comtlab +++|      DEF BUFL       #O"1101"#;      # *CIO* BUFFER LENGTH #
00019  M01S00019.comtlab +++|      DEF FCTBLN     #1040#;         # *FCT* BUFFER LENGTH #
00020  M01S00020.comtlab +++|      DEF MAXNUM     #100#;          # MAXIMUM CUBE LOCATIONS HANDLED #
00021  M01S00021.comtlab +++|      DEF SCR        #"SCR"#;        # SCRATCH FILE NAME #
00022  M01S00022.comtlab +++|
00023  M01S00023.comtlab +++|
00024  M01S00024.comtlab +++|#
00025  M01S00025.comtlab +++|*     CARTRIDGE MANUFACTURER TYPE.
00026  M01S00026.comtlab +++|#
00027  M01S00027.comtlab +++|
00028  M01S00028.comtlab +++|      DEF IBMCART    #"A-"#;         # CARTRIDGE TYPE IS IBM #
00029  M01S00029.comtlab +++|      DEF OTHCART    #"B-"#;         # CARTRIDGE TYPE IS NOT IBM #
00030  M01S00030.comtlab +++|
00031  M01S00031.comtlab +++|#
00032  M01S00032.comtlab +++|*     STATUS LIST FOR THE TYPE OF CARTRIDGE LABEL.
00033  M01S00033.comtlab +++|#
00034  M01S00034.comtlab +++|
00035  M01S00035.comtlab +++|      STATUS LABTYPE                 # TYPE OF LABEL #
00036  M01S00036.comtlab +++|        MAN$LAB,                     # MANUFACTURERS LABEL #
00037  M01S00037.comtlab +++|        FAM$LAB,                     # FAMILY LABEL #
00038  M01S00038.comtlab +++|        SCR$LAB,                     # SCRATCH LABEL #
00039  M01S00039.comtlab +++|        UNR$LAB,                     # UNRECOGNIZABLE LABEL #
00040  M01S00040.comtlab +++|        LSTLABTYPE;                  # END OF STATUS LIST #
00041  M01S00041.comtlab +++|
00042  M01S00042.comtlab +++|#
00043  M01S00043.comtlab +++|*     STATUS LIST FOR THE TYPE OF SEARCH TO BE
00044  M01S00044.comtlab +++|*     CONDUCTED THROUGH SMMAP.
00045  M01S00045.comtlab +++|#
00046  M01S00046.comtlab +++|
00047  M01S00047.comtlab +++|      STATUS SERCH$TYPE              # TYPE OF SEARCH THROUGH SMMAP #
00048  M01S00048.comtlab +++|        LST$UNAS,                    # FOR LAST UNASSIGNED CUBE #
00049  M01S00049.comtlab +++|        LOC,                         # FOR A LOCATION #
00050  M01S00050.comtlab +++|        ASSIGN,                      # FOR A SPECIFIC CARTRIDGE OR CUBE
00051  M01S00051.comtlab +++|                                       ASSIGNED TO FAMILY OR POOL #
00052  M01S00052.comtlab +++|        CSN$MATCH,                   # FOR A MATCHING CSN #
00053  M01S00053.comtlab +++|        CART$POOL,                   # FOR A CARTRIDGE IN THE POOL #
00054  M01S00054.comtlab +++|        ASGN$FAM,                    # FOR ANY ENTRY ASSIGNED TO A
00055  M01S00055.comtlab +++|                                       GIVEN FAMILY #
00056  M01S00056.comtlab +++|        LST$SERCH;                   # END OF STATUS LIST #
00057  M01S00057.comtlab +++|
00058  M01S00058.comtlab +++|#
00059  M01S00059.comtlab +++|*     ARRAY TO HOLD THE DIRECTIVE NAMES.  THE ORDER
00060  M01S00060.comtlab +++|*     OF THE DIRECTIVE NAMES IS THE SAME AS THAT OF
00061  M01S00061.comtlab +++|*     THE SWITCH SET UP IN *LBMAIN*, TO PROCESS THE
00062  M01S00062.comtlab +++|*     DIRECTIVES.
00063  M01S00063.comtlab +++|#
00064  M01S00064.comtlab +++|
00065  M01S00065.comtlab +++|      ARRAY DIR$NAME [0:9] S(1);
00066  M01S00066.comtlab +++|        BEGIN
00067  M01S00067.comtlab +++|        ITEM DIR$NM     C(00,00,02) = [  ##
00068  M01S00068.comtlab +++|        "AB",                        # ADDCUBE #
00069  M01S00069.comtlab +++|        "AS",                        # ADDSM #
00070  M01S00070.comtlab +++|        "AM",                        # ADDMSC #
00071  M01S00071.comtlab +++|        "FX",                        # FIXVSN #
00072  M01S00072.comtlab +++|        "FC",                        # FREEMSC #
00073  M01S00073.comtlab +++|        "IB",                        # FLAGMSC #
00074  M01S00074.comtlab +++|        "RS",                        # RMVSM #
00075  M01S00075.comtlab +++|        "RB",                        # RMVCUBE #
00076  M01S00076.comtlab +++|        "RM",                        # RMVMSC #
00077  M01S00077.comtlab +++|        "RC"];                       # RSTRMSC #
00078  M01S00078.comtlab +++|        END
00079  M01S00079.comtlab +++|
00080  M01S00080.comtlab +++|#
00081  M01S00081.comtlab +++|*     ARRAY TO HOLD ANY FATAL ERROR
00082  M01S00082.comtlab +++|*     MESSAGES FROM *SSLABEL*.
00083  M01S00083.comtlab +++|#
00084  M01S00084.comtlab +++|
00085  M01S00085.comtlab +++|      ARRAY LBMSG [0:0] P(4);
00086  M01S00086.comtlab +++|        BEGIN
00087  M01S00087.comtlab +++|        ITEM LBMSG$LN   C(00,00,39);  # MESSAGE LINE #
00088  M01S00088.comtlab +++|        ITEM LBMSG$ABN  C(00,00,19) = [" SSLABEL ABNORMAL, "];
00089  M01S00089.comtlab +++|        ITEM LBMSG$PROC C(01,54,20);  # PROC NAME #
00090  M01S00090.comtlab +++|        ITEM LBMSG$TERM U(03,48,12) = [0];  # ZERO TERMINATOR #
00091  M01S00091.comtlab +++|        END
00092  M01S00092.comtlab +++|
00093  M01S00093.comtlab +++|#
00094  M01S00094.comtlab +++|*     ARRAY TO HOLD THE MESSAGES TO BE DISPLAYED
00095  M01S00095.comtlab +++|*     IN THE DAYFILE AND AT THE CONSOLE.
00096  M01S00096.comtlab +++|#
00097  M01S00097.comtlab +++|
00098  M01S00098.comtlab +++|      ARRAY LBMSG$BUF [0:0] P(4);    # MESSAGE BUFFER #
00099  M01S00099.comtlab +++|        BEGIN
00100  M01S00100.comtlab +++|        ITEM LBMSG$LINE C(00,00,38);  # MESSAGE LINE #
00101  M01S00101.comtlab +++|        ITEM LBMSG$CSN  C(02,12,06);  # CSN #
00102  M01S00102.comtlab +++|        ITEM LBMSG$SMID C(00,30,01);  # SM ID #
00103  M01S00103.comtlab +++|        ITEM LBMSG$SLOT U(02,00,06);  # I/O DRAWER SLOT NUMBER #
00104  M01S00104.comtlab +++|        ITEM LBMSG$ZRO  U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00105  M01S00105.comtlab +++|        END
00106  M01S00106.comtlab +++|
00107  M01S00107.comtlab +++|#
00108  M01S00108.comtlab +++|*     COMMON AREA USED BY *SSLABEL* PROCS.
00109  M01S00109.comtlab +++|#
00110  M01S00110.comtlab +++|
00111  M01S00111.comtlab +++|      COMMON TLABCOM;
00112  M01S00112.comtlab +++|
00113  M01S00113.comtlab +++|        BEGIN  # TLABCOM #
00114  M01S00114.comtlab +++|                                     # $$ #
00115  M01S00115.comtlab +++|        ITEM $$TLAB$$   C(20) = "****** COMTLAB *****";
00116  M01S00116.comtlab +++|                                     # $$ #
00117  M01S00117.comtlab +++|        ITEM ADDRSNS    I;           # ADDRESS OF BUFFER TO HOLD THE
00118  M01S00118.comtlab +++|                                       DRAWER STATUS TABLE #
00119  M01S00119.comtlab +++|        ITEM LB$BUFP    I;           # ADDRESS OF ARRAY *LBIN$BUF* #
00120  M01S00120.comtlab +++|        ITEM NEWLABP    I;           # ADDRESS OF *NEWLABEL* ARRAY #
00121  M01S00121.comtlab +++|        ITEM NUMDONE    I;           # CUBES OR CARTIDGES PROCESSED #
00122  M01S00122.comtlab +++|        ITEM OLDLABP    I;           # ADDRESS OF *OLDLABEL* ARRAY #
00123  M01S00123.comtlab +++|        ITEM PD$T       U;           # PACKED DATE AND TIME #
00124  M01S00124.comtlab +++|        ITEM REQID$LB   I;           # REQUESTOR ID #
00125  M01S00125.comtlab +++|        ITEM SSID$LB    I;           # SUBSYSTEM ID #
00126  M01S00126.comtlab +++|        ITEM DRD$NUM    I;           # DRD NUMBER #
00127  M01S00127.comtlab +++|
00128  M01S00128.comtlab +++|#
00129  M01S00129.comtlab +++|*     FET AND CIO BUFFER FOR READING THE
00130  M01S00130.comtlab +++|*     *INPUT* FILE.
00131  M01S00131.comtlab +++|#
00132  M01S00132.comtlab +++|
00133  M01S00133.comtlab +++|        ARRAY LBIN$FET [0:0] S(SFETL);;
00134  M01S00134.comtlab +++|        ARRAY LBIN$BUF [0:0]  S(FCTBLN);;
00135  M01S00135.comtlab +++|
00136  M01S00136.comtlab +++|#
00137  M01S00137.comtlab +++|*     FET AND CIO BUFFER USED FOR WRITING TO
00138  M01S00138.comtlab +++|*     THE INTERMEDIATE FILE *SCR*.
00139  M01S00139.comtlab +++|#
00140  M01S00140.comtlab +++|
00141  M01S00141.comtlab +++|        ARRAY SCR$FET [0:0] S(SFETL);;
00142  M01S00142.comtlab +++|        ARRAY SCR$BUF [0:0] S(BUFL);;
00143  M01S00143.comtlab +++|
00144  M01S00144.comtlab +++|#
00145  M01S00145.comtlab +++|*     ARRAY TO HOLD THE COORDINATE POSITIONS OF ALL THE CUBES
00146  M01S00146.comtlab +++|*     IN AN AREA SPECIFIED ON *ADDCUBE* AND *RMVCUBE* DIRECTIVE.
00147  M01S00147.comtlab +++|#
00148  M01S00148.comtlab +++|
00149  M01S00149.comtlab +++|        ARRAY YZCOORD [1:MAXNUM] P(1);
00150  M01S00150.comtlab +++|          BEGIN
00151  M01S00151.comtlab +++|          ITEM Y$COORD    U(00,00,30);  # Y COORDINATE #
00152  M01S00152.comtlab +++|          ITEM Z$COORD    U(00,30,30);  # Z COORDINATE #
00153  M01S00153.comtlab +++|          END
00154  M01S00154.comtlab +++|
00155  M01S00155.comtlab +++|        END  # TLABCOM #
00156  M01S00156.comtlab +++|
00157  M01S00157.comtlab +++|      END  # COMTLAB #
00158  M01S00158.comtlab +++|
00159  M01S00159.comtlab +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtlab.txt ยท Last modified: by 127.0.0.1