main:
	MOVECC 2,q0
	SPAWNC q0, test1, q2	; test remote vs. constant
	MAPQC  q10, q0, @q2
	PRINTQ @q2
	MOVECL 1, q10
	SPAWNC q2, test2, q3	; test remote vs. capability
	MAPQC  q11, q1, @q3
	PRINTQ @q3
	MOVECL 2, q11
	PROCID q3
	SPAWNC q3, test3, q4	; test local
	MAPQC  q12, q2, @q4
	MOVECL 3, q12
	FLUSHQ q0
	MOVECC 1, q0
	ALLOCATEC q0, 2, q20	; test allocate to constant
	MMS    q30, q31
	MOVE   @q20, q30
	MOVECL 0, q30
	MOVECL 0, q31
	MOVECL 1, q30
	MOVECL 1, q31
	MML    q32, q33
	MOVE   @q20, q32
	MOVECL 0, q32
	PRINTQ q33
	MOVECL 1, q32
	PRINTQ q33
	MOVECL 2, q100		; test allocate to capability
	ALLOCATE @q20, q100, q21
	MOVE   @q21, q30
	MOVECL 0, q30
	MOVECL 2, q31
	MOVECL 1, q30
	MOVECL 3, q31
	MOVE   @q21, q32
	MOVECL 0, q32
	PRINTQ q33
	MOVECL 1, q32
	PRINTQ q33
	PROCID q3
	ALLOCATEC q3, 2, q22
	MOVE   @q22, q30
	MOVECL 0, q30
	MOVECL 4, q31
	MOVECL 1, q30
	MOVECL 5, q31
	MOVE   @q22, q32
	MOVECL 0, q32
	PRINTQ q33
	MOVECL 1, q32
	PRINTQ q33
	HALT	
test1:
	PRINTQ q0
	HALT
test2:
	PRINTQ q1
	HALT
test3:
	PRINTQ q2
	HALT