From c38b6b45d54b46a17758e9f8f96c7c41c2ddc48f Mon Sep 17 00:00:00 2001 From: Eric Keller Date: Tue, 2 Oct 2018 23:04:22 +0200 Subject: [PATCH] Fix obvious typos Still nice they put comments to their code :) --- v1.25/source/ASM.ASM | 20 ++++++++++---------- v1.25/source/COMMAND.ASM | 12 ++++++------ v1.25/source/HEX2BIN.ASM | 4 ++-- v1.25/source/IO.ASM | 16 ++++++++-------- v1.25/source/MSDOS.ASM | 36 ++++++++++++++++++------------------ 5 files changed, 44 insertions(+), 44 deletions(-) diff --git a/v1.25/source/ASM.ASM b/v1.25/source/ASM.ASM index d870d97..1dd2494 100644 --- a/v1.25/source/ASM.ASM +++ b/v1.25/source/ASM.ASM @@ -105,7 +105,7 @@ L0000: MOV AH,80H NOPRN: MOV [LSTFCB],AL - MOV [LSTDEV],AH ;Flag device for list ouput + MOV [LSTDEV],AH ;Flag device for list output MOV SI,EXTEND MOV DI,FCB+9 MOVW @@ -665,7 +665,7 @@ BXJ: PAREN: CALL GETSYM ;Eat the "(" CALL EXPRESSION - CMP B,[SYM],")" ;Better have closing paren + CMP B,[SYM],")" ;Better have closing parenthesis MOV CL,20 JNZ ERR30 RET @@ -2389,7 +2389,7 @@ OBJBT: JP NEXBT 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 XCHG AX,BX LODW ;Get constant part @@ -2399,7 +2399,7 @@ FIXUP: MOV B,[ERR],100 ;Undefined - flag error XOR AX,AX HAVDEF: - OR CL,CL ;See if word or byte fixup + OR CL,CL ;See if word or byte fix up JS DEFBYT STOW JP NEXBT @@ -2443,7 +2443,7 @@ EMARK: AND AH,0FEH ;Reset error indicator OR AL,[ERR] ;See if any errors on this line JZ NOERR - OR AH,1 ;Send line to console if error occured + OR AH,1 ;Send line to console if error occurred NOERR: MOV [LSTDEV],AH MOV CX,DI @@ -2475,7 +2475,7 @@ NOFIL: CALL REPERR POP SI POP CX - MOV AL,[SPC] ;Any special funtion? + MOV AL,[SPC] ;Any special function? OR AL,AL JNZ SPCFUN JMP FIXLINE @@ -2509,7 +2509,7 @@ DPUT: JMP FIXLINE 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 ;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. @@ -2976,8 +2976,8 @@ NONE: DB 0 ; 8086 MNEMONIC TABLE -; This table is actually a sequence of subtables, each starting with a label. -; The label signifies which mnemonics the subtable applies to--A3, for example, +; This table is actually a sequence of sub tables, each starting with a label. +; The label signifies which mnemonics the sub table applies to--A3, for example, ; means all 3-letter mnemonics beginning with A. A3: @@ -4003,4 +4003,4 @@ SRCBUF: DS BUFSIZ ALIGN STACK: EQU $ START: EQU $ - \ No newline at end of file + diff --git a/v1.25/source/COMMAND.ASM b/v1.25/source/COMMAND.ASM index 830bf73..d70813f 100644 --- a/v1.25/source/COMMAND.ASM +++ b/v1.25/source/COMMAND.ASM @@ -703,7 +703,7 @@ RDPARM: JZ RDBAT STOSB ;To transient segment MOV DL,AL - INT 33 ;Display paramters too + INT 33 ;Display parameters too JMP SHORT RDPARM PROMPTBAT: @@ -866,7 +866,7 @@ FINDCOM: CMP [CHKDRV],0 JZ NOCHECK 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 JZ DRVBAD NOCHECK:CALL DX @@ -1336,8 +1336,8 @@ SCANNAM: JNZ SCANNAM GETDEST: MOV DI,OFFSET TRANGROUP:DEST - MOV BX,BP ;Remeber switches so far - XOR BP,BP ;Must have dest. swtiches alone + MOV BX,BP ;Remember switches so far + XOR BP,BP ;Must have destination switches alone CALL PARSNAM MOV [ARG2S],BP ;Remember switches on destination JNZ HAVDESTNAM ;File name present? @@ -1952,7 +1952,7 @@ INLINE: LODSB CMP AL,BL JZ NEXT - CMP BL,":" ;Is it a date seperator? + CMP BL,":" ;Is it a date separator? JNZ DATESEP DEC SI MOV DL,0 @@ -2163,4 +2163,4 @@ TRANCODE ENDS 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 END PROGSTART - \ No newline at end of file + diff --git a/v1.25/source/HEX2BIN.ASM b/v1.25/source/HEX2BIN.ASM index d7ba742..e2feeed 100644 --- a/v1.25/source/HEX2BIN.ASM +++ b/v1.25/source/HEX2BIN.ASM @@ -41,7 +41,7 @@ GETOFF: GETOFF1: CALL HEXCHK ;Check for valid hex character JC HAVOFF ;No offset if not valid - XOR BX,BX ;Intialize offset sum to 0 + XOR BX,BX ;Initialize offset sum to 0 CONVOFF: SHL BX,CL ;Multiply current sum by 16 OR BL,AL ;Add in current hex digit @@ -211,4 +211,4 @@ BUFFER: DS BUFSIZ START: STARTSEG EQU (START+15)/16 - \ No newline at end of file + diff --git a/v1.25/source/IO.ASM b/v1.25/source/IO.ASM index 3b9f181..515ca34 100644 --- a/v1.25/source/IO.ASM +++ b/v1.25/source/IO.ASM @@ -1475,11 +1475,11 @@ CURDRV: DB -1 ; 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 ; 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. ; ; 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 ; @@ -1850,7 +1850,7 @@ SSDRIVE: DB 2 ; Sector per allocation unit. DW 54 ; Reserved sectors. 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. IF SMALLDS-1 @@ -1880,7 +1880,7 @@ LSDRIVE: DB 4 ; Sectors per allocation unit. DW 1 ; Number of reserved sectors. 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. IF CONVERT @@ -1889,7 +1889,7 @@ OLDLSDRIVE: DB 4 DW 52 ; Old format had two tracks reserved. DB 2 - DW 64 ; 64 directory entrys. + DW 64 ; 64 directory entries. DW 77*26 ENDIF @@ -1910,7 +1910,7 @@ LDDRIVE: DB 1 DW 1 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 IF CONVERT @@ -1919,7 +1919,7 @@ OLDLDDRIVE: DB 1 DW 1 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 ENDIF ENDIF @@ -1931,4 +1931,4 @@ DOSDIF: EQU 16*(DOSSEG-BIOSSEG) STKSAV: EQU 1701H+DOSDIF DMAADD: EQU 15B4H+DOSDIF END - \ No newline at end of file + diff --git a/v1.25/source/MSDOS.ASM b/v1.25/source/MSDOS.ASM index 8538b76..59ba706 100644 --- a/v1.25/source/MSDOS.ASM +++ b/v1.25/source/MSDOS.ASM @@ -179,11 +179,11 @@ BIOSSTAT DB 3 DUP (?) ;Console input status check BIOSIN DB 3 DUP (?) ;Get console character BIOSOUT DB 3 DUP (?) ;Output console character BIOSPRINT DB 3 DUP (?) ;Output to printer -BIOSAUXIN DB 3 DUP (?) ;Get byte from auxilliary -BIOSAUXOUT DB 3 DUP (?) ;Output byte to auxilliary +BIOSAUXIN DB 3 DUP (?) ;Get byte from auxiliary +BIOSAUXOUT DB 3 DUP (?) ;Output byte to auxiliary BIOSREAD DB 3 DUP (?) ;Disk read 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 BIOSSETTIME DB 3 DUP (?) ;Set time BIOSGETTIME DB 3 DUP (?) ;Get time and date @@ -916,7 +916,7 @@ OPENDEV: STOSW STOSW ;Set current size to zero CALL DATE16 - STOSW ;Date is todays + STOSW ;Date is today's XCHG AX,DX STOSW ;Use current time MOV AL,BH ;Get device number @@ -1017,7 +1017,7 @@ CLOSE: ;System call 16 ADD DI,7 NORMFCB3: 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 DEC AL ;Make zero = drive A MOV AH,1 ;Look for dirty buffer @@ -1493,7 +1493,7 @@ SETUP: ; [DSKERR] = 0 (no errors yet) ; [TRANS] = 0 (No transfers yet) ; [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. PUSH AX @@ -1591,7 +1591,7 @@ BREAKDOWN: ; DS = CS ; CX = Length of disk transfer in bytes ; BP = Base of drive parameters -; [BYTSECPOS] = Byte position witin first sector +; [BYTSECPOS] = Byte position within first sector ;Outputs: ; [BYTCNT1] = Bytes to transfer in first sector ; [SECCNT] = No. of whole sectors to transfer @@ -1744,7 +1744,7 @@ BUFWRT: MOV [SECPOS],AX CMP AX,[VALSEC] ;Has sector been written before? MOV AL,1 - JA NOREAD ;Skip preread if SECPOS>VALSEC + JA NOREAD ;Skip pre read if SECPOS>VALSEC MOV AL,0 NOREAD: CALL BUFSEC @@ -1921,7 +1921,7 @@ RDLP: CALL DREAD POPF ;Restore carry flag POP DI ;Initial transfer address - POP AX ;First sector transfered + POP AX ;First sector transferred POP DS JC NOTBUFFED ;Was one of those sectors in the buffer? CMP BYTE PTR [DIRTYBUF],0 ;Is buffer dirty? @@ -1956,7 +1956,7 @@ SETFCB: MOV SI,[FCB] MOV AX,[NEXTADD] MOV DI,AX - SUB AX,[DMAADD] ;Number of bytes transfered + SUB AX,[DMAADD] ;Number of bytes transferred XOR DX,DX MOV CX,ES:[SI.RECSIZ] DIV CX ;Number of records @@ -1964,7 +1964,7 @@ SETFCB: JZ FULLREC MOV BYTE PTR [DSKERR],1 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 SUB CX,DX ;Bytes left in last record PUSH ES @@ -2109,7 +2109,7 @@ NORNDUP: MOV [CLUSNUM],BX MOV [LASTPOS],DX 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 PUSH CX ;No. of clusters short of first MOV CX,AX @@ -2144,7 +2144,7 @@ WRTLP: CALL OPTIMIZE JC NOTINBUF ;Is one of the sectors buffered? 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: PUSH DI PUSH AX @@ -2285,7 +2285,7 @@ FINCLUS: POP DX ;Starting cluster SUB BX,DX ;Number of new clusters accessed ADD [LASTPOS],BX - POP BX ;BL = sector postion within cluster + POP BX ;BL = sector position within cluster CALL FIGREC MOV BX,SI ;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 RECOK: 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 JS DEVSIZ INC SI @@ -3197,7 +3197,7 @@ EXTBIT EQU 8 DEFDRV: INC DI 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 MOV AL," " JZ FILLB ;If not, go fill with blanks @@ -3695,7 +3695,7 @@ CONTSTK DW ? SECCLUSPOS DB ? ;Position of first sector within cluster DSKERR DB ? TRANS DB ? -PREREAD DB ? ;0 means preread; 1 means optional +PREREAD DB ? ;0 means pre read; 1 means optional READOP DB ? THISDRV DB ? @@ -4028,4 +4028,4 @@ MEMSTRT LABEL WORD ADJFAC EQU DIRBUF-MEMSTRT DATA ENDS END - \ No newline at end of file +