Hi all,
I want to share this old project that I did when I needed to replace the same discret circuit that was designed by a friend.
Background
I used to play Soccer Five with some friends, the rules are that each team is composed by five players, the match takes one hour, we play in a tennis court, we change the goalkeeper every 6 minutes so that we all can get fun...
The Electronic Director
The device whistles every 6 minutes, so that we change the goalkeepers.
The Circuit
This circuit design is trivial, I won't comment it.
It requires only 4 resistors, 3 caps, a LED, a NPN, a 4MHz quartz and a PIC16F84.
hex file, to be loaded with a PIC programmer
I want to share this old project that I did when I needed to replace the same discret circuit that was designed by a friend.
Background
I used to play Soccer Five with some friends, the rules are that each team is composed by five players, the match takes one hour, we play in a tennis court, we change the goalkeeper every 6 minutes so that we all can get fun...
The Electronic Director
The device whistles every 6 minutes, so that we change the goalkeepers.
The Circuit
This circuit design is trivial, I won't comment it.
It requires only 4 resistors, 3 caps, a LED, a NPN, a 4MHz quartz and a PIC16F84.
Code:
;
; soccerfive.asm -- a tool to play minisoccer
;
; ----- Reason for the project: minisoccer games last one hour,
; every 6 minutes a break allows to replace the goalkeeper.
; The minisoccer tool plays the kickoff as a long sound,
; then it playes two short sounds every 6 minutes and finally
; it plays two short sounds and a long sound when the hour is off.
;
;
; baseed on example source code for picasm by Timo Rossi
;
; +---O BUZZER O----o VDD 5 Volt
; VDD 5 Volt 470 ohm 1Kohm | |
; o------|>|--/\/\/\/\-----------------+ +-/\/\/\/\------+--|/ 2N2222
; LED ________________ | | 1Kohm | |\
; -| RA2 RA1 |-+ | gnd-/\/\/\/\--+ V
; -| RA3 RA0 |----+ gnd
; VDD 5 Volt -| RA4 |---------------------+
; o--/\/\/\/\--+------| |--------------+-|<>|-+ 4 MHz cristal
; 1Kohm | gnd-| |-o VDD 5 Volt | |
; | -| RB0 Rb7 |- | |
; --- -| RB1 RB6 |- --- ---
; 10uF --- -| RB2 RB5 |- 22 pF --- --- 22pF
; | -| RB3 RB4 |- | |
; gnd ---------------- gnd gnd
;
;
; define PIC device type
;
device pic16f84
;
; define config fuses
; *** Note that PWRT has inverted meaning in case of PIC16F84:
; PWRT=on means NO PWRT
;
config CP=off,WDT=off,PWRT=on,OSC=xt
;
; include PIC register definitions, and some macros
;
include "picreg.h"
include "picmac.h"
;
; bit definitions for two outputs connected to port A bits 0 and 1
; a beeper is connected as bit 0 (pin 17) and a LED as bit 1 (pin 18)
; bit masks can be computed from bit numbers with the left shift operator.
;
; The LED has the following way: 0 = LED OFF, 1 = LED ON
; The BEEPER has the following way: 0 = BEEP OFF, 1 = BEEP ON
;
A_BEEPER equ 0 ; bit 0
A_LED equ 1 ; bit 1
;
; Definitions for program constants
;
MINUTES equ 6
TURNS equ 10
IN_LOOPS equ 183 ; timer for 60 secs.
;
; define some register file variables
;
org 0x0c ; This is the RAM base
delay_cnt1 ds 1
delay_cnt2 ds 1
delay_cnt3 ds 1
minutes_cnt ds 1
turns_cnt ds 1
;
; code start
;
org 0
movlw 0xff
movwf PORTA ;initialize port A so that LEDs are off
bsf STATUS,RP0 ;register page 1
movlw ~((1<<A_BEEPER)|(1<<A_LED)) ;LED and BEEPER as outputs,
movwf TRISA ;other PORTA pins as inputs
bcf STATUS,RP0 ;register page 0
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; reset, three flashes of the LED and a long beep
movwf PORTA ; send outputs to the port
clrw ; maximum delay (256 counts)
call delay
movlw (1<<A_BEEPER) ; LED OFF, BEEP ON
movwf PORTA
clrw
call delay
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; LED ON, BEEP ON
movwf PORTA
clrw
call delay
movlw (1<<A_BEEPER) ; LED OFF, BEEP ON
movwf PORTA
clrw
call delay
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; LED ON, BEEP ON
movwf PORTA
clrw
call delay
; clrw ; LED OFF, BEEP OFF
movwf PORTA
; main loop runs 10 times
movlw TURNS
movwf turns_cnt
main_loop
movlw MINUTES ; 6 minutes
movwf minutes_cnt
min_loop
movlw IN_LOOPS ; loops for 60 secs.
movwf delay_cnt3
clrw
cnt3_loop
; clrw
call delay
decfsz delay_cnt3,F ; decrease loop counter, has one minute expired?
goto cnt3_loop ; no, wait again
;
; One minute is expired, let's check if it's time to replace the goalkeeper
;
decfsz minutes_cnt,F ; decrease minute counter, is time elapsed?
goto min_loop ; no, wait another minute
end_min
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; two flashes of the LED and a two beeps
movwf PORTA ; send outputs to the port
clrw ; maximum delay (256 counts)
call delay
; clrw ; LED OFF, BEEP OFF
movwf PORTA
; clrw
call delay
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; LED ON, BEEP ON
movwf PORTA
clrw
call delay
; clrw ; LED OFF, BEEP OFF
movwf PORTA
; clrw
call delay
;
; Minutes are expired, it's time to check about turns
;
decfsz turns_cnt,F ; decrease turn counter, is turns=0?
goto main_loop
end_loop
movlw ((1<<A_BEEPER)|(1<<A_LED)) ; LED ON, BEEP ON
movwf PORTA
clrw
call delay
; clrw
call delay
; clrw
call delay
; clrw ; LED OFF, BEEP OFF
movwf PORTA
stop goto stop
;
; delay subroutine
; input: delay count in W
;
; inner loop duration approx:
; 5*256+3 = 1283 cycles ->
; 1.28ms with 4MHz crystal (1MHz instruction time)
;
delay movwf delay_cnt1
clrf delay_cnt2
delay_a nop
nop
incfsz delay_cnt2,F
goto delay_a
decfsz delay_cnt1,F
goto delay_a
return
endhex file, to be loaded with a PIC programmer
Code:
:10000000FF3085008316FC308500831203308500A5
:1000100000013D200130850000013D2003308500B6
:1000200000013D200130850000013D2003308500A6
:1000300000013D2085000A30900006308F00B73067
:100040008E0000013D208E0B22288F0B1F280330CD
:10005000850000013D2085003D2003308500000122
:100060003D2085003D20900B1D28033085000001B8
:100070003D203D203D2085003C288C008D01000066
:0C00800000008D0F3F288C0B3F2808006B
:02400E00F93F78
:00000001FF