User Tools

Site Tools


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

Common COMXEXP

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comxexp +++|                                                                      #
00002  M00S00002.comxexp +++|          CTEXT  COMXEXP - *SSEXEC* CONTROL STATEMENT PARAMETERS.
00003  M00S00003.comxexp +++|                                                                      #
00004  M00S00004.comxexp +++|                                               CONTROL NOLIST;
00005  M00S00005.comxexp +++|                                               CONTROL IFEQ LISTCON,1;
00006  M00S00006.comxexp +++|                                               CONTROL LIST;
00007  M00S00007.comxexp +++|                                               CONTROL FI;
00008  M00S00008.comxexp +++|
00009  M00S00009.comxexp +++|                             BEGIN  # COMXEXP #
00010  M00S00010.comxexp +++|
00011  M00S00011.comxexp +++|                                                                      #
00012  M00S00012.comxexp +++|***       COMXEXP - ADDRESSES FOR THE PROCESSED *SSEXEC* PARAMETERS.
00013  M00S00013.comxexp +++|*
00014  M00S00014.comxexp +++|*         *COMXEXP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00015  M00S00015.comxexp +++|*         AREA TO HOLD THE *SSEXEC* PROCESSED PARAMETERS.
00016  M00S00016.comxexp +++|
00017  M00S00017.comxexp +++|
00018  M00S00018.comxexp +++|
00019  M00S00019.comxexp +++|
00020  M00S00020.comxexp +++|*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSEXEC*
00021  M00S00021.comxexp +++|*         PARAMETERS.
00022  M00S00022.comxexp +++|
00023  M00S00023.comxexp +++|          USE    /XEXPCOM/
00024  M00S00024.comxexp +++|
00025  M00S00025.comxexp +++| Q        DATA   -1          TUNING PARAMETER
00026  M00S00026.comxexp +++| TM       DATA   -1          TRACE MODE PARAMETER
00027  M00S00027.comxexp +++| S        DATA   -1          SET INDEX PARAMETER
00028  M00S00028.comxexp +++|          USE
00029  M00S00029.comxexp +++|
00030  M00S00030.comxexp +++|
00031  M00S00031.comxexp +++|*         FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
00032  M00S00032.comxexp +++|*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN
00033  M00S00033.comxexp +++|*         THIS ORDER.
00034  M00S00034.comxexp +++|
00035  M00S00035.comxexp +++|                                                                      #
00036  M00S00036.comxexp +++|#Q        #DEF#  Q+0         # Q$WORD  #0#;  # Q #
00037  M00S00037.comxexp +++|#TM       #DEF#  Q+1         # TM$WORD #1#;  # TM #
00038  M00S00038.comxexp +++|#S        #DEF#  Q+2         # S$WORD  #2#;  # S #
00039  M00S00039.comxexp +++|
00040  M00S00040.comxexp +++|                                                                      #
00041  M00S00041.comxexp +++|          COL    12
00042  M00S00042.comxexp +++|                                                                      #
00043  M00S00043.comxexp +++|
00044  M00S00044.comxexp +++|           DEF ARGL     #3#; # LENGTH OF ARGUMENT LIST #
00045  M00S00045.comxexp +++|
00046  M00S00046.comxexp +++|           COMMON XEXPCOM;
00047  M00S00047.comxexp +++|
00048  M00S00048.comxexp +++|             BEGIN  # XEXPCOM #
00049  M00S00049.comxexp +++|
00050  M00S00050.comxexp +++|                                                                      #
00051  M00S00051.comxexp +++|*         ARRAY TO HOLD THE PROCESSED PARAMETERS.
00052  M00S00052.comxexp +++|                                                                      #
00053  M00S00053.comxexp +++|
00054  M00S00054.comxexp +++|             ARRAY ARGUMENTS[0:0] P(ARGL);
00055  M00S00055.comxexp +++|               BEGIN  # ARRAY ARGUMENTS #
00056  M00S00056.comxexp +++|               ITEM ARG$QC     C(Q$WORD,00,10);   # TUNING #
00057  M00S00057.comxexp +++|               ITEM ARG$T      I(TM$WORD,00,60);  # TRACE MODE #
00058  M00S00058.comxexp +++|               ITEM ARG$SC     I(S$WORD,00,60);   # INDEX #
00059  M00S00059.comxexp +++|               END  # ARRAY ARGUMENTS #
00060  M00S00060.comxexp +++|
00061  M00S00061.comxexp +++|             END  # XEXPCOM #
00062  M00S00062.comxexp +++|
00063  M00S00063.comxexp +++|           END  # COMXEXP #
00064  M00S00064.comxexp +++|                                                                      #
00065  M00S00065.comxexp +++|          COL    30
00066  M00S00066.comxexp +++|          ENDX                                                        #
00067  M00S00067.comxexp +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comxexp.txt ยท Last modified: by 127.0.0.1