aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-01-30 10:14:45 +0100
committerDimitri Sokolyuk <demon@dim13.org>2018-01-30 10:14:45 +0100
commita3049a55b0631367aab3a79f1f1d6119f0f40586 (patch)
tree3b156196231f0af1de6433861bd79800e5f00be0
parent3cba252945176fe2e0ab44445143068e793a7245 (diff)
...
-rw-r--r--cmd/j1e/j1e_bin.go4
-rw-r--r--j1eforth/j1.4th10
-rw-r--r--testdata/j1e.binbin6670 -> 6670 bytes
3 files changed, 7 insertions, 7 deletions
diff --git a/cmd/j1e/j1e_bin.go b/cmd/j1e/j1e_bin.go
index 13f2404..a4d64ad 100644
--- a/cmd/j1e/j1e_bin.go
+++ b/cmd/j1e/j1e_bin.go
@@ -549,8 +549,8 @@ var J1eBin = []byte{
0x0c, 0x70, 0x4e, 0x19, 0x05, 0x77, 0x6f, 0x72, 0x64, 0x73, 0x3f, 0x4b,
0x6b, 0x42, 0xc7, 0x2c, 0x80, 0x61, 0x1e, 0x45, 0x1e, 0x45, 0x3c, 0x45,
0x01, 0x3a, 0x81, 0x60, 0x4a, 0x4b, 0x1e, 0x45, 0xab, 0x4c, 0x00, 0x6a,
- 0xba, 0x0c, 0x0c, 0x70, 0x6c, 0x19, 0x03, 0x76, 0x65, 0x72, 0x01, 0x80,
- 0x00, 0x81, 0x3d, 0x43, 0x05, 0x80, 0x0f, 0x72, 0x92, 0x19, 0x02, 0x68,
+ 0xba, 0x0c, 0x0c, 0x70, 0x6c, 0x19, 0x03, 0x76, 0x65, 0x72, 0x02, 0x80,
+ 0x00, 0x81, 0x3d, 0x43, 0x00, 0x80, 0x0f, 0x72, 0x92, 0x19, 0x02, 0x68,
0x69, 0x00, 0x1e, 0x45, 0x3c, 0x45, 0x0b, 0x65, 0x66, 0x6f, 0x72, 0x74,
0x68, 0x20, 0x6a, 0x31, 0x20, 0x76, 0x80, 0xbe, 0x00, 0x6c, 0x46, 0x44,
0xcb, 0x4c, 0x08, 0x44, 0x1a, 0x44, 0x1a, 0x44, 0x2e, 0x80, 0x10, 0x44,
diff --git a/j1eforth/j1.4th b/j1eforth/j1.4th
index 4916fd0..06a2ae1 100644
--- a/j1eforth/j1.4th
+++ b/j1eforth/j1.4th
@@ -94,8 +94,8 @@ a: literal
variable tlast
variable tuser
-0001 constant =ver
-0005 constant =ext
+0002 constant =major
+0000 constant =minor
0040 constant =comp
0080 constant =imed
7f1f constant =mask
@@ -871,7 +871,7 @@ t: words
(words)
1-
repeat t;
-t: ver ( -- n ) =ver literal 100 literal * =ext literal + t;
+t: ver ( -- n ) =major literal 100 literal * =minor literal + t;
t: hi ( -- )
cr ."| $literal eforth j1 v"
base @ hex
@@ -892,14 +892,14 @@ there [u] dp t!
[t] ?rx [u] '?key t!
[t] tx! [u] 'emit t!
[t] <\> [u] '\ t!
-[t] $interpret [u] 'eval t!
+[t] $interpret [u] 'eval t!
[t] abort [u] 'abort t!
[t] hi [u] 'boot t!
[t] <name?> [u] 'name? t!
[t] <overt> [u] 'overt t!
[t] <$,n> [u] '$,n t!
[t] <;> [u] '; t!
-[t] <create> [u] 'create t!
+[t] <create> [u] 'create t!
[t] cold 2/ =cold t!
save-target j1.bin
diff --git a/testdata/j1e.bin b/testdata/j1e.bin
index 22bc03f..968021a 100644
--- a/testdata/j1e.bin
+++ b/testdata/j1e.bin
Binary files differ