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: LABEL,LABON,LABOF
*      SOURCE:  92840 - 18053 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM LABEL,7  92840-16001 REV.1819 780515          
      ENT LABEL 
      EXT .OPTN,XLABL,PLTER 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMANDS 
*  LABEL AND LORG.
* 
LABEL NOP 
      LDA LABEL 
      JSB .OPTN 
      DEF RTN1
PADR  DEF PARM
      DEF M5
      DEF .1        CODE
      DEF .1           REQUIRED PARAMETERS
      DEF .1        ONE DEFAULT 
      DEF DZER0     DEFAULT VALUE 
      DEF RETRN 
RTN1  JMP ERROR 
ENTRY JSB XLABL 
      DEF RTNER 
PARM  BSS 5 
END   JSB PLTER 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .66 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
* 
* 
DZER0 DEF .0
RETRN NOP 
.0    OCT 0 
.1    OCT 1 
.2    OCT 2 
M5    DEC -5
.66   DEC 66
      END 
                                                                                                                                                                                