git.oblomov.eu Git - linux-2.6/blob - drivers/scsi/oktagon_io.S

   1 /* -*- mode: asm -*-
   2  * Due to problems while transferring data I've put these routines as assembly
   3  * code.
   4  * Since I'm no PPC assembler guru, the code is just the assembler version of
   5
   6 int oktag_to_io(long *paddr,long *addr,long len)
   7 {
   8   long *addr2 = addr;
   9   for(len=(len+sizeof(long)-1)/sizeof(long);len--;)
  10     *paddr = *addr2++;
  11   return addr2 - addr;
  12 }
  13
  14 int oktag_from_io(long *addr,long *paddr,long len)
  15 {
  16   long *addr2 = addr;
  17   for(len=(len+sizeof(long)-1)/sizeof(long);len--;)
  18     *addr2++ = *paddr;
  19   return addr2 - addr;
  20 }
  21
  22  * assembled using gcc -O2 -S, with two exception catch points where data
  23  * is moved to/from the IO register.
  24  */
  25
  26 #include <linux/config.h>
  27
  28 #ifdef CONFIG_APUS
  29
  30         .file   "oktagon_io.c"
  31
  32 gcc2_compiled.:
  33 /*
  34         .section ".text"
  35 */
  36         .align 2
  37         .globl oktag_to_io
  38         .type    oktag_to_io,@function
  39 oktag_to_io:
  40         addi 5,5,3
  41         srwi 5,5,2
  42         cmpwi 1,5,0
  43         mr 9,3
  44         mr 3,4
  45         addi 5,5,-1
  46         bc 12,6,.L3
  47 .L5:
  48         cmpwi 1,5,0
  49         lwz 0,0(3)
  50         addi 3,3,4
  51         addi 5,5,-1
  52 exp1:   stw 0,0(9)
  53         bc 4,6,.L5
  54 .L3:
  55 ret1:   subf 3,4,3
  56         srawi 3,3,2
  57         blr
  58 .Lfe1:
  59         .size    oktag_to_io,.Lfe1-oktag_to_io
  60         .align 2
  61         .globl oktag_from_io
  62         .type    oktag_from_io,@function
  63 oktag_from_io:
  64         addi 5,5,3
  65         srwi 5,5,2
  66         cmpwi 1,5,0
  67         mr 9,3
  68         addi 5,5,-1
  69         bc 12,6,.L9
  70 .L11:
  71         cmpwi 1,5,0
  72 exp2:   lwz 0,0(4)
  73         addi 5,5,-1
  74         stw 0,0(3)
  75         addi 3,3,4
  76         bc 4,6,.L11
  77 .L9:
  78 ret2:   subf 3,9,3
  79         srawi 3,3,2
  80         blr
  81 .Lfe2:
  82         .size    oktag_from_io,.Lfe2-oktag_from_io
  83         .ident  "GCC: (GNU) egcs-2.90.29 980515 (egcs-1.0.3 release)"
  84
  85 /*
  86  * Exception table.
  87  * Second longword shows where to jump when an exception at the addr the first
  88  * longword is pointing to is caught.
  89  */
  90
  91 .section __ex_table,"a"
  92         .align  2
  93 oktagon_except:
  94         .long   exp1,ret1
  95         .long   exp2,ret2
  96
  97 #else
  98
  99 /*
 100 The code which follows is for 680x0 based assembler and is meant for
 101 Linux/m68k. It was created by cross compiling the code using the
 102 instructions given above. I then added the four labels used in the
 103 exception handler table at the bottom of this file.
 104 - Kevin <kcozens@interlog.com>
 105 */
 106
 107 #ifdef CONFIG_AMIGA
 108
 109         .file   "oktagon_io.c"
 110         .version        "01.01"
 111 gcc2_compiled.:
 112 .text
 113         .align  2
 114 .globl oktag_to_io
 115         .type    oktag_to_io,@function
 116 oktag_to_io:
 117         link.w %a6,#0
 118         move.l %d2,-(%sp)
 119         move.l 8(%a6),%a1
 120         move.l 12(%a6),%d1
 121         move.l %d1,%a0
 122         move.l 16(%a6),%d0
 123         addq.l #3,%d0
 124         lsr.l #2,%d0
 125         subq.l #1,%d0
 126         moveq.l #-1,%d2
 127         cmp.l %d0,%d2
 128         jbeq .L3
 129 .L5:
 130 exp1:
 131         move.l (%a0)+,(%a1)
 132         dbra %d0,.L5
 133         clr.w %d0
 134         subq.l #1,%d0
 135         jbcc .L5
 136 .L3:
 137 ret1:
 138         move.l %a0,%d0
 139         sub.l %d1,%d0
 140         asr.l #2,%d0
 141         move.l -4(%a6),%d2
 142         unlk %a6
 143         rts
 144
 145 .Lfe1:
 146         .size    oktag_to_io,.Lfe1-oktag_to_io
 147         .align  2
 148 .globl oktag_from_io
 149         .type    oktag_from_io,@function
 150 oktag_from_io:
 151         link.w %a6,#0
 152         move.l %d2,-(%sp)
 153         move.l 8(%a6),%d1
 154         move.l 12(%a6),%a1
 155         move.l %d1,%a0
 156         move.l 16(%a6),%d0
 157         addq.l #3,%d0
 158         lsr.l #2,%d0
 159         subq.l #1,%d0
 160         moveq.l #-1,%d2
 161         cmp.l %d0,%d2
 162         jbeq .L9
 163 .L11:
 164 exp2:
 165         move.l (%a1),(%a0)+
 166         dbra %d0,.L11
 167         clr.w %d0
 168         subq.l #1,%d0
 169         jbcc .L11
 170 .L9:
 171 ret2:
 172         move.l %a0,%d0
 173         sub.l %d1,%d0
 174         asr.l #2,%d0
 175         move.l -4(%a6),%d2
 176         unlk %a6
 177         rts
 178 .Lfe2:
 179         .size    oktag_from_io,.Lfe2-oktag_from_io
 180         .ident  "GCC: (GNU) 2.7.2.1"
 181
 182 /*
 183  * Exception table.
 184  * Second longword shows where to jump when an exception at the addr the first
 185  * longword is pointing to is caught.
 186  */
 187
 188 .section __ex_table,"a"
 189         .align  2
 190 oktagon_except:
 191         .long   exp1,ret1
 192         .long   exp2,ret2
 193
 194 #endif
 195 #endif