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 var ipcPort: Word; |
25 var ipcPort: Word = 0; |
26 hiTicks: Word; |
26 hiTicks: Word; |
27 |
27 |
28 procedure initModule; |
28 procedure initModule; |
29 procedure freeModule; |
29 procedure freeModule; |
30 |
30 |
359 lastcmd:= nil; |
359 lastcmd:= nil; |
360 isPonged:= false; // was const |
360 isPonged:= false; // was const |
361 |
361 |
362 hiTicks:= 0; |
362 hiTicks:= 0; |
363 SendEmptyPacketTicks:= 0; |
363 SendEmptyPacketTicks:= 0; |
|
364 end; |
|
365 |
|
366 procedure freeModule; |
|
367 begin |
364 ipcPort:= 0; |
368 ipcPort:= 0; |
365 end; |
|
366 |
|
367 procedure freeModule; |
|
368 begin |
|
369 |
369 |
370 end; |
370 end; |
371 |
371 |
372 end. |
372 end. |