| Routines

1CDE: 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 | 1CDE | CP $0D | Jump forward if at the end of a line.
| 1CE0 | JR Z,USE_ZERO
| 1CE2 | CP ":" | But jump to CLASS_06 unless at the end of a statement.
| 1CE4 | 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 | 1CE6 | CALL SYNTAX_Z | Do not perform the operation if syntax is being checked.
| 1CE9 | RET Z
| 1CEA | RST $28 | Use the calculator.
| 1CEB | DEFB $A0 | stk_zero
| 1CEC | DEFB $38 | end_calc
| 1CED | RET | Return with zero added to the stack.