E556GB — 6.16.3 BCD-to binary converter, 16 bit

Examples Program CLR BM00.03 ;clear because of LD BM00.02 CLR LBM00.03 ;clear because of LD LBM00.02 L BM00.00 ;separate ones decade A 15 = BM00.02 ;binary ones L BM00.00 ;separate tens decade LSR LSR LSR LSL ;binary tens MUL 10 ADD BM00.02 = BM00.02 ;ones + tens L BM00.01 ;separate hundreds decade A 15 = LBM00.02 ;binary hundreds LD LBM00.02 ;same as word MULD 100 ADDD BM00.02 =D BM00.02 ;ones + tens + hundreds L BM00.01 ;separate thousands decade LSR LSR LSR LSR = LBM00.02 ;binary thousands LD LBM00.02 ;same as word MULD 1000 ADDD BM00.02 =D BM00.02 ;complete binary value 143