v4.0/src/MAPPER/MACROS.INC


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

;
        if1
                %out    macros.inc
        endif


pushal  macro
        push    bx
        push    cx
        push    dx
        push    si
        push    di
        push    ds
        push    es
        push    ss
        push    bp
        endm
;
popal   macro
        pop     bp
        pop     ss
        pop     es
        pop     ds
        pop     di
        pop     si
        pop     dx
        pop     cx
        pop     bx
        endm
;
Enter   macro   Routine

        push    bp
        mov     bp,sp
        pushal

        endm
;
Mexit   macro

        popal
        mov     sp,bp
        pop     bp

        endm