projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #79 from philburk/fix20
[pforth]
/
fth
/
misc2.fth
diff --git
a/fth/misc2.fth
b/fth/misc2.fth
index
3480449
..
c0791da
100644
(file)
--- a/
fth/misc2.fth
+++ b/
fth/misc2.fth
@@
-41,6
+41,10
@@
anew task-misc2.fth
variable if-debug
variable if-debug
+: ? ( address -- , fatch from address and print value )
+ @ .
+;
+
decimal
create msec-delay 10000 , ( default for SUN )
: (MSEC) ( #msecs -- )
decimal
create msec-delay 10000 , ( default for SUN )
: (MSEC) ( #msecs -- )
@@
-118,18
+122,18
@@
variable rand-seed here rand-seed !
: B->S ( c -- c' , sign extend byte )
dup $ 80 and
IF
: B->S ( c -- c' , sign extend byte )
dup $ 80 and
IF
-
$ FFFFFF00
or
+
[ $ 0FF invert ] literal
or
ELSE
ELSE
- $ 0
00000
FF and
+ $ 0FF and
THEN
;
THEN
;
-: W->S ( 16bit-signed --
32bit
-signed )
+: W->S ( 16bit-signed --
cell
-signed )
dup $ 8000 and
dup $ 8000 and
- if
-
$ FFFF0000
or
+ IF
+
[ $ 0FFFF invert ] literal
or
ELSE
ELSE
- $ 0
000
FFFF and
- then
+ $ 0FFFF and
+ THEN
;
: WITHIN { n1 n2 n3 -- flag }
;
: WITHIN { n1 n2 n3 -- flag }