Code style fixes
Updated the code style to better align with Paterson's.
This commit is contained in:
@@ -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:
|
||||||
@@ -275,7 +277,7 @@ BADCALL:
|
|||||||
IRET: IRET
|
IRET: IRET
|
||||||
|
|
||||||
ENTRY: ;System call entry point and dispatcher
|
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
|
POP AX ;Segment from the long call at 5
|
||||||
SEG CS
|
SEG CS
|
||||||
POP [TEMP] ;IP from the CALL 5
|
POP [TEMP] ;IP from the CALL 5
|
||||||
@@ -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
|
||||||
|
|
||||||
@@ -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 $
|
||||||
|
|
||||||
@@ -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
@@ -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:
|
||||||
|
|
||||||
@@ -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
@@ -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:
|
||||||
|
|
||||||
@@ -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
|
||||||
|
|
||||||
@@ -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:
|
||||||
|
|
||||||
Reference in New Issue
Block a user