t32.men

arm的仿真软件

;======================================================================
;
; Programming file for standard pulldown menu and speedbar
; (c) Copyright by Lauterbach Datentechnik, 1996,1997,1998
;     Enhanced version by JDT JbergDatenTechnik 97/98
;
;======================================================================
;Default menues for ICE and ICD
;NOTE: change this file only if want to change the default menues
;Adding buttons or menues and replacing single entries can be done
;without changing this file (see description of ADD item in MENU command).

;======================================================================
;  Speedbar definition
;======================================================================

toolbar
(
 separator
 toolitem "Single Step"                ":step"          "Step"
 toolitem "Step Over Call"             ":stepover"      "Step.Over"
 separator
 toolitem "Go Next"                    ":gonext"        "Go.Next"
 toolitem "Go Till Return"             ":goreturn"      "Go.Return"
 toolitem "Go Up"                      ":goup"          "Go.Up"
 separator
 toolitem "Go"                         ":go"            "Go"
 toolitem "Break"                      ":brk"           "Break"
 separator
 toolitem "Toggle Mixed/HLL Mode"      ":mode"          "Mode"
 separator
 toolitem "Help Topics"                ":help"          "help.topics"
 toolitem "Help Context"               ":helpc"         "help.pick"
 separator
 toolitem "Stop Command"               ":stop"          "STOP"
 separator
)
;======================================================================
;  Top pulldown menue definiton
;======================================================================

menu
(
; ----------------------------------------------------------------------
;   File pulldown submenue 
; ----------------------------------------------------------------------
  popup "&File"
  (
    menuitem "[:edit]&Open..."          "EDIT *.*"
    menuitem "[:edit]Open Batchfile..." "CD.PEDIT *"
    menuitem "[:practice]&Batchfile..." "CD.DO *"
    menuitem "[:load]&Load..."          "D.LOAD *"
    menuitem "[:text]&Type..."          "TYPE *.*"
    menuitem "[:dump]D&ump..."          "DUMP *.*"
    addhere
    separator
    menuitem "[:stop]Stop Command"      "STOP"
    separator
    popup "&Print"
    (
      menuitem "[:printer]Printer Selection..."  "PRinTer"
      menuitem "[:camera]&Hardcopy"              "PRT.HC"
    )
    separator
    menuitem "[:exit]e&xit"                    "QUIT"
  )
; ----------------------------------------------------------------------
;   Edit pulldown submenue
; ----------------------------------------------------------------------
  popup "&Edit"
  (
    menuitem "[:save]Save &All Editor Files"   "edit.save"
    menuitem "[:edit]&List all Editor Files"   "edit.list"
    separator
    menuitem "[:find]&Grep in Source Files..." "Data.GREP """" """" /Word /Case"
  )
; ----------------------------------------------------------------------
;   View pulldown submenue
; ----------------------------------------------------------------------
  tearoff
  popup "&View"
  (
    menuitem "[:reg]&Registers"          "Register"
    menuitem "[:dump]&Dump..."           "Data.dump"
    default
    menuitem "[:list]List &Source"       "Data.List"
    menuitem "[:varwatch]&Watch"         "Var.Watch"
    menuitem "[:varref]Re&ferenced Var"  "Var.Ref"
    menuitem "[:varlocal]&Locals"        "Var.Local"
    menuitem "[:varframe]Stackframe with Locals" "Var.Frame /Locals /Caller"
    menuitem "[:varframe]Stackframe"     "Var.Frame"
    menuitem "[:chip]&Peripherals"       "PER"
    popup "[:symbols]S&ymbols"
    (
     default
     menuitem "&Browse"                  "sYmbol.Browse"
     menuitem "Browse &Modules"          "sYmbol.Browse.Module"
     menuitem "Browse &Functions"        "sYmbol.Browse.Function"
     menuitem "Browse &Variables"        "sYmbol.Browse.Var"
     menuitem "Symbols Tree View"        "sYmbol.List.TREE"
     menuitem "Symbols by name"          "sYmbol"
     menuitem "Symbols by address"       "sYmbol.List"
     menuitem "&Sections"                "sYmbol.List.Section"
     menuitem "&Types"                   "sYmbol.List.Type"
     menuitem "Source Search Paths"      "sYmbol.SPATH.List"
     menuitem "Overview"                 "sYmbol.STATE"
     menuitem "Details of Symbol"        "sYmbol.INFO *"
    )
    menuitem "[:alist]Trace List"        "Trace.List"
    menuitem "[:area]Messa&ge Area"      "AREA"
  )
 
; ----------------------------------------------------------------------
;   Var pulldown submenue
; ----------------------------------------------------------------------
  popup "Var"
  (
    menuitem "[:varwatch]W&atch..."      "Var.AddWatch *"
    menuitem "[:var]&View..."            "Var.View *"
    menuitem "[:view]&Data View..."      "Data.View %var *"
    menuitem "[:breaknew]&Breakpoint..."    "Var.Break.Set"
    menuitem "[:list]Show &Function..."  "sYmbol.Browse.Function * /Click ""Data.List *"" /Delete"
    menuitem "[:varwatch]Show Watch"          "Var.AddWatch"
    menuitem "[:varlocal]Show Locals"         "Var.Local"
    menuitem "[:varframe]Show Stack"     "Var.Frame /Locals /Caller"
    menuitem "[:varref]Show Current Vars"   "Var.REF"
    separator
    enable ice()||fire()
    popup    "[:atrigger]&Trace on Var ..."
       (
           menuitem "Trace on &Write..."
           (
             winpos ,,,,,, tracevar
             sYmbol.b.v * /Click "gosub tracevar *"
             stop
tracevar:
             local &varname
             entry &varname
	     if cpubondout()!=""&&fire()
	     (
             Analyzer.ReProgram
             (
               addr AlphaBreak v.range(&varname) /write
               Sample.Enable if AlphaBreak
             )
	     )
	     else
	     (
             Analyzer.ReProgram
             (
               addr AlphaBreak v.range(&varname)
               Sample.Enable if AlphaBreak&&Write
             )
	     )
             print "Analyzer programmed to trace &varname ..."
             wclear tracevar
             enddo
           )

           menuitem "Trace on &Read..."
           (
             winpos ,,,,,, tracevar
             sYmbol.b.v * /Click "gosub tracevar *"
             stop
tracevar:
             local &varname
             entry &varname
	     if cpubondout()!=""&&fire()
	     (
             Analyzer.ReProgram
             (
               addr AlphaBreak v.range(&varname) /Read
               Sample.Enable if AlphaBreak
             )
	     )
	     else
	     (
             Analyzer.ReProgram
             (
               ADDR AlphaBreak v.range(&varname)
               Sample.Enable if AlphaBreak&&Read
             )
	     )
             print "Analyzer programmed to trace &varname ..."
             wclear tracevar
             enddo
           )

           menuitem "&Trace on Access..."
           (
             winpos ,,,,,, tracevar
             sYmbol.b.v * /Click "gosub tracevar *"
             stop
tracevar:
             local &varname
             entry &varname
             Analyzer.ReProgram
             (
               ADDR AlphaBreak v.range(&varname)
               Sample.Enable if AlphaBreak
             )
             print "Analyzer programmed to trace &varname ..."
             wclear tracevar
             enddo
           )
       )
    enable ice()||fire()
    menuitem "&Clear Trace Setup"
    (
      Break.Delete /Alpha
      Analyzer.ReProgram
      print "Analyzer programmed to trace everything ..."
      enddo
    )
    separator
    menuitem "[:varconfig]&Format..." "setup.var"
  )

; ----------------------------------------------------------------------
;   Break pulldown submenue
; ----------------------------------------------------------------------
  popup "&Break"
  (
    menuitem "[:breaknew]&Set..."   "Break.Set"
    default
    menuitem  "[:break]&List"            "Break.List"
    if   ICE()
    (
         enable (cpubondout()=="C167E1"||cpubondout()=="C167E2"||cpubondout()=="C167E3")
         menuitem  "[:break]&List bondoutbreaks" "Break.List /allop"
    )
    menuitem "[:config]Implementation..."  "Break.SELect"
    separator
    menuitem "[:removeall]Delete &All"      "Break.Delete /anh"
    separator
    separator
    if ICE()
    (
      menuitem "[:trigger]Main &Trigger..."      "TrMain"
    )
    else
    (
      menuitem "[:trigger]&Trigger Bus..."       "TrBus"
    )
    menuitem "[:tronchip]&OnChip Trigger..."     "TrOnchip"
    enable ice()
    menuitem "&Event Trigger..."        "TrEvent"
    enable ice()
    menuitem "E&xternal Trigger..."     "TrIn"
    separator
    menuitem "Trigger Reset"
    (
       Trigger.Reset
       TrOnchip.Reset
       if ICE()
       (
          TrEvent.Reset
          TrIn.Reset
       )
    )
  )

; ----------------------------------------------------------------------
;   Run pulldown submenue
; ----------------------------------------------------------------------
  tearoff 
  popup "&Run"
  (
    default
    menuitem "[:step]&Step,F2"             "Step"
    menuitem "[:stepover]Step &Over Call,F3" "Step.Over"
    separator
    menuitem "[:gonext]Go &Next,F4"        "Go.Next"
    menuitem "[:goreturn]Go &Ret,F5"       "Go.Return"
    menuitem "[:goup]Go &Up,F6"            "Go.Up"
    menuitem "[:gotill]Go &Till..."        "Go *"
    menuitem "[:go]&Go,F7"                 "Go"
    menuitem "[:brk]&Break,F8"             "Break"
    separator
    menuitem "[:mode]&Mode,F9"             "Mode"
  )

; ----------------------------------------------------------------------
;   CPU pulldown submenue
; ----------------------------------------------------------------------
  popup "&CPU"
  (
    popup    "Register Set Change"
    (
       menuitem "[:backtree]Register &Up"      "Register.Up"
       menuitem "[:downtree]Register &Down"  "Register.Down"
       separator
       menuitem "[:copy]Register &Copy"           "Register.COPY"
       menuitem "[:paste]Register &Swap"           "Register.SWAP"
       separator
       menuitem "[:undo]Register Undo"     "Register.UNDO"
       menuitem "[:redo]Register Redo"     "Register.REDO"
     )
    separator
    menuitem "[:reg]&CPU Registers"     "Register"
    menuitem "[:fpureg]&FPU Registers"           "fpu"
    menuitem "[:chip]&Peripherals"      "PER"
    separator
    menuitem "[:econfig]E&xception Control"       "eXception"
    default
    menuitem "[:config]S&ystem Settings..."      "SYStem"
    enable ice()||fire()
    menuitem "[:compound]Cl&ock Frequency"
    (
      c.res 
      winpos ,,,4.
      Count
      enddo
    )
    enable ice()||fire()
    menuitem "[:compound]Set Clock Fre&quency..."  "vco"
    separator
    enable ice()||fire()
    menuitem "&Standalone Reset"        "SYStem.Mode AloneInt"
    menuitem "&In Target Reset"
    (
	SYStem.Mode EmulExt
	Register.RESet
    )
    menuitem "&Reset CPU Registers"     "Register.RESet"

  )

; ----------------------------------------------------------------------
;   Misc pulldown submenue
; ----------------------------------------------------------------------
  popup "&Misc"
  (
    enable ice()||fire()||simulator()
    menuitem "[:compound]&Vco Oscillator"       "VCO"
    default
    menuitem  "[:compound]Frequency &Counter"   "Count"
    enable ice()||fire()
    menuitem "[:compound]&Pulse Generator"      "PULSE"
    enable ice()||fire()
    menuitem "[:compound]Pulse Generator &2"    "PULSE2"
    menuitem "[:time]&Runtime"                  "RunTime"
    separator
    menuitem "[:map]&Memory Map"                "Map.List"
    separator
    menuitem "[:flash]&Flash Programming"       "FLASH.List"
    separator
    menuitem "[:colors]&Choose Colors..."       "SETUP.COLOR"
    menuitem "[:config]&Ethernet Config..."     "IFCONFIG"
  )

; ----------------------------------------------------------------------
;   Trace pulldown submenue
; ----------------------------------------------------------------------

  popup "&Trace"
  (
    default
    menuitem  "[:aconfig]&Configuration..." "Trace"
if etm()
(
    menuitem  "ETM Settings..." "ETM"
    menuitem  "Trigger Dialog..." "do ~~/etmdialog"
)
else
(
    enable ice()||fire()
    menuitem  "Trigger Dialog..." "do ~~/analyzerdialog"
)
    enable ice()||fire()
    popup    "[:atrigger]&Trigger Definition"
    (
      menuitem  "[:program]&Current Program" "Analyzer.Program"
      menuitem "[:program]&New Program"            
      (
         Analyzer.ReProgram
	 (
	 )
         Analyzer.Program
      )
      menuitem "&Directory..."            "Analyzer.Program *.ts"
      separator
      menuitem "Clear Program"    
      (
               Analyzer.ReProgram
      )
      menuitem "&Performance A/B"
      (
               Analyzer.ReProgram
               (
                   Sample.Enable if AlphaBreak
                   Sample.Enable if BetaBreak
                   Mark.A        if AlphaBreak
                   Mark.B        if BetaBreak
               )