$AA2C/43564: Add Digit to FAC#1 Jump from $A9DE: AA2C: A0 02 LDY #$02 AA2E: B1 64 LDA ($64),Y ; FAC Mantissa AA30: C5 34 CMP $34 ; Pointer: Bottom of String space AA32: 90 17 BCC $AA4B AA34: D0 07 BNE $AA3D AA36: 88 DEY AA37: B1 64 LDA ($64),Y ; FAC Mantissa AA39: C5 33 CMP $33 ; Pointer: Bottom of String space AA3B: 90 0E BCC $AA4B Jump from $AA34: AA3D: A4 65 LDY $65 ; FAC Mantissa AA3F: C4 2E CPY $2E ; Pointer: Start of BASIC Variables AA41: 90 08 BCC $AA4B AA43: D0 0D BNE $AA52 AA45: A5 64 LDA $64 ; FAC Mantissa AA47: C5 2D CMP $2D ; Pointer: Start of BASIC Variables AA49: B0 07 BCS $AA52 Jump from $AA32, $AA3B, $AA41: AA4B: A5 64 LDA $64 ; FAC Mantissa AA4D: A4 65 LDY $65 ; FAC Mantissa AA4F: 4C 68 AA JMP $AA68 Jump from $AA43, $AA49: AA52: A0 00 LDY #$00 AA54: B1 64 LDA ($64),Y ; FAC Mantissa AA56: 20 75 B4 JSR $B475 ; Evaluate <str$> AA59: A5 50 LDA $50 ; Temporary storage for FLPT value AA5B: A4 51 LDY $51 ; Temporary storage for FLPT value AA5D: 85 6F STA $6F ; Sign of result of Arithmetic Evaluation AA5F: 84 70 STY $70 ; FAC low-order rounding AA61: 20 7A B6 JSR $B67A ; Store String in High RAM AA64: A9 61 LDA #$61 AA66: A0 00 LDY #$00 Jump from $AA4F: AA68: 85 50 STA $50 ; Temporary storage for FLPT value AA6A: 84 51 STY $51 ; Temporary storage for FLPT value AA6C: 20 DB B6 JSR $B6DB ; Clean Descriptor Stack AA6F: A0 00 LDY #$00 AA71: B1 50 LDA ($50),Y ; Temporary storage for FLPT value AA73: 91 49 STA ($49),Y ; Pointer: Index Variable for FOR/NEXT loop AA75: C8 INY AA76: B1 50 LDA ($50),Y ; Temporary storage for FLPT value AA78: 91 49 STA ($49),Y ; Pointer: Index Variable for FOR/NEXT loop AA7A: C8 INY AA7B: B1 50 LDA ($50),Y ; Temporary storage for FLPT value AA7D: 91 49 STA ($49),Y ; Pointer: Index Variable for FOR/NEXT loop AA7F: 60 RTS Previous Page / Next Page |