|
|
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.