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

38 lines
529 B
NASM
Raw Normal View History

[Reduction] #497-498: getdate and gettime
2014-09-08 19:57:20 +00:00
; void __cdecl getdate(struct date *datep)
[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
_getdate proc
[Reduction] #497-498: getdate and gettime
2014-09-08 19:57:20 +00:00
@@datep = DPTR_ 2 + dPtrSize
push bp
mov bp, sp
push si
push di
mov ah, 2Ah
int 21h
LES_ bx, [bp+@@datep]
mov es:[bx], cx
mov es:[bx+2], dx
pop di
pop si
pop bp
ret
_getdate endp
; void __cdecl gettime(struct time *timep)
[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
_gettime proc
[Reduction] #497-498: getdate and gettime
2014-09-08 19:57:20 +00:00
@@timep = DPTR_ 2 + dPtrSize
push bp
mov bp, sp
push si
push di
mov ah, 2Ch
[Maintenance] Fix any whitespace issues in our own code
2015-09-07 13:44:02 +00:00
int 21h
[Reduction] #497-498: getdate and gettime
2014-09-08 19:57:20 +00:00
LES_ bx, [bp+@@timep]
mov es:[bx], cx
mov es:[bx+2], dx
pop di
pop si
pop bp
ret
_gettime endp