Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | |
2 | /--------------------------------------------------------------------- | |
3 | / CALCULATE INTEGER DIVISION AND MODULO AT ONCE | |
4 | / RESULT IN LOCATIONS DIV AND MOD | |
5 | / DIVIDENT IN AC | |
6 | MOD12, 0 | |
7 | DCA MOD | |
8 | DCA DIV | |
9 | ||
10 | TAD MOD | |
11 | TAD KN48 | |
12 | ||
13 | SMA | |
14 | SKP | |
15 | JMP IGN48 | |
16 | DCA MOD | |
17 | ISZ DIV | |
18 | IGN48, CLA | |
19 | TAD DIV | |
20 | RAL | |
21 | DCA DIV | |
22 | TAD MOD | |
23 | TAD KN24 | |
24 | SMA | |
25 | SKP | |
26 | JMP IGN24 | |
27 | DCA MOD | |
28 | ISZ DIV | |
29 | IGN24, CLA | |
30 | TAD DIV | |
31 | RAL | |
32 | DCA DIV | |
33 | TAD MOD | |
34 | TAD KN12 | |
35 | SMA | |
36 | SKP | |
37 | JMP IGN12 | |
38 | DCA MOD | |
39 | ISZ DIV | |
40 | IGN12, CLA | |
41 | JMP I MOD12 | |
42 | ||
43 | KN48, -60 | |
44 | KN24, -30 | |
45 | KN12, -14 | |
46 | ||
47 | ||
48 | ||
49 | *1000 | |
50 | DIV, 0 / INTEGER DIVISION RESULT | |
51 | MOD, 0 / INTIGER DIVISION'S REST | |
52 |