.z80
;================================================================
;Laufwerke auswaehlen fuer BankCPM
;Datei: SELECT.MAC - Version 17-Feb-89
;(c) Helmut Tischer, Moosburg a.d. Isar

        aseg
        org 0100h

        ld hl,(005Dh)           ;Kommandozeilenparameter
        ld a,"0"                ;verschiedene Eingaben pr}fen
        cp l
        jr nz,tst1
        inc a
        cp h
        ld a,0                  ;Konfigurationsnummer
        jr z,sel
tst1:   ld a,"X"
        cp l
        jr nz,tst2
        ld a,"1"
        cp h
        ld a,1                  ;Konfigurationsnummer
        jr z,sel
tst2:   ld a,"0"
        cp l
        jr nz,falsch
        ld a,"X"
        cp h
        jr nz,falsch
        ld a,2                  ;Konfigurationsnummer
sel:    call 0F43Fh             ;(dabei Standard-Format einstellen)
        ld hl,(0FBFEh)          ;schauen, ob Puffer in TPA
        ld de,-0F400h
        add hl,de
        ld hl,0
        ld (0FC00h),hl          ;XLT-Tabellen entfernen
        ld (0FC10h),hl
        jp nc,0D90Ch            ;wenn ja, dann entfernen
        jp (hl)                 ;sonst normales Ende
falsch: ld de,text              ;Fehlermeldung ausgeben
        ld c,9
        jp 5
text:   db 'Aufruf:'
        db 9,'SELECT 01 -> A:=Standard-Laufwerk 0 B:=Standard-Laufwerk 1',13,10
        db 9,'SELECT X1 -> A:=Zusatz-Laufwerk     B:=Standard-Laufwerk 1',13,10
        db 9,'SELECT 0X -> A:=Standard-Laufwerk 1 B:=Zusatz-Laufwerk',13,10,'$'

;================================================================
        end