added some routines

diff --git a/mach/i86/libem/LIST b/mach/i86/libem/LIST
index f500017..1c9777b 100644 (file)
--- 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 (file)
index 0000000..f38c077
--- /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 (file)
index 0000000..d675fd2
--- /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 (file)
index 0000000..f3484ab
--- /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 (file)
index 0000000..9c94c57
--- /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 (file)
index 0000000..52c99aa
--- /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