acil yardım

@ DEVICE pic16F628 
  @ DEVICE pic16F628, MCLR_OFF 
  @ DEVICE pic16F628, INTRC_OSC_NOCLKOUT 
   
  CMCON=7 
  VRCON=0 
   
  ‘—Girişler—- 
   
  input PORTB.0 ‘girişleri tanımladık 
  INPUT PORTB.1 
  INPUT PORTB.2 
   
  ‘—-Çıkışlar— 
   
  OUTPUT PORTB.3 ‘çıkışları tanımladık. 
  OUTPUT PORTB.4 
   
  ‘—Değişkenler— 
   
  SYMBOL SOLCNY=PORTB.0 ‘portlara değişken ismi verdik. 
  SYMBOL ORTACNY=PORTB.1 
  SYMBOL SAGCNY=PORTB.2 
   
  SYMBOL SOLILERI=PORTB.3 
  SYMBOL SAGILERI=PORTB.4 
   
  ‘——–Ana Döngü—————— 
   
  BASLA: 
  IF SOLCNY=0 AND ORTACNY=0 AND SAGCNY=0 THEN GOSUB ILERI 
  IF SOLCNY=0 AND ORTACNY=0 AND SAGCNY=1 THEN GOSUB SOLA_DON 
  IF SOLCNY=0 AND ORTACNY=1 AND SAGCNY=0 THEN GOSUB ILERI 
  IF SOLCNY=0 AND ORTACNY=1 AND SAGCNY=1 THEN GOSUB SOLA_DON 
  IF SOLCNY=1 AND ORTACNY=0 AND SAGCNY=0 THEN GOSUB SAGA_DON 
  IF SOLCNY=1 AND ORTACNY=0 AND SAGCNY=1 THEN GOSUB ILERI 
  IF SOLCNY=1 AND ORTACNY=1 AND SAGCNY=0 THEN GOSUB SAGA_DON 
  IF SOLCNY=1 AND ORTACNY=1 AND SAGCNY=1 THEN GOSUB ILERI 
  GOTO BASLA 
  END 
  ‘———Etiketler—————— 
  ‘————————————– 
   
  ILERI: 
  HIGH SOLILERI 
  HIGH SAGILERI 
  GOTO BASLA 
  END 
   
  SAGA_DON: 
  HIGH SOLILERI 
  low SAGILERI 
  GOTO BASLA 
  END 
   
  SOLA_DON: 
  HIGH SAGILERI 
  LOW SOLILERI 
  GOTO BASLA 
  END

 
  ;**************************************************************** 
  ;*  16F628.INC                                                  * 
  ;*                                                              * 
  ;*  By        : Leonard Zerman, Jeff Schmoyer                   * 
  ;*  Notice    : Copyright (c) 2002 microEngineering Labs, Inc.  * 
  ;*              All Rights Reserved                             * 
  ;*  Date      : 09/27/02                                        * 
  ;*  Version   : 2.43                                            * 
  ;*  Notes     :                                                 * 
  ;**************************************************************** 
          NOLIST 
      ifdef PM_USED 
          LIST 
          include 'M16F62x.INC'   ; PM header 
          device  pic16F628, xt_osc, wdt_on, pwrt_on, mclr_on, lvp_off, protect_off 
          XALL 
          NOLIST 
      else 
          LIST 
          LIST p = 16F628, r = dec, w = -302 
          INCLUDE "P16F628.INC"   ; MPASM  Header 
          __config _XT_OSC & _WDT_ON & _PWRTE_ON & _MCLRE_ON & _LVP_OFF & _CP_OFF 
          NOLIST 
      endif 
          LIST