Wolf128 by Red Sector Inc. [web]
; Wolf128 by Baudsurfer/rsi 2014 aka olivier.poudade.free.fr ; A 128 bytes interactive intro tested on XPSP3 and DOSBox ; Presented at Outline demoparty in Eersel/The Netherlands ; 256 bytes versions : ; http://www.pouet.net/prod.php?which=24755 ; http://www.pouet.net/prod.php?which=3396 ; P.S : click left mouse button to start moving in maze ; Greets to UkkO Ggn Fra Den and assembly language lovers org 100h mov al,13h int 10h les dx,[bx] A:mov cl,0ffh B:mov bl,cl not bl lea ax,[di-10h] mov bp,140h cdq div bp call G call G test byte [1dh],7 jz C add dh,[1fh] sub bl,[1eh] jmp short E C:mov dl,[fs:46ch] sub bl,[si] test dl,40h jnz D add dh,dl D:add bl,dl E:shld bp,bx,10 sub dh,[bp] mov al,dh and dh,bl or dh,ah and dh,20h loopz B xor al,bl xor al,ah db 0d4h,10h add al,10h stosb or di,di jnz A mov ax,3 int 33h test bl,al mov [1dh],bl jz F mov [1eh],dl mov [1fh],cl F:in ax,60h dec ax jnz B G:xchg ax,dx sub ax,64h imul ax,bx add ax,[si] ret
[ back to the prod ]