main.bas

用VB编的51单片机反汇编程序

        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL " + SOp + ",A"
        CP.Label = MyTab
    Case 83
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL " + SOp + ",#"
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 84
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL A,#" + SOp
        CP.Label = MyTab
    Case 85
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL A," + SOp
        CP.Label = MyTab
    Case 86
        NonASM = CP.Label + "ANL A,@R0"
        CP.Label = MyTab
    Case 87
        NonASM = CP.Label + "ANL A,@R1"
        CP.Label = MyTab
    Case 88 To 95
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "ANL A,R" + SOp
        CP.Label = MyTab
    Case 96
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = RelAddrFunc(Op)
        NonASM = CP.Label + "JZ " + SOp
        CP.Label = MyTab
    Case 98
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "XRL " + SOp + ",A"
        CP.Label = MyTab
    Case 99
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "XRL " + SOp + ",#"
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 100
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "XRL A,#" + SOp
        CP.Label = MyTab
    Case 101
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "XRL A," + SOp
        CP.Label = MyTab
    Case 102
        NonASM = CP.Label + "XRL A,@R0"
        CP.Label = MyTab
    Case 103
        NonASM = CP.Label + "XRL A,@R1"
        CP.Label = MyTab
    Case 104 To 111
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "XRL A,R" + SOp
        CP.Label = MyTab
    Case 112
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = RelAddrFunc(Op)
        NonASM = CP.Label + "JNZ " + SOp
        CP.Label = MyTab
    Case 114
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ORL C," + SOp
        CP.Label = MyTab
    Case 115
        NonASM = CP.Label + "JMP @A+DPTR"
        CP.Label = MyTab
    Case 116
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV A,#" + SOp
        CP.Label = MyTab
    Case 117
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + ",#"
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 118
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV @R0,#" + SOp
        CP.Label = MyTab
    Case 119

        CP.Label = MyTab
    Case 120 To 127
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "MOV R" + SOp + ",#"
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 128
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = RelAddrFunc(Op)
        NonASM = CP.Label + "SJMP " + SOp
        CP.Addr = -1
        CP.Label = MyTab
    Case 130
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL C," + SOp
        CP.Label = MyTab
    Case 131
        NonASM = CP.Label + "MOVC A,@A+PC"
        CP.Label = MyTab
    Case 132
        NonASM = CP.Label + "DIV AB"
        CP.Label = MyTab
    Case 133
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + "," '指令为 75，重点！！！！
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 134
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + ",@R0"
        CP.Label = MyTab
    Case 135
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + ",@R1"
        CP.Label = MyTab
    Case 136 To 143
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + ",R"
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 144
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        Op = 256 * Op + BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV DPTR,#" + SOp
        CP.Label = MyTab
    Case 146
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV " + SOp + ",C"
        CP.Label = MyTab
    Case 147
        NonASM = CP.Label + "MOVC A,@A+DPTR"
        CP.Label = MyTab
    Case 148
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "SUBB A,#" + SOp
        CP.Label = MyTab
    Case 149
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "SUBB A," + SOp
        CP.Label = MyTab
    Case 150
        NonASM = CP.Label + "SUBB A,@R0"
        CP.Label = MyTab
    Case 151
        NonASM = CP.Label + "SUBB A,@R1"
        CP.Label = MyTab
    Case 152 To 159
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "SUBB A,R" + SOp
        CP.Label = MyTab
    Case 160
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ORL C,/" + SOp
        CP.Label = MyTab
'       NonASM = "ORL C,/" + Addr$
    Case 162
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV C," + SOp
        CP.Label = MyTab
'       NonASM = "MOV C," + Addr$
    Case 163
        NonASM = CP.Label + "INC DPTR"
        CP.Label = MyTab
    Case 164
        NonASM = CP.Label + "MUL AB"
        CP.Label = MyTab
    Case 166
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV @R0," + SOp
        CP.Label = MyTab
'       NonASM = "MOV @R0," + Addr$
     Case 167
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "MOV @R1," + SOp
        CP.Label = MyTab
'       NonASM = "MOV @R1," + Addr$
    Case 168 To 175
        CP.Addr = CP.Addr + 1
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "MOV R" + SOp + ","
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 176
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "ANL C,/" + SOp
        CP.Label = MyTab
    Case 178
        CP.Addr = CP.Addr + 1
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "CPL" + SOp
        CP.Label = MyTab
'       NonASM = "CPL " + Addr$
    Case 179
        NonASM = CP.Label + "CPL C"
        CP.Label = MyTab
    Case 180
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "CJNE A,#" + SOp + ","
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = RelAddrFunc(Op) '计算rel,得到addr$
        NonASM = NonASM + SOp
        CP.Label = MyTab
    Case 181
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "CJNE A," + SOp + ","
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = RelAddrFunc(Op) '计算rel,得到addr$
        NonASM = NonASM + SOp
        CP.Label = MyTab
'       NonASM = "CJNE A," + a$ + "," + Addr$
    Case 182
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "CJNE @R0,#" + SOp + ","
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = RelAddrFunc(Op) '计算rel,得到addr$
        NonASM = NonASM + SOp
        CP.Label = MyTab
'       NonASM = "CJNE @R0,#" + a$ + "," + Addr$
    Case 183
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)
        NonASM = CP.Label + "CJNE @R1,#" + SOp + ","
        Op = BD(Addr + 2).D
        BD(Addr + 2).F = True
        SOp = RelAddrFunc(Op) '计算rel,得到addr$
        NonASM = NonASM + SOp
        CP.Label = MyTab
'       NonASM = "CJNE @R1,#" + a$ + "," + Addr$
    Case 184 To 191
        Op = Dt Mod 16
        SOp = Hex(Op Mod 8)
        NonASM = CP.Label + "CJNE R" + SOp + ",#"
        CP.Addr = CP.Addr + 2
        Op = BD(Addr + 1).D
        BD(Addr + 1).F = True
        SOp = MyHex(Op)