; Floorcast64 by Baudsurfer/rsi 2014 aka olivier.poudade.free.fr
; A 64 bytes animated textured planes tested on XPSP3 and DOSBox
; 128 bytes versions : http://www.pouet.net/prod.php?which=10786
;                      http://www.pouet.net/prod.php?which=63271
org 100h
mov al,13h
int 10h
les cx,[bx]
frame:mov di,10h
mov si,0fa0fh
mov bp,64h
yloop:mov sp,0a0h
xloop:mov ax,5454h
cwd
div bp
mov bh,al
mul sp
mov al,ah
add bh,cl
xor al,bh
shr al,4
add al,10h
stosb
mov [es:si],al
dec si
dec sp
cmp sp,0ff60h
jnz xloop
dec bp
cmp bp,10h
jnc yloop
in ax,60h
dec ax
loopnz frame
int 20h