;Library Name: ARRAYLIB
;Module Name: ASKDU
;Author: Al Hawley
;Date: 31 Mar 1987
;Version number: 1.0c

;Version History:
	
;Program Function: ARRAYLIB is a collection of subroutines which
;	implement the management of byte arrays in programs written
;	for Z80 or HD64180 based computers. This module is one of the
;	set, and may require the presence of others.

;***************************************************
;		COPYRIGHT NOTICE
;ARRAYLIB is copyright by A. E. Hawley on March 4, 1987.
;It may be freely distributed, but it must not be sold 
;either separately or as part of a package without the 
;written consent of the author.  The author may be reached 
;via electronic mail at the Ladera Z-Node in Los Angeles,
;213-670-9465, or by Voice Phone at: 213-649-3575
;
;***************************************************

	MACLIB	ARRHDR

	name askdu
;This module contains the following routines:
	public arrtstdu
;..and uses the following external routines:
	ext arxltbit,arrxltrc,artstbit

arrtstdu:
;return the bit corresponding to disk(1-16) and
;user(0-31) in register a.

;on entry,
;	bc	= disk, user
;on exit,
;	a	= 0 if bit was 0, 0ffh if bit was 1
;	zero flag is set accordingly

	dec	b		;disk(1..) to Row(0..)
	call	arxltbit	;make row,col,bit addr
	ret	c		;ret if error with code in A
	call	arrxltrc	;address in hl, bit loc in e
	ret	c		;ret if error with code in A
	ld	a,e		;get bit location in byte
	jp	artstbit	;test & return

;**********************************************

	end