O16-DECL

* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 12

0539 00536 0 000000 ECNT DAC 0 X 0540 00537 0 000000 E1S DAC 0 X 0541 00540 0 000000 B1S DAC 0 X 0542 00541 0 000000 BCNT DAC 0 X 0543 00542 0 000000 ESGN DAC 0 X 0544 00543 0 000000 BSGN DAC 0 X 0545 00544 0 000000 OCNT DAC 0 X 0546 00545 0 000000 EFLG DAC 0 X 0547 00546 0 000000 PROD DAC 0 X 0548 00547 0 000000 CBIT DAC 0 X 0549 00550 0 000000 EXP DAC 0 X 0550 00551 0 000000 BFLG DAC 0 X O550 0551 00552 177763 M15 OCT 177763 0552 00553 177600 MBR7 OCT 177600 X 0553 00554 177400 MBR8 OCT 177400 X 0554 00555 0 000151 SWX DAC DEC1 RESET VALUE FOR SWITCH 0555 00556 077700 KX OCT 77700 MASK 0556 00557 000001 Q1 OCT 1 X 0557 * 0558 00560 0 000000 DECI DAC *-* 0559 00561 0 02 00555 LDA SWX RESET SWITCH 0560 00562 0 04 00227 STA SW X 0561 00563 0 35 01116 LDX =-15 PREPARE TO CLEAR CRITICAL CELLS 0562 00564 140040 CRA X 0563 00565 0 04 00000 STA ERD CLEAR ERROR INDICATOR 0564 00566 1 04 00552 STA PNT+15,1 CLEAR A CELL 0565 00567 0 12 00000 IRS 0 BUMP COUNTER 0566 00570 0 01 00566 JMP *-2 GO BACK TO CLEAR ANOTHER ONE 0567 00571 -0 01 00560 JMP* DECI 0568 * 0569 00572 000200 K200 OCT 200 X 0570 * 0571 00573 0 02 00543 FIX LDA BSGN TEST THE B-FIELD SIGN 0572 00574 101040 SNZ X 0573 00575 0 01 00601 JMP *+4 OK - IT IS POSITIVE 0574 00576 140040 CRA COMPLEMENT THE 0575 00577 0 07 00541 SUB BCNT SCALE FACTOR 0576 00600 0 04 00541 STA BCNT X 0577 00601 0 02 00550 LDA EXP FORM THE SCALING SHIFT 0578 00602 0 07 00572 SUB K200 X 0579 00603 0 07 00541 SUB BCNT X 0580 00604 0 04 00541 STA BCNT 0581 00605 101400 SMI TEST FOR CORRECT SENSE 0582 00606 0 01 00631 JMP FIX2 POSSIBLE ERROR 0583 00607 140040 CRA CLEAR ANY HIGH ORDER BITS 0584 00610 0 04 00546 STA PROD X 0585 00611 0 10 01065 JST LRS1 RIGHT SHIFT 1 0586 00612 0 12 00541 IRS BCNT TEST FOR END 0587 00613 0 01 00611 JMP *-2 NOT YET 0588 00614 0 02 00000 FIX1 LDA WCNT TRUNCATE TO CORRECT SIZE