	.TITLE	NUMBLOCK
	.MCALL	.EXIT,.LOOKUP,.WRITW,.PRINT
	MAX$ = 494.		;ZDESX DOLVEN UKAZYWATXSQ OB_EM DISKETY
				;W BLOKAH 
START:	.LOOKUP	#AREA,#0,#DEV
	BCC	1$
	MOV	#ERLO,R0
	.PRINT
	.EXIT
1$:	CLR	R5		;S^ BLOKOW
	MOV	#BUFF,R3
	MOV	#256.,R4
4$:	MOV	R3,R1
	MOV	R4,R0
2$:	MOV	R5,(R1)+
	SOB	R0,2$

	.WRITW	#AREA,#0,R3,R4,R5
	BCC	3$
	MOV	#ERWR,R0
	.PRINT
	.EXIT
3$:	INC	R5
	CMP	#MAX$,R5
	BNE	4$
	.EXIT

AREA:	.BLKW	6
DEV:	.RAD50	/DX0/	;zDESX DOLVNO BYTX IMQ USTROJSTWA, NAPRIMER DY0
	.BLKW	2
BUFF:	.BLKW	256.
ERLO:	.ASCIZ	/?UBL-F-opening error/
ERWR:	.ASCIZ	/?UBL-F-write error/
	.END	START
                                                                                                                                                                                                                                                                                                                                                                                                             