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: PDIR AND LDIR
*      SOURCE:  92840 - 18028 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM PDIR,7  92840-16001 REV.1819 780515     
      ENT LDIR,PDIR 
      EXT .OPTN,LPDIR,PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS 
*  PDIR AND LDIR. 
* 
PDIR  NOP 
      CLA,INA       CODE FOR PDIR(THETA)
      STA CODE
      LDA .59 
      STA ERCOD 
      LDA PDIR
PD1   JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M4
      DEF CODE
      DEF .2        IGCB AND ANGLE
      DEF .1        ACTUALLY NO DEFAULTS ADDRESS IS USED FOR ERROR CHECKING 
DF0   DEF DZER0 
      DEF RETRN 
RTN   JMP ERROR 
      LDA PARM+3
      CPA DZER0 
      JMP ENTRY 
      ISZ CODE
ENTRY JSB LPDIR 
      DEF END 
PARM  BSS 4 
END   JMP RETRN,I 
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
LDIR  NOP 
      LDA .3
      STA CODE
      LDA .58 
      STA ERCOD 
      LDA LDIR
      JMP PD1 
* 
DZER0 DEF .0
.0    OCT 0 
CODE  NOP 
RETRN NOP 
.1    OCT 1 
.3    OCT 3 
M4    DEC -4
.2    OCT 2 
ERCOD NOP 
.58   DEC 58
.59   DEC 59
      END 
                                                                                                            