CPEEKH/de

= (**COPIED FROM ENGLISH PAGE**) === Action

Returns a byte stored in upper page of code memory of micro with more then 64KB such as M103, M128.

 

 

Syntax

var = CPEEKH( address [,page] )

 

 

Remarks

Var	Numeric variable that is assigned with the content of the program memory at address
address	Numeric variable or constant with the address location
page	A numeric variable or constant with the page address. Each page is 64 KB.

 

CpeekH(0) will return the first byte of the upper 64KB.

Since the M103 has 64K words of code space the LPM instruction can not access the 64 upper Kbytes.

The CpeekH() function peeks in the upper 64 KB.

This function should be used with the M103 or M128 only.

CpeekH(address,0) will work on the first page (first 64 KB)

CpeekH(addres,1) will work on the second page (second 64 KB)

 

 

See also

PEEK , POKE , INP , OUT

 

 

Example

'-----------------------------------------------------------------------------------------
'name : peek.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrates PEEk, POKE, CPEEK, INP and OUT
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
Dim I As Integer , B1 As Byte
'dump internal memory
For I = 0 To 31 'only 32 registers in AVR
B1 = Peek(i) 'get byte from internal memory
Print Hex(b1) ; " ";
'Poke I , 1 'write a value into memory
Next
Print 'new line
'be careful when writing into internal memory !!
 
'now dump a part ofthe code-memory(program)
For I = 0 To 255
B1 = Cpeek(i) 'get byte from internal memory
Print Hex(b1) ; " ";
Next
'note that you can not write into codememory!!
 
Out &H8000 , 1 'write 1 into XRAM at address 8000
B1 = Inp(&H8000) 'return value from XRAM
Print B1
End

Languages	English • Deutsch