test/at.voo

   1 #### Test case for at-expressions
   2
   3 section data
   4 p:
   5 word 12
   6
   7 q:
   8 word r
   9
  10 r:
  11 word 42
  12
  13 array:
  14 word 1
  15 word 2
  16 word 3
  17
  18 array_ptr:
  19 word array
  20
  21 str:
  22 string "xyzzy"
  23
  24 str_ptr:
  25 word str
  26
  27 format:
  28 string "%d\n\x00"
  29
  30 char_format:
  31 string "%c\n\x00"
  32
  33 section functions
  34 import printf
  35 export main
  36
  37 main:
  38 function argc argv
  39     let x @q
  40     call printf format @p
  41     call printf format @x
  42
  43     set x get-word @array_ptr 1
  44     call printf format x
  45
  46     set-word @array_ptr 2 4
  47     set x get-word @array_ptr 2
  48     call printf format x
  49
  50     set x get-byte @str_ptr 4
  51     call printf char_format x
  52
  53     set-byte @str_ptr 1 65
  54     set x get-byte @str_ptr 1
  55     call printf char_format x
  56
  57     set @p -9
  58     call printf format @p
  59
  60     set @r @p
  61     call printf format @r
  62
  63     set @r get-word @array_ptr 0
  64     call printf format @r
  65
  66     set @r get-word @array_ptr @array
  67     call printf format @r
  68
  69     set @p 2
  70     set @r 0
  71     set-word @array_ptr @p @r
  72     set @p get-word array 2
  73     call printf format @p
  74
  75     return 0
  76 end function