; DISPLAY BIT PATTERN IN [A]  (ZILOG)
; All registers unchanged
; The output will look like:- (10100110)
 
ZBITS:PUSH  PSW
      PUSH  B
      PUSH  D
      PUSH  PSW
      MVI   C,' '
      CALL  ZCO
      MVI   C,'('
      CALL  ZCO
      POP   PSW
      LD    E,A         
      LD    B,8
BITS2:MOV   A,E          ;There is no 8080 equivalent to the Z80's SLA E
      ANI   80H
      JZ    BITS4
      MVI   C,'1'
BITS3:CALL  CO
      MOV   A,E
      RAL
      MOV   E,A
      DCR   B
      JNZ   BITS2
      JMP   BQ2 
BITS4:MVI   C,'0'
      JMP BITS3
BQ2:  LD    C,')'
      CALL  ZCO
      POP   D
      POP   B
      POP   PSW
      RET