; @Changelog: 
; --------------------------------------------------------------------------------
; @Title: Linux Demo for TRACE32 OS Awareness on the phyCORE-i.MX31
; @Description: 
;   The example is generated for the phyCORE-i.MX31 board using an ICD.
;   It will NOT run on any other board, but may be used as a template
;   for others.
;   Linux is downloaded to the board via ICD.
; @Keywords: awareness, imx3*, Linux, phycore, i.mx3*
; @Author: DIE
; @Board: phyCORE-i.MX31
; @Chip: IMX31
; @Copyright: (C) 1989-2019 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: imx31_linux.cmm 15223 2019-11-05 16:29:45Z bschroefel $


; PLEASE NOTE: Add "jtag=on" to the command line parameters, to prevent
;              Linux from goint into wait mode (which spoils JTAG).

; Starting Linux example with TRACE32 and terminal:
; - Connect STRAIGHT modem cable to UARTC (upper connector)
; - Start TRACE32
; - Open console terminal: 115200 baud, 8/N/1, no(!) handshake
; - Switch on the board
; - (T32) "do linux"

LOCAL &ka_path &awareness

 SCREEN.ON


; Debugger Reset

 WinPAGE.RESet
 AREA.RESet
 WinPOS 0. 26. 75. 8. 0. 0. W000
 AREA.view
 
 PRINT "resetting..."
 
 RESet


; Initializing Debugger
 
 PRINT "initializing..."
 SYStem.CPU MCIMX31             ; set your CPU here
 SYStem.Option DACR ON          ; give Debugger global write permissions
 SYStem.Option ResBreak OFF     ; board specific, see documentation
 SYStem.JtagClock RTCK          ; board specific, see documentation
 TrOnchip.Set DABORT OFF        ; used by Linux for page miss!
 TrOnchip.Set PABORT OFF        ; used by Linux for page miss!
 TrOnchip.Set UNDEF OFF         ; my be used by Linux for FPU detection
 SYStem.Option MMUSPACES ON     ; enable space ids to virtual addresses
 
 SYStem.Up

 SETUP.IMASKASM ON              ; lock interrupts while single stepping
 

; Target Setup: initialize board memory access and peripherals
 PRINT "target setup..."

 ; let the boot monitor setup the board
     Go
     WAIT 2.s
     Break

 DO atag_list
; Load the Linux kernel

 ; If you are using a flashed kernel, or if you're loading 
 ; your kernel via TFTP, use the boot monitor to do so.
 
 ; Use the next lines (loading the kernel, setting registers
 ; and boot parameters) only to load the kernel into
 ; RAM using the debugger.

 ; vmlinux starts physically at RAM start + 0x8000 
 ; We have to adjust it from the virtual start address 
 ; to the physical start address
 ; i.e.: Data.LOAD.Elf vmlinux <physical start>-<virtual start>

 PRINT "loading Linux kernel..."
 Data.LOAD.Elf vmlinux 0x80008000-0xC0008000 /NosYmbol

 Register.RESet

 ; Set PC on start address of image
 Register.Set PC 0x80008000
 
 ; Set machine type in R1; see arch/arm/tools/mach-types
 Register.Set R1 0x01BF
 
 ; Set boot parameter tags for linux boot
 ;do atag_list


; Loading initial ram disk (initrd)

 ; Use the next lines only, if you want to use an initrd,
 ; and if you want to download this with the debugger.

 ; Load ram file system image into ram disk
 ; The load address is either hardcoded in arch/arm/<board>/arch.c,
 ; or must be passed by a boot parameter, or as command line option
 
 PRINT "loading ramdisk..."
 Data.LOAD.Binary ramdisk.image.gz 0x80800000 /NoClear /NosYmbol
 

; Load the Linux kernel symbols into the debugger
 ; use /strippart and /path to map source paths, if necessary
 
 PRINT "loading Linux kernel symbols..."
 Data.LOAD.Elf vmlinux /NoCODE /StripPART 4 /PATH "S:\"


; Open a Code Window -- we like to see something

 WinPOS 0. 0. 75. 20.
 List.auto
 SCREEN.display
 
 Go __init_end /Onchip
 PRINT "initializing target and debugger MMU..."
 WAIT !STATE.RUN() 

; Declare the MMU format to the debugger
 ; - table format is "LINUX"
 ; - table base address is at label "swapper_pg_dir"
 ; - kernel address translation
 ; Map the virtual kernel symbols to physical addresses to give 
 ; the debugger access to it before CPU MMU is initialized

 PRINT "initializing debugger MMU..."
 MMU.FORMAT LINUX swapper_pg_dir 0xc0000000--0xc7ffffff 0x80000000
 TRNASlation.COMMON 0xbf000000--0xffffffff            ; common area for kernel and processes
 TRNASlation.TableWalk ON
 TRNASlation.ON             ; switch on debugger(!) address translation 
 

 ; Initialize Linux Awareness

 ; Note that the Linux awareness needs the kernel symbols to work
 
 ; check linux major version
 IF STRing.SCAN(Data.STRing(linux_banner), "Linux version 2.", 0)==0
 (
     &ka_path="~~/demo/arm/kernel/linux/linux-2.x"
     &awareness="linux.t32"
 )
 ELSE
 (
     &ka_path="~~/demo/arm/kernel/linux/linux-3.x"
     &awareness="linux3.t32"  
 )
 
 PRINT "initializing RTOS support..."
 TASK.CONFIG &ka_path/&awareness               ; loads Linux awareness 
 MENU.ReProgram &ka_path/linux            ; loads Linux menu 
  
 
 ; Group kernel area to be displayed with red bar
 GROUP.Create "kernel" 0xc0000000--0xffffffff /RED


; If you'd like to use the TRACE32 internal terminal:
 ;do ~~/demo/etc/terminal/serial/term.cmm COM1 115200.


; Ok, we're done, let's start Linux
 
 Go
 PRINT "starting Linux... (please wait)"
 WAIT 8.s
 Break
 
 PRINT "done."     ; done with loading and starting Linux


; --------------------------------------------------------------------------------
; Application Debugging 
; e.g. "hello"
; --------------------------------------------------------------------------------

 ; activate autoloader for processes:
 ;TASK.sYmbol.Option AutoLoad Process

; print "please log in and start 'hello'"

 ; script based
   ; using the script based application debugging
   ; gives more control over the single commands
   ; see file "app_debug.cmm"
   
 ;  do ../app_debug hello
   
 ; process watch system
   ; the process watch system automates the actions
   ; for application debugging
   
   ;WINPOS 55. 25. 40. 4.
   ;TASK.Watch.View "hello"
   ;Go

 ENDDO

