; Decimalt till Bin{rt.
; 16 bitars omvandling.
; (c) Copyright 85-11-18
;     PRDATA Eskilstuna HB
;
;
             ORG -128
;
             PUSH HL
             PUSH BC
             PUSH AF
;
; /// Convert. ///
;
             LD A,D    ; 8 h|ga bitarna.
             LD B,8
             LD HL,BUFF
LOOP:        RLC A
             CALL NC,ZERO
             CALL C,ONE
             INC HL
             DJNZ LOOP
;
             LD A,E     ; L}ga 8 bitarna.
             LD B,8
             LD HL,BUFF2
LOOP2:       RLC A
             CALL NC,ZERO
             CALL C,ONE
             INC HL
             DJNZ LOOP2
;
; /// Conversion done. ///
;
DONE:        LD BC,16
             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'
BUFF2:       DEFM 'xxxxxxxx'

