8051f020.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 40 行

'-------------------------------------------------------
'                    8051F020.BAS
'   demonstration file for the   CYGNAL C8051F020
'  Use the cygnal programmer to program the chip
' Tested with Sample Electronics SE-8051FAP Cygnal evaluation board
' provided by Sample Electronics www.sample.co.kr
'-------------------------------------------------------
'specify from code which chip we use:
$regfile = "8051F020.dat"

'The C8051F020 has 256 bytes of ERAM
'ERAM is the same as XRAM in BASCOM. The only difference is that
'you have no external RAM chip but that it is built into the chip
'By default the chip uses the internal ERAM when in BASCOM an XRAM variable is DIMmensioned.


'Step 1: Configure the XBRn Registers

Xbr0 = &H4
Xbr1 = &H86
Xbr2 = &H40


'When you use only the internal ERAM you can specify  how much
'is in the chip:
$ramstart = 0
$ramsize = 256
'When you also have an additional RAM chip you must specify the size
'of this chip instead

'stop the watchdog
Stop Watchdog

Do
  P3 = &B10101010
  Wait 1
  P3 = &B01010101
  Wait 1
Loop
End