实验7 D/A转换实验

来源：互联网发布：知敬畏心得体会编辑：程序博客网时间：2024/06/08 08:42
OUTBIT EQU 0E101H;CLK164 EQU 0E102HDAT164 EQU 0E102HIN EQU 0E103HLEDBUF EQU 40HORG 0000HMOV SP,#60HMOV DPTR ,#0E100HMOV A,#30HMOVX @DPTR,AMOV 40H,#00HMOV 41H,#08HMOV 42H,#03HMOV 43H,#02HLOOP1:MOV R5,#00HLOOP2: MOV DPTR,#0B000HMOV A,R5MOVX @DPTR,AMOV R0,#45HMOV 45H,AACALL PTDSMOV R6,#15HDIR10:ACALL DISPLAYDJNZ R6,DIR10INC R5CJNE R5,#00H,LOOP2LOOP3:MOV DPTR,#0B000HDEC R5MOV A,R5MOVX @DPTR,AMOV R0,#45HACALL PTDSMOV R6,#15HDIR11:ACALL DISPLAYDJNZ R6,DIR11CJNE R5,#00H,LOOP3SJMP LOOP1DELAY:MOV R7,#01MOV R3,#01DELAYLOOP:DJNZ R3,DELAYLOOPDJNZ R6,DELAYLOOPRETDISPLAY:SETB 0D3HMOV R0,#LEDBUFMOV R1,#6MOV R2,#00100000BLOOP:MOV DPTR,#OUTBITMOV A,#00HMOVX @DPTR,AMOV A,@R0MOV DPTR,#LEDMAPMOVC A,@A+DPTRMOV B,#8DLP:RLC AMOV R3,AMOV ACC.0,CANL A,#0FDHMOV DPTR,#DAT164MOVX @DPTR,AMOV DPTR,#CLK164ORL A,#03HMOVX @DPTR,AANL A,#0FDHMOVX @DPTR,AMOV A,R3DJNZ B,DLPMOV DPTR,#OUTBITMOV A,R2MOVX @DPTR,AMOV R6,#01CALL DELAYMOV A,R2RR AMOV R2,AINC R0DJNZ R1,LOOPMOV DPTR,#OUTBITMOV A,#0MOVX @DPTR,ACLR 0D3HRETLEDMAP:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07HDB 7FH,6FH,77H,7CH,39H,5EH,79H,71HPTDS:MOV R1,AACALL PTDS1MOV A,R1SWAP APTDS1:ANL A,#0FHMOV @R0,ADEC R0RETDELAY1:MOV R7,#03HSJMP DELAYLOOPEND
0 0