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

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:24 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _fs2uint
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl ___fs2uint
  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 ___fs2uint_sloc0_1_0:
  22    0000                      22         .ds     0x0004
  23    0004                      23 ___fs2uint_sloc1_1_0:
  24    0004                      24         .ds     0x0004
  25                              25 ;--------------------------------------------------------
  26                              26 ; overlayable items in internal ram
  27                              27 ;--------------------------------------------------------
  28                              28         .area   OSEG    (OVR,DATA)
  29                              29 ;--------------------------------------------------------
  30                              30 ; indirectly addressable internal ram data
  31                              31 ;--------------------------------------------------------
  32                              32         .area   ISEG    (DATA)
  33                              33 ;--------------------------------------------------------
  34                              34 ; bit data
  35                              35 ;--------------------------------------------------------
  36                              36         .area   BSEG    (BIT)
  37                              37 ;--------------------------------------------------------
  38                              38 ; external ram data
  39                              39 ;--------------------------------------------------------
  40                              40         .area   XSEG    (XDATA)
  41    0000                      41 ___fs2uint_a1_1_1:
  42    0000                      42         .ds     0x0004
  43    0004                      43 ___fs2uint_fl1_1_1:
  44    0004                      44         .ds     0x0004
  45    0008                      45 ___fs2uint_exp_1_1:
  46    0008                      46         .ds     0x0002
  47    000A                      47 ___fs2uint_l_1_1:
  48    000A                      48         .ds     0x0004
  49                              49 ;--------------------------------------------------------
  50                              50 ; global & static initialisations
  51                              51 ;--------------------------------------------------------
  52                              52         .area GSINIT (CODE)
  53                              53 ;--------------------------------------------------------
  54                              54 ; code
  55                              55 ;--------------------------------------------------------
  56                              56         .area CSEG (CODE)
  57                     0000     57         G$__fs2uint$0$0 ==.
  58                              58 ;       _fs2uint.c 73
  59                              59 ;       -----------------------------------------
  60                              60 ;        function __fs2uint
  61                              61 ;       -----------------------------------------
  62    0000                      62 ___fs2uint:
  63                     0002     63         ar2 = 0x02
  64                     0003     64         ar3 = 0x03
  65                     0004     65         ar4 = 0x04
  66                     0005     66         ar5 = 0x05
  67                     0006     67         ar6 = 0x06
  68                     0007     68         ar7 = 0x07
  69                     0000     69         ar0 = 0x00
  70                     0001     70         ar1 = 0x01
  71                              71 ;       _fs2uint.c 0
  72    0000 C0 E0                72         push    acc
  73    0002 C0 F0                73         push    b
  74    0004 C0 83                74         push    dph
  75    0006 C0 82                75         push    dpl
  76    0008 90s00r00             76         mov     dptr,#___fs2uint_a1_1_1
  77    000B D0 E0                77         pop     acc
  78    000D F0                   78         movx    @dptr,a
  79    000E D0 E0                79         pop     acc
  80    0010 A3                   80         inc     dptr
  81    0011 F0                   81         movx    @dptr,a
  82    0012 D0 E0                82         pop     acc
  83    0014 A3                   83         inc     dptr
  84    0015 F0                   84         movx    @dptr,a
  85    0016 D0 E0                85         pop     acc
  86    0018 A3                   86         inc     dptr
  87    0019 F0                   87         movx    @dptr,a
  88                              88 ;       _fs2uint.c 79
  89    001A 90s00r00             89         mov     dptr,#___fs2uint_a1_1_1
  90    001D E0                   90         movx    a,@dptr
  91    001E FA                   91         mov     r2,a
  92    001F A3                   92         inc     dptr
  93    0020 E0                   93         movx    a,@dptr
  94    0021 FB                   94         mov     r3,a
  95    0022 A3                   95         inc     dptr
  96    0023 E0                   96         movx    a,@dptr
  97    0024 FC                   97         mov     r4,a
  98    0025 A3                   98         inc     dptr
  99    0026 E0                   99         movx    a,@dptr
 100    0027 FD                  100         mov     r5,a
 101    0028 90s00r04            101         mov     dptr,#(___fs2uint_fl1_1_1)
 102    002B EA                  102         mov     a,r2
 103    002C F0                  103         movx    @dptr,a
 104    002D A3                  104         inc     dptr
 105    002E EB                  105         mov     a,r3
 106    002F F0                  106         movx    @dptr,a
 107    0030 A3                  107         inc     dptr
 108    0031 EC                  108         mov     a,r4
 109    0032 F0                  109         movx    @dptr,a
 110    0033 A3                  110         inc     dptr
 111    0034 ED                  111         mov     a,r5
 112    0035 F0                  112         movx    @dptr,a
 113                             113 ;       _fs2uint.c 81
 114    0036 90s00r04            114         mov     dptr,#(___fs2uint_fl1_1_1)
 115    0039 E0                  115         movx    a,@dptr
 116    003A FA                  116         mov     r2,a
 117    003B A3                  117         inc     dptr
 118    003C E0                  118         movx    a,@dptr
 119    003D FB                  119         mov     r3,a
 120    003E A3                  120         inc     dptr
 121    003F E0                  121         movx    a,@dptr
 122    0040 FC                  122         mov     r4,a
 123    0041 A3                  123         inc     dptr
 124    0042 E0                  124         movx    a,@dptr
 125    0043 FD                  125         mov     r5,a
 126    0044 EA                  126         mov     a,r2
 127    0045 4B                  127         orl     a,r3
 128    0046 4C                  128         orl     a,r4
 129    0047 4D                  129         orl     a,r5
 130                             130 ; Peephole 109   removed ljmp by inverse jump logic
 131    0048 70 06               131         jnz  00102$
 132    004A                     132 00120$:
 133                             133 ;       _fs2uint.c 82
 134                             134 ; Peephole 181   used 16 bit load of dptr
 135    004A 90 00 00            135         mov  dptr,#0x0000
 136    004D 02s01rE4            136         ljmp    00110$
 137    0050                     137 00102$:
 138                             138 ;       _fs2uint.c 84
 139    0050 90s00r04            139         mov     dptr,#(___fs2uint_fl1_1_1)
 140    0053 E0                  140         movx    a,@dptr
 141    0054 FA                  141         mov     r2,a
 142    0055 A3                  142         inc     dptr
 143    0056 E0                  143         movx    a,@dptr
 144    0057 FB                  144         mov     r3,a
 145    0058 A3                  145         inc     dptr
 146    0059 E0                  146         movx    a,@dptr
 147    005A FC                  147         mov     r4,a
 148    005B A3                  148         inc     dptr
 149    005C E0                  149         movx    a,@dptr
 150    005D FD                  150         mov     r5,a
 151    005E 8C 02               151         mov     ar2,r4
 152    0060 ED                  152         mov     a,r5
 153    0061 A2 E7               153         mov     c,acc.7
 154    0063 CA                  154         xch     a,r2
 155    0064 33                  155         rlc     a
 156    0065 CA                  156         xch     a,r2
 157    0066 33                  157         rlc     a
 158    0067 CA                  158         xch     a,r2
 159    0068 54 01               159         anl     a,#0x01
 160    006A 30 E0 02            160         jnb     acc.0,00121$
 161    006D 44 FE               161         orl     a,#0xfe
 162    006F                     162 00121$:
 163    006F FB                  163         mov     r3,a
 164    0070 33                  164         rlc     a
 165    0071 95 E0               165         subb    a,acc
 166    0073 FC                  166         mov     r4,a
 167    0074 FD                  167         mov     r5,a
 168    0075 EA                  168         mov     a,r2
 169    0076 75 F0 00            169         mov     b,#0x00
 170    0079 24 6A               170         add     a,#0x6a
 171    007B FA                  171         mov     r2,a
 172    007C E5 F0               172         mov     a,b
 173    007E 34 FF               173         addc    a,#0xff
 174    0080 FB                  174         mov     r3,a
 175    0081 90s00r08            175         mov     dptr,#___fs2uint_exp_1_1
 176    0084 EA                  176         mov     a,r2
 177    0085 F0                  177         movx    @dptr,a
 178    0086 A3                  178         inc     dptr
 179    0087 EB                  179         mov     a,r3
 180    0088 F0                  180         movx    @dptr,a
 181                             181 ;       _fs2uint.c 85
 182    0089 90s00r04            182         mov     dptr,#(___fs2uint_fl1_1_1)
 183    008C E0                  183         movx    a,@dptr
 184    008D FA                  184         mov     r2,a
 185    008E A3                  185         inc     dptr
 186    008F E0                  186         movx    a,@dptr
 187    0090 FB                  187         mov     r3,a
 188    0091 A3                  188         inc     dptr
 189    0092 E0                  189         movx    a,@dptr
 190    0093 FE                  190         mov     r6,a
 191    0094 A3                  191         inc     dptr
 192    0095 E0                  192         movx    a,@dptr
 193    0096 FF                  193         mov     r7,a
 194    0097 53 06 7F            194         anl     ar6,#0x7f
 195    009A 7F 00               195         mov     r7,#0x00
 196    009C 90s00r0A            196         mov     dptr,#___fs2uint_l_1_1
 197    009F EA                  197         mov     a,r2
 198    00A0 F0                  198         movx    @dptr,a
 199    00A1 A3                  199         inc     dptr
 200    00A2 EB                  200         mov     a,r3
 201    00A3 F0                  201         movx    @dptr,a
 202    00A4 74 80               202         mov     a,#0x80
 203    00A6 4E                  203         orl     a,r6
 204    00A7 A3                  204         inc     dptr
 205    00A8 F0                  205         movx    @dptr,a
 206    00A9 A3                  206         inc     dptr
 207    00AA EF                  207         mov     a,r7
 208    00AB F0                  208         movx    @dptr,a
 209                             209 ;       _fs2uint.c 87
 210    00AC 90s00r08            210         mov     dptr,#___fs2uint_exp_1_1
 211    00AF E0                  211         movx    a,@dptr
 212    00B0 FA                  212         mov     r2,a
 213    00B1 A3                  213         inc     dptr
 214    00B2 E0                  214         movx    a,@dptr
 215    00B3 FB                  215         mov     r3,a
 216    00B4 C3                  216         clr     c
 217                             217 ; Peephole 180   changed mov to clr
 218    00B5 E4                  218         clr  a
 219    00B6 9A                  219         subb    a,r2
 220                             220 ; Peephole 159   avoided xrl during execution
 221    00B7 74 80               221         mov  a,#(0x00 ^ 0x80)
 222    00B9 8B F0               222         mov     b,r3
 223    00BB 63 F0 80            223         xrl     b,#0x80
 224    00BE 95 F0               224         subb    a,b
 225                             225 ; Peephole 108   removed ljmp by inverse jump logic
 226    00C0 50 1E               226         jnc  00104$
 227    00C2                     227 00122$:
 228                             228 ;       _fs2uint.c 88
 229    00C2 90s00r04            229         mov     dptr,#(___fs2uint_fl1_1_1)
 230    00C5 E0                  230         movx    a,@dptr
 231    00C6 FA                  231         mov     r2,a
 232    00C7 A3                  232         inc     dptr
 233    00C8 E0                  233         movx    a,@dptr
 234    00C9 FB                  234         mov     r3,a
 235    00CA A3                  235         inc     dptr
 236    00CB E0                  236         movx    a,@dptr
 237    00CC FE                  237         mov     r6,a
 238    00CD A3                  238         inc     dptr
 239    00CE E0                  239         movx    a,@dptr
 240                             240 ; Peephole 105   removed redundant mov
 241    00CF FF                  241         mov  r7,a
 242    00D0 23                  242         rl      a
 243    00D1 54 01               243         anl     a,#0x01
 244    00D3 FA                  244         mov     r2,a
 245    00D4 43 02 7F            245         orl     ar2,#0x7f
 246    00D7 78 00               246         mov     r0,#0x00
 247    00D9 8A 82               247         mov     dpl,r2
 248    00DB 88 83               248         mov     dph,r0
 249    00DD 02s01rE4            249         ljmp    00110$
 250    00E0                     250 00104$:
 251                             251 ;       _fs2uint.c 91
 252    00E0 90s00r08            252         mov     dptr,#___fs2uint_exp_1_1
 253    00E3 E0                  253         movx    a,@dptr
 254    00E4 FA                  254         mov     r2,a
 255    00E5 A3                  255         inc     dptr
 256    00E6 E0                  256         movx    a,@dptr
 257                             257 ; Peephole 105   removed redundant mov
 258    00E7 F8                  258         mov  r0,a
 259    00E8 20 E7 03            259         jb      acc.7,00123$
 260    00EB 02s01r83            260         ljmp    00106$
 261    00EE                     261 00123$:
 262    00EE 90s00r08            262         mov     dptr,#___fs2uint_exp_1_1
 263    00F1 E0                  263         movx    a,@dptr
 264    00F2 FA                  264         mov     r2,a
 265    00F3 A3                  265         inc     dptr
 266    00F4 E0                  266         movx    a,@dptr
 267    00F5 F8                  267         mov     r0,a
 268    00F6 C3                  268         clr     c
 269    00F7 74 E7               269         mov     a,#0xe7
 270    00F9 9A                  270         subb    a,r2
 271                             271 ; Peephole 159   avoided xrl during execution
 272    00FA 74 7F               272         mov  a,#(0xff ^ 0x80)
 273    00FC 88 F0               273         mov     b,r0
 274    00FE 63 F0 80            274         xrl     b,#0x80
 275    0101 95 F0               275         subb    a,b
 276    0103 40 03               276         jc      00124$
 277    0105 02s01r83            277         ljmp    00106$
 278    0108                     278 00124$:
 279    0108 90s00r0A            279         mov     dptr,#___fs2uint_l_1_1
 280    010B E0                  280         movx    a,@dptr
 281    010C F5*00               281         mov     ___fs2uint_sloc0_1_0,a
 282    010E A3                  282         inc     dptr
 283    010F E0                  283         movx    a,@dptr
 284    0110 F5*01               284         mov     (___fs2uint_sloc0_1_0 + 1),a
 285    0112 A3                  285         inc     dptr
 286    0113 E0                  286         movx    a,@dptr
 287    0114 F5*02               287         mov     (___fs2uint_sloc0_1_0 + 2),a
 288    0116 A3                  288         inc     dptr
 289    0117 E0                  289         movx    a,@dptr
 290    0118 F5*03               290         mov     (___fs2uint_sloc0_1_0 + 3),a
 291    011A E5*00               291         mov     a,___fs2uint_sloc0_1_0
 292    011C 45*01               292         orl     a,(___fs2uint_sloc0_1_0 + 1)
 293    011E 45*02               293         orl     a,(___fs2uint_sloc0_1_0 + 2)
 294    0120 45*03               294         orl     a,(___fs2uint_sloc0_1_0 + 3)
 295    0122 70 03               295         jnz     00125$
 296    0124 02s01r83            296         ljmp    00106$
 297    0127                     297 00125$:
 298                             298 ;       _fs2uint.c 92
 299    0127 90s00r08            299         mov     dptr,#___fs2uint_exp_1_1
 300    012A E0                  300         movx    a,@dptr
 301    012B FA                  301         mov     r2,a
 302    012C A3                  302         inc     dptr
 303    012D E0                  303         movx    a,@dptr
 304    012E F8                  304         mov     r0,a
 305    012F C3                  305         clr     c
 306    0130 E4                  306         clr     a
 307    0131 9A                  307         subb    a,r2
 308    0132 F5*00               308         mov     ___fs2uint_sloc0_1_0,a
 309    0134 E4                  309         clr     a
 310    0135 98                  310         subb    a,r0
 311    0136 F5*01               311         mov     (___fs2uint_sloc0_1_0 + 1),a
 312    0138 90s00r0A            312         mov     dptr,#___fs2uint_l_1_1
 313    013B E0                  313         movx    a,@dptr
 314    013C F5*04               314         mov     ___fs2uint_sloc1_1_0,a
 315    013E A3                  315         inc     dptr
 316    013F E0                  316         movx    a,@dptr
 317    0140 F5*05               317         mov     (___fs2uint_sloc1_1_0 + 1),a
 318    0142 A3                  318         inc     dptr
 319    0143 E0                  319         movx    a,@dptr
 320    0144 F5*06               320         mov     (___fs2uint_sloc1_1_0 + 2),a
 321    0146 A3                  321         inc     dptr
 322    0147 E0                  322         movx    a,@dptr
 323    0148 F5*07               323         mov     (___fs2uint_sloc1_1_0 + 3),a
 324    014A 85*00 F0            324         mov     b,___fs2uint_sloc0_1_0
 325    014D 05 F0               325         inc     b
 326    014F E5*07               326         mov     a,(___fs2uint_sloc1_1_0 + 3)
 327    0151 33                  327         rlc     a
 328    0152 92 D2               328         mov     ov,c
 329    0154 80 16               329         sjmp    00127$
 330    0156                     330 00126$:
 331    0156 A2 D2               331         mov     c,ov
 332    0158 E5*07               332         mov     a,(___fs2uint_sloc1_1_0 + 3)
 333    015A 13                  333         rrc     a
 334    015B F5*07               334         mov     (___fs2uint_sloc1_1_0 + 3),a
 335    015D E5*06               335         mov     a,(___fs2uint_sloc1_1_0 + 2)
 336    015F 13                  336         rrc     a
 337    0160 F5*06               337         mov     (___fs2uint_sloc1_1_0 + 2),a
 338    0162 E5*05               338         mov     a,(___fs2uint_sloc1_1_0 + 1)
 339    0164 13                  339         rrc     a
 340    0165 F5*05               340         mov     (___fs2uint_sloc1_1_0 + 1),a
 341    0167 E5*04               341         mov     a,___fs2uint_sloc1_1_0
 342    0169 13                  342         rrc     a
 343    016A F5*04               343         mov     ___fs2uint_sloc1_1_0,a
 344    016C                     344 00127$:
 345    016C D5 F0 E7            345         djnz    b,00126$
 346    016F 90s00r0A            346         mov     dptr,#___fs2uint_l_1_1
 347    0172 E5*04               347         mov     a,___fs2uint_sloc1_1_0
 348    0174 F0                  348         movx    @dptr,a
 349    0175 A3                  349         inc     dptr
 350    0176 E5*05               350         mov     a,(___fs2uint_sloc1_1_0 + 1)
 351    0178 F0                  351         movx    @dptr,a
 352    0179 A3                  352         inc     dptr
 353    017A E5*06               353         mov     a,(___fs2uint_sloc1_1_0 + 2)
 354    017C F0                  354         movx    @dptr,a
 355    017D A3                  355         inc     dptr
 356    017E E5*07               356         mov     a,(___fs2uint_sloc1_1_0 + 3)
 357    0180 F0                  357         movx    @dptr,a
 358                             358 ; Peephole 132   changed ljmp to sjmp
 359    0181 80 06               359         sjmp 00107$
 360    0183                     360 00106$:
 361                             361 ;       _fs2uint.c 94
 362                             362 ; Peephole 181   used 16 bit load of dptr
 363    0183 90 00 00            363         mov  dptr,#0x0000
 364    0186 02s01rE4            364         ljmp    00110$
 365    0189                     365 00107$:
 366                             366 ;       _fs2uint.c 96
 367    0189 90s00r04            367         mov     dptr,#(___fs2uint_fl1_1_1)
 368    018C E0                  368         movx    a,@dptr
 369    018D F5*04               369         mov     ___fs2uint_sloc1_1_0,a
 370    018F A3                  370         inc     dptr
 371    0190 E0                  371         movx    a,@dptr
 372    0191 F5*05               372         mov     (___fs2uint_sloc1_1_0 + 1),a
 373    0193 A3                  373         inc     dptr
 374    0194 E0                  374         movx    a,@dptr
 375    0195 F5*06               375         mov     (___fs2uint_sloc1_1_0 + 2),a
 376    0197 A3                  376         inc     dptr
 377    0198 E0                  377         movx    a,@dptr
 378                             378 ; Peephole 105   removed redundant mov
 379    0199 F5*07               379         mov  (___fs2uint_sloc1_1_0 + 3),a
 380    019B 23                  380         rl      a
 381    019C 54 01               381         anl     a,#0x01
 382                             382 ; Peephole 105   removed redundant mov
 383    019E FA                  383         mov  r2,a
 384                             384 ; Peephole 110   removed ljmp by inverse jump logic
 385    019F 60 29               385         jz  00112$
 386    01A1                     386 00128$:
 387    01A1 90s00r0A            387         mov     dptr,#___fs2uint_l_1_1
 388    01A4 E0                  388         movx    a,@dptr
 389    01A5 F5*04               389         mov     ___fs2uint_sloc1_1_0,a
 390    01A7 A3                  390         inc     dptr
 391    01A8 E0                  391         movx    a,@dptr
 392    01A9 F5*05               392         mov     (___fs2uint_sloc1_1_0 + 1),a
 393    01AB A3                  393         inc     dptr
 394    01AC E0                  394         movx    a,@dptr
 395    01AD F5*06               395         mov     (___fs2uint_sloc1_1_0 + 2),a
 396    01AF A3                  396         inc     dptr
 397    01B0 E0                  397         movx    a,@dptr
 398    01B1 F5*07               398         mov     (___fs2uint_sloc1_1_0 + 3),a
 399    01B3 C3                  399         clr     c
 400    01B4 E4                  400         clr     a
 401    01B5 95*04               401         subb    a,___fs2uint_sloc1_1_0
 402    01B7 F5*04               402         mov     ___fs2uint_sloc1_1_0,a
 403    01B9 E4                  403         clr     a
 404    01BA 95*05               404         subb    a,(___fs2uint_sloc1_1_0 + 1)
 405    01BC F5*05               405         mov     (___fs2uint_sloc1_1_0 + 1),a
 406    01BE E4                  406         clr     a
 407    01BF 95*06               407         subb    a,(___fs2uint_sloc1_1_0 + 2)
 408    01C1 F5*06               408         mov     (___fs2uint_sloc1_1_0 + 2),a
 409    01C3 E4                  409         clr     a
 410    01C4 95*07               410         subb    a,(___fs2uint_sloc1_1_0 + 3)
 411    01C6 F5*07               411         mov     (___fs2uint_sloc1_1_0 + 3),a
 412                             412 ; Peephole 132   changed ljmp to sjmp
 413    01C8 80 12               413         sjmp 00113$
 414    01CA                     414 00112$:
 415    01CA 90s00r0A            415         mov     dptr,#___fs2uint_l_1_1
 416    01CD E0                  416         movx    a,@dptr
 417    01CE F5*04               417         mov     ___fs2uint_sloc1_1_0,a
 418    01D0 A3                  418         inc     dptr
 419    01D1 E0                  419         movx    a,@dptr
 420    01D2 F5*05               420         mov     (___fs2uint_sloc1_1_0 + 1),a
 421    01D4 A3                  421         inc     dptr
 422    01D5 E0                  422         movx    a,@dptr
 423    01D6 F5*06               423         mov     (___fs2uint_sloc1_1_0 + 2),a
 424    01D8 A3                  424         inc     dptr
 425    01D9 E0                  425         movx    a,@dptr
 426    01DA F5*07               426         mov     (___fs2uint_sloc1_1_0 + 3),a
 427    01DC                     427 00113$:
 428    01DC AA*04               428         mov     r2,___fs2uint_sloc1_1_0
 429    01DE A8*05               429         mov     r0,(___fs2uint_sloc1_1_0 + 1)
 430    01E0 8A 82               430         mov     dpl,r2
 431    01E2 88 83               431         mov     dph,r0
 432    01E4                     432 00110$:
 433                     01E4    433         C$_fs2uint.c$97$1$1 ==.
 434                     01E4    434         XG$__fs2uint$0$0 ==.
 435    01E4 22                  435         ret
 436                             436         .area   CSEG    (CODE)