blobdistort201

; Blob140; by Optimus/Dirty Minds^Nasty Bugs; compiled with Nasm;; for the Korillaclub competitionorg 100hxchg ax,cxmov al,13hint 10hpush word 08000hpop esmaincyc:mov ax,dixor al,ahand al,63shl al,2stosbloop maincycmov dx,3c8hmov ax,64out dx,alinc dxmov bx,axtimes256:xor al,alout dx,almov al,blshr al,1out dx,alshr al,1out dx,alinc bljnz times256mov bl,64times257:dec blmov al,clout dx,alout dx,almov al,blout dx,aljnz times257; ----------- Sinegen ------------XORDI,DIpush word 09000hpop dspush word 0a000hpop esSingen:MOV[DI],CHADDCX,SIMOVAX,40IMULCXSUBSI,DXINCDIJNZSingenmain:add di,4xor si,simov bl,200yloop:mov cx,320xloop:push sipush dimov si,3xor
bp
,bpnblobs:mov al,blsub al,100sub al,[di]imul almov dx,axmov al,clsub al,160shr di,1sub al,[di+64]imul aladd ax,dxpush bpor al,3mov bp,axxor dx,dxmov ax,65535idiv bppop bpadd bp,axdec sijnz nblobsmov ax,bptest al,128jnz below256push word 08000hpop espop dipop simov al,[es:si+bp]shr al,2push sipush dipush word 0A000hpop esbelow256:or ah,ahjz olalamov al,255olala:pop dipop simov [es:si],alinc sidec cxjnz xloopdec bxjnz yloopMOVDX,3DAhVsync:INAL,DXANDAL,8JZVsyncin al,60hdec axjnz mainmov al,03hint 10hRET