![]() |
Routines |
Prev: 171C | Up: Map |
This subroutine returns in the BC register pair the stream data for a given stream.
|
||||||||||||
STR_DATA | 171E | CALL FIND_INT1 | The given stream number is taken off the calculator stack. | |||||||||
1721 | CP $10 | Give an error if the stream number is greater than +0F. | ||||||||||
1723 | JR C,STR_DATA1 | |||||||||||
This entry point is used by the routines at OPEN and CAT_ETC.
Report O - Invalid stream.
|
||||||||||||
REPORT_O_2 | 1725 | RST $08 | Call the error handling routine. | |||||||||
1726 | DEFB $17 | |||||||||||
Continue with valid stream numbers.
|
||||||||||||
STR_DATA1 | 1727 | ADD A,$03 | Range now +03 to +12. | |||||||||
1729 | RLCA | And now +06 to +24. | ||||||||||
172A | LD HL,$5C10 | The base address of the stream data area. | ||||||||||
172D | LD C,A | Move the stream code to the BC register pair. | ||||||||||
172E | LD B,$00 | |||||||||||
1730 | ADD HL,BC | Index into the data area and fetch the the two data bytes into the BC register pair. | ||||||||||
1731 | LD C,(HL) | |||||||||||
1732 | INC HL | |||||||||||
1733 | LD B,(HL) | |||||||||||
1734 | DEC HL | Make the pointer address the first of the data bytes before returning. | ||||||||||
1735 | RET |
Prev: 171C | Up: Map |