| 1234567891011121314151617181920212223 |
- ## ## () ## ^^ ## ## ## ##
- ## 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
|