Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/libs/BorlandC/flushall.asm

54 lines
859 B
NASM
Raw Normal View History

[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
; int flushall(void)
[JWasm move] Don't use the DIST/CALLMODEL constants for procedures and labels Once you've actually found the right syntax that makes the assembler just use the default call type of the current memory model for both procedures (where it's just "PROC" without anything else) and labels (where it's "LABEL PROC"), these constants become completely unneccessary, even with TASM.
2014-11-05 17:20:02 +00:00
_flushall proc
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
@@Cpt = word ptr -(dPtrSize + 4)
@@Nb = word ptr -(dPtrSize + 2)
@@fp = DPTR_ -(dPtrSize)
if LDATA
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
@@local_stack = 8
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
else
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
@@local_stack = 6
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
endif
push bp
mov bp, sp
sub sp, @@local_stack
push si
push di
mov [bp+@@Cpt], 0
mov ax, __nfile
mov [bp+@@Nb], ax
if LDATA
mov word ptr [bp+@@fp+2], ds
endif
mov word ptr [bp+@@fp], offset _streams
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jmp short flushall_loop
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
flushall_RDWR?:
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
LES_ bx, [bp+@@fp]
test byte ptr ES_[bx+FILE.flags], 3
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jz short flushall_next
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
if LDATA
push word ptr [bp+@@fp+2]
endif
push bx
nopcall _fflush
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
popCX_
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
pop cx
inc [bp+@@Cpt]
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
flushall_next:
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
add word ptr [bp+@@fp], size FILE
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
flushall_loop:
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
mov ax, [bp+@@Nb]
dec [bp+@@Nb]
or ax, ax
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jnz short flushall_RDWR?
[Reduction] #445: flushall
2014-09-02 19:26:48 +00:00
mov ax, [bp+@@Cpt]
pop di
pop si
mov sp, bp
pop bp
ret
_flushall endp