mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 20:39:28 +02:00
* added closing of comment for logs to avoid warning
This commit is contained in:
Jonas Maebe
parent
fb08ac116d
commit
8df1299d70
@ -22,18 +22,18 @@
|
||||
EXCEPNO = 56
|
||||
PREVEXC = 60
|
||||
/* Length 64 bytes plus non-used FPU */
|
||||
.data
|
||||
.balign 8
|
||||
.comm exception_stack, 8000
|
||||
.data
|
||||
.balign 8
|
||||
.comm exception_stack, 8000
|
||||
|
||||
.text
|
||||
.balign 16,,7
|
||||
.text
|
||||
.balign 16,,7
|
||||
.macro EXCEPTION_ENTRY number
|
||||
pushl \number
|
||||
jmp exception_handler
|
||||
.endm
|
||||
|
||||
.global ___djgpp_exception_table
|
||||
.global ___djgpp_exception_table
|
||||
___djgpp_exception_table:
|
||||
EXCEPTION_ENTRY $18
|
||||
EXCEPTION_ENTRY $19
|
||||
@ -56,19 +56,19 @@ EXCEPTION_ENTRY $15
|
||||
EXCEPTION_ENTRY $16
|
||||
EXCEPTION_ENTRY $17
|
||||
|
||||
/* This code is called any time an exception occurs in the 32 bit protected
|
||||
;* mode code. The exception number is pushed on the stack. This is called
|
||||
;* on a locked stack with interrupts disabled. Don't try to terminate.
|
||||
/* This code is called any time an exception occurs in the 32 bit protected
|
||||
;* mode code. The exception number is pushed on the stack. This is called
|
||||
;* on a locked stack with interrupts disabled. Don't try to terminate.
|
||||
;*
|
||||
;* [ * | SS ] * Don't modify
|
||||
;* [ ESP ]
|
||||
;* [ EFLAGS ]
|
||||
;* [ * | CS ] * Don't modify
|
||||
;* [ EIP ]
|
||||
;* [ ERR CODE ]
|
||||
;* [ * |RET CS*] * Don't modify
|
||||
;* [ RET EIP* ] * Don't modify
|
||||
;* [ EXCEPTION # ] (And later EBP)
|
||||
;* [ * | SS ] * Don't modify
|
||||
;* [ ESP ]
|
||||
;* [ EFLAGS ]
|
||||
;* [ * | CS ] * Don't modify
|
||||
;* [ EIP ]
|
||||
;* [ ERR CODE ]
|
||||
;* [ * |RET CS*] * Don't modify
|
||||
;* [ RET EIP* ] * Don't modify
|
||||
;* [ EXCEPTION # ] (And later EBP)
|
||||
;*/
|
||||
/* ;WARNING WARNING WARNING
|
||||
;The mechanism for passing signals between the debugger
|
||||
@ -79,374 +79,374 @@ EXCEPTION_ENTRY $17
|
||||
;these two instructions, or you will break signal support in
|
||||
;the debuggers!! */
|
||||
exception_handler:
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
cmpb $0, forced
|
||||
je not_forced
|
||||
call limitFix
|
||||
.byte 0x2e /* CS: */
|
||||
movzbl forced,%ebx
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
cmpb $0, forced
|
||||
je not_forced
|
||||
call limitFix
|
||||
.byte 0x2e /* CS: */
|
||||
movzbl forced,%ebx
|
||||
movl %ebx,8(%esp) /* replace EXCEPNO */
|
||||
cmpb $0x75, %bl
|
||||
jne not_forced
|
||||
movzwl ___djgpp_fpu_state,%ebx
|
||||
movl %ebx,20(%esp) /* set ERRCODE to FPU state */
|
||||
not_forced:
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl $0x10000, forced /* its zero now, flag inuse */
|
||||
movl $exception_state, %ebx
|
||||
popl DS(%ebx)
|
||||
popl EBX(%ebx)
|
||||
popl EXCEPNO(%ebx)
|
||||
movl %esi, ESI(%ebx)
|
||||
movl %edi, EDI(%ebx)
|
||||
movl %ebp, EBP(%ebx)
|
||||
movl %eax, EAX(%ebx)
|
||||
movl %ecx, ECX(%ebx)
|
||||
movl %edx, EDX(%ebx)
|
||||
movw %es, ES(%ebx)
|
||||
movw %fs, FS(%ebx)
|
||||
movw %gs, GS(%ebx)
|
||||
movl ___djgpp_exception_state_ptr, %eax
|
||||
movl %eax, PREVEXC(%ebx)
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl $0x10000, forced /* its zero now, flag inuse */
|
||||
movl $exception_state, %ebx
|
||||
popl DS(%ebx)
|
||||
popl EBX(%ebx)
|
||||
popl EXCEPNO(%ebx)
|
||||
movl %esi, ESI(%ebx)
|
||||
movl %edi, EDI(%ebx)
|
||||
movl %ebp, EBP(%ebx)
|
||||
movl %eax, EAX(%ebx)
|
||||
movl %ecx, ECX(%ebx)
|
||||
movl %edx, EDX(%ebx)
|
||||
movw %es, ES(%ebx)
|
||||
movw %fs, FS(%ebx)
|
||||
movw %gs, GS(%ebx)
|
||||
movl ___djgpp_exception_state_ptr, %eax
|
||||
movl %eax, PREVEXC(%ebx)
|
||||
|
||||
/* Stack clean at this point, DS:[EBX] points to exception_state, all
|
||||
register information saved. Now get the info on stack. */
|
||||
|
||||
pushl %ebp
|
||||
movl %esp, %ebp /* load ebp with stack for easy access */
|
||||
|
||||
movl 12(%ebp), %eax
|
||||
movl %eax, ERRCODE(%ebx)
|
||||
movl 16(%ebp), %eax
|
||||
movl %eax, EIP(%ebx)
|
||||
movl 20(%ebp), %eax
|
||||
movw %ax, CS(%ebx)
|
||||
movl 24(%ebp), %eax
|
||||
movl %eax, EFLAGS(%ebx)
|
||||
andb $0xfe, %ah /* Clear trace flag */
|
||||
movl %eax, 24(%ebp) /* and restore on stack */
|
||||
pushl %ebp
|
||||
movl %esp, %ebp /* load ebp with stack for easy access */
|
||||
|
||||
movl 28(%ebp), %eax
|
||||
movl %eax, ESP(%ebx)
|
||||
movl 32(%ebp), %eax
|
||||
movw %ax, SS(%ebx)
|
||||
movl 12(%ebp), %eax
|
||||
movl %eax, ERRCODE(%ebx)
|
||||
movl 16(%ebp), %eax
|
||||
movl %eax, EIP(%ebx)
|
||||
movl 20(%ebp), %eax
|
||||
movw %ax, CS(%ebx)
|
||||
movl 24(%ebp), %eax
|
||||
movl %eax, EFLAGS(%ebx)
|
||||
andb $0xfe, %ah /* Clear trace flag */
|
||||
movl %eax, 24(%ebp) /* and restore on stack */
|
||||
|
||||
movl $dpmi_exception_proc1, 16(%ebp) /* where to return */
|
||||
movw %cs, 20(%ebp)
|
||||
movl 28(%ebp), %eax
|
||||
movl %eax, ESP(%ebx)
|
||||
movl 32(%ebp), %eax
|
||||
movw %ax, SS(%ebx)
|
||||
|
||||
movl $dpmi_exception_proc1, 16(%ebp) /* where to return */
|
||||
movw %cs, 20(%ebp)
|
||||
|
||||
/* Change to our local stack on return from exception (maybe stack exception) */
|
||||
movw %ds, %ax
|
||||
cmpb $12,EXCEPNO(%ebx) /* Stack fault ? */
|
||||
je 1f
|
||||
cmpw %ax,32(%ebp)
|
||||
je stack_ok
|
||||
.byte 0x2e /* CS: */
|
||||
movw ___djgpp_ds_alias,%di
|
||||
cmpw %di,32(%ebp) /* if it's DS alias, switch to normal DS */
|
||||
jne 1f
|
||||
movw %ax,32(%ebp)
|
||||
jmp stack_ok
|
||||
1: movl $exception_stack+8000, 28(%ebp)
|
||||
movw %ax, 32(%ebp)
|
||||
movw %ds, %ax
|
||||
cmpb $12,EXCEPNO(%ebx) /* Stack fault ? */
|
||||
je 1f
|
||||
cmpw %ax,32(%ebp)
|
||||
je stack_ok
|
||||
.byte 0x2e /* CS: */
|
||||
movw ___djgpp_ds_alias,%di
|
||||
cmpw %di,32(%ebp) /* if it's DS alias, switch to normal DS */
|
||||
jne 1f
|
||||
movw %ax,32(%ebp)
|
||||
jmp stack_ok
|
||||
1: movl $exception_stack+8000, 28(%ebp)
|
||||
movw %ax, 32(%ebp)
|
||||
stack_ok:
|
||||
/* Now copy the exception structure to the new stack before returning */
|
||||
movw %ax, %es
|
||||
movl %ebx,%esi
|
||||
movl 28(%ebp), %edi
|
||||
subl $92, %edi /* 64 plus extra for longjmp */
|
||||
movl %edi, 28(%ebp)
|
||||
movl %edi, ___djgpp_exception_state_ptr
|
||||
movl $16, %ecx
|
||||
cld
|
||||
rep
|
||||
movsl
|
||||
movw %ax, %es
|
||||
movl %ebx,%esi
|
||||
movl 28(%ebp), %edi
|
||||
subl $92, %edi /* 64 plus extra for longjmp */
|
||||
movl %edi, 28(%ebp)
|
||||
movl %edi, ___djgpp_exception_state_ptr
|
||||
movl $16, %ecx
|
||||
cld
|
||||
rep
|
||||
movsl
|
||||
|
||||
movl EAX(%ebx), %eax /* restore regs */
|
||||
movl ESI(%ebx), %esi
|
||||
movl EDI(%ebx), %edi
|
||||
movl ECX(%ebx), %ecx
|
||||
movw ES(%ebx), %es
|
||||
popl %ebp
|
||||
pushl EBX(%ebx)
|
||||
pushl DS(%ebx)
|
||||
movb $0, forced+2 /* flag non-use */
|
||||
popl %ds
|
||||
popl %ebx
|
||||
lret
|
||||
movl EAX(%ebx), %eax /* restore regs */
|
||||
movl ESI(%ebx), %esi
|
||||
movl EDI(%ebx), %edi
|
||||
movl ECX(%ebx), %ecx
|
||||
movw ES(%ebx), %es
|
||||
popl %ebp
|
||||
pushl EBX(%ebx)
|
||||
pushl DS(%ebx)
|
||||
movb $0, forced+2 /* flag non-use */
|
||||
popl %ds
|
||||
popl %ebx
|
||||
lret
|
||||
|
||||
/* Code to fix fake exception, EBX destroyed. Note, app_DS may == our_DS! */
|
||||
.balign 16,,7
|
||||
.balign 16,,7
|
||||
limitFix:
|
||||
pushl %eax
|
||||
pushl %ecx
|
||||
pushl %edx
|
||||
.byte 0x2e /* CS: */
|
||||
movl ___djgpp_app_DS, %ebx /* avoid size prefix */
|
||||
.byte 0x2e /* CS: */
|
||||
movl ds_limit, %edx
|
||||
movl %edx, %ecx
|
||||
shrl $16, %ecx
|
||||
movw $0x0008, %ax
|
||||
int $0x31 /* Set segment limit */
|
||||
popl %edx
|
||||
popl %ecx
|
||||
popl %eax
|
||||
ret
|
||||
pushl %eax
|
||||
pushl %ecx
|
||||
pushl %edx
|
||||
.byte 0x2e /* CS: */
|
||||
movl ___djgpp_app_DS, %ebx /* avoid size prefix */
|
||||
.byte 0x2e /* CS: */
|
||||
movl ds_limit, %edx
|
||||
movl %edx, %ecx
|
||||
shrl $16, %ecx
|
||||
movw $0x0008, %ax
|
||||
int $0x31 /* Set segment limit */
|
||||
popl %edx
|
||||
popl %ecx
|
||||
popl %eax
|
||||
ret
|
||||
|
||||
/* This local routine preprocesses a return request to the C code. It checks
|
||||
to make sure the DS & SS are set OK for C code. If not, it sets them up */
|
||||
.balign 16,,7
|
||||
.balign 16,,7
|
||||
dpmi_exception_proc1:
|
||||
cld
|
||||
.byte 0x2e /* CS: !!! */
|
||||
movw ___djgpp_our_DS, %bx /* to be sure */
|
||||
movw %bx, %ds
|
||||
movw %bx, %es
|
||||
/* Note: SS:ESP should be set properly by exception routine */
|
||||
jmp ___djgpp_exception_processor
|
||||
cld
|
||||
.byte 0x2e /* CS: !!! */
|
||||
movw ___djgpp_our_DS, %bx /* to be sure */
|
||||
movw %bx, %ds
|
||||
movw %bx, %es
|
||||
/* Note: SS:ESP should be set properly by exception routine */
|
||||
jmp ___djgpp_exception_processor
|
||||
|
||||
/* This code is called by a user routine wishing to save an interrupt
|
||||
;* state. It will return with a clean stack, our DS,ES,SS.
|
||||
/* This code is called by a user routine wishing to save an interrupt
|
||||
;* state. It will return with a clean stack, our DS,ES,SS.
|
||||
;* Minor bug: uses static exception_state for a short window without
|
||||
;* interrupts guaranteed disabled.
|
||||
;*
|
||||
;* [ EFLAGS ]
|
||||
;* [ * | CS ]
|
||||
;* [ EIP ]
|
||||
;* [ CALLING EIP ]
|
||||
;* [ EFLAGS ]
|
||||
;* [ * | CS ]
|
||||
;* [ EIP ]
|
||||
;* [ CALLING EIP ]
|
||||
;*/
|
||||
|
||||
.balign 16,,7
|
||||
.globl ___djgpp_save_interrupt_regs
|
||||
.balign 16,,7
|
||||
.globl ___djgpp_save_interrupt_regs
|
||||
___djgpp_save_interrupt_regs:
|
||||
pushl %esi
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl $exception_state, %esi
|
||||
popl DS(%esi) /* Trashes ES but OK */
|
||||
popl ESI(%esi)
|
||||
movl %edi, EDI(%esi)
|
||||
movl %ebp, EBP(%esi)
|
||||
movl %eax, EAX(%esi)
|
||||
movl %ebx, EBX(%esi)
|
||||
movl %ecx, ECX(%esi)
|
||||
movl %edx, EDX(%esi)
|
||||
popl %edx /* Save calling EIP */
|
||||
popl EIP(%esi)
|
||||
popl %eax
|
||||
movw %ax,CS(%esi) /* Don't pop, nukes DS */
|
||||
popl EFLAGS(%esi)
|
||||
movl %esp, ESP(%esi)
|
||||
movw %es, ES(%esi)
|
||||
movw %fs, FS(%esi)
|
||||
movw %gs, GS(%esi)
|
||||
movw %ss, SS(%esi)
|
||||
movl ___djgpp_exception_state_ptr, %eax
|
||||
movl %eax, PREVEXC(%esi)
|
||||
cld
|
||||
movw %ds, %ax
|
||||
movw %ax, %es
|
||||
movw %ss, %bx
|
||||
cmpw %ax, %bx /* is SS = DS ? */
|
||||
je Lss_ok
|
||||
movw %ax, %ss /* set new SS:ESP */
|
||||
movl $exception_stack+8000, %esp
|
||||
Lss_ok: subl $92, %esp /* 64 plus extra for longjmp */
|
||||
movl %esp, %edi
|
||||
movl $16, %ecx
|
||||
movl %edi, ___djgpp_exception_state_ptr
|
||||
rep
|
||||
movsl /* Copy structure to stack */
|
||||
jmp *%edx /* A "return" */
|
||||
pushl %esi
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl $exception_state, %esi
|
||||
popl DS(%esi) /* Trashes ES but OK */
|
||||
popl ESI(%esi)
|
||||
movl %edi, EDI(%esi)
|
||||
movl %ebp, EBP(%esi)
|
||||
movl %eax, EAX(%esi)
|
||||
movl %ebx, EBX(%esi)
|
||||
movl %ecx, ECX(%esi)
|
||||
movl %edx, EDX(%esi)
|
||||
popl %edx /* Save calling EIP */
|
||||
popl EIP(%esi)
|
||||
popl %eax
|
||||
movw %ax,CS(%esi) /* Don't pop, nukes DS */
|
||||
popl EFLAGS(%esi)
|
||||
movl %esp, ESP(%esi)
|
||||
movw %es, ES(%esi)
|
||||
movw %fs, FS(%esi)
|
||||
movw %gs, GS(%esi)
|
||||
movw %ss, SS(%esi)
|
||||
movl ___djgpp_exception_state_ptr, %eax
|
||||
movl %eax, PREVEXC(%esi)
|
||||
cld
|
||||
movw %ds, %ax
|
||||
movw %ax, %es
|
||||
movw %ss, %bx
|
||||
cmpw %ax, %bx /* is SS = DS ? */
|
||||
je Lss_ok
|
||||
movw %ax, %ss /* set new SS:ESP */
|
||||
movl $exception_stack+8000, %esp
|
||||
Lss_ok: subl $92, %esp /* 64 plus extra for longjmp */
|
||||
movl %esp, %edi
|
||||
movl $16, %ecx
|
||||
movl %edi, ___djgpp_exception_state_ptr
|
||||
rep
|
||||
movsl /* Copy structure to stack */
|
||||
jmp *%edx /* A "return" */
|
||||
|
||||
.balign 8 /* We will touch this; it must be locked */
|
||||
.global ___djgpp_hw_lock_start
|
||||
.balign 8 /* We will touch this; it must be locked */
|
||||
.global ___djgpp_hw_lock_start
|
||||
___djgpp_hw_lock_start:
|
||||
/* src/debug/common/dbgcom.c knows that `ds_limit' is stored
|
||||
4 bytes before `forced' and relies on that. Do NOT change that! */
|
||||
ds_limit: .long 0
|
||||
forced: .long 0
|
||||
.global ___djgpp_cbrk_count
|
||||
___djgpp_cbrk_count: .long 0
|
||||
.global ___djgpp_timer_countdown
|
||||
___djgpp_timer_countdown: .long 0
|
||||
.global ___djgpp_our_DS
|
||||
___djgpp_our_DS: .word 0
|
||||
.global ___djgpp_app_DS
|
||||
___djgpp_app_DS: .word 0
|
||||
.global ___djgpp_dos_sel
|
||||
___djgpp_dos_sel: .word 0
|
||||
.global ___djgpp_hwint_flags
|
||||
___djgpp_hwint_flags: .word 0
|
||||
.global ___djgpp_sigint_key
|
||||
___djgpp_sigint_key: .word 0 /* scan code and kb status */
|
||||
.global ___djgpp_sigint_mask
|
||||
___djgpp_sigint_mask: .word 0 /* kb status mask */
|
||||
.global ___djgpp_sigquit_key
|
||||
___djgpp_sigquit_key: .word 0
|
||||
.global ___djgpp_sigquit_mask
|
||||
___djgpp_sigquit_mask: .word 0
|
||||
.global ___djgpp_old_kbd
|
||||
___djgpp_old_kbd: .long 0,0
|
||||
.global ___djgpp_old_timer
|
||||
___djgpp_old_timer: .long 0,0
|
||||
.global ___djgpp_exception_state_ptr
|
||||
___djgpp_exception_state_ptr: .long 0
|
||||
exception_state: .space 64
|
||||
.global ___djgpp_ds_alias
|
||||
___djgpp_ds_alias: .word 0 /* used in dpmi/api/d0303.s (alloc rmcb) */
|
||||
/* src/debug/common/dbgcom.c knows that `ds_limit' is stored
|
||||
4 bytes before `forced' and relies on that. Do NOT change that! */
|
||||
ds_limit: .long 0
|
||||
forced: .long 0
|
||||
.global ___djgpp_cbrk_count
|
||||
___djgpp_cbrk_count: .long 0
|
||||
.global ___djgpp_timer_countdown
|
||||
___djgpp_timer_countdown: .long 0
|
||||
.global ___djgpp_our_DS
|
||||
___djgpp_our_DS: .word 0
|
||||
.global ___djgpp_app_DS
|
||||
___djgpp_app_DS: .word 0
|
||||
.global ___djgpp_dos_sel
|
||||
___djgpp_dos_sel: .word 0
|
||||
.global ___djgpp_hwint_flags
|
||||
___djgpp_hwint_flags: .word 0
|
||||
.global ___djgpp_sigint_key
|
||||
___djgpp_sigint_key: .word 0 /* scan code and kb status */
|
||||
.global ___djgpp_sigint_mask
|
||||
___djgpp_sigint_mask: .word 0 /* kb status mask */
|
||||
.global ___djgpp_sigquit_key
|
||||
___djgpp_sigquit_key: .word 0
|
||||
.global ___djgpp_sigquit_mask
|
||||
___djgpp_sigquit_mask: .word 0
|
||||
.global ___djgpp_old_kbd
|
||||
___djgpp_old_kbd: .long 0,0
|
||||
.global ___djgpp_old_timer
|
||||
___djgpp_old_timer: .long 0,0
|
||||
.global ___djgpp_exception_state_ptr
|
||||
___djgpp_exception_state_ptr: .long 0
|
||||
exception_state: .space 64
|
||||
.global ___djgpp_ds_alias
|
||||
___djgpp_ds_alias: .word 0 /* used in dpmi/api/d0303.s (alloc rmcb) */
|
||||
|
||||
.global ___djgpp_fpu_state
|
||||
___djgpp_fpu_state: .word 0
|
||||
.balign 16,,7
|
||||
.global ___djgpp_npx_hdlr
|
||||
.balign 16,,7
|
||||
.global ___djgpp_npx_hdlr
|
||||
___djgpp_npx_hdlr:
|
||||
fnstsw ___djgpp_fpu_state
|
||||
fnclex
|
||||
pushl %eax
|
||||
xorl %eax,%eax
|
||||
outb %al,$0x0f0
|
||||
movb $0x20,%al
|
||||
outb %al,$0x0a0
|
||||
outb %al,$0x020
|
||||
movb $0x75,%al
|
||||
pushl %eax
|
||||
xorl %eax,%eax
|
||||
outb %al,$0x0f0
|
||||
movb $0x20,%al
|
||||
outb %al,$0x0a0
|
||||
outb %al,$0x020
|
||||
movb $0x75,%al
|
||||
hw_to_excp:
|
||||
call ___djgpp_hw_exception
|
||||
popl %eax
|
||||
sti
|
||||
iret
|
||||
call ___djgpp_hw_exception
|
||||
popl %eax
|
||||
sti
|
||||
iret
|
||||
|
||||
.balign 16,,7
|
||||
.global ___djgpp_kbd_hdlr
|
||||
.balign 16,,7
|
||||
.global ___djgpp_kbd_hdlr
|
||||
___djgpp_kbd_hdlr:
|
||||
pushl %eax
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
testb $1, ___djgpp_hwint_flags /* Disable? */
|
||||
jne Lkbd_chain
|
||||
movw %cs:___djgpp_dos_sel, %ds /* Conventional mem selector */
|
||||
/* movw $0x7021,0xb0f00 */ /* Test code - write to mono */
|
||||
pushl %eax
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
testb $1, ___djgpp_hwint_flags /* Disable? */
|
||||
jne Lkbd_chain
|
||||
movw %cs:___djgpp_dos_sel, %ds /* Conventional mem selector */
|
||||
/* movw $0x7021,0xb0f00 */ /* Test code - write to mono */
|
||||
/* Check Keyboard status bits */
|
||||
movb 0x417,%ah /* Get KB status byte */
|
||||
testb $1,%ah
|
||||
je 6f
|
||||
orb $2,%ah /* If RShift is set, set LShift as well */
|
||||
movb 0x417,%ah /* Get KB status byte */
|
||||
testb $1,%ah
|
||||
je 6f
|
||||
orb $2,%ah /* If RShift is set, set LShift as well */
|
||||
6:
|
||||
inb $0x60,%al /* Read the scan code */
|
||||
inb $0x60,%al /* Read the scan code */
|
||||
99:
|
||||
movb %ah,%bh /* Save KB status */
|
||||
andb %cs:___djgpp_sigint_mask, %ah /* Mask off irrelevant bits */
|
||||
cmpw %cs:___djgpp_sigint_key, %ax /* Test for SIGINT */
|
||||
jne 7f
|
||||
movb $0x79,%bh /* SIGINT */
|
||||
jmp 98f
|
||||
movb %ah,%bh /* Save KB status */
|
||||
andb %cs:___djgpp_sigint_mask, %ah /* Mask off irrelevant bits */
|
||||
cmpw %cs:___djgpp_sigint_key, %ax /* Test for SIGINT */
|
||||
jne 7f
|
||||
movb $0x79,%bh /* SIGINT */
|
||||
jmp 98f
|
||||
7:
|
||||
movb %bh,%ah /* Restore KB status */
|
||||
andb %cs:___djgpp_sigquit_mask, %ah /* Mask off irrelevant bits */
|
||||
cmpw %cs:___djgpp_sigquit_key, %ax /* Test for SIGQUIT*/
|
||||
jne Lkbd_chain
|
||||
movb $0x7a,%bh /* SIGQUIT */
|
||||
movb %bh,%ah /* Restore KB status */
|
||||
andb %cs:___djgpp_sigquit_mask, %ah /* Mask off irrelevant bits */
|
||||
cmpw %cs:___djgpp_sigquit_key, %ax /* Test for SIGQUIT*/
|
||||
jne Lkbd_chain
|
||||
movb $0x7a,%bh /* SIGQUIT */
|
||||
/* Clear interrupt, (later: remove byte from controller?)
|
||||
movb $0x20,%al
|
||||
outb %al,$0x020 */
|
||||
movb $0x20,%al
|
||||
outb %al,$0x020 */
|
||||
98:
|
||||
movb %bh,%al
|
||||
call ___djgpp_hw_exception
|
||||
movb %bh,%al
|
||||
call ___djgpp_hw_exception
|
||||
Lkbd_chain:
|
||||
popl %ds
|
||||
popl %ebx
|
||||
popl %eax
|
||||
ljmp %cs:___djgpp_old_kbd
|
||||
popl %ds
|
||||
popl %ebx
|
||||
popl %eax
|
||||
ljmp %cs:___djgpp_old_kbd
|
||||
|
||||
.balign 16,,7
|
||||
.global ___djgpp_kbd_hdlr_pc98
|
||||
.balign 16,,7
|
||||
.global ___djgpp_kbd_hdlr_pc98
|
||||
___djgpp_kbd_hdlr_pc98:
|
||||
pushl %eax
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
testb $1, ___djgpp_hwint_flags /* Disable? */
|
||||
jne Lkbd_chain
|
||||
pushl %eax
|
||||
pushl %ebx
|
||||
pushl %ds
|
||||
.byte 0x2e /* CS: */
|
||||
testb $1, ___djgpp_hwint_flags /* Disable? */
|
||||
jne Lkbd_chain
|
||||
/* Check CTRL state */
|
||||
movw %cs:___djgpp_dos_sel, %ds /* Conventional mem selector */
|
||||
movb 0x053a,%al /* Get KB status byte */
|
||||
/* Convert PC98 style status byte to PC/AT style */
|
||||
movb %al,%ah
|
||||
andb $0x09,%ah /* GRPH(=ALT), SHIFT(=R-Shift) */
|
||||
testb $0x02,%al
|
||||
je 981f
|
||||
orb $0x40,%ah /* CAPS(=Caps Lock) */
|
||||
981: testb $0x10,%al
|
||||
je 982f
|
||||
orb $0x04,%ah /* CTRL(=Ctrl) */
|
||||
982: testb $0x01,%al
|
||||
je 983f
|
||||
orb $0x02,%ah /* SHIFT(=L-Shift) */
|
||||
983: testb $0x04,%al
|
||||
je 984f
|
||||
orb $0x20,%ah /* KANA(=NUM Lock) */
|
||||
984: inb $0x41,%al /* Read the scan code */
|
||||
jmp 99b
|
||||
movw %cs:___djgpp_dos_sel, %ds /* Conventional mem selector */
|
||||
movb 0x053a,%al /* Get KB status byte */
|
||||
/* Convert PC98 style status byte to PC/AT style */
|
||||
movb %al,%ah
|
||||
andb $0x09,%ah /* GRPH(=ALT), SHIFT(=R-Shift) */
|
||||
testb $0x02,%al
|
||||
je 981f
|
||||
orb $0x40,%ah /* CAPS(=Caps Lock) */
|
||||
981: testb $0x10,%al
|
||||
je 982f
|
||||
orb $0x04,%ah /* CTRL(=Ctrl) */
|
||||
982: testb $0x01,%al
|
||||
je 983f
|
||||
orb $0x02,%ah /* SHIFT(=L-Shift) */
|
||||
983: testb $0x04,%al
|
||||
je 984f
|
||||
orb $0x20,%ah /* KANA(=NUM Lock) */
|
||||
984: inb $0x41,%al /* Read the scan code */
|
||||
jmp 99b
|
||||
|
||||
.balign 16,,7
|
||||
.global ___djgpp_timer_hdlr
|
||||
.balign 16,,7
|
||||
.global ___djgpp_timer_hdlr
|
||||
___djgpp_timer_hdlr:
|
||||
.byte 0x2e /* CS: */
|
||||
cmpl $0,___djgpp_timer_countdown
|
||||
je 4f
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_ds_alias, %ds
|
||||
decl ___djgpp_timer_countdown
|
||||
popl %ds
|
||||
jmp 3f
|
||||
.byte 0x2e /* CS: */
|
||||
cmpl $0,___djgpp_timer_countdown
|
||||
je 4f
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_ds_alias, %ds
|
||||
decl ___djgpp_timer_countdown
|
||||
popl %ds
|
||||
jmp 3f
|
||||
4:
|
||||
pushl %eax
|
||||
movb $0x78,%al
|
||||
call ___djgpp_hw_exception
|
||||
popl %eax
|
||||
pushl %eax
|
||||
movb $0x78,%al
|
||||
call ___djgpp_hw_exception
|
||||
popl %eax
|
||||
3:
|
||||
.byte 0x2e /* CS: */
|
||||
testb $4, ___djgpp_hwint_flags /* IRET or chain? */
|
||||
jne 2f
|
||||
ljmp %cs:___djgpp_old_timer
|
||||
.byte 0x2e /* CS: */
|
||||
testb $4, ___djgpp_hwint_flags /* IRET or chain? */
|
||||
jne 2f
|
||||
ljmp %cs:___djgpp_old_timer
|
||||
2:
|
||||
pushl %eax
|
||||
movb $0x20,%al /* EOI the interrupt */
|
||||
outb %al,$0x020
|
||||
popl %eax
|
||||
iret
|
||||
pushl %eax
|
||||
movb $0x20,%al /* EOI the interrupt */
|
||||
outb %al,$0x020
|
||||
popl %eax
|
||||
iret
|
||||
|
||||
/* On entry ES is the DS alias selector */
|
||||
.balign 16,,7
|
||||
.global ___djgpp_cbrk_hdlr /* A RMCB handler for 0x1b */
|
||||
/* On entry ES is the DS alias selector */
|
||||
.balign 16,,7
|
||||
.global ___djgpp_cbrk_hdlr /* A RMCB handler for 0x1b */
|
||||
___djgpp_cbrk_hdlr:
|
||||
cld
|
||||
lodsl /* EAX = DS:[esi] CS:IP */
|
||||
movl %eax, %es:0x2a(%edi) /* store in structure */
|
||||
lodsl /* AX = FLAGS */
|
||||
movw %ax, %es:0x20(%edi)
|
||||
addw $6, %es:0x2e(%edi) /* Adjust RM SP */
|
||||
movb $0x1b,%al
|
||||
cld
|
||||
lodsl /* EAX = DS:[esi] CS:IP */
|
||||
movl %eax, %es:0x2a(%edi) /* store in structure */
|
||||
lodsl /* AX = FLAGS */
|
||||
movw %ax, %es:0x20(%edi)
|
||||
addw $6, %es:0x2e(%edi) /* Adjust RM SP */
|
||||
movb $0x1b,%al
|
||||
|
||||
.byte 0x2e /* CS: */
|
||||
testb $2, ___djgpp_hwint_flags /* Count, don't kill */
|
||||
jne 1f
|
||||
.byte 0x2e /* CS: */
|
||||
testb $2, ___djgpp_hwint_flags /* Count, don't kill */
|
||||
jne 1f
|
||||
|
||||
call ___djgpp_hw_exception
|
||||
iret
|
||||
call ___djgpp_hw_exception
|
||||
iret
|
||||
1:
|
||||
incl %es:___djgpp_cbrk_count
|
||||
iret
|
||||
incl %es:___djgpp_cbrk_count
|
||||
iret
|
||||
|
||||
.global ___djgpp_i24 /* Int 24 handler if needed */
|
||||
.global ___djgpp_iret /* Int 23 handler if needed */
|
||||
.global ___djgpp_i24 /* Int 24 handler if needed */
|
||||
.global ___djgpp_iret /* Int 23 handler if needed */
|
||||
___djgpp_i24:
|
||||
movb $3,%al
|
||||
movb $3,%al
|
||||
___djgpp_iret:
|
||||
iret
|
||||
iret
|
||||
|
||||
/* Code to stop execution ASAP, EAX destroyed. Make DS/ES/SS invalid.
|
||||
Fake exception value is passed in AL and moved into the "forced" variable.
|
||||
@ -454,38 +454,42 @@ ___djgpp_iret:
|
||||
control away from via longjmp or exit(), common with SIGINT, SIGFPE, or
|
||||
if we want EIP information on timers. */
|
||||
|
||||
.balign 16,,7
|
||||
.global ___djgpp_hw_exception
|
||||
.balign 16,,7
|
||||
.global ___djgpp_hw_exception
|
||||
___djgpp_hw_exception:
|
||||
.byte 0x2e /* CS: */
|
||||
cmpl $0, forced /* Already flagged? */
|
||||
jne already_forced
|
||||
pushl %ebx
|
||||
pushl %ecx
|
||||
pushl %edx
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl ___djgpp_app_DS, %ebx /* avoid size prefix */
|
||||
lsl %ebx, %ecx
|
||||
movl %ecx, ds_limit /* Save current limit */
|
||||
movb %al, forced /* Indicate a fake exception */
|
||||
xorl %ecx, %ecx
|
||||
movw $0xfff, %dx /* 4K limit is null page ! */
|
||||
movw $0x0008, %ax
|
||||
int $0x31 /* Set segment limit */
|
||||
5: popl %ds
|
||||
popl %edx
|
||||
popl %ecx
|
||||
popl %ebx
|
||||
.byte 0x2e /* CS: */
|
||||
cmpl $0, forced /* Already flagged? */
|
||||
jne already_forced
|
||||
pushl %ebx
|
||||
pushl %ecx
|
||||
pushl %edx
|
||||
pushl %ds
|
||||
movw %cs:___djgpp_our_DS, %ds
|
||||
movl ___djgpp_app_DS, %ebx /* avoid size prefix */
|
||||
lsl %ebx, %ecx
|
||||
movl %ecx, ds_limit /* Save current limit */
|
||||
movb %al, forced /* Indicate a fake exception */
|
||||
xorl %ecx, %ecx
|
||||
movw $0xfff, %dx /* 4K limit is null page ! */
|
||||
movw $0x0008, %ax
|
||||
int $0x31 /* Set segment limit */
|
||||
5: popl %ds
|
||||
popl %edx
|
||||
popl %ecx
|
||||
popl %ebx
|
||||
already_forced:
|
||||
ret
|
||||
ret
|
||||
|
||||
.global ___djgpp_hw_lock_end
|
||||
.global ___djgpp_hw_lock_end
|
||||
___djgpp_hw_lock_end:
|
||||
ret /* LD does weird things */
|
||||
|
||||
/*
|
||||
$Log$
|
||||
Revision 1.5 2002-09-07 16:01:18 peter
|
||||
Revision 1.6 2002-09-08 09:16:15 jonas
|
||||
* added closing of comment for logs to avoid warning
|
||||
|
||||
Revision 1.5 2002/09/07 16:01:18 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
*/
|
||||
@ -50,6 +50,10 @@ Lexit:
|
||||
ret
|
||||
/*
|
||||
$Log$
|
||||
Revision 1.3 2002-09-07 16:01:18 peter
|
||||
Revision 1.4 2002-09-08 09:16:15 jonas
|
||||
* added closing of comment for logs to avoid warning
|
||||
|
||||
Revision 1.3 2002/09/07 16:01:18 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
*/
|
||||
|
||||
@ -935,9 +935,13 @@ ___PROXY_LEN:
|
||||
|
||||
/*
|
||||
$Log$
|
||||
Revision 1.5 2002-09-07 16:01:19 peter
|
||||
Revision 1.6 2002-09-08 09:16:15 jonas
|
||||
* added closing of comment for logs to avoid warning
|
||||
|
||||
Revision 1.5 2002/09/07 16:01:19 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
Revision 1.4 2002/02/03 09:51:41 peter
|
||||
* merged winxp fixes
|
||||
|
||||
*/
|
||||
|
||||
Loading…
Reference in New Issue
Block a user