aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/drivers/flash/words/init-ram.asm
blob: 30fab645b5e66cb1e602f49bb84e00384a293a56 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
;Z INIT_RAM     --      initialize RAM 
HEADER(XT_INIT_RAM,8,"init-ram",DOCOLON)
; the first cell is either FFFF or the recognizer stack depth, see ram.asm
        DW XT_DOLITERAL, INFOSTART, XT_FETCH 
	DW XT_ZEROLESS
	DW XT_DOCONDBRANCH
	DEST(COLD1)
; there is no valid data in INFO flash
        DW XT_UINIT,XT_DOBRANCH
	DEST(COLD2)
COLD1:
; there is valid content in INFO, restore it
        DW XT_DOLITERAL, INFOSTART
COLD2:
	DW XT_DOLITERAL,RAMINFOAREA,XT_DOLITERAL,INFO_SIZE,XT_CMOVE
	dw XT_EXIT