Mercurial > hg > Members > kono > nitros9-code
changeset 2446:0ae4857f8f82
Save registers in 'sendit'
| author | boisy |
|---|---|
| date | Fri, 26 Feb 2010 16:05:19 +0000 |
| parents | 6231225a182e |
| children | adfd8492a455 |
| files | 3rdparty/packages/coyota/bin_dec32.a level1/modules/rfm.asm |
| diffstat | 2 files changed, 6 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 *