Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comtusp +++| #
00002 M00S00002.comtusp +++| CTEXT COMTUSP - *SSUSE* CONTROL STATEMENT PARAMETERS.
00003 M00S00003.comtusp +++| #
00004 M00S00004.comtusp +++| CONTROL NOLIST;
00005 M00S00005.comtusp +++| CONTROL IFEQ LISTCON,1;
00006 M00S00006.comtusp +++| CONTROL LIST;
00007 M00S00007.comtusp +++| CONTROL FI;
00008 M00S00008.comtusp +++| BEGIN # COMTUSP #
00009 M00S00009.comtusp +++|
00010 M00S00010.comtusp +++| #
00011 M00S00011.comtusp +++|*** COMTUSP - ADDRESSES FOR PROCESSED *SSUSE* PARAMETERS.
00012 M00S00012.comtusp +++|*
00013 M00S00013.comtusp +++|* *COMTUSP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00014 M00S00014.comtusp +++|* AREA TO HOLD THE *SSUSE* PROCESSED PARAMETERS.
00015 M00S00015.comtusp +++|
00016 M00S00016.comtusp +++|
00017 M00S00017.comtusp +++|
00018 M00S00018.comtusp +++|
00019 M00S00019.comtusp +++|* ADDRESSES AND DEFAULT PARAMETERS FOR THE *SSUSE* CONTROL
00020 M00S00020.comtusp +++|* STATEMENT PARAMETERS.
00021 M00S00021.comtusp +++|
00022 M00S00022.comtusp +++| USE /TUSPCOM/
00023 M00S00023.comtusp +++| ##$$##
00024 M00S00024.comtusp +++| OP DATA 0 REPORT OPTION
00025 M00S00025.comtusp +++| FM DATA 0 FAMILY NAME
00026 M00S00026.comtusp +++| SB DATA 0L01234567 SELECTED SUBFAMILIES
00027 M00S00027.comtusp +++| SM DATA 1HA SM-ID
00028 M00S00028.comtusp +++| L DATA 0LOUTPUT OUTPUT FILE
00029 M00S00029.comtusp +++| CN DATA 0 CSN OF SPECIFIC CARTRIDGE
00030 M00S00030.comtusp +++| CM DATA 2LA CARTRIDGE MANUFACTURER
00031 M00S00031.comtusp +++| USE
00032 M00S00032.comtusp +++|
00033 M00S00033.comtusp +++|* RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
00034 M00S00034.comtusp +++|* ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE FOLLOWING
00035 M00S00035.comtusp +++|* ORDER. *OP* IS CONSIDERED AS WORD *0* FOR *SYMPL*
00036 M00S00036.comtusp +++|* DECLARATIONS.
00037 M00S00037.comtusp +++| #
00038 M00S00038.comtusp +++| # WORD POSITIONS FOR #
00039 M00S00039.comtusp +++|#OP #DEF# OP+0 # OP$US #0#; # *OP* #
00040 M00S00040.comtusp +++|#FM #DEF# OP+1 # FM$US #1#; # *FM* #
00041 M00S00041.comtusp +++|#SB #DEF# OP+2 # SB$US #2#; # *SB* #
00042 M00S00042.comtusp +++|#SM #DEF# OP+3 # SM$US #3#; # *SM* #
00043 M00S00043.comtusp +++|#L #DEF# OP+4 # L$US #4#; # *L* #
00044 M00S00044.comtusp +++|#CN #DEF# OP+5 # CN$US #5#; # *CN* #
00045 M00S00045.comtusp +++|#CM #DEF# OP+6 # CM$US #6#; # *CM* #
00046 M00S00046.comtusp +++|
00047 M00S00047.comtusp +++| #
00048 M00S00048.comtusp +++| COL 12
00049 M00S00049.comtusp +++| #
00050 M00S00050.comtusp +++|
00051 M00S00051.comtusp +++| COMMON TUSPCOM;
00052 M00S00052.comtusp +++|
00053 M00S00053.comtusp +++| BEGIN # TUSPCOM #
00054 M00S00054.comtusp +++|
00055 M00S00055.comtusp +++| #
00056 M00S00056.comtusp +++|* ARRAY TO ACCESS THE PROCESSED *SSUSE* PARAMETERS.
00057 M00S00057.comtusp +++| #
00058 M00S00058.comtusp +++|
00059 M00S00059.comtusp +++| ARRAY USARG [0:0] P(7);
00060 M00S00060.comtusp +++| BEGIN
00061 M00S00061.comtusp +++| ITEM USARG$OP C(OP$US,00,10); # REPORT OPTION #
00062 M00S00062.comtusp +++| ITEM USARG$FM C(FM$US,00,07); # FAMILY NAME #
00063 M00S00063.comtusp +++| ITEM USARG$SB U(SB$US,00,60); # SUBFAMILY #
00064 M00S00064.comtusp +++| ITEM USARG$SM C(SM$US,00,08); # SM-ID #
00065 M00S00065.comtusp +++| ITEM USARG$LZ U(L$US,00,60); # REFERENCE TO L$US #
00066 M00S00066.comtusp +++| ITEM USARG$L C(L$US,00,07); # OUTPUT FILE NAME #
00067 M00S00067.comtusp +++| ITEM USARG$CN C(CN$US,00,08); # SPECIFIC CSN #
00068 M00S00068.comtusp +++| ITEM USARG$CM C(CM$US,00,02); # CART. MANUFACTURER #
00069 M00S00069.comtusp +++| END
00070 M00S00070.comtusp +++|
00071 M00S00071.comtusp +++| END # TUSPCOM #
00072 M00S00072.comtusp +++|
00073 M00S00073.comtusp +++| END # COMTUSP #
00074 M00S00074.comtusp +++|
00075 M00S00075.comtusp +++| #
00076 M00S00076.comtusp +++| COL 30
00077 M00S00077.comtusp +++| ENDX #
00078 M00S00078.comtusp +++| CONTROL LIST;