?? 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 + -