$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