367 lines
8.3 KiB
NASM
367 lines
8.3 KiB
NASM
; Generated by Henceforth 0.1.0 (https://git.dergrimm.net/dergrimm/hence.git)
|
|
|
|
.include "$lib/core.asm"
|
|
.include "$lib/std.asm"
|
|
|
|
.define PLACEHOLDER_U8, CORE_U8_MAX
|
|
.define PLACEHOLDER_U16, CORE_U16_MAX
|
|
|
|
.define_eval prev, OFFSET
|
|
ts PLACEHOLDER_U16
|
|
tlr CORE_REG_PC
|
|
.define_eval diff, (OFFSET - prev)
|
|
.define_eval MAIN_JUMPER, (CORE_MEM_PRG_END - diff)
|
|
.org prev
|
|
.delete prev, diff
|
|
|
|
.define_eval prev, OFFSET
|
|
.bytes PLACEHOLDER_U16, PLACEHOLDER_U16
|
|
.bytes PLACEHOLDER_U16
|
|
.define_eval JUMP_TABLE_CONDITIONS_SIZE, (OFFSET - prev)
|
|
.org prev
|
|
.delete prev
|
|
|
|
.define_eval JUMP_TABLE_WORDS_SIZE, (3 * 2)
|
|
.define_eval JUMP_TABLE_PTR, (MAIN_JUMPER - JUMP_TABLE_CONDITIONS_SIZE - JUMP_TABLE_WORDS_SIZE)
|
|
|
|
.debug JUMP_TABLE_CONDITIONS_SIZE, JUMP_TABLE_WORDS_SIZE, (JUMP_TABLE_CONDITIONS_SIZE + JUMP_TABLE_WORDS_SIZE / 2), JUMP_TABLE_PTR
|
|
|
|
.define_eval counter, 0
|
|
; jump table
|
|
; conditions
|
|
.define_eval jump_table_conditions_if_0, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 2)
|
|
.define_eval jump_table_conditions_else_0, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 2)
|
|
.define_eval jump_table_conditions_if_1, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 2)
|
|
|
|
; words
|
|
.define_eval jump_table_words_0, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 1)
|
|
.define_eval jump_table_words_1, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 1)
|
|
.define_eval jump_table_words_2, (JUMP_TABLE_PTR + counter)
|
|
.define_eval counter, (counter + 1)
|
|
.delete counter
|
|
|
|
.define_eval MEM_JUMP_TABLE_LEN, (JUMP_TABLE_CONDITIONS_SIZE + JUMP_TABLE_WORDS_SIZE / 2)
|
|
.define_eval MEM_JUMP_TABLE_PTR, CORE_MEM_MEM
|
|
.define_eval MEM_JUMP_TABLE_END, (MEM_JUMP_TABLE_PTR + MEM_JUMP_TABLE_LEN)
|
|
|
|
.define_eval MEM_LOOP_DEPTH, (MEM_JUMP_TABLE_END + 1)
|
|
.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
|
|
|
|
.macro jump_table_pull_ptr, jump_table_pull_ptr_arg_0_ptr, jump_table_pull_ptr_arg_1_counter
|
|
ts jump_table_pull_ptr_arg_0_ptr
|
|
tls
|
|
|
|
ts 8
|
|
tlr CORE_REG_B
|
|
.std_get jump_table_pull_ptr_arg_0_ptr
|
|
tlr CORE_REG_A
|
|
ts CORE_ALU_LSH
|
|
alu
|
|
tlr CORE_REG_A
|
|
|
|
.std_get (jump_table_pull_ptr_arg_0_ptr + 1)
|
|
tlr CORE_REG_B
|
|
ts CORE_ALU_OR
|
|
alu
|
|
tlr CORE_REG_A
|
|
|
|
tls
|
|
dbg
|
|
pop
|
|
pop
|
|
.endmacro
|
|
|
|
.define_eval counter, 0
|
|
; setup jump table
|
|
; conditions
|
|
.jump_table_pull_ptr jump_table_conditions_if_0, counter
|
|
.define_eval counter, (counter + 1)
|
|
.jump_table_pull_ptr jump_table_conditions_else_0, counter
|
|
.define_eval counter, (counter + 1)
|
|
.jump_table_pull_ptr jump_table_conditions_if_1, counter
|
|
.define_eval counter, (counter + 1)
|
|
|
|
; words
|
|
.jump_table_pull_ptr jump_table_words_0, counter
|
|
.define_eval counter, (counter + 1)
|
|
.jump_table_pull_ptr jump_table_words_1, counter
|
|
.define_eval counter, (counter + 1)
|
|
.jump_table_pull_ptr jump_table_words_2, counter
|
|
.define_eval counter, (counter + 1)
|
|
.delete counter
|
|
|
|
.delete_macro jump_table_pull_ptr
|
|
|
|
.macro self_ref, self_ref_arg_0_ptr
|
|
.std_rset CORE_REG_A, self_ref_arg_0_ptr
|
|
.std_set self_ref_arg_0_ptr
|
|
.endmacro
|
|
|
|
; reference MEM_CALL_STACK_PTR to itself
|
|
.self_ref MEM_CALL_STACK_PTR
|
|
|
|
; reference MEM_ALLOC_PTR to itself
|
|
.self_ref MEM_ALLOC_PTR
|
|
|
|
.delete_macro self_ref
|
|
|
|
.std_jump MAIN_JUMPER
|
|
|
|
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 call_stack_jump, call_stack_jump_arg_0_label
|
|
.std_rset CORE_REG_C, call_stack_jump_arg_0_label
|
|
.std_rset CORE_REG_D, (OFFSET + 7)
|
|
ts call_stack_jump
|
|
tlr CORE_REG_PC
|
|
.endmacro
|
|
|
|
.macro call_stack_jump_cond_if, call_stack_jump_cond_if_arg_0_if_label
|
|
.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, (OFFSET + 7)
|
|
ts call_stack_jump
|
|
tlrc CORE_REG_PC
|
|
.endmacro
|
|
|
|
.define_eval prev, OFFSET
|
|
.std_ld
|
|
tlr CORE_REG_A
|
|
.std_rset CORE_REG_C, PLACEHOLDER_U16
|
|
.std_rset CORE_REG_D, PLACEHOLDER_U16
|
|
ts call_stack_jump
|
|
tlrc CORE_REG_PC
|
|
|
|
.std_rset CORE_REG_C, PLACEHOLDER_U16
|
|
.std_rset CORE_REG_D, PLACEHOLDER_U16
|
|
ts call_stack_jump
|
|
tlr CORE_REG_PC
|
|
.define_eval CALL_STACK_JUMP_COND_IF_ELSE_SIZE, (OFFSET - prev)
|
|
.org prev
|
|
.delete prev
|
|
|
|
.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
|
|
.define_eval prev, OFFSET
|
|
.define offset_till_end, (OFFSET - prev * -1 + CALL_STACK_JUMP_COND_IF_ELSE_SIZE)
|
|
|
|
.std_ld
|
|
tlr CORE_REG_A
|
|
.std_rset CORE_REG_C, call_stack_jump_cond_if_else_arg_0_if_label
|
|
.std_rset CORE_REG_D, (OFFSET + offset_till_end)
|
|
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, (OFFSET + offset_till_end)
|
|
ts call_stack_jump
|
|
tlr CORE_REG_PC
|
|
|
|
.delete prev, offset_till_end
|
|
.endmacro
|
|
|
|
.macro return_call_stack_jump
|
|
.std_jump return_call_stack_jump
|
|
.endmacro
|
|
|
|
; data
|
|
; strings
|
|
data_strings_0:
|
|
.bytes 0x48
|
|
.bytes 0x65
|
|
.bytes 0x6c
|
|
.bytes 0x6c
|
|
.bytes 0x6f
|
|
.bytes 0x20
|
|
.bytes 0x77
|
|
.bytes 0x6f
|
|
.bytes 0x72
|
|
.bytes 0x6c
|
|
.bytes 0x64
|
|
.bytes 0x21
|
|
data_strings_end_0:
|
|
|
|
|
|
; conditions
|
|
; condition: 0
|
|
conditions_if_0:
|
|
push 69
|
|
.std_ld
|
|
tlr CORE_REG_A
|
|
.std_set CORE_MEM_OUT
|
|
.return_call_stack_jump
|
|
|
|
conditions_else_0:
|
|
push 420
|
|
.std_ld
|
|
tlr CORE_REG_A
|
|
.std_set CORE_MEM_OUT
|
|
.return_call_stack_jump
|
|
|
|
; condition: 1
|
|
conditions_if_1:
|
|
push 32
|
|
.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:
|
|
push 40
|
|
push 2
|
|
.stack_transfer_alu
|
|
.std_alu CORE_ALU_ADD
|
|
tls
|
|
.return_call_stack_jump
|
|
|
|
words_1:
|
|
push 32
|
|
.return_call_stack_jump
|
|
|
|
words_2:
|
|
push 4875
|
|
push 8748
|
|
dbg
|
|
.return_call_stack_jump
|
|
|
|
|
|
; static jump table
|
|
.define_eval prev, OFFSET
|
|
; conditions
|
|
; condition: 0
|
|
.org jump_table_conditions_if_0
|
|
.bytes conditions_if_0
|
|
.org jump_table_conditions_else_0
|
|
.bytes conditions_else_0
|
|
|
|
; condition: 1
|
|
.org jump_table_conditions_if_1
|
|
.bytes conditions_if_1
|
|
|
|
|
|
; words
|
|
.org jump_table_words_0
|
|
.bytes words_0
|
|
|
|
.org jump_table_words_1
|
|
.bytes words_1
|
|
|
|
.org jump_table_words_2
|
|
.bytes words_2
|
|
|
|
.org prev
|
|
.delete prev
|
|
|
|
; main
|
|
main:
|
|
.org MAIN_JUMPER
|
|
ts main
|
|
tlr CORE_REG_PC
|
|
|
|
.org main
|
|
push 42
|
|
tls
|
|
.stack_transfer_alu
|
|
.std_alu CORE_ALU_EQ
|
|
tls
|
|
dbg
|
|
.call_stack_jump_cond_if_else conditions_if_0, conditions_else_0
|
|
.std_rset CORE_REG_A, '\n'
|
|
.std_set CORE_MEM_CHR
|
|
push 1
|
|
dbg
|
|
.call_stack_jump_cond_if conditions_if_1
|
|
.call_stack_jump words_0
|
|
dbg
|
|
.call_stack_jump words_0
|
|
dbg
|
|
.std_rset CORE_REG_A, ' '
|
|
.std_set CORE_MEM_CHR
|
|
.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_A, '\n'
|
|
.std_set CORE_MEM_CHR
|
|
.std_rset CORE_REG_A, ' '
|
|
.std_set CORE_MEM_CHR
|
|
set
|
|
.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_A, '\n'
|
|
.std_set CORE_MEM_CHR
|
|
.call_stack_jump words_2
|
|
.call_stack_jump words_1
|
|
.call_stack_jump words_2
|
|
.call_stack_jump words_1
|
|
.std_stop
|