Rev 6755 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 6755 | Rev 7107 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016 Anton Krotov |
2 | Copyright 2016, 2017 Anton Krotov |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
| 5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
| 6 | the Free Software Foundation, either version 3 of the License, or |
6 | the Free Software Foundation, either version 3 of the License, or |
| Line 164... | Line 164... | ||
| 164 | PROCEDURE ExitProcess*(p1: INTEGER); |
164 | PROCEDURE ExitProcess*(p1: INTEGER); |
| 165 | BEGIN |
165 | BEGIN |
| 166 | p1 := sysfunc1(-1) |
166 | p1 := sysfunc1(-1) |
| 167 | END ExitProcess; |
167 | END ExitProcess; |
| Line -... | Line 168... | ||
| - | 168 | ||
| - | 169 | PROCEDURE ExitThread*(p1: INTEGER); |
|
| - | 170 | BEGIN |
|
| - | 171 | p1 := sysfunc1(-1) |
|
| - | 172 | END ExitThread; |
|
| 168 | 173 | ||
| 169 | PROCEDURE OutChar(c: CHAR); |
174 | PROCEDURE OutChar(c: CHAR); |
| 170 | VAR res: INTEGER; |
175 | VAR res: INTEGER; |
| 171 | BEGIN |
176 | BEGIN |
| 172 | res := sysfunc3(63, 1, ORD(c)) |
177 | res := sysfunc3(63, 1, ORD(c)) |