use __exit and __write instead

diff --git a/mach/z80/libem/.distr b/mach/z80/libem/.distr
index e862ca9..d2b4f28 100644 (file)
--- a/mach/z80/libem/.distr
+++ b/mach/z80/libem/.distr
@@ -1,5 +1,2 @@
 LIST
-Makefile
-compmodule
-end.s
 libem_s.a

diff --git a/mach/z80/libem/LIST b/mach/z80/libem/LIST
index cc081f7..84c1e36 100644 (file)
--- a/mach/z80/libem/LIST
+++ b/mach/z80/libem/LIST
@@ -39,5 +39,4 @@ inn.s
 xor.s
 nop.s
 outdec.s
-pstrng.s
 ret.s

diff --git a/mach/z80/libem/nop.s b/mach/z80/libem/nop.s
index 016192f..ba4a4c7 100644 (file)
--- a/mach/z80/libem/nop.s
+++ b/mach/z80/libem/nop.s
@@ -20,8 +20,16 @@
        ld hl,0
        add hl,sp
        call octnr
+       ld de,20
+       push de
        ld de,1f
-       call pstrng
+       push de
+       ld de,1
+       push de
+       call __write
+       pop de
+       pop de
+       pop de
        pop iy
        ret
 1:     .asciz 'test xxxxx 0xxxxxx\r\n'

diff --git a/mach/z80/libem/trp.s b/mach/z80/libem/trp.s
index f153b8e..9b3ba6d 100644 (file)
--- a/mach/z80/libem/trp.s
+++ b/mach/z80/libem/trp.s
@@ -37,11 +37,20 @@
        push de
        ld iy,1f+6
        call outdec
-       ld de,1f
-       call pstrng
+       ld iy,13
+       push iy
+       ld iy,1f
+       push iy
+       ld iy,2
+       push iy
+       call __write
+       pop iy
+       pop iy
+       pop iy
        pop de
        pop iy
-       jp 0x20
+       push de
+       call __exit
 2:
        pop hl
        push bc

diff --git a/mach/z80/libem/unim.s b/mach/z80/libem/unim.s
index fa5e4c5..7b6a1a9 100644 (file)
--- a/mach/z80/libem/unim.s
+++ b/mach/z80/libem/unim.s
@@ -11,7 +11,7 @@ unimpld:              ! used in dispatch table to
        ld hl,EILLINS
 9:     push hl
        call .trp.z
-       jp 20
+       ret
 
 e.mon:
        ld hl,EMON