-
$
;redcode 
;name myMice 
;assert 1
;standard 2004

deltap		equ  	CORESIZE/4				

step		equ	64
steps		equ	16

first		DAT	0,			last-first

begin		MOV	#step,			last	

reset		MOV	#last-search+1,		search		
		MOV	#steps,			count
loop		DJN.P	energy,			>search
count		DJN	loop,			#steps
search		JMP	reset,			0		

;get all the priv. 
continue	JMP	loop,			<search

;found some priv. so continue (or boot) 
energy		IJN.Q	continue,		begin		
		IJN.P	1,			continue	

;check (and set) the lock  
check		IJN.Q	next,			@last 

;spawns a new copy in the core 			
		MOV	#last-first,		first			
		ADD	#1,			last
rep		MOV	@first,			<last
		DJN	rep,			first
		IJN.P	1,			@last
		ADD	#last-first-1,	        last

next		ADD	#step,			last	

;check (and set) the dual lock  
checkDual	IJN.QD	check,			@last 

;spawns a new copy in the dual core 			
		MOV	#last-first,		first
		ADD	#1,			last
rep2		MOV.ID	@first,			<last
		DJN	rep2,			first
		IJN.PD	1,			@last
		ADD	#last-first-1,		last
	
last		JMP	check,			0

;boot code -- not copied  
start 		IJN.Q 	1,			last;
		IJN.P	1,			begin
		DAT	0,			0
		end 	start