Teledyne 7500 Instruction Manual page 39

Teledyne Analytical Instruments
2150 Case 2
2160 UNIT="mg/m3"
2170 Case 3
2180 UNIT="g/m3"
2190 End Select
2200
2210 Print "CH1 measurement concentration =";CONC;UNIT
2220
2230 END
3000 '
3010 '------------ CRC calculation ------------------------------
3020 *CRC.CALC ' For contents, refer to CRC calculation flow chart
3030 CR=&HFFFF
3040 FOR I=1 TO COUNT
3050 CR=CR XOR CC(I)
3060 FOR J=1 TO 8
3070 CT=CR AND &H1
3080 IF CR<0 THEN CH=1 ELSE CH=0:GOTO *CRC.CALC.10
3090 CR=CR AND &H7FFF
3100 *CRC.CALC.10
3110 CR=INT(CR/2)
3120 IF CH=1 THEN CR=CR OR &H4000
3130 IF CT=1 THEN CR=CR XOR &HA001
3140 NEXT J
3150 NEXT I
3160 CRC.L=CR AND &HFF ' Lower byte of CRC calculation
3170 CRC.H=((CR AND &HFF00)/256 AND &HFF) ' Upper byte of CRC
calculation
3180 RETURN
39