.TITLE	TAPE MAP
	.IDENT	/V01.1A/
 
	.MCALL	EXIT$S,QIOW$,DIR$,MOUT$S
N=50.
SIZE=50000
FLAG=5
TILUN=1
MTLUN=2
 
 
BUFFER:	.BLKB	SIZE
MTIOST:	.BLKW	2
IOST:	.BLKW	2
.MOLUN::.BLKW	1
MESS:	.ASCII	/BLOCK SIZE = /
	.EVEN
OUTBUF:	.BLKB	12.
	.EVEN
	SZ=.-MESS
EXPLN:	.ASCII	/TYPE ANY CHARACTER TO CONTINUE/
EX=.-EXPLN
	.EVEN
XQIO:	.WORD	XQLN,XQIOSY
XQIOSY:	.ASCII	/SY0:[1,2]QIOSYM.MSG/
XQLN=.-XQIOSY
 
EMES:	.ASCII	/######EOF######/
EZ=.-EMES
BUFB:	.BLKW	2
	.EVEN
START:	DIR$	#EXP
1$:	DIR$	#READ
	TSTB	MTIOST
	BPL	10$
	CMPB	MTIOST,#IE.EOF
	BEQ	5$
	MOVB	MTIOST,R5
	NEG	R5
	MOUT$S	#XQIO,,R5
	BR	15$
5$:	DIR$	#EOF
	BR	12$
10$:	MOV	#OUTBUF,R0
	MOV	MTIOST+2,R1
	CLR	R2
	CALL	$CBDMG
	SUB	#MESS,R0
	MOV	R0,OUT+Q.IOPL+2
	DIR$	#OUT
12$:	DIR$	#WAIT
	TSTB	IOST
	BPL	1$
15$:	EXIT$S
 
READ:	QIOW$	IO.RLB,MTLUN,FLAG,,MTIOST,,<BUFFER,SIZE>
OUT:	QIOW$	IO.WVB,TILUN,FLAG,,,,<MESS,SZ,40>
EOF:	QIOW$	IO.WVB,TILUN,FLAG,,,,<EMES,EZ,40>
EXP:	QIOW$	IO.WVB,TILUN,FLAG,,,,<EXPLN,EX,40>
WAIT:	QIOW$	IO.RVB,TILUN,FLAG,,IOST,,<BUFB,1>
	.END	START