Example #1
0
def if_nz_decimal(then_statement: str, else_statement: str = "") -> str:
    "3byte固定小数点が NZ の場合. 終了後スタック先頭は捨てる"
    nz_flag = TOP + IDX_DMY
    else_flag = TOP + IDX_INT
    then_flag = TOP + IDX_DEC
    return c.block_of(
        c.clear_pos(TOP + IDX_SGN),
        c.if_nz_then(TOP + IDX_DEC, c.inc_pos(nz_flag)),
        c.if_nz_then(TOP + IDX_INT, c.inc_pos(nz_flag)), c.inc_pos(else_flag),
        c.if_nz_then(nz_flag,
                     c.dec_pos(else_flag) + c.inc_pos(then_flag)),
        c.if_one_then(then_flag, then_statement),
        c.if_one_then(else_flag, else_statement), c.move_ptr(TOP))
Example #2
0
def if_nz(then_statement: str, else_statement: str = "") -> str:
    "スタック先頭 1byteが NZ の場合. 終了後スタック先頭は捨てる"
    else_statement = c.delete_useless(else_statement)
    if else_statement != "":
        else_flag = TOP + IDX_DMY1
        return c.block_of(
            c.set_value(else_flag, 1),
            c.if_nz_then(TOP + IDX_BYTE,
                         c.dec_pos(else_flag) + then_statement),
            c.if_one_then(else_flag, else_statement), c.move_ptr(TOP))
    else:
        return c.block_of(c.if_nz_then(TOP + IDX_BYTE, then_statement),
                          c.move_ptr(TOP))
Example #3
0
def add_decimal() -> str:
    "固定小数点小数の加算"
    # 符号が同じなら、絶対値の加算
    # 符号が異なるなら、絶対値の減算
    work = SECOND + IDX_DMY
    diff_work = TOP + IDX_DMY
    same_flag = SECOND + IDX_DMY
    return c.block_of(
        c.for_safe(SECOND + IDX_SGN, work, c.inc_pos(diff_work)),
        c.for_safe(TOP + IDX_SGN, work, c.dec_pos(diff_work)),
        c.inc_pos(same_flag),
        c.if_nz_then(diff_work,
                     c.dec_pos(same_flag) + _sub_abs()),
        c.if_nz_then(same_flag, _add_abs()), drop())
 def test_if_nz_then_2(self):
     source = c.if_nz_then(1, c.inc_pos(3))
     sim = BfSim(source)
     sim.memory[1] = 0
     sim.run(10000)
     self.assertEqual(sim.memory[1], 0)
     self.assertEqual(sim.memory[3], 0)
Example #5
0
def _xor_sign() -> str:
    # 符号は同じなら+、異なるならマイナス
    idx_as = SECOND + IDX_SGN
    idx_bs = TOP + IDX_SGN
    idx_rs = NOW + IDX_SGN
    sign_work = NEXT
    return c.block_of(c.for_loop(idx_as, c.inc_pos(sign_work)),
                      c.for_loop(idx_bs, c.dec_pos(sign_work)),
                      c.if_nz_then(sign_work, c.inc_pos(idx_rs)))
Example #6
0
def if_negative_decimal(then_statement: str, else_statement: str = "") -> str:
    "3byte固定小数点が負数の場合. 終了後スタック先頭は捨てる"
    then_flag = TOP + IDX_DEC
    else_flag = TOP + IDX_INT
    return c.block_of(
        c.clear_pos(then_flag), c.set_value(else_flag, 1),
        c.if_nz_then(TOP + IDX_SGN,
                     c.dec_pos(else_flag) + c.inc_pos(then_flag)),
        c.if_one_then(then_flag, then_statement),
        c.if_one_then(else_flag, else_statement), c.move_ptr(TOP))