可变占空比方波发生器

ORG 0000H AJMP MAIN ORG 000BH LJMP FANGBO ORG 0030H MAIN MOV DPTR TAB2 MOV TMOD 01H MOV SP 70H MOV 30H 06H 存放 X 的段码 初始值为 1 的段码 MOV 31H 3FH 0 的段码 MOV 32H 06H 1 的段码 10 X MOV 60H 01H 存键码 MOV 34H 01H X 的副本 避免改变原值 MOV 35H 09H 存放 10 X 低电平定时中断次数 MOV 38H 00H 标志位 要先 设置 才能输入 X SETB P3 7 初始输出电平 模块一 4 4 键盘扫描 消抖 线转法 存键值 转键处理 TEST LCALL APPEAR MOV P2 0FH is any key press MOV A P2 ANL A 0FH CJNE A 0FH KEYPRSS SJMP TEST KEYPRSS LCALL DELAY10MS MOV P2 0FH REAL press MOV A P2 ANL A 0FH CJNE A 0FH KEY SCAN SJMP TEST KEY SCAN MOV61H 16 按下键行值 故意置为此值 MOV62H 16 按下键列值 故意置为此值 键号 行值 列值 正常时键号 0 15 异常时 R4 或 R5 不会刷新 得到的键号值就会 大于等于 16 此时按异常处理 列线 P2 7 P2 4 全输出 0 读输入线 P2 3 P2 0 MOVP2 0FH ROW0 JBP2 0 ROW1 MOV61H 0 按下键在 P2 0 行上 行值 0 LJMPCOL SCAN ROW1 JBP2 1 ROW2 MOV61H 4 按下键在 P2 1 行上 行值 4 LJMPCOL SCAN ROW2 JBP2 2 ROW3 MOV61H 8 按下键在 P2 2 行上 行值 8 LJMPCOL SCAN ROW3 JBP2 3 COL SCAN MOV61H 12 按下键在 P2 3 行上 行值 12 行线 P2 3 P2 0 全输出 0 读输入线 P2 7 P2 4 COL SCAN MOVP2 0F0H COL0 JBP2 4 COL1 MOV62H 0 按下键在 P2 4 列上 列值 0 LJMPPOPK COL1 JBP2 5 COL2 MOV62H 1 按下键在 P2 5 列上 列值 1 LJMPPOPK COL2 JBP2 6 COL3 MOV62H 2 按下键在 P2 6 列上 列值 2 LJMPPOPK COL3 JBP2 7 CAL KEY NO MOV62H 3 按下键在 P2 7 列上 列值 3 POPK MOV A P2 XRL A 0F0H JNZ POPK LCALL DELAY10MS 计算键号 行值 列值 CAL KEY NO MOVA 61H ADDA 62H MOV60H A 键号 行值 列值 放入 60H 单元 LJMP KEYFUN DELAY10MS DL10 MOV R7 0AH DL MOV R6 0FFH DL6 DJNZ R6 DL6 DJNZ R7 DL MOVP2 0FH 恢复列线 P2 7 P2 4 全输出 0 状态 RET 键处理程序 KEYFUN MOV A 60H CJNE A 0AH SHEZHI MOV 38H 01H 置标志位 LJMP TEST SHEZHI MOV A 38H CJNE A 00H DISP LJMP TEST 标志位为零 输入无效 要先设置 DISP MOV A 60H CJNE A 0BH GO 按下 产生方波 键 开 T0 50MS 中断 高电平中断 X 次 低电平中断 10 X 次 MOV TH0 3CH MOV TL0 0B0H SETB ET0 SETB EA SETB TR0 MOV 38H 00H MOV 36H 34H 36h 37h 存放两个中断次数的副本 避免多次设置时 未按下产生方波键就改变波形 MOV 37H 35H lJMP TEST GO CLR C 避免带借位减法出错 MOV 34H 60H MOV A 10 SUBB A 34H MOV 35H A MOV R2 34H 高电平中断次数 MOV R1 35H 低电平中断次数 MOV A 34H MOVC A A DPTR MOV 30H A LJMP TEST 模块二 动态显示数码管程序 APPEAR DIS DIGITAL MOVR0 30H MOVR3 3 显示缓冲单元计数 共 3 个数码管 MOVB 0FEH 数码管位选值初值 共阴管 FE 对应最右边位 DIS LOOP MOVA B MOVP3 A P3 口为位选线 8 根对应 8 个数码管 P30 接最右边位 初 次进此处时则选中最右边位数码管亮 RL A 准备好下 1 位数码管的位选值 MOVB A 下 1 位数码管的位选值放入 B 根据显示缓冲内容 查表得段选码 送给 P2 口 段选线 MOVA R0 MOVP1 A LCALL DELAY2MS 位间延时 INCR0 DJNZR3 DIS LOOP RET DELAY2MS MOVR6 10 10 100 2 2ms 12M 晶振 DLY2 LOOP MOVR7 100 DJNZR7 DJNZR6 DLY2 LOOP RET 产生方波 FANGBO PUSH PSW PUSH Acc MOV A R2 JZ NEXT DJNZ R2 RETURN NEXT CLR P0 7 DJNZ R1 RETURN SETB P0 7 MOV R1 37H MOV R2 36H RET