;
wboot	equ	0
bdos	equ	5
tint	equ	75Ah
fmem	equ	0b901h
;
	.z80
;
start0:	ld	b,tab1e-tab1	;Tastatur!
	ld	de,tab1
	ld	hl,tint		;75ah
	call	upmov
	ld	b,tab2e-tab2	;F-Tasten!
	ld	de,tab2
	ld	hl,fmem		;0b900h
	call	upmov
	ld	hl,tab
	ld	c,2
	ld	b,tabe-tab
sta1:	push	bc
	push	hl
	ld	e,(hl)
	call	bdos
	pop	hl
	inc	hl
	pop	bc
	djnz	sta1
	ld	c,9
	ld	de,text
	call	bdos
	ret
;
upmov:	push	bc
	ld	A,1bh
	call	OUT
	ld	A,'S'		;1 Byte schreiben
	call	OUT
	ld	A,l		;Low-Teil
	call	OUT
	ld	A,h		;High-Teil
	call	OUT
	ld	A,(de)		;Byte
	call	OUT
	pop	bc
	inc 	hl
	inc 	de
	djnz	upmov
	ret
;
OUT:	PUSH	HL
	PUSH	DE
	PUSH	BC
	LD	E,A
	LD	C,2
	CALL	BDOS
	POP	BC
	POP 	DE
	POP	HL
	RET
;
text:	db	12	;cls
	db	0ah
	db	0dh
	db	0ah
	db	'                   Auf geht'
	db	27h
	db	's!'
	db	0ah
	db	0dh
	db	0ah
	db	0ah
	db	'          Die F-Tasten werden wie folgt belegt: '
	db	0ah
	db	0dh
	db	0ah
	db	' F2=power F3=dir F4=exit F5=copy F6=era'
	db	' F8=ren F9=sort FA=asm FB link '
	db	0ah
	db	0dh
	db	0ah
	db	'$'
;
tab:	db	1bh 
	db	'O'		;back
	db	 0
	db	1bh
	db	'N'		;ink
	db	 6 
	db	1bh
	db	5fh	;Keybord-mode
	db	1bh
	db	'V'	;
	db	14h
	db	1bh
	db	5dh
tabe:	db	0h
;
tab1:	db	0f5h,0fbh,0dbh,89h,0cbh,8fh,0d3h,89h
	db	3eh,7h,0d3h,8ch,3eh,60h
	db	0d3h,8ch,3eh,0c7h,0d3h,8eh,3eh,3h
	db	0d3h,8eh,0fbh,0f1h,0,0,0,0
	db	0,0
tab1e:	nop
;
tab2:	db	0dh
	db	0H
	db	'power'
	db	0dh,0h
	db	'dir'
	db	0dh,0h
	db	'exit'
	db	0dh,0h
	db	'copy'
	db	0dh,0h
	db	'era'
	db	0h,0dh,0
	db	'ren'
	db	0dh,0h
	db	'sort'
	db	0h
	db	'asm '
	db	0h
	db	'link'
	db	0dh
tab2e:	db	0h
	end