mirror of https://github.com/nmlgc/ReC98.git
309 lines
4.5 KiB
NASM
309 lines
4.5 KiB
NASM
E87_PROG segment para public 'CODE' use16
|
||
assume cs:E87_PROG
|
||
assume es:nothing, ss:nothing, ds:_STACK, fs:nothing, gs:nothing
|
||
noemul
|
||
|
||
e87trap_10070:
|
||
pop di
|
||
pop es
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
pop si
|
||
pop ds
|
||
clc
|
||
retf
|
||
|
||
e87trap_10079:
|
||
mov al, ds:__emu+2
|
||
mov ah, ds:__emu
|
||
db 0CDh, 037h, 0E2h ; Hack (we need an emulated FNCLEX here)
|
||
test ah, 80h
|
||
jz short e87trap_10070
|
||
not al
|
||
and al, ah
|
||
jmp e87trap_101C5
|
||
|
||
e87trap_1008F:
|
||
les di, [si+6]
|
||
test bl, 8
|
||
jnz short e87trap_1009F
|
||
mov bx, es
|
||
and bx, 0F000h
|
||
mov es, bx
|
||
assume es:nothing
|
||
|
||
e87trap_1009F:
|
||
test byte ptr es:[di], 80h
|
||
jnz short e87trap_100A6
|
||
inc di
|
||
|
||
e87trap_100A6:
|
||
mov bx, es:[di]
|
||
xchg bh, bl
|
||
jmp short e87trap_100F6
|
||
; END OF FUNCTION CHUNK FOR e087_Trap
|
||
jmp short e87trap_10111
|
||
nop
|
||
|
||
|
||
public e087_Trap
|
||
e087_Trap proc far
|
||
|
||
; FUNCTION CHUNK AT 0000 SIZE 0000003D BYTES
|
||
|
||
push ds
|
||
push si
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push es
|
||
push di
|
||
mov ds, ax
|
||
mov al, ds:__emu+6
|
||
or al, al
|
||
mov bx, ax
|
||
jz short e87trap_10079
|
||
mov si, (offset __emu+13h)
|
||
fnstenv byte ptr [si]
|
||
wait
|
||
mov ax, [si+2]
|
||
test al, 80h
|
||
jz short e87trap_10070
|
||
fclex
|
||
mov dx, ax
|
||
mov al, [si]
|
||
mov dh, dl
|
||
or al, 40h
|
||
and dl, al
|
||
and dl, 7Fh
|
||
mov [si+2], dl
|
||
wait
|
||
fldenv byte ptr [si]
|
||
not al
|
||
and al, dh
|
||
or bx, word ptr ds:__emu+7
|
||
cmp bl, 3
|
||
jge short e87trap_1008F
|
||
mov bx, [si+8]
|
||
|
||
e87trap_100F6:
|
||
and bh, 7
|
||
mov dh, bl
|
||
and dh, 0C0h
|
||
cmp dh, 0C0h ; 'À'
|
||
jz short e87trap_10106
|
||
and bl, 38h
|
||
|
||
e87trap_10106:
|
||
wait
|
||
sti
|
||
test al, 1
|
||
jz short e87trap_10111
|
||
mov al, 40h ; '@'
|
||
jmp e87trap_101C5
|
||
|
||
e87trap_10111:
|
||
test al, 2
|
||
jz short e87trap_1016A
|
||
mov cx, 8
|
||
|
||
e87trap_10118:
|
||
call e87trap_101D8
|
||
wait
|
||
fincstp
|
||
loop e87trap_10118
|
||
mov ax, bx
|
||
shr ax, 1
|
||
and al, 9Ch
|
||
cmp al, 80h ; '€'
|
||
jz short e87trap_10132
|
||
cmp al, 94h ; '”'
|
||
jz short e87trap_10132
|
||
and al, 98h
|
||
cmp al, 8
|
||
|
||
e87trap_10132:
|
||
jz short e87trap_10168
|
||
fnstcw word ptr ds:__emu+31h
|
||
wait
|
||
or ds:__emu+31h, 2
|
||
wait
|
||
fldcw word ptr ds:__emu+31h
|
||
les di, [si+0Ah]
|
||
assume es:nothing
|
||
cmp bx, 30h ; '0'
|
||
jnz short e87trap_10151
|
||
wait
|
||
fld dword ptr es:[di]
|
||
jmp short e87trap_1015B
|
||
|
||
e87trap_10151:
|
||
cmp bx, 430h
|
||
jnz short e87trap_10161
|
||
wait
|
||
fld qword ptr es:[di]
|
||
|
||
e87trap_1015B:
|
||
call e87trap_101D8
|
||
mov bx, 0DEF9h
|
||
|
||
e87trap_10161:
|
||
wait
|
||
mov di, word ptr ds:__emu+0Dh
|
||
jmp short e87trap_1019B
|
||
|
||
e87trap_10168:
|
||
jmp short e87trap_101B3
|
||
|
||
e87trap_1016A:
|
||
mov ah, ds:__emu+2
|
||
not ah
|
||
and ah, al
|
||
and ah, 7Fh
|
||
jnz short e87trap_101C5
|
||
test al, 5
|
||
jnz short e87trap_10189
|
||
test al, 18h
|
||
jz short e87trap_101B7
|
||
mov ax, bx
|
||
shr ax, 1
|
||
and al, 0E8h
|
||
cmp al, 88h ; 'ˆ'
|
||
jnz short e87trap_101B7
|
||
|
||
e87trap_10189:
|
||
fnstcw word ptr ds:__emu+31h
|
||
wait
|
||
mov ax, word ptr ds:__emu+31h
|
||
or ds:__emu+31h, 3Fh
|
||
wait
|
||
fldcw word ptr ds:__emu+31h
|
||
|
||
e87trap_1019B:
|
||
push cs
|
||
call near ptr e87trap_10225
|
||
add sp, 0Ah
|
||
fstsw word ptr ds:__emu+31h
|
||
fclex
|
||
mov ax, word ptr ds:__emu+31h
|
||
and al, 3Fh
|
||
or ds:__emu+25h, al
|
||
|
||
e87trap_101B3:
|
||
wait
|
||
fldcw word ptr [si]
|
||
clc
|
||
|
||
e87trap_101B7:
|
||
pop di
|
||
pop es
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
pop si
|
||
pop ds
|
||
jb short e87trap_101C4
|
||
pop ax
|
||
pop ax
|
||
pop ax
|
||
iret
|
||
|
||
e87trap_101C4:
|
||
retf
|
||
|
||
e87trap_101C5:
|
||
xor dx, dx
|
||
mov bx, ax
|
||
|
||
e87trap_101C9:
|
||
inc dx
|
||
shr bx, 1
|
||
jnb short e87trap_101C9
|
||
mov word ptr ds:__emu+9, dx
|
||
mov ax, (offset __emu+9)
|
||
stc
|
||
jmp short e87trap_101B7
|
||
e087_Trap endp ; sp-analysis failed
|
||
|
||
|
||
e87trap_101D8 proc near
|
||
wait
|
||
fxam
|
||
fstsw word ptr ds:__emu+31h
|
||
wait
|
||
mov ah, ds:__emu+32h
|
||
sahf
|
||
jnb short e87trap_101EB
|
||
jnz short e87trap_101ED
|
||
retn
|
||
|
||
e87trap_101EB:
|
||
jz short e87trap_101F2
|
||
|
||
e87trap_101ED:
|
||
jb short e87trap_101F1
|
||
jnp short e87trap_101F9
|
||
|
||
e87trap_101F1:
|
||
retn
|
||
|
||
e87trap_101F2:
|
||
wait
|
||
fstp st
|
||
wait
|
||
fldz
|
||
retn
|
||
|
||
e87trap_101F9:
|
||
wait
|
||
fstp tbyte ptr ds:__emu+27h
|
||
wait
|
||
fild qword ptr ds:__emu+27h
|
||
mov ax, word ptr ds:__emu+2Fh
|
||
mov dx, ax
|
||
and dh, 80h
|
||
wait
|
||
fstp tbyte ptr ds:__emu+27h
|
||
xor ah, dh
|
||
wait
|
||
add ax, word ptr ds:__emu+2Fh
|
||
sub ax, 403Eh
|
||
xor ah, dh
|
||
mov word ptr ds:__emu+2Fh, ax
|
||
wait
|
||
fld tbyte ptr ds:__emu+27h
|
||
retn
|
||
e87trap_101D8 endp
|
||
|
||
|
||
e87trap_10225 proc far
|
||
mov word ptr ds:__emu+0Dh, di
|
||
mov dx, 0EA90h
|
||
push dx
|
||
mov dx, bx
|
||
and bl, 0C0h
|
||
cmp bl, 0C0h ; 'À'
|
||
jz short e87trap_1023A
|
||
or dl, 7
|
||
|
||
e87trap_1023A:
|
||
or dh, 0D8h
|
||
xchg dh, dl
|
||
push dx
|
||
mov dx, 269Bh
|
||
push dx
|
||
mov dx, ss
|
||
xor dx, word ptr ds:__emu+7
|
||
push dx
|
||
mov dx, sp
|
||
add dx, 2
|
||
push dx
|
||
les bx, [si+0Ah]
|
||
retf
|
||
e87trap_10225 endp ; sp-analysis failed
|
||
|
||
db 11 dup(0)
|
||
|
||
E87_PROG ends
|