![]() |
Routines |
| Prev: 05916 | Up: Map | Next: 05942 |
|
This subroutine returns in the BC register pair the stream data for a given stream.
|
||||||||||
| STR_DATA | 05918 | CALL FIND_INT1 | The given stream number is taken off the calculator stack. | |||||||
| 05921 | CP 16 | Give an error if the stream number is greater than 15. | ||||||||
| 05923 | JR C,STR_DATA1 | |||||||||
|
This entry point is used by the routines at OPEN and CAT_ETC.
Report O - Invalid stream.
|
||||||||||
| REPORT_O_2 | 05925 | RST 8 | Call the error handling routine. | |||||||
| 05926 | DEFB 23 | |||||||||
|
Continue with valid stream numbers.
|
||||||||||
| STR_DATA1 | 05927 | ADD A,3 | Range now 3 to 18. | |||||||
| 05929 | RLCA | And now 6 to 36. | ||||||||
| 05930 | LD HL,23568 | The base address of the stream data area. | ||||||||
| 05933 | LD C,A | Move the stream code to the BC register pair. | ||||||||
| 05934 | LD B,0 | |||||||||
| 05936 | ADD HL,BC | Index into the data area and fetch the the two data bytes into the BC register pair. | ||||||||
| 05937 | LD C,(HL) | |||||||||
| 05938 | INC HL | |||||||||
| 05939 | LD B,(HL) | |||||||||
| 05940 | DEC HL | Make the pointer address the first of the data bytes before returning. | ||||||||
| 05941 | RET | |||||||||
| Prev: 05916 | Up: Map | Next: 05942 |