Routines |
Prev: 204E | Up: Map | Next: 2089 |
This subroutine is called whenever there is the need to consider whether the user wishes to use a different stream.
|
||||||||||||
STR_ALTER | 2070 | CP "#" | Unless the present character is a '#' return with the carry flag set. | |||||||||
2072 | SCF | |||||||||||
2073 | RET NZ | |||||||||||
2074 | RST $20 | Advance CH-ADD. | ||||||||||
2075 | CALL CLASS_06 | Pass the parameter to the calculator stack. | ||||||||||
2078 | AND A | Clear the carry flag. | ||||||||||
2079 | CALL UNSTACK_Z | Return now if checking syntax. | ||||||||||
207C | CALL FIND_INT1 | The value is passed to the A register. | ||||||||||
207F | CP $10 | Give report O if the value is over +0F. | ||||||||||
2081 | JP NC,REPORT_O | |||||||||||
2084 | CALL CHAN_OPEN | Use the channel for the stream in question. | ||||||||||
2087 | AND A | Clear the carry flag and return. | ||||||||||
2088 | RET |
Prev: 204E | Up: Map | Next: 2089 |