;               
.INCLUDE "C:\ATMEL\TAVRASM\APPNOTES\1200DEF.INC"
.CSEG
.ORG 0
;
;
;               
CLI
LDI R16,$FF
OUT DDRD,R16
LDI R16,0
OUT PORTD,R16
LDI R16,$FC
OUT DDRB,R16
LDI R16,0
OUT PORTB,R16
CLR R21
CLR R22
CLR R23
CLR R24
;               LED READY
SBI PORTD,2
LDI R16,$FF
D1: LDI R17,$FF
DN1: NOP
DEC R17
BRNE DN1
DEC R16
BRNE D1
CBI PORTD,2
;               LED READY
;
;                
RCALL STB1
RCALL STB2
RCALL STB3
RCALL STB4
RUNC: NOP 
RCALL BAT1
RCALL BAT2
RCALL BAT3
RCALL BAT4
CPI R21,$55
BRNE RUNC
CPI R22,$55
BRNE RUNC
CPI R23,$55
BRNE RUNC
CPI R24,$55
BRNE RUNC
SBI PORTD,2
END: NOP 
RJMP END
;                
;
;              
PAUSE: NOP
NOP
NOP
NOP
NOP
RET
;
;               1
;
STB1: NOP
CBI PORTD,4
CBI PORTD,0
CBI PORTD,1
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ SB1
LDI R21,$FF
SBI PORTD,6
RET
SB1: LDI R21,0
SBI PORTD,5
RET
;
;              BAT2
;
STB2: NOP
CBI PORTD,4
SBI PORTD,0
CBI PORTD,1
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ SB2
LDI R22,$FF
SBI PORTB,3
RET
SB2: LDI R22,0
SBI PORTB,2
RET
;
;              BAT3
;
STB3: NOP
CBI PORTD,4
CBI PORTD,0
SBI PORTD,1
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ SB3
LDI R23,$FF
SBI PORTB,5
RET
SB3: LDI R23,0
SBI PORTB,4
RET
;
;              BAT4
;
STB4: NOP
CBI PORTD,4
SBI PORTD,0
SBI PORTD,1
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ SB4
LDI R24,$FF
SBI PORTB,7
RET
SB4: LDI R24,0
SBI PORTB,6
RET
;
;              BAT1
;
BAT1: NOP
CPI R21,$55
BRNE MB1
CBI PORTD,5
CBI PORTD,6
RET
MB1: CPI R21,0
BREQ RAZR1
CBI PORTD,0
CBI PORTD,1
SBI PORTD,4
SBI PORTD,6
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB12
RET
MB12: CBI PORTD,6
LDI R21,$55
RET
RAZR1: CBI PORTD,0
CBI PORTD,1
CBI PORTD,4
SBI PORTD,5
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB13
CBI PORTD,5
LDI R21,$FF
MB13: RET
;
;                BAT2
;
BAT2: NOP
CPI R22,$55
BRNE MB2
CBI PORTB,2
CBI PORTB,3
RET
MB2: CPI R22,0
BREQ RAZR2
SBI PORTD,0
CBI PORTD,1
SBI PORTD,4
SBI PORTB,3
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB22
RET
MB22: CBI PORTB,3
LDI R22,$55
RET
RAZR2: SBI PORTD,0
CBI PORTD,1
CBI PORTD,4
SBI PORTB,2
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB23
CBI PORTB,2
LDI R22,$FF
MB23: RET
;
;                3
;
BAT3: NOP
CPI R23,$55
BRNE MB3
CBI PORTB,5
CBI PORTB,4
RET
MB3: CPI R23,0
BREQ RAZR3
CBI PORTD,0
SBI PORTD,1
SBI PORTD,4
SBI PORTB,5
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB32
RET
MB32: CBI PORTB,5
LDI R23,$55
RET
RAZR3: CBI PORTD,0
SBI PORTD,1
CBI PORTD,4
SBI PORTB,4
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB33
CBI PORTB,4
LDI R23,$FF
MB33: RET
;
;               BAT4
;
BAT4: NOP
CPI R24,$55
BRNE MB4
CBI PORTB,7
CBI PORTB,6
RET
MB4: CPI R24,0
BREQ RAZR4
SBI PORTD,0
SBI PORTD,1
SBI PORTD,4
SBI PORTB,7
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB42
RET
MB42: CBI PORTB,7
LDI R24,$55
RET
RAZR4: SBI PORTD,0
SBI PORTD,1
CBI PORTD,4
SBI PORTB,6
RCALL PAUSE
IN R16,ACSR
ANDI R16,$20
CPI R16,$20
BREQ MB43
CBI PORTB,6
LDI R24,$FF
MB43: RET
