TALK   MOV  *R11+,R4       
       MOVB *R4+,R2   
       SRL  R2,8
TALK0  LI   R1,>0003    
       MOV  R1,@TALK2+2 
TALK1  DEC  @TALK2+2   
TALK2  MOVB @>0000(R4),R3
       MOVB R3,R1             
       ANDI R3,>0F00         
       ORI  R3,>4000          
       MOVB R3,@>9400     
       ABS  @TALK2+2       
       JEQ  TALK3             
       SRL  R1,4              
       ORI  R1,>4000      
       MOVB R1,@>9400 
       JMP  TALK1         
TALK3  A    @TALK0+2,R4     
       MOVB @HEX50,@>9400 
       DEC  R2                
       JNE  TALK0            
       RT                     
HEX50  BYTE >50