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 - 18022 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM PLOT,7  92840-16001 REV.1819 780515     
* 
*     THIS MODULE IS THE INTERFACE FOR AGL COMMANDS 
*     PLOT. 
* 
      EXT PLOTA,.OPTN,PLTER 
      ENT PLOT
* 
* 
PLOT  NOP 
      LDA .1
PLT   STA CODE
      LDA PLOT
      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 PLOTA 
      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 
* 
* 
*     CHARACTER PLOT
* 
* 
* 
      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 47
CODE  NOP 
* 
      END 
                                                                                                                                                                                