AT89C51制作的自动计数剪线系统

ORG 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