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: SET ASPECT RATIO (SETAR) 
*      SOURCE:  92840 - 18003 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM SETAR,7  92840-16001 REV.1819 780515      
      ENT SETAR 
      EXT .OPTN,XETAR,PLTER 
* 
*     INTERFACE MODULE FOR SETAR(ASPECT RATIO)
* 
SETAR NOP 
      LDA SETAR 
      JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M3
      DEF .1
      DEF .1           REQUIRED PARAMETERS
      DEF .1        ONE DEFAULT 
      DEF DF1 
      DEF RETRN 
RTN   JMP ERROR 
      JSB XETAR     SETAR 
      DEF END 
PARM  BSS 3 
END   JMP RETRN,I 
* 
M3    DEC -3
.1    OCT 1 
DF1   DEF D1
D1    DEC 1.
.0    OCT 0 
RETRN NOP 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .68 
IGCB  NOP 
RTNER JMP RETRN,I 
.68   DEC 68
      END 
                                                                                                                                                                                                                                        