## ## () ## ^^ ## ## ## ##
## H1 C2 S1 <> S2 H2 DN ##
## %U <> %D *2 %L IZ .. ##
## ## ## .. ## DN *3 ## ##
## ## ## %R C1 IZ () ## ##
## ## ## ## >/ *1
## () *3 *1 %L ()


// Set divisor and dividend
S1-> = 9
S2-> = 24

// Holding cells
H1-> IF *1 THEN %R ELSE %N
H2-> IF *2 THEN %R ELSE %N

// Arithmetic
DN-> -= 1
IZ-> IF <= 0 THEN %D ELSE %U

C1-> IF *3 THEN %D ELSE %R
C2-> IF *3 THEN %U ELSE %D