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
/
libpad.pas

libpad.pas 1.4 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 
  1. //	libpad.h
    2. 

  2. unit libpad;
    3. 

  3. interface
    4. 

  4. const
    5. 

  5. 	 PadStateDiscon		= 0;
    6. 

  6. 	 PadStateFindPad	= 1;
    7. 

  7. 	 PadStateFindCTP1	= 2;
    8. 

  8. 	 PadStateFindCTP2	= 3;
    9. 

  9. 	 PadStateReqInfo	= 4;
    10. 

  10. 	 PadStateExecCmd	= 5;
    11. 

  11. 	 PadStateStable		= 6;
    12. 

  12. 

  13. 	 InfoModeCurID		= 1;
    14. 

  14. 	 InfoModeCurExID	= 2;
    15. 

  15. 	 InfoModeCurExOffs	= 3;
    16. 

  16. 	 InfoModeIdTable	= 4;
    17. 

  17. 

  18. 	 InfoActFunc		= 1;
    19. 

  19. 	 InfoActSub			= 2;
    20. 

  20. 	 InfoActSize		= 3;
    21. 

  21. 	 InfoActCurr		= 4;
    22. 

  22. 	 InfoActSign		= 5;
    23. 

  23. 

  24. 	 PadMaxCurr			= 60;	// PS maximum current supply
    25. 

  25. 	 PadCurrCTP1		= 10;	// SCPH-1150 biblator current
    26. 

  26. 

  27. 

  28. procedure PadInitDirect(pad1, pad2: pbyte); external;
    29. 

  29. procedure PadInitMtap(pad1, pad2: pbyte); external;
    30. 

  30. procedure PadInitGun(buf: pbyte; len: longint); external;
    31. 

  31. function PadChkVsync: longint; external;
    32. 

  32. procedure PadStartCom; external;
    33. 

  33. procedure PadStopCom; external;
    34. 

  34. function PadEnableCom(mode: dword): dword; external;
    35. 

  35. procedure PadEnableGun(mask: byte); external;
    36. 

  36. procedure PadRemoveGun; external;
    37. 

  37. function PadGetState(port: longint): longint; external;
    38. 

  38. function PadInfoMode(port, term, ofs: longint): longint; external;
    39. 

  39. function PadInfoAct(port, actno, term: longint): longint; external;
    40. 

  40. function PadInfoComb(port, listno, term: longint): longint; external;
    41. 

  41. function PadSetActAlign(port: longint; data: pointer): longint; external;
    42. 

  42. function PadSetMainMode(socket, offs, lock: longint): longint; external;
    43. 

  43. procedure PadSetAct(port: longint; data: pointer; len: longint); external;
    44. 

  44. 

  45. implementation
    46. 

  46. begin
    47. 

  47. end.
    48.