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: INTERFACE FOR WHERE,CURSOR,DIGITIZE
*      SOURCE:  92840 - 18056 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM WHERE,7  92840-16001 REV.1819 780515
      EXT INTAC,.OPTN,PLTER 
      ENT WHERE,CURSR,DIGTZ,POINT 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS 
*  WHERE,CURSOR,DIGITIZE AND POINT. 
* 
WHERE NOP 
      LDA .1
      STA CODE
      LDA .55 
      STA ERCOD 
      LDA WHERE 
WHR1  JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M5
      DEF CODE
      DEF .3        3 REQUIRED PARAMETERS 
      DEF .1         OPTIONAL PARAM.
      DEF BLNK
      DEF RETRN 
RTN   JMP ERROR 
      JSB INTAC 
      DEF END 
PARM  BSS 5 
END   JMP RETRN,I 
* 
CURSR NOP 
      LDA .53 
      STA ERCOD 
      LDA .2
      STA CODE
      LDA CURSR 
      JMP WHR1
* 
DIGTZ NOP 
      LDA .54 
      STA ERCOD 
      LDA .3
      STA CODE
      LDA DIGTZ 
      JMP WHR1
* 
POINT NOP 
      LDA .52 
      STA ERCOD 
      LDA .4
      STA CODE
      CLA 
      STA BLANK 
      LDA POINT 
      JMP WHR1
* 
BLNK  DEF BLANK 
BLANK NOP 
RETRN NOP 
.1    OCT 1 
.2    OCT 2 
M5    DEC -5
.52   DEC 52
.53   DEC 53
.54   DEC 54
.55   DEC 55
ERCOD NOP 
.3    OCT 3 
.4    OCT 4 
CODE  NOP 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
      END 
                                                                                                                                            