2020-03-07 12:13:15 -05:00
|
|
|
; *** Const ***
|
|
|
|
|
; Base of the Return Stack
|
|
|
|
|
.equ RS_ADDR 0xf000
|
|
|
|
|
; Number of bytes we keep as a padding between HERE and the scratchpad
|
|
|
|
|
.equ PADDING 0x20
|
2020-03-07 17:09:45 -05:00
|
|
|
; Max length of dict entry names
|
|
|
|
|
.equ NAMELEN 8
|
2020-03-07 12:13:15 -05:00
|
|
|
; Offset of the code link relative to the beginning of the word
|
|
|
|
|
.equ CODELINK_OFFSET 10
|
2020-03-07 17:09:45 -05:00
|
|
|
; When set, the interpreter should abort parsing of current line and return to
|
|
|
|
|
; prompt.
|
|
|
|
|
.equ FLAG_QUITTING 0
|
|
|
|
|
; When set, the interpreter should quit
|
2020-03-07 13:15:19 -05:00
|
|
|
.equ FLAG_ENDPGM 1
|
2020-03-07 12:13:15 -05:00
|
|
|
|
|
|
|
|
; *** Variables ***
|
|
|
|
|
.equ INITIAL_SP FORTH_RAMSTART
|
|
|
|
|
.equ CURRENT @+2
|
|
|
|
|
.equ HERE @+2
|
|
|
|
|
.equ INPUTPOS @+2
|
2020-03-07 13:15:19 -05:00
|
|
|
.equ FLAGS @+2
|
2020-03-07 17:09:45 -05:00
|
|
|
; Buffer where we compile the current input line. Same size as STDIO_BUFSIZE.
|
|
|
|
|
.equ COMPBUF @+1
|
|
|
|
|
.equ FORTH_RAMEND @+0x40
|
2020-03-07 12:13:15 -05:00
|
|
|
|
|
|
|
|
; *** Code ***
|
|
|
|
|
MAIN:
|
|
|
|
|
.dw compiledWord
|
|
|
|
|
.dw INTERPRET+CODELINK_OFFSET
|
2020-03-07 13:15:19 -05:00
|
|
|
.dw CHKEND
|
2020-03-07 12:13:15 -05:00
|
|
|
|
2020-03-07 13:15:19 -05:00
|
|
|
; If FLAG_ENDPGM is set, stop the program, else, tweak the RS so that we loop.
|
|
|
|
|
CHKEND:
|
2020-03-07 12:13:15 -05:00
|
|
|
.dw nativeWord
|
2020-03-07 13:15:19 -05:00
|
|
|
ld hl, FLAGS
|
|
|
|
|
bit FLAG_ENDPGM, (hl)
|
|
|
|
|
jr nz, .endpgm
|
2020-03-07 17:09:45 -05:00
|
|
|
; not quitting program, are we supposed to continue parsing line?
|
|
|
|
|
ld hl, FLAGS
|
|
|
|
|
bit FLAG_QUITTING, (hl)
|
|
|
|
|
jr nz, forthRdLine
|
|
|
|
|
; Not quitting line either.
|
|
|
|
|
jr forthInterpret
|
2020-03-07 13:15:19 -05:00
|
|
|
.endpgm:
|
2020-03-07 12:13:15 -05:00
|
|
|
ld sp, (INITIAL_SP)
|
|
|
|
|
xor a
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
forthMain:
|
|
|
|
|
ld (INITIAL_SP), sp
|
2020-03-07 17:09:45 -05:00
|
|
|
ld hl, FETCH ; last entry in hardcoded dict
|
2020-03-07 12:13:15 -05:00
|
|
|
ld (CURRENT), hl
|
|
|
|
|
ld hl, FORTH_RAMEND
|
|
|
|
|
ld (HERE), hl
|
2020-03-07 17:09:45 -05:00
|
|
|
forthRdLine:
|
|
|
|
|
xor a
|
|
|
|
|
ld (FLAGS), a
|
|
|
|
|
ld hl, msgOk
|
|
|
|
|
call printstr
|
|
|
|
|
call printcrlf
|
|
|
|
|
call stdioReadLine
|
|
|
|
|
ld (INPUTPOS), hl
|
|
|
|
|
forthInterpret:
|
2020-03-07 12:13:15 -05:00
|
|
|
ld ix, RS_ADDR
|
|
|
|
|
ld iy, MAIN
|
|
|
|
|
jp executeCodeLink
|
2020-03-07 17:09:45 -05:00
|
|
|
msgOk:
|
|
|
|
|
.db " ok", 0
|
