Commit f2d97b51 authored by jwilke's avatar jwilke

*** empty log message ***

parent 9317e965
......@@ -31,8 +31,8 @@
false Constant NIL \ relocating
: prims-include ." Include primitives" cr s" ~+/arch/misc/prim.fs" included ;
: asm-include ." Include assembler" cr s" ~+/arch/misc/asm.fs" included ;
: prims-include ." Include primitives" cr s" arch/misc/prim.fs" included ;
: asm-include ." Include assembler" cr s" arch/misc/asm.fs" included ;
: >boot
hex
S" data-stack-top SP' 2* ! return-stack-top RP' 2* ! ' boot >body IP' 2* !"
......@@ -65,9 +65,14 @@ false SetValue new-input
false SetValue peephole
true SetValue abranch \ enables absolute branches
false DefaultValue rom
true SetValue rom
cell 2 = [IF] 32 [ELSE] 256 [THEN] KB DefaultValue kernel-size
false SetValue compiler
false SetValue primtrace
true SetValue no-userspace
\ cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
16 KB DefaultValue stack-size
15 KB 512 + DefaultValue fstack-size
......
......@@ -39,15 +39,19 @@ constant mem
variable nesting 0 nesting !
: .hs
." RP: " $12 ram> .####
." SP: " $13 ram> .####
." UP: " $14 ram> .#### ;
." RP: " $4000 ram> .####
." SP: " $4001 ram> .####
." UP: " $4002 ram> .#### ;
: .ip
$4003 ram> ." IP: " .#### ;
: trace
cr nesting @ spaces
dup CASE [char] : OF 1 nesting +! .ip ENDOF
[char] ; OF -1 nesting +! ENDOF ENDCASE ;
: >txd
\ cr nesting @ spaces
\ $15 ram> ." IP: " .#### .hs
\ dup CASE [char] : OF 1 nesting +! ENDOF
\ [char] ; OF -1 nesting +! ENDOF ENDCASE
\ trace
[IFDEF] curoff curoff [THEN]
dup bl < IF
CASE
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment