From a3049a55b0631367aab3a79f1f1d6119f0f40586 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 30 Jan 2018 10:14:45 +0100 Subject: ... --- cmd/j1e/j1e_bin.go | 4 ++-- j1eforth/j1.4th | 10 +++++----- testdata/j1e.bin | Bin 6670 -> 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] [u] 'name? t! [t] [u] 'overt t! [t] <$,n> [u] '$,n t! [t] <;> [u] '; t! -[t] [u] 'create t! +[t] [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 Binary files a/testdata/j1e.bin and b/testdata/j1e.bin differ -- cgit v1.2.3