Subversion Repositories scarts

.include "t-macros.i"
 
	start
 
	PSW_BITS = PSW_DM
 
;;; Blat our DMAP registers so that they point at on-chip imem
 
	ldi r2, MAP_INSN | 0xf
	st r2, @(DMAP_REG,r0)
	ldi r2, MAP_INSN
	st r2, @(IMAP1_REG,r0)
 
;;; Patch the interrupt vector's dbt entry with a jmp to success
 
	ldi r4, #trap
	ldi r5, (VEC_DBT & DMAP_MASK) + DMAP_BASE
	ld2w r2, @(0,r4)
	st2w r2, @(0,r5)
	ld2w r2, @(4,r4)
	st2w r2, @(4,r5)
 
test_dbt:
	dbt -> nop
	exit47
 
success:
	checkpsw2 1 PSW_BITS
	exit0
 
	.data
trap:	ldi r1, success@word
	jmp r1