paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed unpreaty line endings / beginnings

Browse Source
This commit is contained in:
Kirill Kranz 2024-10-18 17:33:06 +02:00
parent 192b8a8bff
commit 53df6927c5
7 changed files with 450 additions and 367 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

220
rtl/ps1/psy-q-sdk/libgpu.pas
View File

File diff suppressed because it is too large Load Diff

16
rtl/ps1/psy-q-sdk/libgs.pas
View File

@ -175,14 +175,14 @@ type
w, h : word; w, h : word;
r, g, b : byte; r, g, b : byte;
end; end;
PGsBOXF = ^GsBOXF; PGsBOXF = ^GsBOXF;
GsFOGPARAM = packed record GsFOGPARAM = packed record
dqa : smallint; dqa : smallint;
dqb : longint; dqb : longint;
rfc, gfc, bfc : byte; rfc, gfc, bfc : byte;
end; end;
PGsFOGPARAM = ^GsFOGPARAM; PGsFOGPARAM = ^GsFOGPARAM;
GsIMAGE = packed record GsIMAGE = packed record
@ -938,7 +938,7 @@ type
var var
CLIP2 : RECT; external; // clipping area CLIP2 : RECT; external; // clipping area
PSDBASEX : array [0..1] of smallint; external; // double buffer base PSDBASEX : array [0..1] of smallint; external; // double buffer base
PSDBASEY : array [0..1] of smallint; external; PSDBASEY : array [0..1] of smallint; external;
PSDIDX : smallint; external; // double buffer index PSDIDX : smallint; external; // double buffer index
PSDCNT : dword; external; // frame counter for using matrix cache PSDCNT : dword; external; // frame counter for using matrix cache
POSITION : _GsPOSITION; external; // 2d offset POSITION : _GsPOSITION; external; // 2d offset
@ -956,7 +956,7 @@ var
GsADIVW : smallint; external; GsADIVW : smallint; external;
GsADIVH : smallint; external; // Active sub divide condition (w,h) GsADIVH : smallint; external; // Active sub divide condition (w,h)
GsLIGHT_MODE : longint; external; // lighting mode global GsLIGHT_MODE : longint; external; // lighting mode global
GsMATE_C : dword; external; GsMATE_C : dword; external;
GsLMODE : dword; external; GsLMODE : dword; external;
GsLIGNR : dword; external; GsLIGNR : dword; external;
GsLIOFF : dword; external; GsLIOFF : dword; external;
@ -983,16 +983,16 @@ procedure GsIncFrame;
begin begin
inc(PSDCNT); inc(PSDCNT);
if PSDCNT > 0 then PSDCNT:= PSDCNT else PSDCNT:= 1; if PSDCNT > 0 then PSDCNT:= PSDCNT else PSDCNT:= 1;
if PSDIDX = 0 then PSDIDX:=1 else PSDIDX:= 0; if PSDIDX = 0 then PSDIDX:=1 else PSDIDX:= 0;
end; end;
procedure GsUpdateCoord; procedure GsUpdateCoord;
begin begin
inc(PSDCNT); inc(PSDCNT);
if PSDCNT > 0 then PSDCNT:= PSDCNT else PSDCNT:= 1; if PSDCNT > 0 then PSDCNT:= PSDCNT else PSDCNT:= 1;

21
rtl/ps1/psy-q-sdk/libgte.pas
View File

@ -11,18 +11,19 @@ const
type type
PMATRIX = ^MATRIX;
MATRIX = packed record MATRIX = packed record
m : array [0..2, 0..2] of smallint; // 3x3 rotation matrix m : array [0..2, 0..2] of smallint; // 3x3 rotation matrix
t : array [0..2] of longint; // transfer vector t : array [0..2] of longint; // transfer vector
end; end;
PMATRIX = ^MATRIX;
VECTOR = packed record // long word type 3D vector
vx, vy : longint;
vz, pad : longint;
end;
PVECTOR = ^VECTOR;
VECTOR = packed record // long word type 3D vector
vx, vy : longint;
vz, pad : longint;
end;
PVECTOR = ^VECTOR;
SVECTOR = packed record // short word type 3D vector SVECTOR = packed record // short word type 3D vector
vx, vy : smallint; vx, vy : smallint;
vz, pad : smallint; vz, pad : smallint;

463
rtl/ps1/psy-q-sdk/libhmd.pas
View File

@ -54,7 +54,7 @@ type
offset : longint; offset : longint;
out_packetp : PPACKET; out_packetp : PPACKET;
end; end;
PGsWORKUNIT = ^GsWORKUNIT; PGsWORKUNIT = ^GsWORKUNIT;
GsWORKUNIT = packed record GsWORKUNIT = packed record
vec : DVECTOR; vec : DVECTOR;
@ -86,7 +86,6 @@ type
nortop2 : PSVECTOR; nortop2 : PSVECTOR;
end; end;
GsARGUNIT_IMAGE = packed record GsARGUNIT_IMAGE = packed record
primp : pdword; primp : pdword;
tagp : PGsOT; tagp : PGsOT;
@ -196,9 +195,9 @@ type
vert_sect : PSVECTOR; vert_sect : PSVECTOR;
norm_sect : PSVECTOR; norm_sect : PSVECTOR;
end; end;
PGsARGUNIT_ANIM = ^GsARGUNIT_ANIM; PGsARGUNIT_ANIM = ^GsARGUNIT_ANIM;
GsARGUNIT_ANIM = packed record GsARGUNIT_ANIM = packed record
primp : pdword; primp : pdword;
tagp : PGsOT; tagp : PGsOT;
shift : longint; shift : longint;
@ -240,258 +239,258 @@ type
const const
GsUF3 = $00000008; // flat triangle GsUF3 = $00000008; // flat triangle
GsUFT3 = $00000009; // texture flat triangle GsUFT3 = $00000009; // texture flat triangle
GsUG3 = $0000000c; // gour triangle GsUG3 = $0000000c; // gour triangle
GsUGT3 = $0000000d; // texture gour triangle GsUGT3 = $0000000d; // texture gour triangle
GsUF4 = $00000010; // flat quad GsUF4 = $00000010; // flat quad
GsUFT4 = $00000011; // texture flat quad GsUFT4 = $00000011; // texture flat quad
GsUG4 = $00000014; // gour quad GsUG4 = $00000014; // gour quad
GsUGT4 = $00000015; // texture gour quad GsUGT4 = $00000015; // texture gour quad
GsUFF3 = $00020008; // fog flat triangle GsUFF3 = $00020008; // fog flat triangle
GsUFFT3 = $00020009; // fog texture flat triangle GsUFFT3 = $00020009; // fog texture flat triangle
GsUFG3 = $0002000c; // fog gour triangle GsUFG3 = $0002000c; // fog gour triangle
GsUFGT3 = $0002000d; // fog texture gour triangle GsUFGT3 = $0002000d; // fog texture gour triangle
GsUFF4 = $00020010; // fog flat quad GsUFF4 = $00020010; // fog flat quad
GsUFFT4 = $00020011; // fog texture flat quad GsUFFT4 = $00020011; // fog texture flat quad
GsUFG4 = $00020014; // fog gour quad GsUFG4 = $00020014; // fog gour quad
GsUFGT4 = $00020015; // fog texture gour quad GsUFGT4 = $00020015; // fog texture gour quad
GsUCF3 = $0000000a; // colored flat triangle GsUCF3 = $0000000a; // colored flat triangle
GsUCFT3 = $0000000b; // colored texture flat triangle GsUCFT3 = $0000000b; // colored texture flat triangle
GsUCG3 = $0000000e; // colored gour triangle GsUCG3 = $0000000e; // colored gour triangle
GsUCGT3 = $0000000f; // colored texture gour triangle GsUCGT3 = $0000000f; // colored texture gour triangle
GsUCF4 = $00000012; // colored flat quad GsUCF4 = $00000012; // colored flat quad
GsUCFT4 = $00000013; // colored texture flat quad GsUCFT4 = $00000013; // colored texture flat quad
GsUCG4 = $00000016; // colored gour quad GsUCG4 = $00000016; // colored gour quad
GsUCGT4 = $00000017; // colored texture gour quad GsUCGT4 = $00000017; // colored texture gour quad
GsUNF3 = $00040048; // nonLight flat triangle GsUNF3 = $00040048; // nonLight flat triangle
GsUNFT3 = $00040049; // nonLight texture flat triangle GsUNFT3 = $00040049; // nonLight texture flat triangle
GsUNG3 = $0004004c; // nonLight gouraud triangle GsUNG3 = $0004004c; // nonLight gouraud triangle
GsUNGT3 = $0004004d; // nonLight texture gouraud triangle GsUNGT3 = $0004004d; // nonLight texture gouraud triangle
GsUNF4 = $00040050; // nonLight flat quad GsUNF4 = $00040050; // nonLight flat quad
GsUNFT4 = $00040051; // nonLight texture flat quad GsUNFT4 = $00040051; // nonLight texture flat quad
GsUNG4 = $00040054; // nonLight gouraud quad GsUNG4 = $00040054; // nonLight gouraud quad
GsUNGT4 = $00040055; // nonLight texture gouraud quad GsUNGT4 = $00040055; // nonLight texture gouraud quad
GsUDF3 = $00010008; // div flat triangle GsUDF3 = $00010008; // div flat triangle
GsUDFT3 = $00010009; // div texture flat triangle GsUDFT3 = $00010009; // div texture flat triangle
GsUDG3 = $0001000c; // div gour triangle GsUDG3 = $0001000c; // div gour triangle
GsUDGT3 = $0001000d; // div texture gour triangle GsUDGT3 = $0001000d; // div texture gour triangle
GsUDF4 = $00010010; // div flat quad GsUDF4 = $00010010; // div flat quad
GsUDFT4 = $00010011; // div texture flat quad GsUDFT4 = $00010011; // div texture flat quad
GsUDG4 = $00010014; // div gour quad GsUDG4 = $00010014; // div gour quad
GsUDGT4 = $00010015; // div texture gour quad GsUDGT4 = $00010015; // div texture gour quad
GsUDFF3 = $00030008; // div fog flat triangle GsUDFF3 = $00030008; // div fog flat triangle
GsUDFFT3 = $00030009; // div fog texture flat triangle GsUDFFT3 = $00030009; // div fog texture flat triangle
GsUDFG3 = $0003000c; // div fog gour triangle GsUDFG3 = $0003000c; // div fog gour triangle
GsUDFGT3 = $0003000d; // div fog texture gour triangle GsUDFGT3 = $0003000d; // div fog texture gour triangle
GsUDFF4 = $00030010; // div fog flat quad GsUDFF4 = $00030010; // div fog flat quad
GsUDFFT4 = $00030011; // div fog texture flat quad GsUDFFT4 = $00030011; // div fog texture flat quad
GsUDFG4 = $00030014; // div fog gour quad GsUDFG4 = $00030014; // div fog gour quad
GsUDFGT4 = $00030015; // div fog texture gour quad GsUDFGT4 = $00030015; // div fog texture gour quad
GsUDNF3 = $00050048; // div nonLight flat triangle GsUDNF3 = $00050048; // div nonLight flat triangle
GsUDNFT3 = $00050049; // div nonLight texture flat triangle GsUDNFT3 = $00050049; // div nonLight texture flat triangle
GsUDNG3 = $0005004c; // div nonLight gouraud triangle GsUDNG3 = $0005004c; // div nonLight gouraud triangle
GsUDNGT3 = $0005004d; // div nonLight tex gouraud triangle GsUDNGT3 = $0005004d; // div nonLight tex gouraud triangle
GsUDNF4 = $00050050; // div nonLight flat quad GsUDNF4 = $00050050; // div nonLight flat quad
GsUDNFT4 = $00050051; // div nonLight texture flat quad GsUDNFT4 = $00050051; // div nonLight texture flat quad
GsUDNG4 = $00050054; // div nonLight gouraud quad GsUDNG4 = $00050054; // div nonLight gouraud quad
GsUDNGT4 = $00050055; // div nonLight tex gouraud quad GsUDNGT4 = $00050055; // div nonLight tex gouraud quad
GsUSCAL = $01000000; // shared calculate vertex and normal GsUSCAL = $01000000; // shared calculate vertex and normal
GsUSG3 = $0100000c; // shared gour triangle GsUSG3 = $0100000c; // shared gour triangle
GsUSGT3 = $0100000d; // shared texture gour triangle GsUSGT3 = $0100000d; // shared texture gour triangle
GsUSG4 = $01000014; // shared gour quad GsUSG4 = $01000014; // shared gour quad
GsUSGT4 = $01000015; // shared texture gour quad GsUSGT4 = $01000015; // shared texture gour quad
GsUSTGT3 = $0100020d; // shared tile texture gour triangle GsUSTGT3 = $0100020d; // shared tile texture gour triangle
GsUSTGT4 = $01000215; // shared tile texture gour quad GsUSTGT4 = $01000215; // shared tile texture gour quad
GsUSFG3 = $0102000c; // shared fog gour triangle GsUSFG3 = $0102000c; // shared fog gour triangle
GsUSFGT3 = $0102000d; // shared fog texture gour triangle GsUSFGT3 = $0102000d; // shared fog texture gour triangle
GsUSFG4 = $01020014; // shared fog gour quad GsUSFG4 = $01020014; // shared fog gour quad
GsUSFGT4 = $01020015; // shared fog texture gour quad GsUSFGT4 = $01020015; // shared fog texture gour quad
GsUSNF3 = $01040048; // shared nonLight flat tri GsUSNF3 = $01040048; // shared nonLight flat tri
GsUSNFT3 = $01040049; // shared nonLight texture flat tri GsUSNFT3 = $01040049; // shared nonLight texture flat tri
GsUSNG3 = $0104004c; // shared nonLight gour tri GsUSNG3 = $0104004c; // shared nonLight gour tri
GsUSNGT3 = $0104004d; // shared nonLight texture gour tri GsUSNGT3 = $0104004d; // shared nonLight texture gour tri
GsUSNF4 = $01040050; // shared nonLight flat quad GsUSNF4 = $01040050; // shared nonLight flat quad
GsUSNFT4 = $01040051; // shared nonLight texture flat quad GsUSNFT4 = $01040051; // shared nonLight texture flat quad
GsUSNG4 = $01040054; // shared nonLight gour quad GsUSNG4 = $01040054; // shared nonLight gour quad
GsUSNGT4 = $01040055; // shared nonLight texture gour quad GsUSNGT4 = $01040055; // shared nonLight texture gour quad
GsUMF3 = $00000018; // mesh flat tri GsUMF3 = $00000018; // mesh flat tri
GsUMFT3 = $00000019; // mesh texture flat tri GsUMFT3 = $00000019; // mesh texture flat tri
GsUMG3 = $0000001c; // mesh gour triangle GsUMG3 = $0000001c; // mesh gour triangle
GsUMGT3 = $0000001d; // mesh texture gour triangle GsUMGT3 = $0000001d; // mesh texture gour triangle
GsUMNF3 = $00040058; // mesh nonLight flat tri GsUMNF3 = $00040058; // mesh nonLight flat tri
GsUMNFT3 = $00040059; // mesh nonLight tex flat tri GsUMNFT3 = $00040059; // mesh nonLight tex flat tri
GsUMNG3 = $0004005c; // mesh nonLight gour triangle GsUMNG3 = $0004005c; // mesh nonLight gour triangle
GsUMNGT3 = $0004005d; // mesh nonLight tex gour tri GsUMNGT3 = $0004005d; // mesh nonLight tex gour tri
GsUTFT3 = $00000209; // tile texture flat triangle GsUTFT3 = $00000209; // tile texture flat triangle
GsUTGT3 = $0000020d; // tile texture gour triangle GsUTGT3 = $0000020d; // tile texture gour triangle
GsUTFT4 = $00000211; // tile texture flat quad GsUTFT4 = $00000211; // tile texture flat quad
GsUTGT4 = $00000215; // tile texture gour quad GsUTGT4 = $00000215; // tile texture gour quad
GsUPNF3 = $00040148; // preset nonLight flat triangle GsUPNF3 = $00040148; // preset nonLight flat triangle
GsUPNFT3 = $00040149; // preset nonLight tex flat triangle GsUPNFT3 = $00040149; // preset nonLight tex flat triangle
GsUPNG3 = $0004014c; // preset nonLight gouraud triangle GsUPNG3 = $0004014c; // preset nonLight gouraud triangle
GsUPNGT3 = $0004014d; // preset nonLight tex gour triangle GsUPNGT3 = $0004014d; // preset nonLight tex gour triangle
GsUPNF4 = $00040150; // preset nonLight flat quad GsUPNF4 = $00040150; // preset nonLight flat quad
GsUPNFT4 = $00040151; // preset nonLight tex flat quad GsUPNFT4 = $00040151; // preset nonLight tex flat quad
GsUPNG4 = $00040154; // preset nonLight gouraud quad GsUPNG4 = $00040154; // preset nonLight gouraud quad
GsUPNGT4 = $00040155; // preset nonLight tex gour quad GsUPNGT4 = $00040155; // preset nonLight tex gour quad
GsUSTPF3 = $00200008; // semi-trans flat triangle GsUSTPF3 = $00200008; // semi-trans flat triangle
GsUSTPFT3 = $00200009; // semi-trans texture flat triangle GsUSTPFT3 = $00200009; // semi-trans texture flat triangle
GsUSTPG3 = $0020000c; // semi-trans gour triangle GsUSTPG3 = $0020000c; // semi-trans gour triangle
GsUSTPGT3 = $0020000d; // semi-trans texture gour triangle GsUSTPGT3 = $0020000d; // semi-trans texture gour triangle
GsUSTPF4 = $00200010; // semi-trans flat quad GsUSTPF4 = $00200010; // semi-trans flat quad
GsUSTPFT4 = $00200011; // semi-trans texture flat quad GsUSTPFT4 = $00200011; // semi-trans texture flat quad
GsUSTPG4 = $00200014; // semi-trans gour quad GsUSTPG4 = $00200014; // semi-trans gour quad
GsUSTPGT4 = $00200015; // semi-trans texture gour quad GsUSTPGT4 = $00200015; // semi-trans texture gour quad
GsUSTPSG3 = $0120000c; // semi-trans shared gour tri GsUSTPSG3 = $0120000c; // semi-trans shared gour tri
GsUSTPSGT3 = $0120000d; // semi-trans shared tex gour tri GsUSTPSGT3 = $0120000d; // semi-trans shared tex gour tri
GsUSTPSG4 = $01200014; // semi-trans shared gour quad GsUSTPSG4 = $01200014; // semi-trans shared gour quad
GsUSTPSGT4 = $01200015; // semi-trans shared tex gour quad GsUSTPSGT4 = $01200015; // semi-trans shared tex gour quad
GsUSTPNF3 = $00240048; // semi-trans nonLight flat tri GsUSTPNF3 = $00240048; // semi-trans nonLight flat tri
GsUSTPNFT3 = $00240049; // semi-trans nonLight tex flat tri GsUSTPNFT3 = $00240049; // semi-trans nonLight tex flat tri
GsUSTPNG3 = $0024004c; // semi-trans nonLight gour tri GsUSTPNG3 = $0024004c; // semi-trans nonLight gour tri
GsUSTPNGT3 = $0024004d; // semi-trans nonLight tex gour tri GsUSTPNGT3 = $0024004d; // semi-trans nonLight tex gour tri
GsUSTPNF4 = $00240050; // semi-trans nonLight flat quad GsUSTPNF4 = $00240050; // semi-trans nonLight flat quad
GsUSTPNFT4 = $00240051; // semi-trans nonLight tex flat quad GsUSTPNFT4 = $00240051; // semi-trans nonLight tex flat quad
GsUSTPNG4 = $00240054; // semi-trans nonLight gour quad GsUSTPNG4 = $00240054; // semi-trans nonLight gour quad
GsUSTPNGT4 = $00240055; // semi-trans nonLight tex gour quad GsUSTPNGT4 = $00240055; // semi-trans nonLight tex gour quad
GsUSTPSNF3 = $01240048; // stp shared nonLight flat tri GsUSTPSNF3 = $01240048; // stp shared nonLight flat tri
GsUSTPSNFT3 = $01240049; // stp shared nonLight tex flat tri GsUSTPSNFT3 = $01240049; // stp shared nonLight tex flat tri
GsUSTPSNG3 = $0124004c; // stp shared nonLight gour tri GsUSTPSNG3 = $0124004c; // stp shared nonLight gour tri
GsUSTPSNGT3 = $0124004d; // stp shared nonLight tex gour tri GsUSTPSNGT3 = $0124004d; // stp shared nonLight tex gour tri
GsUSTPSNF4 = $01240050; // stp shared nonLight flat quad GsUSTPSNF4 = $01240050; // stp shared nonLight flat quad
GsUSTPSNFT4 = $01240051; // stp shared nonLight tex flat quad GsUSTPSNFT4 = $01240051; // stp shared nonLight tex flat quad
GsUSTPSNG4 = $01240054; // stp shared nonLight gour quad GsUSTPSNG4 = $01240054; // stp shared nonLight gour quad
GsUSTPSNGT4 = $01240055; // stp shared nonLight tex gour quad GsUSTPSNGT4 = $01240055; // stp shared nonLight tex gour quad
GsUADF3 = $00080008; // active-div flat triangle GsUADF3 = $00080008; // active-div flat triangle
GsUADFT3 = $00080009; // active-div texture flat triangle GsUADFT3 = $00080009; // active-div texture flat triangle
GsUADG3 = $0008000c; // active-div gour triangle GsUADG3 = $0008000c; // active-div gour triangle
GsUADGT3 = $0008000d; // active-div texture gour triangle GsUADGT3 = $0008000d; // active-div texture gour triangle
GsUADF4 = $00080010; // active-div flat quad GsUADF4 = $00080010; // active-div flat quad
GsUADFT4 = $00080011; // active-div texture flat quad GsUADFT4 = $00080011; // active-div texture flat quad
GsUADG4 = $00080014; // active-div gour quad GsUADG4 = $00080014; // active-div gour quad
GsUADGT4 = $00080015; // active-div texture gour quad GsUADGT4 = $00080015; // active-div texture gour quad
GsUADFF3 = $000a0008; // active-div fog flat tri GsUADFF3 = $000a0008; // active-div fog flat tri
GsUADFFT3 = $000a0009; // active-div fog texture flat tri GsUADFFT3 = $000a0009; // active-div fog texture flat tri
GsUADFG3 = $000a000c; // active-div fog gour tri GsUADFG3 = $000a000c; // active-div fog gour tri
GsUADFGT3 = $000a000d; // active-div fog texture gour tri GsUADFGT3 = $000a000d; // active-div fog texture gour tri
GsUADFF4 = $000a0010; // active-div fog flat quad GsUADFF4 = $000a0010; // active-div fog flat quad
GsUADFFT4 = $000a0011; // active-div fog texture flat quad GsUADFFT4 = $000a0011; // active-div fog texture flat quad
GsUADFG4 = $000a0014; // active-div fog gour quad GsUADFG4 = $000a0014; // active-div fog gour quad
GsUADFGT4 = $000a0015; // active-div fog texture gour quad GsUADFGT4 = $000a0015; // active-div fog texture gour quad
GsUADNF3 = $000c0048; // active-div nonLight flat tri GsUADNF3 = $000c0048; // active-div nonLight flat tri
GsUADNFT3 = $000c0049; // active-div nonLight tex flat tri GsUADNFT3 = $000c0049; // active-div nonLight tex flat tri
GsUADNG3 = $000c004c; // active-div nonLight gour tri GsUADNG3 = $000c004c; // active-div nonLight gour tri
GsUADNGT3 = $000c004d; // active-div nonLight tex gour tri GsUADNGT3 = $000c004d; // active-div nonLight tex gour tri
GsUADNF4 = $000c0050; // active-div nonLight flat quad GsUADNF4 = $000c0050; // active-div nonLight flat quad
GsUADNFT4 = $000c0051; // active-div nonLight tex flat quad GsUADNFT4 = $000c0051; // active-div nonLight tex flat quad
GsUADNG4 = $000c0054; // active-div nonLight gour quad GsUADNG4 = $000c0054; // active-div nonLight gour quad
GsUADNGT4 = $000c0055; // active-div nonLight tex gour quad GsUADNGT4 = $000c0055; // active-div nonLight tex gour quad
GsUBF3 = $00100008; // back-f flat tri GsUBF3 = $00100008; // back-f flat tri
GsUBFT3 = $00100009; // back-f tex flat tri GsUBFT3 = $00100009; // back-f tex flat tri
GsUBG3 = $0010000c; // back-f gour tri GsUBG3 = $0010000c; // back-f gour tri
GsUBGT3 = $0010000d; // back-f tex gour tri GsUBGT3 = $0010000d; // back-f tex gour tri
GsUBF4 = $00100010; // back-f flat quad GsUBF4 = $00100010; // back-f flat quad
GsUBFT4 = $00100011; // back-f tex flat quad GsUBFT4 = $00100011; // back-f tex flat quad
GsUBG4 = $00100014; // back-f gour quad GsUBG4 = $00100014; // back-f gour quad
GsUBGT4 = $00100015; // back-f tex gour quad GsUBGT4 = $00100015; // back-f tex gour quad
GsUBCF3 = $0010000a; // back-f colored flat tri GsUBCF3 = $0010000a; // back-f colored flat tri
GsUBCFT3 = $0010000b; // back-f colored tex flat tri GsUBCFT3 = $0010000b; // back-f colored tex flat tri
GsUBCG3 = $0010000e; // back-f colored gour tri GsUBCG3 = $0010000e; // back-f colored gour tri
GsUBCGT3 = $0010000f; // back-f colored tex gour tri GsUBCGT3 = $0010000f; // back-f colored tex gour tri
GsUBCF4 = $00100012; // back-f colored flat quad GsUBCF4 = $00100012; // back-f colored flat quad
GsUBCFT4 = $00100013; // back-f colored tex flat quad GsUBCFT4 = $00100013; // back-f colored tex flat quad
GsUBCG4 = $00100016; // back-f colored gour quad GsUBCG4 = $00100016; // back-f colored gour quad
GsUBCGT4 = $00100017; // back-f colored tex gour quad GsUBCGT4 = $00100017; // back-f colored tex gour quad
GsUBSTPF3 = $00300008; // back-f semi-trans flat tri GsUBSTPF3 = $00300008; // back-f semi-trans flat tri
GsUBSTPFT3 = $00300009; // back-f semi-trans tex flat tri GsUBSTPFT3 = $00300009; // back-f semi-trans tex flat tri
GsUBSTPG3 = $0030000c; // back-f semi-trans gour tri GsUBSTPG3 = $0030000c; // back-f semi-trans gour tri
GsUBSTPGT3 = $0030000d; // back-f semi-trans tex gour tri GsUBSTPGT3 = $0030000d; // back-f semi-trans tex gour tri
GsUBSTPF4 = $00300010; // back-f semi-trans flat quad GsUBSTPF4 = $00300010; // back-f semi-trans flat quad
GsUBSTPFT4 = $00300011; // back-f semi-trans tex flat quad GsUBSTPFT4 = $00300011; // back-f semi-trans tex flat quad
GsUBSTPG4 = $00300014; // back-f semi-trans gour quad GsUBSTPG4 = $00300014; // back-f semi-trans gour quad
GsUBSTPGT4 = $00300015; // back-f semi-trans tex gour quad GsUBSTPGT4 = $00300015; // back-f semi-trans tex gour quad
GsUBNF3 = $00140048; // back-f noLgt flat tri GsUBNF3 = $00140048; // back-f noLgt flat tri
GsUBNFT3 = $00140049; // back-f noLgt tex flat tri GsUBNFT3 = $00140049; // back-f noLgt tex flat tri
GsUBNG3 = $0014004c; // back-f noLgt gouraud tri GsUBNG3 = $0014004c; // back-f noLgt gouraud tri
GsUBNGT3 = $0014004d; // back-f noLgt tex gouraud tri GsUBNGT3 = $0014004d; // back-f noLgt tex gouraud tri
GsUBNF4 = $00140050; // back-f noLgt flat quad GsUBNF4 = $00140050; // back-f noLgt flat quad
GsUBNFT4 = $00140051; // back-f noLgt tex flat quad GsUBNFT4 = $00140051; // back-f noLgt tex flat quad
GsUBNG4 = $00140054; // back-f noLgt gouraud quad GsUBNG4 = $00140054; // back-f noLgt gouraud quad
GsUBNGT4 = $00140055; // back-f noLgt tex gouraud quad GsUBNGT4 = $00140055; // back-f noLgt tex gouraud quad
GsUBSTPNF3 = $00340048; // back-f stp noLgt flat tri GsUBSTPNF3 = $00340048; // back-f stp noLgt flat tri
GsUBSTPNFT3 = $00340049; // back-f stp noLgt tex flat tri GsUBSTPNFT3 = $00340049; // back-f stp noLgt tex flat tri
GsUBSTPNG3 = $0034004c; // back-f stp noLgt gour tri GsUBSTPNG3 = $0034004c; // back-f stp noLgt gour tri
GsUBSTPNGT3 = $0034004d; // back-f stp noLgt tex gour tri GsUBSTPNGT3 = $0034004d; // back-f stp noLgt tex gour tri
GsUBSTPNF4 = $00340050; // back-f stp noLgt flat quad GsUBSTPNF4 = $00340050; // back-f stp noLgt flat quad
GsUBSTPNFT4 = $00340051; // back-f stp noLgt tex flat quad GsUBSTPNFT4 = $00340051; // back-f stp noLgt tex flat quad
GsUBSTPNG4 = $00340054; // back-f stp noLgt gour quad GsUBSTPNG4 = $00340054; // back-f stp noLgt gour quad
GsUBSTPNGT4 = $00340055; // back-f stp noLgt tex gour quad GsUBSTPNGT4 = $00340055; // back-f stp noLgt tex gour quad
GsUBSNF3 = $01140048; // back-f shrd noLgt flat tri GsUBSNF3 = $01140048; // back-f shrd noLgt flat tri
GsUBSNFT3 = $01140049; // back-f shrd noLgt tex flat tri GsUBSNFT3 = $01140049; // back-f shrd noLgt tex flat tri
GsUBSNG3 = $0114004c; // back-f shrd noLgt gour tri GsUBSNG3 = $0114004c; // back-f shrd noLgt gour tri
GsUBSNGT3 = $0114004d; // back-f shrd noLgt tex gour tri GsUBSNGT3 = $0114004d; // back-f shrd noLgt tex gour tri
GsUBSNF4 = $01140050; // back-f shrd noLgt flat quad GsUBSNF4 = $01140050; // back-f shrd noLgt flat quad
GsUBSNFT4 = $01140051; // back-f shrd noLgt tex flat quad GsUBSNFT4 = $01140051; // back-f shrd noLgt tex flat quad
GsUBSNG4 = $01140054; // back-f shrd noLgt gour quad GsUBSNG4 = $01140054; // back-f shrd noLgt gour quad
GsUBSNGT4 = $01140055; // back-f shrd noLgt tex gour quad GsUBSNGT4 = $01140055; // back-f shrd noLgt tex gour quad
GsUBSTPSNF3 = $01340048; // back-f stp shrd noLgt flat tri GsUBSTPSNF3 = $01340048; // back-f stp shrd noLgt flat tri
GsUBSTPSNFT3 = $01340049; // back-f stp shrd noLgt tex flat tri GsUBSTPSNFT3 = $01340049; // back-f stp shrd noLgt tex flat tri
GsUBSTPSNG3 = $0134004c; // back-f stp shrd noLgt gour tri GsUBSTPSNG3 = $0134004c; // back-f stp shrd noLgt gour tri
GsUBSTPSNGT3 = $0134004d; // back-f stp shrd noLgt tex gour tri GsUBSTPSNGT3 = $0134004d; // back-f stp shrd noLgt tex gour tri
GsUBSTPSNF4 = $01340050; // back-f stp shrd noLgt flat quad GsUBSTPSNF4 = $01340050; // back-f stp shrd noLgt flat quad
GsUBSTPSNFT4 = $01340051; // back-f stp shrd noLgt tex flat quad GsUBSTPSNFT4 = $01340051; // back-f stp shrd noLgt tex flat quad
GsUBSTPSNG4 = $01340054; // back-f stp shrd noLgt gour quad GsUBSTPSNG4 = $01340054; // back-f stp shrd noLgt gour quad
GsUBSTPSNGT4 = $01340055; // back-f stp shrd noLgt tex gour quad GsUBSTPSNGT4 = $01340055; // back-f stp shrd noLgt tex gour quad
GsUIMG0 = $02000000; // image data with no-clut GsUIMG0 = $02000000; // image data with no-clut
GsUIMG1 = $02000001; // image data with clut GsUIMG1 = $02000001; // image data with clut
GsUGNDF = $05000000; // ground flat GsUGNDF = $05000000; // ground flat
GsUGNDFT = $05000001; // ground flat texture GsUGNDFT = $05000001; // ground flat texture
GsUSCAL2 = $06000100; // envmap shared calculate GsUSCAL2 = $06000100; // envmap shared calculate
GsUE1G3 = $0600100c; // envmap 1D gour tri GsUE1G3 = $0600100c; // envmap 1D gour tri
GsUE1G4 = $06001014; // envmap 1D gour quad GsUE1G4 = $06001014; // envmap 1D gour quad
GsUE1SG3 = $0600110c; // envmap 1D shared gour tri GsUE1SG3 = $0600110c; // envmap 1D shared gour tri
GsUE1SG4 = $06001114; // envmap 1D shared gour quad GsUE1SG4 = $06001114; // envmap 1D shared gour quad
GsUE2LG3 = $0600200c; // envmap 2D reflect gour tri GsUE2LG3 = $0600200c; // envmap 2D reflect gour tri
GsUE2LG4 = $06002014; // envmap 2D reflect gour quad GsUE2LG4 = $06002014; // envmap 2D reflect gour quad
GsUE2RG3 = $0600300c; // envmap 2D refract gour tri GsUE2RG3 = $0600300c; // envmap 2D refract gour tri
GsUE2RG4 = $06003014; // envmap 2D refract gour quad GsUE2RG4 = $06003014; // envmap 2D refract gour quad
GsUE2RLG3 = $0600400c; // envmap 2D both gour tri GsUE2RLG3 = $0600400c; // envmap 2D both gour tri
GsUE2RLG4 = $06004014; // envmap 2D both gour quad GsUE2RLG4 = $06004014; // envmap 2D both gour quad
GsUE2OLG3 = $0600500c; // envmap 2D org+reflect gour tri GsUE2OLG3 = $0600500c; // envmap 2D org+reflect gour tri
GsUE2OLG4 = $06005014; // envmap 2D org+reflect gour quad GsUE2OLG4 = $06005014; // envmap 2D org+reflect gour quad
GsVtxMIMe = $04010020; // Vertex-MIMe GsVtxMIMe = $04010020; // Vertex-MIMe
GsNrmMIMe = $04010021; // Normal-MIMe GsNrmMIMe = $04010021; // Normal-MIMe
GsRstVtxMIMe = $04010028; // Reset-Vertex-MIMe GsRstVtxMIMe = $04010028; // Reset-Vertex-MIMe
GsRstNrmMIMe = $04010029; // Reset-Normal-MIMe GsRstNrmMIMe = $04010029; // Reset-Normal-MIMe
GsJntAxesMIMe = $04010010; // Joint-Axes-MIMe GsJntAxesMIMe = $04010010; // Joint-Axes-MIMe
GsRstJntAxesMIMe = $04010018; // Reset-Joint-Axes-MIMe GsRstJntAxesMIMe = $04010018; // Reset-Joint-Axes-MIMe
GsJntRPYMIMe = $04010011; // Joint-RPY-MIMe GsJntRPYMIMe = $04010011; // Joint-RPY-MIMe
@ -748,7 +747,7 @@ const
function GsU_01020016(arg: PGsARGUNIT): pdword; external; function GsU_01020016(arg: PGsARGUNIT): pdword; external;
function GsU_01020017(arg: PGsARGUNIT): pdword; external; function GsU_01020017(arg: PGsARGUNIT): pdword; external;
// tiled texture // tiled texture
function GsU_0000020b(arg: PGsARGUNIT): pdword; external; function GsU_0000020b(arg: PGsARGUNIT): pdword; external;
function GsU_0000020f(arg: PGsARGUNIT): pdword; external; function GsU_0000020f(arg: PGsARGUNIT): pdword; external;
function GsU_00000213(arg: PGsARGUNIT): pdword; external; function GsU_00000213(arg: PGsARGUNIT): pdword; external;
@ -833,22 +832,22 @@ const
function GsU_05000000(arg: PGsARGUNIT): pdword; external; function GsU_05000000(arg: PGsARGUNIT): pdword; external;
function GsU_05000001(arg: PGsARGUNIT): pdword; external; function GsU_05000001(arg: PGsARGUNIT): pdword; external;
// camera // camera
function GsU_07000100(arg: PGsARGUNIT): pdword; external; function GsU_07000100(arg: PGsARGUNIT): pdword; external;
function GsU_07010100(arg: PGsARGUNIT): pdword; external; function GsU_07010100(arg: PGsARGUNIT): pdword; external;
function GsU_07020100(arg: PGsARGUNIT): pdword; external; function GsU_07020100(arg: PGsARGUNIT): pdword; external;
function GsU_07030100(arg: PGsARGUNIT): pdword; external; function GsU_07030100(arg: PGsARGUNIT): pdword; external;
// light // light
function GsU_07000200(arg: PGsARGUNIT): pdword; external; function GsU_07000200(arg: PGsARGUNIT): pdword; external;
function GsU_07010200(arg: PGsARGUNIT): pdword; external; function GsU_07010200(arg: PGsARGUNIT): pdword; external;
function GsU_07020200(arg: PGsARGUNIT): pdword; external; function GsU_07020200(arg: PGsARGUNIT): pdword; external;
function GsU_07030200(arg: PGsARGUNIT): pdword; external; function GsU_07030200(arg: PGsARGUNIT): pdword; external;
// update driver // update driver
function GsU_03000000(sp: PGsARGUNIT_ANIM): pdword; external; function GsU_03000000(sp: PGsARGUNIT_ANIM): pdword; external;
// interpolation driver // interpolation driver
function GsU_03000001(sp: PGsARGUNIT_ANIM): longint; external; function GsU_03000001(sp: PGsARGUNIT_ANIM): longint; external;
function GsU_03000002(sp: PGsARGUNIT_ANIM): longint; external; function GsU_03000002(sp: PGsARGUNIT_ANIM): longint; external;
function GsU_03000003(sp: PGsARGUNIT_ANIM): longint; external; function GsU_03000003(sp: PGsARGUNIT_ANIM): longint; external;
@ -1069,7 +1068,7 @@ const
function GsU_03010371(sp: PGsARGUNIT_ANIM): longint; external; function GsU_03010371(sp: PGsARGUNIT_ANIM): longint; external;
function GsU_03010372(sp: PGsARGUNIT_ANIM): longint; external; function GsU_03010372(sp: PGsARGUNIT_ANIM): longint; external;
// envmap driver // envmap driver
function GsU_06000100(arg: PGsARGUNIT): longint; external; function GsU_06000100(arg: PGsARGUNIT): longint; external;
function GsU_0600100c(arg: PGsARGUNIT): longint; external; function GsU_0600100c(arg: PGsARGUNIT): longint; external;
function GsU_06001014(arg: PGsARGUNIT): longint; external; function GsU_06001014(arg: PGsARGUNIT): longint; external;
@ -1084,7 +1083,7 @@ const
function GsU_0600500c(arg: PGsARGUNIT): longint; external; function GsU_0600500c(arg: PGsARGUNIT): longint; external;
function GsU_06005014(arg: PGsARGUNIT): longint; external; function GsU_06005014(arg: PGsARGUNIT): longint; external;
// MIMe driver // MIMe driver
function GsU_04010020(arg: PGsARGUNIT): longint; external; function GsU_04010020(arg: PGsARGUNIT): longint; external;
function GsU_04010021(arg: PGsARGUNIT): longint; external; function GsU_04010021(arg: PGsARGUNIT): longint; external;
function GsU_04010028(arg: PGsARGUNIT): longint; external; function GsU_04010028(arg: PGsARGUNIT): longint; external;
@ -1109,7 +1108,7 @@ const
function GsScanAnim(p: pdword; ut: PGsTYPEUNIT): pdword; external; function GsScanAnim(p: pdword; ut: PGsTYPEUNIT): pdword; external;
function GsLinkAnim(seq: PPGsSEQ; p: dword): longint; external; function GsLinkAnim(seq: PPGsSEQ; p: dword): longint; external;
// for MIMe // for MIMe
procedure GsInitRstVtxMIMe(primtop, hp: pdword); external; procedure GsInitRstVtxMIMe(primtop, hp: pdword); external;
procedure GsInitRstNrmMIMe(primtop, hp: pdword); external; procedure GsInitRstNrmMIMe(primtop, hp: pdword); external;

7
rtl/ps1/psy-q-sdk/libmcgui.pas
View File

@ -11,14 +11,13 @@ const
MCGUI_EXTERNAL_FONT = 1; MCGUI_EXTERNAL_FONT = 1;
type type
// Texture Information Structure // Texture Information Structure
sMcGuiTexture = packed record sMcGuiTexture = packed record
addr : pointer; addr : pointer;
end; end;
// Memory Card Information Structure
// Memory Card Information Structure */
sMcGuiCards = packed record sMcGuiCards = packed record
_file : array [0..20] of char; _file : array [0..20] of char;
title : array [0..64] of char; title : array [0..64] of char;
@ -37,14 +36,12 @@ type
timadr : pointer; timadr : pointer;
end; end;
// Cursor Information Structure // Cursor Information Structure
sMcGuiCursor = packed record sMcGuiCursor = packed record
mode : byte; mode : byte;
r, g, b : byte; r, g, b : byte;
end; end;
// BGM,Sound Effects Information Structure // BGM,Sound Effects Information Structure
Tbgm = packed record Tbgm = packed record
isbgm : longint; isbgm : longint;

12
rtl/ps1/psy-q-sdk/libmcrd.pas
View File

@ -5,12 +5,12 @@ uses libstd;
type type
MemCB = function(cmds, rslt: longint): pointer; MemCB = function(cmds, rslt: longint): pointer;
const const
McFuncExist = 1; McFuncExist = 1;
McFuncAccept = 2; McFuncAccept = 2;
McFuncReadFile = 3; McFuncReadFile = 3;
McFuncWriteFile = 4; McFuncWriteFile = 4;
McFuncReadData = 5; McFuncReadData = 5;
McFuncWriteData = 6; McFuncWriteData = 6;
McErrNone = 0; McErrNone = 0;
McErrCardNotExist = 1; McErrCardNotExist = 1;

78
rtl/ps1/psy-q-sdk/libstd.pas
View File

@ -183,7 +183,7 @@ const
R_CAUSE= 36; R_CAUSE= 36;
NREGS = 40; NREGS = 40;
// compiler defined bindings // compiler defined bindings
R_ZERO = R_R0; R_ZERO = R_R0;
R_AT = R_R1; R_AT = R_R1;
@ -217,7 +217,7 @@ const
R_SP = R_R29; R_SP = R_R29;
R_FP = R_R30; R_FP = R_R30;
R_RA = R_R31; R_RA = R_R31;
// types.h // types.h
type type
@ -663,9 +663,9 @@ type
dt_firstfile : function(): plongint;// directory serach routine dt_firstfile : function(): plongint;// directory serach routine
dt_nextfile : function(): plongint; // directory serach routine dt_nextfile : function(): plongint; // directory serach routine
dt_format : function(): plongint; dt_format : function(): plongint;
dt_cd : function(): plongint; dt_cd : function(): plongint;
dt_rename : function(): plongint; dt_rename : function(): plongint;
dt_remove : function(): plongint; dt_remove : function(): plongint;
dt_else : function(): plongint; dt_else : function(): plongint;
end; end;
Pdevice_table = ^Tdevice_table; Pdevice_table = ^Tdevice_table;
@ -780,14 +780,7 @@ const
SR_SWC = $00020000; // swap cache SR_SWC = $00020000; // swap cache
SR_ISC = $00010000; // Isolate data cache SR_ISC = $00010000; // Isolate data cache
SR_MM_MODE = $00010000; // lwl/swl/etc become scache/etc SR_MM_MODE = $00010000; // lwl/swl/etc become scache/etc
{
define:
lcache lwl
scache swl
flush lwr $0,
inval swr $0,
}
// Interrupt enable bits // Interrupt enable bits
@ -911,19 +904,19 @@ const
NF_NENTRIES = 8; NF_NENTRIES = 8;
// TLB size constants // TLB size constants
TLBWIREDBASE = 0; // WAG for now TLBWIREDBASE = 0; // WAG for now
NWIREDENTRIES = 8; // WAG for now NWIREDENTRIES = 8; // WAG for now
TLBRANDOMBASE = NWIREDENTRIES; TLBRANDOMBASE = NWIREDENTRIES;
NTLBENTRIES = 64; NTLBENTRIES = 64;
NRANDOMENTRIES = (NTLBENTRIES - NWIREDENTRIES); NRANDOMENTRIES = (NTLBENTRIES - NWIREDENTRIES);
TLBRAND_RANDMASK = $00003f00;
TLBRAND_RANDMASK = $00003f00;
TLBRAND_RANDSHIFT = 8; TLBRAND_RANDSHIFT = 8;
// Chip interrupt vector // Chip interrupt vector
NC0VECS = 8; NC0VECS = 8;
@ -933,12 +926,12 @@ var
const const
BRK_KERNEL = $f1; BRK_KERNEL = $f1;
EXCEPT_NORM = 1; EXCEPT_NORM = 1;
EXCEPT_UTLB = 2; EXCEPT_UTLB = 2;
EXCEPT_BRKPT = 3; EXCEPT_BRKPT = 3;
EXCEPT_DB = 4; EXCEPT_DB = 4;
EXCEPT_GDB = 4; EXCEPT_GDB = 4;
EXCEPT_INT = 9; EXCEPT_INT = 9;
EXCEPT_ELSE = $ff; EXCEPT_ELSE = $ff;
@ -974,13 +967,13 @@ procedure longjmp(buf: jmp_buf; i: longint); external;
// status bits // status bits
const const
SR_IRQ = $200; SR_IRQ = $200;
SR_CTS = $100; SR_CTS = $100;
SR_DSR = $80; SR_DSR = $80;
SR_FE = $20; SR_FE = $20;
SR_OE = $10; SR_OE = $10;
SR_PERROR = $8; SR_PERROR = $8;
SR_TXU = $4; SR_TXU = $4;
SR_RXRDY = $2; SR_RXRDY = $2;
SR_TXRDY = $1; SR_TXRDY = $1;
SIO_CTS = $100; SIO_CTS = $100;
@ -1041,23 +1034,28 @@ generic procedure va_start<T>(out AP: Pointer; var LastArg: T);
procedure va_end(out AP: Pointer); procedure va_end(out AP: Pointer);
generic function va_arg<T>(var AP: Pointer):T; generic function va_arg<T>(var AP: Pointer):T;
implementation implementation
generic function __va_rounded_size<T>: SizeInt;inline; generic function __va_rounded_size<T>: SizeInt;inline;
begin begin
Result := ((sizeof(T) + sizeof (longint) - 1) div sizeof (longint)) * sizeof (longint); Result := ((sizeof(T) + sizeof (longint) - 1) div sizeof (longint)) * sizeof (longint);
end; end;
generic procedure va_start<T>(out AP: Pointer; var LastArg: T);inline; generic procedure va_start<T>(out AP: Pointer; var LastArg: T);inline;
begin begin
AP := Pointer(@LastArg) + specialize __va_rounded_size<T>; AP := Pointer(@LastArg) + specialize __va_rounded_size<T>;
end; end;
procedure va_end(out AP: Pointer);inline; procedure va_end(out AP: Pointer);inline;
begin begin
AP := nil; AP := nil;
end; end;
generic function va_arg<T>(var AP: Pointer):T;inline; generic function va_arg<T>(var AP: Pointer):T;inline;
type type
PT=^T; PT=^T;
@ -1067,7 +1065,7 @@ begin
end; end;
function strdup(p: pchar): pchar; function strdup(p: pchar): pchar;
begin begin
strdup:= malloc2(strlen(p) + 1); strdup:= malloc2(strlen(p) + 1);
strcpy(strdup, p); strcpy(strdup, p);
@ -1267,7 +1265,7 @@ end;
// Address conversion macros // Address conversion macros
function K0_TO_K1(x: dword): dword; function K0_TO_K1(x: dword): dword;
begin begin
result:= x or $A0000000; result:= x or $A0000000;
end; end;
@ -1299,7 +1297,7 @@ end;
// Address predicates // Address predicates
function IS_KSEG0(x: dword): boolean; function IS_KSEG0(x: dword): boolean;
begin begin
result:= ((x >= K0BASE) and (x < K1BASE)); result:= ((x >= K0BASE) and (x < K1BASE));
end; end;