aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/base.asm
blob: 5f686b68f164420bc87b01386b79c3a5841e69cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; ( -- a-addr ) 
; Numeric IO
; location of the cell containing the number conversion radix

.if cpu_msp430==1
    HEADER(XT_BASE,4,"base",DOUSER)
.endif

.if cpu_avr8==1
VE_BASE:
    .dw $ff04
    .db "base"
    .dw VE_HEAD
    .set VE_HEAD = VE_BASE
XT_BASE:
    .dw PFA_DOUSER
PFA_BASE:
.endif
    .dw USER_BASE