Prev: 07387 Up: Map Next: 07406
07390: THE 'FETCH A NUMBER' SUBROUTINE
Used by the routines at LIST and CLASS_03.
This subroutine leads to a following numeric expression being evaluated but zero being used instead if there is no expression.
Input
A Code of the first character of the expression
FETCH_NUM 07390 CP 13 Jump forward if at the end of a line.
07392 JR Z,USE_ZERO
07394 CP ":" But jump to CLASS_06 unless at the end of a statement.
07396 JR NZ,CLASS_06
This entry point is used by the routines at SAVE_ETC and LIST.
The calculator is now used to add the value zero to the calculator stack.
USE_ZERO 07398 CALL SYNTAX_Z Do not perform the operation if syntax is being checked.
07401 RET Z
07402 RST 40 Use the calculator.
07403 DEFB 160 stk_zero
07404 DEFB 56 end_calc
07405 RET Return with zero added to the stack.
Prev: 07387 Up: Map Next: 07406