智能实验视频 智能实验.docVIP

智能实验视频 智能实验 导读：就爱阅读网友为您分享以下“智能实验”资讯，希望对您有所帮助，感谢您对92的支持! sy1 ORG 0000H MAIN: MOV R5,#00H ;存 START: MOV R2,#00H ;列 MOV R3,#00H ;行 ACALL KEXAM ;有无按下 ACALL DISPLAY JZ KEND ACALL D10MS ACALL KEXAM JZ KEND MOV R4,#0DFH KEY1: MOV DPTR,#8002H MOV A,R4 MOVX @DPTR,A MOV DPTR,#8001H MOVX A,@DPTR ;读行 CPL A ANL A,#0FH JNZ KEY2 ;有求行 MOV A,R2 ADD A,#04H MOV R2,A MOV A,R4 RR A MOV R4,A JB ACC.1,KEY1 AJMP KEND KEY2: CPL A KEY3: RRC A JNC KEY4 ;未找到 INC R3 ;行加1 AJMP KEY3 KEY4: ACALL D10MS ACALL KEXAM JNZ KEY4 MOV A,R2 ADD A,R3 MOV R5,A KEND: AJMP START KEXAM: MOV DPTR,#8002H MOV A,#00H MOVX @DPTR,A MOV DPTR,#8001H MOVX A,@DPTR CPL A ANL A,#0FH RET DISPLAY:MOV DPTR,#TAB MOV A,R5 MOVC A,@A+DPTR MOV DPTR,#8004H MOVX @DPTR,A MOV DPTR,#8002H MOV A,#20H MOVX @DPTR,A RET D10MS: MOV R6,#14H D0: MOV R7,#0FFH DJNZ R7,$ DJNZ R6,D0 RET TAB: DB 3FH 06H 66H 07H 71H 5BH 6DH 7FH 79H 4FH 7DH 6FH 5EH 39H 7CH 77H sy2 ORG 0000H LJMP MAIN ORG 0050H BUFF EQU 30H ADC EQU 31H FLAG bit 00H ;进制标准,时为16进制 MAIN:CLR FLAG AJ: LCALL KEYPR LOP: MOV R0,#120 LCALL KEXAM JNZ AJ MOV A,BUFF CJNE A,#13,CLL1 ;按键0为显示IN0 MOV DPTR,#9000H LCALL STRADC MOV B,#0 ;B存通道数 LCALL DISPLAY LJMP LOP CLL1:CJNE A,#9,CLL2 ;按键1 MOV DPTR,#9001H ;0809地址 LCALL STRADC MOV B,#1 ;B存通道数 LCALL DISPLAY LJMP LOP CLL2:MOV DPTR,#9000H LCALL STRADC MOV B,#0 ;B存通道数 L2: LCALL DISPLAY LCALL KEXAM JNZ AJ MOV DPTR,#9000H LCALL STRADC MOV B,#0 DJNZ R0,L2 MOV R0,#120 MOV DPTR,#9001H LCALL STRADC MOV B,#1 ;B存通道数 L3: LCALL DISPLAY LCALL KEXAM JNZ AJ MOV DPTR,#9001H LCALL STRADC MOV B,#1 DJNZ R0,L3 LJMP LOP STRADC: PUSH