;****************************************************************************
;
;	UNITREAD & UNITWRITE with longword block address
;
;	File:	XUNITIO.TEXT
;	Date:	23-Mar-83
;	Issue:	1
;
;
;	COPYRIGHT (c) 1983 SAGE Computer Technology
;	All Rights Reserved
;
;****************************************************************************
;
;	History:
;
;	1     23-Mar-83 Initial release.
;
;****************************************************************************

	
	
;	Form of call:
;	Result := XUNITREAD(Device,Buffer,Size,HighBlock,LowBlock,Control);
	
	.FUNC	XUNITREAD,6
	MOVEQ	#11.,D0
MAIN	MOVEA.L (SP)+,A2	;Return address
	LEA	ARGS,A0
	MOVE.W	(SP)+,14.(A0)	;Control word
	MOVE.W	(SP)+,12.(A0)	;Low word of logical block number
	MOVE.W	(SP)+,16.(A0)	;High word of logical block number
	MOVE.W	(SP)+,6(A0)	;Size
	CLR.W	4(A0)
	MOVE.W	(SP)+,D7
	LEA	0(A6,D7.L),A1
	MOVE.L	A1,8(A0)	;Buffer address
	MOVE.W	(SP)+,(A0)	;Channel
	TRAP	#14.
	MOVE.W	2(A0),(SP)
	JMP	(A2)
	
ARGS	.BLOCK	18.
	

;	Form of call:
;	Result := XUNITWRITE(Device,Buffer,Size,HighBlock,LowBlock,Control);
	
	.FUNC	XUNITWRITE,6
	MOVEQ	#12.,D0
MAIN	MOVEA.L (SP)+,A2	;Return address
	LEA	ARGS,A0
	MOVE.W	(SP)+,14.(A0)	;Control word
	MOVE.W	(SP)+,12.(A0)	;Low word of logical block number
	MOVE.W	(SP)+,16.(A0)	;High word of logical block number
	MOVE.W	(SP)+,6(A0)	;Size
	CLR.W	4(A0)
	MOVE.W	(SP)+,D7
	LEA	0(A6,D7.L),A1
	MOVE.L	A1,8(A0)	;Buffer address
	MOVE.W	(SP)+,(A0)	;Channel
	TRAP	#14.
	MOVE.W	2(A0),(SP)
	JMP	(A2)
	
ARGS	.BLOCK	18.
	
	.END

                                                                                                                                                                                                                                                                                                                                                                                                                                                                              