.data .align 8 blah: ; .double 0e+00 .word 0 ; = 0x0 .word 0 ; = 0x0 .EXPORT foo,DATA .align 8 foo: ; .double 0e+00 .word 0 ; = 0x0 .word 0 ; = 0x0 .EXPORT yabba,DATA .align 4 yabba: .word 1 .code .align 4 .EXPORT bar,CODE .EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR bar: .PROC .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 .ENTRY copy %r3,%r1 copy %r30,%r3 stwm %r1,64(%r30) addil L'yabba-$global$,%r27 ldo R'yabba-$global$(%r1),%r19 ldi 2,%r20 stw %r20,0(%r19) L$0001: ldo 64(%r3),%r30 ldwm -64(%r30),%r3 bv,n %r0(%r2) .EXIT .PROCEND