Subversion Repositories NedoOS

Rev

Details | Last modification | View Log

Rev Author Line No. Line
1099 alone 1 
;EGA=1
2 
        include "settings.ast"
3 
 
4 
xHERO=0xc000
5 
xDIE    EQU xHERO+#3000
6 
xBOOM   EQU xDIE+#300
7 
xBUM    EQU xBOOM+#300
8 
xBULL   EQU xBUM+#480
9 
 
10 
STACK=0x4000
11 
COMBATSTACK=0x3f80;#8F7E
12 
 
13 
        macro Ms _a;$   MAC
14 
        LD      A,_a ;=0
15 
        CALL    MEM
16 
        ENDM
17 
 
18 
        macro PUSHs;$   MAC
19 
        PUSH    HL
20 
        PUSH    DE
21 
        PUSH    BC
22 
        ENDM
23 
        macro POPs;POP$ MAC
24 
        POP     BC
25 
        POP     DE
26 
        POP     HL
27 
        ENDM
28 
 
29 
        macro pushs;$   MAC
30 
        PUSH    BC
31 
        PUSH    HL
32 
        ENDM
33 
        macro pops;pop$ MAC
34 
        POP     HL
35 
        POP     BC
36 
        ENDM
37 
        macro WRDs _hl,_a;$    MAC
38 
        LD HL,_hl;=0
39 
        LD (SX),HL
40 
        LD A,_a;=1
41 
        CALL NWRDM
42 
        ENDM