; PicBasic Pro Compiler Demo, (c) 1998, 2004 microEngineering Labs, Inc. All Rights Reserved. PM_USED EQU 1 INCLUDE "16F870.INC" ; Define statements. #define CODE_SIZE 2 #define OSC 20 RAM_START EQU 00020h RAM_END EQU 000EFh RAM_BANKS EQU 00002h BANK0_START EQU 00020h BANK0_END EQU 0007Fh BANK1_START EQU 000A0h BANK1_END EQU 000EFh EEPROM_START EQU 02100h EEPROM_END EQU 0213Fh R0 EQU RAM_START + 000h R1 EQU RAM_START + 002h R2 EQU RAM_START + 004h R3 EQU RAM_START + 006h R4 EQU RAM_START + 008h R5 EQU RAM_START + 00Ah R6 EQU RAM_START + 00Ch R7 EQU RAM_START + 00Eh R8 EQU RAM_START + 010h FLAGS EQU RAM_START + 012h GOP EQU RAM_START + 013h RM1 EQU RAM_START + 014h RM2 EQU RAM_START + 015h RR1 EQU RAM_START + 016h RR2 EQU RAM_START + 017h _B0 EQU RAM_START + 018h _PORTL EQU PORTB _PORTH EQU PORTC _TRISL EQU TRISB _TRISH EQU TRISC #define _SO _PORTB_0 #define _S1 _PORTB_7 #define _PORTB_0 PORTB, 000h #define _PORTB_7 PORTB, 007h ; Constants. _N2400 EQU 00004h INCLUDE "SERIN_~1.MAC" INCLUDE "PBPPIC14.LIB" MOVE?CB 000h, TRISB LABEL?L _main SERPIN?T _S1 SERMODE?C _N2400 SEROUT?C 042h SEROUT?C 04Ch SEROUT?C 055h SEROUT?C 042h PAUSE?C 003E8h GOTO?L _main END