Rev 666 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 666 | Rev 763 | ||
---|---|---|---|
Line 144... | Line 144... | ||
144 | int $0x40 |
144 | int $0x40 |
145 | xchgl %eax, %ebx |
145 | xchgl %eax, %ebx |
146 | popl %ebx |
146 | popl %ebx |
147 | end; |
147 | end; |
Line -... | Line 148... | ||
- | 148 | ||
- | 149 | procedure kos_setkeyboardmode(mode: DWord); assembler; register; |
|
- | 150 | asm |
|
- | 151 | pushl %eax |
|
- | 152 | pushl %ebx |
|
- | 153 | movl $66, %ecx |
|
- | 154 | movl $1, %ebx |
|
- | 155 | xchgl %eax, %ecx |
|
- | 156 | int $0x40 |
|
- | 157 | xchgl %eax, %ecx |
|
- | 158 | popl %ebx |
|
- | 159 | popl %eax |
|
- | 160 | end; |
|
- | 161 | ||
- | 162 | function kos_getkeyboardmode(): DWord; assembler; register; |
|
- | 163 | asm |
|
- | 164 | pushl %ebx |
|
- | 165 | movl $66, %eax |
|
- | 166 | movl $2, %ebx |
|
- | 167 | int $0x40 |
|
- | 168 | popl %ebx |
|
- | 169 | end; |
|
148 | 170 | ||
149 | procedure kos_setcaption(caption: PChar); assembler; register; |
171 | procedure kos_setcaption(caption: PChar); assembler; register; |
150 | asm |
172 | asm |
151 | pushl %ecx |
173 | pushl %ecx |
152 | pushl %ebx |
174 | pushl %ebx |