;==============================================================================================
;    OUTPUT DISPLAY KO-4B2 HT1611/13
;==============================================================================================
DISPLAY
      movf       LED4,w    ;запись первых 2-х кодов в аккумулятор
             call       Displ     ;переход на ПП формирования импульсов
             movf       LED3,w
             call       Displ
             movf       LED2,w
             call       Displ
             movf       LED1,w
             call       Displ
             movf       LED0,w      
             call       Displ
  RETURN
;=============================================
;Out byte to display
;=============================================
Displ
             movwf   Rotate        ;запись в регистр сдвига
             clrf    COUNT         ;очистка счетчика битов
             bsf     COUNT,3       ;запись колличества бит (8)
             bcf     STATUS,0    ;не обязательная команда
displ1
             clrf    STATUS    ;сброс бита переноса, можно заменить см. выше
             rlf     Rotate,f      ;сдвиг влево содержимого регистра с сохранением результата
             btfsc   STATUS,0      ;если С=0, то НОП
             bsf     PORTB,4       ;иначе ПортА1=1
             btfss   STATUS,0      ;если С=1, то НОП
             bcf     PORTB,4       ;иначе ПортА1=0
;формирование импульсов CLK
             bsf     PORTB,3
      nop     ;задержка 1 мкс
             bcf     PORTB,3
             decfsz  COUNT,f       ;декремент счетчика битов, если =0, то НОП
             goto    displ1        ;иначе переход displ1
;
             RETURN

{
****************************************************************************
* Name    : EnableWrite (PRIVATE)                    *
* Purpose : Enable writes to SPI EEPROM                    *
****************************************************************************
}   
sub EnableWrite()
     CSOn                    // chip select on
     WriteByte(cmdWriteEnable)           // enable writes
     CSOff                    // chip select off
end sub

{
****************************************************************************
* Name    : CSOn (PRIVATE)                    *
* Purpose : Enable chip select                    *
****************************************************************************
}   
inline sub CSOn()
     FSR0 = FCS.Address                   // get latch address
     INDF0 = INDF0 and FCS.PinMask        // set to low
end sub
{
****************************************************************************
* Name    : CSOff (PRIVATE)                    *
* Purpose : Disable chip select                    *
****************************************************************************
}   
inline sub CSOff()                        
     FSR0 = FCS.Address                   // get latch address
     INDF0 = INDF0 or FCS.Pin             // set to high
end sub
{

            movf    DataSend,w    ;запись кодa в аккумулятор  
             movwf   Rotate        ;запись в регистр сдвига
             clrf    COUNT         ;очистка счетчика битов
             bsf     COUNT,3       ;запись колличества бит (8)
             bcf     STATUS,0   ;не обязательная команда
displ1
             clrf    STATUS   ;сброс бита переноса, можно заменить см. выше
             rlf     Rotate,f      ;сдвиг влево содержимого регистра с сохранением результата
             btfsc   STATUS,0      ;если С=0, то НОП
             bsf     PORTC,4       ;иначе ПортC1=1
             btfss   STATUS,0      ;если С=1, то НОП
             bcf     PORTC,4       ;иначе ПортC1=0
;формирование импульсов CLK
             bsf     PORTC,0
      nop     ;задержка 1 мкс (200нс -20МГц)
             bcf     PORTC,0
             decfsz  COUNT,f       ;декремент счетчика битов, если =0, то НОП
             goto    displ1        ;иначе переход displ1
;
      bcf     PORTC,4
      bsf     PORTC,3
      nop     ;задержка 1 мкс
             bcf     PORTC,3