		TITLE 'INTERFACE MODULE FOR GSX'
;  ==================================================================
;
;
;		28/06/83   14:30  WF
;
;  MAIN PROGRAM FOR NCR DECISION MATE DEVICE DRIVER
;  THIS ACCEPTS PARAMETERS AS PASSED TO GSX, WITH DE POINTING
;  TO A BLOCK OF 5 PARAMETERS AND SETS UP THE PROPER CALLING SEQUENCE
;  TO MICROSOFT FORTRAN/BASIC
;
MNMATE	PUBLIC  MNMATE
        EXTRN   DDMATE
	JMP	MNMAT1
	DB	'01.01.00'
MNMAT1:
	XCHG		; PUT POINTER TO PARAMETER BLOCK IN HL
	MOV	E,M	; GET LOW ORDER BYTE OF ADDRESS OF CONTRL ARRAY
	INX	H
	MOV	D,M	; GET HIGH ORDER BYTE OF ADDRESS OF CONTRL ARRAY
	PUSH	D       ; PUSH ADDRESS OF CONTRL ARRAY ON STACK
	INX	H
	MOV	E,M	; GET LOW ORDER BYTE OF ADDRESS OF INTIN ARRAY
	INX	H  
	MOV	D,M	; GET HIGH ORDER BYTE OF ADDRESS OF INTIN ARRAY
	INX	H
	PUSH    H	; PUT POINTER TO REST OF ADDRESSES IN BC
	POP	B
	POP     H       ; GET ADDRESS OF CONTRL ARRAY IN HL
	CALL 	DDMATE  ; CALL REAL DRIVER
	RET
	END
