/DCHOP- INHIBIT ROUND ROUTINE
	.GLOBL DCHOP,CHOP,.SET,.AG,.RB
DCHOP	XX
	LAC	.-1
	JMS*	.SET
CHOP	XX
	ISZ	CHOP
	LAC*	CHOP
	DAC	.+3
	ISZ*	.RB	/NO RD FLAG
	JMS*	.AG
	0
	ISZ	CHOP
	JMP*	CHOP
	.END
