!  rootprg.mos_s
!  Rustan Leino
!  12 October 1992
!  This is the program that will run on the root Mosaic, communicating
!  with the host machine.

.text

.globl _main
_main:
	mov #inf_loop,apc
	mov #7,imr		! turn on interrupts

	mov #0,r5
	mov #5,r6

main_loop:
	mov #0xc000,mrp
	mov #0xcfff,mrl
	mov r6,isr		! acknowledge interrupt/accept new receive
	punt			! wait for a message to be received

	mov isr,r6

	inc r5,r5
	mov r5,0xbfff		! initiate host/root protocol

wait_loop:
	mov 0xbfff,r0
	cmp #0,r0

	jne wait_loop
	jmp main_loop

inf_loop:
	jmp inf_loop