decout:  mov di, decbuff+14
           xor cl, cl
decloop:   mov ebx, 10
           dec di
           mov ebx, 10
           xor edx, edx
           div ebx
           add dl, '0'
           cmp cl, 3
           jne nocomma
            mov byte [di], ','
            dec di
            xor cl, cl
nocomma:   inc cl
           mov [di], dl
           cmp eax, 0
           jne decloop
         mov ax, 900h
         mov dx, di
         int 21h
         ret

decbuff  db '               $'