hence/examples/testforth.asm

149 lines
2.7 KiB
NASM
Raw Normal View History

2023-03-23 16:59:10 +00:00
.include "$lib/core.asm"
.include "$lib/std.asm"
.include "$lib/main.asm"
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.define MEM_LOOP_I, CORE_MEM_MEM
.define MEM_LOOP_J, (MEM_LOOP_I + 1)
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.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)
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.define MEM_ALLOC_PTR, MEM_CALL_STACK_END
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.std_rset CORE_REG_A, MEM_CALL_STACK_PTR
.std_set MEM_CALL_STACK_PTR
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.std_rset CORE_REG_A, (MEM_ALLOC_PTR + 1)
.std_set MEM_ALLOC_PTR
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
.jump_main
2023-03-24 20:13:40 +00:00
2023-03-23 16:59:10 +00:00
call_stack_jump:
2023-03-24 20:13:40 +00:00
.std_get MEM_CALL_STACK_PTR
tlr CORE_REG_A
.std_rset CORE_REG_B, 1
.std_alu CORE_ALU_ADD
tlr CORE_REG_A
tlr CORE_REG_B
.std_set MEM_CALL_STACK_PTR
tsr CORE_REG_D
tlr CORE_REG_A
tsr CORE_REG_B
set
tsr CORE_REG_C
tlr CORE_REG_PC
2023-03-23 16:59:10 +00:00
return_call_stack_jump:
2023-03-24 20:13:40 +00:00
.std_get MEM_CALL_STACK_PTR
tlr CORE_REG_A
tlr CORE_REG_C
.std_rset CORE_REG_B, 1
.std_alu CORE_ALU_SUB
tlr CORE_REG_A
.std_set MEM_CALL_STACK_PTR
tsr CORE_REG_C
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)
ts call_stack_jump
tlr CORE_REG_PC
.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
; words
; main
.def_main
ts NULL ; reset tmp
.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
dbg
.std_ld
tlr CORE_REG_A
.std_rset CORE_REG_B, 2
.std_alu CORE_ALU_ADD
tls
2023-03-31 12:36:00 +00:00
dbg
push 65456
2023-03-31 12:36:00 +00:00
dbg
2023-03-23 16:59:10 +00:00
.std_stop