| Routines

08304: THE 'ALTER STREAM' SUBROUTINE

Used by the routines at LIST and PR_ITEM_1. This subroutine is called whenever there is the need to consider whether the user wishes to use a different stream.
Input
A | Code of the current character
Output
F | Carry flag set if the character is not '#'
STR_ALTER | 08304 | CP "#" | Unless the present character is a '#' return with the carry flag set.
| 08306 | SCF
| 08307 | RET NZ
| 08308 | RST 32 | Advance CH-ADD.
| 08309 | CALL CLASS_06 | Pass the parameter to the calculator stack.
| 08312 | AND A | Clear the carry flag.
| 08313 | CALL UNSTACK_Z | Return now if checking syntax.
| 08316 | CALL FIND_INT1 | The value is passed to the A register.
| 08319 | CP 16 | Give report O if the value is over 15.
| 08321 | JP NC,REPORT_O
| 08324 | CALL CHAN_OPEN | Use the channel for the stream in question.
| 08327 | AND A | Clear the carry flag and return.
| 08328 | RET