Преглед изворни кода

Move "forth" folder to project's root folder

It's not really an App.
pull/95/head
Virgil Dupras пре 4 година
родитељ
комит
b335e538b4
15 измењених фајлова са 13 додато и 20 уклоњено
  1. +2
    -0
      README.md
  2. +0
    -9
      apps/forth/glue.asm
  3. +3
    -3
      emul/Makefile
  4. +4
    -4
      emul/forth/glue0.asm
  5. +4
    -4
      emul/forth/glue1.asm
  6. +0
    -0
      forth/README.md
  7. +0
    -0
      forth/core.fs
  8. +0
    -0
      forth/dict.asm
  9. +0
    -0
      forth/dictionary.txt
  10. +0
    -0
      forth/fmt.fs
  11. +0
    -0
      forth/main.asm
  12. +0
    -0
      forth/parse.fs
  13. +0
    -0
      forth/stack.asm
  14. +0
    -0
      forth/str.fs
  15. +0
    -0
      forth/util.asm

+ 2
- 0
README.md Прегледај датотеку

@@ -39,6 +39,8 @@ path to giving Collapse OS a try.
through a serial port.
* `emul`: Emulated applications, such as zasm and the shell.
* `tests`: Automated test suite for the whole project.
* `forth`: Forth is slowly taking over this project (see issue #4). It comes
from this folder.

## Status



+ 0
- 9
apps/forth/glue.asm Прегледај датотеку

@@ -1,9 +0,0 @@
.inc "user.h"
jp forthMain

.equ FORTH_RAMSTART RAMSTART
.inc "forth/main.asm"
.inc "forth/util.asm"
.inc "forth/stack.asm"
.inc "forth/dict.asm"
RAMSTART:

+ 3
- 3
emul/Makefile Прегледај датотеку

@@ -8,7 +8,7 @@ SHELLAPPS = zasm ed
SHELLTGTS = ${SHELLAPPS:%=cfsin/%}
# Those Forth source files are in a particular order
FORTHSRCS = core.fs str.fs parse.fs fmt.fs
FORTHSRC_PATHS = ${FORTHSRCS:%=$(APPS)/forth/%}
FORTHSRC_PATHS = ${FORTHSRCS:%=../forth/%}
CFSIN_CONTENTS = $(SHELLTGTS) cfsin/user.h
OBJS = emul.o libz80/libz80.o
SHELLOBJS = $(OBJS) $(CFSPACK_OBJ)
@@ -28,7 +28,7 @@ shell/shell: shell/shell.c $(SHELLOBJS) shell/shell-bin.h
$(CC) shell/shell.c $(SHELLOBJS) -o $@

forth/forth0.bin: forth/glue0.asm $(ZASMBIN)
$(ZASMBIN) $(KERNEL) $(APPS) < forth/glue0.asm | tee $@ > /dev/null
$(ZASMBIN) $(KERNEL) ../forth < forth/glue0.asm | tee $@ > /dev/null

forth/forth0-bin.h: forth/forth0.bin
./bin2c.sh KERNEL < forth/forth0.bin | tee $@ > /dev/null
@@ -43,7 +43,7 @@ forth/core.bin: $(FORTHSRC_PATHS) forth/stage1
cat $(FORTHSRC_PATHS) | ./forth/stage1 | tee $@ > /dev/null

forth/forth1.bin: forth/glue1.asm forth/core.bin $(ZASMBIN)
$(ZASMBIN) $(KERNEL) $(APPS) forth/core.bin < forth/glue1.asm | tee $@ > /dev/null
$(ZASMBIN) $(KERNEL) ../forth forth/core.bin < forth/glue1.asm | tee $@ > /dev/null

forth/forth1-bin.h: forth/forth1.bin
./bin2c.sh KERNEL < forth/forth1.bin | tee $@ > /dev/null


+ 4
- 4
emul/forth/glue0.asm Прегледај датотеку

@@ -22,10 +22,10 @@
.inc "stdio.asm"

.equ FORTH_RAMSTART STDIO_RAMEND
.inc "forth/main.asm"
.inc "forth/util.asm"
.inc "forth/stack.asm"
.inc "forth/dict.asm"
.inc "main.asm"
.inc "util.asm"
.inc "stack.asm"
.inc "dict.asm"


init:


+ 4
- 4
emul/forth/glue1.asm Прегледај датотеку

@@ -12,10 +12,10 @@
.inc "stdio.asm"

.equ FORTH_RAMSTART STDIO_RAMEND
.inc "forth/main.asm"
.inc "forth/util.asm"
.inc "forth/stack.asm"
.inc "forth/dict.asm"
.inc "main.asm"
.inc "util.asm"
.inc "stack.asm"
.inc "dict.asm"


init:


apps/forth/README.md → forth/README.md Прегледај датотеку


apps/forth/core.fs → forth/core.fs Прегледај датотеку


apps/forth/dict.asm → forth/dict.asm Прегледај датотеку


apps/forth/dictionary.txt → forth/dictionary.txt Прегледај датотеку


apps/forth/fmt.fs → forth/fmt.fs Прегледај датотеку


apps/forth/main.asm → forth/main.asm Прегледај датотеку


apps/forth/parse.fs → forth/parse.fs Прегледај датотеку


apps/forth/stack.asm → forth/stack.asm Прегледај датотеку


apps/forth/str.fs → forth/str.fs Прегледај датотеку


apps/forth/util.asm → forth/util.asm Прегледај датотеку


Loading…
Откажи
Сачувај