$BE68/48744: Convert TI to String
Jump from $AF56:
BE68: A2 80 LDX #$80
Jump from $BE8A, $BE8E, $BEC2:
BE6A: A5 65 LDA $65 ; FAC Mantissa
BE6C: 18 CLC
BE6D: 79 19 BF ADC $BF19,Y ; Table of Constants 4-byte powers of 10
BE70: 85 65 STA $65 ; FAC Mantissa
BE72: A5 64 LDA $64 ; FAC Mantissa
BE74: 79 18 BF ADC $BF18,Y ; Table of Constants 4-byte powers of 10
BE77: 85 64 STA $64 ; FAC Mantissa
BE79: A5 63 LDA $63 ; FAC Mantissa
BE7B: 79 17 BF ADC $BF17,Y ; Table of Constants 4-byte powers of 10
BE7E: 85 63 STA $63 ; FAC Mantissa
BE80: A5 62 LDA $62 ; FAC Mantissa
BE82: 79 16 BF ADC $BF16,Y ; Table of Constants 4-byte powers of 10
BE85: 85 62 STA $62 ; FAC Mantissa
BE87: E8 INX
BE88: B0 04 BCS $BE8E
BE8A: 10 DE BPL $BE6A
BE8C: 30 02 BMI $BE90
Jump from $BE88:
BE8E: 30 DA BMI $BE6A
Jump from $BE8C:
BE90: 8A TXA
BE91: 90 04 BCC $BE97
BE93: 49 FF EOR #$FF
BE95: 69 0A ADC #$0A
Jump from $BE91:
BE97: 69 2F ADC #$2F
BE99: C8 INY
BE9A: C8 INY
BE9B: C8 INY
BE9C: C8 INY
BE9D: 84 47 STY $47 ; Value/Descriptor-Pointer
BE9F: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
BEA1: C8 INY
BEA2: AA TAX
BEA3: 29 7F AND #$7F
BEA5: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
BEA8: C6 5D DEC $5D ; Temporary storage for FLPT value
BEAA: D0 06 BNE $BEB2
BEAC: A9 2E LDA #$2E
BEAE: C8 INY
BEAF: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
Jump from $BEAA:
BEB2: 84 71 STY $71 ; Pointer: Used during CRUNCH/ASCII conversion
BEB4: A4 47 LDY $47 ; Value/Descriptor-Pointer
BEB6: 8A TXA
BEB7: 49 FF EOR #$FF
BEB9: 29 80 AND #$80
BEBB: AA TAX
BEBC: C0 24 CPY #$24
BEBE: F0 04 BEQ $BEC4
BEC0: C0 3C CPY #$3C
BEC2: D0 A6 BNE $BE6A
Jump from $BEBE:
BEC4: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
Jump from $BECC:
BEC6: B9 FF 00 LDA $00FF,Y ; Assembly Area for Floating point to ASCII
BEC9: 88 DEY
BECA: C9 30 CMP #$30
BECC: F0 F8 BEQ $BEC6
BECE: C9 2E CMP #$2E
BED0: F0 01 BEQ $BED3
BED2: C8 INY
Jump from $BED0:
BED3: A9 2B LDA #$2B
BED5: A6 5E LDX $5E ; Temporary storage for FLPT value
BED7: F0 2E BEQ $BF07
BED9: 10 08 BPL $BEE3
BEDB: A9 00 LDA #$00
BEDD: 38 SEC
BEDE: E5 5E SBC $5E ; Temporary storage for FLPT value
BEE0: AA TAX
BEE1: A9 2D LDA #$2D
Jump from $BED9:
BEE3: 99 01 01 STA $0101,Y ; 6510 Hardware Stack Area
BEE6: A9 45 LDA #$45
BEE8: 99 00 01 STA $0100,Y ; 6510 Hardware Stack Area
BEEB: 8A TXA
BEEC: A2 2F LDX #$2F
BEEE: 38 SEC
Jump from $BEF2:
BEEF: E8 INX
BEF0: E9 0A SBC #$0A
BEF2: B0 FB BCS $BEEF
BEF4: 69 3A ADC #$3A
BEF6: 99 03 01 STA $0103,Y ; 6510 Hardware Stack Area
BEF9: 8A TXA
BEFA: 99 02 01 STA $0102,Y ; 6510 Hardware Stack Area
BEFD: A9 00 LDA #$00
BEFF: 99 04 01 STA $0104,Y ; 6510 Hardware Stack Area
BF02: F0 08 BEQ $BF0C
Jump from $BDF5:
BF04: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
Jump from $BED7:
BF07: A9 00 LDA #$00
BF09: 99 00 01 STA $0100,Y ; 6510 Hardware Stack Area
Jump from $BF02:
BF0C: A9 00 LDA #$00
BF0E: A0 01 LDY #$01
BF10: 60 RTS
Previous Page / Next Page