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: VIEWPE,VIEWPORT,CLIP 
*      SOURCE:  92840 - 18014 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM VIEWP,7  92840-16001 REV.1819 780515        
      EXT SCLNG,.OPTN,PLTER 
      ENT CLIP
      ENT VIEWP 
* 
*     THIS IS THE INTERFACE MODULE FOR THE GRAPHICS 
*  SCALING COMMANDS.
* 
      SPC 3 
* 
      SPC 3 
VIEWP NOP 
      LDA .42 
      STA ERCOD 
      LDA .1
LOC1  STA CODE      CODE FOR VIEWPE 
      LDA VIEWP 
      JSB .OPTN     GO GET PARAMETER ADDRESSES
      DEF RTN 
PADR  DEF PARM      PARAME
      DEF M6
      DEF CODE
      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 CODE      ADD OFFSET TO CODE FOR INTERACTIVE SELECTION
      ADA .2
      STA INTCD 
      LDA DFINT 
      STA PARM
ENTRY JSB SCLNG 
      DEF END 
PARM  BSS 6 
END   JMP RETRN,I 
* 
      SPC 2 
* 
* 
      SPC 2 
* 
CLIP  NOP 
      LDA CLIP
      STA VIEWP 
      LDA .46 
      STA ERCOD 
      LDA .2
      JMP LOC1
* 
      SPC 2 
* 
* 
* 
      SPC 3 
* 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF ERCOD 
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 
.3    OCT 3 
.4    OCT 4 
.5    OCT 5 
.6    OCT 6 
CODE  NOP 
ERCOD NOP 
.46   DEC 46
.42   DEC 42
RETRN NOP 
* 
      END 
                                                                                              