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:  MARGIN
*      SOURCE:  92840 - 18009 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM MARGN,7  92840-16001 REV.1819 780515    
      EXT .OPTN,XMARG,PLTER 
      ENT MARGN 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND MARGIN 
* 
MARGN NOP 
      LDA MARGN 
      JSB .OPTN 
      DEF *+8 
      DEF PARM
      DEF M7
      DEF .1
      DEF .5        FOUR REQ'D PARAMETERS 
      DEF .1        ONE OPTIONAL
      DEF DZER0     INDICATES CHARACTERS/1= GDU'S 
      DEF RETRN 
      JMP ERROR 
      JSB XMARG 
      DEF END 
PARM  BSS 7 
END   JMP RETRN,I 
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .41 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
DZER0 DEF .0
.1    OCT 1 
.5    OCT 5 
.41   DEC 41
M7    OCT -7
.0    OCT 0 
RETRN NOP 
      END 
                                                                                                                                                                                                              