Add language support and massively update Forth compiler

examples/testforth.asm

@@ -1,23 +1,41 @@
 .include "$lib/core.asm"
 .include "$lib/std.asm"
-.include "$lib/main.asm"
+;.include "$lib/main.asm"
 
-.define MEM_LOOP_I, CORE_MEM_MEM
-.define MEM_LOOP_J, (MEM_LOOP_I + 1)
+.define_eval prev, OFFSET
+  ts 0xffff
+  tlr CORE_REG_PC
+.define_eval diff, (OFFSET - prev)
+.define_eval MAIN_JUMPER, (CORE_MEM_PRG_END - diff)
+.org prev
+.delete prev, diff
 
-.define MEM_CALL_STACK_LEN, 16
-.define MEM_CALL_STACK_PTR, (MEM_LOOP_J + 1)
-.define MEM_CALL_STACK_END, (MEM_CALL_STACK_PTR + MEM_CALL_STACK_LEN)
+.define_eval MAIN_JUMPER, (CORE_MEM_PRG_END - 3 - 1)
 
-.define MEM_ALLOC_PTR, MEM_CALL_STACK_END
+.define_eval MEM_LOOP_DEPTH, CORE_MEM_MEM
+.define_eval MEM_LOOP_I, (MEM_LOOP_DEPTH + 1)
+.define_eval MEM_LOOP_J, (MEM_LOOP_I + 1)
+
+.define_eval MEM_CALL_STACK_LEN, 16
+.define_eval MEM_CALL_STACK_PTR, (MEM_LOOP_J + 1)
+.define_eval MEM_CALL_STACK_END, (MEM_CALL_STACK_PTR + MEM_CALL_STACK_LEN)
+
+.define_eval MEM_ALLOC_PTR, (MEM_CALL_STACK_END + 1)
+
+.macro stack_transfer_alu
+  .std_ld
+  tlr CORE_REG_B
+  .std_ld
+  tlr CORE_REG_A
+.endmacro
 
 .std_rset CORE_REG_A, MEM_CALL_STACK_PTR
 .std_set MEM_CALL_STACK_PTR
 
-.std_rset CORE_REG_A, (MEM_ALLOC_PTR + 1)
+.std_rset CORE_REG_A, MEM_ALLOC_PTR
 .std_set MEM_ALLOC_PTR
 
-.jump_main
+.std_jump MAIN_JUMPER
 
 call_stack_jump:
   .std_get MEM_CALL_STACK_PTR
@@ -48,13 +66,6 @@ return_call_stack_jump:
   get
   tlr CORE_REG_PC
 
-.macro stack_transfer_alu
-  .std_ld
-  tlr CORE_REG_B
-  .std_ld
-  tlr CORE_REG_A
-.endmacro
-
 .macro call_stack_jump, call_stack_jump_arg_0_label, call_stack_jump_arg_1_offset
   .std_rset CORE_REG_C, call_stack_jump_arg_0_label
   .std_rset CORE_REG_D, (call_stack_jump_arg_1_offset + 7)
@@ -62,87 +73,84 @@ return_call_stack_jump:
   tlr CORE_REG_PC
 .endmacro
 
+.macro call_stack_jump_cond_if, call_stack_jump_cond_if_arg_0_if_label, call_stack_jump_cond_if_arg_1_offset
+  .std_ld
+  tlr CORE_REG_A
+  .std_rset CORE_REG_C, call_stack_jump_cond_if_arg_0_if_label
+  .std_rset CORE_REG_D, (call_stack_jump_cond_if_arg_1_offset + 7)
+  ts call_stack_jump
+  tlrc CORE_REG_PC
+.endmacro
+
+.macro call_stack_jump_cond_if_else, call_stack_jump_cond_if_else_arg_0_if_label, call_stack_jump_cond_if_else_arg_1_else_label, call_stack_jump_cond_if_else_arg_2_offset
+  .std_ld
+  tlr CORE_REG_A
+  .std_rset CORE_REG_C, call_stack_jump_cond_if_else_arg_0_if_label
+  .define_eval call_stack_jump_cond_if_else_local_end_offset, (call_stack_jump_cond_if_else_arg_2_offset + 11)
+  .debug call_stack_jump_cond_if_else_local_end_offset
+  .std_rset CORE_REG_D, call_stack_jump_cond_if_else_local_end_offset
+  ts call_stack_jump
+  tlrc CORE_REG_PC
+
+  .std_rset CORE_REG_C, call_stack_jump_cond_if_else_arg_1_else_label
+  .std_rset CORE_REG_D, (call_stack_jump_cond_if_else_arg_2_offset + 11)
+  ts call_stack_jump
+  tlr CORE_REG_PC
+  .debug call_stack_jump_cond_if_else_local_end_offset
+
+  .delete call_stack_jump_cond_if_else_local_end_offset
+.endmacro
+
 .macro return_call_stack_jump
   .std_jump return_call_stack_jump
 .endmacro
 
 ; data
   ; strings
-    data_strings_0:
-      ; original  : "test\n"
-      ; size      : 5
-      .bytes 0x74
-      .bytes 0x65
-      .bytes 0x73
-      .bytes 0x74
-      .bytes 0x0a
-      data_strings_end_0:
-  
-    data_strings_1:
-      ; original  : "jdsafhjfnjfn\n"
-      ; size      : 13
-      .bytes 0x6a
-      .bytes 0x64
-      .bytes 0x73
-      .bytes 0x61
-      .bytes 0x66
-      .bytes 0x68
-      .bytes 0x6a
-      .bytes 0x66
-      .bytes 0x6e
-      .bytes 0x6a
-      .bytes 0x66
-      .bytes 0x6e
-      .bytes 0x0a
-      data_strings_end_1:
-  
 
 ; conditions
+  ; condition: 0
+    conditions_if_0:
+      push 42
+      .std_ld
+      tlr CORE_REG_A
+      .std_set CORE_MEM_OUT
+      .std_rset CORE_REG_A, '\n'
+      .std_set CORE_MEM_CHR
+    .return_call_stack_jump
+
+    conditions_else_0:
+      push 42
+      .std_ld
+      tlr CORE_REG_A
+      .std_set CORE_MEM_OUT
+      .std_rset CORE_REG_A, '\n'
+      .std_set CORE_MEM_CHR
+    .return_call_stack_jump
+
 
 ; words
+  words_0:
+    ; name : "test"
+    push 40
+    push 2
+    .stack_transfer_alu
+    .std_alu CORE_ALU_ADD
+    tls
+  .return_call_stack_jump
+
 
 ; main
-.def_main
-  ts NULL ; reset tmp
+main:
+.org MAIN_JUMPER
+  ts main
+  tlr CORE_REG_PC
 
-  .std_rset CORE_REG_B, data_strings_0
-  loop_strings_0:
-  tsr CORE_REG_B
-  get
-  tlr CORE_REG_A
-  .std_set CORE_MEM_CHR
-  .std_rset CORE_REG_A, 1
-  .std_alu CORE_ALU_ADD
-  tlr CORE_REG_B
-  .std_rset CORE_REG_A, data_strings_end_0
-  .std_alu CORE_ALU_GT
-  tlr CORE_REG_A
-  .std_cond_jump loop_strings_0
-  .std_rset CORE_REG_B, data_strings_1
-  loop_strings_1:
-  tsr CORE_REG_B
-  get
-  tlr CORE_REG_A
-  .std_set CORE_MEM_CHR
-  .std_rset CORE_REG_A, 1
-  .std_alu CORE_ALU_ADD
-  tlr CORE_REG_B
-  .std_rset CORE_REG_A, data_strings_end_1
-  .std_alu CORE_ALU_GT
-  tlr CORE_REG_A
-  .std_cond_jump loop_strings_1
-  push 40
-  push 2
-  .stack_transfer_alu
-  .std_alu CORE_ALU_ADD
-  tls
+.org main
+  push 0
+  .call_stack_jump_cond_if_else conditions_if_0, conditions_else_0, OFFSET
+  .call_stack_jump words_0, OFFSET
   dbg
-  .std_ld
-  tlr CORE_REG_A
-  .std_rset CORE_REG_B, 2
-  .std_alu CORE_ALU_ADD
-  tls
-  dbg
-  push 65456
+  .call_stack_jump words_0, OFFSET
   dbg
 .std_stop

examples/testforth.fth

@@ -1,6 +1,6 @@
 : test 40 2 + ;
 
-." test\n"
-." jdsafhjfnjfn\n"
+\ 42 42 = debug if 69 . else 420 . then cr
 
-test debug 2+ debug -0x50 debug
+0 if 42 . cr else 69 . cr then
+test debug test debug