$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