File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -49,21 +49,21 @@ DECIMAL
49
49
50
50
: COUNTER1 \ decimal counter
51
51
DECIMAL
52
- 100 TPAD ! \ set task's PAD OFFSET from HERE
52
+ 100 TPAD ! \ set task's PAD as an offset from FORTH's HERE
53
53
0 0 1000 0 UPCOUNTER
54
54
STOP ;
55
55
56
56
DECIMAL
57
57
: COUNTER2 \ hex counter
58
58
HEX
59
- 200 TPAD !
59
+ 200 TPAD ! \ put PAD higher in memory for number printing
60
60
9 0 512 0 DNCOUNTER
61
61
STOP ;
62
62
63
63
DECIMAL
64
- : COUNTER3 \ perpetual binary counter
65
- 300 TPAD !
66
- 2 BASE ! \ print in binary
64
+ : COUNTER3 \ perpetual binary counter
65
+ 300 TPAD ! \ PAD must go higher than counter2
66
+ 2 BASE ! \ print in binary
67
67
BEGIN
68
68
20 0 256 0 UPCOUNTER
69
69
AGAIN ;
@@ -72,7 +72,7 @@ HEX 83D6 CONSTANT SCR_TIME_OUT
72
72
73
73
DECIMAL
74
74
: PULSER \ show round robin time
75
- 400 TPAD !
75
+ 400 TPAD ! \ and again, keep the PAD even higher
76
76
DECIMAL
77
77
BEGIN
78
78
30 0 AT-XY ." t=" PULSE@ .MS
You can’t perform that action at this time.
0 commit comments