Mayan by Red Sector Inc. [web]
; Mayan by Baudsurfer/rsi 2014 aka olivier.poudade.free.fr ; A 128 bytes intro with sound tested on XPSP3 and DOSBox ; Presented at Outline demoparty in Eersel/The Netherlands ; P.S : prefer XPSP3 and turn volume to the maximum please ; Greets to UkkO Ggn Fra Den and assembly language lovers org 100h mov al,13h int 10h les bp,[bx] mov dx,G mov ax,251ch int 21h A:mov cl,0ffh lahf B:mov bl,cl not bl cwd lea ax,[di-10h] mov bp,140h div bp call F call F mov al,byte [fs:46ch] add bl,al add bl,ah test al,20h jnz C add dh,cl C:test al,40h jnz D add dh,al D:mov dl,ah shld bp,bx,0ah sub ah,[bp] and ah,dh xor ah,dl test si,200h jnz E and ah,bl E:and ah,20h loopz B mov al,dl inc ax mul dh mul bl stosb jmp A F:sub ax,64h imul ax,bx add ah,13h xchg ax,dx ret G:lodsb mov dx,331h mov al,3fh out dx,al dec dx mov al,99h out dx,al mov ax,si test al,dh jnz H and al,4 sahf adc al,31 out dx,al out dx,al H:iret
[ back to the prod ]