|
|
1.1 root 1: .globl _ckadd
2: .globl _cksub
3: .globl _ckmul
4:
5: .text
6: .align 1
7: _ckadd: .word 0
8: addl3 4(ap),8(ap),r0 # Perform addition
9: jvs oflow # Branch if overflow
10: ret # Return result in r0
11:
12: .align 1
13: _cksub: .word 0
14: subl3 8(ap),4(ap),r0 # Perform subtraction
15: jvs oflow # Branch if overflow
16: ret # Return result in r0
17:
18: .align 1
19: _ckmul: .word 0
20: mull3 4(ap),8(ap),r0 # Perform multiplication
21: jvs oflow # Branch if overflow
22: ret # Return result in r0
23:
24: oflow: # Got overflow on an operation
25: pushl $0
26: pushl $203
27: calls $1,_runerr # runerr(203,0)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.