Axon by Red Sector Inc. [web]
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
[ back to the prod ]