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:  CSIZE INTFC MOD 
*      SOURCE:  92840 - 18045 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* SY2001 ADDED CODE TO ALSO ACCEPT A FOURTH OPTIONAL
* PARAMETER. THIS PARAMETER SPECIFIES WHETHER THE CSIZE 
* UNITS ARE IN NDC OR WC SPACE. IT DEFAULTS TO NDC SPACE
* FOR BACKWARD COMPATIBILITY. 
* 
* 
      NAM CSIZE,7  92840-16001 REV.2013 120379
      EXT .OPTN,XSIZE 
      EXT PLTER 
      ENT CSIZE 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND CSIZE
* 
CSIZE NOP 
      LDA CSIZE 
      JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M5
      DEF .2
      DEF .1        ONE REQUIRED PARAMETER IGCB 
      DEF .4        4 DEFAULTS ASPECT RATIO,SLANT,HEIGHT,AND NDC UNITS
      DEF DZER0     TOP OF LIST FOR DEFAULTS
      DEF RETRN 
RTN   JMP ERROR 
      JSB XSIZE 
      DEF END 
PARM  BSS 6 
END   JMP RETRN,I 
      SPC 2 
DFLT  DEC 2.78
.0    DEC 0.
DZER0 DEF DFLT
      DEF .0
      DEF .0
      DEF .0        THIS CALL DEFAULTS TO NDC SPECIFICATION 
.1    OCT 1 
.2    OCT 2 
.4    DEC 4 
M5    DEC -5
RETRN NOP 
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .50 
IGCB  NOP 
RTNER JMP RETRN,I 
* 
.50   DEC 50
      END 
                                                                      