Prev: 08270 Up: Map Next: 08329
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
Prev: 08270 Up: Map Next: 08329