Author: jquelin
Date: Wed Jan 7 09:59:17 2009
New Revision: 35150
Modified:
trunk/languages/befunge/befunge.pir
Log:
starting tick() implemention
Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir (original)
+++ trunk/languages/befunge/befunge.pir Wed Jan 7 09:59:17 2009
@@ -68,8 +68,13 @@
if debug == 0 goto TICK_NODEBUG
debug__check_breakpoint()
+
TICK_NODEBUG:
-
+ if char == '"' goto FLOW_TOGGLE_STRING_MODE
+
+ # unknown instruction
+ goto MOVE_PC
+
=pod
@@ -118,8 +123,15 @@
eq S0, "g", IO_GET_VALUE
eq S0, "p", IO_PUT_VALUE
- # Unknow instruction.
- branch MOVE_PC
+=cut
+
+ FLOW_TOGGLE_STRING_MODE:
+ flow__toggle_string_mode()
+ goto MOVE_PC
+
+ MOVE_PC:
+
+=pod
MAIN_TRAMPOLINE:
set I4, 0 # no more trampoline
