Prev: 1CDB Up: Map Next: 1CEE
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.
Prev: 1CDB Up: Map Next: 1CEE