almost fixed problem with cfu
This commit is contained in:
parent
420ca09aee
commit
2e009ecfff
1 changed files with 6 additions and 2 deletions
|
@ -1645,17 +1645,21 @@ cuu.z:
|
||||||
jbr 6b
|
jbr 6b
|
||||||
/-------
|
/-------
|
||||||
cfu.z:
|
cfu.z:
|
||||||
mov (sp)+,r0
|
mov (sp)+,r1
|
||||||
|
mov $4,r0
|
||||||
jsr pc,setint
|
jsr pc,setint
|
||||||
mov (sp)+,r0
|
mov (sp)+,r0
|
||||||
jsr pc,setfloat
|
jsr pc,setfloat
|
||||||
movf (sp)+,fr0
|
movf (sp)+,fr0
|
||||||
movfi fr0,-(sp)
|
movfi fr0,-(sp)
|
||||||
|
/ unfortunately, this does not work for numbers >= 2^31
|
||||||
.if .test
|
.if .test
|
||||||
jcs 9b
|
jcs 9b
|
||||||
jlt 9b
|
jlt 9b
|
||||||
.endif
|
.endif
|
||||||
next
|
mov $4,-(sp)
|
||||||
|
mov r1,-(sp)
|
||||||
|
jbr cuu_z
|
||||||
/-------
|
/-------
|
||||||
cfi.z:
|
cfi.z:
|
||||||
mov (sp)+,r0
|
mov (sp)+,r0
|
||||||
|
|
Loading…
Reference in a new issue