main:
	ALLOCATEC 4, q20
	MMS       q10, q11
	MML       q30, q31
	MOVE      @q20, q10
	MOVECL    0, q10
	MOVECL    10, q11
	MOVECL    1, q10
	MOVECL    11, q11
	MOVECL    2, q10
	MOVECL    12, q11
	MOVECL    3, q10
	MOVECL    13, q11
	MOVE   @q20, q30	; print it back
	MOVECL    0, q30
	PRINTQ    q31
	MOVECL    1, q30
	PRINTQ    q31
	MOVECL    2, q30
	PRINTQ    q31
	MOVECL    3, q30
	PRINTQ    q31
	EXCH      q40, q41, q42 ; exchange some data
	MOVE      @q20, q40
	MOVECL    1, q40	; should return 11
	MOVECL    42, q41
	PRINTQ    q42
	MOVECL    0, q40	; should return 10
	MOVECL    20, q41
	PRINTQ    q42
	MOVECL    0, q30	; print it back
	PRINTQ    q31		; should be 20
	MOVECL    1, q30
	PRINTQ    q31		; should be 42
	MOVECL    2, q30
	PRINTQ    q31		; should be 12
	MOVECL    3, q30
	PRINTQ    q31		; should be 13
	HALT