$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 |