|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)13mod.s 4.1 10/10/80";
5: #
6: # MODULO
7: #
8: _MOD2:
9: incl r10
10: cvtwl (sp),r0
11: cvtwl 2(sp),r2
12: ashq $-32,r1,r1
13: ediv r0,r1,r3,(sp)
14: jmp (r8)
15: _MOD24:
16: incl r10
17: cvtwl (sp)+,r0
18: movl (sp),r2
19: ashq $-32,r1,r1
20: ediv r0,r1,r3,(sp)
21: jmp (r8)
22: _MOD42:
23: incl r10
24: movl (sp)+,r0
25: cvtwl (sp)+,r2
26: ashq $-32,r1,r1
27: ediv r0,r1,r3,-(sp)
28: jmp (r8)
29: _MOD4:
30: incl r10
31: movl (sp)+,r0
32: movl (sp),r2
33: ashq $-32,r1,r1
34: ediv r0,r1,r3,(sp)
35: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.