$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