You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
838 B
75 lines
838 B
#include "libmftypes.h"
|
|
|
|
#if defined(SDCC)
|
|
|
|
__reentrantb uint8_t checksignedlimit32(int32_t x, int32_t lim) __reentrant __naked
|
|
{
|
|
__asm
|
|
ar2=0x02
|
|
ar3=0x03
|
|
ar4=0x04
|
|
ar5=0x05
|
|
ar6=0x06
|
|
ar7=0x07
|
|
ar0=0x00
|
|
ar1=0x01
|
|
|
|
push ar0
|
|
push ar1
|
|
mov r1,a
|
|
mov a,sp
|
|
add a,#-7
|
|
mov r0,a
|
|
mov a,r1
|
|
jnb acc.7,00010$
|
|
mov a,dpl
|
|
add a,@r0
|
|
inc r0
|
|
mov a,dph
|
|
addc a,@r0
|
|
inc r0
|
|
mov a,b
|
|
addc a,@r0
|
|
inc r0
|
|
mov a,r1
|
|
addc a,@r0
|
|
xrl a,#0x80
|
|
sjmp 00011$
|
|
00010$: setb c
|
|
mov a,dpl
|
|
subb a,@r0
|
|
inc r0
|
|
mov a,dph
|
|
subb a,@r0
|
|
inc r0
|
|
mov a,b
|
|
subb a,@r0
|
|
inc r0
|
|
mov a,r1
|
|
subb a,@r0
|
|
00011$: rlc a
|
|
clr a
|
|
rlc a
|
|
mov dpl,a
|
|
pop ar1
|
|
pop ar0
|
|
ret
|
|
__endasm;
|
|
}
|
|
|
|
#else
|
|
|
|
#include <stdlib.h>
|
|
|
|
__reentrantb uint8_t checksignedlimit32(int32_t x, int32_t lim) __reentrant
|
|
{
|
|
if (x < 0) {
|
|
x += lim;
|
|
return x >= 0;
|
|
}
|
|
x -= lim;
|
|
return x <= 0;
|
|
}
|
|
|
|
#endif
|