| /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; |
| /programs/develop/fp/rtl/kosh.inc |
|---|
| 140,6 → 140,10 |
| function kos_writefile(kosfile: PKosFile; var writed: Longint): DWord; |
| function kos_fileinfo(kosfile: PKosFile): DWord; |
| { Sound } |
| function kos_speak(notes: Pointer): Boolean; |
| { Work with hardware } |
| function kos_readport(index: DWord): DWord; |
| procedure kos_writeport(index, value: DWord); |