BAD_TV

;-----------------------------------------------------------------------------;; ! BaD TV ! ;; 256byte IntrO ;; by Doctor Max / Global Corporation ;; 2:5037/12.27@fidonet ;; Chaos Constructions '999 ;;-----------------------------------------------------------------------------;.modelsmall.386locals.codeorg0100hbegin:moval,13hint10hmovdi,offset CircBufmovsi,offset param0callCircCalcpush0a000hpopesmoval,16+8movcx,-1repstosbmov
bp
,319moval,16+15xordi,dimovcx,bprepstosbmovcl,200callVlinemovdi,(320*7)+15pushdimovcl,185callVlinemovcl,202repstosbmovdi,(320*8)+232movbx,36@@3:pushdimovcl,128callVlinepopdiincdiincdidecbxjnz@@3moval,16+6xordi,dimovcl,199callVlinemovcx,bprepstosbpopdimovcl,201repstosbmovcl,185callVlinemovdi,(320*132)+236movsi,offset param1callCircCalcmoval,16+15movdi,(320*137)+266movah,5@@12:pushdimovcl,55callVlinepopdiincdidecahjnz@@12@@mlp:movdx,03dah@@v0:inal,dxtestal,8jnz@@v0@@v1:inal,dxtestal,8jz@@v1movdi,320*8+16movsi,offset CircBufmovdl,200-16@@l1:movcx,200@@l0:lodsbaddal,blxoral,clxoral,dladdal,ahmovah,alrcral,1addax,bpstosbloop@@l0adddi,320-200decdljnz@@l1subbl,3incbpinal,60hdecaljnz@@mlpmovax,3int10hretVline:@@0:stosbadddi,bploop@@0ret;si - parameters stringCircCalc:movbh,[si]@@l1:movbl,[si]@@l0:moval,blimulalmovdx,axmoval,bhimulaladdax,dxcmpax,[si+2]jg@@skshrax,5addal,16@@n:moves:[di],al@@sk:incdiincblcmpbl,[si+1]jnz@@l0adddi,[si+4]incbhcmpbh,bljnz@@l1retparam0db-100,100dw16384,0param1db-32,32dw576,320-64CircBufdb' MaX'end begin