pouët.net

Bad TV by Frigo

;Bad TV by Frigo
;56 byte intro

org 100h
 mov al,13h
 int 10h
 push word 0a000h
 pop es
 mov ch,77
main:
 mov dx,3dah
vert:
 in al,dx
 and al,8
jz vert
 mov al,cl
 imul ch
 inc ax
 mov cl,al
 xor ah,ah
 add ax,192
 mov bx,ax
draw:
 mov ax,di
 xor dx,dx
 div bx
 mov ax,dx
 mov ah,al
 dec ax
 stosw
 test di,di
jnz draw
 mov ah,1
 int 16h
jz main
 int 20h