*COMDECK     COMCODE    - FIXED EXECUTABLE CODE SEQUENCES.
          LIST   F,X
          LIST   G
          SST 
          TITLE  CODE - FIXED EXECUTABLE CODE SEQUENCES.
          COMMENT  FIXED EXECUTABLE CODE SEQUENCES. 
 CODE     SPACE  4,8
**        CODE  -  FIXED EXECUTABLE CODE SEQUENCES. 
* 
*         R. H. GOODELL.     76/06/26.
* 
*         *CODE* IS A TABLE CONTAINING INVARIANT SEQUENCES OF 
*         EXECUTABLE MACHINE INSTRUCTIONS, ALONG WITH A VECTOR
*         OF POINTERS TO THE SEQUENCES FOR CONVENIENCE OF SYMPL 
*         ADDRESSING.  SOME SEQUENCES ARE IN *CODE* BECAUSE THEY
*         ARE GENERATED BY COMPASS SYSTEM MACROS (E.G., RECORD
*         MANAGER FETCH AND STORE MACROS) AND CANNOT BE EXPRESSED 
*         SAFELY IN SYMPL.  FOR SYMPL ROUTINES, A CODE SEQUENCE 
*         MAY BE DECLARED AS -
*                      XREF ITEM C$NAME ; 
*         AND A SEQUENCE MAY BE ISSUED BY - 
*                      ISSUE (C$NAME, 0, 0, 0). 
  
  
 CI       MICRO  1,,*99999*        CODE INDEX 
 ."CI".A  EQU    *
  
          PURGMAC CODE
  
          MACRO  CODE,NAME
 ."CI".B  EQU    *-."CI".A
 ."CI".C  EQU    4-*P/15D 
          USE    0
 CI       DECMIC "CI"+1,4 
          ENTRY  NAME 
 NAME     VFD    12/,16/."CI".B,2/."CI".C,12/,18/."CI".A
          USE    CODE 
 ."CI".A  BSS    0
          ENDM
 CODE     SPACE  4,8
**        EACH CODE SEQUENCE MUST BE PRECEDED BY A *CODE* MACRO.
*         INSERT ALL CODE SEQUENCES AFTER THIS CARD.
  
  
 C$FKA    CODE               FETCH KEY ADDRESS
          FETCH  X1,KA,X7 
  
 C$FWSA   CODE               FETCH WORKING STORAGE ADDRESS
          FETCH  X1,WSA,X6
  
 C$SKA    CODE               STORE KEY ADDRESS
          STORE  X1,KA=X6 
  
 C$SKL    CODE               STORE KEY LENGTH 
          STORE  X1,KL=X6 
  
 C$SKTF   CODE               STORE KEY TYPE = FLOATING POINT
          STORE  X1,KT=F
  
 C$SKTI   CODE               STORE KEY TYPE = INTEGER 
          STORE  X1,KT=I
  
 C$SKTS   CODE               STORE KEY TYPE = SYMBOLIC (CHAR STRING)
          STORE  X1,KT=S
  
 C$SRKP   CODE               STORE RELATIVE KEY POSITION
          STORE  X1,RKP=X6
  
 C$SRKW   CODE               STORE RELATIVE KEY WORD
          STORE  X1,RKW=X6
  
 C$SRL    CODE               STORE RECORD LENGTH
          STORE  X1,RL=X6 
  
  
 C$SMKL   CODE               STORE MAJOR KEY LENGTH 
          STORE  X1,MKL=X6
*         INSERT ALL CODE SEQUENCES BEFORE THIS CARD. 
  
  
 C$...$C  CODE
 ."CI".B  EQU    0
 ."CI".C  EQU    0
  
  
          USE    0
          BSS    0
  
          USE    CODE 
          BSS    0
  
  
          END 
