paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 11:10:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

h68units: new h68kutil unit, with various constans for now. more to come.

Browse Source
This commit is contained in:
Karoly Balogh 2024-07-29 16:14:23 +02:00
parent 1cea95e8e0
commit 6f7d2136c6
3 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/h68units/fpmake.pp
View File

@ -35,6 +35,7 @@ begin
AddInclude('h68kdos.inc');
end;
T:=P.Targets.AddUnit('h68kiocs.pas');
T:=P.Targets.AddUnit('h68kutil.pas');
P.ExamplePath.Add('examples');
T:=P.Targets.AddExampleProgram('gradient.pas');

3
packages/h68units/namespaced/Human68kApi.Util.pas Normal file
View File

@ -0,0 +1,3 @@
unit Human68kApi.Util;
{$DEFINE FPC_DOTTEDUNITS}
{$i h68kutil.pas}

32
packages/h68units/src/h68kutil.pas Normal file
View File

@ -0,0 +1,32 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2024 by Free Pascal development team
Utility functions and constants unit for Human 68k (Sharp X68000)
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit h68kutil;
{$ENDIF FPC_DOTTEDUNITS}
interface
const
VERTICAL_BLANKING_DETECTION = longint($80000000);
VERTICAL_BLANKING_NO_DETECT = 0;
const
SP_DEFCG_8X8_TILE = 0;
SP_DEFCG_16X16_TILE = 1;
implementation
end.