;
; HDINFO --- types current AMPRO hard disk buffer addresses.
;            no fancy checking, just does the job.
;            assemble with ZAS, link with ZLINK.
;	     uses SYSLIB routines BIOS,PSTR,PA2HC
;
;		Daniel Kelley
;		P.O. Box 90266
;		San Jose,CA 95109-3266

VERS	equ	05
CR	equ	13
LF	equ	10
HDINFO	equ	17

	EXTRN	BIOS,PSTR,PA2HC

start	ld	hl,smsg
	call	pstr
	ld	a,hdinfo
	call	bios		; HL points to AMPRO secondary jump table
	inc	hl		; point to second jump ( hd$info)
	inc	hl
	inc	hl
	ld	(newcall),hl
newcall	equ	$+1		; sure could use a CALL (HL) !

	call	0
	ex	de,hl
	ld	hl,cmsg		; print current buffer storage
	call	pstr
	call	nxtptr
	ld	hl,vmsg		; ...vector
	call	pstr
	call	nxtptr
	ld	hl,bmsg		; ...byte/block
	call	pstr
	call	nxtptr
	ld	hl,emsg
	call	pstr
	ret
;
nxtptr	inc	de
	ld	a,(de)		; print word pointed to by DE
	call	pa2hc		; DE=DE+2
	dec	de
	ld	a,(de)
	call	pa2hc
	inc	de
	inc	de
	ret

smsg	DB	cr,lf,'HDINFO ver ',VERS/10+'0','.',VERS MOD 10 + '0'
	DB	cr,lf,'Returns hard disk storage info for the AMPRO'
	DB	      ' Little Board.',0
cmsg	DB	cr,lf,lf,'HD$CURRENT:    ',0
vmsg	DB	cr,lf,   'HD$VECTORS:    ',0
bmsg	DB	cr,lf,   'HD$BYTE$BLOCK: ',0
emsg	DB	cr,lf,lf,0

	.end	start