Массив памяти разделить на два массива (УМПК-80)

; Массив памяти длиной 8 байт, начиная с адреса 01CC,
; разделить на два массива по признаку: если данное больше числа,
; записанного в ячейки 0600, записать в первый массив, 
; начинающийся с адреса 0C10, иначе 
; во второй, начинающийся с адреса 0C30. Остановить программу.
; Работа выполняется в программе УМПК-80
    .org 800h   ; поставьте здесь адрес старта программы
    lda 0600h
    mov C,A     ; C=байт, с которым сравниваем
    lxi d,01CCh ; DE=адрес массива источника
    lxi H,0C30h ; HL=адрес второго массива
    push H
    lxi H,0C10h ; HL=адрес первого массива
    mvi B,8     ; длина массива источника
nxt:    ldax D      ; A=(DE)
    inx  D      ; DE++
    push psw
    dcr A       ; т к надо сравнить на > а не >=
    cmp C
    jnc arr1
arr2:   pop psw
    xthl        ; копируем во второй массив, используя адрес на стеке
    mov m,a
    inx h
    xthl
cont:   dcr b       ; уменьшаем счётчик байт
    jnz nxt     ; конец цикла
    pop h       ; убираем адрес из стека
    hlt         ; останов
arr1:   pop psw
    mov m,a     ; копируем в первый массив
    inx h
    jmp cont
    .end