# of instructions (as these tests to).
while 1 {
expect {
- -re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0002\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0006\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0009\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 000d\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0013\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0015\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0018\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 001c\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0022\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0024\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0026\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0000 F505\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0002 F6FA\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 F606\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0006 F90210\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0009 FB030100\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 000d FD030001\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +7 +FFFF\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0013 F616\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0015 F91610\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0018 FB170100\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 001c FD170001\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +11 +FFFF\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0022 F64B\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0024 F65E\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0026 F676\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
gas_finish
# Did we find what we were looking for? If not, flunk it.
- if [expr $x==13] then { pass $testname } else { fail $testname }
+ if [expr $x==15] then { pass $testname } else { fail $testname }
}
proc do_logical {} {
# of instructions (as these tests to).
while 1 {
expect {
- -re "^ +\[0-9\]+ 0000 CE00\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0002 CE0B\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0004 CF00\[^\n\]*\n" { set x [expr $x+1] }
- -re "^ +\[0-9\]+ 0006 CF0B\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0000 CE30\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0002 CEF8\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0004 CF30\[^\n\]*\n" { set x [expr $x+1] }
+ -re "^ +\[0-9\]+ 0006 CFF8\[^\n\]*\n" { set x [expr $x+1] }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }