.TITLE	PARTST - TEST PARFL
	.LIST	MEB
PFX:	.BYTE	REP-PFX-1
	.ASCII	/PARTST>/
	.EVEN
REP:	.BLKW	40.
PARBUF:	.BLKW	9.
DIS:	.BYTE	60.
	.ASCII	/                                              /
	.ASCII	/                                              /
	.EVEN
PARTST:	MSGN$S	PFX,0,,REP,80.,ABORT
	MOV	#REP,R0
	MOV	#PARBUF,R1
	CLR	PBFSTS(R1)
	CALL	$PARFL
	BCC	1000$
	HALT
1000$:
	MOV	#DIS+1,R0
	CLR	R2
	MOV	#PARBUF,R3
	MOVB	(R3)+,(R0)+
	MOVB	(R3)+,(R0)+
	INC	R0
	MOV	(R3)+,R1
	CALL	$CBOMG
	INC	R0
	CLR	R1
	BISB	(R3)+,R1
	CALL	$CBOMG
	INC	R0
	CLR	R1
	BISB	(R3)+,R1
	CALL	$CBOMG
	INC	R0
	MOV	(R3)+,R1
	CALL	$C5TA
	MOV	(R3)+,R1
	CALL	$C5TA
	MOV	(R3)+,R1
	CALL	$C5TA
	INC	R0
	MOV	(R3)+,R1
	CALL	$C5TA
	INC	R0
	MOV	(R3)+,R1
	CALL	$CBOSG
	INC	R0
	MOV	(R3)+,R1
	CALL	$CBOMG
	MSGN$S	DIS,0,,,,ABORT
	JMP	PARTST
ABORT:	HALT
	.END	PARTST