!!  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	       !.text
	.global _main  !.globl _main
_main:		       !_main:
	.long 0x270F   !	mov #inf_loop,apc
	.long inf_loop
	.long 0x0F73   !	mov #7,imr		! turn on interrupts
	.long 0x0805   !	mov #0,r5
	.long 0x0856   !	mov #5,r6
main_loop:	       !main_loop:
	.long 0x270A   !	mov #0xc000,mrp
	.long 0xc000
	.long 0x2708   !	mov #0xcfff,mrl
	.long 0xcfff
	.long 0x0762   !	mov r6,isr		! acknowledge interrupt/accept new receive
	.long 0xA000   !	punt			! wait for a message to be received
	.long 0x3826   !	mov isr,r6
	.long 0x7055   !	inc r5,r5
	.long 0x0250   !	mov r5,0xbfff		! initiate host/root protocol
	.long 0xbfff
wait_loop:	       !wait_loop:
	.long 0x2800   !	mov 0xbfff,r0
	.long 0xbfff
	.long 0x6800   !	cmp #0,r0
	.long 0x8080   !	jne wait_loop
	.long wait_loop
	.long 0x2100   !	jmp main_loop
	.long main_loop
inf_loop:	       !inf_loop:
	.long 0x2100   !	jmp inf_loop
	.long inf_loop