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