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

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:22 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _atol
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl _atol
  11                              11 ;--------------------------------------------------------
  12                              12 ; special function registers
  13                              13 ;--------------------------------------------------------
  14                              14 ;--------------------------------------------------------
  15                              15 ; special function bits
  16                              16 ;--------------------------------------------------------
  17                              17 ;--------------------------------------------------------
  18                              18 ; internal ram data
  19                              19 ;--------------------------------------------------------
  20                              20         .area   DSEG    (DATA)
  21    0000                      21 _atol_sloc0_1_0:
  22    0000                      22         .ds     0x0004
  23                              23 ;--------------------------------------------------------
  24                              24 ; overlayable items in internal ram
  25                              25 ;--------------------------------------------------------
  26                              26         .area   OSEG    (OVR,DATA)
  27                              27 ;--------------------------------------------------------
  28                              28 ; indirectly addressable internal ram data
  29                              29 ;--------------------------------------------------------
  30                              30         .area   ISEG    (DATA)
  31                              31 ;--------------------------------------------------------
  32                              32 ; bit data
  33                              33 ;--------------------------------------------------------
  34                              34         .area   BSEG    (BIT)
  35                              35 ;--------------------------------------------------------
  36                              36 ; external ram data
  37                              37 ;--------------------------------------------------------
  38                              38         .area   XSEG    (XDATA)
  39    0000                      39 _atol_s_1_1:
  40    0000                      40         .ds     0x0003
  41    0003                      41 _atol_rv_1_1:
  42    0003                      42         .ds     0x0004
  43                              43 ;--------------------------------------------------------
  44                              44 ; global & static initialisations
  45                              45 ;--------------------------------------------------------
  46                              46         .area GSINIT (CODE)
  47                              47 ;--------------------------------------------------------
  48                              48 ; code
  49                              49 ;--------------------------------------------------------
  50                              50         .area CSEG (CODE)
  51                     0000     51         G$atol$0$0 ==.
  52                              52 ;       _atol.c 25
  53                              53 ;       -----------------------------------------
  54                              54 ;        function atol
  55                              55 ;       -----------------------------------------
  56    0000                      56 _atol:
  57                     0002     57         ar2 = 0x02
  58                     0003     58         ar3 = 0x03
  59                     0004     59         ar4 = 0x04
  60                     0005     60         ar5 = 0x05
  61                     0006     61         ar6 = 0x06
  62                     0007     62         ar7 = 0x07
  63                     0000     63         ar0 = 0x00
  64                     0001     64         ar1 = 0x01
  65                              65 ;       _atol.c 0
  66    0000 C0 F0                66         push    b
  67    0002 C0 83                67         push    dph
  68    0004 C0 82                68         push    dpl
  69    0006 90s00r00             69         mov     dptr,#_atol_s_1_1
  70    0009 D0 E0                70         pop     acc
  71    000B F0                   71         movx    @dptr,a
  72    000C D0 E0                72         pop     acc
  73    000E A3                   73         inc     dptr
  74    000F F0                   74         movx    @dptr,a
  75    0010 D0 E0                75         pop     acc
  76    0012 A3                   76         inc     dptr
  77    0013 F0                   77         movx    @dptr,a
  78                              78 ;       _atol.c 27
  79    0014 90s00r03             79         mov     dptr,#_atol_rv_1_1
  80    0017 E4                   80         clr     a
  81    0018 A3                   81         inc     dptr
  82    0019 A3                   82         inc     dptr
  83    001A A3                   83         inc     dptr
  84    001B F0                   84         movx    @dptr,a
  85    001C 12s00r00             85         lcall   __decdptr
  86    001F F0                   86         movx    @dptr,a
  87    0020 12s00r00             87         lcall   __decdptr
  88    0023 F0                   88         movx    @dptr,a
  89    0024 12s00r00             89         lcall   __decdptr
  90    0027 F0                   90         movx    @dptr,a
  91                              91 ;       _atol.c 31
  92    0028 90s00r00             92         mov     dptr,#_atol_s_1_1
  93    002B E0                   93         movx    a,@dptr
  94    002C FA                   94         mov     r2,a
  95    002D A3                   95         inc     dptr
  96    002E E0                   96         movx    a,@dptr
  97    002F FB                   97         mov     r3,a
  98    0030 A3                   98         inc     dptr
  99    0031 E0                   99         movx    a,@dptr
 100    0032 FC                  100         mov     r4,a
 101    0033                     101 00107$:
 102    0033 8A 82               102         mov     dpl,r2
 103    0035 8B 83               103         mov     dph,r3
 104    0037 8C F0               104         mov     b,r4
 105    0039 12s00r00            105         lcall   __gptrget
 106                             106 ; Peephole 105   removed redundant mov
 107    003C FD                  107         mov  r5,a
 108                             108 ; Peephole 110   removed ljmp by inverse jump logic
 109    003D 60 30               109         jz  00109$
 110    003F                     110 00133$:
 111                             111 ;       _atol.c 32
 112    003F C3                  112         clr     c
 113                             113 ; Peephole 159   avoided xrl during execution
 114    0040 74 B9               114         mov  a,#(0x39 ^ 0x80)
 115    0042 8D F0               115         mov     b,r5
 116    0044 63 F0 80            116         xrl     b,#0x80
 117    0047 95 F0               117         subb    a,b
 118                             118 ; Peephole 132   changed ljmp to sjmp
 119                             119 ; Peephole 160   removed sjmp by inverse jump logic
 120    0049 40 08               120         jc   00102$
 121    004B                     121 00134$:
 122    004B C3                  122         clr     c
 123    004C ED                  123         mov     a,r5
 124    004D 64 80               124         xrl     a,#0x80
 125    004F 94 B0               125         subb    a,#0xb0
 126                             126 ; Peephole 108   removed ljmp by inverse jump logic
 127    0051 50 1C               127         jnc  00109$
 128    0053                     128 00135$:
 129                             129 ;       _atol.c 33
 130    0053                     130 00102$:
 131                             131 ;       _atol.c 34
 132    0053 BD 2D 02            132         cjne    r5,#0x2d,00136$
 133                             133 ; Peephole 132   changed ljmp to sjmp
 134    0056 80 17               134         sjmp 00109$
 135    0058                     135 00136$:
 136    0058 BD 2B 02            136         cjne    r5,#0x2b,00137$
 137                             137 ; Peephole 132   changed ljmp to sjmp
 138    005B 80 12               138         sjmp 00109$
 139    005D                     139 00137$:
 140                             140 ;       _atol.c 36
 141    005D 0A                  141         inc     r2
 142    005E BA 00 01            142         cjne    r2,#0x00,00138$
 143    0061 0B                  143         inc     r3
 144    0062                     144 00138$:
 145    0062 90s00r00            145         mov     dptr,#_atol_s_1_1
 146    0065 EA                  146         mov     a,r2
 147    0066 F0                  147         movx    @dptr,a
 148    0067 A3                  148         inc     dptr
 149    0068 EB                  149         mov     a,r3
 150    0069 F0                  150         movx    @dptr,a
 151    006A A3                  151         inc     dptr
 152    006B EC                  152         mov     a,r4
 153    006C F0                  153         movx    @dptr,a
 154                             154 ; Peephole 132   changed ljmp to sjmp
 155    006D 80 C4               155         sjmp 00107$
 156    006F                     156 00109$:
 157                             157 ;       _atol.c 39
 158    006F 90s00r00            158         mov     dptr,#_atol_s_1_1
 159    0072 EA                  159         mov     a,r2
 160    0073 F0                  160         movx    @dptr,a
 161    0074 A3                  161         inc     dptr
 162    0075 EB                  162         mov     a,r3
 163    0076 F0                  163         movx    @dptr,a
 164    0077 A3                  164         inc     dptr
 165    0078 EC                  165         mov     a,r4
 166    0079 F0                  166         movx    @dptr,a
 167    007A 8A 82               167         mov     dpl,r2
 168    007C 8B 83               168         mov     dph,r3
 169    007E 8C F0               169         mov     b,r4
 170    0080 12s00r00            170         lcall   __gptrget
 171    0083 FD                  171         mov     r5,a
 172    0084 BD 2D 04            172         cjne    r5,#0x2d,00139$
 173    0087 74 01               173         mov     a,#0x01
 174    0089 80 01               174         sjmp    00140$
 175    008B                     175 00139$:
 176    008B E4                  176         clr     a
 177    008C                     177 00140$:
 178                             178 ;       _atol.c 40
 179                             179 ; Peephole 105   removed redundant mov
 180    008C FE                  180         mov  r6,a
 181                             181 ; Peephole 109   removed ljmp by inverse jump logic
 182    008D 70 03               182         jnz  00110$
 183    008F                     183 00141$:
 184                             184 ; Peephole 132   changed ljmp to sjmp
 185                             185 ; Peephole 199   optimized misc jump sequence
 186    008F BD 2B 0E            186         cjne r5,#0x2b,00131$
 187                             187 ; Peephole 201   removed redundant sjmp
 188    0092                     188 00142$:
 189    0092                     189 00143$:
 190    0092                     190 00110$:
 191    0092 90s00r00            191         mov     dptr,#_atol_s_1_1
 192    0095 74 01               192         mov     a,#0x01
 193    0097 2A                  193         add     a,r2
 194    0098 F0                  194         movx    @dptr,a
 195                             195 ; Peephole 180   changed mov to clr
 196    0099 E4                  196         clr  a
 197    009A 3B                  197         addc    a,r3
 198    009B A3                  198         inc     dptr
 199    009C F0                  199         movx    @dptr,a
 200    009D A3                  200         inc     dptr
 201    009E EC                  201         mov     a,r4
 202    009F F0                  202         movx    @dptr,a
 203                             203 ;       _atol.c 42
 204    00A0                     204 00131$:
 205    00A0 90s00r00            205         mov     dptr,#_atol_s_1_1
 206    00A3 E0                  206         movx    a,@dptr
 207    00A4 FA                  207         mov     r2,a
 208    00A5 A3                  208         inc     dptr
 209    00A6 E0                  209         movx    a,@dptr
 210    00A7 FB                  210         mov     r3,a
 211    00A8 A3                  211         inc     dptr
 212    00A9 E0                  212         movx    a,@dptr
 213    00AA FC                  213         mov     r4,a
 214    00AB                     214 00115$:
 215    00AB 8A 82               215         mov     dpl,r2
 216    00AD 8B 83               216         mov     dph,r3
 217    00AF 8C F0               217         mov     b,r4
 218    00B1 12s00r00            218         lcall   __gptrget
 219                             219 ; Peephole 105   removed redundant mov
 220    00B4 FD                  220         mov  r5,a
 221    00B5 70 03               221         jnz     00144$
 222    00B7 02s01r5E            222         ljmp    00117$
 223    00BA                     223 00144$:
 224    00BA C3                  224         clr     c
 225    00BB ED                  225         mov     a,r5
 226    00BC 64 80               226         xrl     a,#0x80
 227    00BE 94 B0               227         subb    a,#0xb0
 228    00C0 50 03               228         jnc     00145$
 229    00C2 02s01r5E            229         ljmp    00117$
 230    00C5                     230 00145$:
 231    00C5 C3                  231         clr     c
 232                             232 ; Peephole 159   avoided xrl during execution
 233    00C6 74 B9               233         mov  a,#(0x39 ^ 0x80)
 234    00C8 8D F0               234         mov     b,r5
 235    00CA 63 F0 80            235         xrl     b,#0x80
 236    00CD 95 F0               236         subb    a,b
 237    00CF 50 03               237         jnc     00146$
 238    00D1 02s01r5E            238         ljmp    00117$
 239    00D4                     239 00146$:
 240                             240 ;       _atol.c 43
 241    00D4 C0 06               241         push    ar6
 242    00D6 90s00r03            242         mov     dptr,#_atol_rv_1_1
 243    00D9 E0                  243         movx    a,@dptr
 244    00DA FF                  244         mov     r7,a
 245    00DB A3                  245         inc     dptr
 246    00DC E0                  246         movx    a,@dptr
 247    00DD F8                  247         mov     r0,a
 248    00DE A3                  248         inc     dptr
 249    00DF E0                  249         movx    a,@dptr
 250    00E0 F9                  250         mov     r1,a
 251    00E1 A3                  251         inc     dptr
 252    00E2 E0                  252         movx    a,@dptr
 253    00E3 FE                  253         mov     r6,a
 254    00E4 90s00r00            254         mov     dptr,#__mulslong_PARM_2
 255    00E7 E4                  255         clr     a
 256    00E8 A3                  256         inc     dptr
 257    00E9 A3                  257         inc     dptr
 258    00EA A3                  258         inc     dptr
 259    00EB F0                  259         movx    @dptr,a
 260    00EC 12s00r00            260         lcall   __decdptr
 261    00EF F0                  261         movx    @dptr,a
 262    00F0 12s00r00            262         lcall   __decdptr
 263    00F3 F0                  263         movx    @dptr,a
 264    00F4 12s00r00            264         lcall   __decdptr
 265    00F7 74 0A               265         mov     a,#0x0a
 266    00F9 F0                  266         movx    @dptr,a
 267    00FA C0 02               267         push    ar2
 268    00FC C0 03               268         push    ar3
 269    00FE C0 04               269         push    ar4
 270    0100 C0 05               270         push    ar5
 271    0102 C0 06               271         push    ar6
 272    0104 8F 82               272         mov     dpl,r7
 273    0106 88 83               273         mov     dph,r0
 274    0108 89 F0               274         mov     b,r1
 275    010A EE                  275         mov     a,r6
 276    010B 12s00r00            276         lcall   __mulslong
 277    010E 85 82*00            277         mov     _atol_sloc0_1_0,dpl
 278    0111 85 83*01            278         mov     (_atol_sloc0_1_0 + 1),dph
 279    0114 85 F0*02            279         mov     (_atol_sloc0_1_0 + 2),b
 280    0117 F5*03               280         mov     (_atol_sloc0_1_0 + 3),a
 281    0119 D0 06               281         pop     ar6
 282    011B D0 05               282         pop     ar5
 283    011D D0 04               283         pop     ar4
 284    011F D0 03               284         pop     ar3
 285    0121 D0 02               285         pop     ar2
 286    0123 ED                  286         mov     a,r5
 287    0124 24 D0               287         add     a,#0xd0
 288    0126 FD                  288         mov     r5,a
 289                             289 ; Peephole 180   changed mov to clr
 290    0127 E4                  290         clr  a
 291    0128 34 FF               291         addc    a,#0xff
 292    012A FE                  292         mov     r6,a
 293                             293 ; Peephole 180   changed mov to clr
 294    012B E4                  294         clr  a
 295    012C 34 FF               295         addc    a,#0xff
 296    012E FF                  296         mov     r7,a
 297                             297 ; Peephole 180   changed mov to clr
 298    012F E4                  298         clr  a
 299    0130 34 FF               299         addc    a,#0xff
 300    0132 F8                  300         mov     r0,a
 301    0133 90s00r03            301         mov     dptr,#_atol_rv_1_1
 302    0136 ED                  302         mov     a,r5
 303    0137 25*00               303         add     a,_atol_sloc0_1_0
 304    0139 F0                  304         movx    @dptr,a
 305    013A EE                  305         mov     a,r6
 306    013B 35*01               306         addc    a,(_atol_sloc0_1_0 + 1)
 307    013D A3                  307         inc     dptr
 308    013E F0                  308         movx    @dptr,a
 309    013F EF                  309         mov     a,r7
 310    0140 35*02               310         addc    a,(_atol_sloc0_1_0 + 2)
 311    0142 A3                  311         inc     dptr
 312    0143 F0                  312         movx    @dptr,a
 313    0144 E8                  313         mov     a,r0
 314    0145 35*03               314         addc    a,(_atol_sloc0_1_0 + 3)
 315    0147 A3                  315         inc     dptr
 316    0148 F0                  316         movx    @dptr,a
 317                             317 ;       _atol.c 44
 318    0149 0A                  318         inc     r2
 319    014A BA 00 01            319         cjne    r2,#0x00,00147$
 320    014D 0B                  320         inc     r3
 321    014E                     321 00147$:
 322    014E 90s00r00            322         mov     dptr,#_atol_s_1_1
 323    0151 EA                  323         mov     a,r2
 324    0152 F0                  324         movx    @dptr,a
 325    0153 A3                  325         inc     dptr
 326    0154 EB                  326         mov     a,r3
 327    0155 F0                  327         movx    @dptr,a
 328    0156 A3                  328         inc     dptr
 329    0157 EC                  329         mov     a,r4
 330    0158 F0                  330         movx    @dptr,a
 331    0159 D0 06               331         pop     ar6
 332    015B 02s00rAB            332         ljmp    00115$
 333    015E                     333 00117$:
 334                             334 ;       _atol.c 47
 335    015E 90s00r00            335         mov     dptr,#_atol_s_1_1
 336    0161 EA                  336         mov     a,r2
 337    0162 F0                  337         movx    @dptr,a
 338    0163 A3                  338         inc     dptr
 339    0164 EB                  339         mov     a,r3
 340    0165 F0                  340         movx    @dptr,a
 341    0166 A3                  341         inc     dptr
 342    0167 EC                  342         mov     a,r4
 343    0168 F0                  343         movx    @dptr,a
 344    0169 EE                  344         mov     a,r6
 345                             345 ; Peephole 110   removed ljmp by inverse jump logic
 346    016A 60 1D               346         jz  00120$
 347    016C                     347 00148$:
 348    016C 90s00r03            348         mov     dptr,#_atol_rv_1_1
 349    016F E0                  349         movx    a,@dptr
 350    0170 FA                  350         mov     r2,a
 351    0171 A3                  351         inc     dptr
 352    0172 E0                  352         movx    a,@dptr
 353    0173 FB                  353         mov     r3,a
 354    0174 A3                  354         inc     dptr
 355    0175 E0                  355         movx    a,@dptr
 356    0176 FC                  356         mov     r4,a
 357    0177 A3                  357         inc     dptr
 358    0178 E0                  358         movx    a,@dptr
 359    0179 FD                  359         mov     r5,a
 360    017A C3                  360         clr     c
 361    017B E4                  361         clr     a
 362    017C 9A                  362         subb    a,r2
 363    017D FA                  363         mov     r2,a
 364    017E E4                  364         clr     a
 365    017F 9B                  365         subb    a,r3
 366    0180 FB                  366         mov     r3,a
 367    0181 E4                  367         clr     a
 368    0182 9C                  368         subb    a,r4
 369    0183 FC                  369         mov     r4,a
 370    0184 E4                  370         clr     a
 371    0185 9D                  371         subb    a,r5
 372    0186 FD                  372         mov     r5,a
 373                             373 ; Peephole 132   changed ljmp to sjmp
 374    0187 80 0E               374         sjmp 00121$
 375    0189                     375 00120$:
 376    0189 90s00r03            376         mov     dptr,#_atol_rv_1_1
 377    018C E0                  377         movx    a,@dptr
 378    018D FA                  378         mov     r2,a
 379    018E A3                  379         inc     dptr
 380    018F E0                  380         movx    a,@dptr
 381    0190 FB                  381         mov     r3,a
 382    0191 A3                  382         inc     dptr
 383    0192 E0                  383         movx    a,@dptr
 384    0193 FC                  384         mov     r4,a
 385    0194 A3                  385         inc     dptr
 386    0195 E0                  386         movx    a,@dptr
 387    0196 FD                  387         mov     r5,a
 388    0197                     388 00121$:
 389    0197 8A 82               389         mov     dpl,r2
 390    0199 8B 83               390         mov     dph,r3
 391    019B 8C F0               391         mov     b,r4
 392    019D ED                  392         mov     a,r5
 393    019E                     393 00118$:
 394                     019E    394         C$_atol.c$48$1$1 ==.
 395                     019E    395         XG$atol$0$0 ==.
 396    019E 22                  396         ret
 397                             397         .area   CSEG    (CODE)