Dark Bit Factory & Gravity

PROGRAMMING => Other languages => ASM => Topic started by: Baudsurfer on June 06, 2014

Title: Mouse controlled 128 byte Wolfenstein
Post by: Baudsurfer on June 06, 2014

Hello DBF !

 This intro was presented in Holland last week-end and came in 2nd place of the combined 128 byte compo (the winner was another intro called Mayan that has sound but only runs on XP).

 (http://www.pouet.net/content/screenshots/63518.png)

 I know it runs fine under DosBOX but I'd love to know if someone is able to run it under Win7 32-bit...

 The source :

 

Code: [Select]

; 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
 

Hope you like it !
 ( Thumb galore : http://www.pouet.net/prod.php?which=63518 (http://www.pouet.net/prod.php?which=63518))
Kind regards

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: Kirl on June 06, 2014

I got the following message in Win7 64: "The version of this file is not compatible with the version of Windows you're running. Check your computer's system information to see whether.... etc."

Looks cool on youtube though and cograts on 2nd!!  :cheers:

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: Baudsurfer on June 08, 2014

Thanks Kirl.

Yes Win7 64, contrary to Win7 32, forbids 16-bit executables, hence why I asked "if someone is able to run it under Win7 32-bit" just to be certain.

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: Raizor on June 17, 2014

On win7 x64 here, so watched the video. Very impressive BaudSurfer! Congratulations on 2nd place, very well  deserved by the look of things. K++

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: rain_storm on July 05, 2014

Absolutely amazing

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: bitm0de on August 31, 2015

I know this is an old thread, but what was your configuration for the DosBOX run? For me it appears to be broken when testing under DosBOX... I just get a bunch of scanlines in black and white.

Title: Re: Mouse controlled 128 byte Wolfenstein
Post by: Baudsurfer on September 13, 2015

Hello 0xDEAD10CC,

 It runs under XP only because it uses Real-Time Clock and DOSBox is not cycle exact sadly.
 If you have freedos you can try Megapole just published today which does not rely on real machine clock here (http://www.dbfinteractive.com/forum/index.php?topic=6449.0)