Kyle Isom
a60a6a3f59
i wrote most of this up to here on a linux laptop, but some changes need to be made to get it working with CP/M-80.
39 lines
644 B
ObjectPascal
39 lines
644 B
ObjectPascal
{
|
|
common.pas
|
|
|
|
Common functionality that's useful across my toolkit.
|
|
|
|
TYPES
|
|
- FilePath is a string used for storing filenames on CP/M.
|
|
|
|
Procedures:
|
|
- Procedure ExpandFile(var fil : BinFile; var pos : Integer; pad : Integer);
|
|
}
|
|
|
|
type
|
|
FilePath = String[12];
|
|
|
|
|
|
function IMax(a, b : Integer): Integer;
|
|
begin
|
|
if a > b then IMax := a else IMax := b;
|
|
end;
|
|
|
|
|
|
function BMax(a, b : Byte): Byte;
|
|
begin
|
|
if a > b then BMax := a else BMax := b;
|
|
end;
|
|
|
|
|
|
function IMin(a, b : Integer): Integer;
|
|
begin
|
|
if a > b then IMin := b else IMin := a;
|
|
end;
|
|
|
|
|
|
function BMin(a, b : Byte): Byte;
|
|
begin
|
|
if a > b then BMin := b else BMin := a;
|
|
end;
|