t equ 80h  ; Axon by Baudsurfer/rsi 2015 aka olivier.poudade.free.fr
w equ word ; A 256 bytes intro with sound tested on XPSP3 and DOSBox
b equ byte ; Presented at 7DX 2015 The Last Party in Istanbul/Turkey
org 100h ; RSi greets Blabla Bon^2 DESiRE Live! MNDRN RZR1911 TRBL
mov al,13h
int 10h
les dx,[bx]
mov dx,k
mov ax,251ch
int 21h
a:mov cl,0ffh
c:mov bl,cl
not bl
cwd
lea ax,[di-10h]
mov bp,140h
div bp
call i
call i
test b [t+1],1
jnz d
xchg dh,ah
d:mov al,b [t]
add bl,al
sub al,10h
test al,40h
jz e
add dh,al
e:mov al,dh
shld bp,bx,0ah
sub dh,b [bp]
xor dh,ah
and dh,bl
xor al,bl
xor al,ah
aam 8
and dh,20h
loopz c
and al,4
mul cl
shr al,4
add al,10h
stosb
test di,di
jnz a
mov si,o+10h
mov bl,5
f:lodsb
mov cl,al
lodsw
mov di,ax
g:lodsb
shld bp,ax,0ch
and bp,0eh
and al,1fh
mov ch,al
h:add di,w [bp+o]
mov al,0fh
stosb
dec ch
jnz h
loop g
dec bx
jnz f
in ax,60h
daa
jns a
i:xchg ax,dx
sub ax,64h
j:imul ax,bx
add ax,[si]
ret
k:mov dx,331h
mov al,3fh
out dx,al
dec dx
mov al,99h
out dx,al
mov ax,w [fs:46ch]
mov [cs:t],ax
test al,dh
jnz n
and al,6
xor b [cs:l+1],al
l:adc al,20h
out dx,al
jp m
call j
m:out dx,al
n:iret
o db 0bfh,0feh,0c0h,0feh,0,0,40h,1,3fh,1,3eh,1,0feh,0ffh,0beh,0feh,6,0eeh,2ah
db 0cbh,3dh,6fh,0a5h,0eah,0b2h,0ch,4ah,0eh,26h,69h,2eh,8ah,0aah,69h,0a6h
db 0e9h,0aeh,0ah,2ah,0e9h,4,0a1h,19h,33h,73h,0b3h,0f3h,4,0aah,19h,2ah,6ah
db 0aah,0eah,0bh,61h,35h,0f4h,90h,0c8h,0ch,26h,0e6h,0ah,74h,0dh,48h,9fh