Goldpic 3(trevor hill) again...

[gosho]

has anyone tried to build it with this code?
Next will i will try it

; Generated by WinDis84, (c) Nigel Goodwin 1998.

LIST P=16F84, F=INHX8M
include "P16F84.inc"
ORG 0x0000

GOTO Label_0001
Label_0002 NOP
RETURN
wait_a_bit CALL Label_0002
DECFSZ 0x10 , f
GOTO wait_a_bit
RETURN
Label_0006 MOVLW 0x05
MOVWF 0x0D
Label_0005 MOVLW 0x06
MOVWF 0x0C
Label_0004 DECFSZ 0x0C , f
GOTO Label_0004
DECFSZ 0x0D , f
GOTO Label_0005
RETURN
Label_0007 CALL Label_0006
DECFSZ 0x11 , f
GOTO Label_0007
RETURN
Label_000A MOVF 0x2F , W
MOVWF EEADR
MOVF 0x2E , W
MOVWF EEDATA
BSF STATUS , RP0
BCF INTCON , GIE
MOVLW 0x55
MOVWF EECON2
MOVLW 0xAA
MOVWF EECON2
BSF EECON1 , 01
MOVLW 0x64
MOVWF 0x11
CALL Label_0007
Label_000F MOVF 0x2F , W
MOVWF EECON2
BSF STATUS , RP0
BSF EECON1 , 00
BCF STATUS , RP0
MOVF EEDATA , W
MOVWF 0x2E
RETURN
Label_000C BTFSC PORTA , 04
GOTO Label_0008
BTFSC PORTA , 00
INCF 0x17 , f
BTFSC PORTA , 01
DECFSZ 0x17 , f
BTFSC PORTA , 02
INCF 0x16 , f
BTFSC PORTA , 03
DECFSZ 0x16 , f
GOTO Label_0009
Label_0008 BTFSC PORTA , 00
INCF 0x15 , f
BTFSC PORTA , 01
DECFSZ 0x15 , f
GOTO Label_0009
Label_0009 MOVF 0x15 , W
MOVWF 0x2E
MOVWF 0x2F
MOVLW 0x01
CALL Label_000A
MOVF 0x16 , W
MOVWF 0x2E
MOVWF 0x2F
MOVLW 0x02
CALL Label_000A
MOVF 0x17 , W
MOVWF 0x2E
MOVWF 0x2F
MOVLW 0x03
CALL Label_000A
MOVLW 0x04
MOVWF 0x0C
Label_000B NOP
MOVLW 0xFF
MOVWF 0x11
CALL Label_0007
DECFSZ 0x0C , f
GOTO Label_000B
RETURN
Label_000E MOVLW 0x14
MOVWF 0x15
MOVWF PCLATH
MOVWF 0x16
MOVWF 0x2E
MOVLW 0x05
MOVWF 0x17
MOVWF 0x2E
MOVLW 0x28
MOVWF 0x18
CALL Label_000C
GOTO Label_000D
Label_0001 MOVLW 0xFF
MOVWF PORTB
MOVLW 0x00
TRIS PORTB
MOVLW 0x1F
TRIS PORTA
BTFSC PORTA , 04
GOTO Label_000E
MOVLW 0x01
MOVWF 0x2F
CALL Label_000F
MOVF 0x2E , W
MOVWF 0x15
MOVLW 0x02
MOVWF 0x2F
CALL Label_000F
MOVF 0x2E , W
MOVWF 0x16
MOVLW 0x03
MOVWF 0x2F
CALL Label_000F
MOVF 0x2E , W
MOVWF 0x17
MOVLW 0x28
MOVWF 0x18
GOTO Label_000D
Label_0010 BCF PORTB , 00
MOVF 0x15 , W
MOVWF 0x10
CALL wait_a_bit
BSF PORTB , 00
RETURN
Label_0011 BCF PORTB , 03
MOVF 0x17 , W
MOVWF 0x10
CALL wait_a_bit
BSF PORTB , 03
RETURN
Label_000D CALL Label_0010
MOVF 0x16 , W
MOVWF 0x10
CALL wait_a_bit
CALL Label_0011
MOVF 0x18 , W
MOVWF 0x11
CALL Label_0007
BTFSC PORTA , 00
CALL Label_000C
BTFSC PORTA , 01
CALL Label_000C
BTFSC PORTA , 02
CALL Label_000C
BTFSC PORTA , 03
CALL Label_000C
GOTO Label_000D

ORG 0x2000
DATA 0x0F
DATA 0x0F
DATA 0x0F
DATA 0x0F

ORG 0x2007
DATA 0x11

ORG 0x2100
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF

END

[PhilippeM]

Re: Goldpic 3(trevor hill) again...

Sorry,

NOT Goldpic But TREASURE Hunter or STUART.

PhilippeM

[gosho]

Re: Goldpic 3(trevor hill) again...

Ooops thats bad...i had PCB

[PhilippeM]

Re: Goldpic 3(trevor hill) again...

NOT BAD as the original source from Trevor Hill to the goldpic is not available .
You can buy one 16F84 from Trevor or write your own program.

PhilippeM



Goldpic 03

[gosho]

Re: Goldpic 3(trevor hill) again...

"NOT BAD" What do you mean?It could work?
Writing my own program is imposible like ordering the pic(i am sure that he maybe will
make a delivery to Mars,but no to my country...)BTW i think W.B. gave me the code(i wrote him once again)

[gosho]

Re: Goldpic 3(trevor hill) again...

Ok i found the real one!
I dont think posting it here,because i just want to build it and see how it works,not to try to sell it,in fact it begins like the other but its 4 times longer