; TITLE "SRIN - Syslib 4.0" NAME ('RIN') ;================================================================= ; The Libraries, Version 4, (C) 1989 by Alpha Systems Corp. ;----------------------------------------------------------------- ; Author : Harold F. Bower ; Derived from SRIN.Z80 by Richard Conn ; Date : 11 Jun 89 ; Version : 1.3 ; Module : SRIN ; Abstract: This module contains the routine RIN which uses a ; direct BIOS access to read a character from the RDR: ; device. ; Revision: ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; Module Entry Points PUBLIC RIN ; From SYSLIB Get.. EXT @BIOSA ; Local BIOS input routine ; Definitions RI EQU 5 ; Reader Input BIOS Function .Z80 CSEG ;=============================================================== ; NAME - RIN ; Entry: - None ; Exit : A - The character to be sent to the RDR: device ; Flags have no meaning ; Uses : AF ; Special Requirements: The system BIOS MUST start on an even ; page boundary. ;=============================================================== RIN: LD A,RI ; Load Reader Function Number PUSH BC ; Save regs CALL @BIOSA ; ..and call the bios function POP BC ; Restore regs RET END