gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
version 0.81
[asm2wsl.git] / samples / rek-gcd-predef.asm
diff --git a/samples/rek-gcd-predef.asm b/samples/rek-gcd-predef.asm
new file mode 100644 (file)
index 0000000..62bd88d
--- /dev/null
@@ -0,0 +1,41 @@
+.model      small     \r
+;recursive version of GCD, predefined input\r
+data segment\r
+  strNZD db "        "\r
+data ends\r
+;#macros-removed-from-listing
+\r
+.code\r
+    \r
+start:\r
+    push 8\r
+    push 12\r
+    call gcd\r
+    pop ax\r
+       print_num ax\r
+; print out a result\r
+    end_execution\r
+    \r
+;volatile procedure, ruins ax,bx,cx\r
+gcd proc\r
+    ;get params\r
+    pop ax\r
+    pop bx\r
+    cmp ax,bx\r
+    je endequal\r
+    ja greatera\r
+    ;ensure ax is greater\r
+    xchg ax,bx          \r
+greatera:\r
+    sub ax,bx\r
+    push bx\r
+    push ax\r
+    call gcd\r
+    pop ax;result\r
+    \r
+endequal:\r
+    push ax; result\r
+    ret\r
+gcd endp\r
+.stack\r
+end start\r
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner