summaryrefslogtreecommitdiff
path: root/unsqrm.s
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2012-10-06 15:55:53 +0100
committerDaniel Silverstone <dsilvers@digital-scurf.org>2012-10-06 15:55:53 +0100
commite962168ecfe389000d07ed20203e8aa558827e9f (patch)
tree932e5907f3c13ad102143550fb4c04c8b5af7cb1 /unsqrm.s
downloadsqueeze-e962168ecfe389000d07ed20203e8aa558827e9f.tar.gz
squeeze-e962168ecfe389000d07ed20203e8aa558827e9f.tar.bz2
Initial dump of Castle sources
Diffstat (limited to 'unsqrm.s')
-rw-r--r--unsqrm.s94
1 files changed, 94 insertions, 0 deletions
diff --git a/unsqrm.s b/unsqrm.s
new file mode 100644
index 0000000..8a2797c
--- /dev/null
+++ b/unsqrm.s
@@ -0,0 +1,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