From 964bf270ab1e5c3ec8320ec81f43403184c29224 Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 10 Nov 1993 12:51:03 +0000 Subject: [PATCH] Fixed CII (?) did not handle stack pointer right --- mach/z80/libem/cii.s | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/mach/z80/libem/cii.s b/mach/z80/libem/cii.s index d042d65b2..c39213544 100644 --- a/mach/z80/libem/cii.s +++ b/mach/z80/libem/cii.s @@ -76,6 +76,12 @@ ex de,hl ! de := difference (> 0) ld hl,0 add hl,sp ! hl := sp + dec de ! if difference = 1, don't adjust stack pointer + jr nz, 4f + inc de + jr 5f +4: + inc de push hl or a sbc hl,de @@ -96,6 +102,7 @@ dec hl ! now hl points to ! most significant byte ! of the source +5: or a ! see if we're doing ! a 'cii' or a 'cuu' jr nz,3f ! cuu, expand with zeroes