@@ -49,3 +49,8 @@ fat.s
trp.s
stop.s
print.s
+ret6.s
+ret8.s
+lfr6.s
+lfr8.s
+retarea.s
@@ -0,0 +1,10 @@
+.sect .text
+.define .lfr6
+.extern .retarea
+
+.lfr6:
+ pop bx
+ push .retarea+4
+ push .retarea+2
+ push .retarea
+ jmp bx
@@ -0,0 +1,11 @@
+.define .lfr8
+.lfr8:
+ push .retarea+6
+.define .ret6
+.ret6:
+ pop .retarea
+ pop .retarea+2
+ pop .retarea+4
+.define .ret8
+.ret8:
+ pop .retarea+6
@@ -0,0 +1,5 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.define .retarea
+.retarea:
+ .space 8