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: AXES AND LAXES INTERFACE 
*      SOURCE:  92840 - 18018 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM AXES,7  92840-16001 REV.1819 780515 
      ENT AXES,LAXES
      EXT PLTER 
      EXT .OPTN 
      EXT AXELS 
* 
*     THIS IS THE INTERFACE MODULE FOR AGL COMMANDS 
*  AXES,LAXES,GRID,LGRID,FRAME,FXD
* 
AXES  NOP 
      LDA .1        CODE = 1
      STA CODE
      LDA AXES
AX1   JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M9
      DEF CODE
      DEF .1        IGCB PARAMETER
      DEF .7        SEVEN OPTIONAL PARAMETERS 
      DEF DZER0     TOP OF LIST OF DEFAULTS 
      DEF RETRN 
* 
RTN   JMP ERROR 
      JSB AXELS 
      DEF END 
PARM  BSS 9 
END   JMP RETRN,I 
* 
*     LABELED AXES
* 
LAXES NOP 
      LDA .2        CODE = 2
      STA CODE
      LDA LAXES 
      JMP AX1 
* 
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .62 
IGCB  NOP 
RTNER JMP RETRN,I 
*     PARAMETERS AND CONSTANTS- DO NOT CHANGE ORDER 
* 
.0    DEC 0.
DZER0 DEF .0
      DEF .0
      DEF .0
      DEF .0
DF1   DEF D1
      DEF D1
      DEF D2
D1    DEC 1.
CODE  NOP 
.1    OCT 1 
D2    DEC 2.0 
.2    OCT 2 
.7    OCT 7 
DF2   DEF .2
M9    DEC -9
RETRN NOP 
.62   DEC 62
      END 
            