.TITLE TBL
/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/
/ EDIT #03	7/16/73		S. ROOT
/  UPDATE TO COMPATIBILITY WITH FORTRAN V44
/ EDIT #04  26 JUN 78	PAUL HENDERSON	REMOVE '.EBREL'
/
/ PROGRAM CODE UNKNOWN
/
/ COPYRIGHT 1972, 1973, DIGITAL EQUIPMENT CORP., MAYNARD MASS., 01754
/
/ RSX-PLUS ROUTINE TO INTERFACE FORTRAN WITH VW01 TABLET HANDLER
/
/ CALLING SEQUENCE:
/
/	CALL GETBLT (LUN,MODE,ITAB[,IEV])
/
/ WHERE LUN IS THE RSX LOGICAL UNIT NUMBER, MODE IS THE MODE
/ OF TABLET OPERATION (0 RETURN PEN DATA ONLY, OTHER RETURN BOTH),
/ ITAB IS A THREE MEMBER ARRAY INTO WHICH TO RETURN STATUS,X,Y.
/ IEV (OPTIONAL) IS THE RSX EVENT VARIABLE ADDRESS.
/
	.GLOBL	GETBLT,.DA
/	.EBREL		/ MUST HAVE PAGE RELOCATION FOR UOW	/(004)
/
/
GETBLT	0
	JMS*	.DA	/SYSTEM ARGUMENT TRANSFER ROUTINE
	JMP	.+5	/JUMP OVER RETURNED ARGUMENT ADDRESSES
ULUN	0
UMODE	0
UARRAY	0
UEV	0
	LAC*	ULUN	/GET PROVIDED LUN
	DAC	LUN	/PLACE IN CAL TO HANDLER
	LAC*	UMODE	/AND MODE (TYPE) OF GET
	DAC	MODE
	LAC	UARRAY	/ADDRESS OF USER ARRAY!
/			/REMOVE * FROM ABOVE INSTRUCTION
	DAC	ADDR	/AGAIN TO SLOT IN OUR CAL.
	LAC	UEV	/0, OR USER ADDRESS
	DZM	UEV	/DEFAULT IN CASE ARG. MISSING NEXT TIME.
	DAC	EV	/EITHER IS CORRECT AS IT STANDS
	CAL	GETC	/MAKE THE CAL TO THE HANDLER
	JMP*	GETBLT	/THAT'S ALL.
/
/	CAL
/
GETC	3000		/RSX CODE FOR GET
EV	0		/EVENT VARIABLE ADDR IF ANY
LUN	0		/LUN SLOT
	MODE		/ADDR OF TOP OF CONTROL TABLE
MODE	0		/TYPE FOR GET (0 OR NON0)
ADDR	0		/ARRAY FOR RETURN OF INFORMATION.
	.END		/THAT'S ALL