aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/2spirw.asm
blob: a7064da9c923380c9f47c7db5bb3438fdb0302db (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; ( n1 -- n2 ) 
; MCU
; SPI exchange of 2 bytes, high byte first
VE_2SPIRW:
    .dw $ff05
    .db "!@spi",0
    .dw VE_HEAD
    .set VE_HEAD  = VE_2SPIRW
XT_2SPIRW:
    .dw PFA_2SPIRW
PFA_2SPIRW:
    push tosl
    mov tosl, tosh
    call_ do_spirw
    mov tosh, tosl
    pop tosl
    call_ do_spirw
    jmp_ DO_NEXT