pouët.net

Nightshift by Red Sector Inc. [web]

; Nightshift 128-byte by Baudsurfer/rsi 2013 aka olivier.poudade.free.fr
; Greets to all Pouet and Dark Bit Factory users who program in assembly
; For 9x/2k/xp/DOSBox-0.74/Win7(32-bit). Coded on Core Duo 2GHz /w xpsp3  
; Youtube video :
  org 100h
  mov al,13h
  int 10h
  mov bl,8
  mov di,180h
A:mov ch,1fh
B:mov ax,cx
  stosb
  loop B
  add di,7fh
  dec bx
  jnz A
  dec cx
  les ax,[bx]
  aas 
  rep stosb
C:mov di,1410h
  mov dx,0ffach
D:mov bp,0ff60h
E:fninit
  fild word [si-0fdh]
  mov [si],dx
  fild word [si]
  fdiv st0,st1
  mov [si],bp
  fild word [si]
  fdiv st0,st2
  fldz
  fld st0
  mov al,ch
F:fld st3
  faddp st2,st0
  fadd st0,st2
  fist word [si]
  fld st1
  fistp word [si+1]
  mov bx,[si]
  add bx,word [si+15h]
  cmp al,byte [bx]
  jbe G
  dec ax
  jnz F
G:xor al,bh
  xor al,bl
  and al,11h
  stosb
  inc bp
  cmp bp,0a0h
  jnz E
  inc dx
  cmp dx,54h
  jnz D
  add word [si+15h],101h
  test cl,cl
  js I
  inc ax
  sub ch,al;dec ch
H:sub byte [si+16h],2
I:in ax,60h
  dec ax
  loopnz C
  ret