; WRDISK -- Subroutine for writing a disk - block by block
;
;	Synanon Church
;	Mike Vandeman
;	May 20, 1983
;
;MAP1 BLOCK'NUMBER,B,4
;MAP1 BUFFER'ADDRESS,B,4
;MAP1 DISK'NUMBER,B,2
;MAP1 ERROR'CODE,B,1
;MAP1 INPUT'BUFFER,X,512
;
;INPUT "DISK? ",DISK'NUMBER
;INPUT "BLOCK #? ", BLOCK'NUMBER
;
;XCALL WRDISK, DISK'NUMBER, BLOCK'NUMBER,INPUT,BUFFER, BUFFER'ADDRESS, &
;    ERROR'CODE

	OBJNAM	WRDISK.SBR
	SEARCH	SYS
	SEARCH  SYSSYM
	RADIX	10			;use decimal arithmetic
	PHDR	-1,PV$RSM,PH$REU

START:	LEA	A0,DDB
	MOV	34(A3),A1		;return buffer address
	MOVW	24(A3),2(A1)		;move high order word
	MOVW	26(A3),@A1		;move low order word
	ANDB	#D$INI,D.FLG(A0)	;DDB initialized?
	BNE	WRITE			;YES, set up for the write
	ORB	#D$ERC,D.DEV		;device "DSK"
	MOV	#512,D.SIZ(A0)		;default buffer size
	ORB	#D$INI,D.FLG(A0)	;indicate DDB initialized
WRITE:	MOV	4(A3),A1		;get address of drive #
	MOVW	@A1,D.DVR(A0)		;enter drive # in DDB
	MOV	14(A3),A1		;get address of block #
	MOVW	@A2,D.REC+2(A0)		;enter physical record # in DDB (low order word)
	MOVW	2(A1),D.REC(A0)		;enter physical record # in DDB (high order word)
	MOV	24(A3),D.BUF(A0)	;enter buffer address in DDB
	CLRB	D.ERR(A0)		;clear errors and flags
	WRITE	@A0			;write disk block
	MOV	44(A3),A1		;get address of error code
	MOVB	D.ERR(A0),@A1		;return error code
	RTN

	EVEN
DDB:	BLKB	D.DDB
	END

.