mirror of
https://github.com/mgcaret/of816.git
synced 2024-05-28 14:41:27 +00:00
GoSXB: easily enable/disable platform dictionary
This commit is contained in:
parent
6d32bf54e3
commit
25e631db8c
|
@ -1,5 +1,7 @@
|
||||||
; Platform support library for GoSXB
|
; Platform support library for GoSXB
|
||||||
|
|
||||||
|
.define platform_dict 1
|
||||||
|
|
||||||
cpu_clk = 8000000
|
cpu_clk = 8000000
|
||||||
|
|
||||||
.enum ACIA
|
.enum ACIA
|
||||||
|
@ -47,6 +49,8 @@ PIA1 = $7FA0
|
||||||
VIA1 = $7FC0
|
VIA1 = $7FC0
|
||||||
VIA2 = $7FE0
|
VIA2 = $7FE0
|
||||||
|
|
||||||
|
|
||||||
|
.if platform_dict
|
||||||
dstart "gosxb"
|
dstart "gosxb"
|
||||||
dchain H_FORTH ; Make branch off the word FORTH
|
dchain H_FORTH ; Make branch off the word FORTH
|
||||||
|
|
||||||
|
@ -58,6 +62,7 @@ dword GOSXB_TEST,"TEST"
|
||||||
eword
|
eword
|
||||||
|
|
||||||
dend
|
dend
|
||||||
|
.endif
|
||||||
|
|
||||||
.proc _system_interface
|
.proc _system_interface
|
||||||
;wdm 3
|
;wdm 3
|
||||||
|
@ -138,6 +143,7 @@ wait: phx ; note 8-bit mode!
|
||||||
|
|
||||||
.proc _sf_post_init
|
.proc _sf_post_init
|
||||||
plx
|
plx
|
||||||
|
.if platform_dict
|
||||||
; Here we make a vocabulary definition for the gosxb dictionary
|
; Here we make a vocabulary definition for the gosxb dictionary
|
||||||
; that we defined at the beginning of this file.
|
; that we defined at the beginning of this file.
|
||||||
ENTER
|
ENTER
|
||||||
|
@ -149,6 +155,7 @@ wait: phx ; note 8-bit mode!
|
||||||
.dword rBODY
|
.dword rBODY
|
||||||
.dword STORE
|
.dword STORE
|
||||||
CODE
|
CODE
|
||||||
|
.endif
|
||||||
jmp _sf_success
|
jmp _sf_success
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user