; 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'