Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@585 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-29 15:58:35 +00:00
parent 0901d1e009
commit c01c39e928
19 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/console.pas
View File

@ -961,6 +961,7 @@ begin
//b:= pos shr 8;
//outb($3D5, b);
//redrawWindows;
//sleep(1);
end;
procedure backspace;

21
src/terminal.pas
View File

@ -19,7 +19,8 @@ uses
lmemorymanager,
strings,
tracer,
asuro;
asuro,
serial;
const
TERMINAL_HWND = 1;
@ -370,6 +371,21 @@ begin
console.toggleWNDVisible(1);
end;
procedure SendSerial(Params : PParamList);
begin
Serial.init(COM1);
Serial.Send(uint8('H'), COM1, 1000);
Serial.Send(uint8('E'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('O'), COM1, 1000);
Serial.Send(uint8('W'), COM1, 1000);
Serial.Send(uint8('O'), COM1, 1000);
Serial.Send(uint8('R'), COM1, 1000);
Serial.Send(uint8('L'), COM1, 1000);
Serial.Send(uint8('D'), COM1, 1000);
end;
procedure init;
begin
console.writestringln('TERMINAL: INIT BEGIN.');
@ -384,7 +400,8 @@ begin
registerCommand('CD', @change_dir, 'Change Directory test.');
registerCommand('PATTERN', @cockwomble, 'Print an animated pattern to the screen.');
registerCommand('TOGGLEWND1', @ToggleWND1, 'Toggle WND 1 Visibility.');
registerCommand('TIME', @printTime, 'PRINT TIME!');
registerCommand('TIME', @printTime, 'Print the current time.');
registerCommand('SERIAL', @SendSerial, 'Send ''helloworld'' through COM1.');
console.writestringln('TERMINAL: INIT END.');
end;