<html><body>Přiznám, se že PIC vůbec neznám a vždycky jsem měl k němu odpor, přiznávám<div>že neopodstatněný :-) Ale tohle je výsledek.<div><div><br></div><div>procedure writeeeprom( oblast: PBytearray; size: word; pozice: word );</div><div>var</div><div> n: word;</div><div> x: byte;</div><div>begin</div><div> for n:=0 to size do begin</div><div> x := Oblast^[n]; // v X je vzdy dato alespon doufam</div><div> </div><div> end;</div><div>end;</div></div><div><br></div><div><div><br></div><div>_writeeeprom:</div><div><br></div><div>;MyProject.mpas,18 :: begin</div><div>;MyProject.mpas,19 :: for n:=0 to size do begin</div><div> CLRF R1+0</div><div> CLRF R1+1</div><div>L__writeeeprom1:</div><div> MOVF R1+1, 0</div><div> SUBWF FARG_writeeeprom_size+1, 0</div><div> BTFSS STATUS+0, 2</div><div> GOTO L__writeeeprom8</div><div> MOVF R1+0, 0</div><div> SUBWF FARG_writeeeprom_size+0, 0</div><div>L__writeeeprom8:</div><div> BTFSS STATUS+0, 0</div><div> GOTO L__writeeeprom5</div><div>;MyProject.mpas,22 :: end;</div><div> MOVF R1+1, 0</div><div> XORWF FARG_writeeeprom_size+1, 0</div><div> BTFSS STATUS+0, 2</div><div> GOTO L__writeeeprom9</div><div> MOVF FARG_writeeeprom_size+0, 0</div><div> XORWF R1+0, 0</div><div>L__writeeeprom9:</div><div> BTFSC STATUS+0, 2</div><div> GOTO L__writeeeprom5</div><div> INCF R1+0, 1</div><div> BTFSC STATUS+0, 2</div><div> INCF R1+1, 1</div><div> GOTO L__writeeeprom1</div><div>L__writeeeprom5:</div><div>;MyProject.mpas,23 :: end;</div><div>L_end_writeeeprom:</div><div> RETURN</div><div>; end of _writeeeprom</div><div><br></div><div>_main:</div><div><br></div><div>;MyProject.mpas,28 :: begin</div><div>;MyProject.mpas,30 :: writeeeprom( PBytearray(@X1), SizeOf(X1), 0 );</div><div> MOVLW _X1+0</div><div> MOVWF FARG_writeeeprom_oblast+0</div><div> MOVLW 11</div><div> MOVWF FARG_writeeeprom_size+0</div><div> CLRF FARG_writeeeprom_size+1</div><div> CLRF FARG_writeeeprom_pozice+0</div><div> CLRF FARG_writeeeprom_pozice+1</div><div> CALL _writeeeprom+0</div><div>;MyProject.mpas,31 :: writeeeprom( PBytearray(@X2), SizeOf(X2), 0 );</div><div> MOVLW _X2+0</div><div> MOVWF FARG_writeeeprom_oblast+0</div><div> MOVLW 33</div><div> MOVWF FARG_writeeeprom_size+0</div><div> CLRF FARG_writeeeprom_size+1</div><div> CLRF FARG_writeeeprom_pozice+0</div><div> CLRF FARG_writeeeprom_pozice+1</div><div> CALL _writeeeprom+0</div><div>;MyProject.mpas,32 :: end.</div><div>L_end_main:</div><div> GOTO $+0</div><div>; end of _main</div><div><br></div><div><br></div><p>---------- Původní zpráva ----------<br>Od: Jan Waclawek <konfera@efton.sk><br>Komu: HW-news <hw-list@list.hw.cz><br>Datum: 1. 6. 2016 17:18:12<br>Předmět: Re: Ukladani nastaveni v programu pro MCU</p><br><blockquote>>Tak jsem si mikroe stahnul a variantni record nekousne takze smula, <br><br>No ved to som pisal hned na zaciatku, ze podla manualu to nevie (nemal som<br>chut stahovat/instalovat/pustat ten program).<br><br>>ale tohle jo.<br><br>No a co z neho vypadlo (asm)? Je to rozumne? Aky je velky vlastne ten<br>pointer?<br><br>wek<br><br><br>_______________________________________________<br>HW-list mailing list - sponsored by www.HW.cz<br>Hw-list@list.hw.cz<br>http://list.hw.cz/mailman/listinfo/hw-list</blockquote></div></div></body></html>