This commit is contained in:
erickeller 2018-10-03 04:59:41 +00:00 committed by GitHub
commit 823ec7dd08
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
5 changed files with 42 additions and 42 deletions

View file

@ -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.

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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 ?