AB16-12T3

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

0345 01202 000000 HLT 0346 01203 0 01 01123 JMP BYOM GO TO PROGRAM START 0347 * 0348 01204 101000 STR4 NOP HERE VIA INT1 AND RET1 0349 01205 0 02 02031 LDA RET2 POINT NEXT RETURN TO STR5 0350 01206 0 04 02027 STA RETO 0351 01207 0 02 00531 LDA CINX PUT IN THE NUMBER OF 0352 01210 0 04 00061 STA '61 CYCLES ASKED FOR BY OPERATOR 0353 01211 140040 CRA PREPARE A DOUBLE WORD COUNTER 0354 01212 000201 IAB IN THE A AND B REGS 0355 01213 140040 CRA AND WAIT UNTIL INTERRUPTED OUT OF LOOP 0356 * 0357 01214 001001 TMDL INH 0358 01215 000201 IAB ONE COUNT IN 30 BIT PLUS SIGN 0359 01216 141206 AOA DOUBLE PRECISION COUNTER 0360 01217 140100 SSP EVERY EIGHT INSTRUCTION TIMES 0361 01220 000401 ENB 0362 01221 000201 IAB ON INTERRUPT GO VIA INT1 TO STR5 BELOW 0363 01222 141216 ACA 0364 01223 0 01 01214 JMP TMDL 0365 * 0366 * MAX COUNT 6,250,000 (400 NS, 50 HZ, 1000 CYCLES) 0367 * MIN COUNT 78 (1000 NS, 1000 HZ, 1 CYCLE) 0368 * 716 COUNT 1,610,000 (775 NS, 60 HZ, 600 CYCLES) 0369 * 0370 01224 101000 STR5 NOP ROOM FOR PATCH 0371 01225 14 0220 OCP '220 TURN OFF CLOCK 0372 01226 0 04 00541 STA CNTC HIGH ORDER 0373 01227 000201 IAB 0374 01230 0 04 00540 STA CNTB LOW ORDER 0375 01231 101000 NOP ROOM FOR PATCH 0376 * 0377 * PRINT THE MEASURED TIME FROM LOOP, THE CALCULATED TIME (FROM 0378 * DINC AND DCPS) AND THE PER-CENT VARIATION BETWEEN THEM. 0379 * 0380 * REAL IA,K1,K2,RMEA,TEMP,K3,RCAL,K4,K5 0381 * INTEGER CNTB,CNTC,RENS,DINC,DCPS,PC 0382 * TA=(FLOAT(CNTC)*32767.)+FLOAT(CNTB) 0383 * 0384 01232 0 10 00000 CALL FLOAT 0385 01233 0 000540 DAC CNTB 0386 01234 0 10 00000 CALL H$22 0387 01235 0 000611 DAC TA 0388 01236 0 10 00000 CALL FLOAT 0389 01237 0 000541 DAC CNTC 0390 01240 0 10 00000 CALL M$22 0391 01241 0 000613 DAC K1 32767. 0392 01242 0 10 00000 CALL A$22 0393 01243 0 000611 DAC TA 0394 01244 0 10 00000 CALL H$22