RX Alıcı Modüllü Devre için Bas Dosyası

'16F628A ile RX Alıcı Modüllü Devre için Bas Dosyası '**************************************************************** '*  Name    : alici.BAS                                        * '*  Author  : Şinasi Yavuz ]                                    * '*  Notice  : Copyright (c) 06,06,2006                          * '*          : All Rights Reserved                               * '*  Date    : 28.03.2007                                        * '*  Version : 1.0                                               * '*  Notes   : PICLE VERICI bas dosyasy                          * '*          :                                                   * '**************************************************************** TRISA=255 TRISB=0 PORTA=0 PORTB=0 ALICI VAR BYTE ALICI=0 PAUSE 500 CMCON=7 high portb.0 pause 1000 low portb.0 high portb.2 pause 1000 low portb.2 BASLA: SERIN2 PORTA.1,396,[WAIT("SIN"),ALICI]     select case alici   case 10   toggle portb.0                 case 20      toggle portb.1       case 30   toggle portb.2                   case 40      toggle portb.3             case 50   toggle portb.4                 case 60      toggle portb.5       case 70   toggle portb.6              end select GOTO BASLA END