ack/mach/pdp/libem/cmf.s

22 lines
269 B
ArmAsm
Raw Normal View History

1987-05-15 09:11:10 +00:00
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define cmf~
.extern setfloat~
1994-06-24 14:02:31 +00:00
! $Id$
1984-07-19 12:51:00 +00:00
cmf~:
jsr pc,setfloat~
mov (sp)+,r1
movf (sp)+,r0
movf (sp)+,r1
clr r0
cmpf r0,r1
setd
1984-07-19 12:51:00 +00:00
cfcc
beq 1f
blt 2f
dec r0
jmp (r1)
2: inc r0
1: jmp (r1)