dskedt.asm

一个微型操作系统源码

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Project 			:	DSKEDT-FDOS 0.0.7
;; Author 			:	Ottonello, Santiago
;; E-Mail			:	[e-mail]
;; Webpage 			:	http://www.visual-opal.de
;; Date	 			:	22.8.2003
;; Caption	 		:	Disk Editor
;; Filename			:	DSKEDT.ASM
;; Function			:	Main Program
;; Notes			:	Shamelesly stolen from Peter Norton and
;;				 	Jhon Socha. Thank you Guys...
;;				 	Adapted to FDOS by me...
;; Compile Syntax	 	:	nasm DSKEDT.ASM -f bin  -o DSKEDT.BIN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;----------------------
; Macros
;---------------------
%include 	"FDOS.INC"						;System service "wrappers"
%include 	"STRPGM.INC"						;"Structured programming"

;---------------------
; Equates
;---------------------
%include	"RSCEQU.INC"

;section 	.txt
;------------------------------------------------------------------------------
; Main Program Begins Here
;------------------------------------------------------------------------------                                                                                
BEGPGM								;Load segment registers
	EXSR	SECDSP
	EXSR	KEYMNG
ENDPGM								;Call FDOS Service "End Program"	
;------------------------------------------------------------------------------
;---------------------
; Subroutines
;---------------------
%include "DSPBIO.ASM"
%include "DSPSEC.ASM"
%include "DSKBIO.ASM"
%include "CURSOR.ASM"
%include "FUNMNG.ASM"
%include "KEYBIO.ASM"
%include "EDTFUN.ASM"

;section	.data
;---------------------------------------
; Initialized Data
;---------------------------------------
;-----------------------
;Variables,initialized
;-----------------------
prolin			db	21
linbse			db	2

;-----------------------
;Variables,uninitialized
;-----------------------
secoff			dw	0
cursec			dw	0
dskdrv			db	0
hdrlin			db	0
phacux			db	0
phacuy			db	0
reacux			db	0
reacuy			db	0

;--------------------
;Strings
;--------------------
CRLF			db	13,10,0
toppat			db	' ',7,upplef,1,horbar,12,toptic,1,\
				horbar,11,toptic,1,horbar,11,toptic,1,\
				horbar,12,toptba,1,	horbar,18,upprig,1,0
botpat			db	' ',7,lowlef,1,horbar,12,bottic,1,\
				horbar,11,bottic,1,horbar,11,bottic,1,\
				horbar,12,bottba,1,horbar,18, lowrig,1,0				
;--------------------
;Strings with Locales
;--------------------				

hdrtx1			db	'Disk ',0
hdrtx2			db	'        Sector ',0
pgmcap			db	'    DskEdt V0R0M0  ',0
edipro			db	'    Press function key or enter any',\
				' char',0
;section	.bss
;---------------------------------------
; Uninitialized Data
;---------------------------------------
sector			db	0