Previous File Previous Page Single Page Next Page Next File

* NAME BASIC-MTHPAK DOC. 70181832000 REV. A PAGE 11

0309 * 0310 * 0311 * TWO'S COMPLIMENT A FLOATING POINT NUMBER 0312 * 0313 * CALLING SEQUENCE: 0314 * 0315 * JST N$22 FLOATING POINT IN A AND B REGISTERS 0316 * ......RETURN TWOS COMPLIMENTED FLOATING POINT IN A AND 0317 * B REGISTERS 0318 * 0319 * 0320 * THE C BIT IS SET AFTER ENTRANCE TO THIS ROUTINE TO PROVIDE A 0321 * TRUE TWO'S COMPLIMENT IF THE LOW ORDER WORD IS ZERO. IF IT IS 0322 * FOUND TO BE NON-ZERO, THE C BIT IS RESET. THE LOW ORDER WORD IS 0323 * TWO'S COMPLIMENTED. THE HIGH ORDER WORD IS ONE'S COMPLIMENTED, 0324 * AND THE C BITS IS ADDED. 0325 * 0326 * 0327 00122 0 000000 N$22 DAC ** FLOATING POINT TWO'S COMPLIMENT ENTRY 0328 00123 140600 SCB SET CARRY INDICATOR 0329 00124 000201 IAB LOAD LOW 0330 00125 100040 SZE TEST ZERO 0331 00126 140200 RCB IF NOT, RESET CARRY INDICATOR 0332 00127 140407 TCA TWO'S COMPLIMENT 0333 00130 000201 IAB LOAD HIGH 0334 00131 140401 CMA ONE'S COMPLIMENT 0335 00132 141216 ACA ADD CARRY 0336 00133 -0 01 00122 JMP* N$22 RETURN 0337 EJCT
Previous File Previous Page Single Page Next Page Next File