Subversion Repositories openrisc

	.IMPORT $global$,DATA
	.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
	.data
 
	.align 4
tab___2:
	.word L$0002
	.word L$0003
	.word L$0004
	.code
 
	.align 4
	.EXPORT execute,CODE
	.EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
execute:
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	addil L'buf-$global$,%r27
	ldo R'buf-$global$(%r1),%r20
	ldil L'L$0002,%r19
	movb,<> %r26,%r26,L$0002
	ldo R'L$0002(%r19),%r22
	copy %r0,%r21
	addil L'tab___2-$global$,%r27
	ldo R'tab___2-$global$(%r1),%r23
	addil L'optab-$global$,%r27
	ldo R'optab-$global$(%r1),%r20
L$0009:
	sh2add %r21,%r23,%r19
	ldh 2(%r19),%r19
	ldo 1(%r21),%r21
	sub %r19,%r22,%r19
	comib,>= 2,%r21,L$0009
	sths,ma %r19,2(%r20)
	bv,n %r0(%r2)
L$0002:
	ldi 120,%r19
	stbs,ma %r19,1(%r20)
	ldhs,ma 2(%r26),%r19
	add %r22,%r19,%r19
	bv,n %r0(%r19)
L$0003:
	ldi 121,%r19
	stbs,ma %r19,1(%r20)
	ldhs,ma 2(%r26),%r19
	add %r22,%r19,%r19
	bv,n %r0(%r19)
L$0004:
	ldi 122,%r19
	stb %r19,0(%r20)
	bv %r0(%r2)
	stbs,mb %r0,1(%r20)
	.EXIT
	.PROCEND
	.IMPORT __main,CODE
	.IMPORT strcmp,CODE
 
	.align 4
L$C0000:
	.STRING "xyxyz\x00"
	.IMPORT abort,CODE
	.IMPORT exit,CODE
	.code
 
	.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)
	.CALL 
	bl __main,%r2
	ldo 128(%r30),%r30
	.CALL ARGW0=GR
	bl execute,%r2
	copy %r0,%r26
	addil L'optab-$global$,%r27
	copy %r1,%r19
	ldo R'optab-$global$(%r19),%r21
	ldh 2(%r21),%r20
	ldh R'optab-$global$(%r19),%r19
	addil L'p-$global$,%r27
	copy %r1,%r22
	sth %r20,R'p-$global$(%r22)
	ldo R'p-$global$(%r22),%r26
	sth %r20,4(%r26)
	sth %r19,2(%r26)
	ldh 4(%r21),%r19
	.CALL ARGW0=GR
	bl execute,%r2
	sth %r19,6(%r26)
	addil L'buf-$global$,%r27
	copy %r1,%r19
	ldo R'buf-$global$(%r19),%r26
	ldil L'L$C0000,%r25
	.CALL ARGW0=GR,ARGW1=GR
	bl strcmp,%r2
	ldo R'L$C0000(%r25),%r25
	comib,=,n 0,%r28,L$0011
	.CALL 
	bl abort,%r2
	nop
L$0011:
	.CALL ARGW0=GR
	bl exit,%r2
	copy %r0,%r26
	nop
	.EXIT
	.PROCEND
	.data
 
optab:	.comm 10
buf:	.comm 10
p:	.comm 10