mirror of https://github.com/nmlgc/ReC98.git
19 lines
360 B
NASM
19 lines
360 B
NASM
|
; int pascal far vector1_at(int angle, int length, int origin)
|
||
|
|
; (different calling convention than the TH03 one)
|
||
|
|
vector1_at proc far
|
||
|
|
|
||
|
|
@@angle = word ptr 6
|
||
|
|
@@length = word ptr 8
|
||
|
|
@@origin = word ptr 0Ah
|
||
|
|
|
||
|
|
push bp
|
||
|
|
mov bp, sp
|
||
|
|
movsx eax, [bp+@@length]
|
||
|
|
movsx edx, [bp+@@angle]
|
||
|
|
imul eax, edx
|
||
|
|
sar eax, 8
|
||
|
|
add ax, [bp+@@origin]
|
||
|
|
pop bp
|
||
|
|
retf 6
|
||
|
|
vector1_at endp
|