; 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.
;
        GET     Hdr:ListOpts
        GET     Hdr:Macros
        GET     Hdr:System
        GET     Hdr:Machine.<Machine>

;	Hack!
        GBLL  med_00001_debug
med_00001_debug     SETL  {FALSE}

; and another...
        GBLL  StrongARM
StrongARM SETL {TRUE}

; yet more..
        GBLL    ChocolateSysHeap
ChocolateSysHeap SETL {TRUE}

        GBLL    mjsSysHeapNodesTrace
mjsSysHeapNodesTrace SETL {TRUE}


        GET     ^.PublicWS
        GET     ^.KernelWS


        MACRO
        LabelValue $LabelName
        LCLS    String
String  SETS    "Label " :CC: "$LabelName" :CC: " has the value &"
String  SETS    "$String" :CC: :STR: $LabelName
        !       0, "$String"
        MEND

        MACRO
        RegisterLabelValue $LabelName
        LCLS    String
        LCLA    Register
String  SETS    "Label " :CC: "$LabelName" :CC: " has the value &"
String  SETS    "$String" :CC: :STR: ( :INDEX: $LabelName)
Register SETA   :BASE: $LabelName
        [       Register >= 10
String  SETS    "$String" :CC: ", R" :CC: ((:STR: (Register+6)) :RIGHT: 2)
        |
String  SETS    "$String" :CC: ", R" :CC: ((:STR: Register) :RIGHT: 1)
        ]
        !       0, "$String"
        MEND


        LabelValue Export_BgEcfOraEor
        LabelValue Export_FgEcfOraEor
        LabelValue Export_BranchToSWIExit
        LabelValue Export_DomainId
        LabelValue Export_ESC_Status
        LabelValue Export_IRQsema
        LabelValue Export_LatchBSoftCopy
        LabelValue Export_MEMC_CR_SoftCopy
        LabelValue Export_DebuggerSpace
        LabelValue Export_RedirectInHandle
        LabelValue Export_RedirectOutHandle
        LabelValue Export_ScratchSpace
        LabelValue ScratchSpaceSize
        LabelValue Export_SoundDMABuffers
        LabelValue Export_SoundDMABufferSize
        LabelValue Export_SoundWorkSpace
        LabelValue Export_SVCSTK
        LabelValue Export_SvcTable
        LabelValue Export_SysHeapStart
        LabelValue Export_VduDriverWorkSpace
        LabelValue VDWSSize
        LabelValue ScreenBlankFlag
        LabelValue ScreenBlankDPMSState

        END