forked from zeroflag/punyforth
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathdata.S
More file actions
38 lines (36 loc) · 979 Bytes
/
data.S
File metadata and controls
38 lines (36 loc) · 979 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
.data
.align 4
.set CELLS,4
.set link,0 // points to the last defined word
.set STATE_COMPILE,1
.set STATE_INTERPRET,0
.set IMMEDIATE,128
.set HIDDEN,64
.set REGULAR,0
.set TRUE,-1
.set FALSE,0
.set INPUT_BUFFER_SIZE,128
.set MAX_WORD_LEN,63
stack_top: .int 0
var0: .int 0
state_var: .int STATE_INTERPRET
LAST_WORD: .int FINAL_WORD
input_index: .int 0
input_buffer: .space INPUT_BUFFER_SIZE,' '
.align 4,32
input_size: .int . - input_buffer
var_dp: .int 0 // data pointer
var_prompt_xt:.int 0
var_pause_xt: .int 0
var_emit_xt: .int 0
var_type_xt: .int 0
dictionary: .space 24576
end_dictionary:
rstack_space: .space 320
rstack_top:
stack_space: .space 480 // used only by ESP port
stack:
compile_only_warning: .asciz "\nWord has no interpretation semantics\n"
undef_word_error: .asciz "\nUndefined word: "
inbuf_overflow_error: .asciz "\nInput overflow\n"
word_overflow_error: .asciz "\nName too long: "