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: PEN AND LINE INTFC MOD 
*      SOURCE:  92840 - 18026 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM PEN,7  92840-16001 REV.1819 780515
      ENT PEN,LINE
      EXT PLTSU,.OPTN,PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS PEN 
*  AND LINE-TYPE. 
* 
PEN   NOP 
      LDA .64 
      STA ERCOD 
      LDA PEN 
      JSB .OPTN     GET PARAMETERS
      DEF RTN 
PADR  DEF PARM      PARAMETER BUFFER
      DEF M4
      DEF .1        CODE
      DEF .2        # OF PARAMETERS 
      DEF .0        # OF DEFAULTS 
      DEF RETRN 
RTN   JMP ERROR 
ENTRY JSB PLTSU     FUNCTIONAL MODULE 
      DEF END 
PARM  BSS 4 
END   JMP RETRN,I 
* 
*     LINETYP[(LINE TYPE #)[,(LENGTH)]] 
* 
LINE  NOP 
      LDA .65 
      STA ERCOD 
      LDA LINE
      JSB .OPTN 
      DEF RTN1
      DEF PARM
      DEF M4
      DEF .2        CODE
      DEF .1        NO REQUIRED PARAMETERS
      DEF .1        # OF DEFAULTS 
      DEF DZER0     DEFAULTS
      DEF RETRN 
RTN1  JMP ERROR 
      JMP ENTRY 
* 
* 
*CONSTANTS AND TEMPORARY STORAGE
* 
.0    OCT 0 
      OCT 0 
DZER0 DEF .0
      DEF .0
.2    OCT 2 
M4    OCT -4
.64   DEC 64
.65   DEC 65
.1    OCT 1 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
IGCB  NOP 
      DEF ERCOD 
RTNER JMP RETRN,I 
RETRN NOP 
ERCOD NOP 
      END 
                                                                                                                                                                