OpenCores
URL https://opencores.org/ocsvn/gecko3/gecko3/trunk

Subversion Repositories gecko3

[/] [gecko3/] [trunk/] [GECKO3COM/] [gecko3com-fw/] [firmware/] [src/] [_startup.a51] - Rev 21

Go to most recent revision | Compare with Previous | Blame | View Log

;;; -*- asm -*-
;;;
;;; Copyright 2003,2004 Free Software Foundation, Inc.
;;; 
;;; This file is part of GNU Radio
;;; 
;;; GNU Radio is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3, or (at your option)
;;; any later version.
;;; 
;;; GNU Radio is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;; 
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Radio; see the file COPYING.  If not, write to
;;; the Free Software Foundation, Inc., 51 Franklin Street,
;;; Boston, MA 02110-1301, USA.

    
;;; The default external memory initialization provided by sdcc is not
;;; appropriate to the FX2.  This is derived from the sdcc code, but uses 
;;; the FX2 specific _MPAGE sfr.


        ;; .area XISEG   (XDATA)  ; the initialized external data area
        ;; .area XINIT   (CODE)   ; the code space consts to init XISEG
        .area XSEG    (XDATA)     ; zero initialized xdata
        .area USBDESCSEG (XDATA)  ; usb descriptors

        
        .area CSEG    (CODE)

        ;; sfr that sets upper address byte of MOVX using @r0 or @r1
        _MPAGE  =       0x0092

__sdcc_external_startup::
        ;; This system is now compiled with the --no-xinit-opt 
        ;; which means that any initialized XDATA is handled
        ;; inline by code in the GSINIT segs emitted for each file.
        ;; 
        ;; We zero XSEG and all of the internal ram to ensure 
        ;; a known good state for uninitialized variables.

;       _mcs51_genRAMCLEAR() start
        mov     r0,#l_XSEG
        mov     a,r0
        orl     a,#(l_XSEG >> 8)
        jz      00002$
        mov     r1,#((l_XSEG + 255) >> 8)
        mov     dptr,#s_XSEG
        clr     a
        
00001$: movx    @dptr,a
        inc     dptr
        djnz    r0,00001$
        djnz    r1,00001$
        
        ;; We're about to clear internal memory.  This will overwrite
        ;; the stack which contains our return address.
        ;; Pop our return address into DPH, DPL
00002$: pop     dph
        pop     dpl
        
        ;; R0 and A contain 0.  This loop will execute 256 times.
        ;; 
        ;; FWIW the first iteration writes direct address 0x00,
        ;; which is the location of r0.  We get lucky, we're 
        ;; writing the correct value (0)
        
00003$: mov     @r0,a
        djnz    r0,00003$

        push    dpl             ; restore our return address
        push    dph

        mov     dpl,#0          ; indicate that data init is still required
        ret

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.