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

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

;Ну , что коллеги . Вот Вам код. Он не дописан до конца.
;Используя всего лишь три регистра , два из которых я уже показал,
; можно получить полезное бытовое устройство , без сильных затрат.
;Задачка такая , что делает первая часть кода и дополните оставшиеся две части.
;ПРИЗ ПОБЕДИТЕДЮ - AVR DRAGON + БОНУСЫ.
;Естественно это математическая задачка , но по применённой Вами константе,
; которую Вы найдёте сами , я сразу определю решили Вы ее или нет

	.INCLUDE "2313def.inc"
INIT:
	CLR	R20
	CLR	R21
	CLR	R22
	RCALL   OUT_LCD
	
	ldi	XL,0xA6
	mov	XH,XL
	LDI	YL,0xD6
	sei
;**************************************************
;*               MAIN                    *
;**************************************************
MAIN:
	RCALL	OUT_LCD
;..............
	subi   XL,-1
	brhc	INIT_SEC
SUM:
	mov	R22,XL
	subi	R22,0xA6
	rjmp   MAIN
INIT_SEC:
	tst      XL
	breq   ADD_MIN
	subi   XL,-6   
	rjmp   SUM
ADD_MIN:
	clr	R22
	LDI      XL,0xA6
	subi   XH,-1
;**************************************************
;продолжите С ЭТОГО МЕСТА
	brhc	INIT_MIN
SUM_MIN:
	MOV	R21,XH
	subi	R21,0xA6
	rjmp	MAIN
INIT_MIN:
	TST	XH
	BREQ	ADD_HOURS
	SUBI	XH,-6
	RJMP	SUM_MIN
ADD_HOURS:
	CLR	R21
	LDI      XH,0xA6
	
	SUBI	YL,-1
	BRHC	INIT_HOURS	
SUM_HOURS:
	MOV	R20,YL
	SUBI	R20,0xD6
	CPI	YL,0xFA
	BRCS	MAIN
	RJMP	INIT
INIT_HOURS:
	TST	YL
	BREQ	INIT
	
	SUBI	YL,-6
	RJMP	SUM_HOURS
;**************************************************
OUT_LCD:
	STS	$62,R22
	STS	$61,R21
	STS	$60,R20
	RET

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

;-------------------------------------------------------------------------------
;  Подпрограмма переводит часы на 1 секунду вперёд
;-------------------------------------------------------------------------------

run_clock:
                                  ; Крутим секунды
  lds r16,clk_ss                  ; Берём текущее значение
  inc r16                         ; Увеличиваем
  cpi r16,60                      ; Проверяем на максимум
  brcc rc_min                     ; Если равен - уходим на минуты
  sts clk_ss,r16                  ; Иначе сохраняем
  ret                             ; И выходим из подпрограммы
                                  ; Крутим минуты
  rc_min:                                                  
  clr r16                         ; Сначала очищаем секунды
  sts clk_ss,r16                  ; И сохраняем
  lds r16,clk_mm                  ; Дальше аналогично с минутами
  inc r16
  cpi r16,60
  brcc rc_hh
  sts clk_mm,r16
  ret

  rc_hh:                          ; Крутим часы
  clr r16                         ; Аналогично
  sts clk_mm,r16
  ;-------------------------
  set                             ; Устанавливаем флаг необходимости
  bld flags0,NEED_H_COR           ; грубой коррекции
  ;-------------------------
  lds r16,clk_hh
  inc r16
  cpi r16,24
  brcc rc_dd
  sts clk_hh,r16
  ret

  rc_dd:                          ; Крутим день
  clr r16                         
  sts clk_hh,r16
  ;-------------------------
  set                             ; Устанавливаем флаг необходимости
  bld flags0,NEED_L_COR           ; точной коррекции
  ;-------------------------

  lds r16,clk_dd                  ; Берём число
  lds r17,clk_mnt                 ; Берём месяц
  ldi2Z cnt_day                   ; Берём адрес массива с количеством дней
  add16Z r17                      ; в месяце и прибавляем ему смещение
  lpm r19,Z                       ; Загружаем количество дней в месяце
  lds r18,clk_yyyy                ; Проверим на високосный год
  andi r18,0b00000011             ; У него будет два младших бита в нулях
  brne rc_dd3                     ; Год високосный, сейчас февраль?
    cpi r17,2                     ; Если да
    brne rc_dd3                  
    inc r19                       ; Увеличиваем кол-во дней в месяце
  rc_dd3:
  inc r16                         ; Увеличиваем текущее
  cp r19,r16                      ; Проверяем текущее число с максимальным
  brcs rc_mnt                     ; Перевалило - уходим на месяцы
  sts clk_dd,r16
  ret

  rc_mnt:                         ; Крутим месяц
  ldi r16,1                       ; Он у нас уже есть в r17
  sts clk_dd,r16
  inc r17
  cpi r17,13
  brcc rc_yy
  sts clk_mnt,r17
  ret

  rc_yy:                          ; Крутим год
  ldi r17,1
  sts clk_mnt,r17  
  lds ZL,clk_yyyy
  lds ZH,clk_yyyy+1
  adiw ZL,1
  sts clk_yyyy,ZL
  sts clk_yyyy+1,ZH
 ret