
L Apic
= 32 to C               # CQD binary display of A
 L CQDbinary
        - 2 to DI
        ANDtest 1 to A
        when zero               CQDzero
                = 0x3131 to B			# CQD one
		otheroperandsize
                = B to @ DI
	        downshift 1 to A
                1- C
                when not zero           CQDbinary
        jump doneApic
  L CQDzero
                = 0x6030 to B
		otheroperandsize
                = B to @ DI
	        downshift 1 to A
                1- C
                when not zero           CQDbinary
   L doneApic
return

