*************************************************************
*                                                           *
* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY    *
* SELECTED DRIVE, DE POINTING TO DPH.                       *
*                                                           *
*************************************************************

GETDPB  LDA     CPMDRV          ;GET DRIVE #
        LXI     H,DPZERO
        LXI     D,19H
GETDP1: ORA     A
        JZ      GETDP2
        DAD     D
        DCR     A
        JMP     GETDP1
;
GETDP2: PUSH    H               ;SAVE ADDRESS OF DPH
        LXI     D,12            ;OFFSET TO DPB
        DAD     D
        MOV     A,M             ;GET LOW BYTE OF DPB ADDRESS
        INX     H
        MOV     H,M             ;GET LOW BYTE OF DPB
        MOV     L,A
        POP     D
        RET