;--------------------------------------------------------------------
;
;       OBNOVENI PUVODNIHO STAVU BIOSU
;
;----------------------------------------------------------------------
;
;
        .Z80
        ASEG
;
;
;
	BDOS	EQU	5	       ;ADRESA BDOSU
	identi	equ	0ec48h	       ;identifikace biosu
        MODBIO  EQU     0EDC4H         ;MODIFIK. ADR. V BIOSU
	VECT	EQU	0EC0AH	       ;ADRESA FCE CONIN
;
;
;
        CR      EQU     0DH
        LF      EQU     0AH
;




;
;
        ORG     100H
;
;
;
	ld	hl,identi	;identifikace verze biosu
	ld	de,nap0
	ld	bc,7		;delka zony
	call	cpdehl		;porovnani
	ld	de,nap0i	;spatna verze biosu
	jr	nz,napis
	LD	HL,0DE06H
        LD      (MODBIO),HL     ;PRI STARTU SYSTEMU BUDE
	ld	hl,0f1dch
	ld	(vect),hl
	ld	hl,tab1		;PUVODNI STAV
	ld	b,4		;meni se vyznamy 4 klaves
kolo:	ld	d,(hl)
	inc	hl
	ld	e,(hl)
	inc	hl
	ld	a,(hl)
	inc	hl
	ld	(de),a
	djnz	kolo
	ld	de,nap1
napis:	ld	c,9		;vystup retezce znaku
	call	bdos
        RST      00             ;KONEC CINNOSTI ZAVADECE
;
;