X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=platform%2Fuiq3%2Fengine%2Fblit.s;h=c377a761e13b6ef1ea71bdbdc8de2c393bcd4931;hb=ca482e5de8bacb70db55f43afe02f93fe6fe3f16;hp=521c31a487d52a160bac93da385582a056d43a6b;hpb=a6e5aa41816d1d46889012331eeeee6c5ba1dd1e;p=picodrive.git

diff --git a/platform/uiq3/engine/blit.s b/platform/uiq3/engine/blit.s
index 521c31a..c377a76 100644
--- a/platform/uiq3/engine/blit.s
+++ b/platform/uiq3/engine/blit.s
@@ -1,3 +1,4 @@
+@ vim:filetype=armasm
 @ some color conversion and blitting routines
 
 @ (c) Copyright 2006, notaz
@@ -693,3 +694,13 @@ vidClear:
     orr     r12, #(240/16-1)<<16
     b       .loopVidClear
 
+@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+.equ EExecSetExceptionHandler, (90)
+
+.global my_SetExceptionHandler
+
+my_SetExceptionHandler:
+    mov     ip, lr
+    swi     EExecSetExceptionHandler
+