aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/and.asm
blob: ed316687406c93387e20d1b1d74d9a18ad0e2478 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( n1 n2 -- n3 ) 
; Logic
; bitwise and
VE_AND:
    .dw $ff03
    .db "and",0
    .dw VE_HEAD
    .set VE_HEAD = VE_AND
XT_AND:
    .dw PFA_AND
PFA_AND:
    ld temp0, Y+
    ld temp1, Y+
    and tosl, temp0
    and tosh, temp1
    jmp_ DO_NEXT