; ; "99 Stanzas on how to drink beer ;-)" TASM v3.0 (x86 assembler) ; .model tiny .code org 100h start: call print stanza macro howmany,what db '&howmany','&what',13,10 display '&howmany&&what' endm bottles = 99 rept 99 stanza %bottles,< bottles of beer on the wall> stanza %bottles,< bottles of beer> stanza , bottles = bottles-1 stanza %bottles,< bottles of beer on the wall> endm stanza 0,< bottles of beer> stanza , db '$' print: pop dx mov ah,9 int 21h ret end start