From a25b0e63b64e4b56368dacf0591129733398b112 Mon Sep 17 00:00:00 2001 From: Broken Pipe <85091235+TheBrokenPipe@users.noreply.github.com> Date: Sat, 23 Mar 2024 01:33:01 +0000 Subject: [PATCH] Code style fixes Updated the code style to better align with Paterson's. --- 86DOS.ASM | 8 +++++--- ASM.ASM | 12 ++++++------ CHESS.ASM | 3 ++- COMMAND.ASM | 11 ++++++----- EDLIN.ASM | 41 +++++++++++++++++++++-------------------- HEX2BIN.ASM | 24 ++++++++++++------------ RDCPM.ASM | 3 ++- SYS.ASM | 8 +++++--- 8 files changed, 59 insertions(+), 51 deletions(-) diff --git a/86DOS.ASM b/86DOS.ASM index 9c2e6e6..e7a90d9 100644 --- a/86DOS.ASM +++ b/86DOS.ASM @@ -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 - \ No newline at end of file + \ No newline at end of file diff --git a/ASM.ASM b/ASM.ASM index e3835ef..d4d5dba 100644 --- a/ASM.ASM +++ b/ASM.ASM @@ -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 $ - \ No newline at end of file + \ No newline at end of file diff --git a/CHESS.ASM b/CHESS.ASM index 63d8c5f..5d37c3c 100644 --- a/CHESS.ASM +++ b/CHESS.ASM @@ -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 - \ No newline at end of file + \ No newline at end of file diff --git a/COMMAND.ASM b/COMMAND.ASM index ea78166..23466eb 100644 --- a/COMMAND.ASM +++ b/COMMAND.ASM @@ -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: - \ No newline at end of file + \ No newline at end of file diff --git a/EDLIN.ASM b/EDLIN.ASM index a61d3b0..8221880 100644 --- a/EDLIN.ASM +++ b/EDLIN.ASM @@ -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: - \ No newline at end of file + \ No newline at end of file diff --git a/HEX2BIN.ASM b/HEX2BIN.ASM index 205e586..a59211e 100644 --- a/HEX2BIN.ASM +++ b/HEX2BIN.ASM @@ -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: - \ No newline at end of file + \ No newline at end of file diff --git a/RDCPM.ASM b/RDCPM.ASM index 72f7275..805032d 100644 --- a/RDCPM.ASM +++ b/RDCPM.ASM @@ -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 - \ No newline at end of file + \ No newline at end of file diff --git a/SYS.ASM b/SYS.ASM index 9dfe10f..b645695 100644 --- a/SYS.ASM +++ b/SYS.ASM @@ -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: - \ No newline at end of file + \ No newline at end of file