From 268a53de823a6750d6256ee1fb1e7707b4b45740 Mon Sep 17 00:00:00 2001 From: Xavier ASUS Date: Fri, 18 Oct 2019 00:31:54 +0200 Subject: sdcc-3.9.0 fork implementing GNU assembler syntax This fork aims to provide better support for stm8-binutils --- device/lib/_decdptr.c | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 device/lib/_decdptr.c (limited to 'device/lib/_decdptr.c') diff --git a/device/lib/_decdptr.c b/device/lib/_decdptr.c new file mode 100644 index 0000000..222846b --- /dev/null +++ b/device/lib/_decdptr.c @@ -0,0 +1,52 @@ +/*------------------------------------------------------------------------- + _decdptr.c - decrement dptr by 1 + + Copyright (C) 1999, Jean-Louis Vern + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU General Public License as published by the + Free Software Foundation; either version 2, or (at your option) any + later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this library; see the file COPYING. If not, write to the + Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, + MA 02110-1301, USA. + + As a special exception, if you link this library with other files, + some of which are compiled with SDCC, to produce an executable, + this library does not by itself cause the resulting executable to + be covered by the GNU General Public License. This exception does + not however invalidate any other reasons why the executable file + might be covered by the GNU General Public License. +-------------------------------------------------------------------------*/ + +static void +dummy (void) __naked +{ +// void _decdptr (char *gptr) +/* the return value is already in dph/dpl */ + __asm + .globl __decdptr +__decdptr: + +#ifdef __SDCC_ds390 + orl dps, #0xc0 + inc dptr + anl dps, #0x3f +#else + xch a,dpl + jnz 00001$ + dec dph +00001$: + dec a + xch a,dpl +#endif + ret + __endasm; +} -- cgit v1.2.3