$B6EC/46828:   Evaluate <chr$>

B6EC: 20 A1 B7  JSR $B7A1     ; Evaluate Text to 1 Byte in XR
B6EF: 8A        TXA
B6F0: 48        PHA
B6F1: A9 01     LDA #$01
B6F3: 20 7D B4  JSR $B47D     ; Evaluate <str$>
B6F6: 68        PLA
B6F7: A0 00     LDY #$00
B6F9: 91 62     STA ($62),Y   ; FAC Mantissa
B6FB: 68        PLA
B6FC: 68        PLA
B6FD: 4C CA B4  JMP $B4CA     ; Set Up String

    Previous Page / Next Page