Помогите с циклом для С8051F005 Опции

[Scorpline]

Я начинающий в ассемблере... Может кто поможет написать код цикла для сравнения двух однобайтных значений... то есть есть два числа(допустим #10h и #3Fh). Они сравниваются с другими значениями которые прокручиваются в цикле(и постоянно изменяются)... и если эти значение меньше 10h то выполняется вызов какойто подпрограммы и соответственно значение больше 3Fh то вызов другой подпрограммы.... (вообщем как в ассемблере зделать знаки <>)

[Палыч]

IMHO, для сравнения байта с заранее известной константой лучше всего использовать команды
CJNE A, #immediate, offset
CJNE A, direct, offset
CJNE Rn, #immediate, offset
получаем переход если не равны, при этом флаг С=1, если первый операнд меньше и С=0 в противном случае

[msn]

Я начинающий в ассемблере... Может кто поможет написать код цикла для сравнения двух однобайтных значений... то есть есть два числа(допустим #10h и #3Fh). Они сравниваются с другими значениями которые прокручиваются в цикле(и постоянно изменяются)... и если эти значение меньше 10h то выполняется вызов какойто подпрограммы и соответственно значение больше 3Fh то вызов другой подпрограммы.... (вообщем как в ассемблере зделать знаки <>)

Код

MOV      A,Rx               ; Определили значение переменной цикла, A = VAR
CLR      C                  
SUBB     A,#0x10            ; A  = VAR – 0x10
JNC      LabelNext          ; Если VAR – 0x10 >= 0 :: VAR >= 0x10 то переходим на LabelNext
CALL     FunLoss            ; Если VAR – 0x10  < 0 :: VAR  < 0x10 то вызываем FunLoss            
JMP      LabelEnd

LabelNext:
MOV      A,Rx               ; Определили значение переменной цикла, A = VAR
SETB     C                  
SUBB     A,#0x3F            ; A  = VAR – 0x3f
JC       LabelMore          ; Если VAR – 0x3f <= 0 :: VAR <= 0x3f то переходим на LabelEnd
CALL     FunMore            ; Если VAR – 0x3f  > 0 :: VAR  > 0x3f то вызываем FunMore            

LabelEnd:

[Scorpline]

Код

MOV      A,Rx              ; Определили значение переменной цикла, A = VAR
CLR      C                  
SUBB     A,#0x10        ; A  = VAR – 0x10
JNC      LabelNext         ; Если VAR – 0x10 >= 0 :: VAR >= 0x10 то переходим на LabelNext
CALL     FunLoss        ; Если VAR – 0x10  < 0 :: VAR  < 0x10 то вызываем FunLoss            
JMP      LabelEnd

LabelNext:
MOV      A,Rx              ; Определили значение переменной цикла, A = VAR
SETB     C                  
SUBB     A,#0x3F        ; A  = VAR – 0x3f
JC       LabelMore         ; Если VAR – 0x3f <= 0 :: VAR <= 0x3f то переходим на LabelEnd
CALL     FunMore        ; Если VAR – 0x3f  > 0 :: VAR  > 0x3f то вызываем FunMore            

LabelEnd:

Спасибо... Это то что нужно!

[Палыч]

По-моему, всётаки лучше так

Код

;--- Если в Rx лежит проверяемый байт (VAR)
;--- Проверка VAR < 0x10
    CJNE  Rn, #10h, Lab1
Lab1:
    JNC   LabNext          
    CALL  FunLoss; Если  VAR  < 0x10 то вызываем FunLoss
    JMP    LabelEnd
LabelNext:
;--- Проверка VAR > 0x3F
    CJNE  Rn, #3Fh, Lab2
    JMP    LabelEnd
Lab2:
    JC    LabelEnd
    CALL  FunMore; Если VAR  > 0x3f то вызываем FunMore
LabelEnd:

Применение CJNE мне нравится тем, что при проверке не разрушается содержимое аккумулятора и регистров

Сообщение отредактировал Палыч - Oct 26 2007, 14:00

[msn]

CJNE - команда условного перехода производит сравнение содержимого аккумулятора с операндом (команда "cjne A, #const, label") или регистра с операндом (команда "cjne reg, operand, label") и реализует переход, если они не равны.
Т.е. у Вас получается:

;--- Если в Rx лежит проверяемый байт (VAR)
;--- Проверка VAR != 0x10
CJNE Rn, #10h, Lab1
JNC LabNext
Lab1:
CALL FunLoss; Если VAR != 0x10 то вызываем FunLoss
JMP LabelEnd
LabelNext:
;--- Проверка VAR != 0x3F
CJNE Rn, #3Fh, Lab2
JMP LabelEnd
Lab2:
JC LabelEnd
CALL FunMore; Если VAR != 0x3f то вызываем FunMore
LabelEnd:

Происходит сравнения не равно 0x10 и не равно 0x3f, а не меньше 0x10 и не больше 0x3f.

[Палыч]

CJNE - команда условного перехода производит сравнение содержимого аккумулятора с операндом (команда "cjne A, #const, label") или регистра с операндом (команда "cjne reg, operand, label") и реализует переход, если они не равны.
Происходит сравнения не равно 0x10 и не равно 0x3f, а не меньше 0x10 и не больше 0x3f.

Я выше писал

для сравнения байта с заранее известной константой лучше всего использовать команды... получаем переход если не равны, при этом флаг С=1, если первый операнд меньше и С=0 в противном случае

т.е. команда CJNE действительно производит сравнение двух операндов и при этом выставляет флаг С, который можно использовать в последующих командах, а переход, который осуществляет CJNE в некоторых случаех сравнения не нужен вовсе (ставим переход на следующую команду). Код господин msn поправил (перенес метку, убрал условный переход) зря: они - часть той фишки, что позволяет использовать CJNE при любом сравнении (не только равно-неравно).

[msn]

Я выше писал
т.е. команда CJNE действительно производит сравнение двух операндов и при этом выставляет флаг С, который можно использовать в последующих командах, а переход, который осуществляет CJNE в некоторых случаех сравнения не нужен вовсе (ставим переход на следующую команду). Код господин msn поправил (перенес метку, убрал условный переход) зря: они - часть той фишки, что позволяет использовать CJNE при любом сравнении (не только равно-неравно).

Спасибо.
Уже лет 10 на 51 пишу, а про то что CJNE меняет С не знал
Ваш вариант действительно оптимальнее

[Scorpline]

...и еще маленький вопросик. А если сравнивать уже 2 байта, то намного ли усложняется код?
Дело просто в том что мне надо сравнивать код с ADC, а он у меня 12 разрядный (adc0h,adc0l)....
...познаю *.ASM

[Палыч]

...и еще маленький вопросик. А если сравнивать уже 2 байта, то намного ли усложняется код?

Вот так будет для сравнения двухбайтных величин с константой

Код

;--- Если в R0, R1 лежит проверяемая величина (Var: R0-HiVar, R1-LoVar)
;--- Проверка Var < Const1 (HiConst1, LoConst1)
    CJNE  R0, #HiConst1, Lab1
    CJNE  R1, #LoConst1, Lab1
Lab1:
    JNC   LabNext          
    CALL  FunLoss; Если  VAR  < Const1 то вызываем FunLoss
    JMP   LabelEnd
LabelNext:
;--- Проверка Var > Const2
    CJNE  R0, #HiConst2, Lab2
    CJNE  R1, #LoConst2, Lab2
    JMP   LabelEnd
Lab2:
    JC    LabelEnd
    CALL  FunMore; Если Var  > Const2 то вызываем FunMore
LabelEnd:

Сообщение отредактировал Палыч - Nov 2 2007, 10:23

[msn]

...и еще маленький вопросик. А если сравнивать уже 2 байта, то намного ли усложняется код?
Дело просто в том что мне надо сравнивать код с ADC, а он у меня 12 разрядный (adc0h,adc0l)....
...познаю *.ASM

Кстати у F005 есть программируемый детектор диапазона АЦП, который устанавливает флаг ADWINT (только устанавливается в 1, сбрасывать нужно вручную) если значение ADC за или в пределах заданного ADC0GT / ADC0LT (16 бит) диапазона. Т.е. все сравнения выполняются автоматически после получения новых данных ADC.

[Scorpline]

Кстати у F005 есть программируемый детектор диапазона АЦП, который устанавливает флаг ADWINT (только устанавливается в 1, сбрасывать нужно вручную) если значение ADC за или в пределах заданного ADC0GT / ADC0LT (16 бит) диапазона. Т.е. все сравнения выполняются автоматически после получения новых данных ADC.

Да.. но ADWINT устанавливается в "1" в любом случае, если код с ADC вышел за границы "цифрового окна". А мне надо что бы выполнялись разные действия если код выше или ниже окна сравнения(...ну и соответственно сравнивать 2 байта... или как то можно это реализавать с ADWINT? ...правда лучьше без него.

[msn]

Да.. но ADWINT устанавливается в "1" в любом случае, если код с ADC вышел за границы "цифрового окна". А мне надо что бы выполнялись разные действия если код выше или ниже окна сравнения(...ну и соответственно сравнивать 2 байта... или как то можно это реализавать с ADWINT? ...правда лучьше без него.

Если Вы знаете что код за пределами окна, то вам нужно только 1 и скорее всего однобайтовое сравнения выше или ниже окна.

[msn]

Да.. но ADWINT устанавливается в "1" в любом случае, если код с ADC вышел за границы "цифрового окна". А мне надо что бы выполнялись разные действия если код выше или ниже окна сравнения(...ну и соответственно сравнивать 2 байта... или как то можно это реализавать с ADWINT? ...правда лучьше без него.

Если Вы знаете что код за пределами окна, то вам нужно только 1 и скорее всего однобайтовое сравнения выше или ниже окна.