/programs/develop/fp/rtl/kos.inc |
---|
20,6 → 20,7 |
movl style, %edx |
decl %ebx {㬥ìè¨âì è¨à¨ã 1} |
decl %ecx {㬥ìè¨âì ¢ëá®âã 1} |
andl $0xEFFFFFFF, %edx |
int $0x40 |
popl %edi |
popl %esi |
591,6 → 592,24 |
end; |
{ Sound } |
function kos_speak(notes: Pointer): Boolean; assembler; register; |
asm |
pushl %esi |
pushl %ebx |
movl $55, %esi |
movl %esi, %ebx |
xchgl %eax, %esi |
int $0x40 |
{eax = 55 - ®è¨¡ª } |
andl $1, %eax |
popl %ebx |
popl %esi |
xorb $1, %al |
end; |
{ Work with hardware } |
function kos_readport(index: DWord): DWord; assembler; register; |