| Routines

06326: THE 'NUMBER' SUBROUTINE

Used by the routines at OUT_LINE and EACH_STMT. If the A register holds the 'number marker' then the HL register pair is advanced past the floating-point form.
Input
A | Character code from a BASIC line
HL | Address of that character
Output
A | Next character code from the line (if the current one is a number marker)
HL | Address of that character
NUMBER | 06326 | CP 14 | Is the character a 'number marker'?
| 06328 | RET NZ | Return if not.
| 06329 | INC HL | Advance the pointer six times so as to step past the 'number marker' and the five locations holding the floating-point form.
| 06330 | INC HL
| 06331 | INC HL
| 06332 | INC HL
| 06333 | INC HL
| 06334 | INC HL
| 06335 | LD A,(HL) | Fetch the current code before returning.
| 06336 | RET