I've got six older Ocean Optics spectrometers and their spectral readouts definitely look much better.
Oh heck yea. I just got tired of messing around and needed something that worked everytime. For the money you can't go wrong.
Yes kecked, the ocean optics are very good devices, but here in this threat there are already people who want to talk about this old b&w-tek and they are not tired to play a little bit with also some results here ... ?
Hi, maybe you could test this here ...
Hi chloderic,
I remember programming in QB.
int Decompress(signed char *din, unsigned short *dout, int n){
unsigned short i;
int pcount,x,y;
signed char di;
//n must be ≤ size of din
pcount=0;
y=0;
i=0;
for(x=0;x<n;x++){
di=din[x];
if(di==-128 && y==0)
y=3;
if(y==0){
i+=di;
dout[pcount++]=i;
}
if(y){
if(y==1){
i|=(unsigned char)di;
dout[pcount++]=i;
}
if(y==2){
i=(unsigned char)di;
i=i<<8;
}
y--;
}
}
return pcount; //return number of 16 bit words decompressed
}.global _Compress ;Compresses n words at a time. Max bytes out is n*3;
_Compress:
;w0 Pointer of input array. Also, return value for number of bytes written.
;w1 Pointer of output array.
;w2 Number of words to process.
;w3 Resets memory of previous word.
push w1; save addr to stack
cp0 w3
bra z,skipclear
clr PrevWord
skipclear:
mov w2,w3
mov PrevWord,w2
DO W3, CompLoop
mov [w0++],w3
sub w3,w2,w2;previous word - current word
mov.b w2,[w1++];put lower half into output array. Will get overwritten if > |127|
btsc W2,#15;could also check status reg for neg status
neg w2,w2; abs value
cp W2,#128
bra ltu, Skip3byte
mov.b #128,w2
mov.b w2,[w1-1]
swap w3
mov.b w3,[w1++]
swap w3
mov.b w3,[w1++]
Skip3byte:
mov w3,w2
CompLoop:
nop
mov w2,PrevWord
Mov w1,w2;
pop w1;get addr
sub w2,w1,w0;get number of bytes written
return