cr eq 0dh
lf eq 0ah
dbl macro text
     db text,cr,lf
endm

FBuf  db  8 dup (' ')
dbl 'Perl ist toll!'
RetAll equ 03398h
Test equ 33
mov ax,Test
mov dx,FBuf
jz RetAll
dec dx
jnz FBuf+2
ret