mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-08 19:48:12 +11:00
37 lines
693 B
NASM
37 lines
693 B
NASM
|
; *** 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
|
||
|
|
; Offset of the code link relative to the beginning of the word
|
||
|
|
.equ CODELINK_OFFSET 10
|
||
|
|
|
||
|
|
; *** Variables ***
|
||
|
|
.equ INITIAL_SP FORTH_RAMSTART
|
||
|
|
.equ CURRENT @+2
|
||
|
|
.equ HERE @+2
|
||
|
|
.equ INPUTPOS @+2
|
||
|
|
.equ FORTH_RAMEND @+2
|
||
|
|
|
||
|
|
; *** Code ***
|
||
|
|
MAIN:
|
||
|
|
.dw compiledWord
|
||
|
|
.dw INTERPRET+CODELINK_OFFSET
|
||
|
|
.dw ENDPGM
|
||
|
|
|
||
|
|
ENDPGM:
|
||
|
|
.dw nativeWord
|
||
|
|
ld sp, (INITIAL_SP)
|
||
|
|
xor a
|
||
|
|
ret
|
||
|
|
|
||
|
|
forthMain:
|
||
|
|
ld (INITIAL_SP), sp
|
||
|
|
ld hl, INTERPRET ; last entry in hardcoded dict
|
||
|
|
ld (CURRENT), hl
|
||
|
|
ld hl, FORTH_RAMEND
|
||
|
|
ld (HERE), hl
|
||
|
|
ld ix, RS_ADDR
|
||
|
|
ld iy, MAIN
|
||
|
|
jp executeCodeLink
|