Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r35164 - trunk/languages/befunge
From:
jquelin
Date:
January 7, 2009 10:36
Subject:
[svn:parrot] r35164 - trunk/languages/befunge
Message ID:
20090107183558.DE18DCB9F9@x12.develooper.com
Author: jquelin
Date: Wed Jan 7 10:35:58 2009
New Revision: 35164
Modified:
trunk/languages/befunge/maths.pir
Log:
converting tabs to spaces
Modified: trunk/languages/befunge/maths.pir
==============================================================================
--- trunk/languages/befunge/maths.pir (original)
+++ trunk/languages/befunge/maths.pir Wed Jan 7 10:35:58 2009
@@ -10,125 +10,125 @@
# after: ... rand
# 0 <= rand < max
MATHS_RAND:
- restore I10
- mul N0, N0, 5.0
- add N0, N0, 1.0
- mod N0, N0, .RANDMAX
- save N0
- restore N0
- set N10, I10
- mul N10, N0, N10
- div N10, N10, .RANDMAX
- set I10, N10
- save I10
- ret
+ restore I10
+ mul N0, N0, 5.0
+ add N0, N0, 1.0
+ mod N0, N0, .RANDMAX
+ save N0
+ restore N0
+ set N10, I10
+ mul N10, N0, N10
+ div N10, N10, .RANDMAX
+ set I10, N10
+ save I10
+ ret
# Push number on Befunge's stack.
# Befunge Stack:
# before: ...
# after: ... <number>
MATHS_PUSH_NUMBER:
- set I10, S0
- push P2, I10
- branch MOVE_PC
+ set I10, S0
+ push P2, I10
+ branch MOVE_PC
# Addition.
# Befunge Stack:
# before: ... a b
# after: ... a+b
MATHS_ADD:
- set I11, P2
- unless I11, MATHS_ADD_POP_1
- pop I11, P2
+ set I11, P2
+ unless I11, MATHS_ADD_POP_1
+ pop I11, P2
MATHS_ADD_POP_1:
- set I10, P2
- unless I10, MATHS_ADD_POP_2
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_ADD_POP_2
+ pop I10, P2
MATHS_ADD_POP_2:
- add I12, I10, I11
- push P2, I12
- branch MOVE_PC
+ add I12, I10, I11
+ push P2, I12
+ branch MOVE_PC
# Substraction.
# Befunge Stack:
# before: ... a b
# after: ... a-b
MATHS_SUB:
- set I11, P2
- unless I11, MATHS_SUB_POP_1
- pop I11, P2
+ set I11, P2
+ unless I11, MATHS_SUB_POP_1
+ pop I11, P2
MATHS_SUB_POP_1:
- set I10, P2
- unless I10, MATHS_SUB_POP_2
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_SUB_POP_2
+ pop I10, P2
MATHS_SUB_POP_2:
- sub I12, I10, I11
- push P2, I12
- branch MOVE_PC
+ sub I12, I10, I11
+ push P2, I12
+ branch MOVE_PC
# Multiplication.
# Befunge Stack:
# before: ... a b
# after: ... a*b
MATHS_MUL:
- set I11, P2
- unless I11, MATHS_MUL_POP_1
- pop I11, P2
+ set I11, P2
+ unless I11, MATHS_MUL_POP_1
+ pop I11, P2
MATHS_MUL_POP_1:
- set I10, P2
- unless I10, MATHS_MUL_POP_2
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_MUL_POP_2
+ pop I10, P2
MATHS_MUL_POP_2:
- mul I12, I10, I11
- push P2, I12
- branch MOVE_PC
+ mul I12, I10, I11
+ push P2, I12
+ branch MOVE_PC
# Division.
# Befunge Stack:
# before: ... a b
# after: ... a/b
MATHS_DIV:
- set I11, P2
- unless I11, MATHS_DIV_POP_1
- pop I11, P2
+ set I11, P2
+ unless I11, MATHS_DIV_POP_1
+ pop I11, P2
MATHS_DIV_POP_1:
- set I10, P2
- unless I10, MATHS_DIV_POP_2
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_DIV_POP_2
+ pop I10, P2
MATHS_DIV_POP_2:
- div I12, I10, I11
- push P2, I12
- branch MOVE_PC
+ div I12, I10, I11
+ push P2, I12
+ branch MOVE_PC
# Remainder.
# Befunge Stack:
# before: ... a b
# after: ... a mod b
MATHS_MOD:
- set I11, P2
- unless I11, MATHS_MOD_POP_1
- pop I11, P2
+ set I11, P2
+ unless I11, MATHS_MOD_POP_1
+ pop I11, P2
MATHS_MOD_POP_1:
- set I10, P2
- unless I10, MATHS_MOD_POP_2
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_MOD_POP_2
+ pop I10, P2
MATHS_MOD_POP_2:
- mod I12, I10, I11
- push P2, I12
- branch MOVE_PC
+ mod I12, I10, I11
+ push P2, I12
+ branch MOVE_PC
# Logical not.
# Befunge Stack:
# before: ... a
# after: ... not(a)
MATHS_NOT:
- set I10, P2
- unless I10, MATHS_NOT_POP_1
- pop I10, P2
+ set I10, P2
+ unless I10, MATHS_NOT_POP_1
+ pop I10, P2
MATHS_NOT_POP_1:
- not I10, I10
- push P2, I10
- branch MOVE_PC
+ not I10, I10
+ push P2, I10
+ branch MOVE_PC
=cut
-
[svn:parrot] r35164 - trunk/languages/befunge
by jquelin