gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
version 0.81
[asm2wsl.git] / samples / gcd-predef.asm
1 .model small
2 data segment
3 strNZD db " "
4 data ends
5 ;#macros-removed-from-listing
7 .code
9 start:
10 mov ax,12
11 mov bx,8
13 compare:
14 cmp ax,bx
15 je exit ;exit since they're equal
16 ja greater
17 sub bx,ax
18 jmp compare
20 greater:
21 sub ax,bx
22 jmp compare
24 exit:
25 ;exit out of the program
26 print_num ax
27 ; print out a result
28 end_execution
30 .stack
31 end start
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner