steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cpu.8080: Throw an error not a string.

db4
Doug Coleman 2013-03-29 09:46:34 -07:00
parent 58ee52e63b
commit 36b11c2ed1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/cpu/8080/emulator/emulator.factor
View File

@ -499,13 +499,15 @@ SYMBOL: rom-root
[ over 1 + swap pc<< ] keep [ over 1 + swap pc<< ] keep
read-byte ; read-byte ;
ERROR: undefined-8080-opcode n ;
: get-cycles ( n -- opcode ) : get-cycles ( n -- opcode )
#! Returns the cycles for the given instruction value. #! Returns the cycles for the given instruction value.
#! If the opcode is not defined throw an error. #! If the opcode is not defined throw an error.
dup instruction-cycles nth [ dup instruction-cycles nth [
nip nip
] [ ] [
[ "Undefined 8080 opcode: " % number>string % ] "" make throw undefined-8080-opcode
] if* ; ] if* ;
: process-interrupts ( cpu -- ) : process-interrupts ( cpu -- )