t32.men

指令集模拟器

;======================================================================
;
; Programming file for standard pulldown menu and speedbar
; (c) Copyright by Lauterbach Datentechnik, 1996,1997,1998
;     Enhanced version by JDT JbergDatenTechnik 97/98
;
; $Id: t32.men 2169 2007-09-06 12:00:44Z hlohn $
;
;======================================================================
;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"
  (
    default
    menuitem "[:practice]Run &Batchfile..." "CD.DO *"
    menuitem "[:edit]Edit Batchfile..."     "CD.PEDIT *"
    menuitem "[:edit]&Open..."              "EDIT *.*"
    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 "Browse &Types"            "sYmbol.Browse.Type"
     menuitem "Symbols Tree View"        "sYmbol.List.TREE"
     menuitem "Symbols by name"          "sYmbol"
     menuitem "Symbols by address"       "sYmbol.List"
     menuitem "&Sections"                "sYmbol.List.SECtion"
     menuitem "Source Search Paths"      "sYmbol.SPATH.List"
     menuitem "Overview"                 "sYmbol.STATE"
     menuitem "Details of Symbol"        "sYmbol.INFO *"
    )
    menuitem "[:group]Groups"            "Group.List"
    menuitem "[:bookmark]Bookmarks"      "BookMark.List"
    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
    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 &Return,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
    enable ice()||fire()
    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.RESetTarget"
    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()||powerprobe()
    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]&Interface Config..."    "IFCONFIG"
    menuitem "Japanese Menu"                    "MENU.RP ~~/t32jp.men"
  )

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

  popup "&Trace"
  (
    default
    menuitem  "[:aconfig]&Configuration..." "Trace"
    menuitem  "[:aconfig]&CTS Settings..." "CTS"
if cpufamily()=="ARM"&&!(ice()||fire())
(
    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
               )
               enddo
     )
;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      menuitem "&Trace from Start to End..."
       (
       dialog
       (
       header "Trace from Start to Stop Point"
       pos 0x1 1.3 30.
addrA: defedit "" ""
       pos 32. 1.3 7.
       button "Browse..."
       (
         local &wildcard
         &wildcard=dialog.string(addrA)
         if "&wildcard"==""
           &wildcard="*"
         if !string.find("&wildcard","*?")
           &wildcard="*&wildcard*"
         symbol.browse &wildcard /c "dialog.set addrA ""*""" /d
       )
       pos 0x1 4.3 30.
addrB: edit "" ""
       pos 32. 4.3 7.
       button "Browse..."
       (
         local &wildcard
         &wildcard=dialog.string(addrB)
         if "&wildcard"==""
           &wildcard="*"
         if !string.find("&wildcard","*?")
           &wildcard="*&wildcard*"
         symbol.browse &wildcard /c "dialog.set addrB ""*""" /d
       )

       pos 1. 6.5  9.
       defbutton "Ok"
       (
     dialog.execute apply
         dialog.end
       )

       pos 25. 6.5  9.
       button "Cancel" "dialog.end"

       pos 13. 6.5  9.
apply: button "Apply"
       (
         local &addrA &addrdeclA &triggerA &addrB &addrdeclB &triggerB &triggerH
         local &VBusA &VBusB
         &VBusA=""
         &VBusB=""

         on error jumpto
         (
           beep 5.
           print "Input error, please check syntax"
           enddo
         )

         &triggerH="TRUE"
         ;----------------- A ------------------------
         &addrdeclA=""
         &addrA=dialog.string(addrA)
         if "&addrA"!=""
         (
           if dialog.boolean(hllA)
              &addrA="v.range(""&addrA"")"
           else if dialog.boolean(rangeA)
              &addrA="y.range(""&addrA"")"
           &addrdeclA="addr AlphaBreak &addrA"
           if  FIRE()&&CPU()=="M68372"
           (
               if  P:FASBASE.ADDRESS()!=P:0x0ffffffff
               (
                   if   (P:FASBASE.ADDRESS()<=P:(&addrA))&&(P:(&addrA)<=(P:FASBASE.ADDRESS()+0x7fff))
                        &VBusA="YES"
                   else if (P:(&addrA)<P:FASBASE.ADDRESS())||(P:FASBASE.ADDRESS()+0x7fff)<P:(&addrA)
                        &VBusA="NO"
                   else ; not only VBUS or XBUS address area
                   (
                        beep 5.
                        print "address range error: address overlaps XBUS and VBUS : &addrA"
                        enddo
                   )
               )
           )
         )

         if dialog.boolean(a.anyA)
         (
               if "&VBusA"=="YES"
                    &triggerA="AlphaBreak&&VBUS"
               else if "&VBusA"=="NO"
                    &triggerA="AlphaBreak&&XBUS"
               else
            &triggerA="AlphaBreak"
         )
         if dialog.boolean(a.readA)
         (
               if "&VBusA"=="YES"
                    &triggerA="AlphaBreak&&VBUS&&VRead"
               else if "&VBusA"=="NO"
                    &triggerA="AlphaBreak&&XBUS&&Read"
               else
            &triggerA="AlphaBreak&&Read"
         )
         if dialog.boolean(a.wrA)
         (
               if "&VBusA"=="YES"
                    &triggerA="AlphaBreak&&VBUS&&VWrite"
               else if "&VBusA"=="NO"
                    &triggerA="AlphaBreak&&XBUS&&Write"
               else