#base 0
#type &FFC
#name "<ADFFS$Dir>.CheckCLib"


STMFD   R13!, {R0-R12, R14}

MOV     R0, #18
ADR     R1, CLib
SWI     XOS_Module		;R3=CLib Module address

MOV     R0, #1
SWIVC   XOS_ReadDynamicArea
BVS     _exit
ADD     R1, R0, R1		;R0=start of RMA, R1=end of RMA

CMP     R3, R0
CMPHI   R1, R3
ADR     R0, SetEnv
SWIHS   XOS_CLI			;CLib is in the RMA

._exit
SUBS    R0, R0, R0		;clear V
LDMFD   R13!, {R0-R12, PC}

.CLib	DCB "SharedCLibrary", 0
.SetEnv	DCB "SetEval ADFFS$CLib 0", 0


