t32.men

arm的仿真软件

                     if dialog.boolean(b.cb)
                             dialog.set b.bb
               )

               &bpused="AlphaBreak"
               if dialog.boolean(b.bb)
                  &bpused="BetaBreak"
               if dialog.boolean(b.cb)
                  &bpused="CharlyBreak"

               &addr=dialog.string(addr)
               if "&addr"!=""
               (
                 if dialog.boolean(hllp)
                    &addr="v.range(""&addr"")"
                 else if dialog.boolean(rangep)
                    &addr="y.range(""&addr"")"
                 &addrdecl="addr &bpused &addr"

                 if  FIRE()&&CPU()=="M68372"
                 (
                     if  P:FASBASE.ADDRESS()!=P:0x0ffffffff
                     (
                         if   (P:FASBASE.ADDRESS()<=P:(&addr))&&(P:(&addr)<=(P:FASBASE.ADDRESS()+0x7fff))
                              &VBus="YES"
                         else if (P:(&addr)<P:FASBASE.ADDRESS())||(P:FASBASE.ADDRESS()+0x7fff)<P:(&addr)
                              &VBus="NO"
                         else ; not only VBUS or XBUS address area
                         (
                              beep 5.
                              print "address range error: address overlaps XBUS and VBUS : &addr"
                              enddo
                         )
                     )
                 )
               )


               if dialog.boolean(a.read)
               (
                  if   "&VBus"=="YES"
                       &trigger="&bpused&&VBUS&&VRead"
                  else if "&VBus"=="NO"
                       &trigger="&bpused&&XBUS&&Read"
                  else
		       &trigger="&bpused&&Read"
               )
               else if dialog.boolean(a.write)
               (
                  if   "&VBus"=="YES"
                       &trigger="&bpused&&VBUS&&VWrite"
                  else if "&VBus"=="NO"
                       &trigger="&bpused&&XBUS&&Write"
                  else
		       &trigger="&bpused&&Write"
               )
               else
               (
                  if   "&VBus"=="YES"
                       &trigger="&bpused&&VBUS"
                  else if "&VBus"=="NO"
                       &trigger="&bpused&&XBUS"
                  else
		       &trigger="&bpused"
               )

               &tdelay=dialog.string(delay)

               &tracetrigger="TRUE"

               if dialog.boolean(hllrec)
               (
                  Break.Delete /Charly
                  Break.SetLine /Charly /NPreFetch
                  &tracetrigger="CharlyBreak"
               )

               if !(a.config.hac())
               (
                  Analyzer.ReProgram
                  (
                              &addrdecl
                              event delay         &tdelay
                     start:
                              Sample.Enable       if &trigger
                              Mark.A              if &trigger
                              CONTinue            if &trigger
                     occured:
                              Sample.Enable       if &tracetrigger
                              Count.Enable  delay if &tracetrigger
                              Count.Restart delay if delay
                              GOTO start          if delay
                  )
               )
               if a.config.hac()
               (
;              this differentiation won't be necessary in the future anymore
                  Analyzer.ReProgram
                  (
                              &addrdecl
                              event delay         &tdelay
                     start:
                              Sample.Enable       if &trigger
                              Mark.A              if &trigger
                              CONTinue            if &trigger
                     occured:
                              Sample.Enable
                              Count.Enable delay
;                             currently not supported from HAC 
;                             Count.Restart delay if delay
                              GOTO start          if delay
                  )
               )
               print "Analyzer programmed."
;           v   end button OK
            )
            )
            dialog.set b.ab
            dialog.set a.any
            if a.config.hac()
            (
;              v  currently not supported from HAC
               dialog.disable b.bb
               dialog.disable b.cb
               dialog.disable hllrec
            )
;     v  end menuitem  multiple trace after
      )
    )


;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    popup "[:alist]&List"
    (
      default
      menuitem "&Default"                   "Trace.List"
      menuitem "&All"                       "Trace.List ALL"
      menuitem "HLL Source &Only"           "Trace.List List.HllOnly List.TIme ti.ref"
      menuitem "MIX Source Only"            "Trace.List List.Mix List.ADDRESS List.Label List.Comment List.NoFetch List.TIme ti.ref"
      menuitem "&HLL Source and Data"       "Trace.List run address cycle data symbol ti.ref l.hll l.nf l.ti"
      menuitem "&MIX Source and Data"       "Trace.List run address cycle data symbol ti.ref l.mix List.Label List.ADDRESS List.Comment List.NoFetch List.TIme"
      menuitem "HLL Source Data and &Vars"  "Trace.List run address cycle data var ti.ref l.hll l.nf l.ti"
      menuitem "[:correlate]&Tracking with Source"
      (
         Data.List E: /Track
         TRace.List
      )
      menuitem "[:alistcts]List &Context Tracking System" "Analyzer.CTS.List"
    )
;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    popup "[:atiming]&Timing"
    (
      default
      menuitem "&Default"                   "Trace.Timing"
      menuitem "&All"                       "Trace.Timing ALL"
      menuitem "[:correlate]&Tracking with List and Source"
      (
         Data.List E: /Track
         Trace.List /Track
         Trace.Timing ALL /Track
      )
    )
    popup "[:achart]&Chart"
    (
      default
      menuitem "&Symbols"                   "Trace.Chart.sYmbol"
      menuitem "[:correlate]&Tracking with List and Source"
      (
         Data.List E: /Track
         Trace.List /Track
         Trace.Chart.sYmbol /Track
      )
    )
    addhere
    separator
;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    menuitem "&Reset"                       "Trace.RESet"
  )
; ----------------------------------------------------------------------
;   Perf pulldown submenue
; ----------------------------------------------------------------------
  popup "&Perf"
  (
    default
    menuitem "[:pconfig]Perf &Configuration..."    "PERF"
    menuitem "[:pperf]Perf &List"                  "PERF.List"
    menuitem "[:pperf]Perf List Dynamic"           "PERF.List DYNamic"
    separator
    menuitem "[:off]Perf &Off"                     "PERF.Mode OFF"
    separator
    separator

    popup "&Function Runtime"
    (
      menuitem "&Prepare"
      (
	if t.method.analyzer()
	(
         Analyzer.AutoInit on
         Analyzer.STATistic.PreFetch on
	)

        Break.Delete /Alpha /Beta /Charly

	if (ice()||fire())&&!a.mode.flow()
        (
        if a.config.hac()
        (
               Analyzer.ReProgram
               (
               Sample.Enable if AlphaBreak
               Sample.Enable if BetaBreak
               Mark.A        if AlphaBreak
               Mark.B        if BetaBreak
               )
        )
        else
        (
               Analyzer.ReProgram
               (
                 Sample.Enable if AlphaBreak||BetaBreak
                 Mark.A if AlphaBreak
                 Mark.B if BetaBreak
               )
        )
	)

        Break.SetFunc
      )
      addhere
      menuitem "[:perf]Show &Numerical"          "Trace.STATistic.FUNC"
      menuitem "[:perf]Show as &Tree"            "Trace.STATistic.TREE"
      menuitem "[:perf]Show &Detailed Tree"      "Trace.STAT.TREE ALL"
      menuitem "[:achart]Show as T&iming"        "Trace.CHART.FUNC"
      menuitem "[:alist]Show N&esting"           "Trace.List FUNC TI.FUNC"
    )
    popup "&Distribution"
    (
      menuitem "[:perf]Show &Numerical"          "Trace.STATistic.DistriB Data"
      menuitem "[:achart]Show as &Timing"        "Trace.CHART.DistriB Data"
      menuitem "[:perf]Show &Detailed"           "Trace.STATistic.DistriB Data /List ALL"
    )
    popup "&Duration A to B"
    (
      enable ice()||fire()
      menuitem "&Prepare"
      (
        if a.config.hac()
        (
               Analyzer.ReProgram
               (
               Sample.Enable if AlphaBreak
               Sample.Enable if BetaBreak
               Mark.A        if AlphaBreak
               Mark.B        if BetaBreak
               )
        )
        else
        (
               Analyzer.ReProgram
               (
                 Sample.Enable if AlphaBreak||BetaBreak
                 Mark.A if AlphaBreak
                 Mark.B if BetaBreak
               )
        )
      )
      menuitem "[:perf]Show &Numerical"		"Trace.STATistic.DURation"
      menuitem "[:aprofile]Show as &Timing"	"Trace.Chart.DURation"
    )
    popup "D&istance trace records"
    (
      menuitem "[:perf]Show &Numerical"		"Trace.STATistic.DIStance"
      menuitem "[:aprofile]Show as &Timing"	"Trace.Chart.DIStance"
    )
    addhere
    separator
    menuitem "&Reset"
    (
       perf.reset
       Break.Delete /Alpha /Beta /Charly
       if ice()||fire()
          Analyzer.rp
    )
  )

; ----------------------------------------------------------------------
;   Cov pulldown submenue
; ----------------------------------------------------------------------
  popup "C&ov"
  (
    enable flag()
    menuitem  "[:flag]List Ranges"         "Flag.List"
    default
    enable flag()
    menuitem "[:flag]List Functions"       "Flag.ListFunc"
    enable flag()
    menuitem "[:flag]List Modules"         "Flag.ListModul"
    enable flag()
    menuitem "[:flag]List Variables"       "Flag.ListVar"
    separator
    enable flag()
    menuitem "Reset"                       "Flag.Init"
    separator
    menuitem "[:coverage]List Ranges"      "Trace.COVerage.List"
    menuitem "[:coverage]List Functions"   "Trace.COVerage.ListFunc"
    menuitem "[:coverage]List Modules"     "Trace.COVerage.ListModule"
    addhere   
    separator
    menuitem "[:coveragenew]&Add Tracebuffer" "Trace.COVerage.ADD"
    separator
    menuitem "Reset"                       "Trace.COVerage.RESet"
  )
  addhere

; ----------------------------------------------------------------------
;   Window pulldown submenue
; ----------------------------------------------------------------------
  popup "&Window"
  (
    menuitem "Create Duplicate window"       "winduplicate"
    menuitem "[:remove]Clear Windows on &Page"        "winclear"
    menuitem "[:removeall]Clear &all Windows"            "Winpage.Reset"
    separator
    menuitem "[:save]S&tore Windows to ..."         "STOre * Win"
    menuitem "[:load]&Load Windows from ..."        "do *"
  )

; ----------------------------------------------------------------------
;   Help pulldown submenue
; ----------------------------------------------------------------------
  popup "&Help"
  (
    default
    menuitem "&Contents"                    "HELP"
    menuitem "[:help]&Topics"               "HELP.Topics"
    menuitem "T&ree"                        "HELP.Tree"
    separator
    menuitem "&Operating System User Manual"  "HELP _OS"
    separator
    if ice()
    (
      menuitem "&ICE Target Manual"          
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_001 
      )
      menuitem "ICE &User Manual"             "HELP emu:"
    )
    else
    (
    if fire()
    (
      menuitem "&FIRE Target Manual"          
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_001 
      )
      menuitem "FIRE &User Manual"            "HELP fire:"
    )
    else
    (
      menuitem "ICD &Target Manual"
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_001
      )
      menuitem "ICD &User Manual"             "HELP bdm:"
    )
    )
    enable analyzer()
    menuitem "&Analyzer User Manual"          "HELP _ANALYZER"
    addhere
    separator
    enable ta32()
    menuitem "Timing Analyzer User Manual"   "HELP _TA"
    enable powerprobe()
    menuitem "Power Probe User Manual"   "HELP __PP"
    enable stg()
    menuitem "Stimuli Generator User Manual"   "HELP _STG"
    separator
    menuitem "[:t32]About TRACE32..."          "VERSION"
  )
)
;======================================================================
;======================================================================