Toggle command question

[AvionicsMaster1]

The end result of what I'm trying to do is send BCD to portA so I can make a clock. I've started small with only one digit and a few LEDs and I'd like to know why something works as it does.

The first two lines of the main program have portd.0 and portd.1 toggling LEDs outside of the for/next loop. I expected in the first go round of the program the two lights will come on and stay on until the for/next loop completes its count from 0 to 15. After the loop is completed I expected the lights to go off for the next iteration of the for/next loop count from 0 to 15.

Actually the LEDs change state each time the for/next loop counts a digit. i.e. I've noticed the LEDs are on during the display of an odd number and off during the display of an even number.

The digit displays I'm using are, I think, 8200-7300 and take BCD in and display a numeric/alpha character. The LEDs are something I had laying around and I don't know the part numbers.

My question is why do the LEDs change state outside of the for/next loop?

Other than power, the connections shown are the only things connected to the 16F877A.



'* Notes : Transfer of data in BCD format from a 16f877 to *
'* : 7300 and 7340 LED assemblies *
' : has added LED on pin 19 and 20 to make sure *
‘ :program is running *
'************************************************* ***************
'16f877A 7300/7340
'port/pin pin/BCD digit
'A0/pin 2----------8/A
'A1/pin 3----------1/B
'A2/pin 4----------2/C
'A3/pin 5----------3/D
'E0/pin 8----------5/Latch Enable
'D0/pin 19 +LED to GND -LED
'D1/pin 20 +LED to GND -LED
'OSC1/pin13 Crystal to pin 14 and 22pf cap to ground
'OSC2/pin14 Crystal to pin 13 adn 22pf cap to ground

clear
define osc4 ' set oscillator to 4 MHz

'----------------------------------------------------------------fuses

cmcon = 7 ' comparators off
adcon0 = %11000000 ' adc off
adcon1 = %10000111 ' sets ports to digital
'-----------------------------------------------------------set ports

trisa = %00000000 ' sets trisa as output
trise = %11111110 ' sets bit0 of trise as output - only has 3 ports on trise
trisd = %00000000 ' sets portd as output
'---------------------------------------------------------------variables

outputnumber var byte
displaydigit var byte
max_number var byte
min_number var byte
latch_enable var porte.0 'pin 8 on 16f877a

max_number = 15
min_number = 0
main:
toggle portd.1
toggle portd.0
for outputnumber = min_number to max_number ' generate a number to be displayed
displaydigit = outputnumber ' give that number to the display variable
porta = displaydigit ' set port output to effectively BCD
toggle latch_enable 'toggle display to make it work
pause 500 ' wait 1/2 second
next outputnumber

if outputnumber = max_number then outputnumber = min_number

goto main

end

[Demon]

Moved from Code Examples.

Robert

[Charlie]

Looks like it should work.... have you remembered to disable the watchdog timer and anything else that could cause an unscheduled reset?

[Darrel Taylor]

trise = %11111110 ' sets bit0 of trise as output - only has 3 ports on trise
Like your comment said, PORTE only has 3 pins in that PORT.
By setting the upper bits of TRISE to all 1's, you have turned on the "Parallel Slave Port" (PSP) which affects PORTD.