home *** CD-ROM | disk | FTP | other *** search
- kulma dw 0
- col db 0
- ada dd 0
- adas dd 0
- pl_des1 db 0
- pl_des2 db 0
- ropurax db 0
- ropuray db 0
-
- ;------------------------------------------------------------------------
- plasma proc far
- mov ax,seg tila
- mov es,ax
- mov di,offset tila
-
- mov pl_des1,0
-
- xor bx,bx
- xor dx,dx
- xor cx,cx
- xor ax,ax
- x_lupi:
- mov bl,byte ptr kulma
- add bl,cl
- add bl,sin2[bx]
- xor bl,ch
- xor bl,ropuray
- mov al,cos2[bx]
-
- add bl,ch
- add bl,cos2[bx]
- xor bl,ropurax
- add al,sin2[bx]
-
- ;ååååååååååååååååååååååååååååååååååååååå
- shr al,1
- sub al,64
- jns fof
- xor al,al
- fof:
-
- stosb
-
- add ropurax,5
- adc ropuray,0
-
- inc cx
- jnz x_lupi
-
- add byte ptr kulma,-2
-
- ret
- plasma endp
-
-