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: LIMIT  INTFC MOD 
*      SOURCE:  92840 - 18001 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM LIMIT,7  92840-16001 REV.1819 780515
      EXT XLMIT,.OPTN,PLTER 
      ENT LIMIT 
* 
*     THIS IS THE INTERFACE MODULE FOR THE LIMIT COMMAND. 
* 
      SPC 3 
* 
* 
      SPC 3 
LIMIT NOP 
      LDA LIMIT 
      JSB .OPTN     GO GET PARAMETER ADDRESSES
      DEF RTN 
PADR  DEF PARM      PARAME
      DEF M6
      DEF .1
      DEF .5        NUMBER OF PARAMETERS
      DEF .0        NO OPTIONAL PARAMETERS
      DEF RETRN 
RTN   JMP CHECK 
      JMP ENTRY 
* 
*     THIS PORTION OF CODE DETERMINES WHETHER OR NOT CALL IS
*  INTERACTIVE OR AN ERROR. 
* 
CHECK CPA M4        INTERACTIVE 
      JMP *+2       YES 
      JMP ERROR     NOT ENOUGH PARAMETERS 
      LDA .2        ADD OFFSET TO CODE FOR INTERACTIVE SELECTION
      STA INTCD 
      LDA DFINT 
      STA PARM
ENTRY JSB XLMIT 
      DEF END 
PARM  BSS 6 
END   JMP RETRN,I 
* 
      SPC 2 
* 
* 
      SPC 2 
* 
* 
* 
      SPC 3 
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .43 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
*     CONSTANTS AND STORAGE 
* 
DFINT DEF INTCD 
INTCD NOP 
M6    DEC -6
M4    DEC -4
.0    OCT 0 
.1    OCT 1 
.2    OCT 2 
.5    OCT 5 
RETRN NOP 
.43   DEC 43
* 
      END 
                                                                                                                                                                                                  