glm94/86-DOS-0.11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Code style fixes

Browse Source 
Updated the code style to better align with Paterson's.
This commit is contained in:
Broken Pipe
2024-03-23 01:33:01 +00:00
parent 749d1e0a4d
commit a25b0e63b6
8 changed files with 59 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
86DOS.ASM
+5 -3
View File
@@ -1,4 +1,4 @@
; 86-DOS High-performance operating system for the 8086 version 0.11
; QDOS High-performance operating system for the 8086 version 0.11
; by Tim Paterson
@@ -102,6 +102,8 @@ BIOSFLUSH EQU 27 ;Disk buffer flush
; Start of code
ORG 0
PUT 100H
JMP DOSINIT
ESCTAB:
@@ -275,7 +277,7 @@ BADCALL:
IRET: IRET
ENTRY: ;System call entry point and dispatcher
POP AX ;IP from the long call at 5
POP AX ;IP from the long call at 5
POP AX ;Segment from the long call at 5
SEG CS
POP [TEMP] ;IP from the CALL 5
@@ -2240,4 +2242,4 @@ SSSAVE DS 2
SPSAVE DS 2
CURDRV DS 2
DRVTAB: ;Address of start of DPBs


ASM.ASM
+6 -6
View File
@@ -661,7 +661,7 @@ NOIND:
MOV CH,6
JNC RET
RCL AL
JB L0523
JC L0523
INC CH
JP L0523
@@ -2949,11 +2949,11 @@ RET: RET
L1546:
INC BX
CMP BX,LSTBUF
CMP BX,HEXBUF+128
JZ RET
CMP BX,BC
CMP BX,L1C1B+128
JZ RET
CMP BX,L1C1B
CMP BX,LSTBUF+128
JNZ RET
MOV BX,HEXBUF
RET
@@ -3609,7 +3609,7 @@ OPTAB:
DW NONE
DW NONE
HEADER DB 13,10,'Seattle Computer Products 8086 Assembler Version 2.00',13,10,'$'
HEADER: DB 13,10,'Seattle Computer Products 8086 Assembler Version 2.00',13,10,'$'
ERRMES: DM '***** ERROR no. '
NOSPAC: DB 13,10,'No directory space',13,10,'$'
HEXSUF: DM 'H',13,10
@@ -3678,4 +3678,4 @@ IY: DS 2
DS 50
STACK: EQU $
START: EQU $


CHESS.ASM
+2 -1
View File
@@ -31,6 +31,7 @@ BLACK: EQU 80H
BPAWN: EQU BLACK+PAWN
ORG 100H
PUT 100H
;***********************************************************
; MAIN PROGRAM DRIVER
@@ -2303,4 +2304,4 @@ IY: DS 2
BC: DS 2
DE: DS 2
HL: DS 2


COMMAND.ASM
+6 -5
View File
@@ -22,6 +22,7 @@ RR EQU 33
SYSTEM EQU 5
ORG 100H
PUT 100H
MOV SP,STACK
CLD
@@ -147,7 +148,7 @@ EXTERNAL:
INT 33
OR AL,AL
JNZ BADCOM
MOV W,[IDLEN+RR],0
MOV [IDLEN+RR],0
MOV CX,512 ;512 records
MOV AH,RDBLK
INT 33
@@ -308,7 +309,7 @@ TYPE:
INT 33
OR AL,AL
JNZ RET ; Not found
MOV W,[FCB+RR],0
MOV [FCB+RR],0
MOV CX,512
MOV AH,RDBLK
INT 33
@@ -398,8 +399,8 @@ HASDSTNAM:
MOV DX,TPA
MOV AH,SETDMA
INT 33
MOV W,[FCB+RR],0
MOV W,[DSTFCB+RR],0
MOV [FCB+RR],0
MOV [DSTFCB+RR],0
CPYBLK:
MOV DX,FCB
MOV CX,[NUMREC]
@@ -471,4 +472,4 @@ COMTAB: DB 4,"DIR"
DB 0
TPA:


EDLIN.ASM
+21 -20
View File
@@ -15,11 +15,12 @@ RR EQU 33
PROMPT EQU "*"
ORG 100H
PUT 100H
MOV SP,STACK
MOV DX,BREAK
MOV AX,2523H
INT 21H
INT 33
MOV SI,BAK
MOV DI,FCB+9
MOV CX,3
@@ -30,13 +31,13 @@ PROMPT EQU "*"
;Open input file
MOV AH,OPEN
MOV DX,FCB
INT 21H
INT 33
MOV [HAVEOF],AL
OR AL,AL
JZ HAVFIL
MOV DX,NEWFIL
MOV AH,PRINTBUF
INT 21H
INT 33
HAVFIL:
MOV SI,FCB
MOV DI,FCB2
@@ -48,17 +49,17 @@ HAVFIL:
MOVB
MOV AH,DELFIL
MOV DX,FCB2
INT 21H
INT 33
MOV AL,"$"
MOV DI,FCB2+9
STOB
STOB
STOB
MOV AH,DELFIL
INT 21H
INT 33
;Create .$$$ file to make sure directory has room
MOV AH,MAKE
INT 21H
INT 33
OR AL,AL
JZ SETUP
MOV DX,NODIR
@@ -75,7 +76,7 @@ NOTEOF:
SETUP:
MOV DX,START
MOV AH,SETDMA
INT 21H
INT 33
MOV CX,[6]
SUB CX,80H
MOV [LAST],CX
@@ -86,7 +87,7 @@ SETUP:
MOV [FCB+RR],0
MOV DX,FCB
MOV AH,RDBLK
INT 21H
INT 33
CMP AL,2
JZ TOOBIG
JCXZ SAVEND
@@ -117,7 +118,7 @@ COMMAND:
CALL OUT
MOV DX,COMBUF
MOV AH,INBUF
INT 21H
INT 33
MOV AL,10
CALL OUT
MOV [PARAM2],0
@@ -160,7 +161,7 @@ SKIP1:
COMERR:
MOV DX,BADCOM
MOV AH,PRINTBUF
INT 21H
INT 33
JP COMMAND
@@ -409,7 +410,7 @@ LOADLP:
CALL SHOWNUM
MOV AH,INBUF ;Get input buffer
MOV DX,EDITBUF
INT 21H
INT 33
MOV AL,10
CALL OUT
MOV CL,[EDITBUF+1]
@@ -521,7 +522,7 @@ GETIT:
MEMERR:
MOV DX,MEMFUL
MOV AH,PRINTBUF
INT 21H
INT 33
JMP COMMAND
@@ -550,7 +551,7 @@ INLP:
CALL SHOWNUM
MOV DX,EDITBUF
MOV AH,INBUF
INT 21H
INT 33
MOV AL,10
CALL OUT
MOV SI,EDITBUF+2
@@ -596,12 +597,12 @@ ENDED:
MOV [FCB2+RR],0
MOV DX,FCB2
MOV AH,WRBLK
INT 21H
INT 33
OR AL,AL
JNZ WRTERR
;Close .$$$ file
MOV AH,CLOSE
INT 21H
INT 33
MOV SI,FCB
LEA DI,[SI+16]
MOV DX,SI
@@ -613,7 +614,7 @@ ENDED:
MOVB
;Rename original file .BAK
MOV AH,RENAM
INT 21H
INT 33
MOV SI,FCB
MOV DI,FCB2+16
MOV CX,6
@@ -621,7 +622,7 @@ ENDED:
MOVW
;Rename .$$$ file to original name
MOV DX,FCB2
INT 21H
INT 33
JMP 0
@@ -629,7 +630,7 @@ WRTERR:
MOV DX,DSKFUL
ERROR:
MOV AH,PRINTBUF
INT 21H
INT 33
JMP 0
NUMRECS:
@@ -643,7 +644,7 @@ OUT:
PUSH DX
XCHG AX,DX
MOV AH,OUTCH
INT 21H
INT 33
XCHG AX,DX
POP DX
RET
@@ -677,4 +678,4 @@ EDITBUF: DS 2+255
ALIGN
STACK:
START:


HEX2BIN.ASM
+12 -12
View File
@@ -26,7 +26,7 @@ HAVEXT:
;Get load offset (default is -100H)
MOV AH,OPEN
MOV DX,FCB
INT 21H
INT 33
OR AL,AL
JNZ NOFIL
MOV B,[FCB+32],0
@@ -65,8 +65,8 @@ NOFIL:
MOV DX,NOFILE
QUIT:
MOV AH,9
INT 21H
INT 20H
INT 33
INT 32
ADERR:
MOV DX,ADDR
@@ -75,7 +75,7 @@ ADERR:
GETCH:
CMP SI,BUFFER+BUFSIZ
JNZ NOREAD
INT 21H
INT 33
OR AL,AL
JNZ ERROR
MOV SI,BUFFER
@@ -109,7 +109,7 @@ HEXDIG:
ERROR:
MOV DX,ERRMES
MOV AH,9
INT 21H
INT 33
DONE:
MOV DI,FCB+9
MOV SI,COM
@@ -117,15 +117,15 @@ DONE:
MOVW
MOV DX,FCB
MOV AH,DELETE
INT 21H
INT 33
MOV AH,CREATE
INT 21H
INT 33
OR AL,AL
JNZ NOROOM
MOV W,[FCB+33],0
MOV DX,START
MOV AH,SETDMA
INT 21H
INT 33
MOV CX,BP
SUB CX,START-7FH
AND CL,80H
@@ -134,11 +134,11 @@ DONE:
XCHG CL,CH
MOV AH,BLKWRT
MOV DX,FCB
INT 21H
INT 33
MOV AH,CLOSE
INT 21H
INT 33
EXIT:
INT 20H
INT 32
NOROOM:
MOV DX,DIRFUL
@@ -152,4 +152,4 @@ ADDR: DB "Address out of range--conversion aborted$"
DIRFUL: DB "Disk directory full$"
START:


RDCPM.ASM
+2 -1
View File
@@ -11,6 +11,7 @@ PRINTBUF EQU 9
SYSTEM EQU 5
ORG 100H
PUT 100H
JMP RDCPM
@@ -256,4 +257,4 @@ CPMTAB2:
DW 0,0,0,0
DW 0,0,0,0
DW 0,0,0,0


SYS.ASM
+5 -3
View File
@@ -1,9 +1,11 @@
FCB EQU 5CH
ORG 100H
PUT 100H
JMP START
SECS:
DW 52 ;Patch for different configs
SECS: DW 52 ;Patch for different configs
START:
MOV AL,[FCB]
@@ -51,4 +53,4 @@ ERWRIT: DB "Disk write error$"
DRVBAD: DB "Bad drive specification"
END: