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:  GRID,LGRID INTFC MOD
*      SOURCE:  92840 - 18020 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM GRID,7   92840-16001  REV.1913  790117
      ENT GRID,LGRID
      EXT .OPTN,PLTER 
      EXT AXELS 
* 
*     THIS IS THE INTERFACE MODULE FOR AGL COMMANDS 
*  GRID AND LGRID.
* 
GRID  NOP 
      LDA .3                                                            EM1913
      STA CODE
      LDA GRID
GRID1 JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M9                                                            EM1913
      DEF CODE
      DEF .1        IGCB IS REQUIRED 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
* 
LGRID NOP 
      LDA .4        CODE = 4                                            EM1913
      STA CODE
      LDA LGRID 
      STA GRID
      JMP GRID1 
* 
*     PARAMETERS AND CONSTANTS- DO NOT CHANGE ORDER 
RETRN NOP 
* 
.0    OCT 0 
D0    DEC 0.
.3    OCT 3                                                             EM1913
.4    OCT 4                                                             EM1913
DZER0 DEF D0
      DEF D0
      DEF D0
      DEF D0
DF1   DEF D1
      DEF D1
      DEF D0
.7    OCT 7 
DF2   DEF .1                                                            EM1913
M9    DEC -9                                                            EM1913
.63   DEC 63
D1    DEC 1.
.1    OCT 1                                                             EM1913
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .63 
IGCB  NOP 
RTNER JMP RETRN,I 
CODE  NOP 
      END 
                