$B63D/46653: Concatenate Two Strings
Jump from $ADE5:
B63D: A5 65 LDA $65 ; FAC Mantissa
B63F: 48 PHA
B640: A5 64 LDA $64 ; FAC Mantissa
B642: 48 PHA
B643: 20 83 AE JSR $AE83 ; Evaluate Single Term
B646: 20 8F AD JSR $AD8F ; Confirm Result
B649: 68 PLA
B64A: 85 6F STA $6F ; Sign of result of Arithmetic Evaluation
B64C: 68 PLA
B64D: 85 70 STA $70 ; FAC low-order rounding
B64F: A0 00 LDY #$00
B651: B1 6F LDA ($6F),Y ; Sign of result of Arithmetic Evaluation
B653: 18 CLC
B654: 71 64 ADC ($64),Y ; FAC Mantissa
B656: 90 05 BCC $B65D
B658: A2 17 LDX #$17
B65A: 4C 37 A4 JMP $A437 ; Error Routine
Jump from $B656:
B65D: 20 75 B4 JSR $B475 ; Evaluate <str$>
B660: 20 7A B6 JSR $B67A ; Store String in High RAM
B663: A5 50 LDA $50 ; Temporary storage for FLPT value
B665: A4 51 LDY $51 ; Temporary storage for FLPT value
B667: 20 AA B6 JSR $B6AA ; Perform String Housekeeping
B66A: 20 8C B6 JSR $B68C ; Store String in High RAM
B66D: A5 6F LDA $6F ; Sign of result of Arithmetic Evaluation
B66F: A4 70 LDY $70 ; FAC low-order rounding
B671: 20 AA B6 JSR $B6AA ; Perform String Housekeeping
B674: 20 CA B4 JSR $B4CA ; Set Up String
B677: 4C B8 AD JMP $ADB8 ; Evaluate Expression in Text
Previous Page / Next Page