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: CLPON\CLPOF INTFC MOD
*      SOURCE:  92840 - 18066 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM CLPON,7  92840-16001 REV 1819 780515
      EXT .OPTN,PLTER,XCLPN 
      ENT CLPON,CLPOF 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND CLPON
* 
* 
CLPON NOP 
      LDA .1
      STA CODE
      LDA .76 
      STA ERCOD 
      LDA CLPON 
CLP   JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M2
      DEF CODE
      DEF .1        ONE REQUIRED PARAMETER GCB
      DEF .0        NO OPTIONALS
      DEF RETRN 
RTN   JMP ERROR 
      JSB XCLPN 
      DEF END 
PARM  BSS 2 
END   JMP RETRN,I 
* 
CLPOF NOP 
      LDA .2
      STA CODE
      LDA .77 
      STA ERCOD 
      LDA CLPOF 
      JMP CLP 
* 
ERROR JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
RTNER JMP RETRN,I 
* 
M2    OCT -2
RETRN NOP 
.77   DEC 77
.76   DEC 76
.2    OCT 2 
ERCOD NOP 
CODE  NOP 
.1    OCT 1 
.0    OCT 0 
      END 
                                                                            