| C64 ROM | Routines |
| Prev: AE43 | Up: Map | Next: AE83 |
|
Used by the routine at AD9E.
|
||||
| AE58 | A0 FF | LDY #$FF | flag function | |
| AE5A | 68 | PLA | pull precedence byte | |
|
This entry point is used by the routine at AD9E.
|
||||
| AE5B | F0 23 | BEQ $AE80 | exit if done | |
|
This entry point is used by the routine at AD9E.
|
||||
| AE5D | C9 64 | CMP #$64 | compare previous precedence with $64 | |
| AE5F | F0 03 | BEQ $AE64 | branch if was $64 (< function) | |
| AE61 | 20 8D AD | JSR $AD8D | check if source is numeric, else do type mismatch | |
| AE64 | 84 4B | STY $4B | save precedence stacked flag | |
|
This entry point is used by the routine at AD9E.
pop FAC2 and return
|
||||
| AE66 | 68 | PLA | pop byte | |
| AE67 | 4A | LSR A | shift out comparison evaluation lowest bit | |
| AE68 | 85 12 | STA $12 | save the comparison evaluation flag | |
| AE6A | 68 | PLA | pop exponent | |
| AE6B | 85 69 | STA $69 | save FAC2 exponent | |
| AE6D | 68 | PLA | pop mantissa 1 | |
| AE6E | 85 6A | STA $6A | save FAC2 mantissa 1 | |
| AE70 | 68 | PLA | pop mantissa 2 | |
| AE71 | 85 6B | STA $6B | save FAC2 mantissa 2 | |
| AE73 | 68 | PLA | pop mantissa 3 | |
| AE74 | 85 6C | STA $6C | save FAC2 mantissa 3 | |
| AE76 | 68 | PLA | pop mantissa 4 | |
| AE77 | 85 6D | STA $6D | save FAC2 mantissa 4 | |
| AE79 | 68 | PLA | pop sign | |
| AE7A | 85 6E | STA $6E | save FAC2 sign (b7) | |
| AE7C | 45 66 | EOR $66 | EOR FAC1 sign (b7) | |
| AE7E | 85 6F | STA $6F | save sign compare (FAC1 EOR FAC2) | |
| AE80 | A5 61 | LDA $61 | get FAC1 exponent | |
| AE82 | 60 | RTS | ||
| Prev: AE43 | Up: Map | Next: AE83 |