Routines
Prev: 204E Up: Map Next: 2089
2070: 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 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