Aansturing

Het volgende programma verzorgt eenvoudige besturing van de SCI poort:

* initialiseer de seriële poort
		ldab #(scp1+scp0)
		stab baud		|kies 9600 BAUD ( 8 MHz kristal)
		ldab #(te or re)
		stab sccr2		|zet zender en ontvanger aan
		rts

* kijk of er een karakter ontvangen is
* zoja, zet dan de zero vlag op '0'
serincheck	equ $
		pshb
		ldab scsr		|lees de status vlaggen
		andb #rdrf		|en test op het 'receiver full' bit
		pulb
		rts

* kijk of de seriële poort gereed is om een teken te versturen
* zoja, zet dan de zero vlag op '0'
seroutcheck	equ $
		pshb
		ldab scsr		|lees de staus vlaggen
		andb #tc		|en test op het 'transmitter empty' bit
		pulb
		rts

* haal een teken op uit de ontvanger, en zet het in accumulator B
getchar		equ $
		bsr serincheck		|wacht totdat er een teken ontvangen is
		beq getchar
		ldab scdr		|en lees het teken uit het ontvanger register
		rts

* verstuur het teken in accumulator B via de seriële poort
putchar		equ $
		bsr seroutcheck		|wacht totdat de zender gereed is
		beq putchar
		stab scdr		|en zet dan het teken in het verzend register
		rts