corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
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 |