From b751882510ca0e4deb1737a3754f152d7e059d2a 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 d042d65b..c3921354 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