samples/procgcd.asm

   1 .model      small
   2 .code
   3         push    br1
   4         push    br2
   5         call gcd
   6         pop rez
   7 end1:
   8         print_num rez
   9         nop
  10
  11 gcd     proc
  12         pop ax ;mov ax,[bp+8]
  13         pop bx ;mov bx,[bp+6]
  14 compare:
  15             cmp   ax,bx
  16             je    endp
  17             cmp   ax,bx
  18             ja    greater
  19             sub   bx,ax
  20             jmp   compare
  21
  22 greater:
  23             sub   ax,bx
  24             jmp   compare
  25
  26 endp:
  27         push ax ;result
  28             ret
  29 gcd     endp
  30
  31 .data
  32         br1 dw 12
  33         br2 dw 8
  34         rez dw 0
  35 .stack
  36 end