~mdw
/
ssr
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Create readable text `.bas' for each tokenized BASIC `,ffb' file.
[ssr]
/
StraySrc
/
Libraries
/
Core
/
TearSupt
/
UnLoad.bas
1
DIM code% 2048
2
P%=code%
3
[ opt 2
4
5
.unload
6
stmfd r13!,{r1-r12,r14}
7
mvn r0,#0
8
swi "XOS_ChangeEnvironment"
9
movvc r14,pc
10
addvc pc,r1,#16
11
movvc r0,#0
12
movvs r0,#1
13
ldmfd r13!,{r1-r12,pc}^
14
15
]
16
17
IF USR(unload) THEN ERROR 1,"TearSupport not present/broken beyond redemption" ELSE ERROR 1,"TearSupprt unloaded OK"
18
END