\prog:Picgs2.asm|Routines série

\rout:Write|Transfer 8 bit serially
\in:DataOut, transferred LSB first
\mod:DataOut, C1
Write:
	Move	#8,W
	Move	W,C1
L$:
	RRC	DataOut
	Skip,CC
	Set   PortA:#bData
	Skip,CS
	Clr   PortA:#bData
	Set   PortA:#bCk
	Clr   PortA:#bCk
	DecSkip,EQ C1
	Jump	L$
	Set	PortA:#bStore
	Clr	PortA:#bStore
	Ret
\m2;
\rout:Read|Get 8 bit (provide the clock)
\out:DataIn read, transferred LSB first
\mod:DataIn, C1
Read:
	Move	#8,W
	Move	W,C1
	Set	PortA:#bLoad
	Clr	PortA:#bLoad
L$:
	ClrC		;*
	TestSkip,BC PortA:#bData	;*
	SetC		;*
	RRC	DataIn
	CkOn
	CkOff
	DecSkip,EQ C1
	Jump	L$
	Ret
	
; Les trois instructions de la routine Read, marquées
; par un *, peuvent être remplacées par une seule
; (RRC PortA,W) si le bit d'entrée est câblé sur le
; bit 0 du port A (i.e. bData=0). Cette instruction 
; décale le bit de poids faible de PortA dans le Carry.