@ Aanspreken van de MAX6960 langs z'n 3-draads serieële verbinding 


@	Aanroepen met : NaarMAX(Bericht,Aantal) Aantal= 8,16,24
@	veronderstel dat "C" Bericht in R0 en Aantal in R1 zet

NaarMAX:
	NcsMAX	EQU	5	@ Poorten waaraan de MAX6960 zit
	ClkMAX	EQU	6	@ aan te passen aan poort(0...17)
	DinMAX	EQU	7	@ volgens de echte toestand

	PUSH	{R2-R6,LR)	@ bewaar Reg's en terugkeer adres
				
	MOV	R6, #0x1000+(4*NcsMAX)
	MOVT	R6, #0xA000	@ R6 wijst naar PWORD poort met NcsMAX
	MOV	R5, #0x1000+(4*ClkMAX)
	MOVT	R5, #0xA000	@ R5 wijst naar PWORD poort met ClkMAX
	MOV	R4, #0x1OOO+(4*DinMAX)
	MOVT	R4, #0xAOOO	@ R4 wijst naar PWORD poort met DinMAX

	MOV	R3, #1		@ enige 1 met 31 nullen =2^0
	SUB	R1, R3		@ Aantal-1 voor 2^(Aantal-1)
	LSL	R3, R3, R1	@ geeft plaats van hoogste te verzenden bit

Lus:	MOV	R1, #0		@ een nul naar PWORD geeft poort=0
	STR	R1,[R5]		@ ClkMAX op 0
	STR	R1,[R6]		@ NcsMAX ook 0
	AND	R2, R0, R3	@ bit aan de beurt naar R2 en dan
	STR	R2,[R4]		@ naar DinMAX 
	LSRS	R3, R3		@ opchuiven naar onder
	STR	R5,[R5]		@ ClkMAX naar 1
	BCC	Lus		@ bit buiten geschoven = alles gehad
				@ dan zit ie in Cy
	STR	R6,[R6]		@ NcsMAX weer 1
	NOP			@ voor de zekerheid,even wachten
	STR	R1,[R5]		@ ClkMAX op 0
	POP	{R2-R6,PC}	@ Reg's herstellen en terug
	END