false equ 0h
	true equ not false
	bdos equ 05h
	dbuff1 equ 80h
	dma equ 1000h
;
	sysreset equ false
	printf equ 09h
	input equ 10
	reset$disc equ 13
	seldsk equ 14
	setuser equ 32
	bioscall equ 50
	block$out equ 111

;
syscall macro funnum, dereg
;
	if not nul dereg
	lxi d,dereg
	endif
;
	mvi c,funnum
	call bdos
;
	endm
;
start:
	syscall reset$disc
	syscall seldsk,0
;
go:
;
dseg
clear db 27,'H',27,'J$'
cseg
	syscall printf, startup
;
dseg
text1:	dw block1$start
	dw block1$end-block1$start
;
block1start:
	db 'Enter Directory Size Required'
	db 10,13
	db '1 = 32  Directory Entries',10,13
	db '2 = 64  Directory Entries'
	db ' (Normal)',10,13
	db '3 = 96  Directory Entries',10,13
	db '4 = 128 Directory Entries'
	db 10,10,10,13
	db 'Input your selection'
block1$end:
cseg
	syscall block$out,text1
	lxi d,dbuff1
	mvi a,1
	stax d
	syscall input,dbuff1
	lda dbuff1+1
	ora a
	jz go
	lda dbuff1+2
	cpi 31h
	jm go
	cpi 35h
	jp go
	sui 30h
	push a
;

dseg
pb2:
	db 10
	db 0
	db 0000
	dw 0
	dw 0
cseg
	syscall bioscall,pb2
;
dseg
pb3:
	db 11
	db 0
	dw 0000
	dw 0
	dw 0
cseg
	syscall bioscall,pb3
;
dseg
pb4:
	db 12
	db 0
	dw dma
	dw 0000
	dw 0
	dw 0
cseg
	syscall bioscall,pb4
;
dseg
pb5:
	db 13
	db 0
	dw 0000
	dw 0
	dw 0
cseg
	syscall bioscall,pb5
	pop a
	sta dma+7
;
dseg
pb6:
	db 14
	db 0
	dw 0000
	dw 0
	dw 0
cseg
	syscall bioscall,pb6
;
dseg
done:
	db 10,10,13,'DONE....'
	db 'Disc must be logged in press'
	db 'STOP key.',10,10,13,'$'
cseg
	syscall printf,done
	syscall reset$disc
	syscall sysreset
;
end	printf equ 09h
	in