; > &.Hdr.ResourceFS
;

; ***********************************
; ***    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


SWIClass        SETS    "ResourceFS"

        ^       Module_SWISystemBase + ResourceFSSWI * Module_SWIChunkSize

        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

        END
