PIC单片机将2个16进制数转换为5位十进制数并显示 作者: 时间:2016-11-29 来源:网络 加入技术交流群 扫码加入和技术大咖面对面交流海量资料库查询 收藏 ;;;**************************************************************;;; 十进制数调整;;;************************************************************** DA1 MOVWF 60H;将W里的数保存到60H里MOVLW B00001111;ANDWF 60H,0;将60H的数与00001111去除高4位MOVWF 62H;将去除高位后的数保存到62HMOVLW 0AH;SUBWF 62H,0;去除高位的数减0AHBTFSS STATUS,DC;判断是否比0AH大GOTO DA2 ;否则跳转ADDLW B10000;比0AH大则进位MOVWF 62H;高4位加1DA2 MOVLW B11110000;ANDWF 60H,1;将60H的数与11110000去除低4位MOVLW 0A0H;SUBWF 60H,0;高4位的数减0A0HBTFSS STATUS,C;判断是否比0A0H大GOTO DA3;否ADDWF 62H,1;是则将差加上低位BSF STATUS,C;是则置位GOTO DA4;DA3 MOVFW 60H;ADDWF 62H,1;否则将高4位加上低4位MOVFW 62H;ANDLW B11110000;SUBLW 0A0H ;加后判断是否大于或等于0A0HBCF STATUS,C;BTFSS STATUS,Z;GOTO DA4;否则退出MOVLW B00001111;是ANDWF 62H,1;则去掉高4位并进位BSF STATUS,C;置进位标志 DA4 MOVFW 62H;RETURN;;**************************************************************; 定时中断数码管显示程序;**************************************************************ZD01 BTFSS INTCON,T0IF;判断是否产生定时中断GOTO ZD03;否跳出是继续执行MOVWF W_TEMP;W备份到W_TEMP中SWAPF STATUS,0;STATUS半字交换后送WCLRF STATUS;选择体0为当前体备份MOVWF STATUS_TEMP;将原来的STATUS送体0上的MOVF PCLATH,0;PCLATH送W MOVWF PCLATH_TEMP;W送备份寄存器中CLRF PCLATH ;设置为0页BCF INTCON,T0IFBSF STATUS,RP0;体1BCF STATUS,RP1;MOVLW 0;MOVWF TRISB;RB口设为输出口MOVWF TRISD;RD口设为输出口BCF STATUS,RP0;体0BCF STATUS,RP1;MOVLW 0FFH;MOVWF PORTB;RB口输出高电平MOVLW 0MOVWF PORTD;RD口输出低电平起清屏作用MOVFW INDF;间接寻址显示数据 CALL Q1;查数据表MOVWF PORTB;显示断码输出到RB口INCF FSR,1;间接寻址地址加1MOVFW 41H ;位码MOVWF PORTD;位码输出到RD口RLF 41H,0;处理CRLF 41H,1;左移位码DECFSZ 40H,1;判断是否显示完4位GOTO ZD02;否则继续显示MOVLW 4;显示位数MOVWF 40H;MOVLW B00000001;位码MOVWF 41H;MOVLW 5AH;MOVWF FSR ;间接寻址ZD02 MOVLW 0FFH;MOVFW TMR0;重装初值; 恢复现场CLRF STATUS;恢复到体0MOVF PCLATH_TEMP,0;开始恢复数据 MOVWF PCLATH;恢复PCLATHSWAPF STATUS_TEMP,0MOVWF STATUS;恢复STATUSSWAPF W_TEMP,1;半字交换后放回SWAPF W_TEMP,0;再半字交换后送WZD03 RETFIE ;中断返回M001 MOVLW 4MOVWF 30HM002 MOVLW 248MOVWF 31HM003 MOVLW 250MOVWF 32HDECFSZ 32HGOTO $-1DECFSZ 31HGOTO M003DECFSZ 30HGOTO M002RETURN;********************************************; 数据表;******************************************** Q1 ADDWF PCL,1 RETLW 00C0H ;0RETLW 00F9H ;1RETLW 00A4H ;2RETLW 00B0H ;3RETLW 0099H ;4RETLW 0092H ;5RETLW 0082H ;6RETLW 00F8H ;7RETLW 0080H ;8RETLW 0090H ;9RETLW 0088H ;ARETLW 0083H ;BRETLW 00C6H ;CRETLW 00A1H ;DRETLW 0086H ;ERETLW 008EH ;FEND 上一页 1 2 下一页
评论