The Lambda Lab
/
projects
/
forth.jl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Problem is with lines >80 chars long.
[forth.jl.git]
/
src
/
debug.4th
1
: CFA>
2
LATEST @
3
BEGIN
4
?DUP
5
WHILE
6
2DUP SWAP
7
< IF
8
NIP
9
EXIT
10
THEN
11
@
12
REPEAT
13
DROP
14
0
15
;
16
17
: DECIMAL 10 BASE ! ;
18
: HEX 16 BASE ! ;
19
20
: ID.
21
1+
22
DUP @
23
F_LENMASK AND
24
25
BEGIN
26
DUP 0>
27
WHILE
28
SWAP 1+
29
DUP @ EMIT
30
SWAP 1-
31
REPEAT
32
2DROP
33
;
34
35
: name cfa> id. ;
36
37
: [trace] immediate
38
trace ;
39
40
\ : test 20 0 [trace] do 42 emit [trace] loop ;
41