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

   1                               1 ;--------------------------------------------------------
   2                               2 ; File Created by SDCC : FreeWare ANSI-C Compiler
   3                               3 ; Version 2.1.9Ga Sun Jan 16 17:31:30 2000
   4                               4
   5                               5 ;--------------------------------------------------------
   6                               6         .module _long2fs
   7                               7 ;--------------------------------------------------------
   8                               8 ; publics variables in this module
   9                               9 ;--------------------------------------------------------
  10                              10         .globl ___long2fs
  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 ___long2fs_sloc0_1_0:
  22    0000                      22         .ds     0x0002
  23    0002                      23 ___long2fs_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 ___long2fs_a1_1_1:
  42    0000                      42         .ds     0x0004
  43    0004                      43 ___long2fs_sign_1_1:
  44    0004                      44         .ds     0x0004
  45    0008                      45 ___long2fs_fl_1_1:
  46    0008                      46         .ds     0x0004
  47                              47 ;--------------------------------------------------------
  48                              48 ; global & static initialisations
  49                              49 ;--------------------------------------------------------
  50                              50         .area GSINIT (CODE)
  51                              51 ;--------------------------------------------------------
  52                              52 ; code
  53                              53 ;--------------------------------------------------------
  54                              54         .area CSEG (CODE)
  55                     0000     55         G$__long2fs$0$0 ==.
  56                              56 ;       _long2fs.c 80
  57                              57 ;       -----------------------------------------
  58                              58 ;        function __long2fs
  59                              59 ;       -----------------------------------------
  60    0000                      60 ___long2fs:
  61                     0002     61         ar2 = 0x02
  62                     0003     62         ar3 = 0x03
  63                     0004     63         ar4 = 0x04
  64                     0005     64         ar5 = 0x05
  65                     0006     65         ar6 = 0x06
  66                     0007     66         ar7 = 0x07
  67                     0000     67         ar0 = 0x00
  68                     0001     68         ar1 = 0x01
  69                              69 ;       _long2fs.c 108
  70    0000 C0 E0                70         push    acc
  71    0002 C0 F0                71         push    b
  72    0004 C0 83                72         push    dph
  73    0006 C0 82                73         push    dpl
  74    0008 90s00r00             74         mov     dptr,#___long2fs_a1_1_1
  75    000B D0 E0                75         pop     acc
  76    000D F0                   76         movx    @dptr,a
  77    000E D0 E0                77         pop     acc
  78    0010 A3                   78         inc     dptr
  79    0011 F0                   79         movx    @dptr,a
  80    0012 D0 E0                80         pop     acc
  81    0014 A3                   81         inc     dptr
  82    0015 F0                   82         movx    @dptr,a
  83    0016 D0 E0                83         pop     acc
  84    0018 A3                   84         inc     dptr
  85    0019 F0                   85         movx    @dptr,a
  86                              86 ;       _long2fs.c 82
  87    001A 90s00r04             87         mov     dptr,#___long2fs_sign_1_1
  88    001D E4                   88         clr     a
  89    001E A3                   89         inc     dptr
  90    001F A3                   90         inc     dptr
  91    0020 A3                   91         inc     dptr
  92    0021 F0                   92         movx    @dptr,a
  93    0022 12s00r00             93         lcall   __decdptr
  94    0025 F0                   94         movx    @dptr,a
  95    0026 12s00r00             95         lcall   __decdptr
  96    0029 F0                   96         movx    @dptr,a
  97    002A 12s00r00             97         lcall   __decdptr
  98    002D F0                   98         movx    @dptr,a
  99                              99 ;       _long2fs.c 86
 100    002E 90s00r00            100         mov     dptr,#___long2fs_a1_1_1
 101    0031 E0                  101         movx    a,@dptr
 102    0032 FA                  102         mov     r2,a
 103    0033 A3                  103         inc     dptr
 104    0034 E0                  104         movx    a,@dptr
 105    0035 FB                  105         mov     r3,a
 106    0036 A3                  106         inc     dptr
 107    0037 E0                  107         movx    a,@dptr
 108    0038 FC                  108         mov     r4,a
 109    0039 A3                  109         inc     dptr
 110    003A E0                  110         movx    a,@dptr
 111    003B FD                  111         mov     r5,a
 112    003C EA                  112         mov     a,r2
 113    003D 4B                  113         orl     a,r3
 114    003E 4C                  114         orl     a,r4
 115    003F 4D                  115         orl     a,r5
 116                             116 ; Peephole 109   removed ljmp by inverse jump logic
 117    0040 70 23               117         jnz  00102$
 118    0042                     118 00114$:
 119                             119 ;       _long2fs.c 88
 120    0042 90s00r08            120         mov     dptr,#(___long2fs_fl_1_1)
 121                             121 ; Peephole 101   removed redundant mov
 122                             122 ; Peephole 180   changed mov to clr
 123    0045 E4                  123         clr  a
 124    0046 F0                  124         movx @dptr,a
 125    0047 A3                  125         inc  dptr
 126    0048 F0                  126         movx @dptr,a
 127    0049 A3                  127         inc     dptr
 128                             128 ; Peephole 101   removed redundant mov
 129                             129 ; Peephole 180   changed mov to clr
 130    004A E4                  130         clr  a
 131    004B F0                  131         movx @dptr,a
 132    004C A3                  132         inc  dptr
 133    004D F0                  133         movx @dptr,a
 134                             134 ;       _long2fs.c 89
 135    004E 90s00r08            135         mov     dptr,#(___long2fs_fl_1_1)
 136    0051 E0                  136         movx    a,@dptr
 137    0052 FE                  137         mov     r6,a
 138    0053 A3                  138         inc     dptr
 139    0054 E0                  139         movx    a,@dptr
 140    0055 FF                  140         mov     r7,a
 141    0056 A3                  141         inc     dptr
 142    0057 E0                  142         movx    a,@dptr
 143    0058 F8                  143         mov     r0,a
 144    0059 A3                  144         inc     dptr
 145    005A E0                  145         movx    a,@dptr
 146                             146 ; Peephole 191   removed redundant mov
 147    005B F9                  147         mov  r1,a
 148    005C 8E 82               148         mov  dpl,r6
 149    005E 8F 83               149         mov  dph,r7
 150    0060 88 F0               150         mov  b,r0
 151    0062 02s01r50            151         ljmp    00108$
 152    0065                     152 00102$:
 153                             153 ;       _long2fs.c 92
 154    0065 ED                  154         mov     a,r5
 155                             155 ; Peephole 111   removed ljmp by inverse jump logic
 156    0066 30 E7 21            156         jnb  acc.7,00113$
 157    0069                     157 00115$:
 158                             158 ;       _long2fs.c 94
 159    0069 90s00r04            159         mov     dptr,#___long2fs_sign_1_1
 160                             160 ; Peephole 101   removed redundant mov
 161                             161 ; Peephole 180   changed mov to clr
 162    006C E4                  162         clr  a
 163    006D F0                  163         movx @dptr,a
 164    006E A3                  164         inc  dptr
 165    006F F0                  165         movx @dptr,a
 166    0070 A3                  166         inc     dptr
 167                             167 ; Peephole 180   changed mov to clr
 168    0071 E4                  168         clr  a
 169    0072 F0                  169         movx    @dptr,a
 170    0073 A3                  170         inc     dptr
 171    0074 74 80               171         mov     a,#0x80
 172    0076 F0                  172         movx    @dptr,a
 173                             173 ;       _long2fs.c 95
 174    0077 90s00r00            174         mov     dptr,#___long2fs_a1_1_1
 175    007A C3                  175         clr     c
 176    007B E4                  176         clr     a
 177    007C 9A                  177         subb    a,r2
 178    007D F0                  178         movx    @dptr,a
 179    007E E4                  179         clr     a
 180    007F 9B                  180         subb    a,r3
 181    0080 A3                  181         inc     dptr
 182    0081 F0                  182         movx    @dptr,a
 183    0082 E4                  183         clr     a
 184    0083 9C                  184         subb    a,r4
 185    0084 A3                  185         inc     dptr
 186    0085 F0                  186         movx    @dptr,a
 187    0086 E4                  187         clr     a
 188    0087 9D                  188         subb    a,r5
 189    0088 A3                  189         inc     dptr
 190    0089 F0                  190         movx    @dptr,a
 191                             191 ;       _long2fs.c 98
 192    008A                     192 00113$:
 193    008A E4                  193         clr     a
 194    008B F5*01               194         mov     (___long2fs_sloc0_1_0 + 1),a
 195    008D 75*00 96            195         mov     ___long2fs_sloc0_1_0,#0x96
 196    0090                     196 00105$:
 197    0090 90s00r00            197         mov     dptr,#___long2fs_a1_1_1
 198    0093 E0                  198         movx    a,@dptr
 199    0094 FC                  199         mov     r4,a
 200    0095 A3                  200         inc     dptr
 201    0096 E0                  201         movx    a,@dptr
 202    0097 FD                  202         mov     r5,a
 203    0098 A3                  203         inc     dptr
 204    0099 E0                  204         movx    a,@dptr
 205    009A FE                  205         mov     r6,a
 206    009B A3                  206         inc     dptr
 207    009C E0                  207         movx    a,@dptr
 208    009D FF                  208         mov     r7,a
 209    009E C3                  209         clr     c
 210    009F EC                  210         mov     a,r4
 211    00A0 94 00               211         subb    a,#0x00
 212    00A2 ED                  212         mov     a,r5
 213    00A3 94 00               213         subb    a,#0x00
 214    00A5 EE                  214         mov     a,r6
 215    00A6 94 80               215         subb    a,#0x80
 216    00A8 EF                  216         mov     a,r7
 217    00A9 94 00               217         subb    a,#0x00
 218                             218 ; Peephole 108   removed ljmp by inverse jump logic
 219    00AB 50 27               219         jnc  00107$
 220    00AD                     220 00116$:
 221                             221 ;       _long2fs.c 100
 222    00AD EC                  222         mov     a,r4
 223    00AE 25 E0               223         add     a,acc
 224    00B0 F8                  224         mov     r0,a
 225    00B1 ED                  225         mov     a,r5
 226    00B2 33                  226         rlc     a
 227    00B3 F9                  227         mov     r1,a
 228    00B4 EE                  228         mov     a,r6
 229    00B5 33                  229         rlc     a
 230    00B6 FA                  230         mov     r2,a
 231    00B7 EF                  231         mov     a,r7
 232    00B8 33                  232         rlc     a
 233    00B9 FB                  233         mov     r3,a
 234    00BA 90s00r00            234         mov     dptr,#___long2fs_a1_1_1
 235    00BD E8                  235         mov     a,r0
 236    00BE F0                  236         movx    @dptr,a
 237    00BF A3                  237         inc     dptr
 238    00C0 E9                  238         mov     a,r1
 239    00C1 F0                  239         movx    @dptr,a
 240    00C2 A3                  240         inc     dptr
 241    00C3 EA                  241         mov     a,r2
 242    00C4 F0                  242         movx    @dptr,a
 243    00C5 A3                  243         inc     dptr
 244    00C6 EB                  244         mov     a,r3
 245    00C7 F0                  245         movx    @dptr,a
 246                             246 ;       _long2fs.c 101
 247    00C8 15*00               247         dec     ___long2fs_sloc0_1_0
 248    00CA 74 FF               248         mov     a,#0xff
 249    00CC B5*00 02            249         cjne    a,___long2fs_sloc0_1_0,00117$
 250    00CF 15*01               250         dec     (___long2fs_sloc0_1_0 + 1)
 251    00D1                     251 00117$:
 252    00D1 02s00r90            252         ljmp    00105$
 253    00D4                     253 00107$:
 254                             254 ;       _long2fs.c 104
 255    00D4 53 06 7F            255         anl     ar6,#0x7f
 256    00D7 90s00r00            256         mov     dptr,#___long2fs_a1_1_1
 257    00DA EC                  257         mov     a,r4
 258    00DB F0                  258         movx    @dptr,a
 259    00DC A3                  259         inc     dptr
 260    00DD ED                  260         mov     a,r5
 261    00DE F0                  261         movx    @dptr,a
 262    00DF A3                  262         inc     dptr
 263    00E0 EE                  263         mov     a,r6
 264    00E1 F0                  264         movx    @dptr,a
 265    00E2 A3                  265         inc     dptr
 266    00E3 EF                  266         mov     a,r7
 267    00E4 F0                  267         movx    @dptr,a
 268                             268 ;       _long2fs.c 106
 269    00E5 AA*00               269         mov     r2,___long2fs_sloc0_1_0
 270    00E7 AB*01               270         mov     r3,(___long2fs_sloc0_1_0 + 1)
 271    00E9 78 00               271         mov     r0,#0x00
 272    00EB 79 00               272         mov     r1,#0x00
 273    00ED 8A*04               273         mov     (___long2fs_sloc1_1_0 + 2),r2
 274    00EF EB                  274         mov     a,r3
 275    00F0 54 01               275         anl     a,#0x01
 276    00F2 A2 E0               276         mov     c,acc.0
 277    00F4 C5*04               277         xch     a,(___long2fs_sloc1_1_0 + 2)
 278    00F6 13                  278         rrc     a
 279    00F7 C5*04               279         xch     a,(___long2fs_sloc1_1_0 + 2)
 280    00F9 13                  280         rrc     a
 281    00FA C5*04               281         xch     a,(___long2fs_sloc1_1_0 + 2)
 282    00FC F5*05               282         mov     (___long2fs_sloc1_1_0 + 3),a
 283    00FE 75*03 00            283         mov     (___long2fs_sloc1_1_0 + 1),#0x00
 284    0101 75*02 00            284         mov     ___long2fs_sloc1_1_0,#0x00
 285    0104 90s00r04            285         mov     dptr,#___long2fs_sign_1_1
 286    0107 E0                  286         movx    a,@dptr
 287    0108 FA                  287         mov     r2,a
 288    0109 A3                  288         inc     dptr
 289    010A E0                  289         movx    a,@dptr
 290    010B FB                  290         mov     r3,a
 291    010C A3                  291         inc     dptr
 292    010D E0                  292         movx    a,@dptr
 293    010E F8                  293         mov     r0,a
 294    010F A3                  294         inc     dptr
 295    0110 E0                  295         movx    a,@dptr
 296    0111 F9                  296         mov     r1,a
 297    0112 E5*02               297         mov     a,___long2fs_sloc1_1_0
 298    0114 42 02               298         orl     ar2,a
 299    0116 E5*03               299         mov     a,(___long2fs_sloc1_1_0 + 1)
 300    0118 42 03               300         orl     ar3,a
 301    011A E5*04               301         mov     a,(___long2fs_sloc1_1_0 + 2)
 302    011C 42 00               302         orl     ar0,a
 303    011E E5*05               303         mov     a,(___long2fs_sloc1_1_0 + 3)
 304    0120 42 01               304         orl     ar1,a
 305    0122 EA                  305         mov     a,r2
 306    0123 42 04               306         orl     ar4,a
 307    0125 EB                  307         mov     a,r3
 308    0126 42 05               308         orl     ar5,a
 309    0128 E8                  309         mov     a,r0
 310    0129 42 06               310         orl     ar6,a
 311    012B E9                  311         mov     a,r1
 312    012C 42 07               312         orl     ar7,a
 313    012E 90s00r08            313         mov     dptr,#(___long2fs_fl_1_1)
 314    0131 EC                  314         mov     a,r4
 315    0132 F0                  315         movx    @dptr,a
 316    0133 A3                  316         inc     dptr
 317    0134 ED                  317         mov     a,r5
 318    0135 F0                  318         movx    @dptr,a
 319    0136 A3                  319         inc     dptr
 320    0137 EE                  320         mov     a,r6
 321    0138 F0                  321         movx    @dptr,a
 322    0139 A3                  322         inc     dptr
 323    013A EF                  323         mov     a,r7
 324    013B F0                  324         movx    @dptr,a
 325                             325 ;       _long2fs.c 108
 326    013C 90s00r08            326         mov     dptr,#(___long2fs_fl_1_1)
 327    013F E0                  327         movx    a,@dptr
 328    0140 FA                  328         mov     r2,a
 329    0141 A3                  329         inc     dptr
 330    0142 E0                  330         movx    a,@dptr
 331    0143 FB                  331         mov     r3,a
 332    0144 A3                  332         inc     dptr
 333    0145 E0                  333         movx    a,@dptr
 334    0146 FC                  334         mov     r4,a
 335    0147 A3                  335         inc     dptr
 336    0148 E0                  336         movx    a,@dptr
 337                             337 ; Peephole 191   removed redundant mov
 338    0149 FD                  338         mov  r5,a
 339    014A 8A 82               339         mov  dpl,r2
 340    014C 8B 83               340         mov  dph,r3
 341    014E 8C F0               341         mov  b,r4
 342    0150                     342 00108$:
 343                     0150    343         C$_long2fs.c$109$1$1 ==.
 344                     0150    344         XG$__long2fs$0$0 ==.
 345    0150 22                  345         ret
 346                             346         .area   CSEG    (CODE)