pouët.net

Go to bottom

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
Go to top