jnload.cmm

QUALCOMM JNAND DRIVER

;============================================================================
;  Name:
;    JNLOAD.CMM
;
;  Description:
;    NAND FLASH Programming Script file for Lauterbach JTAG/ICD TRACE32.
;  Usage:
;    do jnload <ELF_FILE>
;    ;ex do jnload SNTA
;
;
; Copyright (c) 2003 by QUALCOMM, Incorporated.  All Rights Reserved.
;----------------------------------------------------------------------------

;============================================================================
;
;                        EDIT HISTORY FOR MODULE
;
; $Header: //depot/asic/msm6250/build/ms/jnload.cmm#6 $ $DateTime: 2003/10/28 13:17:50 $ $Author: dionh $
;
; when       who     what, where, why
; -------    ---     --------------------------------------------------------
;10/24/03    drh     Modify to call JNAND from tools directory.  JNLOAD becomes
;                    merely a user interface shell.  JNAND does all
;                    the work.
;09/16/03    drh     Expanded code area from 8mb to 10mb
;05/23/03    drh     Expanded code area from 6mb to 8mb
; 2/21/03    hromero Created from jnand.cmm ,sdramdebug.cmm & sdramdebug2.cmm
;            and jload.cmm

global &ELFname


;============================================================================
; Get the Elf filename and directory to pass to JNAND.  If not given,
; JNAND will open a file chooser dialog.
;============================================================================
ENTRY &ELFname


; Ensure that if JNAND fails, we come back to the build\ms directory
on error gosub
 (
   cd ..\..\build\ms
   enddo
   return
 )


;--------------------------------------------------------
; Go run the actual JNAND
;--------------------------------------------------------
cd ..\..\tools\jnand

do jnand NOMENU &ELFname


;--------------------------------------------------------
; ok we're finished completely, clean up for exit.
;
; Do anything here that is useful for a user who will
; be debugging the image just loaded.
;--------------------------------------------------------

cd ..\..\build\ms                           
map.reset                                   
b.d                                         
sys.u                                       

; The following turns off flash on camera   
d.out 0x84000150 %long 0x2000               
                                            
r.s pc 0xffff0000                           
b.s 0 /onchip                               
g                                           
wait !run()                                 
r.s pc 0                                    
b.s 0                                       
b.s 4                                       
b.s 8                                       
b.s 0c                                      
b.s 0x10                                    
b.s 0x14                                    
b.s err_fatal_put_log                       
tronchip.set RESET off                      
setup.var %m.1                              
print "Finished programming NAND Flash"      
d.l                                         


enddo