Dírojed by Řrřola [web]
; Dirojed 32b ; 32 byte intro ; original by T$, optimized 52->32 by Rrrola <rrrola@gmail.com> ; Greets to every x86 coder! S equ 0E5h ; like original ; S equ 0B1h ; vertical "scouts" org 100h ; assumes: ah=0 bx=0 cl>0 di=0FFFEh si=0100h mov al,13h ; (2) int 10h ; (2) lds bx,[bx] ; (2) bx=20CDh ds=9FFFh M: cmp [bx],cl ; (2) adc [bx],ah ; (2) if ([bx] < cl) [bx]++ (first pass increases) imul bx,byte S ; (3) pseudorandom generator: bx = S*bx-1 (works if S%4==1) mov cl,[bx] ; (2) we don't decrease bx yet add cl,[bx+di] ; (2) add cl,[bx-321] ; (4) add cl,[bx+si+63]; (3) cl = ([bx+1]+[bx-1]+[bx-320]+[bx+320]) & 0FFh dec bx ; (1) in al,60h ; (2) standard ESC check dec al ; (2) jnz M ; (2) ret ; (1)
[ back to the prod ]