Routines |
Prev: 08270 | Up: Map | Next: 08329 |
This subroutine is called whenever there is the need to consider whether the user wishes to use a different stream.
|
||||||||||||
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 |