search

jamesbowman / swapforth

Swapforth is a cross-platform ANS Forth
BSD 3-Clause "New" or "Revised" License
279 stars 56 forks source link

Issues with files in common and j1a #41

Open bmentink opened 8 years ago

bmentink commented 8 years ago

I have been trying to use the mini-oof.fs module out of common. It doesn't want to work for the j1a processor ..

I have identified two problems with it, so far.

  1. There is no "noop" baseword which makes "end-class" not compile. My base words are as follows .. no "noop" in sight ...
>words
 init .s tasksel quit evaluate refill accept char postpone literal ' abort chars char+ cells r@ r> >r depth io@ nip over drop dup swap u< < = invert or and xor - + 2/ 2* decimal unloop j i +loop loop ?do leave do recurse does> until again then begin if ahead ; exit :noname : [ ] immediate sliteral s, compile, c, , allot parse parse-name \ source 2! 2@ cmove> cmove fill >number sfind align um/mod m* * um* d2* d0= m+ s>d dabs dnegate d+ aligned /string here abs words forth tth >in state base type bounds count c! c@ max min 2over 2swap +! 2dup ?dup 2drop tuck -rot rot true false @ execute .x .x2 bl cr space emit key key? rshift lshift io! ! u> 0> 0< > 0<> <> cell+ 0= 1- negate 1+  ok
  1. the word "var" doesn't seem to work, I try:
1 cells var test
10 test !
test @ .

and I get rubbish result, it can even lock up quit ... and have to CTRL-C to get prompt .. I notice that a lot of files in "common" are used in the j2a processor examples, have they been tested for j1a?

bmentink commented 7 years ago

HI,

I havn't had a reply to this, but would really like to see if I can use the mini-oof module ... I notice that it is used in the FT900 code, but not for the j1a, is there a way to get it going for the j1a?

Maybe a review of the "common" code is due if code in there is no longer "common" to all processors .. Comments?