h48042
s 00000/00000/00057
d D 1.2 83/01/28 13:58:06 tes 2 1
c initial_internal_update
e
s 00057/00000/00000
d D 1.1 83/01/28 13:03:43 tes 1 0
c date and time created 83/01/28 13:03:43 by tes
e
u
tes
mjb
mrk
mmm
U
t
T
I 1
subroutine gpsatt (opcode, inval, outval)
########################################################################
#                                                                      #
#          THIS MATERIAL IS CONFIDENTIAL AND IS FURNISHED UNDER        #
#          A WRITTEN LICENSE AGREEMENT.  IT MAY NOT BE USED,           #
#          COPIED OR DISCLOSED TO OTHERS EXCEPT IN ACCORDANCE          #
#          WITH THE TERMS OF THAT AGREEMENT.                           #
#                                                                      #
#          COPYRIGHT (C) 1982 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#     Function: Set an attribute by calling the current device driver  #
#                                                                      #
#     Input Parameters:                                                #
#            opcode - integer opcode to invoke                         #
#            inval  - value to set attribute to                        #
#            outval - value returned from device driver                #
#                                                                      #
#     Output Parameters:                                               #
#            none                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            gzddop  - device independent interface                    #
#            imove   - Modify the current postion                      #
#                                                                      #
########################################################################
integer opcode, inval, outval 
integer contrl(5), opcd, intin(1), inin, intout(1), inout, 
	vertin, ptsin(1), ptsout(1)

include(`pltcom')

# The following equvalences were made to reduce code size:
#   contrl(1) = opcd
#   contrl(2) = vertin
#   intin(1)  = inin
#   intout(1) = inout
equivalence (contrl(1), opcd), (intin(1),inin), (intout(1),inout),
            (contrl(2), vertin)
 
DxB write (DEBUGxUNIT, 100)
DxB 100 format (' gpsatt')
 
   # Always flush the buffer if needed before any attributes are set
   if (ncount > 1) call imove (ABSOLUTE, zxabsl, zyabsl)  

   opcd = opcode    # This is the attribute to set
   vertin = 0       # No x-y points
   inin = inval     # Set the attribute to this value
   inout = 0        # Set this in case nothing is returned from the driver

   call gzddop (contrl, intin, ptsin, intout, ptsout)

   outval = inout   # This is what the driver said about the attribute

   return
end
E 1
