| Routines

1615: THE 'CHAN-FLAG' SUBROUTINE

Used by the routines at ED_EDIT, str and read_in. The routine at CHAN_OPEN continues here. The appropriate flags for the different channels are set by this subroutine.
Input
HL | Base address of the channel (see CHINFO)
CHAN_FLAG | 1615 | LD ($5C51),HL | The HL register pair holds the base address for a particular channel; set CURCHL accordingly.
| 1618 | RES 4,(IY+$30) | Signal 'using other than channel 'K'' (reset bit 4 of FLAGS2).
| 161C | INC HL | Step past the output and the input addresses and make HL point to the channel code.
| 161D | INC HL
| 161E | INC HL
| 161F | INC HL
| 1620 | LD C,(HL) | Fetch the code.
| 1621 | LD HL,$162D | The base address of the channel code look-up table.
| 1624 | CALL INDEXER | Index into this table and locate the required offset, but return if there is not a matching channel code.
| 1627 | RET NC
| 1628 | LD D,$00 | Pass the offset to the DE register pair.
| 162A | LD E,(HL)
| 162B | ADD HL,DE | Point HL at the appropriate flag setting routine.
This entry point is used by the routine at OUT_CODE.
CALL_JUMP | 162C | JP (HL) | Jump to the routine.