github/MS-DOS
1
0
Fork 0
mirror of https://github.com/Microsoft/MS-DOS.git synced 2025-08-21 22:13:33 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix obvious typos

Browse source 
Still nice they put comments to their code :)
This commit is contained in:
Eric Keller 2018-10-02 23:04:22 +02:00 • committed by Eric Keller
commit c38b6b45d5
5 changed files with 44 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

20
v1.25/source/ASM.ASM
View file

@ -105,7 +105,7 @@ L0000:
MOV AH,80H MOV AH,80H
NOPRN: NOPRN:
MOV [LSTFCB],AL MOV [LSTFCB],AL
MOV [LSTDEV],AH ;Flag device for list ouput MOV [LSTDEV],AH ;Flag device for list output
MOV SI,EXTEND MOV SI,EXTEND
MOV DI,FCB+9 MOV DI,FCB+9
MOVW MOVW
@ -665,7 +665,7 @@ BXJ:
PAREN: PAREN:
CALL GETSYM ;Eat the "(" CALL GETSYM ;Eat the "("
CALL EXPRESSION CALL EXPRESSION
CMP B,[SYM],")" ;Better have closing paren CMP B,[SYM],")" ;Better have closing parenthesis
MOV CL,20 MOV CL,20
JNZ ERR30 JNZ ERR30
RET RET
@ -2389,7 +2389,7 @@ OBJBT:
JP NEXBT JP NEXBT
FIXUP: FIXUP:
;Either a word or byte fixup is needed from a forward reference ;Either a word or byte fix up is needed from a forward reference
LODW ;Get pointer to symbol LODW ;Get pointer to symbol
XCHG AX,BX XCHG AX,BX
LODW ;Get constant part LODW ;Get constant part
@ -2399,7 +2399,7 @@ FIXUP:
MOV B,[ERR],100 ;Undefined - flag error MOV B,[ERR],100 ;Undefined - flag error
XOR AX,AX XOR AX,AX
HAVDEF: HAVDEF:
OR CL,CL ;See if word or byte fixup OR CL,CL ;See if word or byte fix up
JS DEFBYT JS DEFBYT
STOW STOW
JP NEXBT JP NEXBT
@ -2443,7 +2443,7 @@ EMARK:
AND AH,0FEH ;Reset error indicator AND AH,0FEH ;Reset error indicator
OR AL,[ERR] ;See if any errors on this line OR AL,[ERR] ;See if any errors on this line
JZ NOERR JZ NOERR
OR AH,1 ;Send line to console if error occured OR AH,1 ;Send line to console if error occurred
NOERR: NOERR:
MOV [LSTDEV],AH MOV [LSTDEV],AH
MOV CX,DI MOV CX,DI
@ -2475,7 +2475,7 @@ NOFIL:
CALL REPERR CALL REPERR
POP SI POP SI
POP CX POP CX
MOV AL,[SPC] ;Any special funtion? MOV AL,[SPC] ;Any special function?
OR AL,AL OR AL,AL
JNZ SPCFUN JNZ SPCFUN
JMP FIXLINE JMP FIXLINE
@ -2509,7 +2509,7 @@ DPUT:
JMP FIXLINE JMP FIXLINE
OUTLIN: OUTLIN:
;Copy the source line to the ouput device. Line will be preceded by ;Copy the source line to the output device. Line will be preceded by
;assembler-generated line number. This routine may be called several times ;assembler-generated line number. This routine may be called several times
;on one line (once for each line of object code bytes), so it sets a flag ;on one line (once for each line of object code bytes), so it sets a flag
;so the line will only be output on the first call. ;so the line will only be output on the first call.
@ -2976,8 +2976,8 @@ NONE: DB 0
; 8086 MNEMONIC TABLE ; 8086 MNEMONIC TABLE
; This table is actually a sequence of subtables, each starting with a label. ; This table is actually a sequence of sub tables, each starting with a label.
; The label signifies which mnemonics the subtable applies to--A3, for example, ; The label signifies which mnemonics the sub table applies to--A3, for example,
; means all 3-letter mnemonics beginning with A. ; means all 3-letter mnemonics beginning with A.
A3: A3:
@ -4003,4 +4003,4 @@ SRCBUF: DS BUFSIZ
ALIGN ALIGN
STACK: EQU $ STACK: EQU $
START: EQU $ START: EQU $
 

12
v1.25/source/COMMAND.ASM
View file

@ -703,7 +703,7 @@ RDPARM:
JZ RDBAT JZ RDBAT
STOSB ;To transient segment STOSB ;To transient segment
MOV DL,AL MOV DL,AL
INT 33 ;Display paramters too INT 33 ;Display parameters too
JMP SHORT RDPARM JMP SHORT RDPARM
PROMPTBAT: PROMPTBAT:
@ -866,7 +866,7 @@ FINDCOM:
CMP [CHKDRV],0 CMP [CHKDRV],0
JZ NOCHECK JZ NOCHECK
MOV AL,[PARM1] MOV AL,[PARM1]
OR AL,[PARM2] ;Check if either parm. had invalid drive OR AL,[PARM2] ;Check if either parameter had invalid drive
CMP AL,-1 CMP AL,-1
JZ DRVBAD JZ DRVBAD
NOCHECK:CALL DX NOCHECK:CALL DX
@ -1336,8 +1336,8 @@ SCANNAM:
JNZ SCANNAM JNZ SCANNAM
GETDEST: GETDEST:
MOV DI,OFFSET TRANGROUP:DEST MOV DI,OFFSET TRANGROUP:DEST
MOV BX,BP ;Remeber switches so far MOV BX,BP ;Remember switches so far
XOR BP,BP ;Must have dest. swtiches alone XOR BP,BP ;Must have destination switches alone
CALL PARSNAM CALL PARSNAM
MOV [ARG2S],BP ;Remember switches on destination MOV [ARG2S],BP ;Remember switches on destination
JNZ HAVDESTNAM ;File name present? JNZ HAVDESTNAM ;File name present?
@ -1952,7 +1952,7 @@ INLINE:
LODSB LODSB
CMP AL,BL CMP AL,BL
JZ NEXT JZ NEXT
CMP BL,":" ;Is it a date seperator? CMP BL,":" ;Is it a date separator?
JNZ DATESEP JNZ DATESEP
DEC SI DEC SI
MOV DL,0 MOV DL,0
@ -2163,4 +2163,4 @@ TRANCODE ENDS
COMLEN EQU TRANDATASIZE+TRANCODESIZE-102H ;End of COMMAND load. ZERO Needed to make COMLEN absolute COMLEN EQU TRANDATASIZE+TRANCODESIZE-102H ;End of COMMAND load. ZERO Needed to make COMLEN absolute
TRNLEN EQU (PRETRLEN+TRANCODESIZE+TRANDATASIZE+15)/16 ;Length of transient in paragraphs TRNLEN EQU (PRETRLEN+TRANCODESIZE+TRANDATASIZE+15)/16 ;Length of transient in paragraphs
END PROGSTART END PROGSTART
 

4
v1.25/source/HEX2BIN.ASM
View file

@ -41,7 +41,7 @@ GETOFF:
GETOFF1: GETOFF1:
CALL HEXCHK ;Check for valid hex character CALL HEXCHK ;Check for valid hex character
JC HAVOFF ;No offset if not valid JC HAVOFF ;No offset if not valid
XOR BX,BX ;Intialize offset sum to 0 XOR BX,BX ;Initialize offset sum to 0
CONVOFF: CONVOFF:
SHL BX,CL ;Multiply current sum by 16 SHL BX,CL ;Multiply current sum by 16
OR BL,AL ;Add in current hex digit OR BL,AL ;Add in current hex digit
@ -211,4 +211,4 @@ BUFFER: DS BUFSIZ
START: START:
STARTSEG EQU (START+15)/16 STARTSEG EQU (START+15)/16
 

16
v1.25/source/IO.ASM
View file

@ -1475,11 +1475,11 @@ CURDRV: DB -1
; disk I/O driver should use. Since each physical drive may be used for ; disk I/O driver should use. Since each physical drive may be used for
; more than one disk I/O driver, more than one entry in TRKPT may point ; more than one disk I/O driver, more than one entry in TRKPT may point
; to the same entry in TRKTAB. Drives such as PerSci 277s which use ; to the same entry in TRKTAB. Drives such as PerSci 277s which use
; the same head positioner for more than one drive should share entrys ; the same head positioner for more than one drive should share entries
; in TRKTAB. ; in TRKTAB.
; ;
; INITTAB is the initialization table for 86-DOS as described in the ; INITTAB is the initialization table for 86-DOS as described in the
; 86-DOS Programer's Manual under "Customizing the I/O System." ; 86-DOS Programmer's Manual under "Customizing the I/O System."
; ;
IF SCP*COMBIN*FASTSEEK IF SCP*COMBIN*FASTSEEK
; ;
@ -1850,7 +1850,7 @@ SSDRIVE:
DB 2 ; Sector per allocation unit. DB 2 ; Sector per allocation unit.
DW 54 ; Reserved sectors. DW 54 ; Reserved sectors.
DB 2 ; Number of allocation tables. DB 2 ; Number of allocation tables.
DW 64 ; Number of directory entrys. DW 64 ; Number of directory entries.
DW 720 ; Number of sectors on the disk. DW 720 ; Number of sectors on the disk.
IF SMALLDS-1 IF SMALLDS-1
@ -1880,7 +1880,7 @@ LSDRIVE:
DB 4 ; Sectors per allocation unit. DB 4 ; Sectors per allocation unit.
DW 1 ; Number of reserved sectors. DW 1 ; Number of reserved sectors.
DB 2 ; Number of File Allocation Tables. DB 2 ; Number of File Allocation Tables.
DW 68 ; Number of directory entrys. DW 68 ; Number of directory entries.
DW 77*26 ; Number of sectors on the disk. DW 77*26 ; Number of sectors on the disk.
IF CONVERT IF CONVERT
@ -1889,7 +1889,7 @@ OLDLSDRIVE:
DB 4 DB 4
DW 52 ; Old format had two tracks reserved. DW 52 ; Old format had two tracks reserved.
DB 2 DB 2
DW 64 ; 64 directory entrys. DW 64 ; 64 directory entries.
DW 77*26 DW 77*26
ENDIF ENDIF
@ -1910,7 +1910,7 @@ LDDRIVE:
DB 1 DB 1
DW 1 DW 1
DB 2 DB 2
DW 192 ; 192 directory entrys in new 8-inch DD/DS format. DW 192 ; 192 directory entries in new 8-inch DD/DS format.
DW 77*8*2 DW 77*8*2
IF CONVERT IF CONVERT
@ -1919,7 +1919,7 @@ OLDLDDRIVE:
DB 1 DB 1
DW 1 DW 1
DB 2 DB 2
DW 128 ; 128 directory entrys in old 8-inch DD/DS format. DW 128 ; 128 directory entries in old 8-inch DD/DS format.
DW 77*8*2 DW 77*8*2
ENDIF ENDIF
ENDIF ENDIF
@ -1931,4 +1931,4 @@ DOSDIF: EQU 16*(DOSSEG-BIOSSEG)
STKSAV: EQU 1701H+DOSDIF STKSAV: EQU 1701H+DOSDIF
DMAADD: EQU 15B4H+DOSDIF DMAADD: EQU 15B4H+DOSDIF
END END
 

36
v1.25/source/MSDOS.ASM
View file

@ -179,11 +179,11 @@ BIOSSTAT DB 3 DUP (?) ;Console input status check
BIOSIN DB 3 DUP (?) ;Get console character BIOSIN DB 3 DUP (?) ;Get console character
BIOSOUT DB 3 DUP (?) ;Output console character BIOSOUT DB 3 DUP (?) ;Output console character
BIOSPRINT DB 3 DUP (?) ;Output to printer BIOSPRINT DB 3 DUP (?) ;Output to printer
BIOSAUXIN DB 3 DUP (?) ;Get byte from auxilliary BIOSAUXIN DB 3 DUP (?) ;Get byte from auxiliary
BIOSAUXOUT DB 3 DUP (?) ;Output byte to auxilliary BIOSAUXOUT DB 3 DUP (?) ;Output byte to auxiliary
BIOSREAD DB 3 DUP (?) ;Disk read BIOSREAD DB 3 DUP (?) ;Disk read
BIOSWRITE DB 3 DUP (?) ;Disk write BIOSWRITE DB 3 DUP (?) ;Disk write
BIOSDSKCHG DB 3 DUP (?) ;Dsik-change status BIOSDSKCHG DB 3 DUP (?) ;Disk-change status
BIOSSETDATE DB 3 DUP (?) ;Set date BIOSSETDATE DB 3 DUP (?) ;Set date
BIOSSETTIME DB 3 DUP (?) ;Set time BIOSSETTIME DB 3 DUP (?) ;Set time
BIOSGETTIME DB 3 DUP (?) ;Get time and date BIOSGETTIME DB 3 DUP (?) ;Get time and date
@ -916,7 +916,7 @@ OPENDEV:
STOSW STOSW
STOSW ;Set current size to zero STOSW ;Set current size to zero
CALL DATE16 CALL DATE16
STOSW ;Date is todays STOSW ;Date is today's
XCHG AX,DX XCHG AX,DX
STOSW ;Use current time STOSW ;Use current time
MOV AL,BH ;Get device number MOV AL,BH ;Get device number
@ -1017,7 +1017,7 @@ CLOSE: ;System call 16
ADD DI,7 ADD DI,7
NORMFCB3: NORMFCB3:
TEST BYTE PTR [DI.DEVID],0C0H ;Allow only dirty files TEST BYTE PTR [DI.DEVID],0C0H ;Allow only dirty files
JNZ OKRET1 ;can't close if I/O device, or not writen JNZ OKRET1 ;can't close if I/O device, or not written
MOV AL,[DI] ;Get physical unit number MOV AL,[DI] ;Get physical unit number
DEC AL ;Make zero = drive A DEC AL ;Make zero = drive A
MOV AH,1 ;Look for dirty buffer MOV AH,1 ;Look for dirty buffer
@ -1493,7 +1493,7 @@ SETUP:
; [DSKERR] = 0 (no errors yet) ; [DSKERR] = 0 (no errors yet)
; [TRANS] = 0 (No transfers yet) ; [TRANS] = 0 (No transfers yet)
; [THISDRV] = Physical drive unit number ; [THISDRV] = Physical drive unit number
; If SETUP detects no records will be transfered, it returns 1 level up ; If SETUP detects no records will be transferred, it returns 1 level up
; with CX = 0. ; with CX = 0.
PUSH AX PUSH AX
@ -1591,7 +1591,7 @@ BREAKDOWN:
; DS = CS ; DS = CS
; CX = Length of disk transfer in bytes ; CX = Length of disk transfer in bytes
; BP = Base of drive parameters ; BP = Base of drive parameters
; [BYTSECPOS] = Byte position witin first sector ; [BYTSECPOS] = Byte position within first sector
;Outputs: ;Outputs:
; [BYTCNT1] = Bytes to transfer in first sector ; [BYTCNT1] = Bytes to transfer in first sector
; [SECCNT] = No. of whole sectors to transfer ; [SECCNT] = No. of whole sectors to transfer
@ -1744,7 +1744,7 @@ BUFWRT:
MOV [SECPOS],AX MOV [SECPOS],AX
CMP AX,[VALSEC] ;Has sector been written before? CMP AX,[VALSEC] ;Has sector been written before?
MOV AL,1 MOV AL,1
JA NOREAD ;Skip preread if SECPOS>VALSEC JA NOREAD ;Skip pre read if SECPOS>VALSEC
MOV AL,0 MOV AL,0
NOREAD: NOREAD:
CALL BUFSEC CALL BUFSEC
@ -1921,7 +1921,7 @@ RDLP:
CALL DREAD CALL DREAD
POPF ;Restore carry flag POPF ;Restore carry flag
POP DI ;Initial transfer address POP DI ;Initial transfer address
POP AX ;First sector transfered POP AX ;First sector transferred
POP DS POP DS
JC NOTBUFFED ;Was one of those sectors in the buffer? JC NOTBUFFED ;Was one of those sectors in the buffer?
CMP BYTE PTR [DIRTYBUF],0 ;Is buffer dirty? CMP BYTE PTR [DIRTYBUF],0 ;Is buffer dirty?
@ -1956,7 +1956,7 @@ SETFCB:
MOV SI,[FCB] MOV SI,[FCB]
MOV AX,[NEXTADD] MOV AX,[NEXTADD]
MOV DI,AX MOV DI,AX
SUB AX,[DMAADD] ;Number of bytes transfered SUB AX,[DMAADD] ;Number of bytes transferred
XOR DX,DX XOR DX,DX
MOV CX,ES:[SI.RECSIZ] MOV CX,ES:[SI.RECSIZ]
DIV CX ;Number of records DIV CX ;Number of records
@ -1964,7 +1964,7 @@ SETFCB:
JZ FULLREC JZ FULLREC
MOV BYTE PTR [DSKERR],1 MOV BYTE PTR [DSKERR],1
OR DX,DX OR DX,DX
JZ FULLREC ;If remainder 0, then full record transfered JZ FULLREC ;If remainder 0, then full record transferred
MOV BYTE PTR [DSKERR],3 ;Flag partial last record MOV BYTE PTR [DSKERR],3 ;Flag partial last record
SUB CX,DX ;Bytes left in last record SUB CX,DX ;Bytes left in last record
PUSH ES PUSH ES
@ -2109,7 +2109,7 @@ NORNDUP:
MOV [CLUSNUM],BX MOV [CLUSNUM],BX
MOV [LASTPOS],DX MOV [LASTPOS],DX
SUB AX,DX ;Last cluster minus current cluster SUB AX,DX ;Last cluster minus current cluster
JZ DOWRT ;If we have last clus, we must have first JZ DOWRT ;If we have last cluster we must have first
JCXZ HAVSTART ;See if no more data JCXZ HAVSTART ;See if no more data
PUSH CX ;No. of clusters short of first PUSH CX ;No. of clusters short of first
MOV CX,AX MOV CX,AX
@ -2144,7 +2144,7 @@ WRTLP:
CALL OPTIMIZE CALL OPTIMIZE
JC NOTINBUF ;Is one of the sectors buffered? JC NOTINBUF ;Is one of the sectors buffered?
MOV [BUFSECNO],0 ;If so, invalidate the buffer since we're MOV [BUFSECNO],0 ;If so, invalidate the buffer since we're
MOV WORD PTR [BUFDRVNO],0FFH ; completely rewritting it MOV WORD PTR [BUFDRVNO],0FFH ; completely rewriting it
NOTINBUF: NOTINBUF:
PUSH DI PUSH DI
PUSH AX PUSH AX
@ -2285,7 +2285,7 @@ FINCLUS:
POP DX ;Starting cluster POP DX ;Starting cluster
SUB BX,DX ;Number of new clusters accessed SUB BX,DX ;Number of new clusters accessed
ADD [LASTPOS],BX ADD [LASTPOS],BX
POP BX ;BL = sector postion within cluster POP BX ;BL = sector position within cluster
CALL FIGREC CALL FIGREC
MOV BX,SI MOV BX,SI
;Now let's see if any of these sectors are already in the buffer ;Now let's see if any of these sectors are already in the buffer
@ -2581,7 +2581,7 @@ FILESIZE: ;System call 35
MOV CX,128 MOV CX,128
RECOK: RECOK:
XOR AX,AX XOR AX,AX
XOR DX,DX ;Intialize size to zero XOR DX,DX ;Initialize size to zero
OR BH,BH ;Check for named I/O device OR BH,BH ;Check for named I/O device
JS DEVSIZ JS DEVSIZ
INC SI INC SI
@ -3197,7 +3197,7 @@ EXTBIT EQU 8
DEFDRV: DEFDRV:
INC DI INC DI
MOV CX,8 MOV CX,8
TEST AL,NAMBIT ;Use current name fiels as defualt? TEST AL,NAMBIT ;Use current name fields as default?
XCHG AX,BX ;Save bits in BX XCHG AX,BX ;Save bits in BX
MOV AL," " MOV AL," "
JZ FILLB ;If not, go fill with blanks JZ FILLB ;If not, go fill with blanks
@ -3695,7 +3695,7 @@ CONTSTK DW ?
SECCLUSPOS DB ? ;Position of first sector within cluster SECCLUSPOS DB ? ;Position of first sector within cluster
DSKERR DB ? DSKERR DB ?
TRANS DB ? TRANS DB ?
PREREAD DB ? ;0 means preread; 1 means optional PREREAD DB ? ;0 means pre read; 1 means optional
READOP DB ? READOP DB ?
THISDRV DB ? THISDRV DB ?
@ -4028,4 +4028,4 @@ MEMSTRT LABEL WORD
ADJFAC EQU DIRBUF-MEMSTRT ADJFAC EQU DIRBUF-MEMSTRT
DATA ENDS DATA ENDS
END END