;**********************************
;* Zeigt das aktuelle Laufwerk an *
;* <C> 2010 H.V.Viehof            *
;**********************************

;______________________________________
;
; stapelsegment :
;______________________________________

stack	  segment stack word 'stack'
	  dw 1 dup (?)
stack	  ends

;______________________________________
;
; programmsegment :
;______________________________________

code	  segment public word 'prog'
	  org 0

main:   mov ax, seg data            ; Datensegment initialisieren
        mov ds, ax
        mov dx, offset Intro
        mov ah, 9
        int 021
        mov ah, 019                 ; Funktion 019h: GetCurrentDrive
        int 021
        xor bh, bh
        mov bl, al
        mov dl, ds: b [Tabl+bx]     ; da koennte man auch XLATB verwenden
        mov ah, 2
        int 021
        mov ah, 1
        int 021
        mov ax, 04c00               ; dos eqivalent zu 'ExitProccess'
        int 021
code    ends
;______________________________________
;
; datensegment :
;______________________________________
data    segment public word 'daten'
Tabl    db "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Intro   db 0a,0d
        db "****************************",0a,0d
        db "* zeigt aktuelles Laufwerk *",0a,0d
        db "* <c> 2010      H.V.Viehof *",0a,0d
        db "****************************",0a,0d
        db 0a,0d,0a,0d
        db "Laufwerk: $"      
data	  ends
	  end