$BDDD/48605:   Convert FAC#1 to ASCII String

BDDD: A0 01     LDY #$01
BDDF: A9 20     LDA #$20
BDE1: 24 66     BIT $66
BDE3: 10 02     BPL $BDE7
BDE5: A9 2D     LDA #$2D
BDE7: 99 FF 00  STA $FF,Y
BDEA: 85 66     STA $66
BDEC: 84 71     STY $71
BDEE: C8        INY
BDEF: A9 30     LDA #$30
BDF1: A6 61     LDX $61
BDF3: D0 03     BNE $BDF8
BDF5: 4C 04 BF  JMP $BF04
BDF8: A9 00     LDA #$00
BDFA: E0 80     CPX #$80
BDFC: F0 02     BEQ $BE00
BDFE: B0 09     BCS $BE09
BE00: A9 BD     LDA #$BD
BE02: A0 BD     LDY #$BD
BE04: 20 28 BA  JSR $BA28
BE07: A9 F7     LDA #$F7
BE09: 85 5D     STA $5D
BE0B: A9 B8     LDA #$B8
BE0D: A0 BD     LDY #$BD
BE0F: 20 5B BC  JSR $BC5B
BE12: F0 1E     BEQ $BE32
BE14: 10 12     BPL $BE28
BE16: A9 B3     LDA #$B3
BE18: A0 BD     LDY #$BD
BE1A: 20 5B BC  JSR $BC5B
BE1D: F0 02     BEQ $BE21
BE1F: 10 0E     BPL $BE2F
BE21: 20 E2 BA  JSR $BAE2
BE24: C6 5D     DEC $5D
BE26: D0 EE     BNE $BE16
BE28: 20 FE BA  JSR $BAFE
BE2B: E6 5D     INC $5D
BE2D: D0 DC     BNE $BE0B
BE2F: 20 49 B8  JSR $B849
BE32: 20 9B BC  JSR $BC9B
BE35: A2 01     LDX #$01
BE37: A5 5D     LDA $5D
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
BE47: 38        SEC
BE48: E9 02     SBC #$02
BE4A: 85 5E     STA $5E
BE4C: 86 5D     STX $5D
BE4E: 8A        TXA
BE4F: F0 02     BEQ $BE53
BE51: 10 13     BPL $BE66
BE53: A4 71     LDY $71
BE55: A9 2E     LDA #$2E
BE57: C8        INY
BE58: 99 FF 00  STA $FF,Y
BE5B: 8A        TXA
BE5C: F0 06     BEQ $BE64
BE5E: A9 30     LDA #$30
BE60: C8        INY
BE61: 99 FF 00  STA $FF,Y
BE64: 84 71     STY $71
BE66: A0 00     LDY #$00

    Previous Page / Next Page