Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comtdfp +++| #
00002 M01S00002.comtdfp +++| CTEXT COMTDFP - *SSDEF* CONTROL STATEMENT PARAMETERS.
00003 M01S00003.comtdfp +++| #
00004 M01S00004.comtdfp +++| CONTROL NOLIST;
00005 M01S00005.comtdfp +++| CONTROL IFEQ LISTCON,1;
00006 M01S00006.comtdfp +++| CONTROL LIST;
00007 M01S00007.comtdfp +++| CONTROL FI;
00008 M01S00008.comtdfp +++|
00009 M01S00009.comtdfp +++| BEGIN # COMTDFP #
00010 M01S00010.comtdfp +++|
00011 M01S00011.comtdfp +++| #
00012 M01S00012.comtdfp +++|*** COMTDFP - ADDRESSES FOR THE PROCESSED *SSDEF* PARAMETERS.
00013 M01S00013.comtdfp +++|*
00014 M01S00014.comtdfp +++|* *COMTDFP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00015 M01S00015.comtdfp +++|* AREA TO HOLD THE *SSDEF* PROCESSED PARAMETERS.
00016 M01S00016.comtdfp +++|
00017 M01S00017.comtdfp +++|
00018 M01S00018.comtdfp +++|
00019 M01S00019.comtdfp +++|
00020 M01S00020.comtdfp +++|* ADDRESSES AND THE DEFAULT VALUES FOR THE *SSDEF*
00021 M01S00021.comtdfp +++|* CONTROL STATEMENT AND THE DIRECTIVE PARAMETERS.
00022 M01S00022.comtdfp +++|
00023 M01S00023.comtdfp +++| USE /TDFPCOM/
00024 M01S00024.comtdfp +++|
00025 M01S00025.comtdfp +++| FM DATA -1 FAMILY NAME
00026 M01S00026.comtdfp +++| SM DATA -1 SM NUMBER
00027 M01S00027.comtdfp +++| USE
00028 M01S00028.comtdfp +++|
00029 M01S00029.comtdfp +++|
00030 M01S00030.comtdfp +++|* FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
00031 M01S00031.comtdfp +++|* PARAMETERS. ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN
00032 M01S00032.comtdfp +++|* THIS ORDER.
00033 M01S00033.comtdfp +++| #
00034 M01S00034.comtdfp +++|#FM #DEF# FM+0 # FM$WORD #0#; #*FM*#
00035 M01S00035.comtdfp +++|#SM #DEF# FM+1 # SM$WORD #1#; #*SM*#
00036 M01S00036.comtdfp +++| #
00037 M01S00037.comtdfp +++| COL 12
00038 M01S00038.comtdfp +++| #
00039 M01S00039.comtdfp +++| DEF DFARGL #2#; # LENGTH OF ARGUMENT BUFFER #
00040 M01S00040.comtdfp +++|
00041 M01S00041.comtdfp +++| COMMON TDFPCOM;
00042 M01S00042.comtdfp +++|
00043 M01S00043.comtdfp +++| BEGIN # COMMON AREA TDFPCOM #
00044 M01S00044.comtdfp +++|
00045 M01S00045.comtdfp +++| #
00046 M01S00046.comtdfp +++|* ARRAY TO HOLD THE PROCESSED *SSDEF* PARAMETERS.
00047 M01S00047.comtdfp +++| #
00048 M01S00048.comtdfp +++|
00049 M01S00049.comtdfp +++| ARRAY DFARGUMENTS [0:0] P(DFARGL);
00050 M01S00050.comtdfp +++| BEGIN # ARRAY DFARGUMENTS #
00051 M01S00051.comtdfp +++| ITEM DARG$FM C(FM$WORD,00,07); # FAMILY NAME #
00052 M01S00052.comtdfp +++| ITEM DARG$IFM I(FM$WORD,00,60); # INTEGER NAME #
00053 M01S00053.comtdfp +++| ITEM DARG$SM C(SM$WORD,00,01); # SM NUMBER #
00054 M01S00054.comtdfp +++| ITEM DARG$ISM I(SM$WORD,00,60); # INTEGER SM #
00055 M01S00055.comtdfp +++| ITEM DARG$IRSM I(SM$WORD,00,06); # RANGE INTEGER #
00056 M01S00056.comtdfp +++| ITEM DARG$IRSMR I(SM$WORD,06,54); # *SM* OVERFLOW #
00057 M01S00057.comtdfp +++| END # ARRAY DFARGUMENT #
00058 M01S00058.comtdfp +++|
00059 M01S00059.comtdfp +++| END # COMMON AREA TDFPCOM #
00060 M01S00060.comtdfp +++|
00061 M01S00061.comtdfp +++| END # COMTDFP #
00062 M01S00062.comtdfp +++| #
00063 M01S00063.comtdfp +++| COL 30
00064 M01S00064.comtdfp +++| ENDX #
00065 M01S00065.comtdfp +++| CONTROL LIST;