<> <> <> DIRECTORY IO, FS ; ScannerProm: CEDAR PROGRAM IMPORTS IO, FS EXPORTS ~ BEGIN usefull: ARRAY [0 .. 18) OF INT _ [4, 5, 6, 10B, 11B, 12B, 14B, 15B, 16B, 20B, 21B, 22B, 24B, 25B, 26B, 30B, 31B, 32B]; <<&2 _ -- S1 top XXX &2 _ EikonixImpl.GetIntegrationTime[] 5 &3 _ S1 mid XXX &3 _ EikonixImpl.GetIntegrationTime[] 4 &4 _ S1 bot XXX &4 _ EikonixImpl.GetIntegrationTime[] 6 &5 _ c2 top XXX &5 _ EikonixImpl.GetIntegrationTime[] 9 &6 _ c 2 mid XXX &6 _ EikonixImpl.GetIntegrationTime[] 8 &7 _ c2 bot XXX &7 _ EikonixImpl.GetIntegrationTime[] 10 &8 _ c3 top XXX &8 _ EikonixImpl.GetIntegrationTime[] 13 &9 _ c3 mid XXX &9 _ EikonixImpl.GetIntegrationTime[] 12 &10 _ c3 bot XXX &10 _ EikonixImpl.GetIntegrationTime[] 14 &11 _ c4 top XXX &11 _ EikonixImpl.GetIntegrationTime[] 17 &12 _ c4 mid XXX &12 _ EikonixImpl.GetIntegrationTime[] 16 &13 _ c4 bot XXX &13 _ EikonixImpl.GetIntegrationTime[] 18 &14 _ c5 top XXX &14 _ EikonixImpl.GetIntegrationTime[] 21 &15 _ c5 mid XXX &15 _ EikonixImpl.GetIntegrationTime[] 20 &16 _ c5 bot XXX &16 _ EikonixImpl.GetIntegrationTime[] 22 &17 _ c6 top XXX &17 _ EikonixImpl.GetIntegrationTime[] 25 &18 _ c6 mid XXX &18 _ EikonixImpl.GetIntegrationTime[] 24 &19 _ c6 bot XXX &19 _ EikonixImpl.GetIntegrationTime[] 26 &20 _ >> PrintTable: PROC [] = BEGIN data: ARRAY [0 .. 3777B] OF CARDINAL _ ALL [0]; baseArray: ARRAY [0 .. 8) OF INT _ [0, 400B, 1000B, 1400B, 2000B, 2400B, 3000B, 3400B]; s: IO.STREAM _ FS.StreamOpen["///Scanner/Prom.txt", read]; out: IO.STREAM; FOR i: INT IN [0 .. 3777B] DO mult: ARRAY [0 .. 7] OF CARDINAL _ [1, 2, 4, 8, 16, 32, 64, 128]; byte: INT _ IO.GetInt[s]; c: CHAR _ IO.GetChar[s]; IF c # ' THEN ERROR; FOR k: INT IN [0 .. 7] DO data[i] _ data[i] + (IF IO.GetChar[s] = '0 THEN 0 ELSE mult[k]); ENDLOOP; ENDLOOP; IO.Close[s]; out _ FS.StreamOpen["///Scanner/PromContents.txt", create]; FOR xyz: INT IN [0 .. 8) DO base: INT _ baseArray[xyz]; IO.PutF[out, "\nBase = %bB\n", IO.int[base]]; <> FOR i: INT IN [0 .. 77B] DO <> r: INT _ i * 2 + base; s: INT _ i * 2 + base + 200B; IO.PutF[out, "%g\t\t%g\t\t%bB\n", IO.card[data[r] + data[r+1] * 256], IO.card[data[s] + data[s+1] * 256], IO.int[i]]; ENDLOOP; ENDLOOP; IO.PutRope[out, "\n\n\n\n\n\n"]; FOR z: INT IN [0 .. 77B] DO IO.PutF[out, "%bB\t\t%g\n", IO.int[z], IO.card[((z * 4) + 3) * 256 + (z * 4) + 3]]; ENDLOOP; IO.Close[out]; END; PrintTable[]; END....