chiark - git - mdw - ssr/blob - 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