INFO - FAQ - CC2-Forum - CCPro-Forum |
Hello, Try this out. Greetings, H.J. Windt define nr byte[1] define loop byte[2] define variable word[2] for nr = 0 to 5 looktab cheksum, nr, variable gosub print_hex next end #print_hex put &h26 : put &h68 for loop = 0 to 15 if (variable shr 12) = loop then if loop < 10 then put loop + &h30 else put loop + &h37 next for loop = 0 to 15 if ((variable shr 8) - (variable shr 12 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37 next for loop = 0 to 15 if ((variable shr 4) - (variable shr 8 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37 next for loop = 0 to 15 if (variable - (variable shr 4 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37 next print"" return Table cheksum &H0123 &H4567 &H89AB &HCDEF 65535 0 tabend |
Antwort schreiben |