1 .IMPORT $global$,DATA 2 .IMPORT $$dyncall,MILLICODE 3; gcc_compiled.: 4 .data 5 6 .align 4 7tab___2: 8 .word L$0002 9 .word L$0003 10 .word L$0004 11 .code 12 13 .align 4 14 .EXPORT execute,CODE 15 .EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR 16execute: 17 .PROC 18 .CALLINFO FRAME=0,NO_CALLS 19 .ENTRY 20 addil L'buf-$global$,%r27 21 ldo R'buf-$global$(%r1),%r20 22 ldil L'L$0002,%r19 23 movb,<> %r26,%r26,L$0002 24 ldo R'L$0002(%r19),%r22 25 copy %r0,%r21 26 addil L'tab___2-$global$,%r27 27 ldo R'tab___2-$global$(%r1),%r23 28 addil L'optab-$global$,%r27 29 ldo R'optab-$global$(%r1),%r20 30L$0009: 31 sh2add %r21,%r23,%r19 32 ldh 2(%r19),%r19 33 ldo 1(%r21),%r21 34 sub %r19,%r22,%r19 35 comib,>= 2,%r21,L$0009 36 sths,ma %r19,2(%r20) 37 bv,n %r0(%r2) 38L$0002: 39 ldi 120,%r19 40 stbs,ma %r19,1(%r20) 41 ldhs,ma 2(%r26),%r19 42 add %r22,%r19,%r19 43 bv,n %r0(%r19) 44L$0003: 45 ldi 121,%r19 46 stbs,ma %r19,1(%r20) 47 ldhs,ma 2(%r26),%r19 48 add %r22,%r19,%r19 49 bv,n %r0(%r19) 50L$0004: 51 ldi 122,%r19 52 stb %r19,0(%r20) 53 bv %r0(%r2) 54 stbs,mb %r0,1(%r20) 55 .EXIT 56 .PROCEND 57 .IMPORT __main,CODE 58 .IMPORT strcmp,CODE 59 60 .align 4 61L$C0000: 62 .STRING "xyxyz\x00" 63 .IMPORT abort,CODE 64 .IMPORT exit,CODE 65 .code 66 67 .align 4 68 .EXPORT main,CODE 69 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR 70main: 71 .PROC 72 .CALLINFO FRAME=128,CALLS,SAVE_RP 73 .ENTRY 74 stw %r2,-20(%r30) 75 .CALL 76 bl __main,%r2 77 ldo 128(%r30),%r30 78 .CALL ARGW0=GR 79 bl execute,%r2 80 copy %r0,%r26 81 addil L'optab-$global$,%r27 82 copy %r1,%r19 83 ldo R'optab-$global$(%r19),%r21 84 ldh 2(%r21),%r20 85 ldh R'optab-$global$(%r19),%r19 86 addil L'p-$global$,%r27 87 copy %r1,%r22 88 sth %r20,R'p-$global$(%r22) 89 ldo R'p-$global$(%r22),%r26 90 sth %r20,4(%r26) 91 sth %r19,2(%r26) 92 ldh 4(%r21),%r19 93 .CALL ARGW0=GR 94 bl execute,%r2 95 sth %r19,6(%r26) 96 addil L'buf-$global$,%r27 97 copy %r1,%r19 98 ldo R'buf-$global$(%r19),%r26 99 ldil L'L$C0000,%r25 100 .CALL ARGW0=GR,ARGW1=GR 101 bl strcmp,%r2 102 ldo R'L$C0000(%r25),%r25 103 comib,=,n 0,%r28,L$0011 104 .CALL 105 bl abort,%r2 106 nop 107L$0011: 108 .CALL ARGW0=GR 109 bl exit,%r2 110 copy %r0,%r26 111 nop 112 .EXIT 113 .PROCEND 114 .data 115 116optab: .comm 10 117buf: .comm 10 118p: .comm 10 119