 GET libs:header
 GET libs:swis

 IMPORT tearSupport_init

 AREA |foo$$code|,CODE,READONLY

 ENTRY


main
 MOV R13,#&9000
 BL tearSupport_init
 ADR R0,message
 SWI OS_GenerateError
 SWI OS_Exit

message
 DCD 1
 DCB "Tearoff support code installed OK",0

 END
