Frans Doodemans version

mach/m68k4/libem/inn.s

@@ -3,32 +3,30 @@
 .sect .rom
 .sect .data
 .sect .bss
+.sect .text
 
-! d0 : set size in bytes
-! d1 : bitnumber
+.inn:	! d0 bitnumber
+	! d1 setsize in bytes
+	! on exit: 0 or 1 in d0
 
-	.sect .text
-.inn:
-	move.l	(sp)+,a1
-	move.l	(sp)+,d1
-	move.l	d0,-(sp)
-	move.l	sp,a0
-	add.l	#4,a0
-	move.l	d1,d2
-	asr.l	#3,d2
-	cmp.l	d0,d2
-	bcc	1f
-	bclr	#0,d2
-	bclr	#1,d2
-	add.l	d2,a0
-	move.l	(a0),d2
-	btst	d1,d2
-	beq	1f
-	move.l	#1,d0
-	bra	2f
+	move.l	d2, -(sp)
+	move.l	d0, d2
+	asr.l	#3, d2		! offset .sect from sp in bytes
+	eor.l	#3, d2		! longs are stored in high-to-low order
+	cmp.l	d1, d2
+	bge	1f		! bitnumber too large
+	btst	d0, 8(sp, d2.l)
+	beq	2f
+	move.l	#1, d0
+	bra	3f
 1:
-	clr.l	d0
+	move.l	#ESET, -(sp)
+	jsr	.trp
 2:
-	move.l	(sp)+,d1
-	add.l	d1,sp
-	jmp	(a1)
+	clr.l	d0
+3:
+	move.l	(sp)+, d2
+	move.l	(sp)+, a0	! return address
+	add.l	d1, sp		! pop bitset
+	jmp	(a0)		! return
+.align 2