VTOHEX START
       LAD  GR2,0        ; 格納用インデックス・レジスタ
       LAD  GR3,12       ;  シフト数
LOOP                     ;  GR0は保存
                         ;  当該桁を1番下に
                         ;  最下位桁以外をマスクアウト 
                         ;  GR1の内容は文字コードになる
                         ;  メモリに格納
                         ;  インデックス・レジスタを＋1
                         ;  シフト数を−4
                         ;  その結果，シフト数が正ならループ
                         ;  シフト数が0でもループ
       RET
STR    DS  4 
       END