原标题：基于AT89C51单片机的自动计数剪线系统制作方案

　　LinkedInORG 0000H

　　AJMP PLAY

　　ORG 001BH

　　AJMP JONG

　　PLAY: MOV P1, #0FFH: 程序初始化

　　MOV P2, #00H

　　MOV 70H, #00H

　　MOV 71H, #00H

　　MOV 72H, #00H

　　MOV 73H, #00H

　　MOV 74H, #00H

　　MOV 75H, #00H

　　MOV 76H, #00H

　　MOV 77H, #00H

　　MOV R1, #00H

　　MOV R2, #00H

　　MOV TMOD, #50H

　　MOV TL1, #0FFH

　　MOV TH1, #0FFH

　　SETB TR1

　　SETB ET1

　　SETB EA

　　;////////////////////////////////////////////////////////////////////////

　　MAIN: MOV SP, #80H;

　　ACALL S0; 调用运行子程序

　　ACALL S1; 调用停止子程序

　　ACALL S2; 调用个位数按键子程序

　　ACALL S3; 调用十位数按键子程序

　　ACALL S4; 调用百位数按键子程序

　　ACALL S5; 调用千位数按键子程序

　　ACALL ESJJ;调用显示延时子程序

　　AJMP MAIN; 返回主程序

　　;////////////////////////////////////////////////////////////////////////

　　S0: JB P1.0, S01; 运行按键子程序

　　SETB P2.0;如果按键1.0为0，则置位2.0

　　S01: RET

　　;///////////////////////////////////////////////////////////////////////

　　S1: JB P1.1, S11;停止按键子程序

　　CLR P2.0;如果按键1.1为0，则置位2.0

　　S11: RET

　　;//////////////////////////////////////////////////////////////////////

　　S2: JB P1.2, S23;个位数按键子程序

　　MOV A, 60H;

　　CJNE A, #09H, S21;个位数是否小于9，小于加1

　　MOV 60H, #00H;大于清0

　　AJMP S210;

　　S21: INC 60H;

　　S210: JB P1.6, S211;判断此数为长度数还是数量数

　　MOV 70H, 60H;数量数送到70H单元

　　AJMP S22;

　　S211: MOV 74H, 60H;

　　ACALL K11;长度数送到74H单元

　　S22: ACALL DL调用按键延时子程序

　　S23: RET

　　;/////////////////////////////////////////////////////////////////////

　　S3: JB P1.3, S33;十位按键子程序

　　MOV A, 61H;

　　CJNE A, #09H, S31;

　　MOV 61H, #00H;

　　AJMP S310;

　　S31: INC 61H;

　　S310: JB P1.6, S311;

　　MOV 71H, 61H;

　　AJMP S32;

　　S311: MOV 75H, 61H;

　　ACALL K11;

　　S32: ACALL DL

　　S33: RET

　　;////////////////////////////////////////////////////////////////////

　　S4: JB P1.4, S43;百位按键子程序

　　MOV A, 62H;

　　CJNE A, #09H, S41;

　　MOV 62H, #00H;

　　AJMP S410;

　　S41: INC 62H;

　　S410: JB P1.6, S411;

　　MOV 72H, 62H;

　　AJMP S42;

　　S411: MOV 76H, 62H;

　　ACALL K11;

　　S42: ACALL DL;

　　S43: RET

　　;////////////////////////////////////////////////////////////////////

　　S5: JB P1.5, S53;千位按键子程序

　　MOV A, 63H;

　　CJNE A, #09H, S51;

　　MOV 63H, #00H;

　　AJMP S510;

　　S51: INC 63H;

　　S510: JB P1.6, S511;

　　MOV 73H, 63H;

　　AJMP S52;

　　S511: MOV 77H, 63H;

　　ACALL K11;

　　S52: ACALL DL;

　　S53: RET

　　;////////////////////////////////////////////////////////////////////

　　长度数BCD转二进制码子程序

　　;转换数为77H(千位)76H(百位)75H(十位)74H(个位)

　　;结果存于67H(H)66H(L)

　　K11: MOV A, #38H;千位数转

　　MOV B, 77H;

　　MUL AB

　　MOV 67H, B;

　　MOV 66H, A;

　　MOV A, #03H;

　　MOV B, 77H;

　　MUL AB

　　ADD A, 67H;

　　MOV 67H, A;

　　;------------------------------

　　MOV A, #64H;百位数转

　　MOV B, 76H;

　　MUL AB

　　ADD A, 66H

　　MOV 66H, A;

　　MOV A, B;

　　MOV B, 77H;

　　ADDC A, 67H;

　　MOV 67H, A;

　　;------------------------------

　　MOV A, #0AH;十位数转

　　MOV B, 75H;

　　MUL AB

　　ADD A, 66H;

　　MOV 66H, A;

　　MOV A, B;

　　ADDC A, 67H;

　　MOV 67H, A;

　　;------------------------------

　　MOV A, 74H;个位数转

　　ADD A, 66H;

　　MOV 66H, A;

　　MOV A, #00H;

　　ADDC A, 67H;

　　MOV 67H, A;

　　RET

　　;////////////////////////////////////////////////////////////////////////////////////////////

　　;中断子程序

　　JONG: CLR P2.0;启动剪线开关

　　ACALL DL;

　　ACALL DL;

　　SETB P2.1;

　　;--------------------

　　MOV A, #0FFH;长度数送到计数子程序

　　CLR C;

　　SUBB A, 66H;

　　MOV TL1, A;

　　MOV A, #0FFH;

　　SUBB A, 67H;

　　MOV TH1, A;

　　;--------------------

　　ACALL DL;延时

　　ACALL DL;

　　ACALL DL;

　　ACALL DL;

　　CLR P2.1;关闭剪线开关

　　ACALL DL;

　　ACALL BCD0;数量减一子程序

　　RETI;

　　;////////////////////////////////////////////////////////////////////////////////////////////

　　;数量数减一子程序

　　;被减数为73H(千位)72H(百位)71H(十位)70H(个位)

　　BCD0: MOV A, 70H;

　　JZ BCD1;

　　DEC 70H;

　　AJMP BCD5;

　　;-------------------------------

　　BCD1: MOV A, 71H;

　　JZ BCD2;

　　DEC 71H;

　　MOV 70H, #09H;

　　AJMP BCD5;

　　;-------------------------------

　　BCD2: MOV A, 72H;

　　JZ BCD3;

　　DEC 72H;

　　MOV 71H, #09H;

　　MOV 70H, #09H;

　　AJMP BCD5;

　　;-------------------------------

　　BCD3: MOV A, 73H;

　　JZ BCD4;

　　DEC 73H;

　　MOV 72H, #09H;

　　MOV 71H, #09H;

　　MOV 70H, #09H;

　　AJMP BCD5;

　　;-------------------------------

　　BCD4: CLR P2.0

　　AJMP BCDQ;

　　;-------------------------------

　　BCD5: SETB P2.0

　　BCDQ: RET

　　;////////////////////////////////////////////////////////////////////////////////////////////

　　DL: MOV 68H, #20;按键延时子程序

　　DL1: ACALL ESJJ;

　　DEC 68H;

　　MOV A, 68H;

　　CJNE A, #00H, DL1;

　　RET

　　;////////////////////////////////////////////////////////////////////////////////////////////

　　ESJJ: JB P1.6, ESJJ1;显示子程序

　　MOV 60H, 70H;

　　MOV 61H, 71H;

　　MOV 62H, 72H;

　　MOV 63H, 73H;

　　AJMP ESJJ2

　　ESJJ1: MOV 60H, 74H;

　　MOV 61H, 75H;

　　MOV 62H, 76H;

　　MOV 63H, 77H;

　　ESJJ2: MOV A, 60H;

　　ADD A, #30H;

　　MOVC A, @A+PC;

　　CLR P2.3

　　MOV P0, A;

　　SETB P2.6;

　　ACALL DDY;

　　MOV A, 61H;

　　ADD A, #23H

　　MOVC A, @A+PC;

　　CLR P2.6;

　　MOV P0, A;

　　SETB P2.5;

　　ACALL DDY;

　　MOV A, 62H;

　　ADD A, #16H;

　　MOVC A, @A+PC;

　　CLR P2.5;

　　MOV P0, A;

　　SETB P2.4;

　　ACALL DDY;

　　MOV A, 63H;

　　ADD A, #09H;

　　MOVC A, @A+PC;

　　CLR P2.4;

　　MOV P0, A;

　　SETB P2.3;

　　ACALL DDY;

　　RET

　　BS: DB 01H;

　　DB 0E7H;

　　DB 0C8H;

　　DB 0C2H;

　　DB 0A6H;

　　DB 92H;

　　DB 90H;

　　DB 87H;

　　DB 80H;

　　DB 82H;

　　DDY: MOV R1, #20

　　DDY1: MOV R2, #80

　　DDY2: DJNZ R2, DDY2;

　　DJNZ R1, DDY1;

　　RET

　　END