tests
This commit is contained in:
Mario Fetka
6
kern.h
6
kern.h
@@ -17,6 +17,12 @@ extern int KERN_CALL C32_LoadNios_Probe(UI axfunc, void *outbuf);
|
||||
extern int KERN_CALL C32_GetFunc_Probe(char *name, void *outbuf);
|
||||
extern int KERN_CALL C32_CallVersion_Nios_Probe(void *outbuf);
|
||||
extern int KERN_CALL C32_MapLock_Probe(void *ptr, UI len, void *outbuf);
|
||||
extern int KERN_CALL C32_NCP87_Raw_Probe(UI connLo, UI connHi,
|
||||
void *hdr, UI hdrLen,
|
||||
void *path, UI pathLen,
|
||||
void *rep0, UI rep0Len,
|
||||
void *rep1, UI rep1Len,
|
||||
void *outbuf);
|
||||
extern int KERN_CALL Net_Call_VLM_Raw(UI ax, UI bx, UI cx, UI dx,
|
||||
void *req, void *repl,
|
||||
UI p1, UI p2, UI p3);
|
||||
|
||||
337
kern_wasm.asm
337
kern_wasm.asm
@@ -24,6 +24,7 @@ public _C32_LoadNios_Probe
|
||||
public _C32_GetFunc_Probe
|
||||
public _C32_CallVersion_Nios_Probe
|
||||
public _C32_MapLock_Probe
|
||||
public _C32_NCP87_Raw_Probe
|
||||
public _Net_Call_VLM_Raw
|
||||
|
||||
_IPXinit proc far
|
||||
@@ -708,4 +709,340 @@ mapflat_store:
|
||||
_C32_MapLock_Probe endp
|
||||
|
||||
|
||||
; int C32_NCP87_Raw_Probe(UI connLo, UI connHi,
|
||||
; void *hdr, UI hdrLen,
|
||||
; void *path, UI pathLen,
|
||||
; void *rep0, UI rep0Len,
|
||||
; void *rep1, UI rep1Len,
|
||||
; void *outbuf)
|
||||
;
|
||||
; Specialized raw Client32 NCP87/S6 request probe.
|
||||
; Reproduces d32wrap.o _COMPATNcpRequestReply mechanics:
|
||||
; - INT 2F AX=D8C1
|
||||
; - resolve COMPATNcpRequestReply via ESI resolver
|
||||
; - MapLockFlat each fragment data buffer
|
||||
; - build flat 8-byte frag tables
|
||||
; - MapLockFlat frag tables and actualReplyLen
|
||||
; - call ECX NIOS trampoline with command 8 and COMPATNcpRequestReply pointer
|
||||
; - unlock mappings
|
||||
;
|
||||
; outbuf:
|
||||
; +00 load AX
|
||||
; +02 resolver off
|
||||
; +04 resolver seg
|
||||
; +06 trampoline off
|
||||
; +08 trampoline seg
|
||||
; +0A function off
|
||||
; +0C function seg
|
||||
; +0E ret AX
|
||||
; +10 ret DX
|
||||
; +12 actualReplyLen low
|
||||
; +14 actualReplyLen high
|
||||
_C32_NCP87_Raw_Probe proc far
|
||||
push bp
|
||||
mov bp, sp
|
||||
sub sp, 100
|
||||
|
||||
push ds
|
||||
push es
|
||||
push si
|
||||
push di
|
||||
|
||||
; clear ESI/ECX
|
||||
db 66h, 33h, 0F6h
|
||||
db 66h, 33h, 0C9h
|
||||
|
||||
mov ax, 0D8C1h
|
||||
int 2Fh
|
||||
|
||||
; save resolver ESI at [bp-84]
|
||||
db 66h, 89h, 76h, 0ACh
|
||||
; save trampoline ECX at [bp-88]
|
||||
db 66h, 89h, 4Eh, 0A8h
|
||||
|
||||
mov [bp-2], ax ; load AX
|
||||
or ax, ax
|
||||
jne c32raw_fail
|
||||
|
||||
; resolve "COMPATNcpRequestReply"
|
||||
push cs
|
||||
push offset c32raw_name
|
||||
push 0
|
||||
push 0
|
||||
call dword ptr [bp-84]
|
||||
add sp, 8
|
||||
mov [bp-92], ax
|
||||
mov [bp-90], dx
|
||||
or ax, dx
|
||||
jne c32raw_have_func
|
||||
jmp c32raw_fail
|
||||
|
||||
c32raw_have_func:
|
||||
; actualReplyLen local at [bp-52]
|
||||
mov word ptr [bp-52], 0
|
||||
mov word ptr [bp-50], 0
|
||||
|
||||
; Map hdr data -> [bp-56]
|
||||
push 0
|
||||
push word ptr [bp+0eH]
|
||||
push word ptr [bp+0cH]
|
||||
push word ptr [bp+0aH]
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-56], ax
|
||||
mov [bp-54], dx
|
||||
|
||||
; Map path data -> [bp-60]
|
||||
push 0
|
||||
push word ptr [bp+14H]
|
||||
push word ptr [bp+12H]
|
||||
push word ptr [bp+10H]
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-60], ax
|
||||
mov [bp-58], dx
|
||||
|
||||
; Map reply0 -> [bp-64]
|
||||
push 0
|
||||
push word ptr [bp+1aH]
|
||||
push word ptr [bp+18H]
|
||||
push word ptr [bp+16H]
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-64], ax
|
||||
mov [bp-62], dx
|
||||
|
||||
; Map reply1 -> [bp-68]
|
||||
push 0
|
||||
push word ptr [bp+20H]
|
||||
push word ptr [bp+1eH]
|
||||
push word ptr [bp+1cH]
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-68], ax
|
||||
mov [bp-66], dx
|
||||
|
||||
; Build req flat table at [bp-32], two entries:
|
||||
; entry = flatptr dword + len dword
|
||||
mov ax, [bp-56]
|
||||
mov [bp-32], ax
|
||||
mov ax, [bp-54]
|
||||
mov [bp-30], ax
|
||||
mov ax, [bp+0eH]
|
||||
mov [bp-28], ax
|
||||
mov word ptr [bp-26], 0
|
||||
|
||||
mov ax, [bp-60]
|
||||
mov [bp-24], ax
|
||||
mov ax, [bp-58]
|
||||
mov [bp-22], ax
|
||||
mov ax, [bp+14H]
|
||||
mov [bp-20], ax
|
||||
mov word ptr [bp-18], 0
|
||||
|
||||
; Build reply flat table at [bp-48]
|
||||
mov ax, [bp-64]
|
||||
mov [bp-48], ax
|
||||
mov ax, [bp-62]
|
||||
mov [bp-46], ax
|
||||
mov ax, [bp+1aH]
|
||||
mov [bp-44], ax
|
||||
mov word ptr [bp-42], 0
|
||||
|
||||
mov ax, [bp-68]
|
||||
mov [bp-40], ax
|
||||
mov ax, [bp-66]
|
||||
mov [bp-38], ax
|
||||
mov ax, [bp+20H]
|
||||
mov [bp-36], ax
|
||||
mov word ptr [bp-34], 0
|
||||
|
||||
; Map req table [bp-32] len 16 -> [bp-72]
|
||||
push 0
|
||||
push 10H
|
||||
push ss
|
||||
lea ax, -32[bp]
|
||||
push ax
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-72], ax
|
||||
mov [bp-70], dx
|
||||
|
||||
; Map reply table [bp-48] len 16 -> [bp-76]
|
||||
push 0
|
||||
push 10H
|
||||
push ss
|
||||
lea ax, -48[bp]
|
||||
push ax
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-76], ax
|
||||
mov [bp-74], dx
|
||||
|
||||
; Map actualReplyLen [bp-52] len 4 -> [bp-80]
|
||||
push 0
|
||||
push 4
|
||||
push ss
|
||||
lea ax, -52[bp]
|
||||
push ax
|
||||
push 0
|
||||
push 2
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
mov [bp-80], ax
|
||||
mov [bp-78], dx
|
||||
|
||||
; Call NIOS trampoline command 8 with COMPATNcpRequestReply pointer.
|
||||
push word ptr [bp-78] ; actual flat hi
|
||||
push word ptr [bp-80] ; actual flat lo
|
||||
push word ptr [bp-74] ; reply table flat hi
|
||||
push word ptr [bp-76] ; reply table flat lo
|
||||
push 0
|
||||
push 2 ; num reply frags
|
||||
push word ptr [bp-70] ; req table flat hi
|
||||
push word ptr [bp-72] ; req table flat lo
|
||||
push 0
|
||||
push 2 ; num req frags
|
||||
push 0
|
||||
push 57H ; NCP function 87
|
||||
push 0
|
||||
push 0
|
||||
push word ptr [bp+8] ; conn high
|
||||
push word ptr [bp+6] ; conn low
|
||||
push 0
|
||||
push 8
|
||||
push word ptr [bp-90] ; function seg
|
||||
push word ptr [bp-92] ; function off
|
||||
call dword ptr [bp-88]
|
||||
add sp, 28H
|
||||
|
||||
mov [bp-96], ax
|
||||
mov [bp-94], dx
|
||||
|
||||
; unlock mapped actual/table/data. Ignore returns.
|
||||
push 0
|
||||
push 4
|
||||
push word ptr [bp-78]
|
||||
push word ptr [bp-80]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push 10H
|
||||
push word ptr [bp-74]
|
||||
push word ptr [bp-76]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push 10H
|
||||
push word ptr [bp-70]
|
||||
push word ptr [bp-72]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push word ptr [bp+20H]
|
||||
push word ptr [bp-66]
|
||||
push word ptr [bp-68]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push word ptr [bp+1aH]
|
||||
push word ptr [bp-62]
|
||||
push word ptr [bp-64]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push word ptr [bp+14H]
|
||||
push word ptr [bp-58]
|
||||
push word ptr [bp-60]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
push 0
|
||||
push word ptr [bp+0eH]
|
||||
push word ptr [bp-54]
|
||||
push word ptr [bp-56]
|
||||
push 0
|
||||
push 3
|
||||
call dword ptr [bp-84]
|
||||
add sp, 0cH
|
||||
|
||||
jmp short c32raw_store
|
||||
|
||||
c32raw_fail:
|
||||
mov word ptr [bp-92], 0
|
||||
mov word ptr [bp-90], 0
|
||||
mov word ptr [bp-96], 0FFFFH
|
||||
mov word ptr [bp-94], 0FFFFH
|
||||
mov word ptr [bp-52], 0
|
||||
mov word ptr [bp-50], 0
|
||||
|
||||
c32raw_store:
|
||||
les di, dword ptr [bp+22H]
|
||||
|
||||
mov ax, [bp-2]
|
||||
mov es:[di+0], ax
|
||||
mov ax, [bp-84]
|
||||
mov es:[di+2], ax
|
||||
mov ax, [bp-82]
|
||||
mov es:[di+4], ax
|
||||
mov ax, [bp-88]
|
||||
mov es:[di+6], ax
|
||||
mov ax, [bp-86]
|
||||
mov es:[di+8], ax
|
||||
mov ax, [bp-92]
|
||||
mov es:[di+10], ax
|
||||
mov ax, [bp-90]
|
||||
mov es:[di+12], ax
|
||||
mov ax, [bp-96]
|
||||
mov es:[di+14], ax
|
||||
mov ax, [bp-94]
|
||||
mov es:[di+16], ax
|
||||
mov ax, [bp-52]
|
||||
mov es:[di+18], ax
|
||||
mov ax, [bp-50]
|
||||
mov es:[di+20], ax
|
||||
|
||||
pop di
|
||||
pop si
|
||||
pop es
|
||||
pop ds
|
||||
mov sp, bp
|
||||
pop bp
|
||||
xor ah, ah
|
||||
ret
|
||||
|
||||
c32raw_name db 'COMPATNcpRequestReply',0
|
||||
|
||||
_C32_NCP87_Raw_Probe endp
|
||||
|
||||
|
||||
end
|
||||
|
||||
113
nwtests.c
113
nwtests.c
@@ -1300,6 +1300,113 @@ static int tests_c32mapflat(void)
|
||||
}
|
||||
|
||||
|
||||
static int tests_nwreq87c32raw_one(UI connLo, UI connHi, UI label)
|
||||
{
|
||||
uint8 connid = 0;
|
||||
uint8 dhandle = 0;
|
||||
uint8 flags = 0;
|
||||
int drive;
|
||||
uint8 hdr[16];
|
||||
uint8 path[0x140];
|
||||
uint8 rep0[0x60];
|
||||
uint8 rep1[0x110];
|
||||
uint8 out[32];
|
||||
UI path_len;
|
||||
uint16 load_ax, res_off, res_seg, tramp_off, tramp_seg, fn_off, fn_seg;
|
||||
uint16 ret_ax, ret_dx, act_lo, act_hi;
|
||||
|
||||
drive = tests_get_current_drive();
|
||||
get_drive_info((uint8)drive, &connid, &dhandle, &flags);
|
||||
|
||||
memset(hdr, 0, sizeof(hdr));
|
||||
hdr[0] = 6;
|
||||
hdr[1] = 0;
|
||||
hdr[2] = 0;
|
||||
tests_put_word_lh(hdr + 3, 0x0006);
|
||||
tests_put_dword_lh(hdr + 5, 0x00000004UL);
|
||||
|
||||
path_len = tests_build_novell_handle_path(path, dhandle, 0, 0, 1,
|
||||
"LOGIN.EXE", 0, 0);
|
||||
|
||||
memset(rep0, 0, sizeof(rep0));
|
||||
memset(rep1, 0, sizeof(rep1));
|
||||
memset(out, 0, sizeof(out));
|
||||
|
||||
fprintf(stdout, "\nTEST NWREQ87C32RAW label=%u conn32=%04X:%04X\n",
|
||||
label, connHi, connLo);
|
||||
fprintf(stdout, "drive=%c: connid=%u dhandle=%u flags=%02X path_len=%u\n",
|
||||
'A' + drive, connid, dhandle, flags, path_len);
|
||||
tests_dump_bytes("HDR :", hdr, 9);
|
||||
tests_dump_bytes("PATH:", path, path_len > 48 ? 48 : path_len);
|
||||
|
||||
C32_NCP87_Raw_Probe(connLo, connHi,
|
||||
hdr, 9,
|
||||
path, path_len,
|
||||
rep0, 0x4d,
|
||||
rep1, 0x100,
|
||||
out);
|
||||
|
||||
load_ax = tests_get_word_lh(out + 0);
|
||||
res_off = tests_get_word_lh(out + 2);
|
||||
res_seg = tests_get_word_lh(out + 4);
|
||||
tramp_off = tests_get_word_lh(out + 6);
|
||||
tramp_seg = tests_get_word_lh(out + 8);
|
||||
fn_off = tests_get_word_lh(out + 10);
|
||||
fn_seg = tests_get_word_lh(out + 12);
|
||||
ret_ax = tests_get_word_lh(out + 14);
|
||||
ret_dx = tests_get_word_lh(out + 16);
|
||||
act_lo = tests_get_word_lh(out + 18);
|
||||
act_hi = tests_get_word_lh(out + 20);
|
||||
|
||||
fprintf(stdout, "Load AX=%04X Resolver=%04X:%04X Tramp=%04X:%04X\n",
|
||||
load_ax, res_seg, res_off, tramp_seg, tramp_off);
|
||||
fprintf(stdout, "Function COMPAT=%04X:%04X\n", fn_seg, fn_off);
|
||||
fprintf(stdout, "Return DX:AX=%04X:%04X actual=%04X:%04X\n",
|
||||
ret_dx, ret_ax, act_hi, act_lo);
|
||||
tests_dump_bytes("OUT :", out, 22);
|
||||
tests_dump_bytes("REP0:", rep0, 64);
|
||||
tests_dump_bytes("REP1:", rep1, 64);
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
static int tests_nwreq87c32raw(int argc, char *argv[])
|
||||
{
|
||||
UI lo = 0;
|
||||
UI hi = 0;
|
||||
|
||||
if (argc > 2)
|
||||
lo = (UI)atoi(argv[2]);
|
||||
if (argc > 3)
|
||||
hi = (UI)atoi(argv[3]);
|
||||
|
||||
return tests_nwreq87c32raw_one(lo, hi, 0);
|
||||
}
|
||||
|
||||
static int tests_nwreq87c32matrix(void)
|
||||
{
|
||||
UI vals[6];
|
||||
int i;
|
||||
|
||||
vals[0] = 0;
|
||||
vals[1] = 1;
|
||||
vals[2] = 2;
|
||||
vals[3] = 3;
|
||||
vals[4] = 0x31;
|
||||
vals[5] = 0x3130;
|
||||
|
||||
fprintf(stdout, "TEST NWREQ87C32MATRIX paged\n");
|
||||
tests_wait_key();
|
||||
|
||||
for (i = 0; i < 6; i++) {
|
||||
tests_nwreq87c32raw_one(vals[i], 0, (UI)i);
|
||||
if (i != 5)
|
||||
tests_wait_key();
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
|
||||
int func_tests(int argc, char *argv[], int mode)
|
||||
{
|
||||
if (argc >= 2) {
|
||||
@@ -1321,6 +1428,12 @@ int func_tests(int argc, char *argv[], int mode)
|
||||
if (tests_same_arg(argv[1], "C32MAPFLAT"))
|
||||
return tests_c32mapflat();
|
||||
|
||||
if (tests_same_arg(argv[1], "NWREQ87C32RAW"))
|
||||
return tests_nwreq87c32raw(argc, argv);
|
||||
|
||||
if (tests_same_arg(argv[1], "NWREQ87C32MATRIX"))
|
||||
return tests_nwreq87c32matrix();
|
||||
|
||||
if (tests_same_arg(argv[1], "NWREQ87"))
|
||||
return tests_nwreq87(argc, argv);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user