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