$B79B/47003: Evaluate Text to 1 Byte in XR
Jump from $AAFF:
B79B: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
Jump from $A94B, $AA86, $AB85, $ABA5, $AFC7, $B745, $B7F4, $E203, $E221:
B79E: 20 8A AD JSR $AD8A ; Confirm Result
Jump from $B6EC:
B7A1: 20 B8 B1 JSR $B1B8 ; Evaluate Text for Integer
B7A4: A6 64 LDX $64 ; FAC Mantissa
B7A6: D0 F0 BNE $B798 ; Evaluate <asc>
B7A8: A6 65 LDX $65 ; FAC Mantissa
B7AA: 4C 79 00 JMP $0079 ; CHRGET: Get next Byte of BASIC Text
Previous Page / Next Page