1 /* THIS SAMPLE CODE IS PROVIDED AS IS AND IS SUBJECT TO ALTERATIONS. FUJITSU */
2 /* MICROELECTRONICS ACCEPTS NO RESPONSIBILITY OR LIABILITY FOR ANY ERRORS OR */
3 /* ELIGIBILITY FOR ANY PURPOSES. */
4 /* (C) Fujitsu Microelectronics Europe GmbH */
5 /*---------------------------------------------------------------------------*/
9 #pragma section CODE=IRAM,attr=CODE
10 const char ASCII[] = "0123456789ABCDEF";
14 // Initialize UART asynchronous mode
15 // BGR04 = 1666; // 9600 Baud @ 16MHz
16 // BGR04 = 832; // 19200 Baud @ 16MHz
17 BGR04 = 416; // 38400 Baud @ 16MHz
19 SMR04 = 0x0d; // enable SOT3, Reset, normal mode
20 SSR04 = 0x00; // LSB first
21 PFR19 = (PFR19 & 0xFC) | 0x03; // enable UART: SIN,SOT for async. transfer
22 EPFR19 = 0x00; // enable UART
25 void Putch4(unsigned char ch) /* sends a char */
27 while (SSR04_TDRE == 0); /* wait for transmit buffer empty */
28 TDR04 = ch; /* put ch into buffer */
31 unsigned char Getch4(void) /* waits for and returns incomming char */
38 while(SSR04_RDRF == 0) /* wait for data received */
43 if ((SSR04 & 0xE0) != 0) /* Check for errors PE, ORE, FRE */
45 SCR04_CRE = 1; /* Clear error flags */
48 return (ch); /* return char */
53 void Puts4(const char *Name2) /* Puts a String to UART */
59 for (i=0; i<strlen(Name2); i++) /* go through string */
63 Putch4(Name2[i]); /* send it out */
68 char Echo4(void) /* Echo UART and return ch */
72 Puts4("UART 4 receive: "); // send text to UART
73 ch = RDR04; // readout character
74 Putch4(ch); // send character to UART
81 void Puthex4(unsigned long n, unsigned char digits)
83 unsigned char digit=0,div=0,i;
85 div=(4*(digits-1)); /* init shift divisor */
86 for (i=0;i<digits;i++)
88 digit = ((n >> div)&0xF); /* get hex-digit value */
89 Putch4(digit + ((digit < 0xA) ? '0' : 'A' - 0xA));
90 div-=4; /* next digit shift */
94 void Putdec4(unsigned long x, int digits)
99 if (digits < 0) { /* should be print of zero? */
103 buf[digits]='\0'; /* end sign of string */
105 for (i=digits; i>0; i--) {
106 buf[i-1] = ASCII[x % 10]; // + '0' enough? :o
112 for (i=0; buf[i]=='0'; i++) { /* no print of zero */
118 Puts4(buf); /* send string */