Микроконтроллеры

...

.let	alarm = portF.3

Host:

	mov	#Dmode	,s[y]:s+1[y]

Host_loop:

;----- port A:

	clr	ddrA

;----- port B:

	mov	$68	,ddrB		; PB6,PB5,PB3 - out
	set	portB.3

;----- port C:

	mov	$90	,portC		; старшие адреса области обмена
	mov	$FF	,ddrC		; генерятся при запрете ExtRAM

;----- port D:

	mov	$40	,ddrD		; Pd6 - out
	clr	portD.6			; PD6=0
	set	portD.0			; pull-up on
	set	portD.1			; pull-up on

;----- port E:

	mov	$06	,ddrE           ; Pe1,Pe2 - out
	set	portE.6			; pull-up on
	clr	portE.2			; PE2=0

;----- port F:

	mov	$C8	,ddrF		; 7,6,x,x,3,x,x,x - out

;----- port G:

	clr	ddrG

	xxx

;----- disable/enable прерываний

	clr	ADCSRA, ADMUX		; disable ADC

	mov	tmp	,SFIOR		; маловажно, но пусть будет.

	mov	tmp	,TIMSK		; disable interrupt TIMER 0,1,2
	mov	tmp	,ETIMSK		; disable interrupt TIMER 3

	mov	tmp	,TCCR3A		; stop timer3
	mov	tmp	,TCCR3B		;

	xxx

;----- slip timers ---------------------;

	mov	#8	,ASSR		; async mode for T0

	mov	#1	,r17		;
	ifne	TCCR0	,r17		; source - PG4, 8KR
	mov	r17	,TCCR0		;

	mov	#7	,r17		;
	ifne	TCCR2	,r17		; source - PD7, -TS17
	mov	r17	,TCCR2		;

	mov	TCNT0	,r17		; число растёт, если принятая
	mov	TCNT2	,r18		; частота БОЛЬШЕ собственной.
	sub	r18	,r17		;
	mov	r17	,Qram+2		;

	xxx

;----- other ---------------------------;

	mov	$80	,ACSR		; disable ANALOG COMPARATOR

	mov	$2C	,EICRA		; 00.10.11.00 /int1-rising,int2-falling/
	clr		 EICRB		; /int6-low_lewel/

	mov	$44	,EIMSK		; enable int_2 (Qbus) and int_6 (Rx)

	xxx

;----- UARTs ---------------------------;

	clr	UCSR1A, UCSR1B, UCSR1C	; disable UART1

	mov	tmp	,UCSR0A		; 9600, 8-N-2
	mov	$18	,UCSR0B		;
	mov	$0E	,UCSR0C		;

	mov	#(cpu_clk/9600/16)-1 ,r17

	mov	UBRR0H	,tmp
	bic	$F0	,tmp
	beq	20$

	clr	UBRR0H

20$:	ifne	UBRR0L	,r17
	mov	r17	,UBRR0L

....