*COMDECK PBGETCHAR
         NAM   PBGETCHAR     READ CHAR/STATUS 
         ENT   PBGETCHAR
PBGETC   NOP   0
          LDQ-  6,I      LOAD EQ ADDR 
         CLR   A
         INP   LABEL-*-1     INPUT TO A 
         RAO-  8,I       REPLY (R1RESPONSE = 2) 
LABEL    RAO-  8,I       INT REJECT (R1RESPONSE = 1)
         STA-  9,I       STORE CHAR/STATUS READ INTO R1STORE
         JMP*  (PBGETC) 
* 
         END
