.include "tn26def.inc"

;Register

ldi r16, 0b11111111
out DDRA, r16

ldi r16, 0b11110111
out DDRB, r16

;ON

sbi PORTB, 0

;Reset

sbi PORTB, 1
sbi PORTB, 2
cbi PORTB, 2
cbi PORTB, 1

;Wert

ldi r17, 0

;Read-Bit0

ldi r18, 1

sbis PORTB, 3
rjmp CLK0
rjmp Positiv0

Positiv0:
ADD r17, r18
rjmp CLK0

CLK0:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit1

ldi r18, 1

sbis PORTB, 3
rjmp CLK1
rjmp Positiv1

Positiv1:
ADD r17, r18
rjmp CLK1

CLK1:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit2

ldi r18, 1

sbis PORTB, 3
rjmp CLK2
rjmp Positiv2

Positiv2:
ADD r17, r18
rjmp CLK2

CLK2:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit3

ldi r18, 1

sbis PORTB, 3
rjmp CLK3
rjmp Positiv3

Positiv3:
ADD r17, r18
rjmp CLK3

CLK3:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit4

ldi r18, 1

sbis PORTB, 3
rjmp CLK4
rjmp Positiv4

Positiv4:
ADD r17, r18
rjmp CLK4

CLK4:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit5

ldi r18, 1

sbis PORTB, 3
rjmp CLK5
rjmp Positiv5

Positiv5:
ADD r17, r18
rjmp CLK5

CLK5:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit6

ldi r18, 1

sbis PORTB, 3
rjmp CLK6
rjmp Positiv6

Positiv6:
ADD r17, r18
rjmp CLK6

CLK6:
sbi PORTB, 2
cbi PORTB, 2

;Read-Bit7

ldi r18, 1

sbis PORTB, 3
rjmp CLK7
rjmp Positiv7

Positiv7:
ADD r17, r18
rjmp CLK7

CLK7:
sbi PORTB, 2
cbi PORTB, 2

;OFF

cbi PORTB, 0

;Output

out PORTA, r17

;Ende

Ende:
rjmp Ende