'****************************************************************

'* Name : UNTITLED.BAS *
'* Author : [Yusuf Ozyer] *
'* Notice : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 29.09.2014 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
@ DEVICE pic16F877A
@ DEVICE pic16F877A, XT_OSC

DEFINE OSC 20
TRISA = %000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE = %000

ADCON1= 7
SYMBOL F = PORTB.7
SYMBOL E = PORTB.6
SYMBOL N = PORTB.5
SYMBOL E2= PORTB.4
SYMBOL R= PORTB.3

SYMBOL B= PORTB.2
SYMBOL A= PORTB.1
SYMBOL H= PORTB.0
SYMBOL C= PORTD.7
SYMBOL E3= PORTD.6

SYMBOL S= PORTD.5
SYMBOL P= PORTD.4
SYMBOL O= PORTC.7
' r2 port bilgisiyle girilecek

SYMBOL K= PORTC.5
SYMBOL U= PORTC.4
SYMBOL L= PORTD.3
SYMBOL U2= PORTD.2
SYMBOL B2= PORTD.1
SYMBOL U3= PORTD.0

SYMBOL TUM= PORTC.3

PORTA=0
PORTB=0
PORTC=0
PORTD=0
PORTE=1

'----------------------------------------BAŞLANGIÇ-----------------------------
BASLA:
'----------------------------------------sayma işlemi--------------------------
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
PAUSE 50
LOW K
HIGH U
PAUSE 50
LOW U
HIGH L
PAUSE 50
LOW L
HIGH U2
PAUSE 50
LOW U2
HIGH B2
PAUSE 50
LOW B2
HIGH U3

'------------------------------------sonda durdurma-----------------------------
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
PAUSE 50
LOW K
HIGH U
PAUSE 50
LOW U
HIGH L
PAUSE 50
LOW L
HIGH U2
PAUSE 50
LOW U2
HIGH B2
'2
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
PAUSE 50
LOW K
HIGH U
PAUSE 50
LOW U
HIGH L
PAUSE 50
LOW L
HIGH U2

'33333333

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
PAUSE 50
LOW K
HIGH U
PAUSE 50
LOW U
HIGH L
'4444444

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
PAUSE 50
LOW K
HIGH U

'555555555
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6
PAUSE 50
LOW PORTC.6

HIGH K
'666666666
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O
PAUSE 50
LOW O
HIGH PORTC.6

'77777777
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
PAUSE 50
LOW P
HIGH O

'8888888

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
PAUSE 50
LOW S
HIGH P
'999999999
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
PAUSE 50
LOW E3

HIGH S
'10 10 10 10

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
PAUSE 50
LOW C
HIGH E3
'11 11 11 11

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
PAUSE 50
LOW H
HIGH C
'12 12 12 12 12
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A
PAUSE 50
LOW A
HIGH H
'13 13 13 13 13

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
PAUSE 50
LOW B
HIGH A

'14 14 14 14 14

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R
PAUSE 50
LOW R

HIGH B
'15 15 15 15 15

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
PAUSE 50
LOW E2
HIGH R

'16 16 16 16 16 16
HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N
PAUSE 50
LOW N
HIGH E2
'17 17 17 17 17 17

HIGH F
PAUSE 50
LOW F
HIGH E
PAUSE 50
LOW E
HIGH N

'18 18 18 18 18 18

HIGH F
PAUSE 50
LOW F
HIGH E
'19 19 19 19 19 19

HIGH F
'20 20 20 20 20 20

HIGH TUM
PAUSE 100
LOW TUM
PAUSE 100
HIGH TUM
PAUSE 100
LOW TUM
PAUSE 100

GOTO BASLA