aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/uinit.asm
blob: eb4c0586adb0a6b5cb35125fae0f030713f117fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
;Z uinit    -- addr  initial values for user area
; MSP430: we also use this to initialize the RAM interrupt
; vectors, which immediately follow the user area.
; Per init430f1611.s43, allocate 16 cells for user
; variables, followed by 30 cells for interrupt vectors.
    HEADER(XT_UINIT,5,"uinit",DOROM)
; CFG Area
	DW 2,XT_REC_FIND,XT_REC_NUM,0,0
	DW 1,CFG_FORTHWID,0,0,0,0,0,0,0
	DW XT_APPLTURNKEY ; TURNKEY vector
	DW RAMDICT        ; HERE / DP
	DW ROMDICT        ; IHERE / IDP
	DW INFODICT       ; INFOHERE / INFODP
	DW CFG_FORTHWID   ; CURRENT
	DW lastword       ; FORTH WID
        DW lastenv        ; environment WID
        DW XT_GET_CURRENT ; wlscope
	DW CFG_RECOGNIZERLISTLEN ; FORTH-RECOGNIZER

.if WANT_INTERRUPTS==1
	DW XT_NOOP,XT_NOOP,XT_NOOP,XT_NOOP,XT_NOOP
	DW XT_NOOP,XT_NOOP,XT_NOOP,XT_NOOP,XT_NOOP
.endif

; USER Area
	DW 0,0          ; STATE/FOLLOWER
	DW 0,0,0        ; RP,SP0, SP
        DW 0            ; HANDLER
	DW 10           ; BASE
	DW XT_USART_TX_POLL
	DW XT_USART_TXQ_POLL
	DW XT_USART_RX_POLL
	DW XT_USART_RXQ_POLL
	DW XT_SOURCETIB
	DW 0            ; >IN
	DW XT_REFILLTIB
	DW XT_DEFAULT_PROMPTOK
	DW XT_DEFAULT_PROMPTERROR
	DW XT_DEFAULT_PROMPTREADY