| Routines

1789: THE 'OPEN-P' SUBROUTINE

The address of this routine is derived from an offset found in the open stream lookup table.
Input
BC | Length of the expression specifying the channel code
OPEN_P | 1789 | LD E,$10 | The data bytes will be +10 and +00.
This entry point is used by the routines at OPEN_K and OPEN_S.
OPEN_END | 178B | DEC BC | Decrease the length of the expression and give an error if it was not a single character.
| 178C | LD A,B
| 178D | OR C
| 178E | JR NZ,REPORT_F
| 1790 | LD D,A | Otherwise clear the D register, fetch HL and return.
| 1791 | POP HL
| 1792 | RET