Changed to rst based system calls

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@783 4a8a32a2-be11-0410-ad9d-d568d2c75423

diff --git a/support/regression/ports/z80/spec.mk b/support/regression/ports/z80/spec.mk
index e30da7de15574dc09808da9b6d93bded6f74d58e..695a2b29084ffc1d12cf3e32a1ce65f68fe80685 100644 (file)
--- a/support/regression/ports/z80/spec.mk
+++ b/support/regression/ports/z80/spec.mk
@@ -1,15 +1,16 @@
 # Port specification for the z80 port running ontop of the Java based
 # 'ConsoleZ80' emulator.
 
-# PENDING: Patch to gbdk-lib for stdarg
-SDCCFLAGS += -I/home/michaelh/projects/gbdk-lib/include
+# PENDING: Path to gbdk-lib for stdarg
+GBDK_LIB = ../../../gbdk-lib
+SDCCFLAGS += -I$(GBDK_LIB)/include
 
 EXEEXT = .bin
 
 # Needs parts of gbdk-lib, namely the internal mul/div/mod functions.
 EXTRAS = fwk/lib/testfwk$(OBJEXT) ports/$(PORT)/support$(OBJEXT) \
-       /home/michaelh/projects/gbdk-lib/libc/asm/z80/mul$(OBJEXT) \
-       /home/michaelh/projects/gbdk-lib/libc/asm/z80/div$(OBJEXT)
+       $(GBDK_LIB)/libc/asm/z80/mul$(OBJEXT) \
+       $(GBDK_LIB)/libc/asm/z80/div$(OBJEXT)
 
 # Rule to generate a Emulator .bin file from the .ihx linker output.
 %$(EXEEXT): %.ihx
@@ -28,7 +29,8 @@ EXTRAS = fwk/lib/testfwk$(OBJEXT) ports/$(PORT)/support$(OBJEXT) \
 %$(OBJEXT): %.s
        ../../bin/as-z80 -plosgff $@ $<
 
+# PENDING: Path to sdcc-extra
 %.out: %$(EXEEXT)
        mkdir -p `dirname $@`
-       java -cp /home/michaelh/projects/rose ConsoleZ80 $< > $@
+       java -cp ../../../sdcc-extra/emu/rose ConsoleZ80 $< > $@
        if grep -q FAIL $@; then echo FAILURES in $@; fi

diff --git a/support/regression/ports/z80/support.asm b/support/regression/ports/z80/support.asm
index 3014728c1af7984af9f63c2ca153a1e7cc683743..2686711ae96e2f69eca88c5745b323b2cb0ef0d3 100644 (file)
--- a/support/regression/ports/z80/support.asm
+++ b/support/regression/ports/z80/support.asm
@@ -19,11 +19,11 @@ __init::
        ;; Call the main function
        CALL    _main
         ld      a, #0
-        out    (1), a
+        rst     8
 
 __putchar::
-        ld      a,l
-        out     (0xff),a
+        ld      a,#1
+        rst     #8
         ret
 
         ;; Segment order