Prev: B782 Up: Map Next: B798
B78B: perform ASC()
B78B 20 82 B7 JSR $B782 evaluate string, get length in A (and Y)
B78E F0 08 BEQ $B798 if null do illegal quantity error then warm start
B790 A0 00 LDY #$00 set index to first character
B792 B1 22 LDA ($22),Y get byte
B794 A8 TAY copy to Y
B795 4C A2 B3 JMP $B3A2 convert Y to byte in FAC1 and return
Prev: B782 Up: Map Next: B798