O16-DECL

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

0439 00373 0 02 00551 LDA BFLG TEST FOR FIXED POINT 0440 00374 100040 SZE X 0441 00375 0 01 00402 JMP *+5 IT IS FIXED POINT 0442 00376 0 02 00545 LDA EFLG TEST FOR ASSUMED 0443 00377 101040 SNZ FLOATING POINT 0444 00400 0 02 00557 LDA Q1 FORCE SINGLE FLOATING POINT 0445 00401 0 06 00557 ADD Q1 CORRECT THE WORD COUNT 0446 00402 0 04 00000 STA WCNT SET THE CORRECT WORD COUNT 0447 00403 0 02 00000 LDA NUM TEST FOR ZERO 0448 00404 0 06 00000 ADD NUM1 X 0449 00405 101040 SNZ X 0450 00406 0 06 00000 ADD NUM2 X 0451 00407 101040 SNZ X 0452 00410 0 01 00523 JMP END RESULT IS ZERO. CONVERSION DONE 0453 00411 0 10 00753 JST NRM NORMALIZE THE REGISTER 0454 00412 0 02 00361 LDA K255 FORM A FLOATING POINT 0455 00413 0 07 00752 SUB SCNT QUANTITY 0456 00414 0 04 00550 STA EXP X 0457 00415 0 02 00542 LDA ESGN FORM THE CORRECT 0458 00416 101040 SNZ DECIMAL EXPONENT 0459 00417 0 01 00423 JMP *+4 OK - IT IS POSITIVE 0460 00420 140040 CRA IT IS NEGATIVE 0461 00421 0 07 00536 SUB ECNT FORM THE COMPLEMENT 0462 00422 -0 000000 SKP DAC* 0 SKP 0463 00423 0 02 00536 LDA ECNT NOW FORM THE 0464 00424 0 06 00544 ADD OCNT TRUE NET DECIMAL 0465 00425 0 07 00535 SUB PCNT EXPONENT 0466 00426 101040 SNZ TEST IT 0467 00427 0 01 00445 JMP CVT1 NET EXPONENT IS ZERO 0468 00430 0 04 00536 STA ECNT SAVE THE NET EXPONENT 0469 00431 100400 SPL TEST FOR MPY OR DVD 0470 00432 0 01 00725 JMP DVD DIVIDE 0471 00433 140040 CRA ASSURE OVERFLOW BITS ZERO 0472 00434 0 04 00546 STA PROD X 0473 00435 0 07 00536 SUB ECNT MAKE A COUNTER OUT 0474 00436 0 04 00536 STA ECNT OF THE EXPONENT VALUE 0475 00437 0 10 01022 JST M10 MULTIPLY BY TEN 0476 00440 0 10 01065 JST LRS1 NORMALIZE THE RESULT 0477 00441 100040 SZE TEST FOR COMPLETION 0478 00442 0 01 00440 JMP *-2 NOT YET 0479 00443 0 12 00536 IRS ECNT ANY MORE MULTIPLIES 0480 00444 0 01 00437 JMP *-5 YES 0481 00445 0 02 00551 CVT1 LDA BFLG TEST FOR FIXED POINT 0482 00446 100040 SZE X 0483 00447 0 01 00573 JMP FIX IT IS FIXED POINT 0484 00450 0 02 00550 LDA EXP FLOATING POINT 0485 00451 0 03 00554 ANA MBR8 TEST FOR A 0486 00452 100040 SZE VALID EXPONENT 0487 00453 0 04 00000 STA ERD MARK THE ERROR 0488 00454 0 05 00550 ERA EXP X