BSD 1 development
[unix-history] / px / 26for.s
CommitLineData
4e754410
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)
221:
23 mov (sp)+,r2
24 mov (sp)+,r3
25 cmp r0,r2
26 beq 1f
27 bgt 2f
28 add (lc),lc
29 return
301:
31 cmp r1,r3
32 bhis 2f
33 add (lc),lc
34 return
352:
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)
561:
57 mov (sp)+,r2
58 mov (sp)+,r3
59 cmp r0,r2
60 beq 1f
61 blt 2f
62 add (lc),lc
63 return
641:
65 cmp r1,r3
66 blos 2f
67 add (lc),lc
68 return
692:
70 tst (lc)+
71 return