Skip to content

Commit f4a11d9

Browse files
committed
Update 4TASKS.FTH
1 parent ce15e2b commit f4a11d9

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

DEMO/4TASKS.FTH

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -49,21 +49,21 @@ DECIMAL
4949

5050
: COUNTER1 \ decimal counter
5151
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
5353
0 0 1000 0 UPCOUNTER
5454
STOP ;
5555

5656
DECIMAL
5757
: COUNTER2 \ hex counter
5858
HEX
59-
200 TPAD !
59+
200 TPAD ! \ put PAD higher in memory for number printing
6060
9 0 512 0 DNCOUNTER
6161
STOP ;
6262

6363
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
6767
BEGIN
6868
20 0 256 0 UPCOUNTER
6969
AGAIN ;
@@ -72,7 +72,7 @@ HEX 83D6 CONSTANT SCR_TIME_OUT
7272

7373
DECIMAL
7474
: PULSER \ show round robin time
75-
400 TPAD !
75+
400 TPAD ! \ and again, keep the PAD even higher
7676
DECIMAL
7777
BEGIN
7878
30 0 AT-XY ." t=" PULSE@ .MS

0 commit comments

Comments
 (0)