;=======================================================================
.CR 8048
.TF KUBIK.BIN,BIN
.LI on
;-----------------------------------------------------------------------
DIS TCNTI
MOV A,#$80
OUTL P1,A
START
MOV A,#9
LOOP
JNT1 DONE
DEC A
JZ START
JMP LOOP
DONE
ADD A,#PATTERN-1
MOVP A,@A
OUTL P1,A
DEAD
JMP DEAD
;=======================================================================
PATTERN .DB $06 ;1
.DB $5B ;2
.DB $4F ;3
.DB $66 ;4
.DB $6D ;5
.DB $7D ;6
.DB $07 ;7
.DB $7F ;8
.DB $6F ;9
;=======================================================================
Ассемблер, дишефрация 2-10 кода
Задача.
Сложить программу дишефрации 2-10 кода в код руководства 7 сегментным индыкатором.
помогите пожалуйста решить програмно эту задачу.
Сложить программу дишефрации 2-10 кода в код руководства 7 сегментным индыкатором.
помогите пожалуйста решить програмно эту задачу.
Помогаю. С удовольствием. Чем вам помочь? Только не говорите "сделай за меня".
мы просто учили паскаль а а это нет а преподователся мало это волнует... я вобще без понятия что тут надо делать...:confused::(
я вот нашол что то в инете посотрите и подскажите то или не то...
; ax - неупакованное число
cmp ax,9
ja er ;
je m9
cmp ax,8
je m8
cmp ax,7
je m7
cmp ax,6
je m6
cmp ax,5
je m5
cmp ax,4
je m4
cmp ax,3
je m3
cmp ax,2
je m2
cmp ax,1
je m1
or dx,01111110b
jmp exit
m1:
or dx,00110000b
jmp exit
m2:
or dx,01101101b
jmp exit
m3:
or dx,01111001b
jmp exit
m4:
or dx,00110011b
jmp exit
m5:
or dx,01011011b
jmp exit
m6:
or dx,01011111b
jmp exit
m7:
or dx,01110000b
jmp exit
m8:
or dx,01111111b
jmp exit
m9:
or dx,01111011b
exit:
; ax - неупакованное число
cmp ax,9
ja er ;
je m9
cmp ax,8
je m8
cmp ax,7
je m7
cmp ax,6
je m6
cmp ax,5
je m5
cmp ax,4
je m4
cmp ax,3
je m3
cmp ax,2
je m2
cmp ax,1
je m1
or dx,01111110b
jmp exit
m1:
or dx,00110000b
jmp exit
m2:
or dx,01101101b
jmp exit
m3:
or dx,01111001b
jmp exit
m4:
or dx,00110011b
jmp exit
m5:
or dx,01011011b
jmp exit
m6:
or dx,01011111b
jmp exit
m7:
or dx,01110000b
jmp exit
m8:
or dx,01111111b
jmp exit
m9:
or dx,01111011b
exit:
проще создать таблицу соответствующих масок и воспользоваться командой xlat.
например, пусть биты соответствуют сегметам индикатора так: abcdefgh ("а" сверху)
значит, для 0 будет 11111100b, для 1 - 01100000b - и так далее
например, пусть биты соответствуют сегметам индикатора так: abcdefgh ("а" сверху)
значит, для 0 будет 11111100b, для 1 - 01100000b - и так далее
пациенту это не поможет )
не указан процессор и как соединён с ним индикатор . а без этого придумывать код - всё равно что гадать на кофейной гуще .
не указан процессор и как соединён с ним индикатор . а без этого придумывать код - всё равно что гадать на кофейной гуще .
полагаю, что человеку трудно изъясняться по-русски, поэтому можно отнестись с пониманием. хотя, конечно, без диалога помочь трудно.
-----------------------------------
страница
-- это программа для микроэвм 8039 "электронный кубик". здесь PATTERN - это и есть набор масок
-----------------------------------
страница
Код:
-- это программа для микроэвм 8039 "электронный кубик". здесь PATTERN - это и есть набор масок