Форум РадиоКот

Код: Выделить всё

clr A
movd A, P6 ;P6 копирую в младшую тетраду аккумулятора
swap A ;меняю местами тетрады аккумулятора
movd A, P7 ;P7 в младшую тетраду А
cpl A ; инвертирую полученный байт
outl P1, A ; вывожу байт в порт P1
retr  ;выход из обработчика

Код: Выделить всё

; убираем очистку clr A - это излишне
movd A, P6 ;порт P6 копируем в младший ниббл аккумулятора A - как и было
xchd A,@Ri ;но ( ! ) сохраняем в мл. ниббле регистра
movd A, P7 ;P7 в младший ниббл А
swap A ;вот только теперь меняем местами нибблы аккумулятора, так, чтоб значение P7 оказалось в старшем ниббле A
xchd A,@Ri ;а теперь сохранённое в регистре значение P6 - в младший ниббл A
;Ну дальше всё, как и было ...
cpl A ; 
outl P1, A ; 
retr  ;

Код: Выделить всё

 MOV A<-T ; 
 ANL A,00011111b ; нужны только 5 бит для 32 столбцов
 RL A ; RL A ; RL A ; но подвинутые в старшую сторону
 MOV R2<-A ; в битах 5 , 4 , 3 номер столбца символа, а в битах 7 и 6 номер символа
 INC R3 ; смещение столбцов
 ADD R3 ; добавляется, чтобы строка стала "бегущей"
 OUTL P2<-A ; в 5 старших битах P2 номер столбца "дисплея" ( мл. 3 бита игнорируем )
 ANL A,11000000b ; теперь нужны вообще только 2 бита
 RL A ; RL A ; но подвинутые в младшую сторону 
 ADD A,32d ; 
 MOV R1<-A ; указатель на "экранную область" внутр.п.д.
 MOV A<-R2 ;
 RL A ; RL A ; 
 ANL A,11100000b ; в трёх старших битах номер столбца символа 
 ADD A,@R1 ; взяли из внутр.п.д. символ который отобразим
 MOVP3 A<-@A ; взяли из 3ей.стр.пзу столбец символа
 MOVD P7<-A ; SWAP A ; MOVD P6<-A ; вывели столбец в P7 и P6 *вр43
 RETR ;