Routines
Prev: 07276 Up: Map Next: 07318
07289: THE 'EXPECT NUMERIC/STRING EXPRESSIONS' SUBROUTINE
Used by the routines at PR_ITEM_1 and S_2_COORD.
There is a series of short subroutines that are used to fetch the result of evaluating the next expression. The result from a single expression is returned as a 'last value' on the calculator stack.
This entry point is used when CH-ADD needs updating to point to the start of the first expression.
NEXT_2NUM 07289 RST 32 Advance CH-ADD.
This entry point is used by the routine at CLASS_09.
The address of this entry point is derived from an offset found in the command class table.
This entry point allows for two numeric expressions, separated by a comma, to be evaluated.
CLASS_08 07290 CALL CLASS_06 Evaluate each expression in turn - so evaluate the first.
07293 CP "," Give an error report if the separator is not a comma.
07295 JR NZ,REPORT_C
07297 RST 32 Advance CH-ADD.
This entry point is used by the routines at SAVE_ETC, LIST, FETCH_NUM, FOR, PR_ITEM_1, STR_ALTER, CO_TEMP_1, CIRCLE, DRAW and INT_EXP1.
The address of this entry point is derived from an offset found in the command class table.
This entry point allows for a single numeric expression to be evaluated.
CLASS_06 07298 CALL SCANNING Evaluate the next expression.
07301 BIT 6,(IY+1) Return as long as the result was numeric (bit 6 of FLAGS set); otherwise it is an error.
07305 RET NZ
This entry point is used by the routines at PROGNAME, SAVE_ETC, E_LINE_NO, STMT_LOOP, SEPARATOR, STMT_NEXT, VAL_FET_1, CLASS_04, DEF_FN, INPUT, CO_TEMP_1, CIRCLE, S_QUOTE_S, S_2_COORD, S_BRACKET, S_LETTER, S_FN_SBRN, LOOK_VARS, SLICING, DIM, DEC_TO_FP and val.
Report C - Nonsense in BASIC.
REPORT_C 07306 RST 8 Call the error handling routine.
07307 DEFB 11
This entry point is used by the routine at SAVE_ETC.
The address of this entry point is derived from an offset found in the command class table.
This entry point allows for a single string expression to be evaluated.
CLASS_0A 07308 CALL SCANNING Evaluate the next expression.
07311 BIT 6,(IY+1) This time return if the result indicates a string (bit 6 of FLAGS reset); otherwise give an error report.
07315 RET Z
07316 JR REPORT_C
Prev: 07276 Up: Map Next: 07318