$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