*COMDECK STPMACROS
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*       S T A T E   P R O G R A M   C O N T R O L   M A C R O S       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
* * * *   ---- STATPN ---- DEFINES NAME OF STATE-PROGRAM-POINTER-TABLE. 
* 
STATPN    MAC    TB 
          EQU    "TB"(*)
          ENT    "TB" 
          EMC 
* 
* * * *   ---- STATPT ---- DEFINES EACH STATE-POINTER-TABLE ENTRY.
* 
*         1ST PARAMETER IS THE NAME OF STATE-PROGRAM-POINTER-TABLE. 
*         2ND PARAMETER IS THE NAME OF INDEX INTO STATE-POINTER-TABLE 
*         3RD PARAMETER IS THE NAME OF THE STATE-PROGRAM, IF OMITTED, 
*         THE NAME OF THE STATE-PROGRAM IS ASSUMED TO BE THE SAME AS THE
*         INDEX-NAME PASSED WITH 2ND PARAMETER (NORMAL CASE). 
*         4TH PARAMETER CAN BE ENT/EXT, TO ENTER/REFERENCE PARM 2.
*         NOTE: ONLY 5 CHARACTERS OF PARAMETERS 2/3 ARE SIGNIFICANT.
* 
STATPT    MAC    TB,PT,PR,EX
          EQU    "PT"(*-"TB"+0) 
          ADC    "PT" 
          ORG    *-1
          IFC    "PR",EQ, 
          ADC    K"PT"K 
          EIF 
          IFC    "PR",NE, 
          ADC    K"PR"K 
          EIF 
          IFC    "EX",EQ,EXT
          EXT    K"PT"K 
          EIF 
          IFC    "EX",EQ,ENT
          ENT    K"PT"K 
          EIF 
          EMC 
* 
* * * *   ---- STATPR ---- DEFINES THE START OF A STATE-PROGRAM.
* 
*         1ST PARAMETER IS THE NAME OF THE STATE-PROGRAM. 
*         2ND PARAMETER (OPTIONAL) ALLOWS THE USER TO EQUATE THE
*         STATE-PROGRAM TO A PREVIOUSLY DEFINED STATE-PROGRAM (TWO OR 
*         MORE STATE-PROGRAM SHARING THE SAME CODE).
*         NOTE: ONLY 5 CHARACTERS OF PARAMETERS 1/2 ARE SIGNIFICANT.
* 
STATPR    MAC    PR,PE
          ADC    "PR" 
          ORG    *-1
          IFC    "PE",EQ, 
          EQU    K"PR"K(*)
          EIF 
          IFC    "PE",NE, 
          EQU    K"PR"K(K"PE"K) 
          EIF 
          EMC 
          EJT 
