CODE	SEGMENT PUBLIC
DOSCALL MACRO	FUNCTION
	MOV	AH,FUNCTION
	INT	21H
	ENDM
DFCB	EQU	DS:5CH
OPEN	EQU	0FH
SET_DTA EQU	1AH
RB_READ EQU	27H
	PAGE	,132
RBR	PROC	FAR
	ASSUME	CS:CODE,ES:CODE,DS:NOTHING
	JMP	START
FCB	DB	1				;DRIVE "A"
	DB	'USASTATE'
	DB	'PIC'
	DB	0,0
LRECL	DW	0
	DB	0,0,0,0
	DB	0,0				;DATE
	DB	10 DUP(0)			;RESERVED
	DB	0
	DB	0,0,0,0
START:
	PUSH	DS
	XOR	AX,AX
	PUSH	AX
;
	MOV	AX,CS
	MOV	ES,AX
	MOV	SI,OFFSET DFCB
	MOV	DI,OFFSET FCB
	MOV	CX,12
	CLD
	REP	MOVSB
;
	MOV	AX,0B800H
	MOV	DS,AX
	MOV	DX,0
	DOSCALL SET_DTA 			;SET DTA AT SCREEN
;
	MOV	AX,CS
	MOV	DS,AX				;ADDRESS SEGMENT OF FCB
	MOV	DX,OFFSET FCB			;
	DOSCALL OPEN				;ISSUE OPEN
;
	MOV	AX,4080H			;SET UP OF 65536 BYTE IO
	MOV	LRECL,AX			;
	MOV	CX,5				;SET AT LEAST 5 RECORDS
	DOSCALL RB_READ 			;RANDOM BLOCK READ
						;
	RET
RBR	ENDP
CODE	ENDS
	END