git.gag.com Git - debian/cc1111/blob - device/lib/pic16/libsdcc/fixed16x16/uchar2fps16x16.S

   1
   2 ;
   3 ; uchar2fps16x16.S - convert signed char to fixed16x16
   4 ;
   5 ; written by Vangelis Rokas, 2004 <vrokas AT otenet.gr>
   6 ;
   7 ;
   8 ; $Id: uchar2fps16x16.S 3838 2005-08-10 10:53:34Z tecodev $
   9 ;
  10
  11         radix dec
  12
  13 ;--------------------------------------------------------
  14 ; public variables in this module
  15 ;--------------------------------------------------------
  16         global ___uchar2fps16x16
  17
  18 ;--------------------------------------------------------
  19 ;       Equates to used internal registers
  20 ;--------------------------------------------------------
  21 STATUS  equ     0xfd8
  22 WREG    equ     0xfe8
  23 FSR0L   equ     0xfe9
  24 FSR1L   equ     0xfe1
  25 FSR2L   equ     0xfd9
  26 POSTDEC1        equ     0xfe5
  27 PREINC1 equ     0xfe4
  28 PLUSW1  equ     0xfe3
  29 PRODL   equ     0xff3
  30 PRODH   equ     0xff4
  31
  32
  33 S_uchar2fps16x16____uchar2fps16x16      code
  34 ___uchar2fps16x16:
  35
  36         movlw   0x01
  37         movff   PLUSW1, PRODH
  38
  39         clrf    WREG
  40         clrf    PRODL
  41         clrf    FSR0L
  42
  43         bcf     FSR0L, 7
  44
  45 @1:
  46         return
  47
  48         end