; ***** BEGIN LICENSE BLOCK *****
; Version: MPL 1.1
;
; The contents of this file are subject to the Mozilla Public License Version
; 1.1 (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.mozilla.org/MPL/
;
; Software distributed under the License is distributed on an "AS IS" basis,
; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
; for the specific language governing rights and limitations under the
; License.
;
; The Original Code is the Printers+ front-end.
;
; The Initial Developer of the Printers front-end is Acorn Computers Ltd.
; The Initial Developer of the Printers+ extensions is RISCOS Ltd.
;
; Portions created by the Initial Developers are Copyright (C) 2003
; the Initial Developers. All Rights Reserved.
;
; Contributor(s):
;
; ***** END LICENSE BLOCK ***** */

; *******************************************
; ***  LowerCase - Needs a temp register  ***
; *******************************************
        MACRO
$label  LowerCase $reg, $wrk, $nowarning
$label  CMP     $reg, #"A"
        RSBGES  $wrk, $reg, #"Z"        ; inverse compare
        CMPLT   $reg, #&c0
        RSBGES  $wrk, $reg, #&d6
        CMPLT   $reg, #&d8
        RSBGES  $wrk, $reg, #&de
        ADDGE   $reg, $reg, #"a"-"A"
        !       0, "You have used the lowercase macro. This alters top bit characters"
        !       0, "as well as A-Z. Change to uk_lowercase if you only want A-Z."
        !       0, "Use the Territory Manager for any International-aware code."
        MEND

	MACRO
$label	Push $reg, $cond
$label	STM$cond.DB	sp!, {$reg}
	MEND

	MACRO
$label	Pull $reg, $cond, $wr
$label	LDM$cond.IA	sp!, {$reg}$wr
	MEND

	END
