Previous Page Single Page Next Page  

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

0595 01515 0 35 00573 OUTH LDX SAVE 0596 01516 -0 01 01474 JMP* SORT 0597 * 0598 * STABILITY (JITTER) TEST 0599 * 0600 01517 0 000000 STAB DAC ** 0601 01520 0 10 02552 JST LFCR 0602 01521 0 10 02552 JST LFCR 0603 01522 0 10 02574 JST OPCO TYPE 'STABILITY TEST' 0604 01523 0 003623 DAC STME 0605 01524 000011 DXA INSURE NORMAL MODE 0606 01525 0 01 01526 JMP *+1 FOR INDEXING TO FOLLOW 0607 01526 0 35 00662 LDX =-23 CLEAR THE RESULT TABLE 0608 01527 140040 CRA 0609 01530 1 04 00530 STA BUCK+23,1 0610 01531 0 12 00000 IRS ** 0611 01532 0 01 01530 JMP *-2 0612 01533 0 02 00671 LDA =1 0613 01534 0 04 00500 STA AVG ACCOUNTS FOR RTC BREAKS 0614 01535 14 0220 OCP '220 CLEAR ANY CLOCK ACTION 0615 01536 0 02 02040 LDA RET9 0616 01537 0 10 02056 JST SIL SIL DOES STA '63 THRU '77 0617 01540 000401 ENB ALLOW ANY OLD PI RUPT 0618 01541 101000 NOP REQUEST TO FLUSH THRU 0619 01542 101000 NOP 0620 01543 001001 INH 0621 01544 100000 SKP IF NO RUPT THEN SKIP OVER DAC 0622 * 0623 01545 0 000000 STAC DAC ** PI RUPT IS CLEARED 0624 * 0625 01546 0 02 00672 LDA =-1 SET TO SYNC ON NEXT 0626 01547 0 04 00061 STA '61 CLOCK CYCLE 0627 01550 0 02 02036 LDA RET7 SET RUPT HANDLER TO 0628 01551 0 04 02027 STA RETO RETURN TO STAD 0629 01552 0 02 02026 LDA INTO SET INTERRUPT LOCATIONS 0630 01553 0 10 02056 JST SIL '63 THRU '77 TO RUPT HANDLER 0631 01554 14 0020 OCP '20 TURN ON CLOCK 0632 01555 0 02 00671 LDA =1 SET MASK BIT ON 0633 01556 74 0020 SMK '20 0634 01557 0 02 00714 LDA =22 AND ENABLE BREAKS WITH 0635 01560 000401 ENB A WAIT LOOP OF 22 MILLISEC 0636 01561 0 10 02206 JST DLYL 0637 * 0638 01562 001001 INH OH-OH NO RUPT IN 22 0639 01563 14 0220 OCP '220 MILLISEC 0640 01564 0 10 02541 JST ERPO PRINTOUT ERROR MESSAGE 0641 01565 0 003601 DAC MER4 0642 01566 000000 HLT 0643 01567 0 01 01123 JMP BYOM BACK TO START 0644 *
  Previous Page Single Page Next Page