Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 065ddfd8d4
Branches Tags
fpc
/
rtl
/
ps1
/
psy-q-sdk
/
libmcx.pas

libmcx.pas 2.1 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 
  1. // libmcx.h
    2. 

  2. unit libmcx;
    3. 

  3. interface
    4. 

  4. 

  5. const
    6. 

  6. 	 McxFuncGetApl		= 1;
    7. 

  7. 	 McxFuncExecApl		= 2;
    8. 

  8. 	 McxFuncGetTime		= 3;
    9. 

  9. 	 McxFuncGetMem		= 4;
    10. 

  10. 	 McxFuncSetMem		= 5;
    11. 

  11. 	 McxFuncShowTrans	= 6;
    12. 

  12. 	 McxFuncHideTrans	= 7;
    13. 

  13. 	 McxFuncCurrCtrl	= 8;
    14. 

  14. 	 McxFuncSetLED		= 9;
    15. 

  15. 	 McxFuncGetSerial	= 10;
    16. 

  16. 	 McxFuncExecFlag	= 11;
    17. 

  17. 	 McxFuncAllInfo		= 12;
    18. 

  18. 	 McxFuncFlashAcs	= 13;
    19. 

  19. 	 McxFuncReadDev		= 14;
    20. 

  20. 	 McxFuncWriteDev	= 15;
    21. 

  21. 	 McxFuncGetUIFS		= 16;
    22. 

  22. 	 McxFuncSetUIFS		= 17;
    23. 

  23. 	 McxFuncSetTime		= 18;
    24. 

  24. 	 McxFuncCardType	= 19;
    25. 

  25. 

  26. 

  27. 	 McxSyncRun			= 0;
    28. 

  28. 	 McxSyncNone		= -1;
    29. 

  29. 	 McxSyncFin			= 1;
    30. 

  30. 

  31. 	 McxErrSuccess		= 0;
    32. 

  32. 	 McxErrNoCard		= 1;
    33. 

  33. 	 McxErrInvalid		= 2;
    34. 

  34. 	 McxErrNewCard		= 3;
    35. 

  35. 

  36. 

  37. 

  38. procedure McxStartCom; external;
    39. 

  39. procedure McxStopCom; external;
    40. 

  40. function McxSync(mode: longint; cmd: plongint; res: plongint): longint; external;
    41. 

  41. 

  42. function McxGetApl(port: longint; aplno: plongint): longint; external;
    43. 

  43. function McxExecApl(port: longint; aplno: longint; arg: longint): longint; external;
    44. 

  44. function McxGetTime(port: longint; time: pointer): longint; external;
    45. 

  45. function McxGetMem(port: longint; data: pointer; start, len: dword): longint; external;
    46. 

  46. function McxSetMem(port: longint; data: pointer; start, len: dword): longint; external;
    47. 

  47. function McxShowTrans(port, dir, timeout: longint): longint; external;
    48. 

  48. function McxHideTrans(port: longint): longint; external;
    49. 

  49. function McxCurrCtrl(port, sound, infred, led: longint): longint; external;
    50. 

  50. function McxFlashAcs(port, mode: longint): longint; external;
    51. 

  51. function McxGetSerial(port: longint; serial: pdword): longint; external;
    52. 

  52. function McxSetLED(port, mode: longint): longint; external;
    53. 

  53. function McxAllInfo(port: longint; state: pointer): longint; external;
    54. 

  54. function McxExecFlag(port, block, exec: longint): longint; external;
    55. 

  55. function McxReadDev(port, dev: longint; param, data: pointer): longint; external;
    56. 

  56. function McxWriteDev(port, dev: longint; param, data: pointer): longint; external;
    57. 

  57. function McxSetTime(port: longint; time: pointer): longint; external;
    58. 

  58. function McxGetUIFS(port: longint; data: pointer): longint; external;
    59. 

  59. function McxSetUIFS(port: longint; data: pointer): longint; external;
    60. 

  60. function McxCardType(port: longint): longint; external;
    61. 

  61. 

  62. 

  63. implementation
    64. 

  64. begin
    65. 

  65. end.
    66.