| blob | e792c5f55db5fd18a66a81653ad2595754fb6487 |
1 {
2 This file is part of the Free Pascal run time library.
6 member of the Amiga RTL development team.
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 **********************************************************************}
18 UNIT EXEC;
20 INTERFACE
31 PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; name : pCHAR);
50 PROCEDURE CacheClearU;
62 PROCEDURE ColdReboot;
73 PROCEDURE Disable;
75 PROCEDURE Enable;
84 PROCEDURE Forbid;
97 FUNCTION MakeLibrary(funcInit : POINTER; structInit : POINTER; libInit : tPROCEDURE; dataSize : ULONG; segList : ULONG) : pLibrary;
103 FUNCTION OpenDevice(devName : pCHAR; unite : ULONG; ioRequest : pIORequest; flags : ULONG) : SHORTINT;
106 PROCEDURE Permit;
109 PROCEDURE RawDoFmt(formatString : pCHAR; dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER);
133 PROCEDURE SumKickData;
144 IMPLEMENTATION
147 BEGIN
148 ASM
154 END;
155 END;
158 BEGIN
159 ASM
165 END;
166 END;
169 BEGIN
170 ASM
177 END;
178 END;
181 BEGIN
182 ASM
189 END;
190 END;
193 BEGIN
194 ASM
200 END;
201 END;
204 BEGIN
205 ASM
211 END;
212 END;
214 PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; name : pCHAR);
215 BEGIN
216 ASM
226 END;
227 END;
230 BEGIN
231 ASM
237 END;
238 END;
241 BEGIN
242 ASM
248 END;
249 END;
252 BEGIN
253 ASM
259 END;
260 END;
263 BEGIN
264 ASM
271 END;
272 END;
275 BEGIN
276 ASM
285 END;
286 END;
289 BEGIN
290 ASM
296 END;
297 END;
300 BEGIN
301 ASM
309 END;
310 END;
313 BEGIN
314 ASM
322 END;
323 END;
326 BEGIN
327 ASM
334 END;
335 END;
338 BEGIN
339 ASM
347 END;
348 END;
351 BEGIN
352 ASM
360 END;
361 END;
364 BEGIN
365 ASM
372 END;
373 END;
376 BEGIN
377 ASM
384 END;
385 END;
388 BEGIN
389 ASM
397 END;
398 END;
401 BEGIN
402 ASM
408 TST.L D0
410 MOVEQ #1,D0
412 END;
413 END;
416 BEGIN
417 ASM
424 END;
425 END;
428 BEGIN
429 ASM
436 END;
437 END;
440 BEGIN
441 ASM
449 END;
450 END;
452 PROCEDURE CacheClearU;
453 BEGIN
454 ASM
459 END;
460 END;
463 BEGIN
464 ASM
472 END;
473 END;
476 BEGIN
477 ASM
485 END;
486 END;
489 BEGIN
490 ASM
499 END;
500 END;
503 BEGIN
504 ASM
510 END;
511 END;
514 BEGIN
515 ASM
522 END;
523 END;
526 BEGIN
527 ASM
533 END;
534 END;
537 BEGIN
538 ASM
544 END;
545 END;
548 BEGIN
549 ASM
555 END;
556 END;
559 BEGIN
560 ASM
566 END;
567 END;
570 BEGIN
571 ASM
577 END;
578 END;
581 BEGIN
582 ASM
588 END;
589 END;
591 PROCEDURE ColdReboot;
592 BEGIN
593 ASM
598 END;
599 END;
602 BEGIN
603 ASM
611 END;
612 END;
615 BEGIN
616 ASM
624 END;
625 END;
628 BEGIN
629 ASM
637 END;
638 END;
641 BEGIN
642 ASM
648 END;
649 END;
652 BEGIN
653 ASM
662 END;
663 END;
666 BEGIN
667 ASM
675 END;
676 END;
679 BEGIN
680 ASM
686 END;
687 END;
690 BEGIN
691 ASM
697 END;
698 END;
701 BEGIN
702 ASM
708 END;
709 END;
712 BEGIN
713 ASM
719 END;
720 END;
722 PROCEDURE Disable;
723 BEGIN
724 ASM
729 END;
730 END;
733 BEGIN
734 ASM
741 END;
742 END;
744 PROCEDURE Enable;
745 BEGIN
746 ASM
751 END;
752 END;
755 BEGIN
756 ASM
763 END;
764 END;
767 BEGIN
768 ASM
775 END;
776 END;
779 BEGIN
780 ASM
788 END;
789 END;
792 BEGIN
793 ASM
801 END;
802 END;
805 BEGIN
806 ASM
813 END;
814 END;
817 BEGIN
818 ASM
825 END;
826 END;
829 BEGIN
830 ASM
837 END;
838 END;
841 BEGIN
842 ASM
849 END;
850 END;
852 PROCEDURE Forbid;
853 BEGIN
854 ASM
859 END;
860 END;
863 BEGIN
864 ASM
870 END;
871 END;
874 BEGIN
875 ASM
883 END;
884 END;
887 BEGIN
888 ASM
894 END;
895 END;
898 BEGIN
899 ASM
905 END;
906 END;
909 BEGIN
910 ASM
916 END;
917 END;
920 BEGIN
921 ASM
927 END;
928 END;
931 BEGIN
932 ASM
939 END;
940 END;
943 BEGIN
944 ASM
951 END;
952 END;
955 BEGIN
956 ASM
964 END;
965 END;
968 BEGIN
969 ASM
975 END;
976 END;
979 BEGIN
980 ASM
988 END;
989 END;
992 BEGIN
993 ASM
1001 END;
1002 END;
1004 FUNCTION MakeLibrary(funcInit : POINTER; structInit : POINTER; libInit : tPROCEDURE; dataSize : ULONG; segList : ULONG) : pLibrary;
1005 BEGIN
1006 ASM
1017 END;
1018 END;
1021 BEGIN
1022 ASM
1029 END;
1030 END;
1033 BEGIN
1034 ASM
1040 END;
1041 END;
1044 BEGIN
1045 ASM
1051 END;
1052 END;
1055 BEGIN
1056 ASM
1062 END;
1063 END;
1066 BEGIN
1067 ASM
1074 END;
1075 END;
1077 FUNCTION OpenDevice(devName : pCHAR; unite : ULONG; ioRequest : pIORequest; flags : ULONG) : SHORTINT;
1078 BEGIN
1079 ASM
1089 END;
1090 END;
1093 BEGIN
1094 ASM
1102 END;
1103 END;
1106 BEGIN
1107 ASM
1114 END;
1115 END;
1117 PROCEDURE Permit;
1118 BEGIN
1119 ASM
1124 END;
1125 END;
1128 BEGIN
1129 ASM
1136 TST.L D0
1138 MOVEQ #1,D0
1140 END;
1141 END;
1144 BEGIN
1145 ASM
1152 END;
1153 END;
1155 PROCEDURE RawDoFmt(formatString : pCHAR; dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER);
1156 BEGIN
1157 ASM
1166 END;
1167 END;
1170 BEGIN
1171 ASM
1177 END;
1178 END;
1181 BEGIN
1182 ASM
1188 END;
1189 END;
1192 BEGIN
1193 ASM
1199 END;
1200 END;
1203 BEGIN
1204 ASM
1211 END;
1212 END;
1215 BEGIN
1216 ASM
1223 END;
1224 END;
1227 BEGIN
1228 ASM
1234 END;
1235 END;
1238 BEGIN
1239 ASM
1245 END;
1246 END;
1249 BEGIN
1250 ASM
1256 END;
1257 END;
1260 BEGIN
1261 ASM
1267 END;
1268 END;
1271 BEGIN
1272 ASM
1278 END;
1279 END;
1282 BEGIN
1283 ASM
1289 END;
1290 END;
1293 BEGIN
1294 ASM
1301 END;
1302 END;
1305 BEGIN
1306 ASM
1312 END;
1313 END;
1316 BEGIN
1317 ASM
1323 END;
1324 END;
1327 BEGIN
1328 ASM
1334 END;
1335 END;
1338 BEGIN
1339 ASM
1347 END;
1348 END;
1350 FUNCTION SetFunction(lib : pLibrary; funcOffset : LONGINT; newFunction : tPROCEDURE) : POINTER;
1351 BEGIN
1352 ASM
1361 END;
1362 END;
1365 BEGIN
1366 ASM
1374 END;
1375 END;
1378 BEGIN
1379 ASM
1387 END;
1388 END;
1391 BEGIN
1392 ASM
1400 END;
1401 END;
1404 BEGIN
1405 ASM
1413 END;
1414 END;
1417 BEGIN
1418 ASM
1425 END;
1426 END;
1429 BEGIN
1430 ASM
1436 END;
1437 END;
1439 PROCEDURE SumKickData;
1440 BEGIN
1441 ASM
1446 END;
1447 END;
1450 BEGIN
1451 ASM
1457 END;
1458 END;
1461 BEGIN
1462 ASM
1468 END;
1469 END;
1472 BEGIN
1473 ASM
1480 END;
1481 END;
1484 BEGIN
1485 ASM
1492 END;
1493 END;
1496 BEGIN
1497 ASM
1503 END;
1504 END;
1507 BEGIN
1508 ASM
1515 END;
1516 END;
1519 BEGIN
1520 ASM
1527 END;
1528 END;
1531 BEGIN
1532 ASM
1539 END;
1540 END;
1543 BEGIN
1544 ASM
1551 END;
1552 END;
1556 {
1557 $Log$
1559 Initial revision
1562 + Initial import
1565 * truncated log
1570 }