1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
.IMPORT $global$,DATA
.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
.IMPORT abort,CODE
.EXPORT f,DATA
.data
.align 4
f:
.word P%abort
.word P%abort
.IMPORT __main,CODE
.IMPORT printf,CODE
.code
.align 4
LC$0000:
.STRING "frob\x0a\x00"
.align 4
.EXPORT main,CODE
.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
main:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP
.ENTRY
stw %r2,-20(%r30)
ldo 128(%r30),%r30
.CALL
bl __main,%r2
nop
ldil L'LC$0000,%r26
.CALL ARGW0=GR
bl printf,%r2
ldo R'LC$0000(%r26),%r26
ldw -148(%r30),%r2
bv %r0(%r2)
ldo -128(%r30),%r30
.EXIT
.PROCEND
|