LogoopenSUSE Build Service > Projects
Sign Up | Log In

View File bitshift.ass of Package MOPS (Project home:jnweiger)

; (c) 2013 jw@suse.de
; bitshift
in a
ld a


mul 2 :LeftShift
st a
out a
cmp 1000
jlt LeftShift


div 2 :RightShift
st a
out a
cmp 0
jgt RightShift
end