           LDA 2030
           MOV B,A
       SS: MOV C,M
           LDA 
           XCHG  
           MOV M,C
           STAX D
           INX H
           INX D
           DCR B
           JNZ SS
           RST 1
