zhangxiaojing.asm

这是我编写的一部分

ORG 0000
JMP START
ORG 30H
JMP XIANSHI
START:
MOV  R6,#4
MOV  p1,#0FFH
MOV R7,#BUF
MOV A,p1
CJNE A,0FFH,W1
AJMP START
W1:
MOV R7,A
INC R7
DJNZ R6,START


BUF EQU 50H
XIANSHI:
       mov  A,#0FFH
       mov p0,A
      mov R2,#4
      MOV R0,#BUF
      mov R1,40H
      mov DPTR,#TABLE
B1:    mov A,R1
       movC A,@A+DPTR
       mov @R0,A
       INC R1
DJNZ  R2,B1
LOOP:
     CALL SCAN1
     JMP  LOOP
DELAY3:
MOV R6,#50
D1: MOV R7,#100
    DJNZ R7,$
    DJNZ R6,D1
    DJNZ R5,DELAY3
    RET
DELAY1:  MOV R6,#1
   E1:      MOV R7,#100
           DJNZ R7,$
           DJNZ R6,E1
           DJNZ R5,DELAY1
           RET

TABLE:DB 3FH 06H 58H 4FH 60H
      DB 60H 7DH 07H 7FH 67H
      DB 77H 7CH 58H 5EH 79H
      DB 71H
SCAN1:
    mov R0,#BUF
    mov R2,#4
    mov A,#0FEH
S1:
   PUSH  A
   mov A,@R0
   mov p0,A
   pop A
   mov p2,A
   MOV R5,#20
   CALL DELAY1
  RL A
  INC R0
  DJNZ R2,S1
  RET
 END