mirror of
https://github.com/mgcaret/of816.git
synced 2024-11-04 21:07:09 +00:00
41 lines
1.0 KiB
ArmAsm
41 lines
1.0 KiB
ArmAsm
|
.p816
|
||
|
|
.a16
|
||
|
|
.i16
|
||
|
|
.include "macros.inc"
|
||
|
|
.import _Forth_initialize
|
||
|
|
.import _Forth_ui
|
||
|
|
.import _system_interface
|
||
|
|
|
||
|
|
.pushseg
|
||
|
|
.segment "FStartup"
|
||
|
|
.proc startup
|
||
|
|
clc
|
||
|
|
xce
|
||
|
|
rep #SHORT_A|SHORT_I
|
||
|
|
lda #$0300 ; direct page for Forth
|
||
|
|
tcd
|
||
|
|
lda #.hiword($020000) ; top of dictionary memory
|
||
|
|
pha
|
||
|
|
lda #.loword($020000)
|
||
|
|
pha
|
||
|
|
lda #.hiword($010000) ; bottom of dictionary
|
||
|
|
pha
|
||
|
|
lda #.loword($010000)
|
||
|
|
pha
|
||
|
|
lda #$0300 ; first usable stack cell (relative to direct page)
|
||
|
|
pha
|
||
|
|
lda #$0100 ; last usable stack cell+1 (relative to direct page)
|
||
|
|
pha
|
||
|
|
lda #$09FF ; return stack first usable byte
|
||
|
|
pha
|
||
|
|
lda #.hiword(_system_interface)
|
||
|
|
pha
|
||
|
|
lda #.loword(_system_interface)
|
||
|
|
pha
|
||
|
|
jsl _Forth_initialize
|
||
|
|
jsl _Forth_ui
|
||
|
|
brk
|
||
|
|
.byte $00
|
||
|
|
.endproc
|
||
|
|
.popseg
|