Code style fixes

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
+4 -2
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 ; by Tim Paterson
@@ -102,6 +102,8 @@ BIOSFLUSH EQU 27 ;Disk buffer flush
; Start of code ; Start of code
ORG 0 ORG 0
PUT 100H
JMP DOSINIT JMP DOSINIT
ESCTAB: ESCTAB:
@@ -2240,4 +2242,4 @@ SSSAVE DS 2
SPSAVE DS 2 SPSAVE DS 2
CURDRV DS 2 CURDRV DS 2
DRVTAB: ;Address of start of DPBs DRVTAB: ;Address of start of DPBs
 
+6 -6
View File
@@ -661,7 +661,7 @@ NOIND:
MOV CH,6 MOV CH,6
JNC RET JNC RET
RCL AL RCL AL
JB L0523 JC L0523
INC CH INC CH
JP L0523 JP L0523
@@ -2949,11 +2949,11 @@ RET: RET
L1546: L1546:
INC BX INC BX
CMP BX,LSTBUF CMP BX,HEXBUF+128
JZ RET JZ RET
CMP BX,BC CMP BX,L1C1B+128
JZ RET JZ RET
CMP BX,L1C1B CMP BX,LSTBUF+128
JNZ RET JNZ RET
MOV BX,HEXBUF MOV BX,HEXBUF
RET RET
@@ -3609,7 +3609,7 @@ OPTAB:
DW NONE DW NONE
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. ' ERRMES: DM '***** ERROR no. '
NOSPAC: DB 13,10,'No directory space',13,10,'$' NOSPAC: DB 13,10,'No directory space',13,10,'$'
HEXSUF: DM 'H',13,10 HEXSUF: DM 'H',13,10
@@ -3678,4 +3678,4 @@ IY: DS 2
DS 50 DS 50
STACK: EQU $ STACK: EQU $
START: EQU $ START: EQU $
 
+2 -1
View File
@@ -31,6 +31,7 @@ BLACK: EQU 80H
BPAWN: EQU BLACK+PAWN BPAWN: EQU BLACK+PAWN
ORG 100H ORG 100H
PUT 100H
;*********************************************************** ;***********************************************************
; MAIN PROGRAM DRIVER ; MAIN PROGRAM DRIVER
@@ -2303,4 +2304,4 @@ IY: DS 2
BC: DS 2 BC: DS 2
DE: DS 2 DE: DS 2
HL: DS 2 HL: DS 2
 
+6 -5
View File
@@ -22,6 +22,7 @@ RR EQU 33
SYSTEM EQU 5 SYSTEM EQU 5
ORG 100H ORG 100H
PUT 100H
MOV SP,STACK MOV SP,STACK
CLD CLD
@@ -147,7 +148,7 @@ EXTERNAL:
INT 33 INT 33
OR AL,AL OR AL,AL
JNZ BADCOM JNZ BADCOM
MOV W,[IDLEN+RR],0 MOV [IDLEN+RR],0
MOV CX,512 ;512 records MOV CX,512 ;512 records
MOV AH,RDBLK MOV AH,RDBLK
INT 33 INT 33
@@ -308,7 +309,7 @@ TYPE:
INT 33 INT 33
OR AL,AL OR AL,AL
JNZ RET ; Not found JNZ RET ; Not found
MOV W,[FCB+RR],0 MOV [FCB+RR],0
MOV CX,512 MOV CX,512
MOV AH,RDBLK MOV AH,RDBLK
INT 33 INT 33
@@ -398,8 +399,8 @@ HASDSTNAM:
MOV DX,TPA MOV DX,TPA
MOV AH,SETDMA MOV AH,SETDMA
INT 33 INT 33
MOV W,[FCB+RR],0 MOV [FCB+RR],0
MOV W,[DSTFCB+RR],0 MOV [DSTFCB+RR],0
CPYBLK: CPYBLK:
MOV DX,FCB MOV DX,FCB
MOV CX,[NUMREC] MOV CX,[NUMREC]
@@ -471,4 +472,4 @@ COMTAB: DB 4,"DIR"
DB 0 DB 0
TPA: TPA:
 
+21 -20
View File
@@ -15,11 +15,12 @@ RR EQU 33
PROMPT EQU "*" PROMPT EQU "*"
ORG 100H ORG 100H
PUT 100H
MOV SP,STACK MOV SP,STACK
MOV DX,BREAK MOV DX,BREAK
MOV AX,2523H MOV AX,2523H
INT 21H INT 33
MOV SI,BAK MOV SI,BAK
MOV DI,FCB+9 MOV DI,FCB+9
MOV CX,3 MOV CX,3
@@ -30,13 +31,13 @@ PROMPT EQU "*"
;Open input file ;Open input file
MOV AH,OPEN MOV AH,OPEN
MOV DX,FCB MOV DX,FCB
INT 21H INT 33
MOV [HAVEOF],AL MOV [HAVEOF],AL
OR AL,AL OR AL,AL
JZ HAVFIL JZ HAVFIL
MOV DX,NEWFIL MOV DX,NEWFIL
MOV AH,PRINTBUF MOV AH,PRINTBUF
INT 21H INT 33
HAVFIL: HAVFIL:
MOV SI,FCB MOV SI,FCB
MOV DI,FCB2 MOV DI,FCB2
@@ -48,17 +49,17 @@ HAVFIL:
MOVB MOVB
MOV AH,DELFIL MOV AH,DELFIL
MOV DX,FCB2 MOV DX,FCB2
INT 21H INT 33
MOV AL,"$" MOV AL,"$"
MOV DI,FCB2+9 MOV DI,FCB2+9
STOB STOB
STOB STOB
STOB STOB
MOV AH,DELFIL MOV AH,DELFIL
INT 21H INT 33
;Create .$$$ file to make sure directory has room ;Create .$$$ file to make sure directory has room
MOV AH,MAKE MOV AH,MAKE
INT 21H INT 33
OR AL,AL OR AL,AL
JZ SETUP JZ SETUP
MOV DX,NODIR MOV DX,NODIR
@@ -75,7 +76,7 @@ NOTEOF:
SETUP: SETUP:
MOV DX,START MOV DX,START
MOV AH,SETDMA MOV AH,SETDMA
INT 21H INT 33
MOV CX,[6] MOV CX,[6]
SUB CX,80H SUB CX,80H
MOV [LAST],CX MOV [LAST],CX
@@ -86,7 +87,7 @@ SETUP:
MOV [FCB+RR],0 MOV [FCB+RR],0
MOV DX,FCB MOV DX,FCB
MOV AH,RDBLK MOV AH,RDBLK
INT 21H INT 33
CMP AL,2 CMP AL,2
JZ TOOBIG JZ TOOBIG
JCXZ SAVEND JCXZ SAVEND
@@ -117,7 +118,7 @@ COMMAND:
CALL OUT CALL OUT
MOV DX,COMBUF MOV DX,COMBUF
MOV AH,INBUF MOV AH,INBUF
INT 21H INT 33
MOV AL,10 MOV AL,10
CALL OUT CALL OUT
MOV [PARAM2],0 MOV [PARAM2],0
@@ -160,7 +161,7 @@ SKIP1:
COMERR: COMERR:
MOV DX,BADCOM MOV DX,BADCOM
MOV AH,PRINTBUF MOV AH,PRINTBUF
INT 21H INT 33
JP COMMAND JP COMMAND
@@ -409,7 +410,7 @@ LOADLP:
CALL SHOWNUM CALL SHOWNUM
MOV AH,INBUF ;Get input buffer MOV AH,INBUF ;Get input buffer
MOV DX,EDITBUF MOV DX,EDITBUF
INT 21H INT 33
MOV AL,10 MOV AL,10
CALL OUT CALL OUT
MOV CL,[EDITBUF+1] MOV CL,[EDITBUF+1]
@@ -521,7 +522,7 @@ GETIT:
MEMERR: MEMERR:
MOV DX,MEMFUL MOV DX,MEMFUL
MOV AH,PRINTBUF MOV AH,PRINTBUF
INT 21H INT 33
JMP COMMAND JMP COMMAND
@@ -550,7 +551,7 @@ INLP:
CALL SHOWNUM CALL SHOWNUM
MOV DX,EDITBUF MOV DX,EDITBUF
MOV AH,INBUF MOV AH,INBUF
INT 21H INT 33
MOV AL,10 MOV AL,10
CALL OUT CALL OUT
MOV SI,EDITBUF+2 MOV SI,EDITBUF+2
@@ -596,12 +597,12 @@ ENDED:
MOV [FCB2+RR],0 MOV [FCB2+RR],0
MOV DX,FCB2 MOV DX,FCB2
MOV AH,WRBLK MOV AH,WRBLK
INT 21H INT 33
OR AL,AL OR AL,AL
JNZ WRTERR JNZ WRTERR
;Close .$$$ file ;Close .$$$ file
MOV AH,CLOSE MOV AH,CLOSE
INT 21H INT 33
MOV SI,FCB MOV SI,FCB
LEA DI,[SI+16] LEA DI,[SI+16]
MOV DX,SI MOV DX,SI
@@ -613,7 +614,7 @@ ENDED:
MOVB MOVB
;Rename original file .BAK ;Rename original file .BAK
MOV AH,RENAM MOV AH,RENAM
INT 21H INT 33
MOV SI,FCB MOV SI,FCB
MOV DI,FCB2+16 MOV DI,FCB2+16
MOV CX,6 MOV CX,6
@@ -621,7 +622,7 @@ ENDED:
MOVW MOVW
;Rename .$$$ file to original name ;Rename .$$$ file to original name
MOV DX,FCB2 MOV DX,FCB2
INT 21H INT 33
JMP 0 JMP 0
@@ -629,7 +630,7 @@ WRTERR:
MOV DX,DSKFUL MOV DX,DSKFUL
ERROR: ERROR:
MOV AH,PRINTBUF MOV AH,PRINTBUF
INT 21H INT 33
JMP 0 JMP 0
NUMRECS: NUMRECS:
@@ -643,7 +644,7 @@ OUT:
PUSH DX PUSH DX
XCHG AX,DX XCHG AX,DX
MOV AH,OUTCH MOV AH,OUTCH
INT 21H INT 33
XCHG AX,DX XCHG AX,DX
POP DX POP DX
RET RET
@@ -677,4 +678,4 @@ EDITBUF: DS 2+255
ALIGN ALIGN
STACK: STACK:
START: START:
 
+12 -12
View File
@@ -26,7 +26,7 @@ HAVEXT:
;Get load offset (default is -100H) ;Get load offset (default is -100H)
MOV AH,OPEN MOV AH,OPEN
MOV DX,FCB MOV DX,FCB
INT 21H INT 33
OR AL,AL OR AL,AL
JNZ NOFIL JNZ NOFIL
MOV B,[FCB+32],0 MOV B,[FCB+32],0
@@ -65,8 +65,8 @@ NOFIL:
MOV DX,NOFILE MOV DX,NOFILE
QUIT: QUIT:
MOV AH,9 MOV AH,9
INT 21H INT 33
INT 20H INT 32
ADERR: ADERR:
MOV DX,ADDR MOV DX,ADDR
@@ -75,7 +75,7 @@ ADERR:
GETCH: GETCH:
CMP SI,BUFFER+BUFSIZ CMP SI,BUFFER+BUFSIZ
JNZ NOREAD JNZ NOREAD
INT 21H INT 33
OR AL,AL OR AL,AL
JNZ ERROR JNZ ERROR
MOV SI,BUFFER MOV SI,BUFFER
@@ -109,7 +109,7 @@ HEXDIG:
ERROR: ERROR:
MOV DX,ERRMES MOV DX,ERRMES
MOV AH,9 MOV AH,9
INT 21H INT 33
DONE: DONE:
MOV DI,FCB+9 MOV DI,FCB+9
MOV SI,COM MOV SI,COM
@@ -117,15 +117,15 @@ DONE:
MOVW MOVW
MOV DX,FCB MOV DX,FCB
MOV AH,DELETE MOV AH,DELETE
INT 21H INT 33
MOV AH,CREATE MOV AH,CREATE
INT 21H INT 33
OR AL,AL OR AL,AL
JNZ NOROOM JNZ NOROOM
MOV W,[FCB+33],0 MOV W,[FCB+33],0
MOV DX,START MOV DX,START
MOV AH,SETDMA MOV AH,SETDMA
INT 21H INT 33
MOV CX,BP MOV CX,BP
SUB CX,START-7FH SUB CX,START-7FH
AND CL,80H AND CL,80H
@@ -134,11 +134,11 @@ DONE:
XCHG CL,CH XCHG CL,CH
MOV AH,BLKWRT MOV AH,BLKWRT
MOV DX,FCB MOV DX,FCB
INT 21H INT 33
MOV AH,CLOSE MOV AH,CLOSE
INT 21H INT 33
EXIT: EXIT:
INT 20H INT 32
NOROOM: NOROOM:
MOV DX,DIRFUL MOV DX,DIRFUL
@@ -152,4 +152,4 @@ ADDR: DB "Address out of range--conversion aborted$"
DIRFUL: DB "Disk directory full$" DIRFUL: DB "Disk directory full$"
START: START:
 
+2 -1
View File
@@ -11,6 +11,7 @@ PRINTBUF EQU 9
SYSTEM EQU 5 SYSTEM EQU 5
ORG 100H ORG 100H
PUT 100H
JMP RDCPM JMP RDCPM
@@ -256,4 +257,4 @@ CPMTAB2:
DW 0,0,0,0 DW 0,0,0,0
DW 0,0,0,0 DW 0,0,0,0
DW 0,0,0,0 DW 0,0,0,0
 
+5 -3
View File
@@ -1,9 +1,11 @@
FCB EQU 5CH FCB EQU 5CH
ORG 100H ORG 100H
PUT 100H
JMP START JMP START
SECS:
DW 52 ;Patch for different configs SECS: DW 52 ;Patch for different configs
START: START:
MOV AL,[FCB] MOV AL,[FCB]
@@ -51,4 +53,4 @@ ERWRIT: DB "Disk write error$"
DRVBAD: DB "Bad drive specification" DRVBAD: DB "Bad drive specification"
END: END: