paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 07:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* it might even work now ;-)

Browse Source
This commit is contained in:
Tomas Hajny 2000-01-02 17:13:12 +00:00
parent 39c2e320cf
commit 3eb5f51a96
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/os2/ports.pas
View File

@ -68,7 +68,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
movb Data, %al
@ -80,7 +80,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
inb %dx, %al
@ -91,7 +91,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
movw Data, %ax
@ -103,7 +103,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
inw %dx, %ax
@ -114,7 +114,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
movl Data, %eax
@ -126,7 +126,7 @@ asm
xorl %ecx, %ecx
movw P, %cx
movl %ecx, %edx
movb $12, %al
movw $0x7F12, %ax
call syscall
movw P, %dx
inl %dx, %eax
@ -136,7 +136,10 @@ end.
{
$Log$
Revision 1.1 2000-01-02 16:05:36 hajny
Revision 1.2 2000-01-02 17:13:12 hajny
* it might even work now ;-)
Revision 1.1 2000/01/02 16:05:36 hajny
+ initial OS/2 release
}