Problem write to code space pic 18f452

[pkoliver]

Hi forum
This is my first post so be patient.
I am migrating a program from a 16f887 to 18f452. My windows application loads position map data to code space via serial comms to position a stepper motor. The 16f887 works fine. The 18f452 loaded half the data in each memory row and the data is incorrect.
I have a test program mostly the same as a sample from this web site see below and also see the result in the pic memory.(should be decimal 0 1 2 3 4 5 6 7)

regards Paul


DEFINE HSER_RCSTA 90h
' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 24h
' Set baud rate
DEFINE HSER_BAUD 9600
DEFINE HSER_EVEN 1


DEFINE ADC_BITS 8 ' Set number of bits in result
DEFINE ADC_CLOCK 3 ' Set clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in microseconds
TRISA = 255 ' Set PORTA to all input
ADCON1 = 2 ' PORTA is analog
DEFINE OSC 20


OSCCON.0 = 0


TRISD = 000011


TRISB = 111000


TRISB = 110000


PORTB = 000000


'####################


I Var word ' Loop count
D Var word ' Data
A Var word ' Address
D=0 'set start value for data
For I = 0 To 7 ' Loop 8 times, once for each address $1800 to $1807


A = $1800 + I ' Increment Address


D = D+1 ' Change Data 0,1,2,3,4,5,6,7


Writecode A,D ' Send value in D to code space location A


Next I


mainloop:


For I = 0 To 7 ' Loop 8 times, once for each address $1800 to $1807


A = $1800 + I ' Increment Address


' Change Data


readcode A,D ' Send value in D to code space location A
HSEROUT [dec D,13]
Next I





High 0 ' Turn on LED connected to PORTB.0


if OSCCON.3 = 1 then PORTB.1 = 1
if OSCCON.3 = 0 then PORTB.1 = 0
if OSCCON.0 = 0 then PORTB.2 = 1 'test for osc start




HSEROUT [BIN OSCCON,13]


Pause 50 ' Delay for .5 seconds


Low 0 ' Turn off LED connected to PORTB.0
Pause 50 ' Delay for .5 seconds


Goto mainloop ' Go back to loop and blink LED forever
End



memory result 1800- 00513 01027 01541 00007 65535 65535 65535 65535

[mister_e]

With 18F, you must jump by 2 instead of 1... Not a bad Idea to use WORD instead of byte either... however here's a quick fix

For I = 0 To 14 step 2 ' Loop 8 times, once for each address $1800 to $1807
A = $1800 + I ' Increment Address
D =i/2' Change Data 0,1,2,3,4,5,6,7
Writecode A,D ' Send value in D to code space location A
Next I
mainloop:
For I = 0 To 14 step 2 ' Loop 8 times, once for each address $1800 to $1807
A = $1800 + I ' Increment Address
readcode A,D ' Send value in D to code space location A
HSEROUT [dec A, "=",dec D,13,10]
Next I

[mister_e]

And another variant


A = $1800
hserout ["Writing...",13,10]
For I = 0 To 7 step 2
D.highbyte =i
d.lowbyte=d.highbyte+1
Writecode A,D
HSEROUT [dec A, "=",dec D.highbyte, " ", dec d.lowbyte,13,10]
a=a+2
Next I
mainloop:
hserout ["reading...",13,10]
For a = $1800 To $1807 step 2
readcode A,D
HSEROUT [dec A, "=",dec D.highbyte, " ", dec d.lowbyte,13,10]
Next

[pkoliver]

Thanks Steve
Stepping by two fixes my issue and your test code worked fine. In my real application I use 8bit decode ADC which give values 0 to 255 so i can fetch 0 to 255 position values from the map block of memory I load from my pc program. ie adcin value plus start memory register number = motor destination. I have multiple maps for position and also current control, speed , acceleration. Stepping by two means a day rewrite.
I am changing pic for speed as my top step speed for my motor control loops is limited by processor speed. Why does 18f index memory by two's and is there a fast pic that can write code space memory indexed by 1.
regards Paul
ps if the ME programmer displayed memory address in decimal when decimal display is selected I may have picked up the 16 value difference for each row. Perhaps a enhancement.

[mister_e]

How fast you want it?
Why the code space btw?!?

[pkoliver]

The 16f887 at 20mhx runs the motor control loop at about 1/3 the speed I need. The code space for map storage was chosen for speed of retrieval.
see the forward loop below. The map data comprises 12 maps each with 256 words. The code below is the minimum logic requirement per motor step and needs to execute 180 times for 1 motor revolution. (I am using a stepper driver that needs only single pulse to advance the motor 1/2 step with 90 step motor.). The acdin for position is continually changing and needs to be read on the fly every motor step to update destination as well as speed and current changes.

(serial commands below are comment out used for debug)




'--------------------------------------------------------------------------------------------------------




fowarddir: 'forward loop
ADCIN 0, freq ' Read channel 0 to freq 0 to 255


Readcode mappos + mapindexcs , cmpos
if (pos > cmpos) and (mappos > 5) then mappos = mappos - 4


'HSEROUT ["d ",dec mappos ,13]


if computercontrol=0 then
Readcode freq + mapindex , des 'read position data from progspace store des
Readcode mappos + spdaddress, speed 'get speed value from codespace
Readcode mappos + curraddress, current 'get current value from codespace
ELSE
SPEED = manspeed
current = mancurrent
endif


HPWM 1,current,200 'current control out


PORTD = 110000 'd4 enable d5 step d6 fwd rev d7 = reset
readcode accaddress , accvalue 'get acc value from code space

PORTD = 010000
pos=pos+1
if speed > ACCVALUE THEN
pauseus SPEED 'step delay to control motor speed
ELSE
pauseus accvalue
ENDIF


'HSEROUT ["sp ",dec SPEED ," ac ", dec ACCVALUE," cur ",dec current,13]


'HSEROUT ["Fwd Accvalue",dec accvalue," Accaddress ",dec accaddress-6928," Des ",dec des-5000," Pos ",dec pos-5000,13]
if pos + accaddress-mapadrs[7] < des and accaddress < mapadrs[8] then accaddress = accaddress + 1
if pos + accaddress-mapadrs[7] > des and accaddress > mapadrs[7] then accaddress = accaddress - 1
if accaddress = mapadrs[7] then goto stoppedstate 'main loop
goto fowarddir




'---------------------------------------------------------------------------------------------------------