Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1186 savelij 1
        cpu     z80
2
 
3
x1      equ     1
4
x3      equ     3
5
 
6
        if      defined(x1) || defined(x2)
7
        db      12h
8
        endif
9
 
10
        if      defined(x1) || defined(x3)
11
        db      13h
12
        endif
13
 
14
        if      defined(x1) || defined(x4)
15
        db      14h
16
        endif
17
 
18
        if      defined(x2) || defined(x3)
19
        db      23h
20
        endif
21
 
22
        if      defined(x2) || defined(x4)
23
        db      24h
24
        endif
25
 
26
        if      defined(x3) || defined(x4)
27
        db      34h
28
        endif
29
 
30
back:   nop
31
        jr      back
32
 
33
myfunc  function x,x*x
34
 
35
        db      defined(back)   ; has been defined previously -> 1
36
        db      defined(back+5) ; -> 1
37
        db      defined(forw)   ; is defined later -> 0
38
        db      defined(forw-2) ; -> 0
39
        db      defined(back+forw)      ; contains undefined symbols -> 0
40
        db      defined('[')    ; plain constant is always defined -> 1
41
        db      defined(forww)  ; never defined -> 0
42
        db      defined($)      ; built-in symbol -> 1
43
        db      defined(exp(1)) ; -> 1
44
        db      defined(exp(forw))      ; -> 0
45
        db      defined(myfunc(1))      ; -> 1
46
        db      defined(myfunc(forw))   ; -> 0
47
 
48
        jr      forw
49
        nop
50
forw    nop