Author Topic: Mouse controlled 128 byte Wolfenstein  (Read 2399 times)

0 Members and 1 Guest are viewing this topic.

Offline Baudsurfer

  • C= 64
  • **
  • Posts: 46
  • Karma: 18
    • View Profile
    • x86 Assembly language page
Mouse controlled 128 byte Wolfenstein
« 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).

 

 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)
Kind regards
« Last Edit: June 06, 2014 by Baudsurfer »

Offline Kirl

  • Senior Member
  • Pentium
  • ********
  • Posts: 1204
  • Karma: 230
    • View Profile
    • Homepage
Re: Mouse controlled 128 byte Wolfenstein
« Reply #1 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:
www.kirl.nl
Challenge Trophies Won:

Offline Baudsurfer

  • C= 64
  • **
  • Posts: 46
  • Karma: 18
    • View Profile
    • x86 Assembly language page
Re: Mouse controlled 128 byte Wolfenstein
« Reply #2 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.

Offline Raizor

  • Founder Member
  • Pentium
  • ********
  • Posts: 1153
  • Karma: 174
    • View Profile
Re: Mouse controlled 128 byte Wolfenstein
« Reply #3 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++
raizor

Challenge Trophies Won:

Offline rain_storm

  • Here comes the Rain
  • DBF Aficionado
  • ******
  • Posts: 3088
  • Karma: 182
  • Rain never hurt nobody
    • View Profile
    • org_100h
Re: Mouse controlled 128 byte Wolfenstein
« Reply #4 on: July 05, 2014 »
Absolutely amazing

Challenge Trophies Won:

Offline bitm0de

  • ZX 81
  • *
  • Posts: 5
  • Karma: 0
    • View Profile
Re: Mouse controlled 128 byte Wolfenstein
« Reply #5 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.

Offline Baudsurfer

  • C= 64
  • **
  • Posts: 46
  • Karma: 18
    • View Profile
    • x86 Assembly language page
Re: Mouse controlled 128 byte Wolfenstein
« Reply #6 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