1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:
 24:
 25:
 26:
 27:
 28:
 29:
 30:

BEGIN START
;初期化************************
      LD    GR0,JYU ;現在の十進数
      LAD   GR1,0   ;GR1に割り算した結果が入る
      LAD   GR5,14  ;定数14
      LAD   GR4,0   ;定数0
      LAD   GR6,1   ;定数1
      LAD   GR7,2   ;定数2
;
;変換**************************
;割り算/////////////////
LOOP  CPL   GR0,GR6       ;もしGR0が1だったら割る必要が
      JZE   ENDB          ;なくなるのでループから抜ける
      CPL   GR0,GR4       ;もしGR0が1だったら割る必要が
      JZE   ENDB          ;なくなるのでループから抜ける
      SUBL  GR0,GR7
      LAD   GR1,1,GR1
      JPL   LOOP
;//////////////////////
ENDB  ST    GR0,NISIN,GR5 ;出力
      LD    GR0,GR1
      LAD   GR1,0
      LAD   GR5,-1,GR5    ;15bit目まで↓
      JNZ   LOOP          ;繰り返す
;******************************
      RET      
;宣言**************************
JYU   DC    12         ;0から32767の間の数値を設定
NISIN DS    15         ;下位アドレスから1,2,4,8,16,32の重みで入っていく
      END