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

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:32 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _mululong
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl __mululong_PARM_2
  11                              11         .globl __mululong
  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 __mululong_PARM_2:
  39    0000                      39         .ds     0x0004
  40    0004                      40 __mululong_a_1_1:
  41    0004                      41         .ds     0x0004
  42    0008                      42 __mululong_t_1_1:
  43    0008                      43         .ds     0x0004
  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$_mululong$0$0 ==.
  53                              53 ;       _mululong.c 59
  54                              54 ;       -----------------------------------------
  55                              55 ;        function _mululong
  56                              56 ;       -----------------------------------------
  57    0000                      57 __mululong:
  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 ;       _mululong.c 86
  67    0000 C0 E0                67         push    acc
  68    0002 C0 F0                68         push    b
  69    0004 C0 83                69         push    dph
  70    0006 C0 82                70         push    dpl
  71    0008 90s00r04             71         mov     dptr,#__mululong_a_1_1
  72    000B D0 E0                72         pop     acc
  73    000D F0                   73         movx    @dptr,a
  74    000E D0 E0                74         pop     acc
  75    0010 A3                   75         inc     dptr
  76    0011 F0                   76         movx    @dptr,a
  77    0012 D0 E0                77         pop     acc
  78    0014 A3                   78         inc     dptr
  79    0015 F0                   79         movx    @dptr,a
  80    0016 D0 E0                80         pop     acc
  81    0018 A3                   81         inc     dptr
  82    0019 F0                   82         movx    @dptr,a
  83                              83 ;       _mululong.c 63
  84    001A 90s00r04             84         mov     dptr,#(__mululong_a_1_1)
  85    001D E0                   85         movx    a,@dptr
  86    001E FA                   86         mov     r2,a
  87    001F 90s00r02             87         mov     dptr,#(0x0002 + __mululong_PARM_2)
  88    0022 E0                   88         movx    a,@dptr
  89    0023 FB                   89         mov     r3,a
  90    0024 8B F0                90         mov     b,r3
  91    0026 EA                   91         mov     a,r2
  92    0027 A4                   92         mul     ab
  93    0028 FB                   93         mov     r3,a
  94    0029 AC F0                94         mov     r4,b
  95    002B 90s00r0A             95         mov     dptr,#(0x0002 + __mululong_t_1_1)
  96    002E EB                   96         mov     a,r3
  97    002F F0                   97         movx    @dptr,a
  98    0030 A3                   98         inc     dptr
  99    0031 EC                   99         mov     a,r4
 100    0032 F0                  100         movx    @dptr,a
 101                             101 ;       _mululong.c 64
 102    0033 90s00r00            102         mov     dptr,#(__mululong_PARM_2)
 103    0036 E0                  103         movx    a,@dptr
 104    0037 FB                  104         mov     r3,a
 105    0038 8B F0               105         mov     b,r3
 106    003A EA                  106         mov     a,r2
 107    003B A4                  107         mul     ab
 108    003C FC                  108         mov     r4,a
 109    003D AD F0               109         mov     r5,b
 110    003F 90s00r08            110         mov     dptr,#(__mululong_t_1_1)
 111    0042 EC                  111         mov     a,r4
 112    0043 F0                  112         movx    @dptr,a
 113    0044 A3                  113         inc     dptr
 114    0045 ED                  114         mov     a,r5
 115    0046 F0                  115         movx    @dptr,a
 116                             116 ;       _mululong.c 65
 117    0047 90s00r0B            117         mov     dptr,#(0x0003 + __mululong_t_1_1)
 118    004A E0                  118         movx    a,@dptr
 119    004B FC                  119         mov     r4,a
 120    004C 90s00r07            120         mov     dptr,#(0x0003 + __mululong_a_1_1)
 121    004F E0                  121         movx    a,@dptr
 122    0050 FD                  122         mov     r5,a
 123                             123 ;       _mululong.c 66
 124    0051 8B F0               124         mov     b,r3
 125    0053 ED                  125         mov     a,r5
 126    0054 A4                  126         mul     ab
 127                             127 ; Peephole 105   removed redundant mov
 128    0055 FD                  128         mov  r5,a
 129    0056 2C                  129         add     a,r4
 130                             130 ; Peephole 100   removed redundant mov
 131    0057 FC                  131         mov  r4,a
 132    0058 90s00r0B            132         mov  dptr,#(0x0003 + __mululong_t_1_1)
 133    005B F0                  133         movx @dptr,a
 134                             134 ;       _mululong.c 67
 135    005C 90s00r0B            135         mov     dptr,#(0x0003 + __mululong_t_1_1)
 136    005F E0                  136         movx    a,@dptr
 137    0060 FC                  137         mov     r4,a
 138    0061 90s00r06            138         mov     dptr,#(0x0002 + __mululong_a_1_1)
 139    0064 E0                  139         movx    a,@dptr
 140    0065 FD                  140         mov     r5,a
 141                             141 ;       _mululong.c 68
 142    0066 90s00r01            142         mov     dptr,#(0x0001 + __mululong_PARM_2)
 143    0069 E0                  143         movx    a,@dptr
 144    006A FE                  144         mov     r6,a
 145    006B 8E F0               145         mov     b,r6
 146    006D ED                  146         mov     a,r5
 147    006E A4                  147         mul     ab
 148                             148 ; Peephole 105   removed redundant mov
 149    006F FD                  149         mov  r5,a
 150    0070 2C                  150         add     a,r4
 151                             151 ; Peephole 100   removed redundant mov
 152    0071 FC                  152         mov  r4,a
 153    0072 90s00r0B            153         mov  dptr,#(0x0003 + __mululong_t_1_1)
 154    0075 F0                  154         movx @dptr,a
 155                             155 ;       _mululong.c 69
 156    0076 90s00r0A            156         mov     dptr,#(0x0002 + __mululong_t_1_1)
 157    0079 E0                  157         movx    a,@dptr
 158    007A FC                  158         mov     r4,a
 159    007B A3                  159         inc     dptr
 160    007C E0                  160         movx    a,@dptr
 161    007D FD                  161         mov     r5,a
 162    007E 90s00r06            162         mov     dptr,#(0x0002 + __mululong_a_1_1)
 163    0081 E0                  163         movx    a,@dptr
 164    0082 FE                  164         mov     r6,a
 165    0083 8B F0               165         mov     b,r3
 166    0085 EE                  166         mov     a,r6
 167    0086 A4                  167         mul     ab
 168    0087 FE                  168         mov     r6,a
 169    0088 AF F0               169         mov     r7,b
 170    008A EE                  170         mov     a,r6
 171    008B 2C                  171         add     a,r4
 172    008C FC                  172         mov     r4,a
 173    008D EF                  173         mov     a,r7
 174    008E 3D                  174         addc    a,r5
 175    008F FD                  175         mov     r5,a
 176    0090 90s00r0A            176         mov     dptr,#(0x0002 + __mululong_t_1_1)
 177    0093 EC                  177         mov     a,r4
 178    0094 F0                  178         movx    @dptr,a
 179    0095 A3                  179         inc     dptr
 180    0096 ED                  180         mov     a,r5
 181    0097 F0                  181         movx    @dptr,a
 182                             182 ;       _mululong.c 71
 183    0098 90s00r0A            183         mov     dptr,#(0x0002 + __mululong_t_1_1)
 184    009B E0                  184         movx    a,@dptr
 185    009C FC                  185         mov     r4,a
 186    009D A3                  186         inc     dptr
 187    009E E0                  187         movx    a,@dptr
 188    009F FD                  188         mov     r5,a
 189    00A0 90s00r05            189         mov     dptr,#(0x0001 + __mululong_a_1_1)
 190    00A3 E0                  190         movx    a,@dptr
 191    00A4 FE                  191         mov     r6,a
 192    00A5 90s00r01            192         mov     dptr,#(0x0001 + __mululong_PARM_2)
 193    00A8 E0                  193         movx    a,@dptr
 194    00A9 FF                  194         mov     r7,a
 195    00AA 8F F0               195         mov     b,r7
 196    00AC EE                  196         mov     a,r6
 197    00AD A4                  197         mul     ab
 198    00AE FF                  198         mov     r7,a
 199    00AF AE F0               199         mov     r6,b
 200    00B1 EF                  200         mov     a,r7
 201    00B2 2C                  201         add     a,r4
 202    00B3 FC                  202         mov     r4,a
 203    00B4 EE                  203         mov     a,r6
 204    00B5 3D                  204         addc    a,r5
 205    00B6 FD                  205         mov     r5,a
 206    00B7 90s00r0A            206         mov     dptr,#(0x0002 + __mululong_t_1_1)
 207    00BA EC                  207         mov     a,r4
 208    00BB F0                  208         movx    @dptr,a
 209    00BC A3                  209         inc     dptr
 210    00BD ED                  210         mov     a,r5
 211    00BE F0                  211         movx    @dptr,a
 212                             212 ;       _mululong.c 73
 213    00BF 90s00r05            213         mov     dptr,#(0x0001 + __mululong_a_1_1)
 214    00C2 E0                  214         movx    a,@dptr
 215    00C3 FC                  215         mov     r4,a
 216                             216 ;       _mululong.c 74
 217    00C4 90s00r02            217         mov     dptr,#(0x0002 + __mululong_PARM_2)
 218    00C7 E0                  218         movx    a,@dptr
 219    00C8 FD                  219         mov     r5,a
 220    00C9 8D F0               220         mov     b,r5
 221    00CB EC                  221         mov     a,r4
 222    00CC A4                  222         mul     ab
 223                             223 ; Peephole 100   removed redundant mov
 224    00CD FC                  224         mov  r4,a
 225    00CE 90s00r07            225         mov  dptr,#(0x0003 + __mululong_a_1_1)
 226    00D1 F0                  226         movx @dptr,a
 227                             227 ;       _mululong.c 75
 228    00D2 90s00r05            228         mov     dptr,#(0x0001 + __mululong_a_1_1)
 229    00D5 E0                  229         movx    a,@dptr
 230    00D6 FC                  230         mov     r4,a
 231                             231 ;       _mululong.c 76
 232    00D7 8B F0               232         mov     b,r3
 233    00D9 EC                  233         mov     a,r4
 234    00DA A4                  234         mul     ab
 235    00DB FB                  235         mov     r3,a
 236    00DC AD F0               236         mov     r5,b
 237    00DE 90s00r05            237         mov     dptr,#(0x0001 + __mululong_a_1_1)
 238    00E1 EB                  238         mov     a,r3
 239    00E2 F0                  239         movx    @dptr,a
 240    00E3 A3                  240         inc     dptr
 241    00E4 ED                  241         mov     a,r5
 242    00E5 F0                  242         movx    @dptr,a
 243                             243 ;       _mululong.c 78
 244                             244 ;       _mululong.c 79
 245    00E6 90s00r03            245         mov     dptr,#(0x0003 + __mululong_PARM_2)
 246    00E9 E0                  246         movx    a,@dptr
 247    00EA FB                  247         mov     r3,a
 248    00EB 8B F0               248         mov     b,r3
 249    00ED EA                  249         mov     a,r2
 250    00EE A4                  250         mul     ab
 251                             251 ; Peephole 100   removed redundant mov
 252    00EF FB                  252         mov  r3,a
 253    00F0 90s00r03            253         mov  dptr,#(0x0003 + __mululong_PARM_2)
 254    00F3 F0                  254         movx @dptr,a
 255                             255 ;       _mululong.c 81
 256    00F4 90s00r01            256         mov     dptr,#(0x0001 + __mululong_PARM_2)
 257    00F7 E0                  257         movx    a,@dptr
 258    00F8 FB                  258         mov     r3,a
 259    00F9 8B F0               259         mov     b,r3
 260    00FB EA                  260         mov     a,r2
 261    00FC A4                  261         mul     ab
 262    00FD FA                  262         mov     r2,a
 263    00FE AC F0               263         mov     r4,b
 264    0100 90s00r01            264         mov     dptr,#(0x0001 + __mululong_PARM_2)
 265    0103 EA                  265         mov     a,r2
 266    0104 F0                  266         movx    @dptr,a
 267    0105 A3                  267         inc     dptr
 268    0106 EC                  268         mov     a,r4
 269    0107 F0                  269         movx    @dptr,a
 270                             270 ;       _mululong.c 82
 271    0108 90s00r00            271         mov     dptr,#(__mululong_PARM_2)
 272                             272 ; Peephole 180   changed mov to clr
 273    010B E4                  273         clr  a
 274    010C F0                  274         movx    @dptr,a
 275                             275 ;       _mululong.c 83
 276    010D 90s00r04            276         mov     dptr,#(__mululong_a_1_1)
 277                             277 ; Peephole 180   changed mov to clr
 278    0110 E4                  278         clr  a
 279    0111 F0                  279         movx    @dptr,a
 280                             280 ;       _mululong.c 84
 281    0112 90s00r08            281         mov     dptr,#(__mululong_t_1_1)
 282    0115 E0                  282         movx    a,@dptr
 283    0116 FA                  283         mov     r2,a
 284    0117 A3                  284         inc     dptr
 285    0118 E0                  285         movx    a,@dptr
 286    0119 FB                  286         mov     r3,a
 287    011A A3                  287         inc     dptr
 288    011B E0                  288         movx    a,@dptr
 289    011C FC                  289         mov     r4,a
 290    011D A3                  290         inc     dptr
 291    011E E0                  291         movx    a,@dptr
 292    011F FD                  292         mov     r5,a
 293    0120 90s00r04            293         mov     dptr,#__mululong_a_1_1
 294    0123 E0                  294         movx    a,@dptr
 295    0124 FE                  295         mov     r6,a
 296    0125 A3                  296         inc     dptr
 297    0126 E0                  297         movx    a,@dptr
 298    0127 FF                  298         mov     r7,a
 299    0128 A3                  299         inc     dptr
 300    0129 E0                  300         movx    a,@dptr
 301    012A F8                  301         mov     r0,a
 302    012B A3                  302         inc     dptr
 303    012C E0                  303         movx    a,@dptr
 304    012D F9                  304         mov     r1,a
 305    012E EE                  305         mov     a,r6
 306    012F 2A                  306         add     a,r2
 307    0130 FA                  307         mov     r2,a
 308    0131 EF                  308         mov     a,r7
 309    0132 3B                  309         addc    a,r3
 310    0133 FB                  310         mov     r3,a
 311    0134 E8                  311         mov     a,r0
 312    0135 3C                  312         addc    a,r4
 313    0136 FC                  313         mov     r4,a
 314    0137 E9                  314         mov     a,r1
 315    0138 3D                  315         addc    a,r5
 316    0139 FD                  316         mov     r5,a
 317    013A 90s00r08            317         mov     dptr,#(__mululong_t_1_1)
 318    013D EA                  318         mov     a,r2
 319    013E F0                  319         movx    @dptr,a
 320    013F A3                  320         inc     dptr
 321    0140 EB                  321         mov     a,r3
 322    0141 F0                  322         movx    @dptr,a
 323    0142 A3                  323         inc     dptr
 324    0143 EC                  324         mov     a,r4
 325    0144 F0                  325         movx    @dptr,a
 326    0145 A3                  326         inc     dptr
 327    0146 ED                  327         mov     a,r5
 328    0147 F0                  328         movx    @dptr,a
 329                             329 ;       _mululong.c 86
 330    0148 90s00r00            330         mov     dptr,#__mululong_PARM_2
 331    014B E0                  331         movx    a,@dptr
 332    014C FE                  332         mov     r6,a
 333    014D A3                  333         inc     dptr
 334    014E E0                  334         movx    a,@dptr
 335    014F FF                  335         mov     r7,a
 336    0150 A3                  336         inc     dptr
 337    0151 E0                  337         movx    a,@dptr
 338    0152 F8                  338         mov     r0,a
 339    0153 A3                  339         inc     dptr
 340    0154 E0                  340         movx    a,@dptr
 341    0155 F9                  341         mov     r1,a
 342    0156 EE                  342         mov     a,r6
 343    0157 2A                  343         add     a,r2
 344    0158 FA                  344         mov     r2,a
 345    0159 EF                  345         mov     a,r7
 346    015A 3B                  346         addc    a,r3
 347    015B FB                  347         mov     r3,a
 348    015C E8                  348         mov     a,r0
 349    015D 3C                  349         addc    a,r4
 350    015E FC                  350         mov     r4,a
 351    015F E9                  351         mov     a,r1
 352    0160 3D                  352         addc    a,r5
 353                             353 ; Peephole 191   removed redundant mov
 354    0161 FD                  354         mov  r5,a
 355    0162 8A 82               355         mov  dpl,r2
 356    0164 8B 83               356         mov  dph,r3
 357    0166 8C F0               357         mov  b,r4
 358    0168                     358 00101$:
 359                     0168    359         C$_mululong.c$87$1$1 ==.
 360                     0168    360         XG$_mululong$0$0 ==.
 361    0168 22                  361         ret
 362                             362         .area   CSEG    (CODE)