AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 11

0395 01245 0 000611 DAC TA 0396 * 0397 * RMEA=TA*RENS/125000. 0398 * 0399 01246 0 02 00572 LDA RENS 0400 01247 0 10 00000 CALL C$12 0401 01250 0 10 00000 CALL M$22 0402 01251 0 000611 DAC TA 0403 01252 0 10 00000 CALL D$22 0404 01253 0 000615 DAC K2 125000. 0405 01254 0 10 00000 CALL H$22 0406 01255 0 000607 DAC RMEA 0407 * 0408 * IMEA=IFIX(RMEA) 0409 * 0410 01256 0 10 00000 CALL IFIX 0411 01257 0 000607 DAC RMEA 0412 01260 0 04 00562 STA IMEA 0413 * 0414 * RCAL=(FLOAT(DINC)/FLOAT(DCPS))*1000. 0415 * 0416 01261 0 10 00000 CALL FLOAT 0417 01262 0 000544 DAC DCPS 0418 01263 0 10 00000 CALL H$22 0419 01264 0 000574 DAC TEMP 0420 01265 0 10 00000 CALL FLOAT 0421 01266 0 000545 DAC DINC 0422 01267 0 10 00000 CALL D$22 0423 01270 0 000574 DAC TEMP 0424 01271 0 10 00000 CALL M$22 0425 01272 0 000617 DAC K3 1000. 0426 01273 0 10 00000 CALL H$22 0427 01274 0 000605 DAC RCAL 0428 * 0429 * ICAL=IFIX(RCAL) 0430 * 0431 01275 0 10 00000 CALL IFIX 0432 01276 0 000605 DAC RCAL 0433 01277 0 04 00561 STA ICAL 0434 * 0435 * IPCT=IFIX(1000.*((ABS(RCAL-RMEA)/RCAL)+.0005)) 0436 * 0437 01300 0 10 00000 CALL L$22 0438 01301 0 000605 DAC RCAL 0439 01302 0 10 00000 CALL S$22 0440 01303 0 000607 DAC RMEA 0441 01304 0 10 00000 CALL H$22 0442 01305 0 000574 DAC TEMP 0443 01306 0 10 00000 CALL ABS 0444 01307 0 000574 DAC TEMP