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 |