2023-11-16 04:54来源:m.sf1369.com作者:宇宇
写那么长干嘛,p1口接数码管扫描。p0口接8段字符显示,已测试正常。
ORG 0000H
STAER: MOV DPTR,#K1
MOV 41H,#00H
MOV 42H,#00H
MOV R2,#0FFH
A2: ACALL A1;调用显示子程序
DJNZ R2,A2
MOV R2,#0FFH
INC 41H
MOV A,41H
CJNE A,#0AH,A2
MOV 41H,#00H
INC 42H
MOV A,42H
CJNE A,#0AH,A2
LJMP STAER;满100就清零重新开始
A1: MOV P0,#0FFH
MOV P1,#0FEH;取个位数的7段代码
MOV A,41H
MOVC A,@A+DPTR
MOV P0,A ;送出个位的7段代码
ACALL LOOP
MOV P0,#0FFH
MOV P1,#0FDH
MOV A,42H
MOVC A,@A+DPTR
ACALL LOOP
RET
LOOP: MOV R3,#100;1毫秒延时按12MHZ计算
D1: MOV R4,#10
D2: DJNZ R4,D2
DJNZ R3,D1
RET
K1: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
;实验板上的7段数码管0~9数字的共阴显示代码
END
注释比程序还麻烦,自己看了
;本程序通过编译,运行正确。
Data segment
SUM DW 0
Data Ends
Code segment
assume cs:Code,ds:Data
start: mov ax,Data
mov ds,ax
mov cx,99
Adding: test cx,1
jz Next
add sum,cx
Next: loop Adding
mov ax,4c00h
int 21h
Code Ends
end start
;输入:
;DS:SI<-串首地址
;CX<-串长
;输出:
;BX<-偶数数字符的个数
XOR BX,BX
COUNT:
LODSB
CMP AL,30
JNA NEXT
CMP AL,39
JNB NEXT
ROR AL
JC NEXT
INC BX
NEXT:
LOOP COUNT
RET
想知道提问都为什么要汇编
都没说应用在哪 怎么写汇编