6809: we will need this shortly

diff --git a/Kernel/lowlevel-6809.s b/Kernel/lowlevel-6809.s
index 1d1bdea..b3fad26 100644 (file)
--- 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