changeset 659:0e6a4a6486a0

I've learned now that syscall does NOT change for either 6809 or 6309
author boisy
date Sat, 21 Dec 2002 16:34:38 +0000
parents 0ba32915943b
children a4d2474884b4
files 3rdparty/packages/basic09/install6309 3rdparty/packages/basic09/install6809 3rdparty/packages/basic09/makefile 3rdparty/packages/basic09/syscall.asm
diffstat 4 files changed, 10 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/install6309	Sat Dec 21 16:17:27 2002 +0000
+++ b/3rdparty/packages/basic09/install6309	Sat Dec 21 16:34:38 2002 +0000
@@ -15,6 +15,6 @@
 copy CMDS/runb_6309 /DD/CMDS/runb
 copy CMDS/gfx /DD/CMDS/gfx
 copy CMDS/inkey /DD/CMDS/inkey
-copy CMDS/syscall_6309 /DD/CMDS/syscall
+copy CMDS/syscall /DD/CMDS/syscall
 * All Done!
 
--- a/3rdparty/packages/basic09/install6809	Sat Dec 21 16:17:27 2002 +0000
+++ b/3rdparty/packages/basic09/install6809	Sat Dec 21 16:34:38 2002 +0000
@@ -15,6 +15,6 @@
 copy CMDS/runb_6809 /DD/CMDS/runb
 copy CMDS/gfx /DD/CMDS/gfx
 copy CMDS/inkey /DD/CMDS/inkey
-copy CMDS/syscall_6809 /DD/CMDS/syscall
+copy CMDS/syscall /DD/CMDS/syscall
 * All Done!
 
--- a/3rdparty/packages/basic09/makefile	Sat Dec 21 16:17:27 2002 +0000
+++ b/3rdparty/packages/basic09/makefile	Sat Dec 21 16:34:38 2002 +0000
@@ -10,9 +10,9 @@
 DEPENDS		= ./Makefile
 
 TXTFILES	= ReadMe install6809 install6309
-OBJS		= gfx inkey
-OBJS6809	= basic09_6809 runb_6809 syscall_6809
-OBJS6309	= basic09_6309 runb_6309 syscall_6309
+OBJS		= gfx inkey syscall
+OBJS6809	= basic09_6809 runb_6809
+OBJS6309	= basic09_6309 runb_6309
 ALLOBJS		= $(OBJS) $(OBJS6809) $(OBJS6309)
 
 all:	$(ALLOBJS) $(DEPENDS)
@@ -31,12 +31,6 @@
 runb_6809: runb.asm
 	$(AS) $(ASOUT)$@ $< $(M6809)
 
-syscall_6809: syscall.asm
-	$(AS) $(ASOUT)$@ $< $(M6809)
-
-syscall_6309: syscall.asm
-	$(AS) $(ASOUT)$@ $< $(H6309)
-
 clean: dskclean
 	$(RM) $(ALLOBJS)
 	$(OS92UNIX) $(TXTFILES)
--- a/3rdparty/packages/basic09/syscall.asm	Sat Dec 21 16:17:27 2002 +0000
+++ b/3rdparty/packages/basic09/syscall.asm	Sat Dec 21 16:34:38 2002 +0000
@@ -48,14 +48,14 @@
          ldd   #$103F		get SWI2 instruction
          pshs  b,a		put on stack
          ldu   $0C,s		get pointer to caller's registers on stack
-         ldd   R$D,u		
-         ldx   R$X,u
-         ldy   R$Y,u
-         ldu   R$U,u
+         ldd   1,u		R$D
+         ldx   4,u		R$X
+         ldy   6,u		R$Y
+         ldu   8,u		R$U
          jsr   ,s               branch to subroutine
          pshs  u,cc
          ldu   $0F,s
-         leau  R$U,u
+         leau  8,u		R$U
          pshu  y,x,dp,b,a
          puls  x,a
          sta   ,-u