| Routines

18B6: 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 | 18B6 | CP $0E | Is the character a 'number marker'?
| 18B8 | RET NZ | Return if not.
| 18B9 | INC HL | Advance the pointer six times so as to step past the 'number marker' and the five locations holding the floating-point form.
| 18BA | INC HL
| 18BB | INC HL
| 18BC | INC HL
| 18BD | INC HL
| 18BE | INC HL
| 18BF | LD A,(HL) | Fetch the current code before returning.
| 18C0 | RET