words/2star.asm

Jump to Vocabulary

; ( n1 -- n2 ) Arithmetics
; R( -- )
; arithmetic shift left
VE_2STAR:
    .db $02, "2*", 0
    .dw VE_HEAD
    .set VE_HEAD = VE_2STAR
XT_2STAR:
    .dw PFA_2STAR
PFA_2STAR:
    lsl tosl
    rol tosh
    rjmp DO_NEXT

Jump to Vocabulary