1            /BCD TO BINARY CONVERSION
   2            /INPUT IN AC    OUTPUT IN AC
   3            *200
   4 00200 0000 DBIN,  0
   5 00201 3241        DCA TEMP
   6 00202 1237        TAD MSK1
   7 00203 0241        AND TEMP
   8 00204 3240        DCA VALU
   9 00205 1241        TAD TEMP
  10 00206 7012        RTR
  11 00207 7012        RTR
  12 00210 0237        AND MSK1
  13 00211 7040        CMA
  14 00212 3242        DCA LOOP
  15 00213 2242 LPA,   ISZ LOOP
  16 00214 5216        JMP .+2
  17 00215 5220        JMP NEXT
  18 00216 1243        TAD BN10
  19 00217 5213        JMP LPA
  20 00220 1240 NEXT,  TAD VALU
  21 00221 3240        DCA VALU
  22 00222 1241        TAD TEMP
  23 00223 7006        RTL
  24 00224 7006        RTL
  25 00225 7004        RAL
  26 00226 0237        AND MSK1
  27 00227 7040        CMA
  28 00230 3242        DCA LOOP
  29 00231 1240        TAD VALU
  30 00232 2242 LPB,   ISZ LOOP
  31 00233 5235        JMP .+2
  32 00234 5600        JMP I DBIN
  33 00235 1244        TAD BN1
  34 00236 5232        JMP LPB
  35 00237 0017 MSK1,  0017
  36 00240 0000 VALU,  0
  37 00241 0000 TEMP,  0
  38 00242 0000 LOOP,  0
  39 00243 0012 BN10,  0012
  40 00244 0144 BN1,   0144
  41                   $