;;  s30  dual core
;;     show two cores run different program

.symbol
	stop		0
	cnt1		200
	cnt2		201
	print1		17
	print2		18
	cpuid		5
	
.code 0
	trap cpuid
	eq r2 r27 #0
	jt r2 count1
	jmp count2

:count1			;; count 1..5
	st r0 cnt1		
:loop1	ld r5 cnt1
	add r5 r5 #1
	st r5 cnt1
	mv r1 r5
	trap print1
	eq r6 r5 #5
	jf r6 loop1
	trap stop

:count2			;; count 11..18
	mv r1 #10
	st r1 cnt2		
:loop2	ld r5 cnt2
	add r5 r5 #1
	st r5 cnt2
	mv r1 r5
	trap print2
	eq r6 r5 #18
	jf r6 loop2
	trap stop
.end