C vs PBP

[skimask]

I think this translates over to PBP. I could be completely wrong.

'config statements to be fixed up
leddigit var byte[15]:value var byte:dig var byte[4]:i var byte:t var byte
x var byte:y var byte:z var byte:in var byte:s var byte:j var byte[4]
k var byte[4]:j[1]=1:j[3]=1:k[2]=1:k[3]=1:for i=0 to 15
lookup i,[1,59,18,6,72,36,32,15,0,12,8,96,49,66,48,56],leddigit[i]:next i
main: cmcon0=7:ansel=0:porta=12:trisa=12:portc=0:trisc=0
ADC:
if porta.3 = 0 then
     in = 0:for i=0 to 12:while porta.3=0:wend:s=porta.2:in=in|(s<<i)
     while porta.3=1:wend:next i:while porta.3=0:wend:value=in:z=0
     if value < 1000 then z=1:dig[0]=0:goto jump1
     dig[0] = value / 1000
JUMP1: dig[1]=value dig 3:dig[2]=value dig 2:dig[3]=value dig 1:dig[4]=value dig 0
endif
for y = 0 to 4
     if y = 0 and z = 1 then
          y=1:portc=leddigit[dig(y)]:porta.5=leddigit[dig(y)]>>6:porta.0=j[y]
          ra1=k[y]:porta.4 = y.1:for t = 0 to 327 : next t
     endif
next y:portc=$ff:porta.5=1:goto adc
END

Oh...and it's been colonized!

[Archangel]

Thanks Bruce,
I did manage to remember how to make a copy of the schematic, you answered most of my question. I did visit 1 web site dedicated to C programming which stated that some C compilers could use both Endians styles, so that was some of my confusion.

[Archangel]

I think this translates over to PBP. I could be completely wrong.

'config statements to be fixed up
leddigit var byte[15]:value var byte:dig var byte[4]:i var byte:t var byte
x var byte:y var byte:z var byte:in var byte:s var byte:j var byte[4]
k var byte[4]:j[1]=1:j[3]=1:k[2]=1:k[3]=1:for i=0 to 15
lookup i,[1,59,18,6,72,36,32,15,0,12,8,96,49,66,48,56],leddigit[i]:next i
main: cmcon0=7:ansel=0:porta=12:trisa=12:portc=0:trisc=0
ADC:
if porta.3 = 0 then
     in = 0:for i=0 to 12:while porta.3=0:wend:s=porta.2:in=in|(s<<i)
     while porta.3=1:wend:next i:while porta.3=0:wend:value=in:z=0
     if value < 1000 then z=1:dig[0]=0:goto jump1
     dig[0] = value / 1000
JUMP1: dig[1]=value dig 3:dig[2]=value dig 2:dig[3]=value dig 1:dig[4]=value dig 0
endif
for y = 0 to 4
     if y = 0 and z = 1 then
          y=1:portc=leddigit[dig(y)]:porta.5=leddigit[dig(y)]>>6:porta.0=j[y]
          ra1=k[y]:porta.4 = y.1:for t = 0 to 327 : next t
     endif
next y:portc=$ff:porta.5=1:goto adc
END

Oh...and it's been colonized!

Hi Jeremy,
I wasn't trying to translate this, but thanks! I was trying to figure out the unusual way the lookup table was set up. Seems the author was "thinkin' outside the box" So I learned something, which is my objective here. Seems I ticked off Darrel, so whatever he had to show me is history, I didn't expect him to sit and write me a program, but he did, . . . so if your reading this Darrel, I apologize . . . anyway Thanks Jeremy, and Bruce, I got a grip on why this piece of code is written this way. <br> I will play with this "colony" to extract what I might learn from it. I think what bugs people about the colons is it makes it hard to distinguish colons following a LABEL vs colons denoting a new line of code.

[skimask]

Hi Jeremy,......I wasn't trying to translate this, but thanks!
........................
I think what bugs people about the colons is it makes it hard to distinguish colons following a LABEL vs colons denoting a new line of code.

I was just playin' around a bit, translation and all. I've got no idea if it's correct or not.
And like I've said before, the only reason I like the colons is because it keeps more info on one page. As far as LABELs vs. multiple statements...kinda easy to tell the difference because a LABEL isn't a statement at the beginning of a line, can't be, otherwise it'd kick out an error.

[Archangel]

As far as LABELs vs. multiple statements...kinda easy to tell the difference because a LABEL isn't a statement at the beginning of a line, can't be, otherwise it'd kick out an error.

Nothing is obvious when you are confused!

[Darrel Taylor]

. . . so if your reading this Darrel, I apologize . . .

Stop that.

No, I'm sorry Joe. ... Sort of.
When it became apparent you would be using a different program. I kept what I had, improved it, and sold it.

Should make bunches, I hope.

No bad blood here!

.

[Archangel]

Stop that.

No, I'm sorry Joe. ... Sort of.
When it became apparent you would be using a different program. I kept what I had, improved it, and sold it.

Should make bunches, I hope.

No bad blood here!

.

I hope you did ! Nothing would make me happier than to see you prosper, Damn well you deserve to ! Happy Independence Day ! And to everyone who responds to my posts, Thank You!