1CGROUP	GROUP	CODE_SEG, DATA_SEG
2		ASSUME	CS:CGROUP, DS:CGROUP
3		
4CODE_SEG		SEGMENT		PUBLIC
5	ORG		100h
6	
7	EXTRN	CLEAR_SCREEN:NEAR, READ_SECTOR:NEAR
8	EXTRN	INIT_SEC_DISP:NEAR, WRITE_HEADER:NEAR
9	EXTRN	WRITE_PROMPT_LINE:NEAR, DISPATCHER:NEAR
10DISK_PATCH		PROC	NEAR
11	CALL	CLEAR_SCREEN
12	CALL	WRITE_HEADER
13	CALL	READ_SECTOR
14	CALL	INIT_SEC_DISP
15	LEA		DX,EDITOR_PROMPT
16	CALL	WRITE_PROMPT_LINE
17	CALL	DISPATCHER
18	INT		20h
19DISK_PATCH	ENDP
20
21CODE_SEG	ENDS
22
23DATA_SEG		SEGMENT		PUBLIC
24	PUBLIC	SECTOR_OFFSET
25;---------------------------------------------------------------;
26;SECTOR_OFFSET is the offset of the half sector display into	;
27;the full sector. It must be a multiple of 16, and not greater	;
28;than 256.														;
29;---------------------------------------------------------------;
30SECTOR_OFFSET		DW		0
31
32	PUBLIC	CURRENT_SECTOR_NO, DISK_DRIVE_NO
33CURRENT_SECTOR_NO	DW		0			;Initial sector 0
34DISK_DRIVE_NO		DB		0			;Initial drive A:
35		
36	PUBLIC	LINES_BEFORE_SECTOR, HEADER_LINE_NO
37		
38	PUBLIC	HEADER_PART_1, HEADER_PART_2
39;---------------------------------------------------------------;
40;LINES_BEFORE_SECTOR is the number of lines at the top of the	;
41;screen before the half sector display.							;
42;---------------------------------------------------------------;
43LINES_BEFORE_SECTOR	DB		2
44HEADER_LINE_NO		DB		0
45HEADER_PART_1		DB		'DISK ',0
46HEADER_PART_2		DB		'         SECTOR ',0
47		PUBLIC	PROMPT_LINE_NO, EDITOR_PROMPT
48PROMPT_LINE_NO		DB		21
49EDITOR_PROMPT		DB		'Press function key, or enter'
50					DB		' character or hex byte: ',0
51	PUBLIC	SECTOR
52;---------------------------------------------------------------;
53;The entire sector (up to 8192 bytes) is stored in this part	;
54;of memory														;
55;---------------------------------------------------------------;
56SECTOR		DB		8192 DUP (0)
57
58DATA_SEG	ENDS
59
60	END