39 lines
644 B
Plaintext
39 lines
644 B
Plaintext
|
{
|
||
|
|
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;
|