; Orange programmer module v3.2
; (c) 2006-2007 CnCLab
; Atmel AVR
; 
; CHIP=ATmega64,64K,ATM64.HPL
; AREA=FLASH,64K(128),0,0
; AREA=EEPROM,2K


ALLPINS=0	;PFP64
OPTIONS=mf,   ;FLASH: no modify, skip blank
INFO="AVR Adapter - QFP64"


PINO=SCK,  0   ; PB1 pin 11
PINO=MOSI, 2   ; PE0 pin 2
PINO=MISO, 1   ; PE1 pin 3
PINO=RESET,3   ;     pin 20
PINI=MISO, 1   ;

;PINO=GND1,0   ; pins 22,53,63
;PINO=VCC1,0   ; pins 21,52,64
;XTAL1		 pin 24 

BUSO=CFREQ,128

R8=Fuses,B8
R9=Lock,C6,BLB12,BLB11,BLB02,BLB01,LB2,LB1
R10=CKSEL,L,"0000: Ext Clk,0001: IntRC 1MHz,0010: IntRC 2MHz,0011: IntRC 4MHz,0100: IntRC 8MHz,0101: ExtRC 0.9MHz,0110: ExtRC 0.9-3.0M,0111: ExtRC 3.0-8.0M,1000: ExtRC 8.0-12.0M,1001: LowFreq Crystal,1010: Crystal/Ceramic,1011: Crystal/Ceramic,1100: Crystal 0.9-3.0,1101: Crystal 0.9-3.0,1110: Crystal 3.0-8.0,1111: Crystal 3.0-8.0"

R11=SUT,C2,SUT1,SUT0
R12=BODEN,L,"0 - On,1 - Off"
R13=BODLEVEL,L,"0 - High,1 - Low"

R14=BOOTRST,L,"0 - Boot Loader","1 - Application"
R15=BOOTSZ,L,"32 pages,16 pages,8 pages,4 pages"
R16=EESAVE,L,"0 - Save,1 - Clear"
R17=CKOPT,L,"0 - On,1 - Off"
R18=SPIEN,L,"0 - On,1 - Off"
R19=JTAGEN,L,"0 - On,1 - Off"
R1A=OCDEN,L,"0 - On,1 - Off"
R1B=WDTON,L,"0 - On,1 - Off"
R1C=M103,L,"0 - On,1 - Off"

CDELAY=10 ; minimum periods for the serial clock (SCK) > 4 XTAL1 clock cycle!


[_DOUT]
R1=0;
LOOP=(7,0){MOSI=R0[I],SCK=1,R1[I]=MISO,SCK=0}

[_DIN]
R0=0
LOOP=(7,0){SCK=1,R0[I]=MISO,SCK=0}

[_RDLOCK]
_DOUT(0x58)  ;rd lock bits
_DOUT(0x00) 
_DOUT(0x00) 
_DIN


[INIT]
SCK=0
MISO=Z
CFREQ=2000000
RESET=0,P=2000

LOOP=(0,31){    ; 32 attempts
RESET=1,P=200
RESET=0,P=20000
_DOUT(0xAC) 	;Programming Enable
_DOUT(0x53)
_DOUT(0x00)
R3=R1
_DOUT(0x0)
R3?0x53{BREAK}
;PRINT=("ANSWER: %02lX",R1)
}
R3?!0x53{PRINT=("ANSWER ERROR: %02lX",R3),EXIT}

P=10

RE?<4{
_RDLOCK
R0=&3
R0?0{PRINT=S("#MCU memory locked!")}
}



[READ]
$AREA?0{
R0=0x20            ;program memory area
R1=ADR,R0[3]=R1[0] ;Hi/Lo
_DOUT
LOOP=(16,9){MOSI=ADR[I],SCK=P}
LOOP=(8,1){MOSI=ADR[I],SCK=P}
}
$AREA?1{
R0=0xA0      ;eeprom area
_DOUT
LOOP=(15,8){MOSI=ADR[I],SCK=P}
LOOP=(7,0){MOSI=ADR[I],SCK=P}
}

_DIN		;common
DATA=R0


[WRITE]
$AREA?0{
PRINT=("Only Page Write Supported!")
EXIT
}

$AREA?1{
_DOUT(0xC0) ;eeprom memory area 
LOOP=(15,8){MOSI=ADR[I],SCK=P}
LOOP=(7,0){MOSI=ADR[I],SCK=P}
R0=DATA,_DOUT
P=10000 ; eeprom delay
}


[WRITEBLOCK]
R7=ADR	;check empty (0xFF) block
LOOP=($BLOCKSIZE){
R1=DATA
R1?!0xFF{BREAK}
ADR=+1
}
R1?0xFF{RETURN}
ADR=R7

LOOP=($BLOCKSIZE){
R0=0x40 ;program memory
R1=ADR,R0[3]=R1[0],_DOUT 	;Hi/Lo
LOOP=(16,9){MOSI=ADR[I],SCK=P}	;MSB
LOOP=(8,1){MOSI=ADR[I],SCK=P}     ;LSB
R0=DATA,_DOUT
P=5
ADR=+1
}
;Write Program memory Page:
ADR=R7
_DOUT(0x4C) 
LOOP=(16,9){MOSI=ADR[I],SCK=P}
LOOP=(8,7){MOSI=ADR[I],SCK=P}
LOOP=(6,1){MOSI=0,SCK=P}
_DOUT(0) 		;dummy data
P=5000


[WRITEEND]
P=10000
RESET=1,P=20
RESET=0,P=20000



["Read Fuses"]
_DOUT(0x50)	;Read Fuse bits
_DOUT(0x00)
_DOUT(0x00)
_DIN
R8=R0

R10=0,R11=0,R12=0,R13=0
R10=R8,R10=&0xF	;R10=CKSEL,L
R11[0]=R8[4]    ;R11=SUT,L,1,2,3,4           
R11[1]=R8[5]
R12[0]=R8[6]    ;R12=BODEN,L,On,Off            
R13[0]=R8[7]    ;R13=BODLEVEL,L,High,Low 

_DOUT(0x58)   ;Read Fuse High Bits
_DOUT(0x08)
_DOUT(0x00)
_DIN

R8=R0
;GET=("Read Fuses",R8)
R14=0,R15=0,R16=0,R17=0,R18=0,R19=0,R1A=0
R14[0]=R8[0]	;R14=BOOTRST,C1
R15[0]=R8[1]	;R15=BOOTSZ,L,"32 pages,16 pages,8 pages,4 pages"
R15[1]=R8[2]	
R16[0]=R8[3]	;R16=EESAVE,C1
R17[0]=R8[4]	;R17=CKOPT,C1
R18[0]=R8[5]	;R18=SPIEN
R19[0]=R8[6]	;R19=JTAGEN
R1A[0]=R8[7]	;R12=OCDEN

_DOUT(0x50)   ;Read Ext Fuse Bits
_DOUT(0x08)
_DOUT(0x00)
_DIN
R8=R0
R1B=0,R1C=0
R1B[0]=R8[0]	;R1B=WDTON
R1C[0]=R8[1]	;R1C=M103


RESET=0
VCC=0


GET=("Read Fuses",R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R1A,R1B,R1C)
;GET=("Read Fuses",R10,R11,R12,R13,R14)


["Write Fuses"]
GET=("Write Fuses",R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R1A,R1B,R1C)
RA?0{EXIT}
;PRINT=("%lX",R11)
R10?0{
PRINT=A("This fuses value require Ext. Clock, continue?")
RA?0{EXIT}
}


R18?1{
PRINT=A("This fuses value disable serial prog., continue?")
RA?0{EXIT}
}

R8=0

R8=R10,R8=&0xF	;R10=CKSEL,L
R8[4]=R11[0]   ;R11=SUT,L,1,2,3,4           
R8[5]=R11[1]
R8[6]=R12[0]   ;R12=BODEN,L,On,Off            
R8[7]=R13[0]   ;R13=BODLEVEL,L,High,Low 

_DOUT(0xAC)
_DOUT(0xA0)
_DOUT(0x00)
R0=R8,_DOUT
P=30000

R8=0xFF
R8[0]=R14[0]	;R14=BOOTRST,C1
R8[1]=R15[0]	;R15=BOOTSZ,L,"32 pages,16 pages,8 pages,4 pages"
R8[2]=R15[1]	
R8[3]=R16[0]	;R16=EESAVE,C1
R8[4]=R17[0]	;R17=CKOPT,C1
R8[5]=R18[0]	;R18=SPIEN
R8[6]=R19[0]	;R19=JTAGEN
R8[7]=R1A[0]	;R12=OCDEN

_DOUT(0xAC)   ;Write High Fuse
_DOUT(0xA8)
_DOUT(0x00)
_DOUT(R8)
P=30000


R8=0xFF
R8[0]=R1B[0]	;R1B=WDTON
R8[1]=R1C[0]	;R1C=M103 


_DOUT(0xAC)   ;Write  Ext Fuse
_DOUT(0xA4)
_DOUT(0x00)
_DOUT(R8)
P=30000


RESET=1,P=20
RESET=0,P=20000


[ReadLock]
_DOUT(0x58)  ;rd lock bits
_DOUT(0x00) 
_DOUT(0x00) 
_DIN
R9=R0
GET=("Lock",R9)

[WriteLock]
GET=("Write Lock",R9)
RA?0{EXIT}
R0=0xAC,_DOUT ;Write lock bits
R0=0xE0,_DOUT 
R0=0x00,_DOUT 
R0=R9,R0=|0xC0,_DOUT 

P=30000

_DOUT(0x58)  ;rd lock bits
_DOUT(0x00) 
_DOUT(0x00) 
_DIN
R0=|0xC0
R9=|0xC0
R0?!R9{
PRINT=E("Lock Write Error! %02X",R0)
}

RESET=1,P=20,
RESET=0,P=20000

[ReadID]
_DOUT(0x30)
_DOUT(0x00)
_DOUT(0x00)
_DIN
R2=R0,R2=<<8

_DOUT(0x30)
_DOUT(0x00)
_DOUT(0x01)
_DIN
R2=|R0,R2=<<8

_DOUT(0x30)
_DOUT(0x00)
_DOUT(0x02)
_DIN
R2=|R0

R2?0x1E9403{PRINT=("ID: %06lX - ATmega16",R2),EXIT}
R2?0x1E9502{PRINT=("ID: %06lX - ATmega32",R2),EXIT}
R2?0x1E9602{PRINT=("ID: %06lX - ATmega64",R2),EXIT}
PRINT=("ID: %06lX",R2)



[Erase]
_DOUT(0xAC) ;Chip Erase
_DOUT(0x80) 
_DOUT(0x00) 
_DOUT(0x00) 

P=50000
RESET=1,P=20,
RESET=0,P=20000



[END]
SCK=1
MOSI=1
RESET=1
;EO=1,P=10 ;BB off