corrade-nucleus-nucleons – Blame information for rev 20

Subversion Repositories:
Rev:
Rev Author Line No. Line
20 office 1 ## ## () ## ^^ ## ## ## ##
2 ## H1 C2 S1 <> S2 H2 DN ##
3 ## %U <> %D *2 %L IZ .. ##
4 ## ## ## .. ## DN *3 ## ##
5 ## ## ## %R C1 IZ () ## ##
6 ## ## ## ## >/ *1
7 ## () *3 *1 %L ()
8  
9  
10 // Set divisor and dividend
11 S1-> = 9
12 S2-> = 24
13  
14 // Holding cells
15 H1-> IF *1 THEN %R ELSE %N
16 H2-> IF *2 THEN %R ELSE %N
17  
18 // Arithmetic
19 DN-> -= 1
20 IZ-> IF <= 0 THEN %D ELSE %U
21  
22 C1-> IF *3 THEN %D ELSE %R
23 C2-> IF *3 THEN %U ELSE %D