$BDDD/48605: Convert FAC#1 to ASCII String
Jump from $AABC:
BDDD: A0 01 LDY #$01
Jump from $B46A, $BDD7:
BDDF: A9 20 LDA #$20
BDE1: 24 66 BIT $66 ; FAC Sign
BDE3: 10 02 BPL $BDE7
BDE5: A9 2D LDA #$2D
Jump from $BDE3:
BDE7: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
BDEA: 85 66 STA $66 ; FAC Sign
BDEC: 84 71 STY $71 ; Pointer: Used during CRUNCH/ASCII conversion
BDEE: C8 INY
BDEF: A9 30 LDA #$30
BDF1: A6 61 LDX $61 ; FAC Exponent
BDF3: D0 03 BNE $BDF8
BDF5: 4C 04 BF JMP $BF04 ; Convert TI to String
Jump from $BDF3:
BDF8: A9 00 LDA #$00
BDFA: E0 80 CPX #$80
BDFC: F0 02 BEQ $BE00
BDFE: B0 09 BCS $BE09
Jump from $BDFC:
BE00: A9 BD LDA #$BD
BE02: A0 BD LDY #$BD
BE04: 20 28 BA JSR $BA28 ; Perform Multiply
BE07: A9 F7 LDA #$F7
Jump from $BDFE:
BE09: 85 5D STA $5D ; Temporary storage for FLPT value
Jump from $BE2D:
BE0B: A9 B8 LDA #$B8
BE0D: A0 BD LDY #$BD
BE0F: 20 5B BC JSR $BC5B ; Compare FAC#1 With Memory
BE12: F0 1E BEQ $BE32
BE14: 10 12 BPL $BE28
Jump from $BE26:
BE16: A9 B3 LDA #$B3
BE18: A0 BD LDY #$BD
BE1A: 20 5B BC JSR $BC5B ; Compare FAC#1 With Memory
BE1D: F0 02 BEQ $BE21
BE1F: 10 0E BPL $BE2F
Jump from $BE1D:
BE21: 20 E2 BA JSR $BAE2 ; Multiply FAC#1 by 10
BE24: C6 5D DEC $5D ; Temporary storage for FLPT value
BE26: D0 EE BNE $BE16
Jump from $BE14:
BE28: 20 FE BA JSR $BAFE ; Divide FAC#1 by 10
BE2B: E6 5D INC $5D ; Temporary storage for FLPT value
BE2D: D0 DC BNE $BE0B
Jump from $BE1F:
BE2F: 20 49 B8 JSR $B849 ; Add 0.5 to FAC#1
Jump from $BE12:
BE32: 20 9B BC JSR $BC9B ; Convert FAC#1 to Integer
BE35: A2 01 LDX #$01
BE37: A5 5D LDA $5D ; Temporary storage for FLPT value
BE39: 18 CLC
BE3A: 69 0A ADC #$0A
BE3C: 30 09 BMI $BE47
BE3E: C9 0B CMP #$0B
BE40: B0 06 BCS $BE48
BE42: 69 FF ADC #$FF
BE44: AA TAX
BE45: A9 02 LDA #$02
Jump from $BE3C:
BE47: 38 SEC
Jump from $BE40:
BE48: E9 02 SBC #$02
BE4A: 85 5E STA $5E ; Temporary storage for FLPT value
BE4C: 86 5D STX $5D ; Temporary storage for FLPT value
BE4E: 8A TXA
BE4F: F0 02 BEQ $BE53
BE51: 10 13 BPL $BE66
Jump from $BE4F:
BE53: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
BE55: A9 2E LDA #$2E
BE57: C8 INY
BE58: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
BE5B: 8A TXA
BE5C: F0 06 BEQ $BE64
BE5E: A9 30 LDA #$30
BE60: C8 INY
BE61: 99 FF 00 STA $00FF,Y ; Assembly Area for Floating point to ASCII
Jump from $BE5C:
BE64: 84 71 STY $71 ; Pointer: Used during CRUNCH/ASCII conversion
Jump from $BE51:
BE66: A0 00 LDY #$00
Previous Page / Next Page