Так как у вас один и тот же код скорей всего будет использоваться 6 раз (если продолжать заполнение массива данных в вашем стиле) то логично использовать отдельную подпрограмму для
шести строк - fill_nums и "скармливать" ей адреса всех шести строк по очереди в главном цикле программы. Конец программы надо завершать директивой END. Если мы часть действий выполняем подпрограммой, то главный год надо зациклить пусть и пустым циклом MAIN_LOOP: NOP - Goto MAIN_LOOP.
Если избавиться от дублирующих переменных, константы вынести в заголовок и предположить что вся работа будет происходить в Банке данных 0, дополнить слово конфигурирования (не только выбор тактового генератора) то программа может выглядеть как-так:
Спойлер
Код: Выделить всё
#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
Вот окно памяти данных после выполнения основной программы:
PS
Насчет записи в ПЗУ чисел кратных 5 попробуйте сами, по идее можно загнать в FSR начальный адресс - A0 и двигаясь до конца - А0+(6*16) проверять на кратность пяти и при успешной проверке запихивать в ПЗУ (хотя какой смысл проверять все строки если данные отличаются только в пределах "строки" а между строками - нет).
Все числовые константы советую выносить в шапку и давать им отличающиеся имена (например в верхнем регистре через нижнее подчеркивание) это облегчает восприятие вашей команды проверяющем
Никита смекнул, что мир не без добрых людей.
. Может подскажешь как переписать в EEPROM числа кратные 5 в таком же порядке с сохранением адресов?