version 0.81

[asm2wsl.git] / samples / procgcd.asm

diff --git a/samples/procgcd.asm b/samples/procgcd.asm
new file mode 100644 (file)
index 0000000..63b4ea3
--- /dev/null
+++ b/samples/procgcd.asm
@@ -0,0 +1,36 @@
+.model      small\r
+.code      \r
+        push   br1\r
+       push    br2\r
+       call gcd\r
+       pop rez\r
+end1:\r
+       print_num rez\r
+       nop\r
+\r
+gcd    proc\r
+       pop ax ;mov ax,[bp+8]\r
+       pop bx ;mov bx,[bp+6]\r
+compare:    \r
+            cmp   ax,bx\r
+            je    endp\r
+            cmp   ax,bx\r
+            ja    greater\r
+            sub   bx,ax\r
+            jmp   compare\r
+\r
+greater:\r
+            sub   ax,bx\r
+            jmp   compare\r
+\r
+endp:\r
+       push ax ;result\r
+           ret\r
+gcd    endp\r
+\r
+.data\r
+       br1 dw 12\r
+       br2 dw 8\r
+       rez dw 0 \r
+.stack\r
+end\r