| 7089 | * NUMVAL NUMERICAL VALUE TAKES ANY LIST AND DECIDES IF IT | 7090 | * REPRESENTS A FIXED POINT OR FLOATING POINT NUMBER. IF IT DOES NOT | 7091 | * THE ROUTINE CLEARS THE AC AND MQ DOES AN XEC 1,4 AND THEN GOES | 7092 | * TO ERROR WITH A BAD ARGUMENT COMPLAINT. IF THE LIST DOES | 7093 | 7094 | * REPRESENT A NUMBER, UPON EXIT THE FOLLOWING THINGS ARE LEFT | 7095 | * AS INDICATED POINTER TO FULL WORD IN AC | 7096 | * $FIX OR $FLOAT IN MQ |
| 14342 | 0634 00 4 14372 | 7097 | NUMVAL | SXA | NVIR4,4 SAVE LINK IR |
| 12734 | 0074 00 4 14342 | 6195 | TSX | NUMVAL,4 GET NUMBER FOR THIS ELEMENT | ||
| 12774 | 0074 00 4 14342 | 6241 | TSX | NUMVAL,4 | ||
| 13352 | 0074 00 4 14342 | 6538 | TSX | NUMVAL,4 NUMERICALLY EVALUATE THE FIRST ARG | ||
| 13360 | 0074 00 4 14342 | 6544 | TSX | NUMVAL,4 NUMERICALLY EVALUATE IT | ||
| 14172 | 0074 00 4 14342 | 6983 | TSX | NUMVAL,4 EVALUATE THE ITEM | ||
| 14405 | 0074 00 4 14342 | 7138 | TSX | NUMVAL,4 EVALUTE NUMERICAL ARGUMENT | ||
| 14446 | 0074 00 4 14342 | 7190 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14455 | 0074 00 4 14342 | 7200 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14470 | 0074 00 4 14342 | 7213 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14501 | 0074 00 4 14342 | 7225 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14511 | 0074 00 4 14342 | 7237 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14535 | 0074 00 4 14342 | 7259 | TSX | NUMVAL,4 EVALUATE ARGUMENT | ||
| 14625 | 0074 00 4 14342 | 7333 | TSX | NUMVAL,4 EVALUATE THE NUMERICAL ARGUMENT | ||
| 14635 | 0074 00 4 14342 | 7343 | TSX | NUMVAL,4 EVALUTE THE NUMERICAL ARGUMENT | ||
| 16352 | 0074 00 4 14342 | 8347 | TSX | NUMVAL,4 GET NUMERICAL VALUE | ||
| 16646 | 0074 00 4 14342 | 8563 | NEVAL | TSX | NUMVAL,4 |