paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also save BP in FPC_INTR

Browse Source 
git-svn-id: branches/i8086@24040 -
This commit is contained in:
nickysn 2013-03-28 21:26:44 +00:00
parent cd18b792ab
commit db07a990a9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/msdos/prt0.asm
View File

@ -17,6 +17,7 @@
global FPC_INTR global FPC_INTR
FPC_INTR: FPC_INTR:
mov byte [cs:int_number], al mov byte [cs:int_number], al
push bp
push es push es
push di push di
push bx push bx
@ -74,6 +75,7 @@ int_number:
pop bx pop bx
pop di pop di
pop es pop es
pop bp
ret ret
segment stack stack class=stack segment stack stack class=stack