Fixed some spelling mistakes in MS-DOS v1.25 source code

This commit is contained in:
Purify 2018-10-28 22:58:59 -04:00
commit d28f7e6e51
4 changed files with 17 additions and 17 deletions

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
@ -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.
@ -4003,4 +4003,4 @@ SRCBUF: DS BUFSIZ
ALIGN ALIGN
STACK: EQU $ STACK: EQU $
START: EQU $ START: EQU $
 

View file

@ -608,7 +608,7 @@ INIT ENDS
;This TAIL segment is used to produce a PARA aligned label in the resident ;This TAIL segment is used to produce a PARA aligned label in the resident
; group which is the location where the transient segments will be loaded ; group which is the location where the transient segments will be loaded
; initialy. ; initially.
TAIL SEGMENT PARA TAIL SEGMENT PARA
ORG 0 ORG 0
@ -678,7 +678,7 @@ ASSUME DS:TRANGROUP
INT 21H ;Get a command INT 21H ;Get a command
JMP DOCOM JMP DOCOM
;All batch proccessing has DS set to segment of resident portion ;All batch processing has DS set to segment of resident portion
ASSUME DS:RESGROUP ASSUME DS:RESGROUP
NEEDPARM: NEEDPARM:
CALL GETBATBYT CALL GETBATBYT
@ -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
 

View file

@ -1479,7 +1479,7 @@ CURDRV: DB -1
; 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
; ;
@ -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
 

View file

@ -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
@ -1921,12 +1921,12 @@ 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?
JZ NOTBUFFED ;If not no problem JZ NOTBUFFED ;If not no problem
;We have transfered in a sector from disk when a dirty copy of it is in the buffer. ;We have transferred in a sector from disk when a dirty copy of it is in the buffer.
;We must transfer the sector from the buffer to correct memory address ;We must transfer the sector from the buffer to correct memory address
SUB AX,[BUFSECNO] ;How many sectors into the transfer? SUB AX,[BUFSECNO] ;How many sectors into the transfer?
NEG AX NEG AX
@ -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
@ -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
@ -2316,7 +2316,7 @@ FIGREC:
;Inputs: ;Inputs:
; DX = Physical cluster number ; DX = Physical cluster number
; BL = Sector postion within cluster ; BL = Sector position within cluster
; BP = Base of drive parameters ; BP = Base of drive parameters
;Outputs: ;Outputs:
; DX = physical sector number ; DX = physical sector number
@ -4028,4 +4028,4 @@ MEMSTRT LABEL WORD
ADJFAC EQU DIRBUF-MEMSTRT ADJFAC EQU DIRBUF-MEMSTRT
DATA ENDS DATA ENDS
END END