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

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:35 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _ulong2fs
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl ___ulong2fs
  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 ___ulong2fs_sloc0_1_0:
  22    0000                      22         .ds     0x0002
  23    0002                      23 ___ulong2fs_sloc1_1_0:
  24    0002                      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 ___ulong2fs_a_1_1:
  42    0000                      42         .ds     0x0004
  43    0004                      43 ___ulong2fs_sign_1_1:
  44    0004                      44         .ds     0x0004
  45    0008                      45 ___ulong2fs_fl_1_1:
  46    0008                      46         .ds     0x0004
  47    000C                      47 ___ulong2fs_a1_1_1:
  48    000C                      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$__ulong2fs$0$0 ==.
  58                              58 ;       _ulong2fs.c 80
  59                              59 ;       -----------------------------------------
  60                              60 ;        function __ulong2fs
  61                              61 ;       -----------------------------------------
  62    0000                      62 ___ulong2fs:
  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 ;       _ulong2fs.c 109
  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,#___ulong2fs_a_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 ;       _ulong2fs.c 82
  89    001A 90s00r04             89         mov     dptr,#___ulong2fs_sign_1_1
  90    001D E4                   90         clr     a
  91    001E A3                   91         inc     dptr
  92    001F A3                   92         inc     dptr
  93    0020 A3                   93         inc     dptr
  94    0021 F0                   94         movx    @dptr,a
  95    0022 12s00r00             95         lcall   __decdptr
  96    0025 F0                   96         movx    @dptr,a
  97    0026 12s00r00             97         lcall   __decdptr
  98    0029 F0                   98         movx    @dptr,a
  99    002A 12s00r00             99         lcall   __decdptr
 100    002D F0                  100         movx    @dptr,a
 101                             101 ;       _ulong2fs.c 85
 102    002E 90s00r00            102         mov     dptr,#___ulong2fs_a_1_1
 103    0031 E0                  103         movx    a,@dptr
 104    0032 FA                  104         mov     r2,a
 105    0033 A3                  105         inc     dptr
 106    0034 E0                  106         movx    a,@dptr
 107    0035 FB                  107         mov     r3,a
 108    0036 A3                  108         inc     dptr
 109    0037 E0                  109         movx    a,@dptr
 110    0038 FC                  110         mov     r4,a
 111    0039 A3                  111         inc     dptr
 112    003A E0                  112         movx    a,@dptr
 113    003B FD                  113         mov     r5,a
 114    003C 90s00r0C            114         mov     dptr,#___ulong2fs_a1_1_1
 115    003F EA                  115         mov     a,r2
 116    0040 F0                  116         movx    @dptr,a
 117    0041 A3                  117         inc     dptr
 118    0042 EB                  118         mov     a,r3
 119    0043 F0                  119         movx    @dptr,a
 120    0044 A3                  120         inc     dptr
 121    0045 EC                  121         mov     a,r4
 122    0046 F0                  122         movx    @dptr,a
 123    0047 A3                  123         inc     dptr
 124    0048 ED                  124         mov     a,r5
 125    0049 F0                  125         movx    @dptr,a
 126                             126 ;       _ulong2fs.c 87
 127    004A EA                  127         mov     a,r2
 128    004B 4B                  128         orl     a,r3
 129    004C 4C                  129         orl     a,r4
 130    004D 4D                  130         orl     a,r5
 131                             131 ; Peephole 109   removed ljmp by inverse jump logic
 132    004E 70 23               132         jnz  00102$
 133    0050                     133 00114$:
 134                             134 ;       _ulong2fs.c 89
 135    0050 90s00r08            135         mov     dptr,#(___ulong2fs_fl_1_1)
 136                             136 ; Peephole 101   removed redundant mov
 137                             137 ; Peephole 180   changed mov to clr
 138    0053 E4                  138         clr  a
 139    0054 F0                  139         movx @dptr,a
 140    0055 A3                  140         inc  dptr
 141    0056 F0                  141         movx @dptr,a
 142    0057 A3                  142         inc     dptr
 143                             143 ; Peephole 101   removed redundant mov
 144                             144 ; Peephole 180   changed mov to clr
 145    0058 E4                  145         clr  a
 146    0059 F0                  146         movx @dptr,a
 147    005A A3                  147         inc  dptr
 148    005B F0                  148         movx @dptr,a
 149                             149 ;       _ulong2fs.c 90
 150    005C 90s00r08            150         mov     dptr,#(___ulong2fs_fl_1_1)
 151    005F E0                  151         movx    a,@dptr
 152    0060 FE                  152         mov     r6,a
 153    0061 A3                  153         inc     dptr
 154    0062 E0                  154         movx    a,@dptr
 155    0063 FF                  155         mov     r7,a
 156    0064 A3                  156         inc     dptr
 157    0065 E0                  157         movx    a,@dptr
 158    0066 F8                  158         mov     r0,a
 159    0067 A3                  159         inc     dptr
 160    0068 E0                  160         movx    a,@dptr
 161                             161 ; Peephole 191   removed redundant mov
 162    0069 F9                  162         mov  r1,a
 163    006A 8E 82               163         mov  dpl,r6
 164    006C 8F 83               164         mov  dph,r7
 165    006E 88 F0               165         mov  b,r0
 166    0070 02s01r4F            166         ljmp    00108$
 167    0073                     167 00102$:
 168                             168 ;       _ulong2fs.c 93
 169    0073 C3                  169         clr     c
 170                             170 ; Peephole 108   removed ljmp by inverse jump logic
 171    0074 50 21               171         jnc  00113$
 172    0076                     172 00115$:
 173                             173 ;       _ulong2fs.c 95
 174    0076 90s00r04            174         mov     dptr,#___ulong2fs_sign_1_1
 175                             175 ; Peephole 101   removed redundant mov
 176                             176 ; Peephole 180   changed mov to clr
 177    0079 E4                  177         clr  a
 178    007A F0                  178         movx @dptr,a
 179    007B A3                  179         inc  dptr
 180    007C F0                  180         movx @dptr,a
 181    007D A3                  181         inc     dptr
 182                             182 ; Peephole 180   changed mov to clr
 183    007E E4                  183         clr  a
 184    007F F0                  184         movx    @dptr,a
 185    0080 A3                  185         inc     dptr
 186    0081 74 80               186         mov     a,#0x80
 187    0083 F0                  187         movx    @dptr,a
 188                             188 ;       _ulong2fs.c 96
 189    0084 90s00r0C            189         mov     dptr,#___ulong2fs_a1_1_1
 190    0087 C3                  190         clr     c
 191    0088 E4                  191         clr     a
 192    0089 9A                  192         subb    a,r2
 193    008A F0                  193         movx    @dptr,a
 194    008B E4                  194         clr     a
 195    008C 9B                  195         subb    a,r3
 196    008D A3                  196         inc     dptr
 197    008E F0                  197         movx    @dptr,a
 198    008F E4                  198         clr     a
 199    0090 9C                  199         subb    a,r4
 200    0091 A3                  200         inc     dptr
 201    0092 F0                  201         movx    @dptr,a
 202    0093 E4                  202         clr     a
 203    0094 9D                  203         subb    a,r5
 204    0095 A3                  204         inc     dptr
 205    0096 F0                  205         movx    @dptr,a
 206                             206 ;       _ulong2fs.c 99
 207    0097                     207 00113$:
 208    0097 E4                  208         clr     a
 209    0098 F5*01               209         mov     (___ulong2fs_sloc0_1_0 + 1),a
 210    009A 75*00 96            210         mov     ___ulong2fs_sloc0_1_0,#0x96
 211    009D                     211 00105$:
 212    009D 90s00r0C            212         mov     dptr,#___ulong2fs_a1_1_1
 213    00A0 E0                  213         movx    a,@dptr
 214    00A1 FC                  214         mov     r4,a
 215    00A2 A3                  215         inc     dptr
 216    00A3 E0                  216         movx    a,@dptr
 217    00A4 FD                  217         mov     r5,a
 218    00A5 A3                  218         inc     dptr
 219    00A6 E0                  219         movx    a,@dptr
 220    00A7 FE                  220         mov     r6,a
 221    00A8 A3                  221         inc     dptr
 222    00A9 E0                  222         movx    a,@dptr
 223    00AA FF                  223         mov     r7,a
 224    00AB C3                  224         clr     c
 225    00AC EC                  225         mov     a,r4
 226    00AD 94 00               226         subb    a,#0x00
 227    00AF ED                  227         mov     a,r5
 228    00B0 94 00               228         subb    a,#0x00
 229    00B2 EE                  229         mov     a,r6
 230    00B3 94 80               230         subb    a,#0x80
 231    00B5 EF                  231         mov     a,r7
 232    00B6 94 00               232         subb    a,#0x00
 233                             233 ; Peephole 108   removed ljmp by inverse jump logic
 234    00B8 50 27               234         jnc  00107$
 235    00BA                     235 00116$:
 236                             236 ;       _ulong2fs.c 101
 237    00BA EC                  237         mov     a,r4
 238    00BB 25 E0               238         add     a,acc
 239    00BD F8                  239         mov     r0,a
 240    00BE ED                  240         mov     a,r5
 241    00BF 33                  241         rlc     a
 242    00C0 F9                  242         mov     r1,a
 243    00C1 EE                  243         mov     a,r6
 244    00C2 33                  244         rlc     a
 245    00C3 FA                  245         mov     r2,a
 246    00C4 EF                  246         mov     a,r7
 247    00C5 33                  247         rlc     a
 248    00C6 FB                  248         mov     r3,a
 249    00C7 90s00r0C            249         mov     dptr,#___ulong2fs_a1_1_1
 250    00CA E8                  250         mov     a,r0
 251    00CB F0                  251         movx    @dptr,a
 252    00CC A3                  252         inc     dptr
 253    00CD E9                  253         mov     a,r1
 254    00CE F0                  254         movx    @dptr,a
 255    00CF A3                  255         inc     dptr
 256    00D0 EA                  256         mov     a,r2
 257    00D1 F0                  257         movx    @dptr,a
 258    00D2 A3                  258         inc     dptr
 259    00D3 EB                  259         mov     a,r3
 260    00D4 F0                  260         movx    @dptr,a
 261                             261 ;       _ulong2fs.c 102
 262    00D5 15*00               262         dec     ___ulong2fs_sloc0_1_0
 263    00D7 74 FF               263         mov     a,#0xff
 264    00D9 B5*00 02            264         cjne    a,___ulong2fs_sloc0_1_0,00117$
 265    00DC 15*01               265         dec     (___ulong2fs_sloc0_1_0 + 1)
 266    00DE                     266 00117$:
 267    00DE 02s00r9D            267         ljmp    00105$
 268    00E1                     268 00107$:
 269                             269 ;       _ulong2fs.c 105
 270    00E1 53 06 7F            270         anl     ar6,#0x7f
 271                             271 ;       _ulong2fs.c 107
 272    00E4 AA*00               272         mov     r2,___ulong2fs_sloc0_1_0
 273    00E6 AB*01               273         mov     r3,(___ulong2fs_sloc0_1_0 + 1)
 274    00E8 78 00               274         mov     r0,#0x00
 275    00EA 79 00               275         mov     r1,#0x00
 276    00EC 8A*04               276         mov     (___ulong2fs_sloc1_1_0 + 2),r2
 277    00EE EB                  277         mov     a,r3
 278    00EF 54 01               278         anl     a,#0x01
 279    00F1 A2 E0               279         mov     c,acc.0
 280    00F3 C5*04               280         xch     a,(___ulong2fs_sloc1_1_0 + 2)
 281    00F5 13                  281         rrc     a
 282    00F6 C5*04               282         xch     a,(___ulong2fs_sloc1_1_0 + 2)
 283    00F8 13                  283         rrc     a
 284    00F9 C5*04               284         xch     a,(___ulong2fs_sloc1_1_0 + 2)
 285    00FB F5*05               285         mov     (___ulong2fs_sloc1_1_0 + 3),a
 286    00FD 75*03 00            286         mov     (___ulong2fs_sloc1_1_0 + 1),#0x00
 287    0100 75*02 00            287         mov     ___ulong2fs_sloc1_1_0,#0x00
 288    0103 90s00r04            288         mov     dptr,#___ulong2fs_sign_1_1
 289    0106 E0                  289         movx    a,@dptr
 290    0107 FA                  290         mov     r2,a
 291    0108 A3                  291         inc     dptr
 292    0109 E0                  292         movx    a,@dptr
 293    010A FB                  293         mov     r3,a
 294    010B A3                  294         inc     dptr
 295    010C E0                  295         movx    a,@dptr
 296    010D F8                  296         mov     r0,a
 297    010E A3                  297         inc     dptr
 298    010F E0                  298         movx    a,@dptr
 299    0110 F9                  299         mov     r1,a
 300    0111 E5*02               300         mov     a,___ulong2fs_sloc1_1_0
 301    0113 42 02               301         orl     ar2,a
 302    0115 E5*03               302         mov     a,(___ulong2fs_sloc1_1_0 + 1)
 303    0117 42 03               303         orl     ar3,a
 304    0119 E5*04               304         mov     a,(___ulong2fs_sloc1_1_0 + 2)
 305    011B 42 00               305         orl     ar0,a
 306    011D E5*05               306         mov     a,(___ulong2fs_sloc1_1_0 + 3)
 307    011F 42 01               307         orl     ar1,a
 308    0121 EA                  308         mov     a,r2
 309    0122 42 04               309         orl     ar4,a
 310    0124 EB                  310         mov     a,r3
 311    0125 42 05               311         orl     ar5,a
 312    0127 E8                  312         mov     a,r0
 313    0128 42 06               313         orl     ar6,a
 314    012A E9                  314         mov     a,r1
 315    012B 42 07               315         orl     ar7,a
 316    012D 90s00r08            316         mov     dptr,#(___ulong2fs_fl_1_1)
 317    0130 EC                  317         mov     a,r4
 318    0131 F0                  318         movx    @dptr,a
 319    0132 A3                  319         inc     dptr
 320    0133 ED                  320         mov     a,r5
 321    0134 F0                  321         movx    @dptr,a
 322    0135 A3                  322         inc     dptr
 323    0136 EE                  323         mov     a,r6
 324    0137 F0                  324         movx    @dptr,a
 325    0138 A3                  325         inc     dptr
 326    0139 EF                  326         mov     a,r7
 327    013A F0                  327         movx    @dptr,a
 328                             328 ;       _ulong2fs.c 109
 329    013B 90s00r08            329         mov     dptr,#(___ulong2fs_fl_1_1)
 330    013E E0                  330         movx    a,@dptr
 331    013F FA                  331         mov     r2,a
 332    0140 A3                  332         inc     dptr
 333    0141 E0                  333         movx    a,@dptr
 334    0142 FB                  334         mov     r3,a
 335    0143 A3                  335         inc     dptr
 336    0144 E0                  336         movx    a,@dptr
 337    0145 FC                  337         mov     r4,a
 338    0146 A3                  338         inc     dptr
 339    0147 E0                  339         movx    a,@dptr
 340                             340 ; Peephole 191   removed redundant mov
 341    0148 FD                  341         mov  r5,a
 342    0149 8A 82               342         mov  dpl,r2
 343    014B 8B 83               343         mov  dph,r3
 344    014D 8C F0               344         mov  b,r4
 345    014F                     345 00108$:
 346                     014F    346         C$_ulong2fs.c$110$1$1 ==.
 347                     014F    347         XG$__ulong2fs$0$0 ==.
 348    014F 22                  348         ret
 349                             349         .area   CSEG    (CODE)