Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | .IMPORT $global$,DATA |
2 | .IMPORT $$dyncall,MILLICODE | |
3 | ; gcc_compiled.: | |
a91f57fd | 4 | .data |
252b5132 RH |
5 | |
6 | .align 4 | |
4b6341e9 | 7 | tab___2: |
252b5132 RH |
8 | .word L$0002 |
9 | .word L$0003 | |
10 | .word L$0004 | |
a91f57fd | 11 | .code |
252b5132 RH |
12 | |
13 | .align 4 | |
14 | .EXPORT execute,CODE | |
15 | .EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR | |
4b6341e9 | 16 | execute: |
252b5132 RH |
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 | |
4b6341e9 | 30 | L$0009: |
252b5132 RH |
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) | |
4b6341e9 | 38 | L$0002: |
252b5132 RH |
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) | |
4b6341e9 | 44 | L$0003: |
252b5132 RH |
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) | |
4b6341e9 | 50 | L$0004: |
252b5132 RH |
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 | |
252b5132 RH |
59 | |
60 | .align 4 | |
4b6341e9 | 61 | L$C0000: |
252b5132 RH |
62 | .STRING "xyxyz\x00" |
63 | .IMPORT abort,CODE | |
64 | .IMPORT exit,CODE | |
a91f57fd | 65 | .code |
252b5132 RH |
66 | |
67 | .align 4 | |
68 | .EXPORT main,CODE | |
69 | .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR | |
4b6341e9 | 70 | main: |
252b5132 RH |
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 | |
4b6341e9 | 107 | L$0011: |
252b5132 RH |
108 | .CALL ARGW0=GR |
109 | bl exit,%r2 | |
110 | copy %r0,%r26 | |
111 | nop | |
112 | .EXIT | |
113 | .PROCEND | |
a91f57fd | 114 | .data |
252b5132 | 115 | |
4b6341e9 AM |
116 | optab: .comm 10 |
117 | buf: .comm 10 | |
118 | p: .comm 10 |