📄 64zhi.asm
字号:
lcall xsfs9_100
clr cp_b
mov ty_jsq,#40
lcall xsfs9_100
setb cp_b
mov ty_jsq,#33
lcall xsfs9_100
clr cp_b
mov ty_jsq,#80
lcall xsfs9_100
setb cp_b
mov ty_jsq,#66
lcall xsfs9_100
clr cp_b
mov ty_jsq,#80
lcall xsfs9_100
setb cp_b
mov ty_jsq,#66
lcall xsfs9_100
clr cp_b
LJMP XS_END
xsfs9_100:
mov ks_jch,ksh
mov ks_jcl,ksl
mov y1,#16
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs9_100
ret
XSFS10:
mov ty_jsq,#255
mov x3,#0
mov x4,#0
xsfs10_100:
mov ks_jch,ksh
mov ks_jcl,ksl
mov x2,ty_jsq
mov a,#00
clr c
subb a,ty_jsq
mov x1,a
lcall xs_x1x2x3x4
dec ty_jsq
djnz ty_jsq,xsfs10_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS10_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS10_200
mov ty_jsq,#255
mov x1,#0
mov x4,#0
xsfs10_300:
mov ks_jch,ksh
mov ks_jcl,ksl
mov x3,ty_jsq
mov a,#00
clr c
subb a,ty_jsq
mov x2,a
lcall xs_x1x2x3x4
dec ty_jsq
djnz ty_jsq,xsfs10_300
LJMP XS_END
XSFS11:
mov ty_jsq,#255
mov x1,#0
mov x4,#0
xsfs11_100:
mov ks_jch,ksh
mov ks_jcl,ksl
mov x2,ty_jsq
mov a,#00
clr c
subb a,ty_jsq
mov x3,a
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs11_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS11_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS11_200
mov ty_jsq,#255
mov x3,#0
mov x4,#0
xsfs11_300:
mov ks_jch,ksh
mov ks_jcl,ksl
mov x1,ty_jsq
mov a,#00
clr c
subb a,ty_jsq
mov x2,a
lcall xs_x1x2x3x4
dec ty_jsq
djnz ty_jsq,xsfs11_300
LJMP XS_END
XSFS12:
MOV KS_JCH,KSH
MOV KS_JCL,KSL
mov y3,#0
mov y4,#0
mov ty_jsq,#16
xsfs12_100:
mov y2,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y1,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs12_100
mov ty_jsq,#200
mov y2,#0
mov y3,#0
mov y4,#0
xsfs12_200:
mov y1,#16
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs12_200
mov ty_jsq,#16
mov y1,#0
mov y4,#0
xsfs12_300:
mov y3,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y2,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs12_300
LJMP XS_END
XSFS13:
MOV KS_JCH,KSH
MOV KS_JCL,KSL
mov y1,#0
mov y4,#0
mov ty_jsq,#16
xsfs13_100:
mov y2,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y3,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs13_100
mov ty_jsq,#200
mov y2,#0
mov y3,#0
mov y4,#0
xsfs13_200:
mov y1,#16
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs13_200
mov ty_jsq,#16
mov y3,#0
mov y4,#0
xsfs13_300:
mov y1,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y2,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs13_300
LJMP XS_END
XSFS14:
MOV KS_JCH,KSH
MOV KS_JCL,KSL
MOV TY_JSQ,#16
mov y1,#0
mov y4,#0
xsfs14_100:
mov y2,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y3,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
mov a,ks_jcl
add a,sjcd16l
mov ks_jcl,a
mov a,ks_jch
addc a,sjcd16h
mov ks_jch,a
djnz ty_jsq,xsfs14_100
MOV Y2,#0
MOV Y3,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS14_200:
MOV Y1,#16
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS14_200
MOV TY_JSQ,#16
mov y3,#0
mov y4,#0
xsfs14_300:
mov y1,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y2,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
mov a,ks_jcl
add a,sjcd16l
mov ks_jcl,a
mov a,ks_jch
addc a,sjcd16h
mov ks_jch,a
djnz ty_jsq,xsfs14_300
LJMP XS_END
XSFS15:
mov ks_jch,ksh
mov ks_jcl,ksl
inc ks_jch
mov a,ks_jch
add a,#3
mov ks_jch,a
MOV TY_JSQ,#16
mov y3,#0
mov y4,#0
xsfs15_100:
mov y2,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y1,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
mov a,ks_jcl
clr c
subb a,sjcd16l
mov ks_jcl,a
mov a,ks_jch
subb a,sjcd16h
mov ks_jch,a
djnz ty_jsq,xsfs15_100
MOV Y2,#0
MOV Y3,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS15_200:
MOV Y1,#16
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS15_200
MOV TY_JSQ,#16
mov y1,#0
mov y4,#0
xsfs15_300:
mov y3,ty_jsq
mov a,#16
clr c
subb a,ty_jsq
mov y2,a
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
mov a,ks_jcl
clr c
subb a,sjcd16l
mov ks_jcl,a
mov a,ks_jch
subb a,sjcd16h
mov ks_jch,a
djnz ty_jsq,xsfs15_300
LJMP XS_END
;//////////////不同的工作模式有不通的程序，下面的程序是文字左移/////////////////
XSFS16:
MOV A,KSL
CLR C
ADD A,SJCD16L
MOV TEMPL,A
MOV A,KSH
ADDC A,SJCD16H
MOV TEMPH,A
MOV A,TEMPL
CLR C
SUBB A,#32
MOV TEMPL,A
MOV A,TEMPH
SUBB A,#0
MOV TEMPH,A
MOV HS_JCL,KSL
MOV HS_JCH,KSH
MOV R6,#0
ZY550:
MOV ZYWS,#0
ZY5100:
MOV ZYWS,#0
ZY5150: MOV HS_JCL,KSL
MOV HS_JCH,KSH
MOV R6,#0
ZY5200: MOV CZ_L,HS_JCL
MOV CZ_H,HS_JCH
MOV DPL,CZ_L
MOV DPH,CZ_H
MOV JSQ1TEMP,#32
ZYk1: MOVX A,@DPTR
INC DPTR
CLR CLK595
MOV R5,#8
ZYK2:
RLC A
cpl c
MOV P1.2,C
nop
nop
nop
SETB CLK595
nop
CLR CLK595
DJNZ R5,ZYK2
DJNZ JSQ1TEMP,ZYk1
MOV R7,ZYWS
CJNE R7,#0,ZY28k
LJMP ZY8k
ZY28k:
MOVX A,@DPTR
INC DPTR
ZY3k:
RLC A
cpl c
MOV P1.2,C
nop
nop
nop
nop
SETB CLK595
nop
CLR CLK595
DJNZ R7,ZY3k
ZY8k:
SETB LE4514
lcall ys01ms
SETB SC595
nop
nop
nop
nop
cpl wg
nop
CLR SC595
MOV A,R6
MOV DPTR,#8400h
MOVX @DPTR,A
clr le4514
lcall ys01ms
lcall ys01ms
lcall ys01ms
lcall ys01ms
INC R6
CJNE R6,#16,ZY10
CPL WG
LJMP ZY20
ZY10:
MOV A,HS_JCL
ADD A,SJCD16L
MOV HS_JCL,A
MOV A,HS_JCH
ADDC A,SJCD16H
MOV HS_JCH,A
LJMP ZY5200
ZY20:
MOV A,HS_JCL
ADD A,SJCD16L
MOV HS_JCL,A
MOV A,HS_JCH
ADDC A,SJCD16H
MOV HS_JCH,A
LJMP ZY5200
ZY50:
INC ZYWS
MOV R7,ZYWS
CJNE R7,#8,ZY55
LJMP ZY60
zy55: ljmp zy5100
zy570: ljmp zy550
ZY60:
MOV ZYWS,#0
MOV A,#1
ADD A,KSL
MOV KSL,A
MOV A,#0
ADDC A,KSH
MOV KSH,A
MOV A,TEMPL
CJNE A,KSL,ZY570
ZY70:
MOV A,TEMPH
CJNE A,KSH,ZY570
ZY77:
LJMP XS_END
XSFS17:
LJMP XS_END
;///////////下面是通讯程序，波特率9600/S /////////////
UART_RXC:
SETB LE4514
MOV A,SBUF
CLR ES
LCALL RXCCL
SETB ES
LOOP:
NOP
LJMP LOOP
RET
RXD1BYTE:
CLR RI
CPL WG
SETB RXBZ
MOV TEMP13,#70
RXD8:
MOV TEMP11,#255
RXD10:
MOV TEMP12,#255
RXD11:
JB RI,RXD20
DJNZ TEMP12,RXD11
DJNZ TEMP11,RXD10
DJNZ TEMP13,RXD8
LJMP RXDRE
RXD20:
MOV A,SBUF
CLR RXBZ
RXDRE:
RET
RXCCL:
mov bh, #7
ljmp bianhao
lclbh2:
jnb bhbz,rxcclre
CJNE A,#1 ,RXCCLRE
LCALL RXD1BYTE
JB RXBZ,RXCCLRE
CJNE A,#255,RXCCLRE
LCALL RXD1BYTE
JB RXBZ,RXCCLRE
CJNE A,#254,RXCCLRE
LCALL RXD1BYTE
JB RXBZ,RXCCLRE
CJNE A,#253,RXCCLRE
LCALL RXD1BYTE
JB RXBZ,RXCCLRE
CJNE A,#252,RXCCLRE
LCALL RXD1BYTE
JB RXBZ,RXCCLRE
cjne a,#200,rxccl300
mov dptr,#7f81h
rxccl050:
LCALL RXD1BYTE
JB RXBZ,rxccl060
cjne a,#255,rxccl100
rxccl060:
movx @dptr,a
ljmp loop
rxccl100:
movx @dptr,a
inc dptr
ljmp rxccl050
rxccl300:
MOV DPTR,#TAB_ADDR
MOVC A,@A+DPTR
MOV DPH,A
MOV DPL,#00H
LCALL RX000
rxcclre:ret
rx000:
push temp2
clr p1.1
setb p1.0
MOV TEMP2,#7
RX008:
LCALL RXD1BYTE
JB RXBZ,RX000RE
MOVX @DPTR,A
INC DPTR
DJNZ TEMP2,RX008
INC A
MOV XH,A
LCALL RXD1BYTE
JB RXBZ,RX000RE
MOVX @DPTR,A
INC DPTR
MOV XL,A
RX009:
LCALL RXD1BYTE
JB RXBZ,RX000RE
MOVX @DPTR,A
INC DPTR
DJNZ XL,RX009
DJNZ XH,RX009
RX000RE:
POP TEMP2
RET
XSFS_23:
RET
xs_y1y2y3y4:
mov hs_jch,ks_jch
mov Hs_jcl,Ks_jcl
mov lscan,#0
mov a,y1
MOV R6,Y1
cjne a,#0,xs_y1y4_100
ljmp XS_Y1Y4_150
xs_y1y4_100:
CLR XS_B
MOV ZJS,#32
LCALL XS1L
MOV ZJS,#32
MOV A,HS_JCL
ADD A,ZJS
MOV HS_JCL,A
MOV A,HS_JCH
ADDC A,#0
MOV HS_JCH,A
INC LSCAN
djnz R6,xs_y1y4_100
XS_Y1Y4_150:
MOV A,Y2
MOV R6,Y2
CJNE A,#0,XS_Y1Y4_200
LJMP XS_Y1Y4_250
XS_Y1Y4_200:
SETB XS_B
MOV ZJS,#32
LCALL XS1L
MOV ZJS,#32
MOV A,HS_JCL
ADD A,ZJS
MOV HS_JCL,A
MOV A,HS_JCH
ADDC A,#0
MOV HS_JCH,A
INC LSCAN
djnz R6,XS_Y1Y4_200 ;
XS_Y1Y4_250:
MOV A,Y3
MOV R6,Y3
CJNE A,#0,XS_Y1Y4_300
LJMP XS_Y1Y4_350
XS_Y1Y4_300:
CLR XS_B
MOV ZJS,#32
LCALL XS1L
MOV ZJS,#32
MOV A,HS_JCL
ADD A,ZJS
MOV HS_JCL,A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -