Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed

  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
  51.