$B7B5/47029:   Convert ASCII String to Flpt

Jump from $B7B0:

B7B5: A6 7A     LDX $7A       ; Pointer: Current Byte of BASIC Text
B7B7: A4 7B     LDY $7B       ; Pointer: Current Byte of BASIC Text
B7B9: 86 71     STX $71       ; Pointer: Used during CRUNCH/ASCII conversion
B7BB: 84 72     STY $72       ; Pointer: Used during CRUNCH/ASCII conversion
B7BD: A6 22     LDX $22       ; Second Utility Pointer
B7BF: 86 7A     STX $7A       ; Pointer: Current Byte of BASIC Text
B7C1: 18        CLC
B7C2: 65 22     ADC $22       ; Second Utility Pointer
B7C4: 85 24     STA $24       ; Second Utility Pointer
B7C6: A6 23     LDX $23       ; Second Utility Pointer
B7C8: 86 7B     STX $7B       ; Pointer: Current Byte of BASIC Text
B7CA: 90 01     BCC $B7CD
B7CC: E8        INX

Jump from $B7CA:

B7CD: 86 25     STX $25       ; Second Utility Pointer
B7CF: A0 00     LDY #$00
B7D1: B1 24     LDA ($24),Y   ; Second Utility Pointer
B7D3: 48        PHA
B7D4: 98        TYA
B7D5: 91 24     STA ($24),Y   ; Second Utility Pointer
B7D7: 20 79 00  JSR $0079     ; CHRGOT: Get same Byte again
B7DA: 20 F3 BC  JSR $BCF3     ; Convert ASCII String to a Number in FAC
B7DD: 68        PLA
B7DE: A0 00     LDY #$00
B7E0: 91 24     STA ($24),Y   ; Second Utility Pointer

Jump from $AC80, $AEC9:

B7E2: A6 71     LDX $71       ; Pointer: Used during CRUNCH/ASCII conversion
B7E4: A4 72     LDY $72       ; Pointer: Used during CRUNCH/ASCII conversion
B7E6: 86 7A     STX $7A       ; Pointer: Current Byte of BASIC Text
B7E8: 84 7B     STY $7B       ; Pointer: Current Byte of BASIC Text
B7EA: 60        RTS

    Previous Page / Next Page