; Decimalt till Bin{rt.
; 8 bitars omvandling.
; (c) Copyright 85-11-18
;     PRDATA Eskilstuna HB /JL/
;
             ORG -128
;
             PUSH HL
             PUSH BC
             PUSH AF
;
; /// Convert. ///
;
             LD A,E
             LD B,8
             LD HL,BUFF
LOOP:        RLC A
             CALL NC,ZERO
             CALL C,ONE
             INC HL
             DJNZ LOOP
;
; /// Conversion done. ///
;
             LD BC,8
             LD HL,BUFF
             CALL 11
;
             POP AF
             POP BC
             POP HL
             RET
;
; ***
;
ONE:         LD (HL),49   ; One.
             RET
;
; ***
;
ZERO:        LD (HL),48   ; Zero.
             RET
;
; ***
;
BUFF:        DEFM 'xxxxxxxx'