home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / dc / gcd.dc < prev    next >
Encoding:
Text File  |  1987-09-13  |  296 b   |  19 lines
  1. 0 def 10    ; number A
  2. 1 def 3     ; number B
  3. 2 def 1     ; constant 1
  4. 3 lda 0     ; begin
  5. 4 sub 1
  6. 5 jms 12    ; A>B ?
  7. 6 sub 2
  8. 7 jms 16    ; A=B ?
  9. 8 lda 0     ; A>B
  10. 9 sub 1
  11. 10 sta 0
  12. 11 jmp 3
  13. 12 lda 1    ; A<B
  14. 13 sub 0
  15. 14 sta 1
  16. 15 jmp 3
  17. 16 lda 0    ; GCD   AC
  18. 17 jmp 17   ; end
  19.