park:      proc near
           push ds
           mov ah,0e   ; macht das laufwerk zum standard
           mov dl,02   ; hier laufwerk einsetzen
           int 021
           mov ah,01b  ; bestimmt lw-daten
           int 021      ; al=sektoren pro gruppe
           sub ax,01b00 ; dx=gruppen pro lw
           mul dx

           add ax,0100
           mov dx,ax
           xor ax,ax
           mov al,02   ; hier laufwerk einsetzen
           mov cx,01
           pop ds
           mov bx,offset dta
           int 025
           xor ax,ax
           mov ah,04c
           int 021
dta        db 00
           endp
