\IDENT\RHSR
* BASIC IO PACKAGE -- 19720713
* P850, P855, P860
*
* CALLING SEQUENCE:  CF   A14,NAME
* WHERE:                  A14 = REGISTER WITH LINKSTACKPOINTER
*                         NAME  = ENTRY POINT NAME OF CALLED SUBROUTINE
*
* LINKSTACK: 3 ENTRIES USED MAXIMUM
* A15 STACK IS USED FOR REGISTER SAVE AREA
\ENTRY\RHSR
* ASSIGNMENTS
ASR\EQU\/10\DEV ADDR
HSR\EQU\/20\DEV ADDR
HSP\EQU\/30\DEV ADDR
*
S\EQU\1\START
H\EQU\0\HALT
*
* RHSR--READ OCTAD TO A6 FROM HSR
*       STATUS TO A7
*
RHSR\CIO\A7,S,HSR
\RB(4)\*-2
TI\SST\A7,HSR
\RF(4)\IN\NOT ACCEPTED
\RTN\A14\ACCEPTED:EOT OR ERROR
IN\INR\A6,0,HSR\INPUT CHAR
\RB(4)\TI
\CIO\A7,H,HSR\STOP
\SST\A7,HSR
\RB(4)\*-2
\RTN\A14
\END

