Rev 619 | Rev 643 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 619 | Rev 623 | ||
|---|---|---|---|
| Line 18... | Line 18... | ||
| 18 | movw h, %cx |
18 | movw h, %cx |
| 19 | xorl %eax, %eax |
19 | xorl %eax, %eax |
| 20 | movl style, %edx |
20 | movl style, %edx |
| 21 | decl %ebx {㬥ìè¨âì è¨à¨ã 1} |
21 | decl %ebx {㬥ìè¨âì è¨à¨ã 1} |
| 22 | decl %ecx {㬥ìè¨âì ¢ëá®âã 1} |
22 | decl %ecx {㬥ìè¨âì ¢ëá®âã 1} |
| - | 23 | andl $0xEFFFFFFF, %edx |
|
| 23 | int $0x40 |
24 | int $0x40 |
| 24 | popl %edi |
25 | popl %edi |
| 25 | popl %esi |
26 | popl %esi |
| 26 | popl %edx |
27 | popl %edx |
| 27 | popl %ecx |
28 | popl %ecx |
| Line 589... | Line 590... | ||
| 589 | int $0x40 |
590 | int $0x40 |
| 590 | popl %ebx |
591 | popl %ebx |
| 591 | end; |
592 | end; |
| Line -... | Line 593... | ||
| - | 593 | ||
| - | 594 | ||
| - | 595 | { Sound } |
|
| - | 596 | ||
| - | 597 | function kos_speak(notes: Pointer): Boolean; assembler; register; |
|
| - | 598 | asm |
|
| - | 599 | pushl %esi |
|
| - | 600 | pushl %ebx |
|
| - | 601 | movl $55, %esi |
|
| - | 602 | movl %esi, %ebx |
|
| - | 603 | xchgl %eax, %esi |
|
| - | 604 | int $0x40 |
|
| - | 605 | {eax = 55 - ®è¨¡ª } |
|
| - | 606 | andl $1, %eax |
|
| - | 607 | popl %ebx |
|
| - | 608 | popl %esi |
|
| - | 609 | xorb $1, %al |
|
| - | 610 | end; |
|
| 592 | 611 | ||
| Line 593... | Line 612... | ||
| 593 | 612 | ||
| 594 | { Work with hardware } |
613 | { Work with hardware } |
| 595 | 614 | ||