sdcc/device/lib/pdk13/_muluchar.s

   1         .module _muluchar
   2         .optsdcc -mpdk13
   3
   4         .area DATA
   5
   6         .area   OSEG (OVR,DATA)
   7 __muluchar_PARM_1::
   8         .ds 1
   9 __muluchar_PARM_2::
  10         .ds 1
  11
  12         .area CODE
  13
  14 ; unsigned int _muluchar (unsigned char x, unsigned char y)
  15 __muluchar::
  16
  17         mov     a, #0x00
  18         clear   p
  19
  20         inc     p   ; {p,a} = 0x0100
  21 0$:
  22         sl      a
  23         slc     p
  24         slc     _test_muluchar_PARM_1       ;   x <<= 1;
  25         t0sn.io f,c
  26         add     a, _test_muluchar_PARM_2    ;   result += y;
  27 3$:
  28         addc    p
  29         t1sn    _test_muluchar_PARM_1, #0
  30         goto    0$
  31 4$:
  32         ret
  33