




































           LXI H,2040
           MOV A,M
           INX H
           CMP M
           JNC DONE
           MOV A,M
     DONE:    
           INX H
           MOV M,A
           RST 1

