zlm943213:
这个是用74HC595显示4位数码官程序 SER BIT P1.7 ;计沮7 SRCLK BIT P1.5 ;壕5 RCLK BIT P1.6 ;簿6 ADDRESS_hEQU 00 ADDRESS_LEQU 107 jyw equ 70h ORG 0000H AJMP S0000_START ORG 0023H AJMP S1000_RS232S0000_START: lcall wang mov20h ,#100 MOV 7FH ,#00H MOV 7EH ,#00H MOV 7DH ,#00H MOV 7CH ,#00H mov 7bh ,#00h ACALL S2000_XIANSi ;陪ボ ACALL S1001_SETRS232 ;硄癟某砞﹚ S0000_loop: NOP NOP JMP S0000_loop;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S1000_RS232: ;硄癟 clr ea mov jyw ,#00h mov r1 ,#11 mov r0 ,#71hs1010: lcall rs232_js lcall rs232_jy mov @r0 ,a inc r0 djnz r1 ,s1010 lcall rs232_js subb a ,#61h cjne a ,jyw ,s2011 mov a ,75h cjne a ,#address_l ,rs232_out mov a ,77h cjne a ,#"a" ,s2011 mov 7ch ,78h mov 7dh ,79h mov 7eh ,7ah mov 7fh ,7bh lcall s2000_xiansi jmp rs232_outs2011: mov a ,75h cjne a ,#address_l ,rs232_out mov a ,77h cjne a ,#"b" ,rs232_out lcall wang rs232_out: lcall del lcall S1001_SETRS232 reti;-----------------------------------------------;-----------RS232钡Μ祘-----------------RS232_JS: JNB RI ,DEL_10MSRS232_JS1: MOV A ,SBUF CLR RI RETDEL_10MS: MOV R7 ,#255 ;┑10花 ,琌祘ぃ穦ń繷DEL_1S1: NOP NOP NOP NOP NOP NOP JB RI ,RS232_JS1 DJNZ R7 ,DEL_1S1 MOV A ,#88H CLR RI RET ;--------------RS232祇癳祘--------------------RS232_FS: PUSH A MOV SBUF ,A JNB TI ,RS232_DL_2MSRS232_JS5: CLR TI POP A NOP RETRS232_DL_2MS: ;┑2花 ,琌祘ぃ穦ń繷 MOV R7 ,#255RS232_DEL_2MS: NOP NOP NOP NOP NOP NOP JB TI ,RS232_JS5 DJNZ R7 ,RS232_DEL_2MS CLR TI POP A RET RS232_JY: CLR C PUSH A ADD A ,JYW ;钡Μ计(ASSKIS)埃26,緇计 MOV B ,#26 ;緇计+1矪钡Μ计(ASSKIS)埃26,緇计 DIV AB MOV A ,B ;程┮挡狦 + 61碞琌喷絏 MOV JYW ,A POP A RET;;;;;;;;;;;硄癟某砞﹚;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S1001_SETRS232: SETB EA SETB ES MOV TH1 ,#0FDH MOV TL1 ,#0FDH MOV TMOD ,#21H MOV SCON ,#0d0H CLR SM2 CLR RI CLR TI setb tr1 RET;;;;;;;;;;;陪ボ祘;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S2000_XIANSI: MOV R1 ,#7FH MOV R2 ,#04H MOV A ,7CH CJNE A ,#00H ,S2003 MOV 7CH ,#0AH MOV A ,7DH CJNE A ,#00H ,S2003 MOV 7DH ,#0AH MOV A ,7EH CJNE A ,#00H ,S2003 MOV 7EH ,#0AHS2003: AJMP S2001S2001: SETB SRCLK CLR RCLK CLR SER MOV A ,@R1 MOV DPTR ,#DTAB MOVC A ,@A+DPTR MOV R3 ,#08H CLR CS2002: CLR RCLK RRC A MOV SER ,C NOP NOP SETB RCLK DJNZ R3 ,S2002 DEC R1 DJNZ R2 ,S2001 CLR SRCLK SETB SRCLK RETDTAB: ;DB 0DFH,06H ,0BBH ,0AFH ,66H ,0ECH ,0FCH ,86H ,0FEH ,0EEH ,00H ; Λ褐暗 DB 0C0H,0F9H,0A4H ,0B0H ,99H ,92H ,82H ,0F8H,80H ,90H ,0FFH ;暗;---------代刚------------------------------------------------------------WANG: mov r0 ,#9 mov 7ch ,#01 mov 7dh ,#01 mov 7eh ,#01 mov 7fh ,#01 wang1: lcall s2000_xiansi inc 7ch inc 7dh inc 7eh inc 7fh lcall DEL1 lcall DEL1 lcall DEL1 lcall DEL1 djnz r0 ,wang1 mov 7ch ,#00 mov 7dh ,#00 mov 7eh ,#00 mov 7fh ,#00 lcall s2000_xiansi RETDEL: MOV 11H ,#255 MOV 10H ,#255DEL1: nop nop DJNZ 10H ,DEL1 DJNZ 11H ,DEL1 RET