.MCALL	QIOW$S,ALUN$S,GLUN$S,WSIG$S,ASTX$S,MRKT$S
NOCHR::	QIOW$S	#IO.DET,#4,#1
	RETURN
INCHR::	TST	FLAG
	BNE	NOINI
	INC	FLAG
	GLUN$S	#5,#BUFF
	MOVB	BUFF+G.LUNU,R1
	BIC	#177400,R1
	ALUN$S	#4,#"TT,R1
	MOV	#BUFF,R0
	MOV	#6,R1
1$:	CLR	(R0)+
	SOB	R1,1$
	QIOW$S	#IO.ATA,#4,#1,,#IOSB,,<#CHAST>
NOINI:	TSTB	BUFF
	BNE	1$
	WSIG$S
	BR	NOINI
1$:	MOVB	BUFF,@2(R5)
	MOV	#11.,R0
	MOV	#BUFF,R1
2$:	MOVB	1(R1),(R1)
	INC	R1
	SOB	R0,2$
	CLRB	BUFF+13
	RETURN
CHAST:	TSTB	BUFF+13
	BNE	1$
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	#BUFF,R0
	MOV	#11.,R1
2$:	TSTB	(R0)
	BEQ	3$
	INC	R0
	SOB	R1,2$
3$:	MOVB	4(SP),(R0)
	MOV	(SP)+,R1
	MOV	(SP)+,R0
1$:	ADD	#2,SP
	ASTX$S
FLAG:	.WORD	0
BUFF:	.WORD	0,0,0,0,0,0
IOSB:	.WORD	0,0
	.END