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

libmcrd.pas 1.8 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 
  1. // libmcrd.h	Rev. 4.2
    2. 

  2. unit libmcrd;
    3. 

  3. interface
    4. 

  4. uses libstd;
    5. 

  5. type
    6. 

  6. 	MemCB = function(cmds, rslt: longint): pointer;
    7. 

  7. const
    8. 

  8. 		McFuncExist			= 1;
    9. 

  9. 		McFuncAccept		= 2;
    10. 

  10. 		McFuncReadFile		= 3;
    11. 

  11. 		McFuncWriteFile		= 4;
    12. 

  12. 		McFuncReadData		= 5;
    13. 

  13. 		McFuncWriteData		= 6;
    14. 

  14. 

  15. 		McErrNone			= 0;
    16. 

  16. 		McErrCardNotExist	= 1;
    17. 

  17. 		McErrCardInvalid	= 2;
    18. 

  18. 		McErrNewCard		= 3;
    19. 

  19. 		McErrNotFormat		= 4;
    20. 

  20. 		McErrFileNotExist	= 5;
    21. 

  21. 		McErrAlreadyExist	= 6;
    22. 

  22. 		McErrBlockFull		= 7;
    23. 

  23. 		McErrExtend			= $8000;
    24. 

  24. 

  25. 

  26. procedure MemCardInit(val: longint); external;
    27. 

  27. procedure MemCardEnd; external;
    28. 

  28. procedure MemCardStart; external;
    29. 

  29. procedure MemCardStop; external;
    30. 

  30. function MemCardExist(chan: longint): longint; external;
    31. 

  31. function MemCardAccept(chan: longint): longint; external;
    32. 

  32. function MemCardOpen(chan: longint; filename: pchar; flag: longint): longint; external;
    33. 

  33. procedure MemCardClose; external;
    34. 

  34. function MemCardReadData(adrs: pdword; ofs: longint; bytes: longint): longint; external;
    35. 

  35. function MemCardReadFile(chan: longint; filename: pchar; adrs: pdword; ofs: longint; bytes: longint): longint; external;
    36. 

  36. function MemCardWriteData(adrs: pdword; ofs: longint; bytes: longint): longint; external;
    37. 

  37. function MemCardWriteFile(chan: longint; filename: pchar; adrs: pdword; ofs: longint; bytes: longint): longint; external;
    38. 

  38. function MemCardCreateFile(chan: longint; filename: pchar; blocks: longint): longint; external;
    39. 

  39. function MemCardDeleteFile(chan: longint; filename: pchar): longint; external;
    40. 

  40. function MemCardFormat(chan: longint): longint; external;
    41. 

  41. function MemCardUnformat(chan: longint): longint; external;
    42. 

  42. function MemCardSync(mode: longint; cmds: plongint; rslt: plongint): longint; external;
    43. 

  43. function MemCardCallback(func: MemCB): MemCB; external;
    44. 

  44. function MemCardGetDirentry(chan: longint; name: pchar; dir: PDIRENTRY; files: plongint; ofs: longint; max: longint): longint; external;
    45. 

  45. 

  46. implementation
    47. 

  47. begin
    48. 

  48. end.
    49.