#TITLE	"Hard disk driver tester"
	#PAGE	132,66
;
	MODULE	"HDCTST"
;
	TLINK	"X"
;
	#INCLUDE "EQUATE"
;
        LOC     Data#

DRVRBLK:
        DB      0       ; read operation
        DB      0       ; driver number
TRK:    DW      0       ; track number
        DW      0       ; sector number
        DW      1       ; sector count
        DW      128     ; byte count
        DW      DATABUF ; data buffer
DSVAL:  DW      0       ; data segment

DATABUF:RES     8192

	LOC	Code#
;
START:
        CALL    DSKINX#
        MOV     DSVAL,DS
__1:    LEA     SI,DRVRBLK
        CALL    DSKDRX#
        INC     TRK
        JMP     __1
;
WAIT::
SIGNAL::
	RET
;
	END	START