Files
Gen4_R-Car_Trace32/2_Trunk/demo/arm/flash/zedboard-spi64.cmm
2025-10-14 09:52:32 +09:00

223 lines
6.6 KiB
Plaintext

; --------------------------------------------------------------------------------
; @Title: Xilinx ZEDBOARD(ZYNQ-7000) SPI Flash Programming CMM
; @Description:
; SPI Flash(SPANSION, S25FL256) is connected to the PS_MIO1 (CS)
; Code uses OnchipRam Mapped to
; 0xFFFC0000--0xFFFFFFFF
; LQSPI Tx Register : 0xE000D080
; LQSPI Rx Register : 0xE000D020
; LQSPI CS Register : 0xE000D000
;
; Prerequisites:
; * Debugger or Combiprobe is connected to
; 14pin JTAG header using LA-3881 adapter
; * MIO[6..2]=0y00000 - JTAG BOOT
; or
; MIO[6..2]=0y01100 - SD BOOT and remove the SD-Card
; * Please power-cycle the board before executing the script
;
; Note:
; for Flash devices <64MB please adapt the FLASHFILE.CONFIG line (see comment)
;
; @Author: AME JIM
; @Copyright: (C) 1989-2022 Lauterbach GmbH, licensed for use with TRACE32(R) only
; @Chip: Zynq-7000
; @Board: ZedBoard
; @Keywords: Zynq Zynq7000 Spansion S25FL256 flash spi
; --------------------------------------------------------------------------------
; $Id: zedboard-spi64.cmm 10516 2022-02-02 11:39:30Z bschroefel $
; $Rev: 10516 $
LOCAL &arg1
ENTRY &arg1
&arg1=STRing.UPpeR("&arg1") // for example "PREPAREONLY"
LOCAL &ctrl_reg
LOCAL &tx_reg
LOCAL &rx_reg
&ctrl_reg=0xE000D000
&tx_reg=0xE000D080 ;Register TXD1 for the 1-byte instruction
&rx_reg=0xE000D020
;WinCLEAR
SYStem.RESet
RESet
SYStem.CPU ZYNQ-7000
SYStem.MemAccess DAP
; This selects the DAP for accessing the ARM cores
; (accessing the TAP of the FPGA logic requires different settings)
SYStem.CONFIG DAPIRPRE 6.
SYStem.CONFIG DAPIRPOST 0.
SYStem.CONFIG DAPDRPRE 1.
SYStem.CONFIG DAPDRPOST 0.
TrOnchip.Set.RESET OFF
TrOnchip.Set.UNDEF OFF
TrOnchip.Set.DABORT OFF
TrOnchip.Set.PABORT OFF
SYStem.JtagClock Ctck 10.0MHz
CORE.ASSIGN 1.
;SYStem.Mode.Attach
SYStem.Mode.Go
wait 1.s
if STATE.RUN()
break
//disable MMU & Cache
PER.Set C15:0x1 %Long 0x18c52c78
; PC should be around 0xfffc0000--0xffffffff
; SLCR - UNLOCK WRITE
Data.Set ASD:0XF8000008 %Long 0x0000DF0D
; Assert Reset of Second core -> we are save to remap memories
Data.Set ASD:0xF8000244 %LONG 0x2
; MMU disable, Exception Vectors HIGH
Data.Set C15:0x1 %Long 0x18C52478
; OCM_CFG - ALL RAMS HIGH 0xfffc0000
Data.Set AZSD:0xF8000910 %LONG 0x1F
; exception Vectors
Data.Assemble R:0xffff0000 b $+0
Data.Assemble , b $+0
Data.Assemble , b $+0
Data.Assemble , b $+0
Data.Assemble , b $+0
Data.Assemble , b $+0
Data.Assemble , b $+0
; set PC to a endless loop in OCM - prevent issues with XIP mode
Register.Set PC 0xffff0020
Data.Assemble R:0xffff0020 b $+0
//spi pin configuration
Data.Set ASD:0xF8000704 %Long %LE 0x00003302 ; PS_MIO1 -> QSPI1_CS
Data.Set ASD:0xF8000708 %Long %LE 0x00000302 ; PS_MIO2 -> QSPI1_IO0
Data.Set ASD:0xF800070C %Long %LE 0x00000302 ; PS_MIO3 -> QSPI1_IO1
Data.Set ASD:0xF8000710 %Long %LE 0x00000302 ; PS_MIO4 -> QSPI1_IO2
Data.Set ASD:0xF8000714 %Long %LE 0x00000302 ; PS_MIO5 -> QSPI1_IO3
Data.Set ASD:0xF8000718 %Long %LE 0x00002302 ; PS_MIO6 -> QSPI1_CLK
;Data.Set AZSD:0xF800014C %LE %Long 0x2821 ;default clk for qspi
Data.Set AZSD:0xF800014C %LE %Long 0x521 ; 173Mhz clk for qspi
Data.Set AZSD:0xF800012C %LE %Long Data.Long(AZSD:0xF800012C)|0x800000 ; Enable Clock of QSPI
Data.Set AZSD:0xF8000230 %LE %Long 0x3 ; assert RESET
WAIT 100.ms
Data.Set AZSD:0xF8000230 %LE %Long 0x0 ; deassert RESET
WAIT 100.ms
Data.Set AZSD:0xE000D014 %LE %Long 0x0 ; Disable QSPI
Data.Set AZSD:0xE000D000 %LE %Long 0x80020021 ; Configuration SPI, CS0, 8bits, Master Mode
Data.Set AZSD:0xE000D000 %LE %Long Data.Long(AZSD:0xE000D000)|(0x1<<14.) ;manual CS mode
Data.Set AZSD:0xE000D008 %LE %Long 0xFF ; Enable SPI Interupt
Data.Set AZSD:0xE000D0A0 %Long 0x00000003 ; disable LQ_MODE, enable TWO_MEM & SEP_BUS for dual spi devices
Data.Set AZSD:0xE000D028 %Long 0x1
Data.Set AZSD:0xE000D02C %Long 0x1
Data.Set AZSD:0xE000D038 %Long 0x33
Data.Set AZSD:0xE000D014 %LE %Long 0x1 ; Enable QSPI
//FLASH READ ID TEST
AREA.view
GOSUB READ_ID_TEST
DIALOG.YESNO "Is the flash ID correctly shown in the AREA window?"
LOCAL &result
ENTRY &result
IF !&result
(
PRINT "Please check your register configuration to enable your flash controller"
ENDDO
)
//RAM TEST for algorithm file
Data.Test 0xFFFC0000++0x7FFF /Prime
IF FOUND()
(
PRINT "RAM is NOT initialized around 0x" ADDRESS.OFFSET(TRACK.ADDRESS())
ENDDO
)
programFlash:
FLASHFILE.RESet
FLASHFILE.CONFIG 0xE000D080 0xE000D020 0xE000D000
;FLASHFILE.TARGET 0xFFFC0000++0x3FFF EAHB:0xFFFD0000++0x81FF ~~/demo/arm/flash/byte/spi64_zynq7xxx.bin /KEEP /DUALPORT ; 3B address mode
FLASHFILE.TARGET 0xFFFC0000++0x3FFF EAHB:0xFFFD0000++0x81FF ~~/demo/arm/flash/byte/spi4b64_zynq7xxx.bin /KEEP /DUALPORT ; 4B address mode , over > 64MB size
FLASHFILE.GETID
//End of the test prepareonly
IF "&arg1"=="PREPAREONLY"
ENDDO
//Dump window for Serial FLASH
FLASHFILE.DUMP 0x0 ; Also can read the spi flash data at 0xFC00_0000 after LQSPI_CFG.LQ_MODE is enabled
//Erase Serial FLASH
;FLASHFILE.ERASE 0x0--0x47ffff
//Write Serial FLASH
;FLASHFILE.LOAD boot.bin 0x0
;FLASHFILE.LOAD boot.bin 0x0 /ComPare
ENDDO
READ_ID_TEST:
(
LOCAL &data
&data=Data.Long(AD:&ctrl_reg)
PRINT "ctrl_reg : &data "
Data.Set AD:&ctrl_reg %Long (&data&(~(0x1<<10.))) ; cs low
Data.Set &tx_reg %Byte 0x9F
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT " 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set &tx_reg %Byte 0x00
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT "1st : 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set &tx_reg %Byte 0x00
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT "2nd : 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set &tx_reg %Byte 0x00
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT "3rd : 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set &tx_reg %Byte 0x00
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT "4th : 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set &tx_reg %Byte 0x00
&data=Data.Long(AD:&ctrl_reg)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<16.)) ; start cmd
WAIT 1.ms
PRINT "5th : 0x" FORMAT.HEX(2,(Data.Long(AD:&rx_reg)>>24.)&0xFF)
Data.Set AD:&ctrl_reg %Long (&data|(0x1<<10.)) ; cs high
RETURN
)