From: ceriel <none@none>
Date: Tue, 9 Jun 1987 10:50:47 +0000 (+0000)
Subject: added some routines
X-Git-Tag: release-5-5~4084
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7f64ff28c088529eb3b42a0b639358f5dccb0692;p=ack.git

added some routines
---

diff --git a/mach/i86/libem/LIST b/mach/i86/libem/LIST
index f50001702..1c9777b99 100644
--- a/mach/i86/libem/LIST
+++ b/mach/i86/libem/LIST
@@ -49,3 +49,8 @@ fat.s
 trp.s
 stop.s
 print.s
+ret6.s
+ret8.s
+lfr6.s
+lfr8.s
+retarea.s
diff --git a/mach/i86/libem/lfr6.s b/mach/i86/libem/lfr6.s
new file mode 100644
index 000000000..f38c0773e
--- /dev/null
+++ b/mach/i86/libem/lfr6.s
@@ -0,0 +1,10 @@
+.sect .text
+.define .lfr6
+.extern .retarea
+
+.lfr6:
+	pop	bx
+	push	.retarea+4
+	push	.retarea+2
+	push	.retarea
+	jmp	bx
diff --git a/mach/i86/libem/lfr8.s b/mach/i86/libem/lfr8.s
new file mode 100644
index 000000000..d675fd2ea
--- /dev/null
+++ b/mach/i86/libem/lfr8.s
@@ -0,0 +1,11 @@
+.sect .text
+.define .lfr8
+.extern .retarea
+
+.lfr8:
+	pop	bx
+	push	.retarea+6
+	push	.retarea+4
+	push	.retarea+2
+	push	.retarea
+	jmp	bx
diff --git a/mach/i86/libem/ret6.s b/mach/i86/libem/ret6.s
new file mode 100644
index 000000000..f3484abcc
--- /dev/null
+++ b/mach/i86/libem/ret6.s
@@ -0,0 +1,10 @@
+.sect .text
+.define .ret6
+.extern .retarea
+
+.ret6:
+	pop	bx
+	pop	.retarea
+	pop	.retarea+2
+	pop	.retarea+4
+	jmp	bx
diff --git a/mach/i86/libem/ret8.s b/mach/i86/libem/ret8.s
new file mode 100644
index 000000000..9c94c57b3
--- /dev/null
+++ b/mach/i86/libem/ret8.s
@@ -0,0 +1,11 @@
+.sect .text
+.define .ret8
+.extern .retarea
+
+.ret8:
+	pop	bx
+	pop	.retarea
+	pop	.retarea+2
+	pop	.retarea+4
+	pop	.retarea+6
+	jmp	bx
diff --git a/mach/i86/libem/retarea.s b/mach/i86/libem/retarea.s
new file mode 100644
index 000000000..52c99aac6
--- /dev/null
+++ b/mach/i86/libem/retarea.s
@@ -0,0 +1,5 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define .retarea
+
+.retarea:
+	.space 8