Code listing:
-------------

; Code to multiply two numbers using bits and masks

  000  00             2A4  SET    J0,#LOOP    ; Set up for jump for loop
  001  01             2B8  SET    J1,#SKIP    ; Set up for jump to loop
  002  02             C00  READ   R0,DD       ; Read first number into R0
  003  03             C10  READ   R1,DD       ; Read control number into R1
  004  04  #LOOP      221  SET    R2,1        ; Set the mask to 1 in R2
  005  05             812  AND    R1,R2       ; Mask out rightmost bit of R2
  006  06             E29  JPIF   R2,EZ,J1    ; Skip around the add if zero bit
  007  07             603  ADD    R0,R3       ; If 1 bit, add into running total
  008  08  #SKIP      508  SHIFT  R0,-1       ; Shift the number left
  009  09             510  SHIFT  R1,1        ; Shift the control number right
  010  0A             E1C  JPIF   R1,NZ,J0    ; go around again if necessary
  011  0B             D30  WRITE  R3,DD       ; Write out the total
  012  0C             000  HALT             

Hex machine code listing:
-------------------------

2A4 2B8 C00 C10 221 812 E29 603 508 510 E1C D30 000 

Label listing:
--------------

  004  04  #LOOP
  008  08  #SKIP