汉字显示程序、.txt

滚动显示一行字 8*8的led板拼成16*16的

ORG 0000H
    AJMP MAIN
    ORG 0023H
    JMP SINT
MAIN:
     MOV SP,#50H
     MOV P1,#0F5H
     MOV TMOD,#20H
     MOV SCON,#58H
     MOV TL1,#0FDH
     MOV TH1,#0FDH
     MOV PCON,#00H
     SETB EA
     SETB ES
     SETB TR1
    MOV DPL,#00H
     MOV DPH,#00H
     call readtext
     jmp $
su:
     mv sbuf,A
     JNB TI,$
     CLR TI
     RET

     JMP su
     MOV P1,#00h
     MOV DPL,#12H
     MOV DPH,#34H
     MOV A,#00H
SINT:
     JNT RI,$
     CLR RI
     mov A,sbuf
     MOV SBUF,A
     call su
     RETI
ST:
     MOVX A,@DPTR
     INC DPTR
     JMP ST
     ret
     readtext:
     mov p1,#0f5h
     mov r0,#16
rt1:
     MOVX A,@DPTR
     call su
     MOV R2,A
     ANL A,#80H
     JZ asc
     MOV A,R2
     SUBB A,@0A0H
     MOV R3,A
     DEC R0
     CALL1 SU
     INC DPTR 
     MOVX A,@DPTR 
     CALL SU
     SUBB A,@0A0H
     MOV R4,A
     CALL SU
     CALL QHZ;
     JMP PUT1
ASC:
     CALL ASCF
     JMP PUT1
put:call su
put1:INC DPTR
     DJNZ r0,rt1
     RET
ascf:
     MOV A,R2
     DEC R0
     call su
     mov R1,#31
asc1:MOV A,#00H
     call su
     DJNZ r1,asc1
     RET
qhz:
     DEC R3
     DEC R4
     MOV A,R3
     MOV B,#94
     MUL AB
     MOV R5,
     ADD A,R4
     call su
     MOV R6,A
     clr A
     ADDC A,R5
     MOV B,#08H
     DIV AB 
     MOV R1,A
     ADD A,#0F0H
     MOV P1,A
     MOV A,R1
     MOV B,#08H
     MUL AB
     MOV R1,A
     MOV A,R5
     SUBB A,R1
     MOV R5,A
     call FINDHZK
     RET
     FINDHZK
     PUSH DPL
     PUSH DPH
     mov A,R6
     RL A
     RL A
     RL A
     RL A
     RL A
     MOV R1,A
     ANL A,#0E0H;
     MOV DPL,A
     mov A,R5
     RL A
     RL A
     RL A
     RL A
     RL A
     ANL A,#0E0H
     MOV R7,A
     MOV A,R1
     ANL A,#1fH
     MOV R1,A
     MOV A,R7
     ORL A,R1
     MOV DPH,A
     MOV R1,#30h
     MOV R7 ,#32
outhz:MOVX A,@DPTR
     MOV @R1,A
     INC R1
     mov sbuf,A
     mov r2,#0ffH
     DJNZ R2,$
     JNB TI,$
     CLR TI
     INC DPTR
     DJNZ R7,outhz
     MOV P1,#0F5H
     POP DPH
     POP DPL
     RET
SINT:
     MOV A,#09h
     END