COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	TEST
C00003 ENDMK
C⊗;
	TITLE	TEST

AC1←1
AC2←2
AC3←3

BUF:	BLOCK	20
REPEAT:	=1000000
PNT:	POINT	16,AC1,33

START:	RESET
	MOVE	AC3,REPEAT
LOOP:				;
	DPB	1,PNT		;; shove the right half leftwards two bits
	ASH	1,-4		;; and slam the entire word back right 4 bits
	SOJGE	AC3,LOOP	;; and loop
	EXIT			;

	END	START