some more improvement to CUF

This commit is contained in:
ceriel 1990-11-30 15:58:33 +00:00
parent 70dafd79e9
commit b76ff7451c

View file

@ -13,23 +13,23 @@
bneq Ierr bneq Ierr
cmpl r0,$4 cmpl r0,$4
bneq Idld bneq Idld
cvtlf (sp)+,-(sp) cvtld (sp)+,-(sp)
bgeq Iout bgeq Iout
addf2 Itwo32f,(sp) addd2 Itwo32F,(sp)
Iout: Iout:
cvtdf (sp)+,-(sp)
jmp (r2) jmp (r2)
Idld: Idld:
cmpl r0,$8 cmpl r0,$8
bneq Ierr bneq Ierr
cvtld (sp)+,-(sp) cvtld (sp)+,-(sp)
bgeq Iout bgeq Iout2
addd2 Itwo32F,(sp) addd2 Itwo32F,(sp)
Iout2:
jmp (r2) jmp (r2)
Ierr: Ierr:
pushl $EILLINS pushl $EILLINS
jmp .fat jmp .fat
.sect .rom .sect .rom
Itwo32f:
.data1 0200,0120,00,00
Itwo32F: Itwo32F:
.data1 0200,0120,00,00,00,00,00,00 .data1 0200,0120,00,00,00,00,00,00