h09962
s 00060/00000/00000
d D 1.1 83/03/24 15:07:24 lib 1 0
c date and time created 83/03/24 15:07:24 by lib
e
u
4
U
t
T
I 1
; subroutine gzddop (contrl, intin, intout)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                      ;
;          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: Interface between Kernel and device driver (GSX)       ;
;                                                                      ;
;     Input Parameters:                                                ;
;            contrl(1) - opcode for driver function                    ;
;            contrl(2) - number of vertices in array ptsin             ;
;            contrl(4) - length of integer array intin                 ;
;            contrl(6-n) - Opcode dependent information                ;
;                                                                      ;
;            intin   -     Array of integer input parameters           ;
;            ptsin   -     Array of input coordinate data              ;
;                                                                      ;
;     Output Parameters:                                               ;
;            contrl(3)   - number of vertices in array ptsout          ;
;            contrl(5)   - length of integer array intout              ;
;            contrl(6-n) - Opcode dependent information                ;
;                                                                      ;
;            intout      - array of integer output parameters          ;
;            ptsout      - array of output coordinate data             ;
;                                                                      ;
;     Routines Called:                                                 ;
;             none                                                     ;
;                                                                      ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.8080
gzddop:	entry	gzddop
	shld	contrl		; save address of contrl
	xchg
	shld	intin		; save address of intin
	mov	h,b		; get address of block with rest of parameters
	mov	l,c
	lxi     d,ptsin         ; point de register to address of ptsin
	mvi     b,6             ; load number of bytes to move into b register
again:	mov     a,m             ; get a byte from fortran parameter block
	inx     h               ; update ptr to fortran parameter block
	xchg
	mov     m,a             ; store byte into gsx parameter block
	inx     h               ; update ptr to gsx parameter block
	xchg
	dcr     b               ; decrement byte count
	jnz     again           ; move next byte if not done
	lxi	d,contrl	; point de register pair to parameter list
	mvi	c,115		; load bdos opcode for gsx
	jmp	0005		; branch to bdos and gsx
contrl: ds	2
intin:	ds	2
ptsin:  ds      2
intout:	ds	2
ptsout: ds      2
	end
E 1
