37 lines
692 B
Text
37 lines
692 B
Text
; NASM macro set to make interfacing to 16-bit programs easier -*- nasm -*-
|
|
|
|
%imacro proc 1 ; begin a procedure definition
|
|
%push proc
|
|
global %1
|
|
%1: push bp
|
|
mov bp,sp
|
|
%ifdef FARCODE PASCAL ; arguments may start at bp+4 or bp+6
|
|
%assign %$arg 6
|
|
%else
|
|
%assign %$arg 4
|
|
%endif
|
|
%define %$procname %1
|
|
%endmacro
|
|
|
|
%imacro arg 0-1 2 ; used with the argument name as a label
|
|
equ %$arg
|
|
%assign %$arg %1+%$arg
|
|
%endmacro
|
|
|
|
%imacro endproc 0
|
|
%ifnctx proc
|
|
%error Mismatched `endproc'/`proc'
|
|
%else
|
|
mov sp,bp
|
|
pop bp
|
|
%ifdef PASCAL
|
|
retf %$arg
|
|
%elifdef FARCODE
|
|
retf
|
|
%else
|
|
retn
|
|
%endif
|
|
__end_%$procname: ; useful for calculating function size
|
|
%pop
|
|
%endif
|
|
%endmacro
|