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: PLOT 
*      SOURCE:  92840 - 18063 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM CPLOT,7  92840-16001 REV.1819 780515
* 
*     THIS MODULE IS THE INTERFACE FOR AGL COMMANDS 
*     CPLOT.
* 
      EXT CHPLT,.OPTN,PLTER 
      ENT CPLOT 
* 
* 
CPLOT NOP 
      LDA .1
PLT   STA CODE
      LDA CPLOT 
      JSB .OPTN     OPTIONAL PARAMETER PROCESSING SUBROUTINE
      DEF RTN 
PADR  DEF PARM
      DEF M5        NUMBER OF ENTRIES TO CLEAR
      DEF CODE
      DEF .3        NUMBER OF PARAMETERS - # OF DEFAULTS
      DEF .1        NUMBER OF DEFAULTS
      DEF DF1       TOP OF LIST FOR DEFAULT VALUES
      DEF RETRN 
RTN   JMP MESUP     ERROR RETURN
      JSB CHPLT 
      DEF END 
PARM  BSS 5 
END   JMP RETRN,I 
MESUP LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .47 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
* 
* 
* 
      SPC 3 
B     EQU 1 
.4    OCT 4 
M5    DEC -5
.0    OCT 0 
.1    OCT 1 
.2    OCT 2 
.3    OCT 3 
.5    OCT 5 
DF1   DEF .1
RETRN NOP 
A     EQU 0 
.47   DEC 51
CODE  NOP 
* 
      END 
                                                                                                                                                                                                          