pouët.net

Обои

; Oboyi (Wallpaper)
; 31 byte intro for MS-DOS (and first one)
; Shows a bunch of seemingly different stuff, some of which may resemble actual lowres gfx.
; by Tesseract <CyberTesseract@inbox.ru>

org 0x100
	mov al,0x13
	int 0x10
	push 0x9FBA
	pop es
.0:	salc
.1:	inc ax
	add ax,cx
.2:	aam 0x01 ; the aam parameter is used as an iteration counter (the intro will crash if you watch it long enough :)
	stosb
	loop .1
	inc byte [bp+si] 
	jnz .0 ; timing
	inc byte [si+0xD]
	in al,0x60
	dec al
	jnz .0
	ret