Previous File Previous Page Single Page Next Page Next File

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

0075 * 0076 * 0077 * SIGN FUNCTION 0078 * 0079 * CALLING SEQUENCE: 0080 * 0081 * JST SGNF 0082 * DAC ARG ADDRESS OF THE ARGUMENT 0083 * ......RETURN RESULT RETURNED IN THE A AND B REGISTERS 0084 * 0085 * 0086 * THE ARGUMENT IS LOADED, AND IF ZERO, THE ROUTINE EXITS WITH 0087 * ZERO. OTHERWISE THE SIGN IS STORED INTO THE C BIT, AND FLOATING 0088 * ONE IS LOADED. IF THE C BIT IS SET, THE A REGISTER IS TWO'S COM- 0089 * PLIMENTED TO GENERATE FLOATING POINT MINUS ONE. 0090 * 0091 * 0092 00000 0 000000 SGNF DAC ** ENTRY 0093 00001 0 02 00000 LDA SGNF LOAD THE ARGUMENT 0094 00002 0 10 00070 JST LARG X 0095 00003 101040 SNZ SKIP IF NON-ZERO 0096 00004 -0 01 00120 JMP* LHTS+1 IF ZERO, RETURN WITH ZERO 0097 00005 140320 CSA STORE ARGUMENT SIGN IN C BIT 0098 00006 140040 CRA LOAD FLOAIING POINT ONE 0099 00007 000201 IAB X 0100 00010 0 02 01144 LDA F1 X 0101 00011 100001 SRC SKIP IF SIGN IS POSITIVE 0102 00012 140407 TCA TWO'S COMPLIMENT TO GENERATE FLOATING POINT 0103 * MINUS ONE IF SIGN IS NEGATIVE 0104 00013 -0 01 00120 JMP* LHTS+1 RETURN 0105 EJCT
Previous File Previous Page Single Page Next Page Next File