ack/mach/z8000/libem/cmi4.s
1987-01-19 10:51:50 +00:00

21 lines
238 B
ArmAsm

.define cmi4
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
cmi4:
popl saveret, *RR14
popl RR0, *RR14
popl RR2, *RR14
subl RR2, RR0
ldk R0, $0
ldl RR2, saveret
jr LT, 1f
jp EQ, *RR2
inc R0
jp *RR2
1: dec R0
jp *RR2