# HG changeset patch
# User boisy
# Date 1267200319 0
# Node ID 0ae4857f8f82acf34d5fbb388d05380e7897e7fe
# Parent  6231225a182ef14ba64508bb1e8777514b23ccff
Save registers in 'sendit'

diff -r 6231225a182e -r 0ae4857f8f82 3rdparty/packages/coyota/bin_dec32.a
--- a/3rdparty/packages/coyota/bin_dec32.a	Fri Feb 26 12:38:07 2010 +0000
+++ b/3rdparty/packages/coyota/bin_dec32.a	Fri Feb 26 16:05:19 2010 +0000
@@ -110,6 +110,4 @@
          std   ,x
          rts
 
- endsect
-
-
+         endsect
diff -r 6231225a182e -r 0ae4857f8f82 level1/modules/rfm.asm
--- a/level1/modules/rfm.asm	Fri Feb 26 12:38:07 2010 +0000
+++ b/level1/modules/rfm.asm	Fri Feb 26 16:05:19 2010 +0000
@@ -138,8 +138,7 @@
 
                orcc      #1                  ;set error
 open2          leas      4,s                 ; Regs
-               puls      u                   ; clean stack
-               rts       
+               puls      u,pc                ; clean stack & return
 
 makdir         lda       #DW.makdir
                lbra      sendit
@@ -260,8 +259,7 @@
                orcc      #1                  ; set error bit
                leas      2,s                 ; clean stack down 
 
-readln2        puls      y,u
-               rts       
+readln2        puls      y,u,pc
 
 *ldu		origu,pc	; put U back to the entry value.. needed?
 *		rts
@@ -436,12 +434,11 @@
                beq       close1
                orcc      #1                  ; set error flag if != 0
 close1         leas      1,s
-               puls      u,y
-               rts       
+               puls      u,y,pc
 
 
 * just send OP_VMF + vfmop
-sendit         pshs      a
+sendit         pshs      a,x,y,u
 
                lda       #OP_VFM             ; load command
                pshs      a                   ; command store on stack
@@ -457,7 +454,7 @@
                leas      2,s                 ;clean stack
 
                clrb      
-               rts       
+               puls      x,y,u,pc
 
                emod      
 eom            equ       *