; (a-b)*c
    mov R5, 0x1
    mov R1, [R5]
    inc R5
    mov R2, [R5]
    inc R5
    mov R3, [R5]
    cmp R3, R4
    je zero
    sub R1, R2
    cmp R1, R4
    je zero
    mov R4, R1
    mov R1, 0x0
loop:
    add R1, R4
    inc R0
    cmp R0, R3
    jne loop
    jmp done
zero:
    mov R1, 0x0
done:
    mov R2, 0x1E
    mov [R2], R1