;************************************************************************
;*									*
;*		BDOS function,argument					*
;*		ruft BDOS-Funktion auf.					*
;*		Ist argument nicht angegeben,				*
;*		wird DE gelassen.					*
;*									*
;************************************************************************

		.z80			;
bdos		macro callnr,arg	;
system_reset	  equ 000h		;
console_in	  equ 001h		;
console_out	  equ 002h		;
reader_in	  equ 003h		;
punch_out	  equ 004h		;
list_out	  equ 005h		;
direct_conio	  equ 006h		;
get_iobyte	  equ 007h		;
set_iobyte	  equ 008h		;
print_string	  equ 109h		; 2 Byte Argument
inline		  equ 10ah		;    "
get_con_status	  equ 00bh		;
return_version	  equ 00ch		;
disk_reset	  equ 00dh		;
select_disk	  equ 00eh		;
open_file	  equ 10fh		; 2 Byte Argument
close_file	  equ 110h		;
srch_for_first	  equ 111h		;
srch_for_next	  equ 012h		;
delete_file	  equ 113h		;
read_seq	  equ 114h		;
write_seq	  equ 115h		;
make_file	  equ 116h		;
rename_file	  equ 117h		;
get_login_vec	  equ 018h		;
get_cur_disk	  equ 019h		;
set_dma_addr	  equ 11ah		;
get_alloc_addr	  equ 01bh		;
set_ro_disk	  equ 01ch		;
get_ro_vector	  equ 01dh		;
set_file_attr	  equ 11eh		;
get_dpb_addr	  equ 01fh		;
set_get_user	  equ 020h		;
read_random	  equ 121h		;
write_random	  equ 122h		;
comp_file_size	  equ 123h		;
set_rand_rec	  equ 124h		;
reset_drive	  equ 125h		;
wr_rand_with_0	  equ 128h		;

		  ifnb <arg>		;
		    if callnr gt 0ffh	; must be defined
		      ld de,arg		; 2 Byte argument
		    else		;
		      ld e,arg		; 1 Byte argument
		    endif		;
		  endif			;

		  ifnb <callnr>		;
		    ld c,callnr AND 0ffh;
		  endif			;
		  call 5		;
		endm			;