0

先生は、アセンブリで DOS プログラムを書くプロジェクトを私に割り当てました。プログラムは、ファイル/ディレクトリを作成/削除/名前変更し、ファイル属性を変更する必要があります。私はmasm611を使用しています。プログラムに dos.inc を含めました。プログラムは 2 つのファイルに分かれており、1 つ目は pro.asm、2 つ目は code.asm です。

//dos.inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;  Syntax:    @MkDir path [,segment]
;
;             @RmDir path [,segment]
;
;             @ChDir path [,segment]
;
;  Summary:   Creates, deletes, or changes to the specified directory
;
;  Arguments: <path>        Offset of ASCIIZ string containing
;                           directory. Must be offset address.
;
;             <segment>     Segment of path; DS if none given.
;
;  Returns:   If carry: set, error code in AX
;
;  Modifies:  AX, DX; DS if segment changed
;
;  Uses:      Interrupt 21h Function 39h
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@MkDir MACRO path:REQ, segmnt
    __LdAdr dx, <path>
    IFNB    <segmnt>
        __LdSeg ds, <segmnt>
    ENDIF
    mov     ah, 39h
    int     21h
ENDM

; 3Ah
@RmDir MACRO path:REQ, segmnt
    __LdAdr dx, <path>
    IFNB    <segmnt>
        __LdSeg ds, <segmnt>
    ENDIF
    mov     ah, 3Ah
    int     21h
ENDM

; 3Bh
@ChDir MACRO path:REQ, segmnt
    __LdAdr dx, <path>
    IFNB    <segmnt>
        __LdSeg ds, <segmnt>
    ENDIF
    mov     ah, 3Bh
    int     21h
ENDM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;  Syntax:    @DelFile path [,segment]
;
;  Summary:   Deletes a specified file
;
;  Arguments: <path>        Offset of ASCIIZ file specification. Must
;                           be an offset address.
;
;             <segment>     Segment of path; DS if none given.
;
;  Returns:   If carry: set, error code in AX
;
;  Modifies:  AX, DX; DS if segment changed
;
;  Uses:      Interrupt 21h Function 41h
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@DelFile MACRO path:REQ, segmnt
    __LdAdr dx, <path>
    IFNB    <segmnt>
        __LdSeg ds, <segmnt>
    ENDIF
    mov     ah, 41h
    int     21h
ENDM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;  Syntax:    @MakeFile path [,[attrib] [,[segment] [,kind]]]
;
;  Summary:   Creates a file
;
;  Arguments: <path>        ASCIIZ string of file. Must be an offset
;                           address.
;
;             <attrib>      File attribute; 0 is default if none given.
;
;             <segment>     Segment of address string; DS if not given.
;
;             <kind>        If none given, a file is created even if one
;                           already exists. Under DOS 3.x, "tmp" can be
;                           given to create a unique file or "new" to
;                           create a file only if one doesn't already
;                           exist.
;
;  Returns:   If carry: clear, file handle in AX
;
;  Modifies:  AX, DX, CX; DS if segment changed
;
;  Uses:      Interrupt 21h Function 3Ch, 5Ah, 5Bh
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@MakeFile MACRO path:REQ, atrib:=<0>, segmnt, kind
    IFDIF   <atrib>, <0>
        mov     cx, atrib
    ELSE
        sub     cx, cx
    ENDIF
    __LdAdr dx, <path>
    IFNB    <segmnt>
        __LdSeg ds, <segmnt>
    ENDIF
    IFIDNI  <kind>, <tmp>
        mov     ah, 5Ah
    ELSEIFIDNI <kind>, <new>
        mov    ah, 5Bh
    ELSE
        mov    ah, 3Ch
    ENDIF
    int     21h
ENDM

// pro.asm

enter code here
include dos.inc
include bios.inc
.model small
.stack 100h
.data

LF EQU 0ah
CR EQU 0dh
MSG1 DB 0ah,0dh,"1. Create directory",LF,CR
MSG2 DB "2. Create file",LF,CR
MSG3 DB "3. Delete directory",LF,CR
MSG4 DB "4. Delete file",LF,CR
MSG5 DB "5. Rename directory",LF,CR
MSG6 DB "6. Rename file",LF,CR
MSG7 DB "7. Change attributes",LF,CR
MSG8 DB "8. Exit $",LF,CR
PATH DB "c:\mydir",0
PATHF DB "C:\abc.exe",0
AnyKeyMsg DB LF,CR,"Press any key to continue...$",LF,CR

.code
main PROC



MOV AX,@DATA
MOV DS,AX

CALL clearAllReg
CALL start


main ENDP

include code.asm

End main

// コード.asm

start PROC

;this function starts the program
;input=none ouput=none
;MOV ah,0ah
;MOV DX,SI
;INT 21h
do:

    @cls
    CALL showDate
    CALL showMenu
    CALL newLine
    CALL getCharInput
    CMP BL,49   ;49 is ASCI for 1
    JE CDirectory   ;if BL is equals to 49 then jump to create directory
    CMP BL,50   ;50 is ASCI for 2
    JE CFile    ;if BL is equals to 50 then jump to create file
    CMP BL,51   ;51 is ASCI for 3
    JE DDirectory   ;if BL is equals to 51 then jump to delete directory
    CMP BL,52   ;52 is ASCI for 4
    JE DFile    ;if BL is equals to 52 then jump to delete file
    CMP BL,53   ;53 is ASCI for 5
    JE RDirectory   ;if BL is equals to 53 then jump to rename directory
    CMP BL,54   ;54 is ASCI for 6
    JE RFile    ;if BL is equals to 54 then jump to rename file
    CMP BL,55   ;55 is ASCI for 7
    JE ChAttributes ;if BL is equals to 55 then jump to change attributes of a file
    CMP BL,56   ; 56 is ASCI for 8
    JE Exit     ; until BL equals to 56
    JMP do

CDirectory:

    CALL makeDir
    JMP do

CFile:

    CALL makeFile
    JMP do

DDirectory:

    CALL rmDir
    JMP do

DFile:
    CALL rmFile
    JMP do

RDirectory:

    CALL rnDir
    JMP do
RFile:

    CALL rnFile
    JMP do

ChAttributes:

    CALL chFAttrib
    JMP do

Exit:
    @exit
RET

start EndP

clearAllReg PROC

;this function sets AX,BX,CX and DX equals to 0
;input=none output=none

MOV AX,0
MOV BX,0
MOV CX,0
MOV DX,0
RET

clearAllReg EndP

showMenu PROC

;this function show menu on the screen
;input=none output=DX

LEA DX,MSG1
MOV AH,9
INT 21h
RET

showMenu EndP

makeDir PROC
;MOV ah,2
;MOV dl,'a'
;INT 21h
MOV AX,offset PATH
@MkDir AX
CALL pressAnyKey
RET
makeDir EndP

makeFile PROC
;MOV ah,2
;MOV dl,'b'
;INT 21h
MOV AX,offset PATHF
@MakeFile AX
CALL pressAnyKey
RET
makeFile EndP

rmDir PROC
;MOV ah,2
;MOV dl,'c'
;INT 21h
MOV AX,offset PATH
@RmDir AX
CALL pressAnyKey
RET
rmDir EndP

rmFile PROC
;MOV ah,2
;MOV dl,'d'
;INT 21h
MOV AX,offset PATHF
@DelFile AX
CALL pressAnyKey
RET
rmFile EndP


rnDir PROC
MOV ah,2
MOV dl,'e'
INT 21h
CALL pressAnyKey
RET
rnDir EndP

rnFile PROC
MOV ah,2
MOV dl,'f'
INT 21h
CALL pressAnyKey
RET
rnFile EndP

chFAttrib PROC
MOV ah,2
MOV dl,'g'
INT 21h
CALL pressAnyKey
RET
chFAttrib EndP

newLine PROC

;Adds new line
;Input=none output=none

MOV DL,LF
MOV AH,2
INT 21h
MOV DL,CR
INT 21h
RET

newLine ENDP

getCharInput PROC

;this function takes input from user
;input=none output=BX

PUSH AX     ;saving state
CALL newLine
MOV dl,'?'
MOV AH,2
INT 21h
MOV AH,1
INT 21h
MOV BX,AX
POP AX      ;restoring state
RET

getCharInput EndP

pressAnyKey PROC
PUSH AX     ;Saving state

LEA DX,AnyKeyMsg
MOV AH,9
INT 21h
MOV AH,1
INT 21h

POP AX      ;restoring state
RET
pressAnyKey EndP

showDate PROC

@GetTime
RET
showDate EndP
4

0 に答える 0