;閃爍顯示等待鍵入子程序

;功能：R1指向閃爍位地址，等待鍵入，并返回鍵值

;占用：A，B，R0，R5

;入口：R1出口：A

ORG0150H

CURSOR:MOVR0,#3FH;R0指向顯示緩沖區(qū)

CUR_0:MOVB,@R1;R1指向閃爍位地址

CUR_1:MOV@R1,B

JNCCUR_3

MOVA,R5

JNBACC.4,CUR_4;閃爍計數(shù)到否

JNBACC.5,CUR_5

MOVA,R1

XRLA,R0

JNZCUR_2

MOV@R1,A

SJMPCUR_4

CUR_2:CJNE@R1,#16,CUR_3;當前位是否為數(shù)字

CUR_3:JNCCUR_4

MOV@R1,#10H;顯示空格

CUR_4:ACALLDISP_0

ACALLT_KB

JNZCUR_5

INCR5;閃爍計數(shù)

SJMPCUR_1

CUR_5:ACALLKEY_LD

JZCUR_1;無鍵,繼續(xù)

MOV@R1,B;恢復(fù)閃爍處數(shù)值

ACALLKB_VUL;取鍵值

RET