Форум РадиоКот

Код: Выделить всё

;-------------------------------------------------------------------
......
ldi temp0, EV_ERROR_STOP_GEN ;(0x06)
ldi temp1, NULL
rcall DISPLAY
......
.....

;************************************************************** USART TRANSMITTER
USART_TX:
sbis				UCSR0A,					UDRE0
rjmp				USART_TX
out					UDR0,					temp0
ret

;************************************************************** UART LOG OUT ENGINE (с) DX168B
DISPLAY:
ldi					ZL,						Low(SIZEOF*2)
ldi					ZH,						High(SIZEOF*2)
add					ZL,						temp0
adc					ZH,						temp1
lpm					count0,					Z
ldi					ZL,						Low(INDEX*2)
ldi					ZH,						High(INDEX*2)
lsl					temp0
clr					temp1
add					ZL,						temp0
adc					ZH,						temp1
lpm					temp2,					Z+
lpm					temp3,					Z
mov					ZL,						temp2
mov					ZH,						temp3
DISPLAY_LOOP:
lpm					temp0,					Z+
rcall				USART_TX
dec					count0
brne				DISPLAY_LOOP
ret
;----------------------------------------------------------------
INDEX:
.dw ARRAY0*2, ARRAY1*2, ARRAY2*2,  ARRAY3*2
.dw ARRAY4*2, ARRAY5*2, ARRAY6*2,  ARRAY7*2
.dw ARRAY8*2, ARRAY9*2, ARRAY10*2

.dw ERROR_L1*2, ERROR_L2*2, ERROR_L3*2

SIZEOF:
.db 19, 16, 7, 15, 18, 19, 14, 13, 19, 19
.db 15, 8,	8, 8

ARRAY0:
.db "SYSTEM STARTING...", 13, 0 ; 0  EV_SYSTEM_STARTING
ARRAY1:
.db	"SYSTEM RUNNING.", 13		; 1  EV_SYSTEM_RUNNING
ARRAY2:
.db "TIME: ", 13, 0				; 2  EV_TIME
ARRAY3:
.db "CURRENT TIME: ", 13, 0		; 3  EV_CURRENT_TIME
ARRAY4:
.db "GENERATOR ENABLED", 13		; 4  EV_GEN_ENABLED
ARRAY5:
.db "GENERATOR DISABLED", 13, 0 ; 5  EV_GEN_DISABLED
ARRAY6:
.db "ERROR STOP!", 13			; 6  EV_ERROR_STOP_GEN
ARRAY7:
.db "ERROR START!", 13, 0		; 7  EV_ERROR_START_GEN
ARRAY8:
.db "STARTING ENGINE...", 13, 0	; 8  EV_STARTING_ENGINE
ARRAY9:
.db "STOPPING ENGINE...", 13, 0	; 9  EV_STOPPING_ENGINE
ARRAY10:
.db "ENGINE RUNNING", 13, 0		; 10 EV_ENGINE_RUNNING

ERROR_L1:
.db "L1 FAIL", 13				; XX EV_L1_FAIL
ERROR_L2:
.db "L2 FAIL", 13				; XX EV_L2_FAIL
ERROR_L3:
.db "L3 FAIL", 13				; XX EV_L3_FAIL