men563.men

trace32调试器附带的指令集模拟器

	add
 	menu
 	(
		popup "MPC563"
		(
			menuitem "BBC"                "PER , ""BBC"""
			menuitem "USIU"               "PER , ""USIU"""
			menuitem "L2U"                "PER , ""L2U"""
			menuitem "UIMB"               "PER , ""UIMB"""
			menuitem "QADC-A"             "PER , ""QADC-A"""
			menuitem "QADC-B"             "PER , ""QADC-B"""
			menuitem "QSMC"               "PER , ""QSMC"""
			menuitem "TOUCAN-A"           "PER , ""TOUCAN-A"""
			menuitem "TOUCAN-B"           "PER , ""TOUCAN-B"""
			menuitem "TOUCAN-C"           "PER , ""TOUCAN-C"""
			menuitem "MIOS"               "PER , ""MIOS"""
			menuitem "PPM"                "PER , ""PPM"""
			menuitem "TPU-A"              "PER , ""TPU-A"""
			menuitem "TPU-B"              "PER , ""TPU-B"""
			menuitem "DPTRAM"             "PER , ""DPTRAM"""
			menuitem "CALRAM"             "PER , ""CALRAM"""
			menuitem "Development Port"   "PER , ""Dev"""
			separator
			menuitem "TPU Registers"      "tpu"
			separator
			menuitem "Erase Flash"
			(
				local &result
				dialog.yesno "Erase whole Flash ? "
				entry &result
				if &result
				    flash.erase all
			)
			menuitem "Program Reset Configuration Word"
			(
 				local &cmfmcr &cmfmcr_shadow
				local &ISBbase
				&ISBbase=(((data.long(spr:27e))&0x0e)*0x200000)
				&cmfmcr=data.long(D:(&ISBbase+0x2FC800))
				&cmfmcr_shadow=&cmfmcr|0x08000000
				d.s (&ISBbase+0x2fc800) %long &cmfmcr_shadow
				&cword=d.l(d:(&ISBbase+0x0))
				if &cword!=0x0FFFFFFFF
				(
				   dialog.ok "Shadow Area not Erased. Must erase first Flash block !"
				   enddo
				)

				dialog
				(
				  header "Program Reset Configuration Word"
				  pos 0. 0. 22. 3.
				  box "Reset Configuration Word"
				  pos 1. 1. 20. 1.
				  cword: defedit "0x0" "continue"
				  pos 1. 3. 9.
				  defbutton "Ok" "continue"
				  pos 12. 3.
				  button "Cancel"
				  (
				    dialog.end
				    enddo
				  )
				)

				stop

				&cword=dialog.string(cword)
				dialog.end

				flash.program 1.
				d.s (&ISBbase+0x0) %l &cword
				flash.program off

				if &cword!=data.long(D:(&ISBbase+0x0))
				(
				  dialog.ok "Verify failed !"
				  enddo
				)

				if (data.long(D:(&ISBbase+0x0))&0x800)!=0x0
				   print "Data programmed successfully, Configuration is enabled"
				else
				   print "Data programmed successfully, Configuration is disabled"

				d.s (&ISBbase+0x2fc800) %long &cmfmcr&0x0F7FFFFFF
				enddo
			)
			menuitem "Enable Flash Programming"
			(
				flash.program all
				print "Flash programming enabled"
			)
			menuitem "Disable Flash Programming "
			(
				flash.program
				print "Flash programming disabled"
			)
		)
   	)