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