org 100h
           mov ax, 3
           int 10h
           mov ax, 0b800h
           mov ds, ax
           mov ah, 1
           mov ch, 00100000b
           int 10h
           xor si, si
           xor di, di

msgloop:    mov al, [cs:message+si]
            mov [di], al
            inc di
            inc di
            inc si
            and si, 7
            cmp di, 80*24*2
            jne msgloop

           xor ch, ch
clrloop2:  xor ax, ax
           mov di, 1
clrloop:   mov cl, ah
           xor cl, al
           add cl, ch
           and cl, 31
;           cmp cl, 15
;           jng noblack
;            xor cl, cl
noblack:   mov [di], cl
           inc al
           inc di
           inc di
           cmp al, 80
           jne clrloop
           xor al, al
           inc ah
           cmp ah, 24
           jne clrloop
           inc ch

           push cx
           xor ah, ah
           int 1ah
           mov bx, dx
           inc bx
waitfor:   xor ah, ah
           int 1ah
           cmp dx, bx
           jng waitfor
           mov ah, 1
           pop cx
           int 16h
           jz clrloop2

           mov ah, 2 
           xor bx, bx
           mov dl, 0
           mov dh, 24
           int 10h

           mov ax, cs
           mov ds, ax
           mov dx, endmsg
           mov ax, 900h
           int 21h
           
           mov ax, 4c00h
           int 21h

message db 'BUTTSEX '
;message db 'OoOoOoOo'


endmsg db 'Heil XOR..', 10, 10, 13, "Inhahe '98", 13, 10, '$'