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
+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: