From a3049a55b0631367aab3a79f1f1d6119f0f40586 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 30 Jan 2018 10:14:45 +0100 Subject: ... --- j1eforth/j1.4th | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'j1eforth/j1.4th') 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 -- cgit v1.2.3