tyler.durden/kernel
1
0
Fork 0
mirror of https://github.com/FDOS/kernel.git synced 2025-07-16 18:34:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

commit Bart's patch to fix CP/M call psp:05h compatibility call along with some comments to explain the call trampoline

Browse Source 
git-svn-id: https://svn.code.sf.net/p/freedos/svn/kernel/trunk@1372 6ac86273-5f31-0410-b378-82cca8765d1b
This commit is contained in:
Kenneth J Davis 2009-05-01 04:25:27 +00:00
parent 497a2337ef
commit 240bcc30e2
2 changed files with 68 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hdr/process.h
View File

@ -65,11 +65,19 @@ typedef struct {
UWORD ps_exit; /* 00 CP/M-like exit point: int 20 */ UWORD ps_exit; /* 00 CP/M-like exit point: int 20 */
UWORD ps_size; /* 02 segment of first byte beyond */ UWORD ps_size; /* 02 segment of first byte beyond */
/* memory allocated to program */ /* memory allocated to program */
BYTE ps_fill1; /* 04 single char fill */ BYTE ps_fill1; /* 04 single char fill=0 */
/* CP/M-like entry point */ /* CP/M-like entry point */
/* offsets 5-9 are a far call to absolute address 0:000Ch
coded so that CP/M apps can do a near call to psp:5, does a
far call but ensures word at offset 6 is size of COM file
e.g. FEF0h by using 1MB wrap around address 0F01D:FEF0
(jmp code stored at 0:000C should be duplicated in HMA FFFF:00D0)
Note: MS-DOS has value as FEEE which wraps to 0:00BEh */
UBYTE ps_farcall; /* 05 far call opcode */ UBYTE ps_farcall; /* 05 far call opcode */
VOID(FAR ASMCFUNC * ps_reentry) (void); /* 06 re-entry point */ VOID(FAR ASMCFUNC * ps_reentry) (void); /* 06 re-entry point */
intvec ps_isv22, /* 0a terminate address */ intvec ps_isv22, /* 0a terminate address */
ps_isv23, /* 0e break address */ ps_isv23, /* 0e break address */
ps_isv24; /* 12 critical error address */ ps_isv24; /* 12 critical error address */

22
kernel/entry.asm
View File

@ -65,9 +65,14 @@ segment HMA_TEXT
; VOID FAR ; VOID FAR
; cpm_entry(iregs UserRegs) ; cpm_entry(iregs UserRegs)
; ;
; This one is a strange one. The call is to psp:0005h but it returns to the ; For CP/M compatibility allow a program to invoke any DOS API function
; function after the call. What we do is convert it to a normal call and ; between 0 and 24h by doing a near call to psp:0005h which embeds a far call
; fudge the stack to look like an int 21h call. ; to absolute address 0:00C0h (int vector 30h & 31h) or FFFF:00D0 (hma).
; Note: int 31h is also used for DPMI
; Upon entry the stack has a near return offset (desired return address) and
; far return seg:offset (useless return to data at offset 0ah after far call
; in psp). We convert it to a normal call and correct the stack to appear same
; as if invoked via an int 21h call including proper return address.
; ;
reloc_call_cpm_entry: reloc_call_cpm_entry:
; Stack is: ; Stack is:
@ -75,10 +80,7 @@ reloc_call_cpm_entry:
; psp seg ; psp seg
; 000ah ; 000ah
; ;
push bp ; trash old return address add sp, 2 ; remove unneeded far return offset 0ah
mov bp,sp
xchg bp,[2+bp]
pop bp
pushf ; start setting up int 21h stack pushf ; start setting up int 21h stack
; ;
; now stack is ; now stack is
@ -107,12 +109,12 @@ reloc_call_cpm_entry:
; psp seg (alias .COM cs) ; psp seg (alias .COM cs)
; return offset ; return offset
; ;
cmp cl,024h cmp cl,024h ; restrict calls to functions 0-24h
jbe cpm_error ja cpm_error
mov ah,cl ; get the call # from cl to ah mov ah,cl ; get the call # from cl to ah
jmp reloc_call_int21_handler ; do the system call jmp reloc_call_int21_handler ; do the system call
cpm_error: mov al,0 cpm_error: mov al,0
iret iret ; cleanup stack and return to caller
; ;
; interrupt zero divide handler: ; interrupt zero divide handler: