develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35067 - trunk/languages/befunge

From:
jquelin
Date:
January 6, 2009 10:50
Subject:
[svn:parrot] r35067 - trunk/languages/befunge
Message ID:
20090106185049.95567CB9F9@x12.develooper.com
Author: jquelin
Date: Tue Jan  6 10:50:48 2009
New Revision: 35067

Modified:
   trunk/languages/befunge/befunge.pir

Log:
fetching current instruction character


Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir	(original)
+++ trunk/languages/befunge/befunge.pir	Tue Jan  6 10:50:48 2009
@@ -24,7 +24,7 @@
     # parsing argv
     .local int debug
     .local pmc playfield
-    (debug, playfield) = _parse_argv(argv)
+    (playfield,debug) = _parse_argv(argv)
 
     # various inits
     .local int x, y, dir, flag
@@ -53,15 +53,20 @@
         # I4 = flag (1=string-mode,2=bridge,3=end)
         # N0 = random seed
         # S2 = user input
+        # S0 = current instruction
+
+    .local int    val
+    .local string char
+  TICK:
+    val  = playfield[y;x]
+    char = chr val
+    if debug == 0 goto TICK_NODEBUG
+    #bsr DEBUG_CHECK_BREAKPOINT
+  TICK_NODEBUG:
 
 =pod
 
-TICK:
-        set I20, P1[I1;I0]
-        chr S0, I20             # S0 = current instruction
-        eq I5, 0, TICK_NODEBUG
-        bsr DEBUG_CHECK_BREAKPOINT
-TICK_NODEBUG:
+
         eq S0, "\"", FLOW_TOGGLE_STRING_MODE
         eq I4, 1, IO_PUSH_CHAR
         eq I4, 2, MAIN_TRAMPOLINE



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About