Updates and new folder structure
This commit is contained in:
@@ -26,7 +26,7 @@ SYSTEM: EQU 5
|
|||||||
|
|
||||||
MOV SP,STACK
|
MOV SP,STACK
|
||||||
CLD
|
CLD
|
||||||
MOV DL,0 ;Start with A:
|
MOV DL,0 ;Start with drive A
|
||||||
SETDRV:
|
SETDRV:
|
||||||
MOV CL,SELDRV
|
MOV CL,SELDRV
|
||||||
CALL SYSTEM
|
CALL SYSTEM
|
||||||
@@ -60,7 +60,7 @@ GETCOM:
|
|||||||
CALL SYSTEM ;Print drive letter
|
CALL SYSTEM ;Print drive letter
|
||||||
MOV DL,":"
|
MOV DL,":"
|
||||||
MOV CL,OUTCH
|
MOV CL,OUTCH
|
||||||
CALL SYSTEM ;Print :
|
CALL SYSTEM ;Print ":"
|
||||||
MOV DX,LINBUF
|
MOV DX,LINBUF
|
||||||
MOV CL,INBUF
|
MOV CL,INBUF
|
||||||
CALL SYSTEM
|
CALL SYSTEM
|
||||||
@@ -199,7 +199,7 @@ FILEDRV:
|
|||||||
JZ NOMATCH
|
JZ NOMATCH
|
||||||
CMP B,[SI],":"
|
CMP B,[SI],":"
|
||||||
JNZ NOMATCH
|
JNZ NOMATCH
|
||||||
SUB AL,40H ;A => 1, B => 2
|
SUB AL,40H ;Convert to drive number
|
||||||
INC SI
|
INC SI
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@@ -439,7 +439,7 @@ NOSPCE: DB "Insufficient disk space$"
|
|||||||
FCBFIL: DB 11,"?"
|
FCBFIL: DB 11,"?"
|
||||||
DB 0
|
DB 0
|
||||||
|
|
||||||
SPECDRV: DS 1
|
SPECDRV:DS 1
|
||||||
NUMREC: DS 2
|
NUMREC: DS 2
|
||||||
|
|
||||||
IDLEN: DS 1
|
IDLEN: DS 1
|
||||||
@@ -476,4 +476,4 @@ COMTAB:
|
|||||||
DB 0
|
DB 0
|
||||||
|
|
||||||
TPA:
|
TPA:
|
||||||
|
|
||||||
Reference in New Issue
Block a user