;                          R E D   S E C T O R   I N C

;b equ byte  ; Sunroad by Baudsurfer/rsi 2015 (aka olivier.poudade.free.fr)
;w equ word  ; A 128 bytes intro with sound tested on XPSP3 and Virtual Box
;d equ dword ; Presented first Outline demoparty in Willemsoord/Netherlands
;i equ 095h  ; greet Blabla Bon^2 DESiRE Live! MNDRN Onslaught RZR1911 TRBL
;t equ 46ch  ; UkkO Ggn Fra Den g0blinish Sensenstahl & all assembly coders
org 100h
mov dx,331h
mov al,3fh
out dx,al
dec dx
mov d[si],009a7dcah
mov cl,8
rep outsb
mov al,93h
int 10h
les bx,[bx]
mov si,140h
a:mov cl,0ffh
c:lea ax,[di-10h]
xor dx,dx
div si
mov bx,cx
not bl
call h
xchg ax,dx
call h
mov al,bl
shr al,1
add bl,b[fs:t]
jns e
neg al
e:sub ah,al
mov al,dh
shld bp,bx,8
sub dh,[bp]
and dh,bl
and dh,ah
xor dh,al
and dh,60h
loopz c
jz f
test al,al
jns f
xor al,bl
xor al,ah
aad 8
xlatb
and al,0a0h
add ax,cx
jmp g
f:mov ax,di
shr ax,6
add ax,500h
g:shr ax,5
adc al,16
stosb
jmp a
h:sub ax,8ch
imul ax,bx
add ah,i
ret