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

42 lines
594 B
NASM
Raw Normal View History

[Reduction] #98-99: getvect and setvect Yeah, getvect.asm also includes setvect(). They really could have chosen a better naming scheme.
2014-08-20 16:09:26 +00:00
; void (__cdecl __interrupt far *__cdecl getvect(int intr))()
public _getvect
[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
_getvect proc
[Reduction] #98-99: getvect and setvect Yeah, getvect.asm also includes setvect(). They really could have chosen a better naming scheme.
2014-08-20 16:09:26 +00:00
@@intr = byte ptr 6
push bp
mov bp, sp
push si
push di
mov ah, 35h
mov al, [bp+@@intr]
int 21h
xchg ax, bx
mov dx, es
pop di
pop si
pop bp
ret
_getvect endp
; void __cdecl setvect(int intr, void (__interrupt far *func)())
public _setvect
[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
_setvect proc
[Reduction] #98-99: getvect and setvect Yeah, getvect.asm also includes setvect(). They really could have chosen a better naming scheme.
2014-08-20 16:09:26 +00:00
@@intr = byte ptr 6
@@func = dword ptr 8
push bp
mov bp, sp
push si
push di
mov ah, 25h
mov al, [bp+@@intr]
push ds
lds dx, [bp+@@func]
int 21h
pop ds
pop di
pop si
pop bp
ret
_setvect endp