git.gag.com Git - fw/sdcc/blob - device/lib/_muluint.lst

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:31 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _muluint
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl __muluint_PARM_2
  11                              11         .globl __muluint
  12                              12 ;--------------------------------------------------------
  13                              13 ; special function registers
  14                              14 ;--------------------------------------------------------
  15                              15 ;--------------------------------------------------------
  16                              16 ; special function bits
  17                              17 ;--------------------------------------------------------
  18                              18 ;--------------------------------------------------------
  19                              19 ; internal ram data
  20                              20 ;--------------------------------------------------------
  21                              21         .area   DSEG    (DATA)
  22                              22 ;--------------------------------------------------------
  23                              23 ; overlayable items in internal ram
  24                              24 ;--------------------------------------------------------
  25                              25         .area   OSEG    (OVR,DATA)
  26                              26 ;--------------------------------------------------------
  27                              27 ; indirectly addressable internal ram data
  28                              28 ;--------------------------------------------------------
  29                              29         .area   ISEG    (DATA)
  30                              30 ;--------------------------------------------------------
  31                              31 ; bit data
  32                              32 ;--------------------------------------------------------
  33                              33         .area   BSEG    (BIT)
  34                              34 ;--------------------------------------------------------
  35                              35 ; external ram data
  36                              36 ;--------------------------------------------------------
  37                              37         .area   XSEG    (XDATA)
  38    0000                      38 __muluint_PARM_2:
  39    0000                      39         .ds     0x0002
  40    0002                      40 __muluint_a_1_1:
  41    0002                      41         .ds     0x0002
  42    0004                      42 __muluint_t_1_1:
  43    0004                      43         .ds     0x0002
  44                              44 ;--------------------------------------------------------
  45                              45 ; global & static initialisations
  46                              46 ;--------------------------------------------------------
  47                              47         .area GSINIT (CODE)
  48                              48 ;--------------------------------------------------------
  49                              49 ; code
  50                              50 ;--------------------------------------------------------
  51                              51         .area CSEG (CODE)
  52                     0000     52         G$_muluint$0$0 ==.
  53                              53 ;       _muluint.c 32
  54                              54 ;       -----------------------------------------
  55                              55 ;        function _muluint
  56                              56 ;       -----------------------------------------
  57    0000                      57 __muluint:
  58                     0002     58         ar2 = 0x02
  59                     0003     59         ar3 = 0x03
  60                     0004     60         ar4 = 0x04
  61                     0005     61         ar5 = 0x05
  62                     0006     62         ar6 = 0x06
  63                     0007     63         ar7 = 0x07
  64                     0000     64         ar0 = 0x00
  65                     0001     65         ar1 = 0x01
  66                              66 ;       _muluint.c 51
  67    0000 C0 83                67         push    dph
  68    0002 C0 82                68         push    dpl
  69    0004 90s00r02             69         mov     dptr,#__muluint_a_1_1
  70    0007 D0 E0                70         pop     acc
  71    0009 F0                   71         movx    @dptr,a
  72    000A D0 E0                72         pop     acc
  73    000C A3                   73         inc     dptr
  74    000D F0                   74         movx    @dptr,a
  75                              75 ;       _muluint.c 38
  76                              76 ;       _muluint.c 39
  77                              77 ;       _muluint.c 48
  78    000E 90s00r02             78         mov     dptr,#(__muluint_a_1_1)
  79    0011 E0                   79         movx    a,@dptr
  80    0012 FA                   80         mov     r2,a
  81    0013 90s00r00             81         mov     dptr,#(__muluint_PARM_2)
  82    0016 E0                   82         movx    a,@dptr
  83    0017 FB                   83         mov     r3,a
  84    0018 8B F0                84         mov     b,r3
  85    001A EA                   85         mov     a,r2
  86    001B A4                   86         mul     ab
  87    001C FC                   87         mov     r4,a
  88    001D AD F0                88         mov     r5,b
  89    001F 90s00r04             89         mov     dptr,#(__muluint_t_1_1)
  90    0022 EC                   90         mov     a,r4
  91    0023 F0                   91         movx    @dptr,a
  92    0024 A3                   92         inc     dptr
  93    0025 ED                   93         mov     a,r5
  94    0026 F0                   94         movx    @dptr,a
  95                              95 ;       _muluint.c 49
  96    0027 90s00r05             96         mov     dptr,#(0x0001 + __muluint_t_1_1)
  97    002A E0                   97         movx    a,@dptr
  98    002B FC                   98         mov     r4,a
  99    002C 90s00r01             99         mov     dptr,#(0x0001 + __muluint_PARM_2)
 100    002F E0                  100         movx    a,@dptr
 101    0030 FD                  101         mov     r5,a
 102    0031 8D F0               102         mov     b,r5
 103    0033 EA                  103         mov     a,r2
 104    0034 A4                  104         mul     ab
 105    0035 FA                  105         mov     r2,a
 106    0036 90s00r03            106         mov     dptr,#(0x0001 + __muluint_a_1_1)
 107    0039 E0                  107         movx    a,@dptr
 108    003A FD                  108         mov     r5,a
 109    003B 8B F0               109         mov     b,r3
 110    003D ED                  110         mov     a,r5
 111    003E A4                  111         mul     ab
 112                             112 ; Peephole 105   removed redundant mov
 113    003F FB                  113         mov  r3,a
 114    0040 2A                  114         add     a,r2
 115    0041 2C                  115         add     a,r4
 116                             116 ; Peephole 100   removed redundant mov
 117    0042 FC                  117         mov  r4,a
 118    0043 90s00r05            118         mov  dptr,#(0x0001 + __muluint_t_1_1)
 119    0046 F0                  119         movx @dptr,a
 120                             120 ;       _muluint.c 51
 121    0047 90s00r04            121         mov     dptr,#(__muluint_t_1_1)
 122    004A E0                  122         movx    a,@dptr
 123    004B FA                  123         mov     r2,a
 124    004C A3                  124         inc     dptr
 125    004D E0                  125         movx    a,@dptr
 126    004E FB                  126         mov     r3,a
 127    004F 8A 82               127         mov     dpl,r2
 128    0051 8B 83               128         mov     dph,r3
 129    0053                     129 00101$:
 130                     0053    130         C$_muluint.c$52$1$1 ==.
 131                     0053    131         XG$_muluint$0$0 ==.
 132    0053 22                  132         ret
 133                             133         .area   CSEG    (CODE)