?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     DEVICE none
  2.  
  3.     lua
  4.         -- warning because no device is set
  5.         assert(not sj.set_slot(1))
  6.     endlua
  7.  
  8.     DEVICE zxspectrum128
  9.  
  10.     ORG 0x8000
  11.     ASSERT 2 == $$  ; slot 2 should be at default page 2
  12.  
  13.     lua
  14.         assert(not sj.set_slot(4))
  15.     endlua
  16.  
  17.     lua
  18.         assert(not sj.set_slot(-1))
  19.     endlua
  20.  
  21.     lua allpass
  22.         assert(sj.set_slot(2))
  23.     endlua
  24.  
  25.     PAGE 6
  26.     ASSERT 6 == $$  ; slot 2 should be active by lua script => page 6 there
  27.  
  28.     lua pass3 ; wrong arguments
  29.         sj.set_slot(1, 2)
  30.     endlua
  31.