;
;  BLOCK - BLOCK MOVE  (Z80 LDIR REGISTER USAGE)
;
BLOCK:  MOV     A,M             ;GET BYTE
        STAX    D               ;STORE IT
        INX     H               ;BOP PTRS
        INX     D
        DCX     B               ;COUNT OFF BYTE
        MOV     A,B             ;CHECK FOR DONE
        ORA     C
        JNZ     BLOCK           ;GO BACK IF NOT
        RET
;