From 4a2b250f96d1dac34edcbaf015f8a315f6e02ad0 Mon Sep 17 00:00:00 2001 From: Alan Cox Date: Thu, 1 Oct 2015 19:29:03 +0100 Subject: [PATCH] 6809: we will need this shortly --- Kernel/lowlevel-6809.s | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/Kernel/lowlevel-6809.s b/Kernel/lowlevel-6809.s index 1d1bdeac..b3fad26b 100644 --- a/Kernel/lowlevel-6809.s +++ b/Kernel/lowlevel-6809.s @@ -14,6 +14,7 @@ .globl _umodhi3 .globl _mulhi3 .globl _ashlhi3 + .globl _ashrhi3 .globl _lshrhi3 .globl ___ashlsi3 .globl _swab @@ -626,3 +627,15 @@ _lshrhi3_1: bra _lshrhi3_1 _lshrhi3_2: puls x,pc + +_ashrhi3: + pshs x +1$: + leax -1,x + cmpx #-1 + beq 2$ + asra + rorb + bra 1$ +2$: + puls x,pc -- 2.34.1