DACCON   EQU      0xFD
DAC0L   EQU      0xF9
DAC1L   EQU      0xFB
DAC0H   EQU      0xFA
DAC1H   EQU      0xFC
PLLCON   EQU      0xD7
T2CON   EQU      0xC8   ;Регистр управления Таймером 2 (T/C2)
TR2      EQU      0xCA   ;Бит запуска Таймера2
TF2      EQU      0xCF   ;Флаг прерывания Таймера2
TH2      EQU      0xCD   ;Старий байт данных Таймера2
TL2      EQU      0xCC   ;Младший байт данных Таймера2
RCAP2H   EQU      0xCB   ;Регистр автоперезагрузки ст. байта Таймера2
RCAP2L   EQU      0xCA   ;Регистр автоперезагрузки мл. байта Таймера2
      org      0x00
setup:   mov      P1,#0x00
      mov      T2CON,#00000000b
      mov      PLLCON,00000000b
      mov      TH2,#0xFF
      mov      TL2,#0x5A
      mov      IE,#10000010b
      mov      DACCON,#10011111b
      setb   TR2         
begin:   clr      P0.0
      mov      R2,#13
      mov      R5,#13
      mov      R0,#0x4F
proverka:
      jb      P1.1,ustanovka1
      jb      P1.2,ustanovka2
aaa:   jnb      P1.0,proverka
period1:
      setb   P0.0
      jnb      TF2,$
      clr      TF2
      clr      P0.0
period2:
      clr      P0.0
      jnb      TF2,$
      clr      TF2
      ajmp   aaa
ustanovka1:
      djnz   R2,u1
      mov      R0,#0x4F
      djnz   R5,u2
      mov      R0,#0x4F
      acall   setup3
      mov      RCAP2H,@R0
      inc      R0
      mov      RCAP2L,@R0
      inc      R0
      inc      R7
      jb      P1.1,$
      ajmp   proverka
u1:      acall   setup1
      mov      RCAP2H,@R0
      inc      R0
      mov      RCAP2L,@R0
      inc      R0
      jb      P1.1,$
      ajmp   proverka
u2:      acall   setup2
      mov      A,@R0
      mov      RCAP2H,@R0
      inc      R0
      mov      RCAP2L,@R0
      inc      R0
      inc      R6
      jb      P1.1,$
      ajmp   proverka
ustanovka2:
      djnz   R2,u3
      djnz   R5,u4
      acall   setup1
      mov      RCAP2H,@R0
      dec      R0
      mov      RCAP2L,@R0
      dec      R0
      jb      P1.2,$
      ajmp   proverka
u3:      acall   setup3
      mov      RCAP2H,@R0
      dec      R0
      mov      RCAP2L,@R0
      dec      R0
      jb      P1.2,$
      ajmp   proverka
u4:      acall   setup2
      mov      RCAP2H,@R0
      dec      R0
      mov      RCAP2L,@R0
      dec      R0
      jb      P1.2,$
      ajmp   proverka
setup1:   mov      PLLCON,#00000000b
      mov      0x4F,#0xFF
      mov      0x50,#0x5A
      mov      0x51,#0xFF
      mov      0x52,#0x46
      mov      0x53,#0xFF
      mov      0x54,#0x32
      mov      0x55,#0xFF
      mov      0x56,#0x14
      mov      0x57,#0xFE
      mov      0x58,#0xEC
      mov      0x59,#0xFE
      mov      0x5A,#0xB0
      mov      0x5B,#0xFE
      mov      0x5C,#0x60
      mov      0x5D,#0xFD
      mov      0x5E,#0xD4
      mov      0x5F,#0xFC
      mov      0x60,#0xBC
      mov      0x61,#0xF9
      mov      0x62,#0x74
      mov      0x63,#0xF8
      mov      0x64,#0xB6
      mov      0x65,#0xF7
      mov      0x66,#0xD0
      mov      0x67,#0xF6
      mov      0x68,#0xAE
         ;mov      R0,0x4F
      ret
setup2:   mov      0x4F,#0xF5
      mov      0x50,#0x1E
      mov      0x51,#0xF2
      mov      0x52,#0xE4
      mov      0x53,#0xEF
      mov      0x54,#0x9C
      mov      0x55,#0xEA
      mov      0x56,#0x2E
      mov      0x57,#0xDF
      mov      0x58,#0x3E
      mov      0x59,#0xBE
      mov      0x5A,#0x78
      mov      0x5B,#0xB7
      mov      0x5C,#0xE8
      mov      0x5D,#0xAE
      mov      0x5E,#0x10
      mov      0x5F,#0xA2
      mov      0x60,#0xEE
      mov      0x61,#0x93
      mov      0x62,#0x3A
      mov      0x63,#0x7C
      mov      0x64,#0xEC
      mov      0x65,#0x5C
      mov      0x66,#0x26
      mov      0x67,#0x25
      mov      0x68,#0xC4
      ;mov      R0,0x4F
      ret
setup3:   mov      PLLCON,#00000111b
      mov      0x4F,#0xFD
      mov      0x50,#0x70
      mov      0x51,#0xFA
      mov      0x52,#0xE6
      mov      0x53,#0xFA
      mov      0x54,#0x5A
      mov      0x55,#0xF9
      mov      0x56,#0x9C
      mov      0x57,#0xF8
      mov      0x58,#0xB6
      mov      0x59,#0xF7
      mov      0x5A,#0x80
      mov      0x5B,#0xF5
      mov      0x5C,#0xBE
      mov      0x5D,#0xF3
      mov      0x5E,#0x34
      mov      0x5F,#0xEE
      mov      0x60,#0xF2
      mov      0x61,#0xF6
      mov      0x4F,#0x64
      mov      0x50,#0xCC
      mov      0x51,#0xCE
      ret