.TITLE	RLABEL
.SBTTL	RSX11M ROLLIN
.PSECT	IMPURE,D,LCL,OVR
;								;
;			SYSTEM MACRO DEFINITIONS		;
;								;
.MCALL	QIOW$S	
;								;
;				DATA				;
;								;
RLABL:	.BLKB	512.
RLASIZ	==.-RLABL
.NLIST	BEX
ERM1:	.ASCII	/ERROR WHILE WRITING REEL LABEL/
ERM1S	=<.-ERM1>
	.EVEN
.LIST	BEX
.PSECT
;								;
;			PROGRAM PROPER				;
;								;	
RLABEL::CALL    $SAVAL			;SAVE REGISTERS
	MOV	#OUTFDB,R0		;OUTPUT FDB TO R0
	MOVB	F.LUN(R0),R4		;OUTPUT LUN TO R4
	MOV	F.BKST(R0),R5		;OUTPUT I/O STATUS TO R5
	MOV	#RLABL,R1		;POINTER TO BUFFER TO R1
	MOV	#1,(R1)+		;REEL NUMBER TO BUFFER
	MOV	#255.,R3		;COUNT TO R3
WRITE0:	CLR	(R1)+			;ZERO BUFFER	
	SOB	R3,WRITE0		;KEEP GOING
	QIOW$S	#IO.WLB,R4,R4,,R5,,<#RLABL,#RLASIZ>
	CMPB	#IS.SUC,(R5)		;CHECK FOR SUCCESS
	BEQ	EXIT			;YES, RETURN TO MAIN PROGRAM
	QIOW$S	#IO.WVB,#TTYLUN,,,,,<#ERM1,#ERM1S,#60>
	JMP	RSTART
EXIT:	RETURN
	.END