[ssr] / StraySrc / Libraries / Core / TearSupt / s / tt

 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
Commit	Line	Data
2ee739cc	1	GET libs:header
	2	GET libs:swis
	3
	4	IMPORT tearSupport_init
	5
	6	AREA \|foo$$code\|,CODE,READONLY
	7
	8	ENTRY
	9
	10
	11	main
	12	MOV R13,#&9000
	13	BL tearSupport_init
	14	ADR R0,message
	15	SWI OS_GenerateError
	16	SWI OS_Exit
	17
	18	message
	19	DCD 1
	20	DCB "Tearoff support code installed OK",0
	21
	22	END