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