projects
/
debian
/
pforth
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
another arch
[debian/pforth]
/
bloop.fth
1
\r
2
\r
3
: BLOOP ( n -- n' )
\r
4
0 swap 0
\r
5
DO
\r
6
i +
\r
7
i 1 and
\r
8
IF
\r
9
dup dup 2 +
\r
10
swap - drop
\r
11
THEN
\r
12
LOOP
\r
13
;
\r
14
\r
15
\r
16
\ ." START" cr
\r
17
\ 8000000 bloop .
\r
18
\ ." END" cr
\r
19
\r
20
\r
21
: uselocs { aa bb -- }
\r
22
aa bb +
\r
23
aa bb -
\r
24
- drop
\r
25
;
\r
26
\r
27
: BLOCS ( N -- )
\r
28
0 DO i 77 uselocs LOOP
\r
29
;
\r
30
\r
31
\r
32
." START" cr
\r
33
2000000 blocs
\r
34
." END" cr
\r