Commit | Line | Data |
---|---|---|
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 |