AB16-12T3

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

0445 01310 0 10 00000 CALL D$22 0446 01311 0 000605 DAC RCAL 0447 01312 0 10 00000 CALL A$22 0448 01313 0 000621 DAC K4 .0005 0449 01314 0 10 00000 CALL M$22 0450 01315 0 000617 DAC K3 1000. 0451 01316 0 10 00000 CALL H$22 0452 01317 0 000574 DAC TEMP 0453 01320 0 10 00000 CALL IFIX 0454 01321 0 000574 DAC TEMP 0455 01322 0 04 00567 STA PC 0456 * 0457 01323 0 02 00562 LDA IMEA 0458 01324 0 10 04123 JST V$OD CONVERT MEASURED MILLISECONDS 0459 01325 -0 003411 DAC* OPME+3 TO DECIMAL PRINT FIELD 0460 01326 0 02 00561 LDA ICAL 0461 01327 0 10 04123 JST V$OD CONVERT CALCULATED MILLISEC 0462 01330 -0 003420 DAC* OPMA+3 TO DECIMAL 0463 01331 0 02 00567 LDA PC 0464 01332 0 10 04123 JST V$OD CONVERT TO TIMES PERCENT 0465 01333 0 003433 DAC PCMA+3 TO DECIMAL POINT 0466 01334 0 02 03432 LDA PCMA+2 0467 01335 0 11 00716 CAS =A IF ONLY SINGLE DIGIT 0468 01336 100000 SKP UNSUPPRESS ONE LEADING ZERO 0469 01337 0 02 00670 LDA =A 0 0470 01340 0 04 03432 STA PCMA+2 0471 01341 0 02 03433 LDA PCMA+3 STUFF A DECIMAL POINT 0472 01342 141044 CAR IN FRONT OF RIGHT DIGIT 0473 01343 0 05 00667 ERA ='256 0474 01344 141340 ICA 0475 01345 0 04 03433 STA PCMA+3 0476 * 0477 01346 101000 NOP ROOM FOR PATCH 0478 01347 0 10 02574 JST OPCO TYPE IT TO DATE (MEAS, 0479 01350 0 003403 DAC MES5 CALC AND PER-CENT) 0480 01351 101000 NOP 0481 01352 0 02 00567 LDA PC IF THE PER CENT (IN TENTHS) 0482 01353 0 11 00666 CAS =70 IS OVER 70 THEN TYPE 0483 01354 0 01 01361 JMP STR7 THE 'REJECT' MESSAGE 0484 01355 101000 NOP 0485 01356 0 10 02574 JST OPCO ELSE TYPE THE 'OK' MESSAGE 0486 01357 0 003436 DAC MES6 0487 01360 0 01 01363 JMP STR6 0488 * 0489 01361 0 10 02574 STR7 JST OPCO 'REJECT - 7 % 0490 01362 0 003441 DAC MES7 EXCEEDED' 0491 * 0492 01363 101000 STR6 NOP 0493 01364 0 10 01517 JST STAB STABILITY (JITTER) TEST 0494 *