INTCON bits

*/ GIE PEIE T0IE INTE RBIE T0IF INTF RBIF @ (unsigned)&INTCON*8+7; @ (unsigned)&INTCON*8+6; @ (unsigned)&INTCON*8+5; @ (unsigned)&INTCON*8+4; @ (unsigned)&INTCON*8+3; @ (unsigned)&INTCON*8+2; @ (unsigned)&INTCON*8+1; @ (unsigned)&INTCON*8+0;
// alternate definitions static volatile bit static volatile bit TMR0IE @ (unsigned)&INTCON*8+5; TMR0IF @ (unsigned)&INTCON*8+2;

PIR1 bits

#ifdef __PINS_40 static volatile bit #endif PSPIF @ (unsigned)&PIR1*8+7;
static volatile bit static volatile bit static volatile bit static volatile bit static volatile bit static volatile bit static volatile bit

ADIF RCIF TXIF SSPIF

@ (unsigned)&PIR1*8+6; @ (unsigned)&PIR1*8+5; @ (unsigned)&PIR1*8+4; @ (unsigned)&PIR1*8+3;
CCP1IF @ (unsigned)&PIR1*8+2; TMR2IF @ (unsigned)&PIR1*8+1; TMR1IF @ (unsigned)&PIR1*8+0;

PIR2 bits

*/ CMIF EEIF BCLIF @ (unsigned)&PIR2*8+6; @ (unsigned)&PIR2*8+4; @ (unsigned)&PIR2*8+3;
static volatile bit static volatile bit static volatile bit static volatile bit
CCP2IF @ (unsigned)&PIR2*8+0;

T1CON bits

*/ T1CKPS1 @ (unsigned)&T1CON*8+5; T1CKPS0 @ (unsigned)&T1CON*8+4; T1OSCEN @ (unsigned)&T1CON*8+3; T1SYNC @ (unsigned)&T1CON*8+2; TMR1CS @ (unsigned)&T1CON*8+1; TMR1ON @ (unsigned)&T1CON*8+0;

T2CON bits

*/ TOUTPS3 @ (unsigned)&T2CON*8+6; TOUTPS2 @ (unsigned)&T2CON*8+5; TOUTPS1 @ (unsigned)&T2CON*8+4; TOUTPS0 @ (unsigned)&T2CON*8+3; TMR2ON @ (unsigned)&T2CON*8+2; T2CKPS1 @ (unsigned)&T2CON*8+1; T2CKPS0 @ (unsigned)&T2CON*8+0;

SSPCON bits

*/ WCOL SSPOV SSPEN CKP SSPM3 SSPM2 SSPM1 SSPM0 @ (unsigned)&SSPCON*8+7; @ (unsigned)&SSPCON*8+6; @ (unsigned)&SSPCON*8+5; @ (unsigned)&SSPCON*8+4; @ (unsigned)&SSPCON*8+3; @ (unsigned)&SSPCON*8+2; @ (unsigned)&SSPCON*8+1; @ (unsigned)&SSPCON*8+0;

CCP1CON bits

*/ CCP1X CCP1Y @ (unsigned)&CCP1CON*8+5; @ (unsigned)&CCP1CON*8+4;
CCP1M3 @ (unsigned)&CCP1CON*8+3; CCP1M2 @ (unsigned)&CCP1CON*8+2; CCP1M1 @ (unsigned)&CCP1CON*8+1; CCP1M0 @ (unsigned)&CCP1CON*8+0;

RCSTA bits

*/ SPEN @ (unsigned)&RCSTA*8+7;

static volatile bit

RX9 SREN CREN ADDEN FERR OERR RX9D
@ (unsigned)&RCSTA*8+6; @ (unsigned)&RCSTA*8+5; @ (unsigned)&RCSTA*8+4; @ (unsigned)&RCSTA*8+3; @ (unsigned)&RCSTA*8+2; @ (unsigned)&RCSTA*8+1; @ (unsigned)&RCSTA*8+0;

CCP2CON bits

*/ CCP2X CCP2Y @ (unsigned)&CCP2CON*8+5; @ (unsigned)&CCP2CON*8+4;

CCP2M3 @ (unsigned)&CCP2CON*8+3; CCP2M2 @ (unsigned)&CCP2CON*8+2; CCP2M1 @ (unsigned)&CCP2CON*8+1; CCP2M0 @ (unsigned)&CCP2CON*8+0;

ADCON0 bits

*/ ADCS1 ADCS0 CHS2 CHS1 CHS0 ADGO ADON @ (unsigned)&ADCON0*8+7; @ (unsigned)&ADCON0*8+6; @ (unsigned)&ADCON0*8+5; @ (unsigned)&ADCON0*8+4; @ (unsigned)&ADCON0*8+3; @ (unsigned)&ADCON0*8+2; @ (unsigned)&ADCON0*8+0;

OPTION bits

*/ RBPU @ (unsigned)&OPTION*8+7;
static bank1 bit static bank1 bit static bank1 bit static bank1 bit static bank1 bit static bank1 bit static bank1 bit static bank1 bit
INTEDG @ (unsigned)&OPTION*8+6; T0CS T0SE PSA PS2 PS1 PS0 @ (unsigned)&OPTION*8+5; @ (unsigned)&OPTION*8+4; @ (unsigned)&OPTION*8+3; @ (unsigned)&OPTION*8+2; @ (unsigned)&OPTION*8+1; @ (unsigned)&OPTION*8+0;

TRISA bits

*/ TRISA5 @ (unsigned)&TRISA*8+5; TRISA4 @ (unsigned)&TRISA*8+4; TRISA3 @ (unsigned)&TRISA*8+3; TRISA2 @ (unsigned)&TRISA*8+2; TRISA1 @ (unsigned)&TRISA*8+1; TRISA0 @ (unsigned)&TRISA*8+0;
static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit

TRISB bits

*/ TRISB7 @ (unsigned)&TRISB*8+7; TRISB6 @ (unsigned)&TRISB*8+6; TRISB5 @ (unsigned)&TRISB*8+5; TRISB4 @ (unsigned)&TRISB*8+4; TRISB3 @ (unsigned)&TRISB*8+3; TRISB2 @ (unsigned)&TRISB*8+2; TRISB1 @ (unsigned)&TRISB*8+1;
static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit
static volatile bank1 bit
TRISB0 @ (unsigned)&TRISB*8+0;

TRISC bits

*/ TRISC7 @ (unsigned)&TRISC*8+7; TRISC6 @ (unsigned)&TRISC*8+6; TRISC5 @ (unsigned)&TRISC*8+5; TRISC4 @ (unsigned)&TRISC*8+4; TRISC3 @ (unsigned)&TRISC*8+3; TRISC2 @ (unsigned)&TRISC*8+2; TRISC1 @ (unsigned)&TRISC*8+1; TRISC0 @ (unsigned)&TRISC*8+0;
static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit static volatile bank1 bit

CVRCON Bits

*/ CVREN CVROE CVRR CVR3 CVR2 CVR1 @ (unsigned)&CVRCON*8+7; @ (unsigned)&CVRCON*8+6; @ (unsigned)&CVRCON*8+5; @ (unsigned)&CVRCON*8+3; @ (unsigned)&CVRCON*8+2; @ (unsigned)&CVRCON*8+1;
@ (unsigned)&CVRCON*8+0;

ADCON1 bits

*/ ADFM ADCS2 PCFG3 PCFG2 PCFG1 PCFG0 @ (unsigned)&ADCON1*8+7; @ (unsigned)&ADCON1*8+6; @ (unsigned)&ADCON1*8+3; @ (unsigned)&ADCON1*8+2; @ (unsigned)&ADCON1*8+1; @ (unsigned)&ADCON1*8+0;
EECON1 bits */ EEPGD WRERR WREN WR RD @ (unsigned)&EECON1*8+7; @ (unsigned)&EECON1*8+3; @ (unsigned)&EECON1*8+2; @ (unsigned)&EECON1*8+1; @ (unsigned)&EECON1*8+0;
static volatile bank3 bit static volatile bank3 bit static volatile bank3 bit static volatile bank3 bit static volatile bank3 bit

#define CONFIG_ADDR

0x2007
/*osc configurations*/ #define RC #define HS #define XT #define LP 0x3FFF // resistor/capacitor 0x3FFE // high speed crystal/resonator 0x3FFD // crystal/resonator 0x3FFC // low power crystal/resonator
/*watchdog*/ #define WDTEN #define WDTDIS 0x3FFF // enable watchdog timer 0x3FFB // disable watchdog timer
/*power up timer*/ #define PWRTEN #define PWRTDIS 0x3FF7 // enable power up timer 0x3FFF // disable power up timer
/*brown out reset*/ #define BOREN #define BORDIS 0x3FFF // enable brown out reset 0x3FBF // disable brown out reset
/*Low Voltage Programmable*/ #define LVPEN #define LVPDIS 0x3FFF // low voltage programming enabled 0x3F7F // low voltage programming disabled
/*data code protected*/ #define DP // alternately #define DPROT #define DUNPROT 0x3EFF // use DP 0x3FFF // use UNPROTECT 0x3EFF // protect data code
/* Flash memory write enable/protect */ #define WRTEN #define WP1 0x3FFF /* flash memory write enabled */ 0x3DFF /* protect 0000 - 00FF */

#define WP2 #define WP3

0x3BFF 0x39FF
/* protect 0000 - 07FF(76A/77A) / 03FF(73A/74A) */ /* protect 0000 - 1FFF(76A/77A) / 0FFF(73A/74A) */
/*debug option*/ #define DEBUGEN #define DEBUGDIS 0x37FF // debugger enabled 0x3FFF // debugger disabled
/*code protection*/ #define PROTECT #define UNPROTECT 0x1FFF /* protect program code */ 0x3FFF /* do not protect the code */
Anexo 3, Librera stdio.h.
#ifndef _STDIO_H_ #define _STDIO_H_ #if z8
#define BUFSIZ #define _NFILE #else /* z80 */
#define BUFSIZ #define _NFILE #endif /* z80 */

1024 20

#ifndef _STDDEF typedef int typedef unsigned ptrdiff_t; size_t; /* result type of pointer difference */ /* type yielded by sizeof */ /* wide char type */
typedef unsigned short wchar_t; #define _STDDEF #define offsetof(ty, mem) #endif /* _STDDEF */

((int)&(((ty *)0)->mem))
#ifndef _STDARG #include #endif <stdarg.h>
#ifndef NULL #define NULL (0)

#endif /* NULL */

extern int

errno;

/* system error number */

#ifndef FILE

_HOSTED
extern struct _iobuf { char * int char * _ptr; _cnt; _base;
unsigned short _flag; short size_t } _iob[_NFILE]; _file; _size;

#define FILE

struct _iobuf
#define L_tmpnam #define _MAXTFILE
/* max length of temporary names */ /* max number of temporary files */
DOS /* max length of a pathname */
#define FILENAME_MAX #define FOPEN_MAX #endif

extern struct _tfiles {

tname[L_tmpnam];
FILE * tfp; } * _tfilesptr;

/* _HOSTED */

struct __prbuf { char * void (* }; #endif /* _HOSTED */ #endif /* FILE */ ptr; func)(char);
#define _IOFBF #define _IOREAD #define _IOWRT #define _IORW #define _IONBF #define _IOMYBUF #define _IOEOF #define _IOERR #define _IOSTRG #define _IOBINARY #define _IOLBF #define _IODIRN #define _IOAPPEND #define _IOSEEKED #define _IOTMPFILE
/* true when file is in write mode */ /* file was opened in append mode */ /* a seek has occured since last write */
010000 /* this file is a temporary */
#define EOF #define _IOSTRING

(-1) (-67)

#define SEEK_SET #define SEEK_CUR #define SEEK_END #define TMP_MAX
_HOSTED (&_iob[0]) (&_iob[1]) (&_iob[2])
#define stdin #define stdout #define stderr #ifdef DOS #define stdprn #endif #define getchar() #define putchar(x) #else /* _HOSTED */

(&_iob[3])

getc(stdin) putc(x,stdout)

#include

<conio.h> getche() putch(x)
#define getchar() #define putchar(x)

cprintf(char *,.);

#pragma printf_check(cprintf) #if defined(_MPC_) && !defined(_PIC18) _doprnt(char *, const register char *,.);
extern void #else extern int
_doprnt(struct __prbuf *, const register char *, register va_list);
#endif /* _MPC_ */ #endif /* _HOSTED */

/* * * */

getc() and putc() must be functions for CP/M to allow the special handling of '\r', '\n' and '\032'. The same for MSDOS except that it at least knows the length of a file.

#define getc(p) #define putc(x,p)

fgetc(p) fputc(x,p)

#define feof(p) #define ferror(p) #define fileno(p) #define clrerr(p) #define clreof(p) #define clearerr(p)
(((p)->_flag&_IOEOF)!=0) (((p)->_flag&_IOERR)!=0) ((unsigned short)p->_file) p->_flag &= ~_IOERR p->_flag &= ~_IOEOF p->_flag &= ~(_IOERR|_IOEOF)
_HOSTED _flsbuf(char, FILE *); _filbuf(FILE *); fclose(FILE *); fflush(FILE *); fgetc(FILE *); ungetc(int, FILE *); fputc(int, FILE *); getw(FILE *); putw(int, FILE *); fputs(const char *, FILE *); fread(void *, size_t, size_t, FILE *); fwrite(const void *, size_t, size_t, FILE *); fseek(FILE *, long, int); rewind(FILE *); setbuf(FILE *, char *); setvbuf(FILE *, char *, int, size_t); fprintf(FILE *, const char *,.); fscanf(FILE *, const char *,.); vfprintf(FILE *, const char *, va_list); vfscanf(FILE *, const char *, va_list); remove(const char *); rename(const char *, const char *); fopen(const char *, const char *); freopen(const char *, const char *, FILE *); fdopen(int, const char *);
extern int extern int extern int extern int extern int extern int extern int extern int extern int extern int extern int extern int extern int extern int extern void extern int extern int extern int extern int extern int extern int extern int extern FILE * extern FILE * extern FILE *
extern long extern char * extern void extern char * extern void extern char * extern FILE *
ftell(FILE *); fgets(char *, int, FILE *); perror(const char *); _bufallo(void); _buffree(char *); tmpnam(char *); tmpfile(void);
unix popen(char *, char *); pclose(FILE *);
extern FILE * extern int #endif extern void

(*_atexitptr)(void);

#pragma printf_check(fprintf)

#endif /* __HOSTED */

defined(_MPC_) && !defined(_PIC18) _doscan(const char *, const char *, va_list); _doprnt(0, (s), (l)) _doprnt((b), (s), (l)) _doscan(0, (s), (l)) _doscan((b), (s), (l))
//#define vprintf(s, l) //#define vsprintf(b, s, l) //#define vscanf(s, l) //#define vsscanf(b, s, l)
#pragma printf_check(printf) const #pragma printf_check(sprintf) const
#if defined(_PIC16) extern unsigned char #else /* _PIC16 */ sprintf(char *, const char *,.); sprintf(far char *, const char *,.);
extern unsigned char #endif #if
defined(_PIC18) printf(const char *,.);

extern int #else

extern unsigned char #endif #else /* _MPC_ */

printf(const char *,.);

extern char * extern int extern int extern int extern int extern int extern int extern int
gets(char *); puts(const char *); scanf(const char *,.); sscanf(const char *, const char *,.); vprintf(const char *, va_list); vsprintf(char *, const char *, va_list); vscanf(const char *, va_list ap); vsscanf(const char *, const char *, va_list);
#pragma printf_check(printf) #pragma printf_check(sprintf) extern int sprintf(char *, const char *,.);
extern int printf(const char *,.);

#endif /* _MPC_ */

#endif /* _STDIO_H_ */
Anexo 4, Librera delay.h.
/* * * * * * * * * * * * */ Note that there are range limits: x must not exceed 255 - for xtal frequencies > 12MHz the range for DelayUs is even smaller. To use DelayUs it is only necessary to include this file; to use DelayMs you must include delay.c in your project. Functions available: DelayUs(x) DelayMs(x) Delay specified number of microseconds Delay specified number of milliseconds Delay functions for HI-TECH C on the PIC
Set the crystal frequency in the CPP predefined symbols list in
HPDPIC, or on the PICC commmand line, e.g. picc -DXTAL_FREQ=4MHZ
or picc -DXTAL_FREQ=100KHZ
Note that this is the crystal frequency, the CPU clock is divided by 4.
MAKE SURE this code is compiled with full optimization!!!
#ifndef XTAL_FREQ #define XTAL_FREQ #endif 4MHZ /* Crystal frequency in MHz */

#define MHZ #define KHZ

*1000L *1
/* number of kHz in a MHz */ /* number of kHz in a kHz */

XTAL_FREQ >= 12MHZ

#define DelayUs(x)

{ unsigned char _dcnt; \

_dcnt = (x)*((XTAL_FREQ)/(12MHZ)); \ while(--_dcnt != 0) \ continue; } #else
_dcnt = (x)/((12MHZ)/(XTAL_FREQ))|1; \ while(--_dcnt != 0) \ continue; } #endif
extern void DelayMs(unsigned char);

Anexo 5, Librera adc.h.

/* * Analog conversion stuff for 16C71 */
/* * Read the adc on the specified channel - result is in ADRES */
extern void adc_read(unsigned char channel);

Anexo 6, Librera lcd.h.

/* * */ LCD interface header file
/* write a byte to the LCD in 4 bit mode */
extern void lcd_write(unsigned char);
/* Clear and home the LCD */
extern void lcd_clear(void);
/* write a string of characters to the LCD */

extern void lcd_puts(const char * s);
/* Go to the specified position */
extern void lcd_goto(unsigned char pos);
/* intialize the LCD - call before anything else */
extern void lcd_init(void);
extern void lcd_putch(char);
Set the cursor position */

#define lcd_cursor(x)

lcd_write(((x)&0x7F)|0x80)
Anexo 7, Librera float.h.
Characteristics of floating types */
#define DBL_RADIX #define DBL_ROUNDS #define FLT_RADIX #define FLT_ROUNDS
/* radix of exponent for a double */ /* doubles don't round when converted to int */ /* radix of float exponent */ /* float also truncates to int */
defined(i8096) || defined(m6800) || defined(m6809) || defined(i8051) || \ defined(h8300) || defined(h8300h)|| defined(m6805) || defined(_V8) || \ defined(__MSP430C__) || defined(__ARMC__) || defined(__DSPICC__)
#define FLT_MANT_DIG #define FLT_EPSILON #define FLT_DIG #define FLT_MIN_EXP #define FLT_MIN
24 1.19209290e--125 1.17549435e-38
#define FLT_MIN_10_EXP -37 #define FLT_MAX_EXP #define FLT_MAX 128 3.40282347e+38
#define FLT_MAX_10_EXP 38 #define DBL_MANT_DIG #define DBL_EPSILON #define DBL_DIG #define DBL_MIN_EXP #define DBL_MIN 24 1.19209290e--125 1.17549435e-38
#define DBL_MIN_10_EXP -37 #define DBL_MAX_EXP #define DBL_MAX 128 3.40282347e+38
#define DBL_MAX_10_EXP 38 #endif

defined(_MPC_)

/* MICROCHIP PIC */
16 3.05176e--125 1.17549435e-38
#define FLT_MIN_10_EXP -37 #define FLT_MAX_EXP #define FLT_MAX 128 3.40277e+38
#define FLT_MAX_10_EXP 38 #if sizeof(double) == 1.19209290e--125 1.17549435e-38
#define DBL_MANT_DIG #define DBL_EPSILON #define DBL_DIG #define DBL_MIN_EXP #define DBL_MIN
#define DBL_MIN_10_EXP -37
#define DBL_MAX_EXP #define DBL_MAX

128 3.40282347e+38

#define DBL_MAX_10_EXP 38 #else #define DBL_MANT_DIG #define DBL_EPSILON #define DBL_DIG #define DBL_MIN_EXP #define DBL_MIN FLT_MANT_DIG FLT_EPSILON FLT_DIG FLT_MIN_EXP FLT_MIN
#define DBL_MIN_10_EXP FLT_MIN_10_EXP #define DBL_MAX_EXP #define DBL_MAX FLT_MAX_EXP FLT_MAX
#define DBL_MAX_10_EXP FLT_MAX_10_EXP #endif #endif
defined(_XA_) 24 1.19209290e--125 1.17549435e-38

#define FLT_MAX_10_EXP 38 #define FLT_MANT_DIG #if 24 /* 24 bits in mantissa */
sizeof(double) == 1.19209290e--125 1.17549435e-38
#define DBL_MAX_10_EXP 38 #define DBL_MANT_DIG #elif __FASTDBL 48 2.147544363e--16381 2.225073858507202e-/* 24 bits in mantissa */
#define DBL_MIN_10_EXP -1640 #define DBL_MAX_EXP #define DBL_MAX 16384 1.797693134862315e+1640
#define DBL_MAX_10_EXP 1641 #else #define DBL_MANT_DIG #define DBL_EPSILON 53 2.220446049250313e-16
#define DBL_DIG #define DBL_MIN_EXP #define DBL_MIN
15 -1021 2.225073858507202e-308
#define DBL_MIN_10_EXP -307 #define DBL_MAX_EXP #define DBL_MAX 1024 1.797693134862315e+308
#define DBL_MAX_10_EXP 308 #endif #endif
defined(z80) 24 /* 24 bits in mantissa */ /* ditto for double */ /* ditto long double */
#define FLT_MANT_DIG #define DBL_MANT_DIG #define DBL_MANT_DIG #define FLT_EPSILON #define DBL_EPSILON #define FLT_DIG #define DBL_DIG #define FLT_MIN_EXP #define DBL_MIN_EXP #define FLT_MIN #define DBL_MIN
1.19209290e-07 /* smallest x, x+1.0 != 1.0 */ 1.19209290e-07 /* smallest x, x+1.0 != 1.0 */ -63 -63 1.0842021e-19 1.0842021e-19 /* smallest floating number */ /* min binary exponent */ /* decimal significant digs */
#define FLT_MIN_10_EXP -19 #define DBL_MIN_10_EXP -19 #define FLT_MAX_EXP #define DBL_MAX_EXP #define FLT_MAX #define DBL_MAX 9.223369e18 9.223369e18 /* max decimal exponent */ /* max floating number */ /* max binary exponent */
#define FLT_MAX_10_EXP 18 #define DBL_MAX_10_EXP 18 #endif z80
defined(i8086) || defined(m68k)
The 8086 and 68000 use IEEE 32 and 64 bit float/doubles */
24 1.192092896e--125 1.175494351e-38
#define FLT_MIN_10_EXP -37 #define FLT_MAX_EXP #define FLT_MAX 128 3.402823466+38
#define FLT_MAX_10_EXP 38 #define DBL_MANT_DIG #define DBL_EPSILON #define DBL_DIG #define DBL_MIN_EXP #define DBL_MIN 53 2.220446049250313e--1021 2.225073858507202e-308
#define DBL_MAX_10_EXP 308 #endif // i8086 || m68k
long double equates to double */
#define LDBL_MANT_DIG #define LDBL_EPSILON #define LDBL_DIG #define LDBL_MIN_EXP #define LDBL_MIN
DBL_MANT_DIG DBL_EPSILON DBL_DIG DBL_MIN_EXP DBL_MIN DBL_MIN_10_EXP
#define LDBL_MIN_10_EXP #define LDBL_MAX_EXP #define LDBL_MAX
DBL_MAX_EXP DBL_MAX DBL_MAX_10_EXP

#define LDBL_MAX_10_EXP

Anexo 8, Librera lcd.c.
/* * * * * * * * * * * * * * * */ To use these routines, set up the port I/O (TRISA, TRISB) then call lcd_init(), then other routines as required. PORTB bits 0-3 are connected to the LCD data bits 4-7 (high nibble) PORTB bit 5 is connected to the LCD RS input (register select) PORTB bit 4 is connected to the LCD EN bit (enable) LCD interface example Uses routines from delay.c This code will interface to a standard LCD controller like the Hitachi HD44780. It uses it in 4 bit mode, with the hardware connected as follows (the standard 14 pin LCD connector is used):

#include #include #include
<pic.h> "lcd.h" "delay.h"
static bit LCD_RS static bit LCD_EN
@ ((unsigned)&PORTB*8+5); @ ((unsigned)&PORTB*8+4);
// Register select // Enable

#define LCD_STROBE

((LCD_EN = 1),(LCD_EN=0))
void lcd_write(unsigned char c) { PORTB = (PORTB & 0xF0) | LCD_STROBE; PORTB = (PORTB & 0xF0) | LCD_STROBE; DelayUs(40); } (c & 0x0F); (c >> 4);
/* * */ Clear and home the LCD
void lcd_clear(void) { LCD_RS = 0; lcd_write(0x1); DelayMs(2); }
/* write a string of chars to the LCD */
void lcd_puts(const char * s) { LCD_RS = 1; while(*s) lcd_write(*s++); } // write characters
/* write one character to the LCD */
void lcd_putch(char c) { LCD_RS = 1; // write characters (c >> 4);
PORTB = (PORTB & 0xF0) | LCD_STROBE; PORTB = (PORTB & 0xF0) | LCD_STROBE; DelayUs(40); }

(c & 0x0F);

/* * Go to the specified position */
void lcd_goto(unsigned char pos) { LCD_RS = 0; lcd_write(0x80+pos); }
/* initialise the LCD - put into 4 bit mode */
void lcd_init(void) { LCD_RS = 0; DelayMs(15); PORTB = 0x3; LCD_STROBE; DelayMs(5); LCD_STROBE; DelayUs(100); LCD_STROBE; DelayMs(5); PORTB = 0x2; LCD_STROBE; // set 4 bit mode // write control bytes // power on delay // attention!
DelayUs(40); lcd_write(0x28); lcd_write(0x08); lcd_write(0x0E); lcd_write(0x06); } // 4 bit mode, 1/16 duty, 5x8 font // display off // display on, blink curson off // entry mode
Anexo 9, Cdigo de Programacin.
#include <pic168xa.h> #include <stdio.h> #include <delay.h> #include <delay.c> #include "adc.h" #include <lcd.c> #include <lcd.h> #include <float.h>
int volumen; char dato1[15];
void init_ADC(); void selec_Channel(int a,int b,int c); void Tx(int t);

void main(void) {

SPBRG=1; BRGH=0; SYNC=0; SPEN=1; TX9=0;
//Baud Rate 31.25Kbauds //High Speed Off //Asynchronous Mode //Enable the asynchronous serial port //8 bit transmition
lcd_init(); PORTA = 0x00; ADCS1=1; ADCS0=1; ADCON1 = 0x00; //AN7=AN6=Digitales AN5:AN0=Analgicas //Oscilador interno RC
while(1) { lcd_clear(); selec_Channel(0,0,0); init_ADC(); volumen = (0.7944*ADRESH+0.7354); lcd_goto(0x00); sprintf(dato1, "Volumen: %d", volumen); lcd_puts(dato1); lcd_puts("%"); lcd_goto(0x40); lcd_puts("Channel 1"); Tx(7); //Volumen //Segunda lnea

selec_Channel(0,0,1); init_ADC(); Tx(1); //Modulation
selec_Channel(0,1,0); init_ADC(); Tx(16); //Bass
selec_Channel(0,1,1); init_ADC(); Tx(17); //Treble
selec_Channel(1,0,0); init_ADC(); Tx(18); //Panning

RA5=0;

selec_Channel(1,1,0); init_ADC(); Tx(80); //Mute
selec_Channel(1,1,1); init_ADC(); Tx(81); } } //Solo
void init_ADC() { ADON=1; ADGO=1; while(ADGO) continue; }
void selec_Channel(int a,int b,int c) { CHS2=a; CHS1=b; CHS0=c; }
void Tx(int t) { TXEN=1; //Habilitar transmision
TXREG=0xB0; DelayMs(1); TXREG=t; DelayMs(1); TXREG=(ADRESH); DelayMs(1); }
//Control Change Message Ch1
//t = Nmero de Controlador

//Valor

Huber, David Miles, The MIDI Manual, primera edicin, SAMS. MIDI Manufacters Association, http://www.midi.org/. 130 aos de msica electrnica, http://www.lpi.tel.uva.es/~nacho/docencia/ing_ond_1/trabajos_04_05/io3/public _html/historia.html.
http://www.yio.com.ar/secciones.php?name=Sections&op=viewarticle&artid=6. Control Surfaces Reviews & Features, http://emusician.com/controlsurfaces. http://mixonline.com. http://www.tascam.com/Products/US-224.html. www.logiq-electronics.com. MIDI controllers, http://www.synthzone.com/ctrlr.htm. http://www.zzounds.com. www.computermusic.co.uk. http://www.behringer.com. All You Need To Know About ASIO, http://www.soundblaster.com/resources/read.asp?articleid=53937&page=1&cat =2.
MIDI 1.0 Specification Message Summary, http://www.harmonycentral.com/MIDI/Doc/table4.html.
Computacin aplicada a la msica, http://musica.unq.edu.ar/personales/odiliscia/papers/midi-re.htm.
MIDI is the language of gods, http://www.borg.com/~jglatt/. Guide to the MIDI Software Specification, http://www.somascape.org/midi/tech/spec.html.