samples/rek-gcd-predef.asm

   1 .model      small
   2 ;recursive version of GCD, predefined input
   3 data segment
   4   strNZD db "        "
   5 data ends
   6 ;#macros-removed-from-listing
   7
   8 .code
   9
  10 start:
  11     push 8
  12     push 12
  13     call gcd
  14     pop ax
  15         print_num ax
  16 ; print out a result
  17     end_execution
  18
  19 ;volatile procedure, ruins ax,bx,cx
  20 gcd proc
  21     ;get params
  22     pop ax
  23     pop bx
  24     cmp ax,bx
  25     je endequal
  26     ja greatera
  27     ;ensure ax is greater
  28     xchg ax,bx
  29 greatera:
  30     sub ax,bx
  31     push bx
  32     push ax
  33     call gcd
  34     pop ax;result
  35
  36 endequal:
  37     push ax; result
  38     ret
  39 gcd endp
  40 .stack
  41 end start