;
;        mb_main.txt
;      
; KOTUINO mode 2     aspgm1
;
;----------------------------------------------

    .cseg at startus
  lcall  terus ;     !!!
;-------------------------

  LLPRINT reinfo ;  

  WAITT 255

  LLPRINT m_str0

 TX_BSPI_LCOM com_vect_read_hed
  mov dptr,#m_str1
  mov r4,#11
 loop0:
  acall bspi_rxd
  mov a,data_t
  movx @dptr,a
  inc dptr
  djnz r4,loop0

  LLPRINT m_str0
; 
  mov g_cnt,#5
 murg:
  TX_BSPI_SCOM com_vect_oll_off ;  = 0
  LLPRINT m_str2
  WAITT 200
  TX_BSPI_SCOM com_vect_oll_on ;  = 1
  LLPRINT m_str3
  WAITT 200
  djnz g_cnt,murg



   TEST_STOP

;-------------------------