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:  SCALE OR WINDOW 
*      SOURCE:  92840 - 18016 
*      RELOC:  92840 - 16001
* 
* 
* 
************************************************************* 
* 
      NAM WINDW,7  92840-16001 REV.1819 780515    
      EXT WINDX,.OPTN,PLTER 
      ENT SCALE 
      ENT WINDW 
* 
*     THIS IS THE INTERFACE MODULE FOR THE AGL COMMAND
* SCALE 
* 
      SPC 3 
WINDW EQU * 
SCALE NOP 
SCL1  LDA SCALE 
      JSB .OPTN 
      DEF RTN 
PADR  DEF PARM
      DEF M6
      DEF .1 DUMMY CODE 
      DEF .5
      DEF .0        NO OPTIONAL PARAMETERS
      DEF RETRN 
RTN   JMP ERROR     NOT ENOUGH PARAMETERS 
      JSB WINDX 
      DEF END 
PARM  BSS 6 
END   JMP RETRN,I 
* 
* 
*     CONSTANTS 
* 
.1    DEC 1 
.5    OCT 5 
.0    OCT 0 
M6    OCT -6
.44   DEC 44
ERROR LDA PARM+1
      STA IGCB
      JSB PLTER 
      DEF RTNER 
      DEF .44 
IGCB  NOP 
RTNER JMP RETRN,I 
RETRN NOP 
      END 
                                                                                                                                                                              