$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