$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