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: PORG 
*      SOURCE:  92840 - 18078 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM PORG,7  92840-16001 REV.1819 780515   
* 
*     THIS MODULE IS THE INTERFACE FOR AGL COMMANDS 
*     PORG. 
* 
      EXT XPORG,.OPTN,PLTER 
      ENT PORG
* 
* 
PORG NOP
      LDA PORG
      JSB .OPTN     OPTIONAL PARAMETER PROCESSING SUBROUTINE
      DEF RTN 
PADR  DEF PARM
      DEF M4        NUMBER OF ENTRIES TO CLEAR
      DEF .1
      DEF .3        NUMBER OF PARAMETERS - # OF DEFAULTS
      DEF .0        NUMBER OF DEFAULTS
      DEF DF1       TOP OF LIST FOR DEFAULT VALUES
      DEF RETRN 
RTN   JMP MESUP     ERROR RETURN
      JSB XPORG 
      DEF END 
PARM  BSS 4 
END   JMP RETRN,I 
MESUP LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
* 
* 
* 
      SPC 3 
B     EQU 1 
.4    OCT 4 
M4    DEC -4
.0    OCT 0 
.1    OCT 1 
.2    OCT 2 
.3    OCT 3 
.5    OCT 5 
DF1   DEF .1
RETRN NOP 
A     EQU 0 
ERCOD DEC 83
CODE  NOP 
* 
      END 
                                                                                                                                                                                                                                            