.TITLE MOVE_TRANS_CHAR
      .ENTRY MOVTC,0
 
      MOVTC @4(AP),@8(AP),@12(AP),@16(AP),@20(AP),@24(AP)
      RET
 
      .END