untested

WEGA/src/lib/libc/sys/signal.s

@@ -0,0 +1,69 @@
+signal module
+
+  internal
+    L1
+      WORD = 80
+
+  external
+    _cerror
+
+  global
+    signal procedure
+      entry
+	ld	r2,#22
+	ld	r0,r7
+	ld	r1,r6
+	cp	r0,20
+	jp	ge,cerror
+	ld	r3,r0
+	sla	r3,#1
+	ld	r2,L1(r3)
+	ld	L1(r3),r1
+	rr	r1,#1
+	rl	r1,#1
+	jr	ule,L2
+	lda	r1,L5(r3)
+L2:
+	sc	#48
+	bit	r4,#0
+	jr	z,L4
+	ld	r2,r4
+L4:
+	ret	nc
+	jp	cerror
+L5:
+	calr	L7
+L6:
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+	calr	L7
+L7:
+
+	sub	r15,#30
+	ldm	@r15,r0,#15
+	ld	r7,30(r15)
+	sub	r7,#L6
+	ld	r2,L1(r7)
+	srl	r7,#1
+	call	@r2
+	ldm	r0,@r15,#15
+	add	r15,#32
+	sc	#0
+    end signal
+end signal