Intel 8051 - pinnacle

;курсовой проект по мпс
;МП контроллер сейфа
;Код замка от 0000 до 9999
;Установка кода по последовательному каналу с центрального пульта охраны (ЦПО)
;Набор кода открывания с помощью цифровых двоично/десятичных переключателей
;Включение сигнализации при 2-х в течении 1 мин попытках открывания  сейфа с неверным кодом
 
;ДАННЫЕ:
;ввод кода:
;p0.0-p0.7 - первые две цифры кода
;p2.0-p2.7 - последние две цифры кода
;сигнализация - p1.0 = 1
;открытие - p1.1 = 1
 
;по int0 получаем новый код замка
 
;по int1 получаем введенный код и проверяем его на тождественность заданному
 
org 0000h
 jmp START
 
 
org 0003h        ;внешнее прерывания int0
  clr ie.7
  call int0_proc
  reti
 
org 0013h        ;внешнее прерывание int1
  clr ie.7
  call int1_proc
  reti
 
org 0050h
 
int1_proc:
  ;делаем проверку соответствия введенного кода заданному
  ; чтение портов P0 и P2 - кода на замке
  mov A,P0
  cjne A,30h,error
  mov A,P2
  cjne A,31h,error  
  
  
  ok:
    ;если все нормально, то 
    ;сбрасываем счетчик, открываем сейф
    mov R0,#0h
    clr TR0
    setb P1.1
    nop 
    nop 
    nop
    nop
    clr P1.1
    
  jmp int1_fin
  error:
  ;если неправильный код, то надо проверить включен ли 
  ;уже таймер, если да - то включаем сигнализацию
  ; если нет, то включаем таймер
    mov C,TR0
    jc alert
    call timer_start
    jmp int1_fin
  alert:
    mov R0,#0h  
    clr TR0    
    setb P1.0
    nop 
    nop 
    nop
    nop
    clr P1.0
     
  int1_fin:
ret
 
int0_proc:
  ;начинаем прием по последовательному каналу с ЦПО
 
 
  mov  scon, #01000000b     ;последоват. порт на режим "0"
    
  setb scon.4 ;разрешение приема информации
    
  N1: jnb scon.0, N1 ;ожидание готовности приемника
  clr scon.0         ;Очистка флага готовности
  
  mov R0,#30h
  mov @R0,SBuf 
    
  N2: jnb scon.0, N2 ;ожидание готовности приемника
  inc R0
  mov @R0,SBuf    
 
  ;записываем все полученные данные в РПД по адресам 30h и 31h (2 байта)
ret
 
timer_start:
  ;настройка с/т 0 - режим 1, программный запуск
  mov TMOD,#10h
  ;обнулем счетчик
  mov TH0,#0h
  mov TL0,#0h
  clr TF0
  ;запускаем счетчик
  setb TR0
ret
 
START:
  ;обнулЯем порты
  clr P1.0
  clr P1.1
  clr TR0
  mov R0,#0h
  ;делаем общее разрешение прерываний + разрешение int0
  MOV IE,#81h   ; разрешение INT0
 
  ;ждем прерывание int0 дл установки нового кода замка
  wait0:
    jnb TCON.1,wait0 ;ждем прерывание int0
  start_check:  
 
 
  ;ждем прерывание int1 для проверки введенного кода с ДДП
  wait1:  
    MOV IE,#84h ; разрешение INT1
    ;проверяем с/т на переполнение, если да, то r0++ и сбрасываем TF0
    mov C,TF0
    jnc not_over_count
    inc R0
    clr TF0
    not_over_count:
      cjne R0,#0FFh,wait1_1 ;проверяем r0 на переполнение, если да, то r1++
        inc R1
        mov R0,#0h
      cjne R1,#00000100,wait1_1 ;если посчитали 60 сек, то выключаем с/т
        clr TR0
        mov R1,#0h
        
    wait1_1:
      jnb TCON.3,wait1 ;ждем прерывание int1
    
  jmp wait1
end