程序在下面
源
程序:
单路采集程序:
MOV DPTR,#0F8FFH
MOV R0,#00H ;将存储器的首地址存在R0,R1两个寄存器中
MOV R1,#00H
MOV R2,#200D ;设置循环
MOV R3,#4
MOV R4,#8D
MAIN:
CLR P1.1 ;选中ADC0809
PUSH DPL ;DPTR入栈
PUSH DPH
MOVX @DPTR,A ;启动AD转换
ACALL DELAY ;延时5ms 保证采集数据频率为200HZ
MOVX A,@DPTR ;读数据
SETB P1.1 ;选中存储器
MOV DPL,R0 ;将存储器的地址给DPTR
MOV DPH,R1
MOVX @DPTR,A ;存数据
INC DPTR ;指向下一存储单元
MOV R0,DPL ;将该单元地址重新存入寄存器中
MOV R1,DPH
POP DPH ;DPTR出栈
POP DPL
DJNZ R2,MAIN
DJNZ R3,MAIN
DJNZ R4,MAIN
SJMP $
DELAY: ;延时程序 延时5ms
MOV R5,#100D
MOV R6,#24D
LA:DJNZ R5,$
DJNZ R6,LA
RET
END
循环采集程序:
MOV 30H,#00H ;将八块存储器的首地址分别存在30-3F共16个内部存储单元
MOV 31H,#00H
MOV 32H,#00H
MOV 33H,#20H
MOV 30H,#00H ;将八块存储器的首地址分别存在30-3F共16个内部存储单元
MOV 31H,#00H
MOV 32H,#00H
MOV 33H,#20H
MOV 34H,#00H
MOV 35H,#40H
MOV 36H,#00H
MOV 37H,#60H
MOV 38H,#00H
MOV 39H,#80H
MOV 3AH,#00H
MOV 3BH,#0A0H
MOV 3CH,#00H
MOV 3DH,#0C0H
MOV 3EH,#00H
MOV 3FH,#0E0H
MOV R2,#200D ;设置外循环200*40共8000次
MOV R3,#40D
MAIN: MOV DPTR,#0F8FFH ;0通道的地址
MOV R0,#30H ;R0,R1作为存储器地址的中间变量
MOV R1,#31H
MOV R4,#8 ;设置内循环
LOOP: CLR P1.1 ;选中ADC0809
PUSH DPL ;DPTR入栈
PUSH DPH
MOVX @DPTR,A ;输入一个数启动AD转换
ACALL DELAY ;等待延时以达到每秒采集200个数据
MOVX A,@DPTR ;读数据
SETB P1.1 ;选中存储器
MOV DPL,@R0 ;将存储器的地址给DPTR
MOV DPH,@R1
MOVX @DPTR,A ;存数据
INC DPTR ;指向下一存储单元
MOV @R0,DPL ;将该单元地址重新存入内部数据存储单元
MOV @R1,DPH
INC R0 ;指向下一块存储器的地址
INC R0
INC R1
INC R1
POP DPH ;DPTR出栈
POP DPL
INC DPH ;指向下一通道地址
DJNZ R4,LOOP ;内循环
DJNZ R2,MAIN ;外循环
DJNZ R3,MAIN
SJMP $
DELAY: ;延时程序 延时600us
MOV R5,#100
MOV R6,#3
LA:DJNZ R5,$
DJNZ R6,LA
RET
END
基于单片机的万年历汇编语言程序
时间:2011-03-27 22:19:52 来源: 作者:
;真正的万年历: 84 bytes 的 51 ASM
;==SUB_WNL=== 万年历 ==* Deng Miao * 2004-06-01 ***** GuangZhou ******
SJ DATA 30H ; 世纪 BCD 00 TO 99
NH DATA 31H ; 年号 BCD 00 TO 99 0000 TO 9999 年
YF DATA 32H ; 月份 BCD 01 TO 12
org 000h
MOV SP, #40H
MOV SJ, #21H ;2004-05
MOV NH, #01H
MOV YF, #4H
ACALL SUB_WNL
SJMP $
;===============SUB_WNL===================
; 入口:
; SJ DATA 30H ; 世纪 BCD 00 TO 99
; NH DATA 31H ; 年号 BCD 00 TO 99 0000 TO 9999 年
; YF DATA 32H ; 月份 BCD 01 TO 12
; 出口
; ACC -- 本月天数 BCD 28 to 31
; B -- 本月1日的星期数 1 to 6 == 星期1 to 星期6
; 0 -- 星期日
; 使用: ACC, B, R5, R6
; STACK: 3 bytes (不包括调用)
ORG 50H
SUB_WNL:
PUSH PSW
MOV A, SJ
ACALL BCD2BIN_MOD4
; x 400年: (大周期)
; =146097天 = 7 * 20871 + 0 天