Team OS/2 Italia - Developer Assistant

;
; Macros
;


PutMessage          macro
                    push      eax
                    call      strlen
                    push      eax
                    push      stdout
                    call      DosPutMessage
                    add       esp,12
                    endm
                    
Write               proc
                    PutMessage
                    ret
Write               endp

strlen              proc
                    mov       edi,eax
                    mov       ecx,-1
                    xor       al,al
                    repne     scasb
                    mov	eax,ecx
                    inc       eax
                    not       eax
                    ret
strlen              endp