.file "20011119-1.c" .text .align 2 .globl ustrzcat .type ustrzcat, @function ustrzcat: link.w %a6,#0 movm.l #0x3820,-(%sp) move.l 8(%a6),%a2 move.l 12(%a6),%d4 move.l %a2,-(%sp) jbsr ustrsize move.l %d0,%d3 clr.l -(%sp) move.l ucwidth,%a0 jbsr (%a0) add.l %d3,%d0 sub.l %d0,%d4 .align 2 .L7: addq.l #8,%sp pea 16(%a6) move.l ugetxc,%a0 jbsr (%a0) move.l %d0,%d2 addq.l #4,%sp jbeq .L3 move.l %d2,-(%sp) move.l ucwidth,%a0 jbsr (%a0) sub.l %d0,%d4 addq.l #4,%sp jbmi .L3 move.l %d2,-(%sp) pea (%a2,%d3.l) move.l usetc,%a0 jbsr (%a0) add.l %d0,%d3 jbra .L7 .align 2 .L3: clr.l -(%sp) pea (%a2,%d3.l) move.l usetc,%a0 jbsr (%a0) move.l %a2,%a0 move.l %a0,%d0 movm.l -16(%a6),#0x41c unlk %a6 rts .size ustrzcat, .-ustrzcat .align 2 .type ustrsize, @function ustrsize: link.w %a6,#0 clr.l %d0 unlk %a6 rts .size ustrsize, .-ustrsize .align 2 .type ucwidth_, @function ucwidth_: link.w %a6,#0 moveq.l #1,%d0 unlk %a6 rts .size ucwidth_, .-ucwidth_ .align 2 .type ugetxc_, @function ugetxc_: link.w %a6,#0 clr.l %d0 unlk %a6 rts .size ugetxc_, .-ugetxc_ .align 2 .type usetc_, @function usetc_: link.w %a6,#0 moveq.l #1,%d0 unlk %a6 rts .size usetc_, .-usetc_ .align 2 .globl main .type main, @function main: link.w %a6,#0 move.l #ucwidth_,ucwidth move.l #ugetxc_,ugetxc move.l #usetc_,usetc #APP pushl %ebp movl $-1, %ebp pushl $0 pushl $0 pushl $0 call #ustrzcat addl $12, %esp popl %ebp #NO_APP clr.l %d0 unlk %a6 rts .size main, .-main .local ucwidth .comm ucwidth,4,2 .local ugetxc .comm ugetxc,4,2 .local usetc .comm usetc,4,2 .ident "GCC: (GNU) 3.3.2"