equal
deleted
inserted
replaced
20 |
20 |
21 unit uIO; |
21 unit uIO; |
22 interface |
22 interface |
23 uses SDLh; |
23 uses SDLh; |
24 |
24 |
25 const ipcPort: Word = 0; |
25 var ipcPort: Word; |
26 var hiTicks: Word; |
26 hiTicks: Word; |
27 |
27 |
28 procedure init_uIO; |
28 procedure init_uIO; |
|
29 procedure free_uIO; |
|
30 |
29 procedure SendIPC(s: shortstring); |
31 procedure SendIPC(s: shortstring); |
30 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
32 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
31 procedure SendIPCRaw(p: pointer; len: Longword); |
33 procedure SendIPCRaw(p: pointer; len: Longword); |
32 procedure SendIPCAndWaitReply(s: shortstring); |
34 procedure SendIPCAndWaitReply(s: shortstring); |
33 procedure SendIPCTimeInc; |
35 procedure SendIPCTimeInc; |
350 lastcmd:= nil; |
352 lastcmd:= nil; |
351 isPonged:= false; // was const |
353 isPonged:= false; // was const |
352 |
354 |
353 hiTicks:= 0; |
355 hiTicks:= 0; |
354 SendEmptyPacketTicks:= 0; |
356 SendEmptyPacketTicks:= 0; |
|
357 ipcPort:= 0; |
|
358 end; |
|
359 |
|
360 procedure free_uIO; |
|
361 begin |
|
362 |
355 end; |
363 end; |
356 |
364 |
357 end. |
365 end. |