ack/mach/z8000/libem/cmi.s

.define cmi
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

!size in R0
cmi:
	cp	R0, $2
	jr	NE, 1f
	popl	RR2, *RR14
	pop	R1, *RR14
	pop	R0, *RR14
	sub	R0, R1
	jp	*RR2
1:	cp	R0, $4
	jr	EQ, cmi4
	jr	unknown
* empty log message * 1985-01-08 11:48:43 +00:00			`.define cmi`
new version for new assembler syntax 1987-01-19 10:51:50 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-01-08 11:48:43 +00:00
			`!size in R0`
			`cmi:`
			`cp R0, $2`
			`jr NE, 1f`
			`popl RR2, *RR14`
			`pop R1, *RR14`
			`pop R0, *RR14`
			`sub R0, R1`
			`jp *RR2`
			`1: cp R0, $4`
			`jr EQ, cmi4`
			`jr unknown`