Author: jquelin
Date: Tue Jan 6 01:00:52 2009
New Revision: 35016
Added:
trunk/languages/befunge/befunge.pir
- copied, changed from r35014, /trunk/languages/befunge/befunge.pasm
Removed:
trunk/languages/befunge/befunge.pasm
Log:
beginning return of befunge to a working state
Copied: trunk/languages/befunge/befunge.pir (from r35014,
/trunk/languages/befunge/befunge.pasm)
==============================================================================
--- /trunk/languages/befunge/befunge.pasm (original)
+++ trunk/languages/befunge/befunge.pir Tue Jan 6 01:00:52 2009
@@ -1,6 +1,6 @@
# $Id$
- get_params "(0)", P5 # get @ARGV as a ResizableStringArray
- branch MAIN
+
+=pod
.include "debug.pasm"
.include "flow.pasm"
@@ -9,6 +9,16 @@
.include "maths.pasm"
.include "stack.pasm"
+=cut
+
+.sub "befunge" :main
+
+ print "befunge being ported to a working state...\n"
+
+=pod
+
+ get_params "(0)", P5 # get @ARGV as a ResizableStringArray
+
MAIN:
getstdout P10
pioctl I10, P10, 3, 0 # disable buffering on stdout
@@ -117,6 +127,9 @@
mod I0, I0, 80
branch TICK
+=cut
+
MAIN_END:
end
+.end
