实力和荣誉的象征。小子不才，谁能将此汇编转换成C语言，关于网络传输中的校验功能的。——100分

[fellowcheung]

1.（2101）《提高汉明码对突发干扰的纠错能力》P15
原程序情单如下：
. ; [16,11,4] 增广汉明码校验矩阵:
; D15 D14 D13 D12 D11 D10 D9 D7 D6 D5 D3 D16 D8 D4 D2 D1 校验码
; | 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 | C4=0FFFFH
; | 1 1 1 1 1 1 1 0 0 0 0 0 1 0 0 0 | C3=0FE08H
; | 1 1 1 1 0 0 0 1 1 1 0 0 0 1 0 0 | C2=0F1C4H
; | 1 1 0 0 1 1 0 1 1 0 1 0 0 0 1 0 | C1=0CDA2H
; | 1 0 1 0 1 0 1 1 0 1 1 0 0 0 0 1 | C0=0AB61H

;*******************************************************
;16比特汉明码测试程序(原始数据11字节,编码结果为16字节)
;可纠正数据块中任意位置的最多连续1个字节的错误
;*******************************************************
SADD EQU 2000H ;原始数据存放首址
DADD EQU 2020H ;编码结果存放首址
SQADD EQU 2040H ;编码结果重新排序后存放地址
JMADD EQU 2060H ;解码结果存放首址
BMBUF EQU 30H ;编码数据缓冲区(8字节)
SQBUF EQU 40H ;编码排序缓冲区(16字节)
ERR EQU 20H ;出错标志

ORG 0000H
LJMP MAIN

ORG 0100H
MAIN: LCALL DATAS ;生成一批原始数据
LCALL HAMBM ;汉明码编码程序
LCALL HAMJM ;汉明码解码程序(解码之前,可以人为加入差错)
STOP: LJMP STOP
NOP
NOP
NOP
;*******************************************************
;原始数据生成子程序
;*******************************************************
DATAS: MOV DPTR,#SADD
MOV R2,#11
CLR A
DATAS1: MOVX @DPTR,A
INC A
INC DPTR
DJNZ R2,DATAS1
RET
;*******************************************************
;汉明码编码子程序
;*******************************************************
HAMBM: MOV DPTR,#DADD ;编码结果首址
MOV R1,DPL
MOV P2,DPH
MOV DPTR,#SADD ;原始数据首址
HAMBM1: MOV R0,#BMBUF
MOV R3,#8
HAMBM2: MOVX A,@DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R3,HAMBM2 ;取8个字节数据放入缓存区
MOVX A,@DPTR ;再取3个字节数据分别放入R5,R6,R7
MOV R5,A
INC DPTR
MOVX A,@DPTR
MOV R6,A
INC DPTR
MOVX A,@DPTR
MOV R7,A ;
INC DPTR
MOV R0,#BMBUF
HAMBM3: MOV A,@R0
MOV R3,A ;从缓存区取1个字节数据放入R3
MOV A,R7 ;从R5,R6,R7分别取1位放入R4与R3组成11位数据
RLC A
MOV R7,A
RRC A
MOV R4,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R4
RRC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RRC A
ANL A,#0E0H
MOV R4,A ;
ANL A,#61H ;对D3,D5,D7,D9,D11,D13,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0ABH ;
JNB P,HAMBM4
CPL C
HAMBM4: MOV A,R4
MOV ACC.0,C
MOV R4,A ;校验结果存入D1
ANL A,#0A2H ;对D3,D6,D7,D10,D11,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0CDH ;
JNB P,HAMBM5
CPL C
HAMBM5: MOV A,R4
MOV ACC.1,C
MOV R4,A ;校验结果存入D2
ANL A,#0C4H ;对D5,D6,D7,D12,D13,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0F1H ;
JNB P,HAMBM6
CPL C
HAMBM6: MOV A,R4
MOV ACC.2,C
MOV R4,A ;校验结果存入D3
ANL A,#08H ;对D9,D10,D11,D12,D13,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0FEH ;
JNB P,HAMBM7
CPL C
HAMBM7: MOV A,R4
MOV ACC.3,C
MOV R4,A ;校验结果存入D4
MOV C,P
MOV F0,C
MOV A,R3 ;全字节偶校验
JNB P,HAMBM8
CPL C
HAMBM8: MOV A,R4
MOV ACC.4,C
MOV R4,A ;校验结果存入D16
MOV A,R3
MOVX @R1,A
INC R1
MOV A,R4
MOVX @R1,A
INC R1
INC R0
CJNE R0,#BMBUF+8,HAMBM3
LCALL SEQU
RET
;*******************************************************
;汉明码编码排序子程序
;*******************************************************
SEQU: MOV DPTR,#SQADD ;编码结果重新排序存放地址
MOV R1,DPL
MOV P2,DPH ;
MOV DPTR,#DADD ;汉明码编码存放地址
MOV R0,#SQBUF
MOV R2,#16
SEQU1: MOVX A,@DPTR ;把汉明码读入缓冲区
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,SEQU1 ;
MOV R7,#SQBUF
MOV R4,#2
SEQU2: MOV R3,#8
SEQU3: MOV R2,#8
MOV A,R7
MOV R0,A
SEQU4: MOV A,@R0
RLC A
MOV @R0,A
MOV A,B
RLC A
MOV B,A
INC R0
INC R0
DJNZ R2,SEQU4
MOVX @R1,A
INC R1
DJNZ R3,SEQU3
INC R7
DJNZ R4,SEQU2
RET
;*******************************************************
;汉明码编码排序恢复子程序
;*******************************************************
SEQUB: MOV DPTR,#DADD ;汉明码编码恢复地址
MOV R1,DPL
MOV P2,DPH ;
MOV DPTR,#SQADD ;编码结果重新排序存放地址
MOV R0,#SQBUF
MOV R2,#16
SEQUB1: MOVX A,@DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,SEQUB1
MOV R4,#8
SEQUB2: MOV R3,#2
MOV R2,#8
MOV R0,#SQBUF
SEQUB3: MOV A,@R0
RLC A
MOV @R0,A
MOV A,B
RLC A
MOV B,A
INC R0
DJNZ R2,SEQUB3
MOVX @R1,A
INC R1
MOV R2,#8
DJNZ R3,SEQUB3
DJNZ R4,SEQUB2
RET
;*******************************************************
;汉明码解码子程序
;*******************************************************
HAMJM: LCALL SEQUB
MOV ERR,#0 ;出错标志初始化。
MOV DPTR,#JMADD ;解码结果存放首址
MOV R1,DPL
MOV P2,DPH
MOV DPTR,#DADD ;编码结果存放首址
HAMJM1: MOV R0,#8
HAMJM2: MOVX A,@DPTR
MOV R3,A
MOV C,P
INC DPTR
MOVX A,@DPTR
MOV R4,A
INC DPTR
JNB P,HAMJM3
CPL C
HAMJM3: MOV F0,C ;全字节偶校验结果
MOV B,#0
MOV A,R4 ANL A,#61H ;对D1,D3,D5,D7,D9,D11,D13,D15进行偶校验
MOV C,P
MOV A,R3 ANL A,#0ABH ; JNB P,HAMJM4 CPL C
HAMJM4: MOV B.0,C ;存校验结果(C1)
MOV A,R4 ANL A,#0A2H ;对D2,D3,D6,D7,D10,D11,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0CDH ; JNB P,HAMJM5 CPL C
HAMJM5: MOV B.1,C ;存校验结果(C2)
MOV A,R4
ANL A,#0C4H ;对D4,D5,D6,D7,D12,D13,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0F1H ; JNB P,HAMJM6 CPL C
HAMJM6: MOV B.2,C ;存校验结果(C3)
MOV A,R4
ANL A,#08H ;对D8,D9,D10,D11,D12,D13,D14,D15进行偶校验
MOV C,P
MOV A,R3
ANL A,#0FEH ; JNB P,HAMJM7 CPL C
HAMJM7: MOV B.3,C ;存校验结果(C4)
MOV A,B ;取三个校验结果。 JZ HAMJMC ;汉明码无差错，信息有效。 JB F0,HAMJM8 ;差错判断。 MOV ERR,#0FFH ;发现两个差错，设立出错标志 LJMP HAMJMC
HAMJM8: INC A MOVC A,@A+PC ;一个差错，查表得到纠错位置码。 SJMP HAMJM9 DB 01H,02H,20H,04H DB 40H,80H,01H,08H DB 02H,04H,08H,10H DB 20H,40H,80H HAMJM9: XCH A,B INC A MOVC A,@A+PC SJMP HAMJMA DB 0,0,0,0,0,0,1,0 DB 1,1,1,1,1,1,1,0 HAMJMA: JNZ HAMJMB MOV A,B XRL A,R4 ;纠错处理。 MOV R4,A ;保存纠错后的汉明码。 SJMP HAMJMC HAMJMB: MOV A,B XRL A,R3 ;纠错处理。 MOV R3,A ;保存纠错后的汉明码。 HAMJMC: MOV A,R3 ; MOVX @R1,A INC R1 MOV A,R4 RLC A MOV R4,A MOV A,R5 RLC A MOV R5,A MOV A,R4 RLC A MOV R4,A MOV A,R6 RLC A MOV R6,A MOV A,R4 RLC A MOV R4,A MOV A,R7 RLC A MOV R7,A DEC R0 MOV A,R0 JZ HAMJMD LJMP HAMJM2 HAMJMD: MOV A,R5 MOVX @R1,A INC R1 MOV A,R6 MOVX @R1,A INC R1 MOV A,R7 MOVX @R1,A RET END

[liushu01]

不会,楼主还是自己做吧

[leonchew]

楼主，去汇编版主问问了。
也太长了吧。

[kaphoon]

给我100块
我可能考虑一下
100分值个屎