perm filename PACK.1[HAK,ROB] blob sn#432329 filedate 1979-04-10 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	TEST1
C00003 ENDMK
C⊗;
	TITLE	TEST1

AC1←1
AC2←2
AC3←3

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			;

;   Total,Increment,Wait,PS,EBOX msec,Incr=
;      0:12'28,   0:03'59,   1:03'02,186,6333,2804

	END	START