*COMDECK FIXED                                                           FIXED
  
  #    THIS COMDECK IS FOR COMPASS OR SYMPL.
*      THIS COMDECK MUST FOLLOW:  
*         *CALL EQUIV        (COMPASS ONLY) 
*         *CALL M$           (COMPASS AND SYMPL)
*         *CALL STATUS       (COMPASS ONLY) 
  # 
  
  
          STATUS  FIXED 
               ,  REG1       # CURRENT VERB GTEXT ATOM                 #
               ,  REG2       # REFERENCE ATOM NUMBER 1                 #
               ,  REG3       # REFERENCE ATOM NUMBER 2                 #
               ,  REG4       # REFERENCE ATOM NUMBER 3                 #
               ,  REG5       # REFERENCE ATOM NUMBER 4                 #
               ,  REG6       # REFERENCE ATOM NUMBER 5                 #
               ,  REG7       # NEXT VERB GTEXT ATOM                    #
               ,  REG11      # USED AS TEMPORARY BY GCONDIT            #
               ,  REG12      # USED AS TEMPORARY BY GCONDIT            #
               ,  REGU1      # LOCAL SCRATCH IN GIO, GSM               #
               ,  REGU2      # LOCAL SCRATCH IN GSM                    #
               ,  REGU3      # LOCAL SCRATCH                           #
               ,  REGU4      # LOCAL SCRATCH                           #
               ,  REGU5      # LOCAL SCRATCH                           #
               ,  REGT1      # RESERVED FOR GARITH                     #
               ,  REGT2      # RESERVED FOR GARITH                     #
               ,  REGT3      # RESERVED FOR GARITH                     #
               ,  REGT4      # USED AS SAVE BY GSTRING                 #
               ,  REGT5      # USED AS TEMP BY GBRANCH                 #
               ,  REGT6      # RESERVED FOR GSUBSC                     #
               ,  REGT7      # RESERVED FOR GETSZVG                    #
               ,  REGT8      # RESERVED FOR GETSZVG                    #
               ,  REGT9      # RESERVED FOR CGMOVER                    #
               ,  REGT10     # RESERVED FOR CGMOVER                    #
               ,  REGT11     # RESERVED FOR CGMOVER                    #
               ,  REGT12     # RESERVED FOR GIO                        #
               ,  REGT13     # RESERVED FOR GIO                        #
               ,  REGT14     # RESERVED FOR GMOVER                     #
               ,  REGT15     # RESERVED FOR GMOVER                     #
               ,  REGT16     # RESERVED FOR GMOVSTO                    #
               ,  REGT17     # RESERVED FOR GMOVLOD                    #
               ,  REGT18     # RESERVED FOR                            #
               ,  REGT19     # RESERVED FOR GARITH                     #
               ,  REGT20     # RESERVED FOR GARITH                     #
               ,  REGMAX     # *** LAST DIRECT CELL ***                #
  
               ,  VREGB0     # V.R.N. FOR REGISTER B0                  #
               ,  VREGB1     # V.R.N. FOR REGISTER B1                  #
               ,  VREG1 
               ,  VREG2 
               ,  VREG3 
               ,  VREG4 
               ,  VREG5 
               ,  VREG6 
               ,  VREG7 
               ,  VREG8 
               ,  VREG9 
               ,  VREG10
               ,  VREG11
               ,  VREG12
               ,  VREG13
               ,  VREG14
               ,  VREG15
               ,  VREG16
               ,  VREG17
               ,  VREG18
               ,  VREG19
               ,  VREG20
               ,  VREG21               # RESERVED FOR GARITH           #
               ,  VREG22               # RESERVED FOR CONMULT          #
               ,  VREG23               # RESERVED FOR CONMULT          #
               ,  VREG24               # RESERVED FOR CONMULT          #
               ,  VREG25               # RESERVED FOR GSTRING          #
               ,  VREG26               # RESERVED FOR GSTRING          #
               ,  VREG27               # RESERVED FOR GSTRING          #
               ,  VREG28               # RESERVED FOR GSTRING          #
               ,  VREG29               # RESERVED FOR GSTRING          #
               ,  VREG30               # RESERVED FOR GSTRING          #
               ,  VREG31               # RESERVED FOR GSTRING          #
               ,  VREG32               # RESERVED FOR GSTRING          #
               ,  VREG33
               ,  VREG34
               ,  VREG35
               ,  VREG36     # RESERVED FOR GARITH                     #
               ,  VREG37
               ,  VREG38
               ,  VREG39
               ,  VREG40
               ,  VREG41
               ,  VREG42
               ,  VREG43
               ,  VREG44
               ,  VREG45
               ,  VREG46
               ,  VREG47
               ,  VREG48
               ,  VREG49
               ,  REGA       # PTR TO INPUT VERB             (TO REG1) #
               ,  REGB       # PTR TO INPUT PARAMETER 1      (TO REG2) #
               ,  REGC       # PTR TO INPUT PARAMETER 2      (TO REG3) #
               ,  REGD       # PTR TO INPUT PARAMETER 3      (TO REG3) #
               ,  REGE       # PTR TO INPUT PARAMETER 4      (TO REG4) #
               ,  REGF       # PTR TO INPUT PARAMETER 5      (TO REG5) #
               ,  REGG       # PTR TO NEXT VERB              (TO REG7) #
               ,  REGH       # SCRATCH                                 #
               ,  REGI       # GCONDIT                                 #
               ,  REGJ       # ARITH                                   #
               ,  REGK       # GCONDIT                                 #
               ,  REGL       # GCONDIT                                 #
               ,  REGM       # PARAMETER FOR GETSZVG SUBROUTINE        #
               ,  REGN
               ,  REGO
               ,  REGP
               ,  REGQ       # SCRATCH                                 #
               ,  REGR       # SCRATCH                                 #
               ,  REGS       # PARAMETER FOR SUBROUTINES               #
               ,  REGT       # PARAMETER FOR SUBROUTINES               #
               ,  REGU       # GMOVE                                   #
               ,  REGV       # GMOVE                                   #
               ,  REGW
               ,  REGX
               ,  REGY       # GSUBSC                                  #
               ,  REGZ       # GSUBSC                                  #
               ,  ADOFSET    # ADDRESS OFFSET FOR AN MOVES             #
               ,  BEFORADD   # LOCAL LABEL NUM FOR *BEFORE* BLOCK      #
               ,  BEFORCNT   # SIZE OF *BEFORE* USE BLOCK              #
               ,  BEGINREG   # SETREG PARAM FOR FIRST REF. REG         #
               ,  CPOINT     # ARITH -  COMPOSITE POINT                #
               ,  CSIGN      # ARITH - COMPOSITE SIGN                  #
               ,  CSIZE      # ARITH - COMPOSITE SIZE                  #
               ,  CURDNAT    # CURRENTLY AVAILABLE SCRATCH DNAT        #
               ,  CUROVL     # NO. OF CURRENT OVLY BEING GENERATED     #
               ,  CURGTEXT   # POINTER TO LAST REFERENCE REG           #
               ,  CURRCOL    # CURRENT GTEXT DOLUMN NUMBER             #
               ,  CURRLINE   # CURRENT GTEXT LINE NUMBER               #
               ,  DIVID      # ARITH DIVIDEND                          #
               ,  DIVIS      # ARITH DIVISOR                           #
               ,  FIRSTOP    # GSTRING - FIRST OPERAND FLAG            #
               ,  FLOCLAB    # GBRANCH - FIRST LOCAL LABEL FOR DECLS   #
               ,  FSTLABEL   # LABEL-REF OF PROGRAM ENTRY POINT        #
               ,  FSTUNST    #FAST UNSTRING FLAG                       #
               ,  GBRDCCT    # GBRANCH - COUNT OF I-O DECLARATIVES     #
               ,  GBRFLAB    # GBRANCH - FIRST LOCAL LABEL FOR I-O DEC #
               ,  GBR1       # GBRANCH - TO SAVE ACROSS CALLS          #
               ,  GBR2       # GBRANCH - TO SAVE ACROSS CALLS          #
               ,  HILOFLG    # SET IF LIT IS HIGH-VALUE OR LOW-VALUE   #
               ,  HOLDRES    #SIZE ERROR  GENERATE ENDL                #
               ,  INSPCNT    #INSPECT PACKET COUNT                     #
               ,  IORTNRG    # GIO - VREG NUMBER FOR RETURN FROM I-O OP#
               ,  JUSTFLG    # AN MOVES- JUSTIFIED FLAG                #
               ,  K0         # CONSTANT 0                              #
               ,  K1         # CONSTANT 1                              #
               ,  K10        # CONSTANT 10                             #
               ,  K20        # CONSTANT 20                             #
               ,  K60        # CONSTANT 60                             #
               ,  LABERR     # ARITH - ERROR LABEL NUMBER              #
               ,  LITFLG     # SET IF SOURCE IS A LITERAL              #
               ,  LSTLABEL   # LOCAL LABEL NUMBER FOR PROGRAM END      #
               ,  MOVESIZE   # GMOVE SIZE ERROR FLAG                   #
               ,  MOVETEMP   # SCRATCH FOR GMOVE                       #
               ,  NUMEROP    # GSTRING - NUMERIC OPERAND FUDGER        #
               ,  NXTSECT    # NEXT SECTION PNAT ORDINAL               #
               ,  OPCOUNT    # GSTRING - GINTO OR GSTOP COUNT          #
               ,  OPNDCNT    # GSTRING - PARAMETER OPERAND COUNT       #
               ,  PARMADDR   # GSTRING - PARAMETER LIST LABEL          #
               ,  PFTPTR     # PERFORM TIMES-  HOLD ORDINAL            #
               ,  PLSTPARA   # GBRANCH - LAST PARAGR PNAT PTR          #
               ,  PLSTSECT   # CBRANCH - LAST SECTION PNAT PTR         #
               ,  POOLFLG    # SET IF SOURCE IS A POOLED LITERAL       #
               ,  PTRVAL     # GSTRING - DEFAULT POINTER VALUE         #
               ,  P1         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P2         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P3         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P4         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P5         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P6         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P7         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P8         # PARAMETER CELL FOR SUBROUTINES          #
               ,  P9         # PARAMETER CELL FOR SUBROUTINES          #
               ,  QUOT       # ARITH- QUOTIENT                         #
               ,  RECBCP     # AN MOVES-  BCP OF RECEIVING FIELD       #
               ,  RECECP     # AN MOVES- BCP+SIZE OF RECEIVING FIELD   #
               ,  RECOFST    # CMU MOVES-  RECEIVING FIELD OFFSET      #
               ,  RECSIZE    # AN MOVEX-  SIZE OF RECEIVING FIELD      #
               ,  RECSUBS    # RECEIVING SUBSCR FLAG FOR MOVES         #
               ,  REM        # ARITH - DIVIDE REMAINDER                #
               ,  RND        # ARITH - ROUND FLAG                      #
               ,  SAVEDCT    # GBRANCH - SAVED COUNT OF I-O DECL       #
               ,  SAVLIT     # GARITH-  LITERAL OPERAND                #
               ,  SAVSUB     # GSUBSC                                  #
               ,  SEGPROG    #COMPILE AS SEGMENTED PROGRAM             #
               ,  SENDBCP    # AN MOVES-  BCP OF SOURCE FIELD          #
               ,  SENDECP    # AN MOVES- BCP + SIZE OF SOURCE FIELD    #
               ,  SENDSIZE   # AN MOVES-  SIZE OF SOURCE FIELD         #
               ,  SENDSUBS   # SOURCE SUBSCR FLAG FOR MOVES            #
               ,  SIZE       # SIZE ERROR FLAG FOR ARITHS              #
               ,  SIZEDIFF   # AN MOVES- SIZE SOURCE - SIZE RECEIVING  #
               ,  SIZELABL   #                                         #
               ,  SIZESW     # SET ON BY GT-SIZE-ERROR VERB            #
               ,  SKIPFLAG   #STRING,UNSTRING SKIP GTEXT               #
               ,  SMSAV1     # SORT/MERGE -  LOCAL LABEL NUMBER        #
               ,  SMSAV2     # SORT/MERGE -  LOCAL LABEL NUMBER        #
               ,  SMSAV3     # SORT/MERGE -  LOCAL LABEL NUMBER        #
               ,  SMSAV4     # SORT/MERGE - 0 IF SORT, 1 IF MERGE      #
               ,  STRINGSV   # GSTRING - POINTER TO STRING VERB        #
               ,  STRNGPTR   # SETREG - CURRENT GTEXT STRING POINTER   #
               ,  SUBTR      # ARITH -  SUBTRACT FLAG                  #
               ,  SZRLABL    # GARITH - SIZE ERROR LABEL               #
               ,  TYPESAVE   # GSTRING - SAVE FOR PARAM TYPE           #
               ,  T1         # LOCAL TEMPORARY                         #
               ,  T2         # LOCAL TEMPORARY                         #
               ,  T3         # LOCAL TEMPORARY                         #
               ,  T4         # LOCAL TEMPORARY                         #
               ,  T5         # LOCAL TEMPORARY                         #
               ,  T6         # LOCAL TEMPORARY                         #
               ,  T7         # LOCAL TEMPORARY                         #
               ,  T8         # LOCAL TEMPORARY                         #
               ,  T9         # LOCAL TEMPORARY                         #
               ,  T10        # LOCAL TEMPORARY                         #
               ,  T11        # LOCAL TEMPORARY                         #
               ,  T12        # LOCAL TEMPORARY                         #
               ,  T13        # LOCAL TEMPORARY                         #
               ,  T14        # LOCAL TEMPORARY                         #
               ,  T15        # LOCAL TEMPORARY                         #
               ,  T16        # LOCAL TEMPORARY                         #
               ,  T17        # LOCAL TEMPORARY                         #
               ,  T18        # LOCAL TEMPORARY                         #
               ,  T19        # LOCAL TEMPORARY                         #
               ,  T20        # LOCAL TEMPORARY                         #
               ,  USEBEFOR   # USE BLOCK NUMBER FOR *BEFORE* BLOCK     #
               ,  USECDCS    # USE BLOCK FOR CDCS INTERFACE PARAMETERS #
               ,  USECMU     # USE BLOCK NUMBER FOR CMU BLOCK          #
               ,  USECODE    # USE BLOCK NUMBER FOR CODE BLOCK         #
               ,  USEPARAM   # USE BLOCK NUMBER FOR PARAM BLOCK        #
               ,  USEPILST   # USE BLOCK FOR PARAMETER INSERTION LIST  #
               ,  USESGJMP   # SEGMENTATION JUMP TABLE USE BLOCK       #
               ,  USESM      # USE BLOCK NUMBER FOR S/M MACRO EXPANSION#
               ,  USESSTMP   # USE BLOCK FOR SEC. STORAGE TEMP BLOCK   #
               ,  VERBDESC   # VERB DESCRIPTION                        #
               ,  VERBPTR    # SETREG - CURRENT GTEXT VERB POINTER     #
               ,  USEPRFM    # USE BLOCK FOR PERFORM TEMPS, EXITX      #
               ,  USESGIX    #USE BLOCK FOR SEGMENTATION INDICES       #
               ,  USEIDBG    # USE BLOCK FOR PARAGRAPH NAMES FOR CID   #
              ,  LSTLNUM     # LAST LINE NUMBER FORCIID DBUG.LN CALLS  #
               ;  #M$FIXED# 
  
          DEF  #INSTREGA# 
                INSTREGA   #REGU# ; 
          DEF  #INSTREGB# 
                INSTREGB   #REGV# ; 
          DEF  #INSTREGC# 
                INSTREGC   #REGW# ; 
          DEF  #INSTREGD# 
                INSTREGD   #REGX# ; 
  
