h58803
s 00051/00000/00000
d D 1.1 83/03/17 15:47:36 tes 1 0
c date and time created 83/03/17 15:47:36 by tes
e
u
4
U
t
T
I 1
subroutine dr40xx (intin)
########################################################################
#                                                                      #
#          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: GSS-CORE device driver move/draw for all TEK 40xx      #
#                                                                      #
#     Input Parameters:                                                #
#           opcode - driver function, either move/draw                 #
#                                                                      #
#            intin    -     Array of integer input parameters          #
#                                                                      #
#     Output Parameters: none                                          #
#                                                                      #
#     Routines Called:                                                 #
#            gdevot - put a character to device                        #
#            xy40xx - convert x,y coordinate to hiy...lox              #
#                                                                      #
########################################################################
integer intin(4)
 
integer alfamd(6)
 
include(`ddcom')
 
 
data alfamd /SYN,SYN,SYN,SYN,US,NEWLINE/
 
   call gdevot (GS)

   #
   #     move to first point 
   #
   
   call xy40xx(intin(1),intin(2))

   # output all bytes for draw, since if you optimize you
   # have to precede the bytes with syncs anyway at 9600 baud
 
   call xy40xx (intin(3), intin(4))
 
   call gdstot (6, alfamd)   # Restore alpha mode
 
   return
end
E 1
