BCDBIN   START    ; DAT番地の BDC を2進数に変換する
              XOR    GR0,GR0         ; 変換後の数（初期化）
              LAD    GR2,12             ; シフト数
LOOP    LD      GR3,DAT          ; 変換すべき BCD の読み込み
              SRL    GR3,0,GR2       ;  12,8,4,0ビット右シフト
              AND    GR3,=#000F     ; 下位4ビット以外を消す
              CALL  SUBTEN           ;  GR0 を 10倍して GR1 に
              LD       GR0,GR1          ;  GR1 → GR0
              ADDA  GR0,GR3
              SUBA GR2,=4              ; シフト数−4
              JPL     LOOP                ; シフト数が正ならもう一度
              JZE     LOOP                ; シフト数が0ならもう一度
              ST       GR0,BIN
              RET
DAT       DC   #0130                         ; 変換すべき BCD
BIN        DS     1                          ; 変換結果
              END