From 678ef42363efae82a21391e2868873dd6932dc86 Mon Sep 17 00:00:00 2001 From: sdattalo Date: Fri, 15 Mar 2002 13:23:40 +0000 Subject: [PATCH] dattalo - Added bank1.c and string1.c to test banking and character strings in the PIC port. git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@1996 4a8a32a2-be11-0410-ad9d-d568d2c75423 --- src/regression/bank1.c | 42 +++++++++++++++++++++++++++++++++++ src/regression/string1.c | 47 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 89 insertions(+) create mode 100644 src/regression/bank1.c create mode 100644 src/regression/string1.c diff --git a/src/regression/bank1.c b/src/regression/bank1.c new file mode 100644 index 00000000..778c1e7f --- /dev/null +++ b/src/regression/bank1.c @@ -0,0 +1,42 @@ +unsigned char success=0; +unsigned char failures=0; +unsigned char dummy=0; +unsigned bit bit1; + +typedef unsigned char byte; + +byte d2; + +unsigned char uchar0 = 0xa5; + +data at 0xa0 unsigned char uc_bank1_temp=0x42; +data at 0xa2 unsigned int ui_bank1_temp=0; + +void done() +{ + + dummy++; + +} + +void main(void) +{ + dummy = 0; + ui_bank1_temp = 0; + uc_bank1_temp = 0; + + bit1 = 0; + + uchar0 = (uchar0<<4) | (uchar0>>4); + + if(uchar0 > 7) { + dummy = 8; + uc_bank1_temp = failures; + } + + if(uc_bank1_temp > 3) + bit1 = 1; + + success = failures; + done(); +} diff --git a/src/regression/string1.c b/src/regression/string1.c new file mode 100644 index 00000000..27f9c7ae --- /dev/null +++ b/src/regression/string1.c @@ -0,0 +1,47 @@ +unsigned char success=0; +unsigned char failures=0; +unsigned char dummy=0; +//unsigned bit bit1; + +typedef unsigned char byte; +data at 0x06 unsigned char PORTB; + +byte uchar0; +const byte arr[] = { 1,2,8,9,0 }; + +bit at 0x30 B1; + +void done() +{ + + dummy++; + +} + +void isr(void) interrupt 1 using 1 +{ + + if(arr[3]!=9) + failures++; + PORTB = 7; + B1=1; +} + +void lcd1(const unsigned char *str) +{ + if(str && str[2] != 'r') + failures++; + + if(arr[3]!=9) + failures++; +} + +void main(void) +{ + dummy = 0; + + lcd1("str"); + B1=0; + success = failures; + done(); +} -- 2.30.2