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: GCLR INTFC MODULE
*      SOURCE:  92840 - 18007 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM GCLR,7   92840-16001 REV.1819 780515
* 
      EXT .OPTN,XGCLR,PLTER 
      ENT GCLR
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND GCLR(DISTANCE) 
* 
GCLR  NOP 
      LDA GCLR
      JSB .OPTN 
      DEF GCRTN 
      DEF PARM
      DEF M3
      DEF .1
      DEF .1        ONE REQUIRED PARAMETER IGCB 
      DEF .1        ONE DEFAULE FORM FEED 
      DEF FRMFD 
      DEF RETRN 
GCRTN JMP ERROR 
      JSB XGCLR 
      DEF END 
PARM BSS 3
END   JMP RETRN,I 
* 
      SPC 2 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .45 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
M3    DEC -3
.1    OCT 1 
FRMFD DEF .14 
.14   OCT 14
RETRN NOP 
.45   DEC 45
      END 
                                                                                                                                                                                                                