; 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.
;
; -*- Mode: Assembler -*-
;* Shared library kernel: Arthur module version
;* Lastedit: 02 Mar 89 11:17:02 by Harry Meekings *
;
; Copyright (C) Acorn Computers Ltd., 1988.
;

        GBLL    Brazil_Compatible
        GBLS    Calling_Standard
        GBLL    ModeMayBeNonUser
        GBLL    DDE

Brazil_Compatible  SETL  {FALSE}
Calling_Standard   SETS  "APCS_A"
ModeMayBeNonUser   SETL  {TRUE}
DDE                SETL  {TRUE}

        GET     s.h_Regs
        GET     s.h_Brazil
        GET     s.h_modmacro

        Module  kernel

        AREA    |C$$data|, DATA

dataStart
        GET     kernel.s.k_data
dataEnd

        AREA    |Lib$$Init|, READONLY

        &       1
        &       entriesStart
        &       entriesEnd
        &       dataStart
        &       dataEnd

        AREA    |RTSK$$Data|, DATA, READONLY
        ; an empty one, so the symbols below are always defined

        AREA    |K$$Code|, CODE, READONLY
        IMPORT  |RTSK$$Data$$Base|
        IMPORT  |RTSK$$Data$$Limit|

entriesStart
        GET     kernel.s.k_entries
entriesEnd

        LNK     kernel.s.k_body