.TITLE	WRTONE
;
;
;	READ AND WRITE ONE BLOCK ON THE DISK, IGNORE ERRORS
;
;	YOU MUST EDIT THE BLOCK NUMBER INTO THE LOCATIONS
;	HI - HIGH BLOCK NUMBER
;	LO - LOW BLOCK NUMBER
;
;	THE VOLUME MUST BE DISMOUNTED TO DO A WRITE
;	LOGICAL BLOCK.
;
;	WATCH OUT THIS PROGRAM DOES WRITE
;	LOGICAL BLOCKS AND CAN GET YOU INTO A LOT
;	OF TROUBLE IF YOU DON'T KNOW WHAT YOU ARE
;	DOING.
;
	.MCALL	ALUN$C,QIOW$S,EXIT$S
WRTONE:	ALUN$C	1,DP,0	;1 IS THE DP DISK
	QIOW$S	#IO.RLB,#1,#1,,#ERR,,<#BUF,#512.,,HI,LO>
	QIOW$S	#IO.WLB,#1,#1,,#ERR,,<#BUF,#512.,,HI,LO>
	EXIT$S
HI:	.WORD	4
LO:	.WORD	13032
ERR:	.BLKW	2
BUF:	.BLKW	256.
	.END	WRTONE