1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
{
This file is part of the Free Pascal run time library.
utility functions (V50) for MorphOS/PowerPC
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
Free Pascal conversion
Copyright (c) 2004-2014 Karoly Balogh
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.
**********************************************************************}
function FindTagItem(tagVal : Cardinal location 'd0';
tagList: PTagItem location 'a0'): PTagItem;
SysCall MOS_UtilityBase 030;
function GetTagData(tagValue : Cardinal location 'd0';
defaultVal: Cardinal location 'd1';
tagList : PTagItem location 'a0'): Cardinal;
SysCall MOS_UtilityBase 036;
function PackBoolTags(initialFlags: Cardinal location 'd0';
tagList : PTagItem location 'a0';
boolMap : PTagItem location 'a1'): Cardinal;
SysCall MOS_UtilityBase 042;
function NextTagItem(tagListPtr: pPTagItem location 'a0'): PTagItem;
SysCall MOS_UtilityBase 048;
procedure FilterTagChanges(changeList : PTagItem location 'a0';
originalList: PTagItem location 'a1';
apply : Cardinal location 'd0');
SysCall MOS_UtilityBase 054;
procedure MapTags(tagList: PTagItem location 'a0';
mapList: PTagItem location 'a1';
mapType: Cardinal location 'd0');
SysCall MOS_UtilityBase 060;
function AllocateTagItems(numTags: Cardinal location 'd0'): PTagItem;
SysCall MOS_UtilityBase 066;
function CloneTagItems(tagList: PTagItem location 'a0'): PTagItem;
SysCall MOS_UtilityBase 072;
procedure FreeTagItems(tagList: PTagItem location 'a0');
SysCall MOS_UtilityBase 078;
procedure RefreshTagItemClones(clone : PTagItem location 'a0';
original: PTagItem location 'a1');
SysCall MOS_UtilityBase 084;
function TagInArray(tagValue : Cardinal location 'd0';
var tagArray: Cardinal location 'a0'): LongBool;
SysCall MOS_UtilityBase 090;
function FilterTagItems(tagList : PTagItem location 'a0';
var filterArray: Cardinal location 'a1';
logic : Cardinal location 'd0'): Cardinal;
SysCall MOS_UtilityBase 096;
function CallHookPkt(hook : PHook location 'a0';
hobject : Pointer location 'a2';
paramPacket: Pointer location 'a1'): Cardinal;
SysCall MOS_UtilityBase 102;
procedure Amiga2Date(seconds: Cardinal location 'd0';
result : PClockData location 'a0');
SysCall MOS_UtilityBase 120;
function Date2Amiga(date: PClockData location 'a0'): Cardinal;
SysCall MOS_UtilityBase 126;
function CheckDate(date: PClockData location 'a0'): Cardinal;
SysCall MOS_UtilityBase 132;
function SMult32(arg1: LongInt location 'd0';
arg2: LongInt location 'd1'): LongInt;
SysCall MOS_UtilityBase 138;
function UMult32(arg1: Cardinal location 'd0';
arg2: Cardinal location 'd1'): Cardinal;
SysCall MOS_UtilityBase 144;
function SDivMod32(dividend: LongInt location 'd0';
divisor: LongInt location 'd1'): LongInt;
SysCall MOS_UtilityBase 150;
function UDivMod32(dividend: Cardinal location 'd0';
divisor : Cardinal location 'd1'): Cardinal;
SysCall MOS_UtilityBase 156;
function Stricmp(string1: PChar location 'a0';
string2: PChar location 'a1'): LongInt;
SysCall MOS_UtilityBase 162;
function Strnicmp(string1: PChar location 'a0';
string2: PChar location 'a1';
length : LongInt location 'd0'): LongInt;
SysCall MOS_UtilityBase 168;
function ToUpper(character: Cardinal location 'd0'): Char;
SysCall MOS_UtilityBase 174;
function ToLower(character: Cardinal location 'd0'): Char;
SysCall MOS_UtilityBase 180;
procedure ApplyTagChanges(list : PTagItem location 'a0';
changeList: PTagItem location 'a1');
SysCall MOS_UtilityBase 186;
function SMult64(arg1: LongInt location 'd0';
arg2: LongInt location 'd1'): LongInt;
SysCall MOS_UtilityBase 198;
function UMult64(arg1: Cardinal location 'd0';
arg2: Cardinal location 'd1'): Cardinal;
SysCall MOS_UtilityBase 204;
function PackStructureTags(pack : Pointer location 'a0';
var packTable: Cardinal location 'a1';
tagList : PTagItem location 'a2'): Cardinal;
SysCall MOS_UtilityBase 210;
function UnpackStructureTags(pack : Pointer location 'a0';
var packTable: Cardinal location 'a1';
tagList : PTagItem location 'a2'): Cardinal;
SysCall MOS_UtilityBase 216;
function AddNamedObject(nameSpace: PNamedObject location 'a0';
nobject : PNamedObject location 'a1'): LongBool;
SysCall MOS_UtilityBase 222;
function AllocNamedObjectA(name : PChar location 'a0';
tagList: PTagItem location 'a1'): PNamedObject;
SysCall MOS_UtilityBase 228;
function AttemptRemNamedObject(nobject: PNamedObject location 'a0'): LongInt;
SysCall MOS_UtilityBase 234;
function FindNamedObject(nameSpace : PNamedObject location 'a0';
name : PChar location 'a1';
lastObject: PNamedObject location 'a2'): PNamedObject;
SysCall MOS_UtilityBase 240;
procedure FreeNamedObject(nobject: PNamedObject location 'a0');
SysCall MOS_UtilityBase 246;
function NamedObjectName(nobject: PNamedObject location 'a0'): PChar;
SysCall MOS_UtilityBase 252;
procedure ReleaseNamedObject(nobject: pNamedObject location 'a0');
SysCall MOS_UtilityBase 258;
procedure RemNamedObject(nobject: PNamedObject location 'a0';
message: PMessage location 'a1');
SysCall MOS_UtilityBase 264;
function GetUniqueID: Cardinal;
SysCall MOS_UtilityBase 270;
|
