Import from cleaned 360 CD

.gitattributes

+s/** gitlab-language=armasm linguist-language=armasm linguist-detectable=true

LICENSE

+
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "[]"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright [yyyy] [name of copyright owner]
+
+   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.

Makefile

+# Copyright 1996 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.
+#
+# Makefile for Display Manager
+#
+# ***********************************
+# ***    C h a n g e   L i s t    ***
+# ***********************************
+# Date       Name         Description
+# ----       ----         -----------
+# 25-May-94  AMcC         Created.
+#
+
+#
+# Generic options:
+#
+MKDIR   = cdir
+AS      = aasm
+CP      = copy
+RM      = remove
+CCFLAGS = -c -depend !Depend -IC:
+ASFLAGS = -depend !Depend -Stamp -quit -module -To $@ -From
+CPFLAGS = ~cfr~v
+
+#
+# Program specific options:
+#
+COMPONENT = Display
+SOURCE    = s.GetAll
+TARGET    = rm.Display
+
+#
+# Generic rules:
+#
+rom: ${TARGET}
+	@echo ${COMPONENT}: rom module built
+
+export: 
+	@echo ${COMPONENT}: export complete
+
+install_rom: ${TARGET}
+	${CP} ${TARGET} ${INSTDIR}.${COMPONENT} ${CPFLAGS}
+	@echo ${COMPONENT}: rom module installed
+
+clean:
+	${RM} ${TARGET}
+	@echo ${COMPONENT}: cleaned
+
+resources:
+	${MKDIR} ${RESDIR}.${COMPONENT}
+	${CP} Resources.${LOCALE}.Messages  ${RESDIR}.${COMPONENT}.Messages  ${CPFLAGS}
+	${CP} Resources.${LOCALE}.Templates ${RESDIR}.${COMPONENT}.Templates ${CPFLAGS}
+	@echo ${COMPONENT}: resource files copied
+
+${TARGET}: ${SOURCE}
+	 ${AS} ${ASFLAGS} ${SOURCE}
+
+# Dynamic dependencies:

MkClean,fd7

+| Copyright 1996 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.
+|
+Dir <Obey$Dir>
+amu_machine clean

MkRom,fd7

+| Copyright 1996 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.
+|
+Dir <Obey$Dir>
+amu_machine rom

Version

+; > Version
+
+;---------------------------------------------------------------------------
+;       Change history.
+;
+; 03-Jun-93     0.00    SMC     Created.
+; 08-Jul-93     0.12    SMC     First non-development version under source control.
+; 12-Jul-93     0.13    SMC     Grey out colour menu items which are not possible at all.
+; 13-Jul-93     0.14    SMC     Modes specified by number should give "Unknown" frame rate.
+; 13-Jul-93     0.15    SMC     Do the best we can on click on OK (even if frame rate unknown).
+; 16-Jul-93     0.16    SMC     Sorted out build structure.
+; 03-Sep-93     0.17    SMC     Don't return error from *WimpMode, use our own.
+;                               Return error if non-text file dragged to our icon/window.
+;                               Issue Message_PaletteChange like Palette util did (keep world happy).
+; 09-Sep-93     0.18    SMC     Changed name to Display Manager.
+;                               Don't issue Message_PaletteChange after all, it's not necessary.
+;                               Template changes and button action changes for style guide compliance.
+;                               Frame rate widgets moved off visible area of mode change dialogue
+;                                 (thought to be too technical for ordinary users).
+;                               Internationalised *Desktop_DisplayManager help and syntax.
+; 08-Oct-93     0.19    SMC     Currently selected menu items now ticked.
+;                               Don't use modes with no mode name.
+; 12-Nov-93     0.20    SMC     Removed ptr_menu from template validation strings.
+;                               If resolution unknown on colour selection then start with highest.
+;                               Made pop-up menus style guide compliant.
+; 10-Dec-93     0.21    SMC     Now uses K instead of T in mode selection strings.
+;                               Fix register corruption in pollword non-zero handler.
+;                               Change name of sprite from "screen" to "display".
+;                               Don't close window if changing mode gives an error.
+;                               Display monitor name in window title bar.
+; 14-Dec-93     0.22    SMC     Position window base at top of icon bar.
+; 10-Jan-94     0.23    AG      Move Help and Syntax messages for Desktop_DisplayManager to global file.
+; 21-Jan-94     0.24    SMC     Adjust on Mode window OK box now leaves menu and dialogue open.
+;                               Allow modes not in resolution menu to be changed to.
+;                               Rationalised stepping down and up through mode list.
+;                               Added compile option to split the resolution menu into sections
+;                                       based on pixel shape.
+;                               Fixed module header because help/syntax moved to Global.
+;                               Open menus are updated on mode/palette change (get ticks right).
+; 21-Jan-94     0.25    SMC     Stopped icon bar menu being redisplayed after mode change.
+; 04-Feb-94     0.26    SMC     Invalidate ColourTrans cache and force redraw whole screen if palette
+;                                       has changed on Service_WimpPalette/Service_CalibrationChanged.
+; 17-Feb-94     0.27    SMC     Leave items in colour menu shaded if not supported by any modes
+;                                       in resolution menu.
+;                               If colours changed in resolution which is not on resolution menu then
+;                                       allow non-menu modes in stepping down.
+; 18-Feb-94     0.28    SMC     Small mod to building colours menu.
+; 03-Aug-94     0.29    SMC     Fixed MED-03376: menu building broken if last (or only) mode was unnamed.
+; 30-Aug-94     0.30    AMcC    Look for Resources in Resources.Display rather than Resources.Modes
+; 28-Oct-94     0.31    SMC     Added message tokenisation support.
+; 21-Dec-94     0.32    SMC     Changed to correct format for version string.
+; 11-Jan-95     0.33    SMC     Improved wording of invalid mode error.
+;
+
+        GBLA    Version
+        GBLS    VString
+        GBLS    Date
+
+        ; REMEMBER TO UPDATE VERSION IN MESSAGES FILE
+
+Version SETA    033             ; 000
+VString SETS    "0.33"          ; "0.00" 
+Date    SETS    "11 Jan 1995"   ; "Development"
+
+        END        

rm/.gitignore

+*
+!.gitignore

s/Errors

+; Copyright 1996 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.
+;
+; > Sources.Errors
+
+;-----------------------------------------------------------------------------
+;       Define our error messages.
+;
+        ^ ErrorBase_Modes
+
+        AddError Modes_CantStart,               "UseDesk"
+        AddError Modes_NoWimp,                  "NoWimp"
+        AddError Modes_NoTemplate,              "E00"
+        AddError Modes_Unsupported,             "E01"
+        AddError Modes_CantEnumerate,           "E02"
+        AddError Modes_NoScrap,                 "E03"
+        AddError Modes_InvalidMode,             "E04"
+        AddError Modes_InvalidFile,             "E05"
+
+
+        END

s/Front

+; Copyright 1996 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.
+;
+; > Sources.Front
+
+;-----------------------------------------------------------------------------
+;       Workspace layout.
+;
+workspace       RN      R12
+                ^       0,workspace
+wsorigin                #       0
+
+task_handle             #       4       ; Must be first word of workspace.
+private_word            #       4       ; Pointer to our private word.
+pollword                #       4       ; Poll word for Wimp_Poll.
+
+icon_handle             #       4       ; Icon bar icon handle.
+info_handle             #       4       ; Info window handle.
+mode_handle             #       4       ; Mode dialogue window handle.
+display_handle          #       4       ; Main display window handle.
+menu_handle             #       4       ; Last menu displayed.
+
+indirected_data         #       4       ; Pointer to indirected window data.
+mode_indirect           #       4       ; Pointer to indirect data for mode icon.
+mode_size               #       4       ; Size of indirect data for mode icon.
+resolution_indirect     #       4       ; Pointer to indirect data for resolution icon.
+resolution_size         #       4       ; Size of indirect data for resolution icon.
+colours_indirect        #       4       ; Pointer to indirect data for colours icon.
+colours_size            #       4       ; Size of indirect data for colours icon.
+ [ SelectFrameRate
+rate_indirect           #       4       ; Pointer to indirect data for rate icon.
+rate_size               #       4       ; Size of indirect data for rate icon.
+ ]
+title_indirect          #       4       ; Pointer to indirect data for title bar.
+title_size              #       4       ; Size of indirect data for title bar.
+
+mode_space              #       0       ; The following point into the same allocated space.
+mode_sortedlist         #       4       ; Pointer to sorted list of mode pointers (into mode_table).
+mode_classlist          #       4       ; Pointer to list of mode class pointers (into mode_sortedlist).
+mode_menulist           #       4       ; Pointer to list of class list pointers (into mode_classlist).
+mode_table              #       4       ; Pointer to table of available modes.
+m_resolutionmenu        #       4       ; Pointer to resolution menu.
+m_resolutionsize        #       4       ; Amount of space reserved for resolution menu.
+ [ SelectFrameRate
+m_ratemenu              #       4       ; Pointer to rate menu.
+m_ratesize              #       4       ; Amount of space reserved for rate menu.
+ ]
+
+mode_count              #       4       ; Number of available modes.
+selected_subclass       #       4       ; Pointer to currently selected subclass (into mode_sortedlist).
+selected_mode           #       4       ; Pointer to currently selected mode descriptor.
+ [ LoadModeFiles
+scrap_ref               #       4       ; So we know when to delete scrap file.
+ ]
+
+message_file_block      #       4*4
+wimp_palette            #       16
+
+flags                   #       1       ; Module flags.
+selected_colours        #       1       ; Menu item selected from colours menu.
+selected_class          #       1       ; Index into mode_classlist for currently selected class.
+resolution_count        #       1       ; Number of items in the resolution menu.
+ [ SortOnPixelShape
+class_count             #       1       ; Number of classes.
+ ]
+ [ SelectFrameRate
+rate_count              #       1       ; Number of items in the rate menu.
+ ]
+menu_tick               #       1       ; Ticked item on current menu.
+
+                        #       3:AND:(-:INDEX:@)
+
+user_data_size          *       &100
+user_data               #       user_data_size
+stack_bottom            #       &100
+stack_top               #       0
+
+ram_menustart           #       0
+m_iconbarmenu           #       m_headersize + mi_size * 2
+mm_info                 *       m_iconbarmenu + m_headersize + mi_submenu + mi_size * 0
+mm_mode                 *       m_iconbarmenu + m_headersize + mi_submenu + mi_size * 1
+m_coloursmenu           #       m_headersize + mi_size * 8
+ram_menuend             #       0
+
+max_running_work   *       :INDEX:@
+
+        ! 0, "Display Manager workspace is ":CC:(:STR:(:INDEX:@)):CC:" bytes"
+
+
+;-----------------------------------------------------------------------------
+;       Useful declarations.
+;
+max_banner_size *       60              ; Maximum length of module title string.
+poll_mask       *       null_bit + pointerchange_bits + pollwordfast_enable
+
+; Global flags.
+f_greylevel     *       2_00000001      ; Current mode is grey level.
+f_messagesopen  *       2_00000010      ; Messages file is open.
+f_ratemenuvalid *       2_00000100      ; Rate menu is valid.
+
+; Mode descriptor.
+                        ^       0
+mode_desc_size          #       4
+mode_desc_flags         #       4
+mode_desc_xres          #       4
+mode_desc_yres          #       4
+mode_desc_depth         #       4
+mode_desc_rate          #       4
+mode_desc_name          #       0       ; Null terminated, word aligned string.
+
+; Mode specifier.
+                        ^       0
+mode_spec_flags         #       4
+mode_spec_xres          #       4
+mode_spec_yres          #       4
+mode_spec_depth         #       4
+mode_spec_rate          #       4
+mode_spec_vars          #       0       ; Mode variables, terminated by word -1.
+
+; Poll word non-zero flags.
+pf_refreshicons         *       1:SHL:0
+pf_modeinit             *       1:SHL:1
+pf_settitle             *       1:SHL:2
+
+ [ SortOnPixelShape
+flags_squarepixel       *       1:SHL:31
+ ]
+
+bignum                  *       &0FFFFFFF
+
+        END
+

s/GetAll

+; Copyright 1996 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.
+;
+; > Sources.GetAll
+
+;---------------------------------------------------------------------------
+; Module template.
+;---------------------------------------------------------------------------
+
+Module_BaseAddr
+
+;---------------------------------------------------------------------------
+;       Get the headers.
+;
+        GET     Hdr:ListOpts
+        GET     Hdr:Macros
+        GET     Hdr:System
+        GET     Hdr:ModHand
+        GET     Hdr:Services
+        GET     Hdr:Wimp
+        GET     Hdr:WimpSpace
+        GET     Hdr:MsgTrans
+        GET     Hdr:MsgMenus
+        GET     Hdr:ResourceFS
+        GET     Hdr:NdrDebug
+        GET     Hdr:HostFS
+        GET     Hdr:DDVMacros
+        GET     Hdr:Proc
+        GET     Hdr:Messages
+        GET     Hdr:Sprite
+        GET     Hdr:VduExt
+        GET     Hdr:FileTypes
+        GET     Hdr:Variables
+        GET     Hdr:FSNumbers
+        GET     Hdr:NewErrors
+        GET     Hdr:ScrModes
+        GET     Hdr:ColourTran
+
+        GET     Version
+
+;---------------------------------------------------------------------------
+;       Define global variables.
+;
+                GBLL    hostvdu
+
+debug           SETL    false
+hostvdu         SETL    true
+
+mod             SETD    false
+mode            SETD    false
+menu            SETD    false
+win             SETD    false
+msg             SETD    false
+icon            SETD    false
+
+                GBLL    standalone
+standalone      SETL    false
+
+                GBLL    Medusa
+Medusa          SETL    true
+
+                GBLL    SelectFrameRate
+SelectFrameRate SETL    true
+
+                GBLL    LoadModeFiles
+LoadModeFiles   SETL    true
+
+                GBLL    SortOnPixelShape
+SortOnPixelShape SETL   true
+
+                GBLL    NewShading
+NewShading      SETL    true
+
+;---------------------------------------------------------------------------
+;       Get the sources.
+;
+                GBLS    GetResFiles
+ [ standalone
+GetResFiles     SETS    "GET    Sources.ResFiles"
+ |
+GetResFiles     SETS    ""
+ ]
+
+        GET     s.Front
+        GET     s.Errors
+        GET     s.Module
+        GET     s.Icon
+        GET     s.Window
+        GET     s.Menu
+        GET     s.Message
+        GET     s.Mouse
+        GET     s.Mode
+        GET     s.MsgTrans
+        $GetResFiles
+
+        END

s/Icon

+; Copyright 1996 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.
+;
+; > Sources.Icon
+
+icon_block
+        DCD     &00003002
+        DCB     "display",0,0,0,0,0
+        ALIGN
+
+ic_display_colours      *       4
+ic_display_colbutton    *       3
+ic_display_resolution   *       5
+ic_display_resbutton    *       7
+ic_display_cancel       *       6
+ic_display_ok           *       1
+ [ SelectFrameRate
+ic_display_rate         *       9
+ic_display_ratebutton   *       10
+ ]
+
+ic_mode_mode            *       0
+ic_mode_ok              *       1
+
+ic_info_version         *       3
+
+;---------------------------------------------------------------------------
+; Icon_Init
+;
+;       Out:    r0 corrupted
+;
+;       Make icon bar icon.
+;
+Icon_Init
+        ENTRY   "r1-r6"
+
+        MOV     r0, #SpriteReason_ReadSpriteSize
+        ADR     r2, icon_block+4        ; r2 -> sprite name
+        SWI     XWimp_SpriteOp          ; r3,r4 = size in pixels
+        EXIT    VS
+
+        MOV     r0, r6                  ; r0 = creation mode of sprite
+
+        MOV     r1, #VduExt_XEigFactor
+        SWI     XOS_ReadModeVariable
+        MOV     r5, r3, LSL r2          ; x1 = width in OS units
+        MOV     r3, #0                  ; x0 = 0
+
+        MOV     r1, #VduExt_YEigFactor
+        SWI     XOS_ReadModeVariable
+        MOV     r6, r4, LSL r2          ; y1 = height in OS units
+        MOV     r4, #0                  ; y0 = 0
+
+        ADR     r1, user_data           ; Build Wimp_CreateIcon block.
+        MOV     r0, #-8                 ; Place on right, scan from right.
+        STMIA   r1!, {r0,r3-r6}         ; Store x0,y0,x1,y1.
+        ADR     lr, icon_block
+        LDMIA   lr, {r3-r6}             ; Get icon flags and data.
+        STMIA   r1, {r3-r6}             ; Put in block.
+
+        LDR     r0, =WimpPriority_ModeChooser   ; Create icon with priority.
+        ADR     r1, user_data
+        SWI     XWimp_CreateIcon
+        STRVC   r0, icon_handle
+
+        EXIT
+
+
+;---------------------------------------------------------------------------
+; Icon_SetState
+;
+;       In:     r0 = window handle
+;               r1 = icon
+;               r2 = EOR word
+;               r3 = clear word
+;
+;       Set icon state given parameters.
+;
+Icon_SetState
+        ENTRY   "r0-r3"
+
+        MOV     r1, sp
+        SWI     XWimp_SetIconState
+        STRVS   r0, [sp]
+
+        EXIT
+
+
+;---------------------------------------------------------------------------
+; Icon_Refresh
+;
+;       Get the WIMP to update the window icons.
+;
+Icon_Refresh
+        ENTRY   "r0-r3"
+
+        Debug   icon,"Icon_Refresh"
+
+        LDR     r0, display_handle
+        MOV     r1, #ic_display_colours
+        MOV     r2, #0
+        MOV     r3, #0
+        BL      Icon_SetState
+        MOVVC   r1, #ic_display_resolution
+        BLVC    Icon_SetState
+ [ SelectFrameRate
+        MOVVC   r1, #ic_display_rate
+        BLVC    Icon_SetState
+ ]
+
+        EXIT
+
+
+        END

s/Message

+; Copyright 1996 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.
+;
+; > Sources.Message
+
+;---------------------------------------------------------------------------
+; Message_Received
+; Message_Recorded
+;
+;       In:     r1 -> message block
+;       Out:    r0 corrupted
+;
+;       Deal with messages which require no ack.
+;
+Message_Received
+Message_Recorded
+        ENTRY   "r1-r6"
+
+        LDR     r0, [r1, #ms_action]
+
+        Debug   msg,"Message",r0
+
+        LDR     lr, =Message_MenuWarning
+        TEQ     r0, lr
+        BEQ     msg_menuwarning
+
+        LDR     lr, =Message_MenusDeleted
+        TEQ     r0, lr
+        BEQ     msg_menusdeleted
+
+        LDR     lr, =Message_HelpRequest
+        TEQ     r0, lr
+        BEQ     msg_helprequest
+
+ [ LoadModeFiles
+        TEQ     r0, #Message_DataLoad
+        BEQ     msg_dataload
+
+        TEQ     r0, #Message_DataSave
+        BEQ     msg_datasave
+ ]
+
+        TEQ     r0, #Message_Quit
+        EXIT    NE
+
+msg_quit
+        Debug   msg,"msg_quit"
+        BL      Mod_ShutDown
+        SWI     OS_Exit
+
+
+msg_menuwarning
+        Debug   msg,"msg_menuwarning"
+        ADD     r1, r1, #20
+        LDMIA   r1, {r1-r3}
+        Push    "r1-r3"
+
+        BL      Mode_GetCurrent
+        BLVC    Mode_GetInfo
+        BLVC    Mode_TestPalette
+        BLVC    Mode_SetModeString
+
+        Pull    "r1-r3"
+        SWIVC   XWimp_CreateSubMenu
+
+        EXIT
+
+
+msg_menusdeleted
+        Debug   msg,"msg_menusdeleted"
+        LDR     r1, menu_handle
+        BL      Menu_RemoveTick
+        MOV     r1, #0
+        STR     r1, menu_handle
+        EXIT
+
+
+msg_helprequest
+        Debug   msg,"msg_helprequest"
+        LDR     r2, [r1, #ms_data + b_window]
+        LDR     r3, [r1, #ms_data + b_icon]
+
+        CMP     r2, #iconbar_whandle
+        MOVEQ   r2, #"B"
+        MOVEQ   r3, #0
+        BEQ     return_help
+
+        LDR     lr, info_handle
+        TEQ     r2, lr
+        MOVEQ   r2, #"I"
+        MOVEQ   r3, #0
+        BEQ     return_help
+
+        LDR     lr, display_handle
+        TEQ     r2, lr
+        MOVEQ   r2, #"D"
+        BEQ     return_help
+
+        LDR     lr, mode_handle
+        TEQ     r2, lr
+        MOVEQ   r2, #"W"
+        BEQ     return_help
+
+        CMP     r3, #0                  ; No help if not on a menu item.
+        EXIT    LT
+
+        Push    "r1,r3,lr"              ; Find menu item.
+        MOV     r0, #1
+        ADD     r1, sp, #4
+        SWI     XWimp_GetMenuState
+        Pull    "r1,r3,lr"              ; r3 = menu item
+        EXIT    VS
+
+        LDR     r0, menu_handle
+        ADR     lr, m_iconbarmenu
+        TEQ     r0, lr
+        MOVEQ   r2, #"M"
+        BEQ     return_help
+
+        ADR     lr, m_coloursmenu
+        TEQ     r0, lr
+        MOVEQ   r2, #"C"
+        BEQ     return_help
+
+        LDR     lr, m_resolutionmenu
+        TEQ     r0, lr
+        MOVEQ   r2, #"R"
+        BEQ     return_help
+
+        LDR     lr, m_ratemenu
+        TEQ     r0, lr
+        EXIT    NE
+
+        MOV     r2, #"F"                ; And drop through to...
+
+return_help
+        SUB     sp, sp, #8              ; Get some local stack.
+
+        MOV     r1, sp                  ; Build message token.
+        MOV     lr, #"H"
+        STRB    lr, [r1], #1
+        STRB    r2, [r1], #1
+        MOV     r0, r3
+        MOV     r2, #user_data_size - msHelp_message
+        SWI     XOS_ConvertHex2
+
+        BLVC    MsgTrans_OpenFile       ; Lookup help text.
+        MOVVC   r1, sp
+        ADRVC   r2, user_data + msHelp_message
+        MOVVC   r3, #user_data_size - msHelp_message
+        BLVC    MsgTrans_Lookup
+
+        ADD     sp, sp, #8              ; Balance stack.
+
+        LDRVC   r0, =Message_HelpReply
+        SUBVC   r1, r2, #msHelp_message
+        ADDVC   r3, r3, #msHelp_message + 4
+        BICVC   r3, r3, #3              ; r3 = message size (including string terminator)
+        STRVC   r3, [r1, #ms_size]
+        BLVC    Message_SendAck
+        EXIT
+
+
+ [ LoadModeFiles
+
+msg_dataload
+        Debug   msg,"msg_dataload"
+        LDR     lr, [r1, #msDataTransfer_filetype]
+        LDR     r0, =FileType_Text
+        TEQ     r0, lr                  ; Make sure it's a text file.
+        ADRNE   r0, ErrorBlock_Modes_InvalidFile
+        BLNE    MsgTrans_ErrorLookup
+        EXIT    VS
+
+        LDR     r6, [r1, #ms_yourref]   ; Save for later.
+        Debug   msg," received ref",r6
+
+        LDR     r0, =Message_DataLoadAck
+        BL      Message_SendAck
+
+        ADDVC   r1, r1, #msDataTransfer_filename
+        BLVC    Mode_LoadFile
+        BL      delete_scrap
+        EXIT
+
+delete_scrap
+        Push    "r0,lr"
+        LDR     lr, scrap_ref
+        TEQ     r6, lr                  ; If loading scrap file then
+        MOVEQ   lr, #-1                 ;   clear scrap ref
+        STREQ   lr, scrap_ref
+        ADREQ   r0, deletescrap         ;   and delete scrap file we used.
+        SWIEQ   XOS_CLI
+        Pull    "r0,pc",,^
+
+
+msg_datasave
+        Debug   msg,"msg_datasave"
+        LDR     lr, [r1, #msDataTransfer_filetype]
+        LDR     r0, =FileType_Text
+        TEQ     r0, lr                  ; Make sure it's a text file.
+        EXIT    NE
+
+        ADR     r0, wimpscrapname       ; Check that Wimp$Scrap has been set.
+        MOV     r2, #-1
+        MOV     r3, #0
+        MOV     r4, #VarType_Expanded
+        SWI     XOS_ReadVarVal          ; Returns r2=0 if doesn't exist.
+        CMP     r2, #0
+        ADREQ   r0, ErrorBlock_Modes_NoScrap
+        BLEQ    MsgTrans_ErrorLookup
+        EXIT    VS
+
+        MOV     lr, #-1
+        STR     lr, [r1, #msDataTransfer_filesize]
+        MOV     lr, #(msDataTransfer_filename + ?wimpscrapname2 + 3):AND::NOT:3
+        STR     lr, [r1, #ms_size]
+
+        ADR     r0, wimpscrapname2
+        ADD     r1, r1, #msDataTransfer_filename
+        BL      Mod_CopyString          ; r2 = length = -1 from above.
+
+        LDR     r0, =Message_DataSaveAck
+        ADR     r1, user_data
+        BL      Message_SendAck
+
+        LDRVC   lr, [r1, #ms_myref]     ; Note that we're using Wimp$Scrap.
+        STRVC   lr, scrap_ref
+        Debug   msg," sent ref",lr
+        EXIT
+
+wimpscrapname   DCB     "Wimp$Scrap",0
+wimpscrapname2  DCB     "<Wimp$Scrap>",0
+deletescrap     DCB     "%Delete <Wimp$Scrap>",0
+                ALIGN
+
+        MakeErrorBlock  Modes_InvalidFile
+        MakeErrorBlock  Modes_NoScrap
+
+
+;---------------------------------------------------------------------------
+; Message_SendAck
+;
+;       In:     r0 = message to send
+;               r1 -> message block to send
+;       Out:    r0 corrupted
+;
+;       The references in the message block are updated and the message
+;       is then sent to the appropriate task.
+;
+Message_SendAck
+        ENTRY   "r1,r2"
+
+        LDR     r2, [r1, #ms_taskhandle]
+        LDR     lr, [r1, #ms_myref]
+        STR     lr, [r1, #ms_yourref]
+        STR     r0, [r1, #ms_action]
+
+        MOV     r0, #User_Message
+        SWI     XWimp_SendMessage
+
+        EXIT
+ ]
+
+        LTORG
+
+        END