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: RPLOT
*      SOURCE:  92840 - 18034 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM RPLOT,7  92840-16001 REV.1819 780515      
* 
*     THIS MODULE IS THE INTERFACE FOR AGL COMMAND RPLOT. 
* 
      EXT PLTRL,.OPTN,PLTER 
      ENT RPLOT 
* 
* 
RPLOT NOP 
      LDA RPLOT 
      JSB .OPTN     OPTIONAL PARAMETER PROCESSING SUBROUTINE
      DEF RTN 
PADR  DEF PARM
      DEF M5        NUMBER OF ENTRIES TO CLEAR
      DEF .1
      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 PLTRL 
      DEF END 
PARM  BSS 5 
END   JMP RETRN,I 
MESUP LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .48 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
* 
* 
* 
      SPC 3 
B     EQU 1 
M5    DEC -5
.1    OCT 1 
.3    OCT 3 
DF1   DEF .1
RETRN NOP 
      OCT 0 
A     EQU 0 
.48   DEC 48
* 
      END 
                                  