;name rep88scs-32

deltap		equ  	CORESIZE/4				

delay		equ	32

gap		equ 	2*deltap-port0

port0		DAT	#0,			#0	
	
first		DAT	#0,			#last-first

;initialize 
begin		MOV	#port0-ploc,		ploc	
		MOV	#2*deltap+port0-ploc2,	ploc2
		MOV	zero,			dat2
		MOV	zero,			dat3
		MOV	zero,			dat4
	
;check (and set) the lock 
check		SCS	@ploc,			first
		JMP	next		

;boot 
adjustb		MOV	#mov1-boot,		boot 	
loopb		MOV	@boot,			@ploc
		ADD	<boot,			@ploc
		XCH	@ploc,			@ploc
		SPL	@ploc,			@ploc2		
		MOV	#delay,			spin0
spin0		DJN	spin0,			#delay
		DJN	loopb,			boot
	
;hand-shake 	
		MOV	#last-first,		first
loop0		MOV	@first,			@ploc
		XCH	@ploc,			@ploc
		JMP	@ploc,			move 
		JMP	0
return		DJN	loop0,			first
	
;replicate  
		SPL	@ploc,			begin

;new port    	
next		ADD	#deltap,		ploc
		ADD	#deltap,		ploc2 
	
		SUB	deltapA,		dat2
		SUB	#deltap,		dat3
		ADD	deltapA,		dat3
		SUB	#deltap,		dat4
		 
		JMP	check
		
deltapA		DAT	#deltap,		#0


;'88 launch code
boot		DAT	#0,			#mov1
zero		DAT	#0,			#0
		MOV	@ploc-move,		<launch-move
dat4		DAT	#0,			#0
		MOV	#last-launch+1,		gap+launch
dat3		DAT	#0,			#0
		MOV	#2*deltap+port0-ploc,	gap+ploc 
dat2		DAT	#0,			#0
		MOV	#2*move+gap-launch+1,	launch-move
dat1		DAT	#0,			#0
mov1		MOV	#move-ploc,		ploc-move 

move		MOV	@ploc,			<launch
last		JMP	@ploc,	 		return

; not copied  
ploc		DAT	#0,			#port0
ploc2		DAT	#0,			#0
launch		DAT	#0,			#last

start 		SCS 	first
		JMP	begin
		JMP	begin
 
		end 	start