perm filename PACK.3[HAK,ROB] blob sn#432332 filedate 1979-04-10 generic text, type C, neo UTF8
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

REPEAT:	=1000000

START:	RESET
	MOVE	AC3,REPEAT
LOOP:				;
	HLLZ	AC2,AC1		;; 
	LSHC	AC1,-2		;;
	LSH	AC2,-2		;;
	HRRZ	AC1,AC1		;;
	OR	AC1,AC2		;;
	SOJGE	AC3,LOOP	;; and loop
	EXIT			;

;   Total,Increment,Wait,PS,EBOX msec,Incr=
;      0:51'51,   0:04'45,   4:11'31,574,24346,3805

	END	START