1: / error = dup(fildes); 2: / error = dup2(fildes, fildes2); 3: 4: .globl _dup,_dup2 5: .globl cerror 6: 7: _dup2: 8: mov r5,-(sp) 9: mov sp,r5 10: mov 4(r5),r0 11: bis $100,r0 12: br 1f 13: 14: _dup: 15: mov r5,-(sp) 16: mov sp,r5 17: mov 4(r5),r0 18: 1: 19: mov 6(r5),r1 20: sys dup 21: bec 1f 22: jmp cerror 23: 1: 24: mov (sp)+,r5 25: rts pc