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:  DEVICE SIZE 
*      SOURCE:  92840 - 18047 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM DSIZE,7  92840-16001 REV.1819 780515    
      EXT .OPTN,XDSIZ,PLTER 
      ENT DSIZE 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND DSIZE. 
*     CALLING SEQUENCE: 
*     CALL DSIZE(XGDU,YGDU<,CHAR HEIGHT,ASPECT RATIO <,XRES,YRES>>) 
* 
DSIZE NOP 
      LDA DSIZE     RET ADDRESS 
      JSB .OPTN 
      DEF RTN 
      DEF PARM
      DEF M8
      DEF .1        CODE (MEANINGLESS FOR THIS COMMAND) 
      DEF .3        # OF REQUIRED PARAMETERS
      DEF .4        # OF OPTIONAL PARAMETERS
      DEF DZER0 
      DEF RETRN 
RTN   JMP ERROR 
      JSB XDSIZ 
      DEF END 
PARM  BSS 8 
END   JMP RETRN,I 
* 
DZER0 DEF .0
      DEF .0
      DEF .0
      DEF .0
.0    BSS 2         ANY VALUES RETURNED STORED HERE IF DEFAULTED. 
.1    OCT 1 
.3    OCT 3 
.4    OCT 4 
M8    DEC -8
.56   DEC 56
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .56 
IGCB  NOP 
RTNER JMP RETRN,I 
RETRN NOP 
      END 
                                                                                                                                                                                                                      