DA和AD综合实验

ORG  0000H

LJMP  MAIN

ORG  0700H

  MAIN：

MOV  SP, #60H

；设置堆栈

MOV  DPTR, #0B000H

；8155初始化

MOV  A, #03H

；A、B口输出，C口输入

MOV X  @DPTR, A

MOV  A, #13H

；初始显示全灭

MOV  R0, 2AH

   MP0：

MOV  @R0, A

INC  R0

CJNE  R0, #30H, MP0

  D25：

LCALL  DISP

；调用显示

LCALL  KS1

；有无键按下？

JZ  MP1

；无键按下，转

LCALL  KEYP

；有键按下，调KEYP

  MP1：

MOV  A, 2AH

；(2A)(2B)输入至0832

SWAP  A

ADD  A, 2BH

MOV  DPTR, #C000H

指向0832

MOVX  @ DPTR, A

NOP

MOV  DPTR, #5000H

；启动A／D通道0

MOV X  @DPTR, A

MOV  R2, #20H

；延时

   DL：

DJNZ  R2, DL

WEND：

JB  P3.3, WEND

；等待A／D完成

MOVX  A, @DPTR

；A／D输出

PUSH  A

；送2E、2F

ANL  A, #0F0H

SWAP  A

MOV  2EH, A

　　POP  A

ANL  A，#0FH

MOV  2FH，A

LJMP  DIS

ORG  0740H

 KEYP：

LCALL  KEYA

；键号→A

CJNE  A, #0BH, KC1

；不是键号B，转

SETB  00H

；是键号B，设置标志

RET

  KC1：

JB  00H, KC3

；已按过B键，转

CJNE  A, #0A, KC2

；属单键输入

  KC2：

JNC  KC6

；若键号≥0A，转退出

SJMP  KC5

；单键输入0~9

  KC3：

CJNE  A, #06, KC4

；

  KC4：

JNC  KC6

；双键输入时,键号≥6，则退出

ADD  A, #0AH

；双键输入时键值修正

  KC5：

CPL  01H

；按键顺序标志位求反

JNB  01H, KC7

MOV  2AH, A

；键值送显示缓冲2AH

  KC6：

RET

  KC7：

MOV  2BH, A

；下一次按键的键值送2BH

RET