
SWIClass        SETS    "ResourceFS"

        ^       &41B40

        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
