*COMDECK PBPUTCHAR
         NAM   PBPUTCHAR     WRITE CHAR/FUNCTION
         ENT   PBPUTCHAR
PBPUTC   NOP   0
         LDQ-  6,I       LOAD EQ ADDR 
         LDA-  7,I       LOAD CHAR/FUNCTION TO BE WRITTEN 
         OUT   LABEL-*-1     OUTPUT FROM A
         RAO-  9,I       REPLY (R1RESPONSE = 2) 
LABEL    RAO-  9,I
         JMP*  (PBPUTC) 
         END
