?login_element?

Subversion Repositories NedoOS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.     DEFARRAY    myarray 'A', 'B', 'C'
  2.     DB myarray[#], myarray[0], myarray[myarray[#] - 1]
  3.     DEFARRAY+   myarray 'D', 'E', 'F'
  4.     DB myarray[#], myarray[3], myarray[myarray[#]-1]
  5.  
  6. iii = 0
  7.     DUP myarray[#]
  8. iii = iii + 1   DB  myarray[iii]    ; substitution happens first (before label++ parsing)
  9.     EDUP
  10.