$B737/46903:   Evaluate <mid$>

B737: A9 FF     LDA #$FF
B739: 85 65     STA $65       ; FAC Mantissa
B73B: 20 79 00  JSR $0079     ; CHRGOT: Get same Byte again
B73E: C9 29     CMP #$29
B740: F0 06     BEQ $B748
B742: 20 FD AE  JSR $AEFD     ; Test ','
B745: 20 9E B7  JSR $B79E     ; Evaluate Text to 1 Byte in XR

Jump from $B740:

B748: 20 61 B7  JSR $B761     ; Pull String Parameters
B74B: F0 4B     BEQ $B798     ; Evaluate <asc>
B74D: CA        DEX
B74E: 8A        TXA
B74F: 48        PHA
B750: 18        CLC
B751: A2 00     LDX #$00
B753: F1 50     SBC ($50),Y   ; Temporary storage for FLPT value
B755: B0 B6     BCS $B70D     ; Evaluate <left$>
B757: 49 FF     EOR #$FF
B759: C5 65     CMP $65       ; FAC Mantissa
B75B: 90 B1     BCC $B70E     ; Evaluate <left$>
B75D: A5 65     LDA $65       ; FAC Mantissa
B75F: B0 AD     BCS $B70E     ; Evaluate <left$>

    Previous Page / Next Page