ASMB,R,L
* 
* 
* 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
* 
* 
* 
*      NAME: GPMM INTFC MOD 
*      SOURCE:  92840 - 18103 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM GPMM,7  92840-16001 REV.1819 780515 
      EXT .OPTN,PLTER,XPMM
      ENT GPMM
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND GPMM 
* 
* 
GPMM NOP
      LDA GPMM
      JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M3
      DEF .1
      DEF .2        TWO REQUIRED PARAMETERS 
      DEF .0        NO OPTIONALS
      DEF RETRN 
RTN   JMP ERROR 
      JSB XPMM
      DEF END 
PARM  BSS 3 
END   JMP RETRN,I 
* 
* 
ERROR JSB PLTER 
      DEF RTNER 
      DEF .87 
RTNER JMP RETRN,I 
* 
M3    OCT -3
RETRN NOP 
.87   DEC 87
.2    OCT 2 
.1    OCT 1 
.0    OCT 0 
      END 
                                                            