📄 tj1025g.asm
字号:
INC A
MOV 0DH,A
CJNE A,#1FH,LDD7
LJMP LDDA
;-------------------------------
LDD7: CLR C
MOV A,11H
ADD A,#24
MOV 11H,A
MOV A,10H
ADDC A,#00H
MOV 10H,A ;计算出当前小时首地址
LJMP LDD3
;-------------------------------
LDDZ: MOV DPTR,#0F912H
MOV 0DH,#00
LDDB: MOV A,0DH
INC A
LCALL WRDA
INC DPTR
MOV B,#22
MOV A,#0FFH
LDDC: LCALL WRDA
INC DPTR
DJNZ B,LDDC
MOV A,0DH
INC A
MOV 0DH,A
CJNE A,#1FH,LDDB
MOV 0EH,DPH
MOV 0FH,DPL
;--------------------------
; 10.8协议
; 年月
;--------------------------
LDDA: MOV DPH,0EH
MOV DPL,0FH
MOV A,4AH
LCALL WRDA
INC DPTR
MOV A,4BH
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
;-------------------------------
; 密码 时标 延时长度
;-------------------------------
;-------------------------------
LCALL PWHMS
;-------------------------------
; 求校验和
;-------------------------------
MOV 0EH,#02H
MOV 0FH,#0DDH
LCALL JYCS
RET
;******************************************
;==========================================
; 月统计数据
;==========================================
;******************************************
LDMM: MOV DPTR,#0F900H
MOV A,#68H
LCALL WRDA
INC DPTR ;数据长度 X4
MOV A,#04H ;12*23+18=642=0126H*4=0498H
LCALL WRDA
INC DPTR
MOV A,#9CH
LCALL WRDA
INC DPTR
MOV A,#04H
LCALL WRDA
INC DPTR
MOV A,#9CH
LCALL WRDA
INC DPTR
MOV A,#68H
LCALL WRDA
;--------------------------------
INC DPTR
MOV A,#8FH ;控制域
LCALL WRDA
;--------------------------------
LCALL DIZHI
;--------------------------------
MOV A,#84H
MOV DPTR,#0F90CH ; 应用层功能码
LCALL WRDA
;--------------------------------
MOV A,#80H
MOV DPTR,#0F90DH ;桢序列
LCALL WRDA
;--------------------------------
INC DPTR
MOV A,#0B3H ;数据单元标识
LCALL WRDA
INC DPTR
MOV A,#01H
LCALL WRDA
INC DPTR
MOV A,#0CH
LCALL WRDA
INC DPTR
MOV A,#17H
LCALL WRDA
;---------------------------------
MOV DPTR,#0F812H
MOVX A,@DPTR
MOV B,A
SUBB A,4AH
JZ LDM0
LJMP LDMZ ;
;---------------------------------
LDM0: MOV 10H,#80H
MOV 11H,#00H
;==============================
MOV 0EH,#0F9H ;终端数据首址
MOV 0FH,#12H
MOV 0DH,#00
LDM3: MOV A,0DH
INC A
MOV DPH,0EH
MOV DPL,0FH
LCALL WRDA
INC DPTR
MOV 0EH,DPH ;ID
MOV 0FH,DPL
;---------------------------
;---------------------------
MOV DPH,10H
MOV DPL,11H
MOVX A,@DPTR
CJNE A,#55H,LDM4 ;数据无效处理
LJMP LDM5
LDM4:LJMP LDM6
;---------------------------
;---------------------------
LDM5:LCALL HSXTIME ;合格 上限 下限时间
LCALL DAZHI ;最大值
LCALL DATIME ;最大值时刻
LCALL XIAOZHI ;最小值
LCALL XIAOTIME ;最小值时刻
MOV A,0DH
INC A
MOV 0DH,A
CJNE A,#0CH,LDM7
LJMP LDMA
LDM6: MOV B,#22
MOV DPH,0EH
MOV DPL,0FH
LDMY: MOV A,#0FFH
LCALL WRDA
INC DPTR
DJNZ B,LDMY
MOV 0EH,DPH
MOV 0FH,DPL
MOV A,0DH
INC A
MOV 0DH,A
CJNE A,#0CH,LDM7
LJMP LDMA
;-------------------------------
LDM7: CLR C
MOV A,11H
ADD A,#24
MOV 11H,A
MOV A,10H
ADDC A,#00H
MOV 10H,A ;计算出当前小时首地址
LJMP LDM3
;-------------------------------
LDMZ: MOV DPTR,#0F912H
MOV 0DH,#00
LDMB: MOV A,0DH
INC A
LCALL WRDA
INC DPTR
MOV B,#22
MOV A,#0FFH
LDMC: LCALL WRDA
INC DPTR
DJNZ B,LDMC
MOV A,0DH
INC A
MOV 0DH,A
CJNE A,#0CH,LDMB
MOV 0EH,DPH
MOV 0FH,DPL
;-------------------------------
; 10.8协议
; 年
;-------------------------------
LDMA: MOV DPH,0EH
MOV DPL,0FH
MOV A,4AH
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
;-------------------------------
LCALL PWHMS
;-------------------------------
; 求校验和
;-------------------------------
MOV 0EH,#01H
MOV 0FH,#27H
LCALL JYCS
RET
;==========================================
; 子程序
;==========================================
; 求校验和程序
; 开始地址： 0F906H
; 数据长度： 0EH0FH
;==========================================
JYCS:MOV DPTR,#0F906H
MOV R5,#00H
JCS1:MOVX A,@DPTR
ADD A,R5
MOV R5,A
INC DPTR
CLR C
MOV A,0FH
SUBB A,#01H
MOV 0FH,A
MOV A,0EH
SUBB A,#00H
MOV 0EH,A
CJNE A,#00H,JCS1
MOV A,0FH
CJNE A,#00H,JCS1
MOV A,R5
LCALL WRDA ;校验和
INC DPTR
MOV A,#16H ;文件尾
LCALL WRDA
RET
;==========================================
; 装载 密码 时分秒
; 延时长度 10分钟
;==========================================
PWHMS: MOV DPTR,#0010H
MOVX A,@DPTR
MOV R0,A
INC DPTR
MOVX A,@DPTR
MOV R1,A
MOV A,4DH
MOV R2,A
MOV A,4EH
MOV R3,A
MOV A,4FH
MOV R4,A
MOV A,#10
MOV R5,A
MOV DPH,0EH
MOV DPL,0FH
MOV A,R0
LCALL WRDA
INC DPTR
MOV A,R1
LCALL WRDA
INC DPTR
MOV A,R2
LCALL WRDA
INC DPTR
MOV A,R3
LCALL WRDA
INC DPTR
MOV A,R4
LCALL WRDA
INC DPTR
MOV A,R5
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
RET
;==========================================
DIZHI:MOV DPTR,#001CH ;地址域
MOVX A,@DPTR
MOV DPTR,#0F907H
LCALL WRDA
MOV DPTR,#001DH
MOVX A,@DPTR
MOV DPTR,#0F908H
LCALL WRDA
MOV DPTR,#001AH
MOVX A,@DPTR
MOV DPTR,#0F909H
LCALL WRDA
MOV DPTR,#001BH
MOVX A,@DPTR
MOV DPTR,#0F90AH
LCALL WRDA
MOV A,#01H
MOV DPTR,#0F90BH ;组地址
LCALL WRDA
RET
;==========================================
HSXTIME:MOV DPH,10H
MOV DPL,11H
INC DPTR
MOVX A,@DPTR
MOV R6,A
INC DPTR
MOVX A,@DPTR
MOV R7,A
INC DPTR
MOVX A,@DPTR
MOV R4,A
INC DPTR
MOVX A,@DPTR
MOV R5,A
INC DPTR
MOVX A,@DPTR
MOV R2,A
INC DPTR
MOVX A,@DPTR
MOV R3,A
MOV A,R7
CLR C
SUBB A,R5
MOV R7,A
MOV A,R6
SUBB A,R4
MOV R6,A
MOV A,R7
SUBB A,R3
MOV R7,A
MOV A,R6
SUBB A,R2
MOV R6,A
MOV DPH,0EH
MOV DPL,0FH
MOV A,R6
LCALL WRDA
INC DPTR
MOV A,R7
LCALL WRDA
INC DPTR
MOV A,R4
LCALL WRDA
INC DPTR
MOV A,R5
LCALL WRDA
INC DPTR
MOV A,R2
LCALL WRDA
INC DPTR
MOV A,R3
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
RET
;==========================================
DAZHI: MOV DPH,10H
MOV DPL,11H
CLR C
MOV A,DPL
ADD A,#07H
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOVX A,@DPTR
MOV R0,A
INC DPTR
MOVX A,@DPTR
MOV R1,A
LCALL VBIN
MOV DPH,0EH
MOV DPL,0FH
MOV A,R5
LCALL WRDA
INC DPTR
MOV A,R6
LCALL WRDA
INC DPTR
MOV A,R7
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
RET
;==========================================
DATIME: MOV DPH,10H
MOV DPL,11H
CLR C
MOV A,DPL
ADD A,#09H
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOVX A,@DPTR
MOV R0,A
INC DPTR
MOVX A,@DPTR
MOV R1,A
INC DPTR
MOVX A,@DPTR
MOV R2,A
INC DPTR
MOVX A,@DPTR
MOV R3,A
INC DPTR
MOVX A,@DPTR
MOV R4,A
MOV DPH,0EH
MOV DPL,0FH
MOV A,R0
LCALL WRDA
INC DPTR
MOV A,R1
LCALL WRDA
INC DPTR
MOV A,R2
LCALL WRDA
INC DPTR
MOV A,R3
LCALL WRDA
INC DPTR
MOV A,R4
LCALL WRDA
INC DPTR
MOV 0EH,DPH
MOV 0FH,DPL
RET
;==========================================
XIAOZHI:MOV DPH,10H
MOV DPL,11H
CLR C
MOV A,DPL
ADD A,#0EH
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOVX A,@DPTR
MOV R0,A
INC DPTR
MOVX A,@DPTR
MOV R1,A
LCALL VBIN
MOV DPH,0EH
MOV DPL,0FH
MOV A,R5
LCALL WRDA
INC DPTR
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -