ASMB,R,L
      HED GASP1 
*     NAME:   GASP1 
*     SOURCE: 92067-18431 
*     RELOC:  92067-16425 
*     PGMR:   G.A.A.
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM GASP1,5 92067-16425 REV.1940 790802 
      EXT G0PBF,G1SUB,G1SEG 
      SPC 1 
GASP1 LDA TABL
      STA G1SUB     SET THE TABLE ADDRESS 
      JMP G1SEG     RETURN TO MAIN
      SPC 1 
TABL  DEF *+1 
      SPC 1 
      EXT G1CDJ 
      DEF G1CDJ 
      EXT G1CCJ 
      DEF G1CCJ 
      EXT G1CDS 
      DEF G1CDS 
      EXT G1CCS 
      DEF G1CCS 
      EXT G1CKS 
      DEF G1CKS 
      EXT G1CRS 
      DEF G1CRS 
      EXT G1CAB 
      DEF G1CAB 
      EXT G1CUP 
      DEF G1CUP 
      END GASP1 
                                                                                                                                                                                                          