1
Projects / Re: Sphere-o-dots
« on: February 29, 2016 »
Looks good indeed.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

It seems this is the official "Merry Christmas" thread
So, Merry Christmas to you all, and God bless you and your family!
And for those sparing some time to make an intro, I can only say - Thank you!
It's never too late to thumb it up of course


; 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
org 100h
mov al,13h
int 10h
les cx,[bx]
frame:mov di,10h
mov si,0fa0fh
mov bp,64h
yloop:mov sp,0a0h
xloop:mov ax,5454h
cwd
div bp
mov bh,al
mul sp
mov al,ah
add bh,cl
xor al,bh
shr al,4
add al,10h
stosb
mov [es:si],al
dec si
dec sp
cmp sp,0ff60h
jnz xloop
dec bp
cmp bp,10h
jnc yloop
in ax,60h
dec ax
loopnz frame
int 20h