Ideal
Model Tiny
P186
CodeSeg
Org 100h

Proc        Prog

            mov ax,13h
            int 10h
            mov bx,0A000h
            mov ds,bx

Xloop:      mov [bx],cl
            add bx,bx
            jnc $+5
            xor bl,45
            loop Xloop

            mov cx,-100
            mov ah,1
            int 16h
            jz Xloop

            mov ax,3
            int 10h
            ret

EndP        Prog

End Prog