TTEN  START
      LAD GR1,1
      LAD GR2,#FFFF ;; GR2 の値が保たれるかテスト用.
      CALL MTEN
      RET
 ;; GR1の 10 倍をGR1 へ入れて戻る. label MULTN は使えない.理由不明.
MTEN  PUSH 0,GR2
      LD  GR2,GR1
      SLA GR1,3
      SLA GR2,1
      ADDA GR1,GR2
      POP GR2
      RET
      END