title seldsk.mac version 1.0 ; this routine will set the current default drive ; drive number is passed as an integer ; 0=A: ; 1=B: etc. seldisk equ 14 bdos equ 5 public seldsk ; ; hl points to parameter ; seldsk: mov e,m mvi c,seldisk call bdos ret end