Thanks,
I am using a work-around for the firmware problem:
' This code is a work-around for the firmware problem.
'
' The following code is equivalent to this statement:
' RSHIFT DM[1],4
'
for j = 1 to 3 ' worry about carry in for first 3 registers
RSHIFT DM[j],1
if testbit(DM[j+1],0)
setbit DM[j],15 ' Carry-in will be a 1
else
clrbit DM[j],15 ' Carry-in will be a 0
endif
next
RSHIFT DM[j],1 ' No carry into most significant register
[/color][/font]
This will keep me working until I get new hardware,
Gary D.