ad

来自「数模转换」· 代码 · 共 57 行

     ORG 0000H
     AJMP MAIN
     ORG 0013H
     AJMP SERVE
MAIN:SETB IT1
     SETB EA
     SETB EX1
     MOV DPTR,#7FF8H
     MOVX @DPTR,A 
     SJMP DIS
     MOVX A,@DPTR
     MOV 36H,A
     DA A
     MOV B,#64H 
     DIV AB
     MOV 33H,A
     MOV A,B
     MOV B,#OAH
     DIV AB
     MOV 34H,A
     MOV 35H,B
     CLR A
     MOV 30H
     MOV 31H
     MOV 32H
     RETI
DIS:MOV  R0,#35H
    MOV  R2,#20H
    MOV  A,R2
LP0:MOV DPTR,#0FF7DH
    MOVX @DPTR,A
    MOV DPTR,#0FF7EH
    MOV A,@R0
    ADD  A,#0DH
    MOVC  A,@A+PC
    MOVX @DPTR,A
    ACALL  DIMS
    MOV  A,R2
    JB  ACC.0,DIS
    RR  A
    MOV   R2,A
    DEC  R0
    AJMP  LP0
LP1: RET
TABL: DB  0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
DIMS:MOV R7,#02H
DL:  MOV R6,#0FFH
DL1: DJNZ  R6,DL1
     DJNZ R7,DL
     RET
     END