aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/douser.asm
blob: 13476514a53bb88ac5989ece2cb8a05e2b40ffa9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( -- addr )
; System
; runtime part of user
;VE_DOUSER:
;    .dw $ff06
;    .db "(user)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOUSER
XT_DOUSER:
    .dw PFA_DOUSER
PFA_DOUSER:
    savetos
    movw zl, wl
    adiw zl, 1
    readflashcell tosl,tosh
    add tosl, upl
    adc tosh, uph
    jmp_ DO_NEXT