2019-11-20 18:22:11 -08:00
|
|
|
.p816
|
|
|
|
|
.a16
|
|
|
|
|
.i16
|
|
|
|
|
.include "macros.inc"
|
2019-12-01 00:41:06 -08:00
|
|
|
.include "./Neon816-hw.inc"
|
2019-11-20 18:22:11 -08:00
|
|
|
.import _Forth_initialize
|
|
|
|
|
.import _Forth_ui
|
|
|
|
|
.import _system_interface
|
|
|
|
|
|
|
|
|
|
.pushseg
|
|
|
|
|
.segment "FStartup"
|
|
|
|
|
.proc startup
|
|
|
|
|
clc
|
|
|
|
|
xce
|
2019-12-04 21:18:42 -08:00
|
|
|
phk
|
|
|
|
|
plb
|
2019-11-30 21:09:35 -08:00
|
|
|
rep #SHORT_A|SHORT_I
|
|
|
|
|
.a16
|
|
|
|
|
.i16
|
|
|
|
|
lda #$0000 ; direct page for Forth
|
2019-11-20 18:22:11 -08:00
|
|
|
tcd
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #.hiword(Neon_RAM1+$020000) ; top of dictionary memory
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #.loword(Neon_RAM1+$020000)
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #.hiword(Neon_RAM1+$010000) ; bottom of dictionary
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #.loword(Neon_RAM1+$010000)
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #$0400 ; first usable stack cell (relative to direct page)
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #$0204 ; last usable stack cell+1 (relative to direct page)
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
2019-12-04 21:18:42 -08:00
|
|
|
lda #$01EF ; return stack first usable byte
|
2019-11-20 18:22:11 -08:00
|
|
|
pha
|
|
|
|
|
lda #.hiword(_system_interface)
|
|
|
|
|
pha
|
|
|
|
|
lda #.loword(_system_interface)
|
|
|
|
|
pha
|
|
|
|
|
jsl _Forth_initialize
|
|
|
|
|
jsl _Forth_ui
|
2019-12-04 21:18:42 -08:00
|
|
|
jmp startup
|
2019-11-20 18:22:11 -08:00
|
|
|
.endproc
|
|
|
|
|
.popseg
|
