1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
; This source code in this file is licensed to You by Castle Technology
; Limited ("Castle") and its licensors on contractual terms and conditions
; ("Licence") which entitle you freely to modify and/or to distribute this
; source code subject to Your compliance with the terms of the Licence.
;
; This source code has been made available to You without any warranties
; whatsoever. Consequently, Your use, modification and distribution of this
; source code is entirely at Your own risk and neither Castle, its licensors
; nor any other person who has contributed to this source code shall be
; liable to You for any loss or damage which You may suffer as a result of
; Your use, modification or distribution of this source code.
;
; Full details of Your rights and obligations are set out in the Licence.
; You should have received a copy of the Licence with this source code file.
; If You have not received a copy, the text of the Licence is available
; online at www.castle-technology.co.uk/riscosbaselicence.htm
;
r0 RN 0
r1 RN 1
r2 RN 2
r3 RN 3
r4 RN 4
r5 RN 5
r6 RN 6
r12 RN 12
lr RN 14
pc RN 15
OS_GetEnv EQU &10
OS_Exit EQU &11
XOS_Module EQU &2001e
OS_Module EQU &1e
OS_GenerateError EQU &2b
OS_ChangeEnvironment EQU &40
OS_ReadDefaultHandler EQU &55
XWimp_SlotSize EQU &600ec
n_module_run EQU 2
n_module_load EQU 11
n_upcall_h EQU 16
o_run_entry EQU &00
o_title_entry EQU &10
EXPORT unsqueeze_base
EXPORT unsqueeze_end
EXPORT unsqueeze_limit
AREA unsqueeze, CODE, READONLY
unsqueeze_base MOV r0, r0
MOV r0, #-1
MOV r1, #-1
SWI XWimp_SlotSize
MOV r6, #0
MOVVC r6, r0
ADR r0, unsqueeze_end
LDR r1, [r0], #4
ADD r0, r0, r1
SUB r0, r0, #&8000
MOV r1, #-1
SWI XWimp_SlotSize
MOV r0, #n_upcall_h
ADR r1, upcall_handler
SWI OS_ChangeEnvironment
ADR r1, unsqueeze_end
LDR r2, [r1], #4
MOV r0, #n_module_load
SWI XOS_Module
MOV r5, r0
MOV r0, #n_upcall_h
SWI OS_ReadDefaultHandler
SWI OS_ChangeEnvironment
MOVS r0, r6
MOVNE r1, #-1
SWINE XWimp_SlotSize
MOV r0, r5
CMP r0, #n_module_load
SWINE OS_GenerateError
SWI OS_Exit
upcall_handler SUB r12, r0, #256
CMP r12, #1
MOVEQ r0, #0
MOV pc, lr
unsqueeze_end DCD 0
unsqueeze_limit
module_start
END
|