Commit | Line | Data |
---|---|---|
ed4c4f10 BJ |
1 | / |
2 | / FORS | |
3 | / | |
4 | _FOR1U: | |
5 | mov (sp)+,r2 | |
6 | movb (r2),r1 | |
7 | sxt r0 | |
8 | incb (r2) | |
9 | br 1f | |
10 | _FOR2U: | |
11 | mov (sp)+,r2 | |
12 | mov (r2),r1 | |
13 | sxt r0 | |
14 | inc (r2) | |
15 | br 1f | |
16 | _FOR4U: | |
17 | mov (sp)+,r2 | |
18 | mov (r2)+,r0 | |
19 | mov (r2),r1 | |
20 | add $1,(r2) | |
21 | adc -2(r2) | |
22 | 1: | |
23 | mov (sp)+,r2 | |
24 | mov (sp)+,r3 | |
25 | cmp r0,r2 | |
26 | beq 1f | |
27 | bgt 2f | |
28 | add (lc),lc | |
29 | return | |
30 | 1: | |
31 | cmp r1,r3 | |
32 | bhis 2f | |
33 | add (lc),lc | |
34 | return | |
35 | 2: | |
36 | tst (lc)+ | |
37 | return | |
38 | _FOR1D: | |
39 | mov (sp)+,r2 | |
40 | movb (r2),r1 | |
41 | sxt r0 | |
42 | decb (r2) | |
43 | br 1f | |
44 | _FOR2D: | |
45 | mov (sp)+,r2 | |
46 | mov (r2),r1 | |
47 | sxt r0 | |
48 | dec (r2) | |
49 | br 1f | |
50 | _FOR4D: | |
51 | mov (sp)+,r2 | |
52 | mov (r2)+,r0 | |
53 | mov (r2),r1 | |
54 | sub $1,(r2) | |
55 | sbc -2(r2) | |
56 | 1: | |
57 | mov (sp)+,r2 | |
58 | mov (sp)+,r3 | |
59 | cmp r0,r2 | |
60 | beq 1f | |
61 | blt 2f | |
62 | add (lc),lc | |
63 | return | |
64 | 1: | |
65 | cmp r1,r3 | |
66 | blos 2f | |
67 | add (lc),lc | |
68 | return | |
69 | 2: | |
70 | tst (lc)+ | |
71 | return |