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