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