daily pastebin goal
20%
SHARE
TWEET

gcdD_C

Zeda May 31st, 2016 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     gcdD_C:
  2.     ;gcd(D,C)->HL
  3.     ;binary GCD algorithm
  4.         ld a,d \ or a \ ret z
  5.         ld a,c \ or a \ ret z
  6.         cp d \ ret z
  7.         ld b,1
  8.         or d \ rra \ jr c,+_
  9.         inc b \ rr d \ rr c
  10.         ld a,d \ or c \ rra \ jr nc,$-8
  11.     _:
  12.         srl d \ jr nc,$-2
  13.         rl d
  14.         ld a,c
  15.     _:
  16.         rra \ jr nc,$-1
  17.         rla
  18.         sub d
  19.         jr z,+_
  20.         jr nc,-_ \ neg
  21.         ld c,d
  22.         ld d,a
  23.         ld a,c
  24.         jp -_
  25.     _:
  26.         ld a,d
  27.         add a,a
  28.         djnz $-1
  29.         ret
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top