138 lines
4.4 KiB
NASM
138 lines
4.4 KiB
NASM
|
TITLE FORMAT Messages
|
|||
|
|
|
|||
|
|
FALSE EQU 0
|
|||
|
|
TRUE EQU NOT FALSE
|
|||
|
|
|
|||
|
|
IBMVER EQU FALSE
|
|||
|
|
|
|||
|
|
.xlist
|
|||
|
|
.xcref
|
|||
|
|
INCLUDE DOSSYM.ASM
|
|||
|
|
.cref
|
|||
|
|
.list
|
|||
|
|
|
|||
|
|
CODE SEGMENT PUBLIC 'CODE'
|
|||
|
|
ASSUME CS:CODE,DS:CODE,ES:CODE
|
|||
|
|
|
|||
|
|
PUBLIC BADVER,SNGMSG,SNGDRV,HRDMSG,HRDDRV,REPORT
|
|||
|
|
PUBLIC LABPRMT,TARGMSG,TARGDRV
|
|||
|
|
PUBLIC SYSTRAN,CRLFMSG,INVCHR,INVDRV,INVPAR
|
|||
|
|
PUBLIC SYSMSG,SYSDRV,FRMTERR,NOTSYS,NOUSE,MEMEX
|
|||
|
|
PUBLIC WAITYN
|
|||
|
|
EXTRN PRINT:NEAR,CRLF:NEAR,UNSCALE:NEAR,DISP32BITS:NEAR
|
|||
|
|
EXTRN FDSKSIZ:DWORD,SECSIZ:WORD,CLUSSIZ:WORD,SYSSIZ:DWORD
|
|||
|
|
EXTRN BADSIZ:DWORD
|
|||
|
|
|
|||
|
|
;Wait for "Y" or "N"
|
|||
|
|
WAITYN:
|
|||
|
|
MOV DX,OFFSET MORMSG ;Point to the message
|
|||
|
|
CALL PRINT ;And print it
|
|||
|
|
MOV AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT
|
|||
|
|
;Flush buffer and wait for keystroke
|
|||
|
|
INT 21H ;Input character now a Y or N
|
|||
|
|
AND AL,0DFH ;So lower case works too
|
|||
|
|
CMP AL,"Y"
|
|||
|
|
JZ WAIT20
|
|||
|
|
CMP AL,"N"
|
|||
|
|
JZ WAIT10
|
|||
|
|
CALL CRLF
|
|||
|
|
JMP SHORT WAITYN
|
|||
|
|
WAIT10: STC
|
|||
|
|
WAIT20: RET
|
|||
|
|
|
|||
|
|
|
|||
|
|
;*********************************************
|
|||
|
|
; Make a status report including the following information:
|
|||
|
|
; Total disk capacity
|
|||
|
|
; Total system area used
|
|||
|
|
; Total bad space allocated
|
|||
|
|
; Total data space available
|
|||
|
|
;NOTE:
|
|||
|
|
; The DISP32BITS routine prints the number in DI:SI followed
|
|||
|
|
; by the message pointed to by BX. If it is desired to print
|
|||
|
|
; a message before the number, point at the message with DX
|
|||
|
|
; and call PRINT.
|
|||
|
|
|
|||
|
|
REPORT:
|
|||
|
|
MOV AX,WORD PTR FDSKSIZ
|
|||
|
|
MUL SECSIZ
|
|||
|
|
MOV CX,CLUSSIZ
|
|||
|
|
CALL UNSCALE
|
|||
|
|
MOV WORD PTR FDSKSIZ,AX
|
|||
|
|
MOV WORD PTR FDSKSIZ+2,DX
|
|||
|
|
MOV SI,AX
|
|||
|
|
MOV DI,DX
|
|||
|
|
MOV BX,OFFSET DSKSPC
|
|||
|
|
CALL DISP32BITS ;Report total disk space
|
|||
|
|
MOV SI,WORD PTR SYSSIZ
|
|||
|
|
MOV DI,WORD PTR SYSSIZ+2
|
|||
|
|
CMP SI,0
|
|||
|
|
JNZ SHOWSYS
|
|||
|
|
CMP DI,0
|
|||
|
|
JZ CHKBAD
|
|||
|
|
SHOWSYS:
|
|||
|
|
MOV BX,OFFSET SYSSPC
|
|||
|
|
CALL DISP32BITS ;Report space used by system
|
|||
|
|
CHKBAD:
|
|||
|
|
MOV SI,WORD PTR BADSIZ
|
|||
|
|
MOV DI,WORD PTR BADSIZ+2
|
|||
|
|
CMP SI,0
|
|||
|
|
JNZ SHOWBAD
|
|||
|
|
CMP DI,0
|
|||
|
|
JZ SHOWDATA
|
|||
|
|
SHOWBAD:
|
|||
|
|
MOV BX,OFFSET BADSPC
|
|||
|
|
CALL DISP32BITS ;Report space used by bad sectors
|
|||
|
|
SHOWDATA:
|
|||
|
|
MOV CX,WORD PTR FDSKSIZ
|
|||
|
|
MOV BX,WORD PTR FDSKSIZ+2
|
|||
|
|
SUB CX,WORD PTR BADSIZ
|
|||
|
|
SBB BX,WORD PTR BADSIZ+2
|
|||
|
|
SUB CX,WORD PTR SYSSIZ
|
|||
|
|
SBB BX,WORD PTR SYSSIZ+2
|
|||
|
|
MOV SI,CX
|
|||
|
|
MOV DI,BX
|
|||
|
|
MOV BX,OFFSET DATASPC
|
|||
|
|
CALL DISP32BITS ;Report space left for user
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
|
|||
|
|
BADVER DB "Incorrect DOS version",13,10,"$"
|
|||
|
|
SNGMSG DB "Insert new diskette for drive "
|
|||
|
|
SNGDRV DB "x:",13,10,"and strike any key when ready$"
|
|||
|
|
HRDMSG DB "Press any key to begin formatting "
|
|||
|
|
HRDDRV DB "x: $"
|
|||
|
|
SYSTRAN DB "System transferred",13,10,"$"
|
|||
|
|
MORMSG DB "Format another (Y/N)?$"
|
|||
|
|
CRLFMSG DB 13,10,"$"
|
|||
|
|
INVCHR DB "Invalid characters in volume label",13,10,"$"
|
|||
|
|
INVDRV DB "Invalid drive specification$"
|
|||
|
|
INVPAR DB "Invalid parameter$"
|
|||
|
|
TARGMSG DB "Re-insert diskette for drive "
|
|||
|
|
TARGDRV DB "x:",13,10,"and strike any key when ready$"
|
|||
|
|
SYSMSG DB "Insert DOS disk in drive "
|
|||
|
|
SYSDRV DB "x:",13,10,"and strike any key when ready$"
|
|||
|
|
FRMTERR DB "Format failure",13,10,13,10,"$"
|
|||
|
|
NOTSYS DB "Disk unsuitable for system disk",13,10,"$"
|
|||
|
|
NOUSE DB "Track 0 bad - disk unusable",13,10,"$"
|
|||
|
|
MEMEX DB "Insufficient memory for system transfer",13,10,"$"
|
|||
|
|
|
|||
|
|
;Report messages
|
|||
|
|
DSKSPC DB " bytes total disk space",13,10,"$"
|
|||
|
|
SYSSPC DB " bytes used by system",13,10,"$"
|
|||
|
|
BADSPC DB " bytes in bad sectors",13,10,"$"
|
|||
|
|
DATASPC DB " bytes available on disk",13,10,13,10,"$"
|
|||
|
|
|
|||
|
|
IF IBMVER
|
|||
|
|
PUBLIC ASGERR
|
|||
|
|
ASGERR DB "Cannot format an ASSIGNed drive. $"
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
LABPRMT DB "Volume label (11 characters, ENTER for none)? $"
|
|||
|
|
|
|||
|
|
|
|||
|
|
CODE ENDS
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
|
|||
|
|
|