BADian

;******************************************************************************
;   This file is a basic template for creating relocatable assembly code for  *
;   a PIC18F2520. Copy this file into your project directory and modify or    *
;   add to it as needed.                                                      *
;                                                                             *
;   The PIC18FXXXX architecture allows two interrupt configurations. This     *
;   template code is written for priority interrupt levels and the IPEN bit   *
;   in the RCON register must be set to enable priority levels. If IPEN is    *
;   left in its default zero state, only the interrupt vector at 0x008 will   *
;   be used and the WREG_TEMP, BSR_TEMP and STATUS_TEMP variables will not    *
;   be needed.                                                                *
;                                                                             *
;   Refer to the MPASM User's Guide for additional information on the         *
;   features of the assembler and linker.                                     *
;                                                                             *
;   Refer to the PIC18Fxx20 Data Sheet for additional                         *
;   information on the architecture and instruction set.                      *
;                                                                             *
;******************************************************************************
;                                                                             *
;    Filename:                                                                *
;    Date:                                                                    *
;    File Version:                                                            *
;                                                                             *
;    Author:                                                                  *
;    Company:                                                                 *
;                                                                             *
;******************************************************************************
;                                                                             *
;    Files required: P18F2520.INC                                             *
;                                                                             *
;******************************************************************************

    LIST P=18F2520, F=INHX32 ;directive to define processor and file format
    #include <P18F2520.INC>  ;processor specific variable definitions

;******************************************************************************
;Configuration bits
;Microchip has changed the format for defining the configuration bits, please
;see the .inc file for futher details on notation.  Below are a few examples.


;   Oscillator Selection:
CONFIG OSC = INTIO67,WDT = OFF,PBADEN = OFF,XINST = OFF,DEBUG = ON,MCLRE = ON              ;использования встроенного осциллятора
         ;а также конфигурирование периферийных устройтв


      ;конфигурирование тактового осциллятора в режим

;******************************************************************************
;Variable definitions
; These variables are only needed if low priority interrupts are used.
; More variables may be needed to store other special function registers used
; in the interrupt routines.

UDATA_ACS           ;инициализация регистров и констант

  BSR_TEMP  res 1      ;restore BSR register
  WREG_TEMP res 1      ;restore working register
  STATUS_TEMP res 1
;Data memory reading
Num     RES 1
;EEPROM reading
NumBook     RES 1
Data_EE_Addr    RES 1
;Program memory Table Reading
NumRead     RES 1
ConstNumRead    EQU .19
ConstStartPositionRead  EQU .0
ConstShiftAdrEE EQU .0

;******************************************************************************
;EEPROM data            инициализация РПЗУ(EEPROM)

AdressEE    EQU 0xF00000   ;формирование массива данных в EEPROM
DATA_EEPROM CODE    AdressEE

DE  0xAA,0x20,0x01,0x00,0xAA, 0x25, "Brigada_7",0x0D           ;команда управления положением курсора
   ;формирование посылки данных для отображения
                 ;на дисплее

;******************************************************************************
;Reset vector
; This code will start executing when a reset occurs.

RESET_VECTOR    CODE    0x0000

        goto    Main        ;go to start of main code

;******************************************************************************
;High priority interrupt vector
; This code will start executing when a high priority interrupt occurs or
; when any interrupt occurs if interrupt priorities are not enabled.

HI_INT_VECTOR   CODE    0x0008

        bra HighInt     ;go to high priority interrupt routine

;******************************************************************************
;Low priority interrupt vector
; This code will start executing when a low priority interrupt occurs.
; This code can be removed if low priority interrupts are not used.

LOW_INT_VECTOR  CODE    0x0018

        bra LowInt      ;go to low priority interrupt routine

;******************************************************************************
;High priority interrupt routine
; The high priority interrupt code is placed here.

        CODE

HighInt:

;   *** high priority interrupt code goes here ***


        retfie  FAST

;******************************************************************************
;Low priority interrupt routine
; The low priority interrupt code is placed here.
; This code can be removed if low priority interrupts are not used.

LowInt:
        movff   STATUS,STATUS_TEMP  ;save STATUS register
        movff   WREG,WREG_TEMP      ;save working register
        movff   BSR,BSR_TEMP        ;save BSR register

;   *** low priority interrupt code goes here ***


        movff   BSR_TEMP,BSR        ;restore BSR register
        movff   WREG_TEMP,WREG      ;restore working register
        movff   STATUS_TEMP,STATUS  ;restore STATUS register
        retfie

;******************************************************************************
;Start of main program
; The main program code is placed here.

Main:           ;Запись в регистр OSCCON b'01110011'
bsf OSCCON,SCS0; ;Выбор источника задающего осциллятора тактовой частоты
bsf OSCCON,SCS1; 11 - от внутреннего тактового осциллятора
bsf OSCCON,IRCF0; Выбор тактовой частоты посл делителя:
bsf OSCCON,IRCF1; 111 - 8Мгц. Бит2=0:-частота вн такт осц нестабильна
bsf OSCCON,IRCF2; Бит3=0:-идет время таймаута, внешн кварц осц не готов

movlw b'10000000';Бит 8:выбор источника низкой частоты внутреннего осциллятора
movwf OSCTUNE;   31,25 кГц от 8 МГц INTOSC источника. бит 6 умножителя
         ;частоты отключен, биты 0-5: тактовая частота подстраивается
         ;на центральную
;         Конфигурация портов B и C:
movlw b'00000001';RB0 - чтение, RB1-RB7 - вывод
movwf TRISB
movwf LATB

movlw b'11100000' ;TX(RC6),RX(RC7), BUSY от жк (RС5) - чтение, отсальные - вывод
movwf TRISC
movwf LATC

StartMain:      ;задаем количество слов для записи в ОЗУ
    movlw .10
    movwf Num
;           Конфигурирование интерфейса USART
;Transmit status and control
bcf TXSTA,CSRC; Синхронный режим - ведомый, внешн такт сигнал с входа CK
bcf TXSTA,TX9;Разрешение 9разрядн передачи; TX9=0:- 8разрядная передача
bcf TXSTA,SYNC; Установка асинхронного режима
bcf TXSTA,BRGH; низкоскоростной режим
;Receive status and Control
bcf RCSTA,TX9;Разрешение приема 9 бит; RC9=0:- 8разрядн прием
bcf RCSTA,CREN; Запрет приема

clrf SPBRG; Обнуляем регистр SPBRG
movlw .12; Записываем в него коэфф 12 для формирования скорости передачи
movwf SPBRG; 9600 бод/сек

bsf RCSTA,SPEN ;Разрешение одиночн приема в синхронном режиме. Бит5=1:
           ;одиночн режим разрешен(сбрасывается в '0' по завершении приема)
bsf TXSTA,TXEN; Разрешение передачи данных по USART

;Организация чтения из ОЗУ
movlw .22;  Задаем количество слов посылки 22
movwf Num
lfsr FSR0,0x100;Задаем начальный адресс массива в ОЗУ
movlw 0xAA;    Формируем посылку для ЖК-дисплея:
movwf INDF0;
incf FSR0L
movlw 0x11;  - команда включения ЖК-дисплея
movwf INDF0
incf FSR0L
movlw 0xAA;
movwf INDF0
incf FSR0L
movlw 0x22; - команда выключения курсора
movwf INDF0
incf FSR0L
movlw 0xAA
movwf INDF0
incf FSR0L
movlw 0x10; - команда очистки дисплея
movwf INDF0
incf FSR0L;
movlw 0xAA
movwf INDF0
incf FSR0L
movlw 0x20; - команда установки позиции курсора
movwf INDF0; [0,0] - строка, столбец
incf FSR0L
movlw 0x00; row
movwf INDF0
incf FSR0L
movlw 0x00; column
movwf INDF0
incf FSR0L
movlw 0xAA
movwf INDF0
incf FSR0L
movlw 0x25; Формирование пакета данных для отображения на дисплее
movwf INDF0
incf FSR0L; Текстовое сообщение в коде ASCII:
movlw 0x42; B
movwf INDF0
incf FSR0L
movlw 0x72; r
movwf INDF0
incf FSR0L
movlw 0x69; i
movwf INDF0
incf FSR0L
movlw 0x67; g
movwf INDF0
incf FSR0L
movlw 0x61; a
movwf INDF0
incf FSR0L
movlw 0x64; d
movwf INDF0
incf FSR0L
movlw 0x61; a
movwf INDF0
incf FSR0L
movlw 0x5F; _
movwf INDF0
incf FSR0L
movlw 0x37; 1
movwf INDF0
incf FSR0L
movlw 0x0D; Конец пакета данных для передачи
movwf INDF0


WaitPressButton:    ;ожидание нажатия на кнопку( логическ '0' на RB0)
btfsc PORTB,RB0
bra WaitPressButton
bsf LATB,RB3        ;при нажатии на кнопку включается светодиод на выводе
            ;RB0
WaitUnpressButton:  ;ожидание отпускания кнопки( логическ '1' на RB0)
btfss PORTB,RB0
bra WaitUnpressButton
bra SendMessAdr;    переход к пересылке сообщения из ОЗУ в дисплей
;           передача сообщения на ЖК-дисплей из ОЗУ
SendMessAdr:
lfsr FSR0, 0x100;   задаем начальный адрес массива в ОЗУ
SendMess:
movff INDF0,WREG    ;передаем данные из памяти через WREG в регистр TXREG
movwf TXREG

TX_TRMT:        ;Опрашиваем бит готовности [TRMT], TXSTA[TRMT]=1,
btfss TXSTA,TRMT     ;если да - переход на метку BUSY
bra TX_TRMT
bra BUSY

BUSY:
btfsc LATC, RC5; Опрашиваем бит RC5 (BUSY от дисплея), если = 1, включаем
bra BUSY_LED_ON; светодиод RB5 и ждём окончания операции, если RC5 = 0,
bra NEXT_DATA; переход к следующему слову в ОЗУ

BUSY_LED_ON:
bsf LATB, RB5; Включаем светоиод RB5
bra BUSY

NEXT_DATA: ;Переход к следующему значению:
incf FSR0L; увеличение адреса на 1, уменьшениче счётчика слов на 1,
decf Num;  если Num >= 1, переход к передаче следующего слова,
bnz SendMess;  если нет - выход из цикла
bcf LATB, RB5; Выкл. свеодиода RB5


  END

 END


 END
;******************************************************************************
;End of program

        END


        ;PART 2  Работаем с памятью программы таблицы


TABLE_Reading:
    movlw UPPER ConstHeadTabLed
    movwf TBLPTRU
    movlw HIGH ConstHeadTabLed
    movwf TBLPTRH
    movlw LOW ConstHeadTabLed
    movwf TBLPTRL


    movlw ConstNumRead
    movwf NumRead

    lfsr FSR0,0x200 ; начальный адрес


      WaitPressButton:    ;ожидание нажатия на кнопку( логическ '0' на RB0)
btfsc PORTB,RB0
bra WaitPressButton
bsf LATB,RB3        ;при нажатии на кнопку включается светодиод на выводе
            ;RB0
WaitUnpressButton:  ;ожидание отпускания кнопки( логическ '1' на RB0)
btfss PORTB,RB0
bra WaitUnpressButton
bra CiklReadTable;    переход к пересылке сообщения из ОЗУ в дисплей
;           передача сообщения на ЖК-дисплей из ОЗУ


CiklReadTable:  ;цикл чтения таблицы


    TBLRD*+;    Чтение програмное  данных с инкрементом адреса

    movff TABLAT,INDF0   ; сохраняем в память ОЗУ и пересылаем на жк дисплей
    incf FSR0L

    movff TABLAT,TXREG

    TX_TRMT3:
     btfss TXSTA,TRMT
     bra TX_TRMT3;

     decfsz NumRead,F

    bra WaitPressButton
    bra PROG_End


    ORG 0x120 ;адрес таблицы


    ConstHeadTabLed:
    DB 0xAA,0x20,0x00,0x01
    DB 0xAA,0x47 ;g

    DB 0x20     ; -
    DB 0x47     ; g

    DB 0x20     ; -
    DB 0x47     ; g

    DB 0x20     ; -
    DB 0x47     ; o

    DB 0x20     ; -
    DB 0x47     ; n

    DB 0x20     ; -
    DB 0x47     ; e

    DB 0x20     ; -
    DB 0x47     ; x

    DB 0x20     ; -
    DB 0x47,0x0D     ; t
    DB 0xAA,0x20,0x01,0x0F
    DB 0xAA,0x23


    PROG_End:
    Halt
    END