134 lines
2.6 KiB
NASM
134 lines
2.6 KiB
NASM
.include "$lib/core.asm"
|
|
.include "$lib/std.asm"
|
|
.include "$lib/main.asm"
|
|
|
|
.define MEM_LOOP_I, CORE_MEM_MEM
|
|
.define MEM_LOOP_J, (MEM_LOOP_I + 1)
|
|
|
|
.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 MEM_ALLOC_PTR, MEM_CALL_STACK_END
|
|
|
|
.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_set MEM_ALLOC_PTR
|
|
|
|
.jump_main
|
|
|
|
call_stack_jump:
|
|
.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
|
|
|
|
return_call_stack_jump:
|
|
.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
|
|
.std_stop
|