Voting
Category
assembly language
Bookmarking
Language RosAsm
| Date: | 04/03/06 |
| Author: | James Daughtry |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://betov.free.fr/RosAsm.html |
| Score: |  (3.25 in 4 votes) |
; Macro for CDECL calling convention
[ccall
#if #N=1
#error 'No arguments detected: use call instruction'
#else
&9=0 | ccall2 #1 #L>2
#endif
]
[ccall2 | &9=&9+4 | push #2 | #+1 | call #F | add esp &9]
; Clean termination macro
[exit | push 0 | call 'Kernel32.ExitProcess']
__________________________________________________________
main:
mov ebx,9
L0: ccall beer,ebx
ccall iteration,ebx
; Take a beer down
dec ebx
ccall beer,ebx
call 'msvcrt._fgetchar'
test ebx,ebx | jnz L0<
exit
iteration:
[@msg2: B§ '%d bottles of beer',10,0]
[@msg2b: B§ '1 bottle of beer',0]
[@msg3: B§ 'Take one down, pass it around',0]
cmp D§esp+4,1 | jne L0>
ccall 'msvcrt.puts',@msg2b
jmp L1>
L0: ccall 'msvcrt.printf',@msg2,ebx
L1: ccall 'msvcrt.puts',@msg3
ret
beer:
[@msg1: B§ '%d bottles of beer on the wall',10,0]
[@msg1b: B§ '1 bottle of beer on the wall',0]
[@msg4: B§ 'No more bottles of beer on the wall',0]
cmp D§esp+4,1 | jbe L0>
ccall 'msvcrt.printf',@msg1,ebx
jmp L2>
L0: jne L1>
ccall 'msvcrt.puts',@msg1b
jmp L2>
L1: ccall 'msvcrt.puts',@msg4
L2:
ret
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments