.TITLE RBIN - READ BINARY CONTACT SENSE MODULE.
/ 
/ 
/                   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
/COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD MASS.
/EDIT 000  10-14-71	W.A. DESIMONE.
/CALLING SEQUENCE:  CALL RBIN(LUN,IMN,IMD,IEV)
/	JMS*	RBIN
/	JMP	.+5	/SUBR. RETURN.
/	ADDR OF LUN
/	ADDR OF MODULE NO. (LOWWEST = 1)
/	ADDR. OF MODULE DATA  (BITS 2-17 RETURNED)
/	ADDR. OF EV		(OPTIONAL)
/	NEXT INSTRUCTION.
/
/RBIN(LUN,IMN,IMD,IEV)  READ INDICATED CONTACT SENSE MODULE
/(IMN) VIA LOGICAL UNIT #=LUN.  RETURN DATA IN BITS 2-17 OF IMD.
/NO CONVERSION OF MODULE DATA PERFORMED.  EV ARGUMENT OPTIONAL.
	.EJECT
	.GLOBL RBIN,.DA
RBIN	0		/SUBR. ENTRY.
	JMS*	.DA
	JMP	ARGEND
LUN	0		/ADDR. OF LUN.
MN	0		/ADDR. OF MUDULE #.
MD	0		/ADDR. OF MODULE DATA (RETURNED)
EV	0		/ADDR. OF EV.  (INIT. TO 0)
ARGEND	LAC*	LUN	/LUN TO CPB.
	DAC	CPB2
	LAC*	MN	/F4 MODULE #-1
	AAC	-1
	DAC	CPB3
	LAC	MD	/ADDR. TO CPB.
	DAC	CPB4
	LAC	EV	/EV ADDR. TO CPB.
	DAC	CPB1
	DZM	EV	/INIT. FOR OPTION.
	CAL	RD	/READ CONTACT SENSE.
	JMP*	RBIN	/EXIT.
/
/READ CONTACT SENSE CAL PARAM. BLOCK.
RD	7400		/FUNCT. CODE.
CPB1	0		/EV ADDR.
CPB2	0		/LUN
CPB3	0		/MODULE # (LOWEST=0)
CPB4	0		/MODULE DATA (BITS 2-17)
/
	.END