我的程序.txt

来自「一宽汉字显示程序」· 文本 代码 · 共 56 行

BUSY QUE *
REQ QUE *
RESET QUE *
ORG 000H
LJMP 100H
ORG 100H
MOV SP #60H
LCR REQ
SETB BUSY
MOV A,#0F4H
ACALL SUB1
START: MOV DPTR, #TABLE1
MOV R1,#00H
MOV A,R1
MOV A, @DPTR+A
INC R1
CJNE A, #00H ,A1
SJMP START
A1: MOV R2,A
MOV A,R1
MOV A, @DPTR+A
INC R1
CJNE A,#00H,A2
SJMP START
A2: MOV R3,A
LCALL WRITE 
END
WRITE: MOV A,#0F0H
ACALL SUB1
MOV A, #02H
ACALL SUB1
MOV A, #00H
ACALL SUB1
MOV A ,R2
ACALL SUB1
MOV A, R3
ACALL SUB1
RET

SUB1: JB BUSY,SUB1
MOV P1,A
NOP
SETB REQ
HE3: JNB BUSY,HE3
CLR REQ
RET
TABLE1:/****驾驶员证号*****/
DB:OXBC,OXDD,OXCA,OXBB,OXD4,OXB1,OXD6,OXA4,OXBA,OXC5,OXA3,OXBA,OX00

TABLE2:/****速度***/
DB:OXCB,OXD9,OXB6,OXC8,OXA3,OXBA,OX00

TABLE3:/****时间*****/
DB:OXCA,OXB1,OXBC,OXE4,OXA3,OXBA,OX00