Author: jquelin Date: Wed Jan 7 10:04:05 2009 New Revision: 35151 Modified: trunk/languages/befunge/flow.pir
Log: migrated tabs to 4 spaces Modified: trunk/languages/befunge/flow.pir ============================================================================== --- trunk/languages/befunge/flow.pir (original) +++ trunk/languages/befunge/flow.pir Wed Jan 7 10:04:05 2009 @@ -6,38 +6,38 @@ # Befunge stack unchanged. # delta <- (0,-1) FLOW_GO_NORTH: - set I2, 0 - branch MOVE_PC + set I2, 0 + branch MOVE_PC # Go east. # Befunge stack unchanged. # delta <- (1,0) FLOW_GO_EAST: - set I2, 1 - branch MOVE_PC + set I2, 1 + branch MOVE_PC # Go south. # Befunge stack unchanged. # delta <- (0,1) FLOW_GO_SOUTH: - set I2, 2 - branch MOVE_PC + set I2, 2 + branch MOVE_PC # Go west. # Befunge stack unchanged. # delta <- (-1,0) FLOW_GO_WEST: - set I2, 3 - branch MOVE_PC + set I2, 3 + branch MOVE_PC FLOW_GO_AWAY: - save 4 - bsr MATHS_RAND - restore I10 - set I2, I10 - save I2 - restore I2 - branch MOVE_PC + save 4 + bsr MATHS_RAND + restore I10 + set I2, I10 + save I2 + restore I2 + branch MOVE_PC # East/West if. # Befunge stack: @@ -45,12 +45,12 @@ # after: ... # delta <- if (b) (-1,0) else (1,0) FLOW_EW_IF: - set I10, P2 - unless I10, FLOW_EW_IF_POP_1 - pop I10, P2 + set I10, P2 + unless I10, FLOW_EW_IF_POP_1 + pop I10, P2 FLOW_EW_IF_POP_1: - eq I10, 0, FLOW_GO_EAST - branch FLOW_GO_WEST + eq I10, 0, FLOW_GO_EAST + branch FLOW_GO_WEST # North/South if. # Befunge stack: @@ -58,12 +58,12 @@ # after: ... # delta <- if (b) (0,-1) else (0,1) FLOW_NS_IF: - set I10, P2 - unless I10, FLOW_NS_IF_POP_1 - pop I10, P2 + set I10, P2 + unless I10, FLOW_NS_IF_POP_1 + pop I10, P2 FLOW_NS_IF_POP_1: - eq I10, 0, FLOW_GO_SOUTH - branch FLOW_GO_NORTH + eq I10, 0, FLOW_GO_SOUTH + branch FLOW_GO_NORTH # Greater than. @@ -72,44 +72,44 @@ # after: ... a>b # Result is either 1 or 0. FLOW_COMPARE: - set I10, P2 - unless I10, FLOW_COMPARE_POP_1 - pop I10, P2 + set I10, P2 + unless I10, FLOW_COMPARE_POP_1 + pop I10, P2 FLOW_COMPARE_POP_1: - set I11, P2 - unless I11, FLOW_COMPARE_POP_2 - pop I11, P2 + set I11, P2 + unless I11, FLOW_COMPARE_POP_2 + pop I11, P2 FLOW_COMPARE_POP_2: - set I12, 1 - gt I11, I10, FLOW_COMPARE_TRUE - set I12, 0 + set I12, 1 + gt I11, I10, FLOW_COMPARE_TRUE + set I12, 0 FLOW_COMPARE_TRUE: - push P2, I12 - branch MOVE_PC + push P2, I12 + branch MOVE_PC # Toggle string mode. # Befunge stack unchanged. FLOW_TOGGLE_STRING_MODE: - eq I4, 1, FLOW_TOGGLE_STRING_MODE_OFF - set I4, 1 - branch MOVE_PC + eq I4, 1, FLOW_TOGGLE_STRING_MODE_OFF + set I4, 1 + branch MOVE_PC FLOW_TOGGLE_STRING_MODE_OFF: - set I4, 0 - branch MOVE_PC + set I4, 0 + branch MOVE_PC # Trampoline. # Befunge stack unchanged. # Skip next instruction (pos < pos + delta) FLOW_BRIDGE: - set I4, 2 - branch MOVE_PC + set I4, 2 + branch MOVE_PC # Stop. # Befunge stack unchanged. # End program. FLOW_END: - set I4, 3 - branch MOVE_PC + set I4, 3 + branch MOVE_PC =cut
