#include p16f873a.inc
   __CONFIG _HS_OSC & _WDTE_OFF & _PWRTE_ON & _BOREN_ON & _LVP_OFF & _CPD_OFF & _CP_OFF & _WRT_OFF  & _DEBUG_OFF
; выбраны:
; высокоскоростной генератор
; сторожевой таймер выключен
; задержка при включении питания активирована
; выключение при снижении питания включено
; низковольтное программирование не задействовано
; защита данных программ, ПЗУ, записи отключено
; отладка отключена

; Стартовые адреса шести строк в памяти данных
START_ADR1_6 equ h'A0'
START_ADR2_6 equ h'B0'
START_ADR3_6 equ h'C0'
START_ADR4_6 equ h'D0'
START_ADR5_6 equ h'E0'
START_ADR6_6 equ h'F0'

; massive pointer
;- Вместо переменных SIZE_MAS2 и SIZE_MAS одна переменная
;- mas_p, т.к. они использовались по очереди. Переменная в Банке 0,
; потому что Банк 1 будет полностью использован
mas_p      equ    h'20'   
; Константы для вычисления длины массива
SIZE_MAS2   equ      d'6'
SIZE_MAS1   equ      d'10'
; - Вместо _DATA и _DATA2 - _data в Банке 0
_data   equ         h'21'   ;
; Константы для вычисления hex числа
_DATA2   equ      d'21'
_DATA1   equ      d'9'

   ORG 0
Goto   START
   ORG 8
START
   Movlw   START_ADR1_6      ; 1-ый из 6
   Call   fill_nums
   Movlw   START_ADR2_6      ; 2-ой из 6
   Call   fill_nums
   Movlw   START_ADR3_6      ; 3-ий из 6
   Call   fill_nums
   Movlw   START_ADR4_6      ; 4-ый из 5
   Call   fill_nums
   Movlw   START_ADR5_6      ; 5-ый из 6
   Call   fill_nums
   Movlw   START_ADR6_6      ; 6-й из 6
   Call   fill_nums
MAIN_LOOP
   NOP               ; Главный цикл ничегонеделанья
   Goto   MAIN_LOOP   
;********************************************************
;          ***       fill_nums       ***            *
; Заполняем 16 ячеек начиная со стартового адреса в    *
;  аккумуляторе в обратном порядки числами:            *
;  15,14,13,12,11,10,9 ... 4,3,2,1,0 в hex виде         *   
;********************************************************
fill_nums
;- Работа с регистрами FSR и INDF возможна из любого банка      
   movwf   FSR
   movlw    SIZE_MAS2
   movwf    mas_p
   movlw    _DATA2
   movwf    _data
loop:
   movf    _data,W
   movwf    INDF
   decf    _data, F
   incf    FSR, F
   decf    mas_p, F   
;- Дополнительно запихивать переменную в раб. аккумулятор
;-  не надо, т.к. результат команды влияет на Z      
   btfss    STATUS, Z
   goto loop
         
   movlw SIZE_MAS1
   movwf mas_p
   movlw _DATA1
   movwf _data
      
loop2:
   movf _data,W
   movwf INDF
   decf _data, F
   incf FSR, F
   decf mas_p, F
   btfss STATUS, Z
   goto loop2

   Return

END