; 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.
;
        SUBT    Exported ResourceFS constants

OldOpt  SETA    {OPT}
        OPT     OptNoList+OptNoP1List

; ***********************************
; ***    C h a n g e   L i s t    ***
; ***********************************

; Date       Name  Description
; ----       ----  -----------
; 13-Feb-90  NDR   File created
; 22-Feb-90  NDR   Name changed from DeskFS to ResourceFS
; 20-Jun-90  NDR   Changed macro so attributes are always 3
; 17-May-94  AMcC  Changed to using the preferred SWI base and name symbols

SWIClass        SETS    ResourceFSSWI_Name

        ^       ResourceFSSWI_Base

        AddSWI  RegisterFiles           ; &41B40
        AddSWI  DeregisterFiles         ; &41B41

        MACRO
$Start  ResourceFile  $InFile, $OutFile
$Start  DCD     %FT60 - .         ; Offset from here to the next file
        DCD     :FLOAD:"$InFile"  ; Load address of file
        DCD     :FEXEC:"$InFile"  ; Exec address of file
        DCD     :FSIZE:"$InFile"  ; The length of the file
        DCD     3                 ; Access bits (always WR/)
        DCB     "$OutFile",0      ; The ResourceFS filename
        ALIGN
        DCD     %FT40-%FT20+4     ; The file length plus four
20
        BIN     $InFile           ; The file itself
40
        ALIGN
60
        MEND

        OPT     OldOpt
        END
