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

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