📄 64zhi.asm
字号:
;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
;▓▓▓MSN:shxydz@hotmail.com---------------TEL:02157576709▓▓▓
;▓▓------------------邮箱jiguo@.citiz.net------------------▓▓
;▓***********************程序表头*****************************▓
;▓ ▓
;▓{项 目 名 称:64字以下单双色条屏} ▓
;▓{创 建 日 期:2002/04} ▓
;▓{项 目 主 管:季 国} ▓
;▓{参 加 人 员:} ▓
;▓{对 应 图 号:XYDZ-DISPLAY-64} ▓
;▓{版 本 信 息:V2.02} ▓
;▓{产 品 描 述:用89C51+GAL实现LED显示屏} ▓
;▓{升 级 信 息:2002/06改1/8扫描} ▓
;▓ ▓
;▓▓ ▓▓
;▓▓▓****************上海芯源电子设计中心****************▓▓▓
;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
;
;
da595 BIT p1.2
wg BIT p1.3
clk595 BIT p1.4
sc595 BIT p1.5
le4514 BIT p1.6
RST BIT P3.3
SCLK BIT P3.4
IO BIT P3.5
RXBZ BIT 7FH
XS_B BIT 7EH
cp_b BIT 7dh
da4514 EQU 8400h
bhbz BIT 7ch
bh1 EQU 20h
bh2 EQU 21h
bh3 EQU 22h
bh4 EQU 23h
bh EQU 24h
mpydsd EQU 30h
lxstime EQU 31h
hxstime EQU 32h
ksl EQU 33h
ksh EQU 34h
sjcd16l EQU 35h
sjcd16h EQU 36h
sjcdl EQU 37h
sjcdh EQU 38h
cz_l EQU 39h
cz_h EQU 3ah
ks_jcl EQU 3bh
ks_jch EQU 3ch
ydsdtemp EQU 3dh
mpxstime EQU 3eh
zywstemp EQU 3fh
zyws EQU 40h
jsq1temp EQU 41h
lscan EQU 42h
temph EQU 43h
templ EQU 44h
HS_JCL EQU 45H
HS_JCH EQU 46H
temp1 EQU 45h
temp2 EQU 46h
temp3 EQU 47h
temp4 EQU 48h
XL EQU 49H
XH EQU 4AH
TEMP11 EQU 4BH
TEMP12 EQU 4CH
TEMP13 EQU 4DH
X1 EQU 50H
X2 EQU 51H
X3 EQU 52H
X4 EQU 53H
Y1 EQU 50H
Y2 EQU 51H
Y3 EQU 52H
Y4 EQU 53H
ZJS EQU 54H
XX EQU 55H
JC_DPH EQU 56H
JC_DPL EQU 57H
TY_JSQ EQU 58H
;////////////////////////////主程序开始//////////////////////////////
ORG 0000h
LJMP csh
ORG 0023h
LJMP UART_RXC
ORG 0030h
csh:
MOV LXSTIME,#80
MOV HXSTIME,#0
MOV MPYDSD,#15
MOV PCON,#80H
MOV SCON,#70H
MOV TMOD,#20H
MOV TH1,#239
MOV TL1,#239
SETB TR1
CLR RI
CLR TI
SETB ES
SETB EA
MOV P1,#253
SETB LE4514
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL YS5S
LCALL INITW
LCALL DATA_TEST
ZCX:
SETB LE4514
MOV DPTR,#7F81H
MOV JC_DPH,DPH
MOV JC_DPL,DPL
ZCX40:
SETB le4514
LCALL YS5S
CLR P1.1
SETB P1.0
MOV DPH,JC_DPH
MOV DPL,JC_DPL
MOVX A,@DPTR
INC DPTR
MOV JC_DPH,DPH
MOV JC_DPL,DPL
CJNE A,#255,ZCX100
LJMP ZCX
ZCX100:MOV R6,A
CLR C
SUBB A,#18
JNC ZCX
MOV A,R6
MOV DPTR,#TAB_ADDR
MOVC A,@A+DPTR
MOV DPH,A
MOV DPL,#00H
MOV ksl,#8
MOV ksh,a
INC DPTR
INC DPTR
MOVX A,@DPTR
MOV SJCD16H,A
INC DPTR
MOVX A,@DPTR
MOV SJCD16L,A
INC DPTR
INC DPTR
INC DPTR
MOVX A,@DPTR
MOV SJCDH,A
INC DPTR
MOVX A,@DPTR
MOV SJCDL,A
MOV DPTR,#SWH
MOV A,R6
MOV B,#3
MUL AB
JMP @A+DPTR
SWH:
LJMP XSFS0
LJMP XSFS1
LJMP XSFS2
LJMP XSFS3
LJMP XSFS4
LJMP XSFS5
LJMP XSFS6
LJMP XSFS7
LJMP XSFS8
LJMP XSFS9
LJMP XSFS10
LJMP XSFS11
LJMP XSFS12
LJMP XSFS13
LJMP XSFS14
LJMP XSFS15
LJMP XSFS16
LJMP XSFS17
XS_END:LJMP ZCX40
XSFS0: MOV Y4,#0
MOV TY_JSQ,#8
XSFS0_10:
MOV A,#8
CLR C
SUBB A,TY_JSQ
MOV Y1,A
MOV Y3,A
MOV A,TY_JSQ
ADD A,TY_JSQ
MOV Y2,A
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS0_10
MOV Y2,#0
MOV Y3,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS0_20:
MOV Y1,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS0_20
MOV TY_JSQ,#8
MOV Y4,#0
XSFS0_30:
MOV Y1,TY_JSQ
MOV Y3,TY_JSQ
MOV A,#16
CLR C
SUBB A,TY_JSQ
SUBB A,TY_JSQ
MOV Y2,A
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS0_30
LJMP XS_END
XSFS1:
MOV Y1,#0
MOV TY_JSQ,#8
XSFS1_10:
MOV A,ty_jsq
MOV Y2,A
MOV Y4,A
MOV A,#16
CLR C
SUBB A,TY_JSQ
SUBB A,TY_JSQ
MOV Y3,A
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS1_10
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS1_20:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS1_20
MOV TY_JSQ,#0
MOV Y1,#0
XSFS1_30:
MOV Y2,TY_JSQ
MOV Y4,TY_JSQ
MOV A,#16
CLR C
SUBB A,TY_JSQ
SUBB A,TY_JSQ
MOV Y3,A
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
LCALL XS_Y1Y2Y3Y4
INC TY_JSQ
MOV A,TY_JSQ
CJNE A,#9,XSFS1_30
LJMP XS_END
XSFS2:
MOV ks_jch,ksh
MOV ks_jcl,ksl
MOV x3,#0
MOV x4,#0
MOV ty_jsq,#255
xsfs2_100:
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,xsfs2_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS2_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS2_200
MOV x3,#0
MOV x4,#0
MOV ty_jsq,#255
xsfs2_300:
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,xsfs2_300
LJMP XS_END
XSFS3:
MOV ks_jch,ksh
MOV ks_jcl,ksl
MOV x1,#0
MOV x4,#0
MOV ty_jsq,#255
xsfs3_100:
MOV x2,ty_jsq
MOV a,#00
CLR c
SUBB a,ty_jsq
MOV x3,a
LCALL xs_x1x2x3x4
DEC ty_jsq
DJNZ ty_jsq,xsfs3_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS3_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS3_200
MOV x1,#0
MOV x4,#0
MOV ty_jsq,#255
xsfs3_300:
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,xsfs3_300
LJMP XS_END
XSFS4:
MOV y1,#0
MOV y4,#0
MOV ty_jsq,#16
MOV ks_jch,ksh
MOV ks_jcl,ksl
xsfs4_100:
MOV y2,ty_jsq
MOV a,#16
CLR c
SUBB a,ty_jsq
MOV y3,a
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
DJNZ ty_jsq,xsfs4_100
MOV y2,#0
MOV ty_jsq,#200
xsfs4_200:
MOV y3,#16
MOV ks_jch,ksh
MOV ks_jcl,ksl
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
DJNZ ty_jsq,xsfs4_200
MOV y1,#0
MOV y4,#0
MOV ty_jsq,#16
xsfs4_300:
MOV y3,ty_jsq
MOV a,#16
CLR c
SUBB a,ty_jsq
MOV y2,a
MOV ks_jch,ksh
MOV ks_jcl,ksl
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
DJNZ ty_jsq,xsfs4_300
LJMP XS_END
XSFS5:
MOV y3,#0
MOV y4,#0
MOV ty_jsq,#16
xsfs5_100:
MOV y2,ty_jsq
MOV a,#16
CLR c
SUBB a,ty_jsq
MOV y1,a
MOV ks_jch,ksh
MOV ks_jcl,ksl
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
DJNZ ty_jsq,xsfs5_100
MOV y2,#0
MOV ty_jsq,#200
xsfs5_200:
MOV y1,#16
MOV ks_jch,ksh
MOV ks_jcl,ksl
LCALL xs_y1y2y3y4
LCALL xs_y1y2y3y4
DJNZ ty_jsq,xsfs5_200
MOV y3,#0
MOV y4,#0
MOV ty_jsq,#16
xsfs5_300:
MOV y1,ty_jsq
MOV a,#16
clr c
subb a,ty_jsq
MOV y2,a
MOV ks_jch,ksh
MOV ks_jcl,ksl
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
lcall xs_y1y2y3y4
djnz ty_jsq,xsfs5_300
LJMP XS_END
XSFS6:
MOV x1,#0
MOV ty_jsq,#128
xsfs6_100:
MOV x2,ty_jsq
MOV x4,ty_jsq
MOV a,#00
clr c
subb a,ty_jsq
CLR C
subb a,ty_jsq
MOV x3,a
MOV ks_jch,ksh
MOV ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs6_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS6_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS6_200
MOV ty_jsq,#128
MOV x1,#0
xsfs6_300:
MOV a,ty_jsq
add a,ty_jsq
MOV x3,a
MOV a,#128
clr c
subb a,ty_jsq
MOV x2,a
MOV x4,a
MOV ks_jch,ksh
MOV ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs6_300
LJMP XS_END
XSFS7:
mov ty_jsq,#128
mov x4,#0
xsfs7_100:
mov a,#128
clr c
subb a,ty_jsq
mov x1,a
mov x3,a
mov a,ty_jsq
add a,ty_jsq
mov x2,a
mov ks_jch,ksh
mov ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs7_100
MOV Y1,#0
MOV Y2,#0
MOV Y4,#0
MOV TY_JSQ,#200
XSFS7_200:
MOV Y3,#16
MOV KS_JCH,KSH
MOV KS_JCL,KSL
LCALL XS_Y1Y2Y3Y4
DJNZ TY_JSQ,XSFS7_200
mov ty_jsq,#128
mov x4,#0
xsfs7_300:
mov x1,ty_jsq
mov x3,ty_jsq
mov a,#00
clr c
subb a,ty_jsq
CLR C
subb a,ty_jsq
mov x2,a
mov ks_jch,ksh
mov ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs7_300
LJMP XS_END
XSFS8: mov ty_jsq,#25
lcall xsfs8_100
mov ty_jsq,#25
lcall xsfs8_200
mov ty_jsq,#25
lcall xsfs8_100
mov ty_jsq,#25
lcall xsfs8_200
mov ty_jsq,#50
lcall xsfs8_100
mov ty_jsq,#50
lcall xsfs8_200
mov ty_jsq,#50
lcall xsfs8_100
mov ty_jsq,#50
lcall xsfs8_200
LJMP XS_END
xsfs8_100:
mov x2,#0
mov x3,#0
mov x4,#0
xsfs8_120:
mov x1,#255
mov x3,#01
mov ks_jch,ksh
mov ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs8_120
ret
xsfs8_200:
mov x1,#0
mov x3,#0
mov x4,#0
xsfs8_220:
mov x2,#255
mov x4,#01
mov ks_jch,ksh
mov ks_jcl,ksl
lcall xs_x1x2x3x4
djnz ty_jsq,xsfs8_220
ret
XSFS9: ljmp xs_end
mov y2,#0
mov y3,#0
mov y4,#0
mov ty_jsq,#40
lcall xsfs9_100
setb cp_b
mov ty_jsq,#33
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -