BDOS	EQU	05H
MAXDRV	EQU	3DH
WHEEL	EQU	3EH
MAXUSR	EQU	3FH
	ORG	0100H
	JMP	START
	DB	'THIS PROGRAM PRINTS THE BYTES AT 3D, 3E, & 3F THAT ARE'
	DB	'SET WITH BYE AS MAXIMUM DRIVES-1 WITH A=1, B=2, ETC., ' 
	DB	'WHEEL (SET=FF), AND MAXIMUM NUMBER OF USER AREAS.'
	DB	'ERNEST F. BARNHART, N8DVE, 16 SEP 1987'
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
START:	MVI	A,13
	CALL	PUTCHR
	MVI	A,10
	CALL	PUTCHR
	LXI	H,MAXDRV
	MOV	A,M
OUTHEX:	PUSH	B
	MOV	C,A
	RAR
	RAR
	RAR
	RAR
	CALL	HEX1
	MOV	A,C
	CALL	HEX1
	MOV	A,C
	POP	B	
;
	MVI	A,' '
	CALL	PUTCHR
;
	LXI	H,WHEEL
	MOV	A,M
        PUSH	B
	MOV	C,A
	RAR
	RAR
	RAR
	RAR
	CALL	HEX1
	MOV	A,C
	CALL	HEX1
	MOV	A,C
	POP	B	
;
	MVI	A,' '
	CALL	PUTCHR
;
	LXI	H,MAXUSR
	MOV	A,M
        PUSH	B
	MOV	C,A
	RAR
	RAR
	RAR
	RAR
	CALL	HEX1
	MOV	A,C
	CALL	HEX1
	MOV	A,C
	POP	B	
	MVI	A,13
	CALL	PUTCHR
	MVI	A,10
	CALL	PUTCHR
	RET
HEX1:	ANI	0FH
	ADI	'0'
	CPI	'9'+1
	JC	HEX2
	ADI	'A'-'9'-1
HEX2:
PUTCHR:	PUSH	H
	PUSH	B
	PUSH	D		
	MOV	E,A
	MVI	C,2
	CALL	BDOS
	POP	D
	POP	B
	POP	H	
	RET