FreeDOS/test/lmacros/tests/012.asm

49 lines
607 B
NASM

%include "lmacros2.mac"
numdef STANDALONE, 1
%if _STANDALONE
%ifdef _MAP
[map symbols brief _MAP]
%endif
cpu 8086
org 256
sectalign off
section lCode start=256 align=1
start:
call fun12
mov ax, 4C00h
int 21h
%endif
fun12:
lframe near
lvar word, foo
lvar word, bar
lenter
lvar word, baz
push bx
mov word [bp + ?foo], ax
lframe 0, inner
lvar word, quux
lvar word, foo
lenter
mov word [bp + ?foo], bx
mov ax, word [bp + ?bar]
mov bx, word [bp + ?quux]
mov dx, word [bp + ?baz]
lleave
mov ax, word [bp + ?foo]
lleave
lret