aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/or.asm
blob: 24bc2684049c370f05d20e26793e8297dc93b74a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( n1 n2 -- n3 ) 
; Logic
; logical or
VE_OR:
    .dw $ff02
    .db "or"
    .dw VE_HEAD
    .set VE_HEAD = VE_OR
XT_OR:
    .dw PFA_OR
PFA_OR:
    ld temp0, Y+
    ld temp1, Y+
    or tosl, temp0
    or tosh, temp1
    jmp_ DO_NEXT