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

libetc.pas 1.9 KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182 
  1. //  (C) Copyright 1993/1994 Sony Corporation,Tokyo,Japan. All Rights Reserved
    2. 

  2. // 			libetc.h: Pad Interface
    3. 

  3. unit libetc;
    4. 

  4. interface 
    5. 

  5. 

  6. var
    7. 

  7.  	PadIdentifier: longint; external;
    8. 

  8. // PAD I/O (SIO Pad)
    9. 

  9. const
    10. 

  10. 	PADLup     = 1 shl 12;
    11. 

  11. 	PADLdown   = 1 shl 14;
    12. 

  12. 	PADLleft   = 1 shl 15;
    13. 

  13. 	PADLright  = 1 shl 13;
    14. 

  14. 	PADRup     = 1 shl  4;
    15. 

  15. 	PADRdown   = 1 shl  6;
    16. 

  16. 	PADRleft   = 1 shl  7;
    17. 

  17. 	PADRright  = 1 shl  5;
    18. 

  18. 	PADi       = 1 shl  9;
    19. 

  19. 	PADj       = 1 shl 10;
    20. 

  20. 	PADk       = 1 shl  8;
    21. 

  21. 	PADl       = 1 shl  3;
    22. 

  22. 	PADm       = 1 shl  1;
    23. 

  23. 	PADn       = 1 shl  2;
    24. 

  24. 	PADo       = 1 shl  0;
    25. 

  25. 	PADh       = 1 shl 11;
    26. 

  26. 	PADL1      = PADn;
    27. 

  27. 	PADL2      = PADo;
    28. 

  28. 	PADR1      = PADl;
    29. 

  29. 	PADR2      = PADm;
    30. 

  30. 	PADstart   = PADh;
    31. 

  31. 	PADselect  = PADk;
    32. 

  32. 			    
    33. 

  33. 	MOUSEleft  = 1 shl 3;
    34. 

  34. 	MOUSEright = 1 shl 2;
    35. 

  35. 

  36. // PAD utility macro: _PAD(x,y)
    37. 

  37. //   x: controller ID (0 or 1)
    38. 

  38. //   y: PAD assign macro
    39. 

  39. //
    40. 

  40. // Example: _PAD(0,PADstart) ... PADstart of controller 1
    41. 

  41. //          _PAD(1,PADLup)   ... PADLup of controller 2
    42. 

  42. function _PAD(x, y: longint): longint;
    43. 

  43. 

  44. // scratch pad address 0x1f800000 - 0x1f800400 */
    45. 

  45. function getScratchAddr(offset: dword): dword;
    46. 

  46. 

  47. 

  48. // Video Mode:	NTSC/PAL
    49. 

  49. const
    50. 

  50. 	MODE_NTSC = 0;
    51. 

  51. 	MODE_PAL  = 1;
    52. 

  52. 

  53. function CheckCallback: longint; stdcall; external;
    54. 

  54. procedure PadInit(mode: longint); stdcall; external;
    55. 

  55. function ResetCallback: longint; stdcall; external;
    56. 

  56. function RestartCallback: longint; stdcall; external;
    57. 

  57. function StopCallback: longint; stdcall; external;
    58. 

  58. function VSync(mode: longint): longint; stdcall; external;
    59. 

  59. function VSyncCallback(f: pointer): longint; stdcall; external;
    60. 

  60. function GetVideoMode: longint; stdcall; external;
    61. 

  61. function SetVideoMode(mode: longint): longint; stdcall; external;
    62. 

  62. function PadRead(id: longint): dword; stdcall; external;
    63. 

  63. procedure PadStop; stdcall; external;
    64. 

  64. 

  65. 

  66. implementation
    67. 

  67. 

  68. 

  69. function _PAD(x, y: longint): longint;
    70. 

  70. begin
    71. 

  71. 	_PAD:= y shl x shl 4;
    72. 

  72. end;
    73. 

  73. 

  74. 

  75. function getScratchAddr(offset: dword): dword;
    76. 

  76. begin
    77. 

  77. 	getScratchAddr:= $1f800000+(offset*4);
    78. 

  78. end;
    79. 

  79. 

  80. 

  81. begin
    82. 

  82. end.
    83.