Code: Select all
var Mport:word;
FSR1L:=Mport;
I've written that it's convenient - it could be, if there was no better method to obtain the same result:
Code: Select all
FSR1Ptr:=@Mport;
#1 Post by janni » 26 Jul 2007 16:48
Code: Select all
var Mport:word;
FSR1L:=Mport;
Code: Select all
FSR1Ptr:=@Mport;
#2 Post by zristic » 27 Jul 2007 08:51
Code: Select all
program test; // p18F1320
var Mport:word;
begin
FSR1L:=Mport;
end.
Code: Select all
$0000 $EF04 F000 GOTO _main
$0008 $ _main:
;prazan.ppas,5 :: begin
;prazan.ppas,6 :: FSR1L:=Mport;
$0008 $C015 FFE1 MOVFF _mport, FSR1L
$000C $ test_L_0:
;prazan.ppas,7 :: end.
$000C $D7FF BRA $
#3 Post by janni » 27 Jul 2007 12:49
Code: Select all
;ownetGLCD.ppas,207 :: FSR1L:=Mport;
$0E16 $C030 FFE1 MOVFF _mport, FSR1L
$0E1A $C031 FFE2 MOVFF _mport+1, FSR1L+1
Code: Select all
txt:=txt+chr(34);
Code: Select all
txtt[0]:=chr(34);
txtt[1]:=0;
Strcat(txt,txtt);
#4 Post by janni » 27 Jul 2007 13:45
Code: Select all
const sd:array[1..2] of string [2]=('ab','bc');
begin
b:='';
//strcat(b,sd[1]);
for i:=1 to 2 do strcat(b,sd[i]);
end.
Return to “mikroPascal Beta testing”