TriggerCBs 1.15 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
; Copyright 1998 Acorn Computers Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
;     http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
;
; Trigger CBs - just fire off a few SWIs to let callbacks happen in the
; middle of an Obey file. Otherwise RMLoading MbufManager, Internet, Net
; all in one Obey file doesn't quite work properly; the Internet module
; hasn't sorted itself out or found its drivers by the time the Net module
; appears.
;
Steve Revill's avatar
Steve Revill committed
22 23 24 25 26
        GET     Hdr:ListOpts
        GET     Hdr:Macros
        GET     Hdr:System
        GET     Hdr:Proc

27 28
	AREA	|ObjAsm$$Code|,CODE,READONLY

Steve Revill's avatar
Steve Revill committed
29
	Entry
30 31 32 33 34 35 36
TriggerCBs
	MOV	R5,#16
0	MOV	R0,#0
	MOV	R1,#1
	SWI	XOS_Byte
	SUBS	R5,R5,#1
	BNE	%B0
Kevin Bracey's avatar
Kevin Bracey committed
37
	MOV	PC,LR
38

Kevin Bracey's avatar
Kevin Bracey committed
39
	= "TriggerCBs 1.01 (27 Apr 2000)"
40 41

	END