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

libgun.pas 363 B
History Raw

12345678910111213 
  1. //  libetc.h: Light Gun Interface
    2. 

  2. unit libgun;
    3. 

  3. interface
    4. 

  4. 

  5. procedure InitGUN(bufA: Pbyte; lenA: longint; bufB: Pbyte; lenB: longint; buf1: Pbyte; buf2: Pbyte; len: longint); external;
    6. 

  6. procedure RemoveGUN; external;
    7. 

  7. procedure SelectGUN(ch: longint; mask: byte); external;
    8. 

  8. function StartGUN: longint; external;
    9. 

  9. procedure StopGUN; external;
    10. 

  10. 

  11. implementation
    12. 

  12. begin
    13. 

  13. end.
    14.