Create readable text `.bas' for each tokenized BASIC `,ffb' file.

[ssr] / StraySrc / Libraries / Core / TearSupt / UnLoad.bas

diff --git a/StraySrc/Libraries/Core/TearSupt/UnLoad.bas b/StraySrc/Libraries/Core/TearSupt/UnLoad.bas
new file mode 100644 (file)
index 0000000..3f1dbb1
--- /dev/null
+++ b/StraySrc/Libraries/Core/TearSupt/UnLoad.bas
@@ -0,0 +1,18 @@
+DIM code% 2048
+P%=code%
+[ opt 2
+
+.unload
+  stmfd r13!,{r1-r12,r14}
+  mvn r0,#0
+  swi "XOS_ChangeEnvironment"
+  movvc r14,pc
+  addvc pc,r1,#16
+  movvc r0,#0
+  movvs r0,#1
+  ldmfd r13!,{r1-r12,pc}^
+
+]
+
+IF USR(unload) THEN ERROR 1,"TearSupport not present/broken beyond redemption" ELSE ERROR 1,"TearSupprt unloaded OK"
+END