LogoopenSUSE Build Service > Projects
Sign Up | Log In

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

; Gerade Zahlen rueckwaerts
in a
; gerade machen
ld a
mod 2
cmp 0
ld a
jeq weiter
sub 1
; rueckwaerts zaehlen
st b :weiter
out b
sub 2
cmp 0
jgt weiter
end