1: / error = rtp(flag); 2: 3: .globl _rtp 4: .globl _rtp_ / F77 call 5: .globl cerror 6: 7: _rtp: 8: mov r5,-(sp) 9: mov sp,r5 10: mov 4(sp),r0 11: br 1f 12: 13: _rtp_: 14: mov r5,-(sp) 15: mov sp,r5 16: mov *4(sp),r0 17: 1: 18: sys rtp 19: bec 1f 20: jmp cerror 21: 1: 22: clr r0 23: mov (sp)+,r5 24: rts pc